(while 1(#(prn(+(if(odd?%)2 1)%))(read)))