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