Rekurencyjne wypisywanie zawartości katalogów w TCL

Zamieszczam krotki skrypcik pokazujacy rekursje w Tcl program ma za zadanie :

1. mamy jakas glowna sciezke do przeszukania
2. sprawdzamy czy sa w niej katalogi
3. jesli tak to wchodzimy do nich po kolei
4. jak bedziemy w katalogu w ktorym nie ma katalogowto mamy wyswietlic pliki ktore sie w nim znajduja

kod skopiujesz z : http://paste.org/pastebin/view/15609