#!/usr/bin/tclsh # (find-angg ".zshrc" "makeindexhtmls") puts puts puts puts
set lines [split [exec ls -laF | col -x] "\n"]
# set total [lindex $lines 0]
# puts $total
regexp {^(.* )([^ ]*)} [lindex $lines 1] -> left right
regsub -all . $left . left
set myre "^($left)(\[^ */=@|\]*)(.*)"
foreach line [lrange $lines 1 end] {
  regexp $myre $line -> left name right
  puts "$left$name$right"
}
puts 
puts puts