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