new file:   orar.tcl