perl -MMath::BigInt -e '
($\,$,)=("\n","\t");
for $i (1001,1_000_001,1_000_000_001,1_000_000_000_001) {
$j=new Math::BigInt "$i";
$s=new Math::BigInt "0";
$q=new Math::BigInt "0";
$q=$j**2;
$s=sprintf("%020s",$q);
print $q,int($q),$s++,$s;
}
'
1002001	1002001	00000000000001002001	00000000000001002002
1000002000001	1000002000001	00000001000002000001	00000001000002000002
1000000002000000001	1000000002000000001	01000000002000000001	01000000002000000002
1000000000002000000000001	1000000000002000000000001	1000000000002000000000001	1000000000002000000000002