$ perl -e 'vec( $foo, 63, 1) = 1; print scalar reverse(unpack "b64",$foo),$/'
1000000000000000000000000000000000000000000000000000000000000000