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