($k,$x)=glob<>;$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