a=input(0)*2;while(a>1)disp(int32(a=[a/2,a*3+1](mod(a,2)+1)))end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page