((fn f[i](prn i)(if(> i 1)(f(if(odd? i)(inc(* 3 i))(/ i 2)))))(read))