perl -MMath::BigInt -e'$x = Math::BigInt->new("4653896912");$x->brsft("13");print $x->bstr;'