1
2
2
2
2
2
2
2
2
2
2
2
2
2
3
7
73
79
# without bug
2
2
2
2
2
2
2
2
2
2
2
2
2
3
3
3
3
3
3
3
3
461

##</code><code>##

17
113
5882353
73765755896403138401
119968369144846370226083377

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;

open(RANDOM, '>', 'random.dat') or die $!;
print RANDOM (int( rand 31415926535 ) + 1), "\n" for 1 .. 50_000;