read i
bc<<_
$i;for(i=$i;1<i;){if(i%2)i=i*3+1 else i/=2;i}