A program to check the nesting of parenthesis in tcl scripts