(while 1(let[i(read)](prn(#(if(< i%)%(recur(* 2%)))1))))