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