                /**  Special output forms  **/
 
/*A: S.Wolfram */
/*S: California Institute of Technology */
/*D: July 1981 */
/*U: October 1985*/ 

/*: PSig
        prints as */
/*E:
                    ---
                    >
                    ---
                                */
 
_PSig[Pr] : Fmt[{{3,1},{2,1},{1,1},{1,0},{1,-1},{2,-1},{3,-1}},\
        "-","-","-",">","-","-","-"]
 
/*: PPi
        prints as */
/*E:
                    ___
                    | |
                    | |
                                */
 
_PPi[Pr] : Fmt[{{1,-1},{1,0},{1,1},{2,1},{3,1},{3,0},{3,-1}},\
        "|","|","_","_","_","|","|"]
 
/*: Plam
        prints as */
/*E:
                   \
                   /\
                                */
 
_Plam[Pr] : Fmt[{{1,-1},{1,0}},"/\","\"]
 
/*: PLam
        prints as */
/*E:
                    /\
                   /  \
                                */
 
_PLam[Pr] : Fmt[{{1,-1},{2,0},{3,-1}},"/","/\","\"]
 
/*: PDelta
        prints as */
/*E:
                    /\
                   /__\
                                */
 
_PDelta[Pr] : Fmt[{{1,-1},{2,-1},{3,-1},{2,0}},"/","__","\","/\"]
 
/*: PGamma
        prints as */
/*E:
                    ____
                    |
                    |
                                */
 
_PGamma[Pr] : Fmt[{{1,-1},{1,0},{1,1}},"|","|","____"]
 
/*: PXi
        prints as */
/*E:
                    ----
                     --
                    ----
                                */
 
_PXi[Pr] : Fmt[{{1,-1},{2,-1},{3,-1},{2,0},{1,1},{2,1},{3,1}},"-","--","-", \
                        "--","-","--","-"]
 
 
/*: PInt
        prints as */
/*E:
                    /
                    |
                    /
                                */
 
_PInt[Pr] : Fmt[{{1,1},{1,0},{1,-1}},"/","|","/"]
 
/*: PSqrt
        prints as */
/*E:
                   --
                  /
                \/
                                */
 
_PSqrt[Pr] : Fmt[{{1,-1},{2,0},{3,1}},"\/","/","--"]
 
/*E:
 
SMP 1.5.0
Thu Oct 17 17:42:57 1985


#I[1]::  <XPR

#I[2]::  PPi^2

	 ___2
#O[2]:*  | |
	 | |

#I[3]::  _f[Pr]:PSig

	 ---
#O[3]:*  >
	 ---

#I[4]::  f+1/f

	 ---    1
#O[4]:*  >   + ---
	 ---   ---
	       >
	       ---

#I[5]::  <end>
*/
