([rec'x(print x)(if(< 1 x)'(if(odd? x)(+(* x 3)1)(/ x 2)))](read))