Here is an example of a student project It is very wide you might want to expand your browset window before clicking.
Other Tcl demos
Here's a tcl program that does a graph matching algorithm from the current discrete math text