wish < tcl/Raga.tcl | ./ragamat -ip