TCL listowanie plików

Wiecie może jak wylistować pliki z katalogu w TCL [???]

Metodą prób i błędów doszedłem:

set katalogi [exec ls]
foreach index $katalogi {
	puts $index
}

:d

http://www.google.pl/search?hl=pl&pwst=1&sa=X&oi=spell&resnum=0&ct=result&cd=1&q=tcl+directory+listing&spell=1