proc ls {directory extensions} {
    set files [glob -nocomplain -tails -directory $directory -type f *]
    puts stderr [concat Files: $files]
    set items [lsearch -glob -all -inline $files *.$extensions]
    puts stderr [concat Items: $items]
    set dirs [glob -nocomplain -tails -directory $directory -type d *]
    set dirs2 [list]
    foreach dir $dirs {
        lappend dirs2 "$dir/"
    }
    return [concat ".." [lsort $dirs2] [lsort $items]]
}