TCL shell using gotcl