Posted to tcl by cjo at Mon Sep 11 15:14:27 GMT 2017view pretty

apply {{} {
    time {
        lmap f [glob -tails -directory /usr/lib *] {
            if {[file type [file join /usr/lib $f]] eq "link"} continue
            string range [file tail $f] 0 2
        }   
    } 200
}}