(#(do(prn%)(/(-% 1))(recur(if(odd?%)(+ 1%%%)(/% 2))))(read))