A tiny example of [[rand] with some fun output
evilotto posted this little program in the Tcl Chatroom, 2013-02-28:
#! /bin/env tclsh
fconfigure stdout -encoding utf-8
while 1 {
puts -nonewline [format %c [expr {round(9585+rand())}]]
#puts [expr {round(9585+rand())}]
}