.flags escape @
.define escape "@a" hsp 1,27 "I" 9 "a" 27 "I" 4		.;alpha (lower)
.define escape "@b" hsp 1,27 "I" 9 "b" 27 "I" 4		.;beta (lower)
.define escape "@G" hsp 1,27 "I" 9 "G" 27 "I" 4		.;Gamma (upper case)
.define escape "@g" hsp 1,27 "I" 9 "g" 27 "I" 4		.;gamma (lower case)
.define escape "@D" hsp 1,27 "I" 9 "D" 27 "I" 4		.;Delta (upper)
.define escape "@d" hsp 1,27 "I" 9 "d" 27 "I" 4		.;delta (lower)
.define escape "@e" hsp 1,27 "I" 9 "e" 27 "I" 4		.;epsilon (lower)
.define escape "@z" hsp 1,27 "I" 9 "z" 27 "I" 4		.;zeta (lower)
.define escape "@h" hsp 1,27 "I" 9 "h" 27 "I" 4		.;eta (lower)
.define escape "@J" hsp 1,27 "I" 9 "J" 27 "I" 4		.;THETA (upper)
.define escape "@j" hsp 1,27 "I" 9 "j" 27 "I" 4		.;theta (lower)
.define escape "@i" hsp 1,27 "I" 9 "i" 27 "I" 4		.;iota (lower)
.define escape "@k" hsp 1,27 "I" 9 "k" 27 "I" 4		.;kappa (lower)
.define escape "@L" hsp 1,27 "I" 9 "L" 27 "I" 4		.;LAMDA (upper)
.define escape "@l" hsp 1,27 "I" 9 "l" 27 "I" 4		.;lamda (lower)
.define escape "@r" hsp 1,27 "I" 9 "r" 27 "I" 4		.;rho (lower)
.define escape "@S" hsp 1,27 "I" 9 "S" 27 "I" 4		.; Sigma (Upper)
.define escape "@s" hsp 1,27 "I" 9 "s" 27 "I" 4		.; sigma (lower)
.define escape "@t" hsp 1,27 "I" 9 "t" 27 "I" 4		.; tau (lower)
.define escape "@u" hsp 1,27 "I" 9 "u" 27 "I" 4		.; upsilon (lower)
.define escape "@F" hsp 1,27 "I" 9 "F" 27 "I" 4		.; Capital Phi
.define escape "@f" hsp 1,27 "I" 9 "f" 27 "I" 4		.; small phi
.define escape "@x" hsp 1,27 "I" 9 "x" 27 "I" 4		.; chi (lower)
.define escape "@P" hsp 1,27 "I" 9 "P" 27 "I" 4		.; Psi (upper)		
.define escape "@p" hsp 1,27 "I" 9 "p" 27 "I" 4		.; psi (lower)
.define escape "@O" hsp 1,27 "I" 9 "O" 27 "I" 4		.; Omega (upper)
.define escape "@o" hsp 1,27 "I" 9 "o" 27 "I" 4		.; omega (lower)
.;
.;	Script symbols
.;
.;DEFINE SUBSTITUTE /H'/^8H^3
.; Script H
.;DEFINE SUBSTITUTE /L'/^8I^3
.; Script L
.;DEFINE SUBSTITUTE /M'/^8M^3
.; Script M
.;Define substitute /R'/^8R^3
.; Script R
.;DEFINE SUBSTITUTE /e'/^8E^3
.; 
.;Define substitute /l'/^8N^3
.; Script l
.;
.;	Scientific symbol del
.;
.;DEFINE SUBSTITUTE /del$/^8!^3
.;
.;	Foreign language symbol should appear in front of letter to be marked
.;
.;DEFINE SUBSTITUTE /umlaut$/^8"^3%
.;DEFINE SUBSTITUTE /uml$/^8"^3%
.;Define substitute /cir$/^8_^^3%
.;Define substitute /CV$/C%^8|^3
.;
.;	Define a dagger
.;
.;DEFINE SUBSTITUTE /dagger$/^8'^3
.;DEFINE SUBSTITUTE /dag$/^8'^3
.;
.;	Define a bullet
.;
.;DEFINE SUBSTITUTE /bul$/^8o^3
.;
.;	Angstrom symbol
.;
.;DEFINE SUBSTITUTE /angstrom$/A%^8^?>,<\?^3
.;DEFINE SUBSTITUTE /angs$/A%^8^?>,<\?^3
.;Define substitute /hbar$/h^8%v^3
.;DEFINE SUBSTITUTE /BR$/^?>>>>-<<<<\?%
.;DEFINE SUBSTITUTE /br$/^?>>>-<<<\?%
.;
.;	Bra,bar, and ket
.;
.;DEFINE SUBSTITUTE /bra$/_<
.; large "<"
.;DEFINE SUBSTITUTE /bar$/^8_|^3
.; large vertical line
.;DEFINE SUBSTITUTE /ket$/_>
.; large ">"
.;DEFINE SUBSTITUTE /bra2$/^!^8<_\%>>_/<^3\!
.; double height "<"
.;DEFINE SUBSTITUTE /bar2$/^!^8<_=>>%_=<^3\!
.; double height vertical line
.;DEFINE SUBSTITUTE /ket2$/^!^8<_/%>>_\<^3\!
.; double height ">"
.;
.;
.;DEFINE SUBSTITUTE /degree$/^8,^3
.; Degree symbol
.;DEFINE SUBSTITUTE /deg$/^8,^3
.;DEFINE SUBSTITUTE /perp$/^8-^3
.; Perpendicular symbol
.;DEFINE SUBSTITUTE /partial$/^8.^3
.; Partial derivitive symbol
.;DEFINE SUBSTITUTE /par$/^8.^3
.;
.;	less than or =, greater than or =, etc.
.;
.;Define substitute /+-$/+%__
.;Define substitute /-+$/^>-%^<+
.;DEFINE SUBSTITUTE /<=$/^8?%^3^?>__<\?
.;DEFINE SUBSTITUTE />=$/^8_@%^3^?>__<\?
.;DEFINE SUBSTITUTE /~=$/^?^8<_#%^3>>__<\?
.;DEFINE SUBSTITUTE /~$/^8_#^3
.;DEFINE SUBSTITUTE /<$/^8?^3
.;DEFINE SUBSTITUTE />$/^8_@^3
.;DEFINE SUBSTITUTE /~<$/^!^8?%<_#>^3\!
.;DEFINE SUBSTITUTE /~>$/^!^8_@%<_#>^3\!
.;DEFINE SUBSTITUTE /~~$/^8~^3
.;DEFINE SUBSTITUTE /prop$/^8A^3
.;DEFINE SUBSTITUTE /inf$/^8O^3
.;Define substitute /def$/^?>>-<<%-<<%->>\?
.;Define substitute /==$/^?>>-<<%-<<%->>\?
.;Define substitute /times$/^8_*^3
.;Define substitute /dot$/^?>>_.<<\?
.;
.;	Arrows
.;
.;DEFINE SUBSTITUTE /up$/^8[^3
.;DEFINE SUBSTITUTE /down$/^8]^3
.;DEFINE SUBSTITUTE /dn$/^8]^3
.;DEFINE SUBSTITUTE /right$/^8_{^3
.;DEFINE SUBSTITUTE /rg$/^8_{^3
.;DEFINE SUBSTITUTE /left$/^8_}^3
.;DEFINE SUBSTITUTE /lf$/^8_}^3
.;
.;	Large square brakets
.;		$[2$ are centered double height
.;		$[3$ are centered triple height
.;
.;DEFINE SUBSTITUTE /[2$/^8<_<%>_=>%:^3<
.;DEFINE SUBSTITUTE /]2$/^8<_>%>_=>%;^3<
.;DEFINE SUBSTITUTE /[3$/^8<<_<%>_=%>_=%>_=%>:^3<<
.;DEFINE SUBSTITUTE /]3$/^8<<_>%>_=%>_=%>_=%>;^3<<
.;DEFINE SUBSTITUTE /[4$/^8<<<_<%>_=%>_=%>_=%>_=%>_=%>:^3<<<
.;DEFINE SUBSTITUTE /]4$/^8<<<_>%>_=%>_=%>_=%>_=%>_=%>;^3<<<
.;DEFINE SUBSTITUTE /[5$/^8<<<<_<%>_=%>_=%>_=%>_=%>_=%>_=%>_=>%:^3<<<<
.;DEFINE SUBSTITUTE /]5$/^8<<<<_>%>_=%>_=%>_=%>_=%>_=%>_=%>_=>%;^3<<<<
.;
.;	Large integral sign
.;
.;DEFINE SUBSTITUTE /int$/^8<B>%_=>%C<^3
.;
.;	Large summation symbol
.;
.;DEFINE SUBSTITUTE /sum$/^!^8<____%%_/%>>_\%_$_$<^3\!
.;
.;	Square root signs
.;		$sq$ is ordinary
.;		$sq1,1 is single height single char width
.;		$sq1,2 is single height double char width etc....
.;		$sq2,1 is double height double char width etc....
.;
.;DEFINE SUBSTITUTE /sq$/^8_%^3
.;DEFINE SUBSTITUTE /sq1,1$/^8_%_$%^3
.;DEFINE SUBSTITUTE /sq1,2$/^8_%_$_$%%^3
.;DEFINE SUBSTITUTE /sq1,3$/^8_%_$_$_$%%%^3
.;DEFINE SUBSTITUTE /sq1,4$/^8_%_$_$_$_$%%%%^3
.;DEFINE SUBSTITUTE /sq1,6$/^8_%_$_$_$_$_$_$%%%%%%^3
.;DEFINE SUBSTITUTE /sq2,1$/^8^!_%>>_/_$%<<\!^3
.;DEFINE SUBSTITUTE /sq2,2$/^8^!_%>>_/_$_$%%<<\!^3
.;DEFINE SUBSTITUTE /sq2,3$/^8^!_%>>_/_$_$_$%%%<<\!^3
.;DEFINE SUBSTITUTE /sq2,4$/^8^!_%>>_/_$_$_$_$%%%%<<\!^3
.;DEFINE SUBSTITUTE /sq2,6$/^8^!_%>>_/_$_$_$_$_$_$%%%%%%<<\!^3
.;DEFINE SUBSTITUTE /sq2,8$/^8^!_%>>_/_$_$_$_$_$_$_$_$%%%%%%%%<<\!^3