automatic tcl syntax for 'do' files