(#(do(prn%)(if(> % 1)(recur(if(odd?%)(+(* 3%)1)(/ % 2)))))(read))