((fn f[i](prn i)(if(> i 1)(f(if(odd? i)(inc(* 3 i))(/ i 2)))))(read))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page