> perl -le '$x=shift;$n=1;while($x){$_+=$n*chop$x;$n*=2};print' 101010
42