(loop[x(.intValue(. Integer parseInt(read-line)))](println x)(when(not= 1 x)(if(= 1(mod x 2))(recur(+(* 3 x)1))(recur(/ x 2)))))