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