#! /bin/ksh

cat $* |
	grep "^%" |
		sed 's/[ 	].*$//' |
			sort |
				uniq -c