Add tcl script for #84.