{n max} {set aret [list]; foreach z [nist_rand' {} $n] {lappend aret [expr $z % $max]}; return $aret}