add some tcl snippets