(read a
$[a=$a%2?a-1?a*3+1:0:a/2,a?++b:{1..111}]
for((;b>c;c-=~c));{ :;}
echo $[b^c])&&. *