($a,$b,$c)=glob<>; \$a{$_}for"$a$b$c","$a$c$b","$b$a$c","$b$c$a","$c$a$b","$c$b$a"; print grep(/(gray|brown|green|cyan|blue|yellow|orange|red)(gray|green|blue|yellow|red)(gray|green|cyan|blue|violet|orange|red)/,keys%a)-1?No:Yes;