wish < tcl/Voice.tcl | demo FMVoices -or -ip