An OpenSMILES parser written in TCL