#!/bin/ksh

L=/home/jtr/gale/by-prefix/pub
[[ -n "$1" ]] && L="$1"

ME=`basename $0`
T1=/tmp/$ME-$$-all
T2=/tmp/$ME-$$-people

grep '^ *-- <' < $L > $T1
sed 's/^ *-- <\([^>]*\)>.*/\1/' < $T1 | sort | uniq > $T2

while read f
do echo "$(grep -c "$f" $T1)	<$f>"
done < $T2 | sort -nr

rm -f $T1 $T2