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