(#(or(prn%)(=% 1)(recur(if(odd?%)(+ 1%%%)(/% 2))))(read))