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