$/=$,=$";$x=!($k+=<>)+<>;$m|=$_ for@a=grep$x>>$_,1..30,1,2,4,8,16;print$x&$x-1?No:Yes,push(@a,$k>$m&&$x?$k:@a?():$k^1),@a