Useful TCL scripts for Hypermesh