Plan 9 from Bell Labs’s /usr/web/sources/plan9/sys/doc/mkdirlist
#!/bin/rc # mkdirlist for(i in $*) if(~ $i */*) basename -d $i