wish < tcl/Drums.tcl | demo Drummer -or -ip