wish < tcl/TCLRaga.tcl | ragamat -ip