if /bin/test $2
then
  echo "$2 $2 scale" > ps/$1.ps
else
  echo "1 1 scale " > ps/$1.ps
fi
(
echo "save"
echo "gsave /ThisDict 64 dict def ThisDict begin"
cat /u/rs/book3/pslib/old/head.ps
cat $1 | awk '/-----------/ {exit} {print}' | loom | loom
echo "end grestore"
echo "restore"
) >> ps/$1.ps
echo -n "Want to look with gs? (g or n) "
read ans
if test $ans = "g"
then
  gs ps/$1.ps
fi