use Math::TrulyRandom;

#
#	How on earth do we test for randomness?
#

print "1\n";

my $val1 = truly_random_value();
my $val2 = truly_random_value();
my $val3 = truly_random_value();

print "1 ";
($val1 != $val2 || $val2 != $val3) || print "not ";
print "ok\n";