a=$1{for(b=s=2;1<a=a%2?a*3+1:a/2;)b<++s&&b*=2}1,$0=b-s
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page