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