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