This is a simple Tcl example.  Type 'make' to
compile it, then type 'example.tcl' to run a test
script.
