(def f #(or(prn%)(=% 1)(f(if(odd?%)(+(*% 3)1)(/% 2)))))(f(read))