sub f{ my($a,$b)=@_; $a*$b&&($a%2||f($a/2,$b-1))&($b%2||f($a-1,$b/2)) } print f(glob<>)?No:Yes