$d=64,$s=0,$j=0;$i=1;for(;$|=printf("%c %d\n",($d>>=1)?63:33,$s+$d-!!$d*$j),$d;$j++?$s+=!! ~$i*$d:($d+=!! ~$i<<30)){$i=<>+0;}