wish < tcl/Raga.tcl | ragamat -ip