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