Evaluated proc lrand {ceil n} { map [seq 1 $n] {x {rand $ceil}} }