wish < tcl/Demo.tcl | ./demo Clarinet -or -ip