list=`cat < $1 | awk '/^[^!]/{print $2}'`
for item in $list
do
	echo "$item"
	xlsfonts -fn "$item" > /dev/null
done