wish < tcl/TCLShakers.tcl | syntmono Shakers -or -ip