Random Slash Maze

Summary

A tiny example of [[rand] with some fun output

Description

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())}]
}