perl -e '
($\,$,)=("\n","\t");
for $j (1001,1_000_001,1_000_000_001,1_000_000_001) {
$q=$j**2;
print $q,int($q),sprintf("%020u",$q);
}
'
1002001	1002001	00000000000001002001
1000002000001	1000002000001	00000000004294967295
1.000000002e+18	1.000000002e+18	00000000004294967295
1.000000002e+18	1.000000002e+18	00000000004294967295