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