Select Code to Download

c:\test>608174-b -N=500 -LENGTH=3
            (warning: too few iterations for a reliable count)
...
BH1 => 0
TZ => 393468
MN => 0

#! perl -slw
use strict;
...
print "\n----\n";
print "$_ => $results{ $_ }" for keys %results;