my @typed_names =
         map {substr $_,1}
         sort
         map {(-l) ? "l$_" : -d _ ? "d$_" : "r$_"}
         @ARGV;