Use Of Proc In Tcl