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