W=/sparbase/man/whatis
for X
do
awk \
'got == 1 {printf "%s %s",$1,sect; for (i=2; i<=NF; i++) printf " %s",$i;printf "\n"; exit} \
/\.SH NAME/ {got = 1} \
/\.TH/ && ($3 != "") {sect = "(" $3 ")"}' $X >> $W
done
sort -u $W > $W$$
mv $W$$ $W

