Lots of people hate on TCL, yet, it is still a scripting language used in routers and in NaviServer, which is used by TU-Wien to teach over 40K people, with Gustaf Neumann spearheading it https://dblp.uni-trier.de/pers/hd/n/Neumann:Gustaf . It is used heavily in many other places as well to do useful work.

And don't forget "expect" which is based on TCL also.