just to practice with tcl/otcl