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