Add Tcl sample