initial convert.tcl