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