while read a;do b=$[2#$a];for ((i=0;b>0;b-=++i));do :;done;echo $[!b];done;