#!perl -p
for(;/1/;print reverse 1,map$x<$_?0:eof($x-=$_),@_){$'=~/.{@-}/;@_=$i=$'=~eval"'.'x(0b1$&-1)";@_=($i,@_)until($i+=$_[1]||1)>eval"\$x=0b1$&";$_=$'}