main=readLn>>=f f n=print n>>f([div n 2,3*n+1]!!rem(n-2)2)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page