Almost a complete rewrite.
[ca] / lib /
drwxr-xr-x   ..
-rw-r--r-- 27607 func.tcl