\voffset=10truept
\hsize=6.5truein
\vsize=9.5truein
\font\sc=cmr6
\parindent=0pt
\parskip=0pt
\nopagenumbers

\def\beginlinemode{\endmode
  \begingroup\obeylines\def\endmode{\par\endgroup}}
\def\beginparmode{\endmode
  \begingroup\parskip=\medskipamount \def\endmode{\par\endgroup}}
\let\endmode=\par
\def\endletter{\endmode\vfill\supereject}
\def\myname{}			% USER DEFINED
\def\myfloor{}			% USER DEFINED
\def\myemail{}	% USER DEFINED
\def\mytown{}			% USER DEFINED
\def\mystreet{}			% USER DEFINED
\def\myphone{}				% USER DEFINED
\newdimen\longindentation 
          \longindentation=4.truein
\newdimen\shortindentation 
          \shortindentation=3.truein

% Simple MATH LETTERHEAD ******

\def\mathletterhead{
\font\r=cmr10 at 8.333pt
\font\rbf=cmbx10 at 8.333pt
\font\bsl=cmbxsl10 at 12.pt

  \def\sendingaddress{\rightline{}
           \vskip -.6truein
   \centerline{\rbf UNIVERSITY OF WISCONSIN---MADISON}
   \smallskip
   \centerline{\rbf Madison 53705}
   \medskip
   \medskip
   \line{\r Center for the Mathematical Sciences 
				\hfil 610 Walnut St.}
   \line{\r  \hfil Telephone (608) 263-2661}
   \line{\r  \hfil }}

\def\returnaddress{\myname\par
Center for the Mathematical Sciences\par
University of Wisconsin---Madison\par
610 Walnut St. \par
Madison, WI \ 53705\par
U. S. A.}
   \letterhead}

% "W" Math LETTERHEAD *************
%
% Defn's for the "W" Math letterhead
% requires epsf style file
% a postscript printer would also be nice
%
\font\eight=cmr8 at 8truept
\font\headfont=cmbx12 scaled\magstep2
\input epsf  %% needed for W.eps
\def\Wmathletterhead{
 \vglue-5truept
 \hbox{\epsfysize=.5in\epsfbox{W.eps}\kern5truept
      \raise3truept\vbox{\hbox{\headfont University of}
	    \hbox{\headfont Wisconsin--Madison}}
      \hskip.75truein
      \raise3truept\vbox{\hbox{\sc DEPARTMENT OF MATHEMATICS}}
   }% end of hbox
 \vskip1truept
 \hrule height1pt width6.9truein
 \vskip3truept
 \hbox{\vbox{\hbox{\eight Van Vleck Hall}\vskip-3truept
	     \hbox{\eight 480 Lincoln Drive}\vskip-3truept
	     \hbox{\eight Madison, WI 53706-1388}}
     \hskip4truein
       \vbox{\hbox{\eight \hskip14pt Telephone:(608) 263-3053}\vskip-3truept
	     \hbox{\eight E-Mail: recep@math.wisc.edu}\vskip-3truept
	     \hbox{\eight \hskip2pt Fax Number: (608) 263-8891}}
	    } 
     
}	     
% HOME LETTERHEAD *************

\def\homeletterhead{

\def\sendingaddress{}

\def\returnaddress{
    \myname \par
    \mystreet \par
    \mytown   \par
    \myemail}

\strut\bigskip\bigskip 
\moveright 4 truein \vbox{ 
  		\hbox{\mystreet}
		\hbox{\mytown}
 		\hbox{\myemail}}
   \letterhead \bigskip}
   
% EMPTY LETTERHEAD *************

\def\emptyletterhead{

\def\sendingaddress{} 
}

%  LETTERHEAD DEFN

\def\letterhead{\pageno=1 \def\addressee{}
  {\leftskip=\longindentation
   {\baselineskip9truept\sendingaddress}
   \bigskip\bigskip\bigskip}}
 %  \bigskip\bigskip\today\bigskip}}

% MAKELABEL *********

\def\makelabel{\endletter\hbox{\vrule
    \vbox{\hrule \kern6truept
      \hbox{\kern6truept\vbox to 2truein{\hsize=\longindentation
          \smallheadfont\baselineskip9truept\returnaddress
          \vfill\moveright 2truein\copy\theaddress\vfill}%
        \kern6truept}\kern6truept\hrule}\vrule}
  \pageno=0\vfill\eject}

% MAKELABELS (4) *********

\def\makelabels{\endletter
     \make1label
     \bigskip
     \make1label
     \bigskip
     \make1label
     \bigskip
     \make1label
  \pageno=0\vfill\eject}

\def\make1label{\hbox{\vrule
    \vbox{\hrule \kern6truept
      \hbox{\kern6truept\vbox to 2truein{\hsize=\longindentation
          \smallheadfont\baselineskip9truept\returnaddress
          \vfill\moveright 2truein\copy\theaddress\vfill}%
        \kern6truept}\kern6truept\hrule}\vrule}}
