r-mmch.tcl