wish < tcl/TCLDrums.tcl | syntmono DrumSynt -or -ip