#!/bin/rc

sed 's/[ \(->][ \(->]*/\
/g
s/[,.¡!¿?]//g' $* |
tr A-Z a-z | sort | uniq -c | sort -nr | sed 10q