# this works as a bash include
#
#COMM Math::kRandom &RandInt
#
perl -e '
   use strict;
   use lib shift();  # give include precedence to code directory, perl -I would not work!
   use Math::kRandom;
   my $vrange = 12;
   my $rand_retry = 1000;
   my $sum=0;
   foreach (1 .. $rand_retry) {
     $sum += &RandInt($vrange);
   }
   my $meanexp=($vrange-1)/2;
   my $meannvar=(($vrange-1)/4)**2;
   my $mean=$sum/$rand_retry;
   if(abs($mean-$meanexp) > 2*sqrt($meannvar*$rand_retry)){
     printf "high standard deviation: %.2f of expected\n",
       abs($mean-$meanexp)/sqrt($meannvar*$rand_retry);
   } else{
     print  "OK\n";
   }
 ' -- $dircode
