[tcl] initial import, not working yet