$_=<>;$_/=2,$a++while$_>0&~$_;$a--while($_*=2)-($==sqrt)-$=*$=;print++$=+$a," 0"x$a," 1"x$=