TCL Script for Hypermesh