wish < tcl/Shakers.tcl | stk-demo Shakers -or -ip