Plan 9 from Bell Labs’s /usr/web/sources/contrib/fgb/rc/fq
#!/bin/rc sed 's/[ \(->][ \(->]*/\ /g s/[,.¡!¿?]//g' $* | tr A-Z a-z | sort | uniq -c | sort -nr | sed 10q
