main=do x<-readLn \x09putStr$unlines$c x c 1=show 1:[] c x|odd x=show x:c(x*3+1)|True=show x:c(x`div`2)

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page