toychain/t/random.t

#!/usr/bin/perl

BEGIN { if (-e $ENV{SITE}.'/lib') { use lib $ENV{SITE}.'/lib'; } }
use seed qw(rand64);

&seed::setseed(0x49b1cffe || undef);
my $n0 = seed::rand64(); # n < 18446744073709551616
printf "n0: %s\n",$n0;

exit $?;


1;