srand(1);  # So everything is using the same numbers
my $s = 0;
for (1..1000000) {
  $s += nearest_sqrt(int(rand(2**47)));
}
print "$s\n";