$$_=$i++for grblyerebrcyorvi=~/../g;($a,$b,$c)=map$$_,<>=~/\b\w./g;/a/&/b/&/c/&&\$a{s/./${$&}/gr}for z..ccc;print~-grep(/[^7][0-3][^24]/,keys%a)?No:Yes