% \iffalse
% $Id: cmtiup.dtx,v 1.8 2016/02/14 21:27:07 boris Exp $
%
% Copyright 2003 Sergey Znamenskii
% Copyright 2010--2016 Boris Veytsman
%
% This work may be distributed and/or modified under the
% conditions of the LaTeX Project Public License, either version 1.3
% of this license or (at your option) any later version.
% The latest version of this license is in
%   http://www.latex-project.org/lppl.txt
% and version 1.3 or later is part of all distributions of LaTeX
% version 2005/12/01 or later.
%
% This work has the LPPL maintenance status `maintained'.
% 
% The Current Maintainer of this work is Boris Veytsman
%
% This work consists of the files README, cmtiup.dtx and cmtiup.ins
% and the derived files cmtiup*.[vf|tfm|mf]
%
% \fi 
% \CheckSum{0}
%
%
% \CharacterTable
%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
%   Digits        \0\1\2\3\4\5\6\7\8\9
%   Exclamation   \!     Double quote  \"     Hash (number) \#
%   Dollar        \$     Percent       \%     Ampersand     \&
%   Acute accent  \'     Left paren    \(     Right paren   \)
%   Asterisk      \*     Plus          \+     Comma         \,
%   Minus         \-     Point         \.     Solidus       \/
%   Colon         \:     Semicolon     \;     Less than     \<
%   Equals        \=     Greater than  \>     Question mark \?
%   Commercial at \@     Left bracket  \[     Backslash     \\
%   Right bracket \]     Circumflex    \^     Underscore    \_
%   Grave accent  \`     Left brace    \{     Vertical bar  \|
%   Right brace   \}     Tilde         \~} 
%
%
%
% \MakeShortVerb{|}
% \GetFileInfo{cmtiup.dtx}
%
%  \title{Upright Digits and Punctuation in Computer Modern Italic}
%  \author{Sergei
%  V. Znamenskii\thanks{\texttt{znamensk@rustex.botik.ru}}
%  \thanks{Supported by Russian Foundation for Basic Research,
%    grant No 98-07-90179v} \\
%   Boris Veytsman\thanks{\texttt{borisv@lk.net}} \thanks{Supported by
%   Princeton University (Mathematics Department)} \thanks{Current
%   maintainer}} 
%  \date{\filedate, \fileversion}
% \changes{v1.2}{2001/01/08}{First public version}%
% \changes{v1.3}{2003/01/03}{Fixed a bug in cmtiup.sty
%    (thanks to  Shingo SAITO new@ms.u-tokyo.ac.jp),
%    test provided}
% \changes{v1.3a}{2010/11/19}{Documentation update}%
% \changes{v2.0}{2016/01/16}{Added T1 encoding and bold versions}%
% \changes{v2.1}{2016/02/14}{Regenerated fonts with new fontinst}%
% 
%  \maketitle
% \def\SizeOf#1.#2k{{\small\bfseries\itshape#1{\mdseries\scriptsize.#2\kern.1em\slshape\small k}}}
% \newcommand\DescribeFile[4]{\par\noindent
%      {\ttfamily{\footnotesize texmf/\small\mdseries#1/}#2 (\SizeOf#3k)} \hskip 0ptplus .3\hsize $\hbox{}$ 
%      \penalty-100 \ $\hbox{}$ \hskip 0ptplus .3\hsize --- #4\parfillskip0pt\rightskip0pt\par}
% \newenvironment{describe}{\smallskip}{\smallskip}{}
% \begin{abstract} 
% Computer Modern text italic fonts have been modified it the
% following manner: all punctuation and digits are unslanted,
% and the corresponded italic corrections added as kerning.
% Replacement of cmti* fonts by cmtiup* simplifies typesetting of
% mathematical texts.
% \end{abstract}
%
%
% \tableofcontents
% 
%
%\section*{Preface to Version~2}
%
% Version~2, released in 2016, is the first version by Boris Veytsman.
% This version was commissioned by Princeton University, the publisher
% of \emph{The Annals of Mathematics.}  The original version by Sergei V.
% Znamenskii supported only italics in OT1 encoding.  Since
% \emph{Annals} needed to typeset French submissions, I added T1
% encoded fonts and, for completeness, bold italic versions in both
% OT1 and T1 encoding.  
%
% The original fonts had both MetaFont and Type1 versions, and were
% done by manual editing of |.vpl| files.  I decided to keep the
% original files, but use \textsl{fontinst} to construct the virtual
% fonts.  
%
% \bigskip\noindent
% \emph{Boris Veytsman\\January 2016}
%
%
%  \section*{Preface}
% 
%  There is a well-known problem with scientific typesetting in \TeX:
%  the unslanted digits and punctuation in mathematical formulas are in
%  a terrible dissonance with the  slanted digits and in 
%  italic text such as theorems and lemmas.
% 
% User guides for \AmSTeX\ and \AmSLaTeX\ macro packages 
% recommend uprighting digits and punctuation using the
% macro (\verb|\rom|\{\}) which makes its argument unslanted and adds 
% the italic correction before it. This approach does not give the 
% perfect solution:
% \begin{itemize}
% \item This markup is not style independent.
% \item This markup requires extra work.
% \item The proper italic correction should sometimes be improved manually
%     ({\fontencoding{OT1}\textit
%     {I, but I!}}).
% \item It is too easy to miss some comma or semicolon especially
% while copying sentences from other text.
% \end{itemize}
% 
% An italic font with unslanted punctuation seems to provide
% the better solution than the special text markup.
% 
% In order to keep backward compatibility, the new font have to differ
% from the standard computern modern italic in just the two aspects:
% 
% \begin{enumerate}
% \item All digits and punctuation must be unslanted;
% \item There must be special kerning to compensate for italic correction.
% \end{enumerate}
% 
% The package contains the proposed solution support for CM italic, \MF\
% sources (possibly minimal modification of \verb|cmti*.mf| sources) for
% systems without virtual font support, virtual fonts (combining text
% from \verb|cmti*| and punctuation from \verb|cmr*|) to use with type1
% CM fonts and package for \LaTeXe users.
% 
% \clearpage
%
% \section{User Guide}
% 
% \subsection{Installation}
%
% To install the fonts on a TDS-compliant system just unpack the file
% |cmtiup.tds.zip| in your |TEXMF| tree and update the file names
% database. 
%
% \subsection{Usage}
%
% The package does not need any changes in |.map| of |.cfg| files.  If
% you use Computer Modern fonts in Type~1 format, the new fonts will
% be used in the same format too.  If you use them in Metafont format, the
% new fonts will be in this format.
%
%
%
% To  use the fonts in plain \TeX{} or \AMSTeX, just load it as
% \begin{verbatim}
% \font\upit = cmtiup10
% \end{verbatim}
% and replace |\it| by |\upit| in your document.
%
%
% In \AmSTeX\ with \verb|amsppt| you alternatively can use
% \begin{verbatim}
% \font\proclaimfont = cmtiup10
% \end{verbatim}
%
% To use the package in \LaTeX, just say
% \begin{verbatim}
% \usepackage{cmtiup}
% \end{verbatim}
%
% \StopEventually{}
%
% \clearpage
%\section{Identification}
%\label{sec:ident}
%
% 
% We start with the declaration who we are.  Most |.dtx| files put
% driver code in a separate driver file |.drv|.  We roll this code into the
% main file, and use the pseudo-guard |<gobble>| for it. 
%
%    \begin{macrocode}
%<package>\NeedsTeXFormat{LaTeX2e}
%<*gobble>
\ProvidesFile{cmtiup.dtx}
%</gobble>
%<package>\ProvidesPackage{cmtiup.sty}
%<*gobble|package>
[2016/02/14 v2.1 Upright Digits and Punctuation in Computer Modern Italic]
%</gobble|package>
%    \end{macrocode}
% And the driver code:
%    \begin{macrocode}
%<*gobble>
\documentclass{ltxdoc}
\usepackage{booktabs,amsmath}
\usepackage{url,texnames}
\newcommand{\FileName}[1]{\hbox{\ttfamily#1}}
\usepackage[breaklinks,colorlinks,linkcolor=black,citecolor=black,
            pagecolor=black,urlcolor=black,hyperindex=false]{hyperref}
\usepackage{cmtiup}
\PageIndex
\CodelineIndex
\RecordChanges
\EnableCrossrefs
\begin{document}
  \DocInput{cmtiup.dtx}
\end{document}
%</gobble> 
%    \end{macrocode}
%
% \clearpage
% \section{Tests}
% We just show all chars combinations with uprighted right char:
% \newcommand{\test}[1]{\noindent\ifx.#1\else#10#11#12#13#14#15#16#17#18#19#1,
%     #1\%#1\##1+#1/#1:#1; #1(#1)#1[#1]#1?#1!#1\textquestiondown
%     #1\textexclamdown \par\expandafter\test\fi}
% 
% {\fontencoding{OT1}\itshape\noindent Test of cmtiup10 \\
% \test abcdefghijklmnopqrstuwxyz.
% \test ABCDEFGHIJKLMNOPQRSTUWXYZ.
% \test ~!\#\$\%()-.
% }
%
% {\fontencoding{OT1}\itshape\bfseries\noindent Test of cmbxiup10 \\
% \test abcdefghijklmnopqrstuwxyz.
% \test ABCDEFGHIJKLMNOPQRSTUWXYZ.
% \test ~!\#\$\%()-.
% }
%
% {\fontencoding{T1}\itshape\noindent Test of ectiup1000 \\
% \test abcdefghijklmnopqrstuwxyz.
% \test ABCDEFGHIJKLMNOPQRSTUWXYZ.
% \test ~!\#\$\%()-.
% }
%
% {\fontencoding{T1}\itshape\bfseries\noindent Test of ecbiup1000 \\
% \test abcdefghijklmnopqrstuwxyz.
% \test ABCDEFGHIJKLMNOPQRSTUWXYZ.
% \test ~!\#\$\%()-.
% }
%
%
%
%
% \clearpage
% \section{Latex support}
%    \begin{macrocode}
%<*package>
%    \end{macrocode}
%  The all we need here is just to redefine current italic font shape
% description at the very beginning of our document.
%    \begin{macrocode}
\DeclareFontShape{OT1}{cmr}{m}{it}%
     {%
      <5><6><7>cmtiup7%
      <8>cmtiup8%
      <9>cmtiup9%
      <10><10.95>cmtiup10%
      <12><14.4><17.28><20.74><24.88>cmtiup12%
      }{}
\DeclareFontShape{OT1}{cmr}{bx}{it}
      {%
      <5><6><7><8><9>%
      <10><10.95><12><14.4><17.28><20.74><24.88>cmbxtiup10%
      }{}
\providecommand{\EC@family}[5]{%
  \DeclareFontShape{#1}{#2}{#3}{#4}%
  {<5><6><7><8><9><10><10.95><12><14.4>%
   <17.28><20.74><24.88><29.86><35.83>genb*#5}{}}
\EC@family{T1}{cmr}{m}{it}{ectiup}
\EC@family{T1}{cmr}{bx}{it}{ecbiup}
%</package>
%    \end{macrocode}
% 
% \clearpage
% \begin{multicols}{2}[\section{Metafont file sources}]
%  All the driver files differs by one line and just load font parameters
%  from the corresponding CMTI sources
%  \subsection{File \FileName{cmtiup7.mf}}
%    \begin{macrocode}
%<*cmtiup7>
%%%%%%   File cmtiup7.mf  %%%%%%%%
if unknown cmbase: input cmbase fi
%    \end{macrocode}
% Load parameters from \FileName{cmti7.mf} file
%    \begin{macrocode}
let generate=relax;
let textit=relax;
font_size 7pt; input cmti7;
font_identifier:="CMTI UnSlPunct";
%    \end{macrocode}
% And run the driver cmtiupgn below;
%    \begin{macrocode}
input cmtiupgn;
%</cmtiup7>
%    \end{macrocode}
%  \subsection{File \FileName{cmtiup8.mf}}
%    \begin{macrocode}
%<*cmtiup8>
%%%%%%   File cmtiup8.mf  %%%%%%%%
if unknown cmbase: input cmbase fi
%    \end{macrocode}
% Load parameters from \FileName{cmti8.mf} file
%    \begin{macrocode}
let generate=relax;
let textit=relax;
font_size 8pt; input cmti8;
font_identifier:="CMTI UnSlPunct";
%    \end{macrocode}
% And run the driver cmtiupgn below;
%    \begin{macrocode}
input cmtiupgn;
%</cmtiup8>
%    \end{macrocode}
%  \subsection{File \FileName{cmtiup9.mf}}
%    \begin{macrocode}
%<*cmtiup9>
%%%%%%   File cmtiup9.mf  %%%%%%%%
if unknown cmbase: input cmbase fi
%    \end{macrocode}
% Load parameters from \FileName{cmti9.mf} file
%    \begin{macrocode}
let generate=relax;
let textit=relax;
font_size 9pt; input cmti9;
font_identifier:="CMTI UnSlPunct";
%    \end{macrocode}
% And run the driver cmtiupgn below;
%    \begin{macrocode}
input cmtiupgn;
%</cmtiup9>
%    \end{macrocode}
%  \subsection{File \FileName{cmtiup10.mf}}
%    \begin{macrocode}
%<*cmtiup10>
%%%%%%   File cmtiup10.mf  %%%%%%%%
if unknown cmbase: input cmbase fi
%    \end{macrocode}
% Load parameters from \FileName{cmti10.mf} file
%    \begin{macrocode}
let generate=relax;
let textit=relax;
font_size 10pt; input cmti10;
font_identifier:="CMTI UnSlPunct";
%    \end{macrocode}
% And run the driver cmtiupgn below;
%    \begin{macrocode}
input cmtiupgn;
%</cmtiup10>
%    \end{macrocode}
%  \subsection{File \FileName{cmtiup12.mf}}
%    \begin{macrocode}
%<*cmtiup12>
%%%%%%   File cmtiup12.mf  %%%%%%%%
if unknown cmbase: input cmbase fi
%    \end{macrocode}
% Load parameters from \FileName{cmti12.mf} file
%    \begin{macrocode}
let generate=relax;
let textit=relax;
font_size 12pt; input cmti12;
font_identifier:="CMTI UnSlPunct";
%    \end{macrocode}
% And run the driver cmtiupgn below;
%    \begin{macrocode}
input cmtiupgn;
%</cmtiup12>
%    \end{macrocode}
% \end{multicols}
%  \subsection{File \FileName{cmtiupgn.mf}}
% File starts from Knuth copyright
%    \begin{macrocode}
%<*cmtiupgn>
%%  The Computer Modern Text Italic family (by D. E. Knuth, 1979--1985)
%%  driver with the unslanted digits and symbols by SVZ (1.3 2003/01/03)
mode_setup; font_setup;

input itall;  % lower case (minuscules)
input italsp;  % lowercase specials (dotless \i, ligature \ae, etc.)

if ligs>1: font_coding_scheme:="TeX text";
 spanish_shriek=oct"074"; spanish_query=oct"076";
%% input italig;  % letter ligatures
input cmtiuplg;  % unproper here kerning removed from Knuth italig.mf;
else: font_coding_scheme:=if ligs=0: "TeX typewriter text"
  else: "TeX text without f-ligatures" fi;
 spanish_shriek=oct"016"; spanish_query=oct"017"; fi
font_slant slant; font_x_height x_height#;

if monospace: font_normal_space 9u#; % no stretching or shrinking
 font_quad 18u#;
 font_extra_space 9u#;
 letter_fit#:=letter_fit:=0;
else: font_normal_space 6u#+2letter_fit#;
 font_normal_stretch 3u#; font_normal_shrink 2u#;
 font_quad 18u#+4letter_fit#;
 font_extra_space 2u#; fi

input romanu;  % upper case (majuscules)
input greeku;  % upper case greek letters
input romspu;  % uppercase specials (\AE, \OE, \O)
input accent;  % accents common to roman and italic text

if ligs>0: input comlig; fi  % ligatures common with roman text
if ligs<=1: input romsub; fi  % substitutes for ligatures
%    \end{macrocode}
% Save slant parameter and input special italic punctuation,
% where only the question mark should be unslanted:
%    \begin{macrocode}
new_slant=slant;
input cmtiupp
%    \end{macrocode}
% In cmtiupp slant was switched off;
% Input  other punctuation and digits as in roman:
%    \begin{macrocode}
input romand;  % numerals
input punct;  % punctuation symbols common to roman and italic text
ligtable "!": "`" =: spanish_shriek;
ligtable "?": "`" =: spanish_query;
%    \end{macrocode}
% Restore original slant:
%    \begin{macrocode}
slant:=new_slant;
font_setup;
%    \end{macrocode}
% Define Three kerning scales - first after tall characters:
%    \begin{macrocode}
def addkern=":"kern 3u#,
";"kern 3u#,"!"kern 3u#,"("kern 3u#,")"kern 3u#,"]"kern 3u#,"["kern 3u#,
"?"kern 3u#,"0"kern 3u#,"1"kern 3u#,"2"kern 3u#,"3"kern 3u#,"4"kern 3u#,
"5"kern 3u#,"6"kern 3u#,"7"kern 3u#,"8"kern 3u#,"9"kern 3u#,
"#"kern 3u#,"%"kern 3u#,"@"kern 3u#,
"*"kern 1.5u#,"+"kern 1.5u#,"/"kern 3u#, spanish_shriek kern 3u#,
spanish_query kern 3u# enddef;
%    \end{macrocode}
% Second kerning scale applies after a middle height characters
%    \begin{macrocode}
def addkerns=":"kern 1.5u#,
";"kern 1.5u#,"!"kern 2u#,"("kern 2u#,")"kern 2u#,"]"kern 2u#,"["kern 2u#,
"?"kern 2u#,"0"kern 1.5u#,"1"kern 2u#,"2"kern 2u#,"3"kern 2u#,"4"kern 1.5u#,
"5"kern 2u#,"6"kern 1.5u#,"7"kern 2u#,"8"kern 2u#,"9"kern 2u#,
"#"kern 2u#,"%"kern 1.5u#,"@"kern 2u#,
"*"kern 1.5u#,"+"kern 1.5u#,"/"kern 2u#, spanish_shriek kern 2u#,
spanish_query kern 2u# enddef;
%    \end{macrocode}
% And the last - for the little ones.
%    \begin{macrocode}
def addkernss=":"kern u#,
";"kern u#,"!"kern u#,"("kern u#,")"kern u#,"]"kern u#,"["kern u#,
"?"kern u#,"0"kern u#,"1"kern u#,"2"kern u#,"3"kern u#,"4"kern u#,
"5"kern u#,"6"kern u#,"7"kern u#,"8"kern u#,"9"kern u#,
"#"kern u#,"%"kern u#,"@"kern u#,
"*"kern u#,"+"kern u#,"/"kern u#, spanish_shriek kern u#,
spanish_query kern u# enddef;
%    \end{macrocode}
% Finaly apply extra kerns:
%    \begin{macrocode}
if not monospace:
 k#:=-.5u#; kk#:=-1.5u#; kkk#:=-2u#; % three degrees of kerning
 ligtable "d": "w": "l": "l" kern +u#, addkerns;
 ligtable "F": "V": "o" kern kk#, "e" kern kk#,
   "u" kern kk#, "r" kern kk#, "a" kern kk#, "A" kern kkk#,
  "K": "X": "O" kern k#, "C" kern k#, "G" kern k#, "Q" kern k#, addkerns;
 ligtable "T": "y" kern kk#,
  "Y": "e" kern kk#, "o" kern kk#, "r" kern kk#, "a" kern kk#, "u" kern kk#,
  "W": "A" kern kk#, addkern;
 ligtable  "P": "A" kern kk#, addkerns;
 ligtable "O": "D": "X" kern k#, "W" kern k#, "A" kern k#,
   "V" kern k#, "Y" kern k#, addkerns;
 ligtable "A": "n" kern k#, "l" kern k#, "r" kern k#, "u" kern k#,
   "m" kern k#, "t" kern k#, "i" kern k#, "C" kern k#, "O" kern k#,
   "G" kern k#, "h" kern k#, "b" kern k#, "U" kern k#, "k" kern k#,
   "v" kern k#, "w" kern k#, "Q" kern k#,
   "T" kern kk#, "Y" kern kk#,
   "V" kern kkk#, "W" kern kkk#,
   "e" kern -u#, "a" kern -u#, "o" kern -u#,
   "d" kern -u#, "c" kern -u#, "g" kern -u#, "q" kern -u#, addkernss;
 ligtable "R": "n" kern k#, "l" kern k#, "r" kern k#, "u" kern k#,
   "m" kern k#, "t" kern k#, "i" kern k#, "C" kern k#, "O" kern k#,
   "G" kern k#, "h" kern k#, "b" kern k#, "U" kern k#, "k" kern k#,
   "v" kern k#, "w" kern k#, "Q" kern k#,
   "L": "T" kern kk#, "Y" kern kk#, "V" kern kkk#, "W" kern kkk#, addkerns,
   "e" kern -u#, "a" kern -u#, "o" kern -u#, "d" kern -u#, "c" kern -u#,
   "g" kern -u#, "q" kern -u#;
 ligtable "b": "c": "e": "o": "p": "r": "e" kern -u#, "a" kern -u#,
   "o" kern -u#, "d" kern -u#, "c" kern -u#, "g" kern -u#, "q" kern -u#,
   addkernss;
 ligtable "n": "'" kern kkk#, addkerns;
 ligtable "U": "I": "H": "J":"M": "N":"Z": addkern;
 ligtable "Q": "E": "S": "G": "B": "C":  "q": "t": "y": "u": "i": "a":
  "s": "g": "h": "j": "k": "m": "v": "x": "z": addkerns;

ligtable "f": "i"=:oct"014", "f"=:oct"013", "l"=:oct"015","'" kern 2u#,
  addkern;
ligtable oct"013": "i"=:oct"016", "l"=:oct"017","'" kern 2u#,
  addkern;
 fi
%% there are ligature/kern programs
%% for |"-"|, |"`"|, and |"'"| in the {\tt comlig} file
bye.
%</cmtiupgn>
%    \end{macrocode}
%  \subsection{File \FileName{cmtiupp.mf}}
% This is the  Knuth \FileName{italp.mf} where  
% switching slant off before question marks added;
%    \begin{macrocode}
%<*cmtiupp>

% This file contains `\$' and `\&' and `?' in the so-called italic style.

% Codes \0044, \0046, and \0077 are generated, as well as code |spanish_query|
% (for a Spanish question mark) if that code value is known.

cmchar "Sterling sign";
beginchar("$",12u#,asc_height#,0);
adjust_fit(0,.75asc_height#*slant-.5u#); pickup fine.nib;
pos0(flare,0); pos1(hair,0); pos2(vair,90); pos3(stem,180);
pos4(stem,180); pos4'(stem,0); pos5(vair,-90); z4'=z4;
x2=2/3w-.5u; rt x3l=rt x4l=hround(.5w-u+.5stem); x5=2.5u;
y1=y3=.75h; top y2=h+oo; y4=.25h; bot y5r=-oo;
rt x1r=hround(w-1.5u); bulb(2,1,0);  % bulb
filldraw stroke pulled_arc.e(2,3)..z4e;  % stem
numeric light_stem; light_stem=2/3[vair,vstem];
pos6(.5[hair,light_stem],-180); pos7(light_stem,-300);
pos8(light_stem,-300); pos9(hair,-180);
lft x6r=hround u; x7=3u; x8=w-3.5u; rt x9l=hround(w-u);
y6=.4[y5,y7]; top y7r=vround .2h; bot y8l=-oo; y9=good.y .2h;
filldraw stroke pulled_arc.e(4',5)...z6e{up}...z7e{right}
 ..{right}z8e...{up}z9e;  % loop and arm
pos10(bar,90); pos11(bar,90); x10=3u; x11=w-4.5u;
top y10r=top y11r=vround(.5h+.5bar); filldraw stroke z10e--z11e;  % bar
penlabels(1,2,3,4,5,6,7,8,9,10,11); endchar;

cmchar "Italic ampersand";
beginchar("&",14u#,asc_height#,0);
italcorr asc_height#*slant-1.5u#;
adjust_fit(if monospace:-u#,-2u# else: 0,0 fi); pickup fine.nib;
pos1(flare,0); pos2(hair,0); pos3(vair,90);
rt x2r=hround.5w; x3=1/3(w-u);
top y3r=h+o; y2=.5[x_height,h]; bulb(3,2,1);  % left bulb
pos4(stem,180); pos5(vair,270); pos6(hair,360); pos7(vair,450);
pos8(curve,540); pos9(vair,630); pos10(hair,720);
lft x4r=hround 1.25u; x5=x7=x3+1/6u; rt x6r=hround(x5+1.5u);
lft x8r=hround u; x9=.5w; rt x10r=hround(w-1.5u);
y4=.5[y3,y5]; top y5l=vround .77x_height; y6=.5[y5,y7];
y7l=good.y 1/3[y5,y3]; y8=.5[y7,y9]; bot y9r=-o; y10=bar_height;
pos12(hair,0); pos13(curve,0); pos14(hair,0); pos15(vair,90); pos16(curve,90);
rt x12r=rt x13r=hround(w-2u); lft x14l=hround(.5w+.5u);
x15=x16=rt x14r+u;
y12=y13=h-.5curve; y14=.5[bar_height,x_height];
bot y15l=bot y16l=vround y10;
numeric theta; theta=angle((z12-z14)xscaled 2);
pos11(hair,theta); x11=w-4u; y11=.5[y13,y16];
filldraw stroke pulled_arc.e(3,4) & pulled_arc.e(4,5) & pulled_arc.e(5,6)
 & pulled_arc.e(6,7) & pulled_arc.e(7,8) & pulled_arc.e(8,9)
 & {{interim superness:=more_super; pulled_arc.e(9,10)}}
 ..tension .9 and 1..{dir(theta+100)}z11e;  % bowls, loop, and stem
pos11'(hair,theta-90); z11'=z11;
forsuffixes $=l,r: path p$;
 p$=z12${down}..z11'${-dir theta}..{down}z14$...{right}z15$; endfor
filldraw p.l--reverse p.r--cycle;  % arms
path q[]; q1=z13r{up}..z13l{down}..cycle;
q2=z16l{right}..z16r{left}..cycle;
filldraw subpath(0,ypart(p.l intersectiontimes q1)) of q1--cycle; % upper bulb
filldraw subpath(0,ypart(p.r intersectiontimes q2)) of q2--cycle; % lower bulb
penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); endchar;
%    \end{macrocode}
% And now switch slant off:   
%    \begin{macrocode}

slant:=0; font_setup;

cmchar "Italic question mark";
beginchar("?",9u#,asc_height#,0);
italcorr asc_height#*slant-u#;
adjust_fit(0,0); pickup tiny.nib; pos10(dot_size,0); pos11(dot_size,90);
lft x10l=hround(.5w-.5dot_size); bot y11l=0; z10=z11; dot(10,11);  % dot
pickup fine.nib; pos1(flare,180); pos2(hair,180); pos3(vair,90);
lft x1r=hround u; x3=.5w;
y1-.5flare=x_height; top y3r=h+o; bulb(3,2,1); % bulb
pos8(vair,-90); x8=.5w; bot y8r=.25[top y11r,x_height]+1;
numeric theta; theta=90+angle(10u,y3-y8); slope:=(y3-y8)/10u;
pos3'(vair,-90); z3'=z3; pos0(vstem,theta); x0=x3; y0=1/3[y8,y3];
rt x4l=hround(w-1.5u); lft x7r=hround 1/3w;
x4l-x4r=x7l-x7r=hround .5[vair,vstem]-fine;
ellipse_set(3'l,4l,5l,0l); ellipse_set(3'r,4r,5r,0r); y4=y4r;
ellipse_set(8l,7l,6l,0l); ellipse_set(8r,7r,6r,0r); y7=y7r;
pos9(hair,0); rt x9r=hround(2/3w+.5hair); y9=good.y .5[y8,y0];
filldraw stroke super_arc.e(3',4) & z4e{down}
 ..z5e---z6e..z7e{down} & super_arc.e(7,8)...{up}z9e;  % main stroke
penlabels(0,1,2,3,4,5,6,7,8,9,10,11); endchar;

iff known spanish_query: cmchar "Spanish open italic question mark";
beginchar(spanish_query,9u#,asc_height#-desc_depth#,desc_depth#);
adjust_fit(0,0); pickup tiny.nib; pos10(dot_size,0); pos11(dot_size,90);
lft x10l=hround(.5w-.5dot_size); top y11r=h; z10=z11; dot(10,11);  % dot
pickup fine.nib; pos1(flare,0); pos2(hair,0); pos3(vair,-90);
rt x1r=hround(w-u); x3=.5w; y1+.5flare=asc_height-x_height-d;
bot y3r=-d-o; bulb(3,2,1); % bulb
pos8(vair,90); x8=.5w; top y8r=.25[bot y11l,y1+.5flare]-1;
numeric theta; theta=angle(10u,y8-y3)-90; slope:=(y8-y3)/10u;
pos3'(vair,90); z3'=z3; pos0(vstem,theta); x0=x3; y0=1/3[y8,y3];
lft x4l=hround 1.5u; rt x7r=hround 2/3w;
x4r-x4l=x7r-x7l=hround .5[vair,vstem]-fine;
ellipse_set(3'l,4l,5l,0l); ellipse_set(3'r,4r,5r,0r); y4=y4r;
ellipse_set(8l,7l,6l,0l); ellipse_set(8r,7r,6r,0r); y7=y7r;
pos9(hair,180); lft x9r=hround(1/3w-.5hair); y9=good.y .5[y8,y0];
filldraw stroke super_arc.e(3',4) & z4e{up}
 ..z5e---z6e..z7e{up} & super_arc.e(7,8)...{down}z9e;  % main stroke
penlabels(0,1,2,3,4,5,6,7,8,9,10,11); endchar;
%</cmtiupp>
%    \end{macrocode}
%  \subsection{File \FileName{cmtiupgn.mf}}
% This is just the Knuth \FileName{italig.mf} without kernibg lines;
%    \begin{macrocode}
%<*cmtiuplg>
%% This file describes five italic ligatures that begin with `f'
%% and puts them in code positions \0013--\0017.
%% The only differnce with the original italig.mf is the following
%% few lines have been commented.
%% numeric itc; % modified italic correction on `f' and `ff'
%% itc=(asc_height#-x_height#)*slant+.75u#;
%%
%% ligtable "f": "i"=:oct"014", "f"=:oct"013", "l"=:oct"015",
%%  "'" kern itc, "?" kern itc, "!" kern itc, ")" kern itc, "]" kern itc;
%% ligtable oct"013": "i"=:oct"016", "l"=:oct"017",
%%  "'" kern itc, "?" kern itc, "!" kern itc, ")" kern itc, "]" kern itc;

cmchar "Italic ligature ff";
beginchar(oct"013",5u#+max(1.5u#,stem#)+max(3.5u#,2flare#)+2letter_fit#,
 asc_height#,desc_depth#);
italcorr asc_height#*slant+.75u#;
adjust_fit(0,0); pickup fine.nib;
z98-z88=z99-z89=z14-z4=z15-z5=(4.8u+2letter_fit,0);
.5[x88,x99]=.5w-.1u; x89-x88=u; y98=h; y99=-d;
numeric theta; theta=angle(z88-z89);
pos0(flare,0); pos1(hair,0); pos2(vair,90);
pos3(.5[hair,stem],180); pos4(stem,theta+90);
pos5(stem,theta-90); pos6(.5[hair,stem],0);
pos7(vair,-90); pos8(hair,-180); pos9(flare,-180);
rt x1r=hround(.5w+1.25u); lft x8r=hround-.35u; x2=.5[x1,x4]; x7=.6[x8,x5];
y9-.5flare=vround -.85d; y2-y0=y9-y7; top y2r=h+oo; bot y7r=-d-oo;
y4=.25[x_height,h]; y5=.5[-d,y4];
z4=whatever[z88,z89]; z5=whatever[z88,z89];
x3=.8[x2+x4-x88,x88]; x6=.8[x7+x5-x89,x89]; y3=.8[y4,y2]; y6=.8[y5,y7];
bulb(2,1,0); bulb(7,8,9);  % left bulbs
filldraw stroke z2e{left}...z3e...{z89-z88}z4e;  % upper middle arc
filldraw z4r--z5l--z5r--z4l--cycle;  % left stem
filldraw stroke z5e{z89-z88}...z6e...{left}z7e;  % lower left arc
pos10(flare,0); pos11(hair,0); pos12(vair,90);
pos13(.5[hair,stem],180); pos14(stem,theta+90);
pos15(stem,theta-90); pos16(.5[hair,stem],0);
pos17(vair,-90); pos18(hair,-180); pos19(flare,-180);
rt x11r=hround(w+.25u); lft x18r=hround(.5w-1.25u);
x12=.6[x11,x14]; x17=.5[x18,x15];
x13=.8[x12+x14-x98,x98]; x16=.8[x17+x15-x99,x99];
y0=y10; y2=y12; y3=y13; y6=y16; y7=y17; y9=y19;
bulb(12,11,10); bulb(17,18,19);  % right bulbs
filldraw stroke z12e{left}...z13e...{z99-z98}z14e;  % upper right arc
filldraw z14r--z15l--z15r--z14l--cycle;  % right stem
filldraw stroke z15e{z99-z98}...z16e...{left}z17e;  % lower middle arc
pickup crisp.nib; pos20(bar,90); pos21(bar,90);
top y20r=top y21r=x_height;
lft x20=lft x4r-.5stem-u; rt x21=rt x14l+.5stem+1.5u;
filldraw stroke z20e--z21e;  %  crossbar
penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,
 20,21,88,89,98,99); endchar;

cmchar "Italic ligature fi";
beginchar(oct"014",6.5u#+.5max(1.5u#,stem#)+.5max(3.5u#,2flare#)
 +2letter_fit#,asc_height#,desc_depth#);
italcorr max(asc_height#*slant+.5stem#-2u#,1/3x_height#*slant+.5hair#+.5u#);
adjust_fit(0,0); pickup fine.nib;
.5[x88,x89]=.5(w-4u-2letter_fit); x89-x88=u; y88=h; y89=-d;
numeric theta; theta=angle(z88-z89);
pos0(flare,0); pos1(hair,0); pos2(vair,90);
pos3(.5[hair,stem],180); pos4(stem,theta+90);
pos5(stem,theta-90); pos6(.5[hair,stem],0);
pos7(vair,-90); pos8(hair,-180); pos9(flare,-180);
pos11(stem,0); rt x11r=hround(w-2.5u+.5stem);
x12=x11; x14=w; hook_out(12,13,14);  % closing hook
x1r=x11r; lft x8r=hround-.35u; x2=.5[x1,x4]; x7=.6[x8,x5];
y9-.5flare=vround-.85d; bot y7r=-d-oo;
y0+.5flare=vround(.85[x_height,h]); top y2r=h+oo;
y4=.25[x_height,h]; y5=.5[-d,y4];
z4=whatever[z88,z89]; z5=whatever[z88,z89];
x3=.8[x2+x4-x88,x88]; x6=.8[x7+x5-x89,x89]; y3=.8[y4,y2]; y6=.8[y5,y7];
bulb(2,1,0); bulb(7,8,9);  % bulbs
filldraw stroke z2e{left}...z3e...{z89-z88}z4e;  % upper arc
filldraw z4r--z5l--z5r--z4l--cycle;  % left stem
filldraw stroke z5e{z89-z88}...z6e...{left}z7e;  % lower arc
top y11=x_height; filldraw stroke z11e--z12e;  % right stem
pickup crisp.nib; pos20(bar,90); pos21(bar,90);
top y20r=top y21r=x_height;
lft x20=lft x4r-.5stem-u; x21=x11;
filldraw stroke z20e--z21e;  %  crossbar
penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,20,21,88,89); endchar;

cmchar "Italic ligature fl";
beginchar(oct"015",7u#+.5max(1.5u#,stem#)+.5max(3.5u#,2flare#)
 +2letter_fit#,asc_height#,desc_depth#);
italcorr max(asc_height#*slant+.5stem#-2u#,1/3x_height#*slant+.5hair#+.5u#);
adjust_fit(0,0); pickup fine.nib;
.5[x88,x89]=.5(w-4.5u-2letter_fit); x89-x88=u; y88=h; y89=-d;
numeric theta; theta=angle(z88-z89);
pos0(flare,0); pos1(hair,0); pos2(vair,90);
pos3(.5[hair,stem],180); pos4(stem,theta+90);
pos5(stem,theta-90); pos6(.5[hair,stem],0);
pos7(vair,-90); pos8(hair,-180); pos9(flare,-180);
pos11(stem,0); rt x11r=hround(w-2.5u+.5stem); rt x1r=lft x11l;
x12=x11; x14=w; hook_out(12,13,14);  % closing hook
lft x8r=hround-.35u; x2=.5[x1,x4]; x7=.6[x8,x5];
y9-.5flare=vround -.85d; y2-y0=y9-y7; top y2r=h+oo; bot y7r=-d-oo;
y4=.25[x_height,h]; y5=.5[-d,y4];
z4=whatever[z88,z89]; z5=whatever[z88,z89];
x3=.8[x2+x4-x88,x88]; x6=.8[x7+x5-x89,x89]; y3=.8[y4,y2]; y6=.8[y5,y7];
bulb(2,1,0); bulb(7,8,9);  % bulbs
filldraw stroke z2e{left}...z3e...{z89-z88}z4e;  % upper arc
filldraw z4r--z5l--z5r--z4l--cycle;  % left stem
filldraw stroke z5e{z89-z88}...z6e...{left}z7e;  % lower arc
top y11=h; filldraw stroke z11e--z12e;  % right stem
pickup crisp.nib; pos20(bar,90); pos21(bar,90);
top y20r=top y21r=x_height;
lft x20=lft x4r-.5stem-u; x21=x11;
filldraw stroke z20e--z21e;  %  crossbar
penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,20,21,88,89); endchar;

cmchar "Italic ligature ffi";
beginchar(oct"016",11.75u#+.5max(1.5u#,stem#)+.5max(3.5u#,2flare#)
 +4letter_fit#,asc_height#,desc_depth#);
italcorr max(asc_height#*slant+.5stem#-2u#,1/3x_height#*slant+.5hair#+.5u#);
adjust_fit(0,0); pickup fine.nib;
z98-z88=z99-z89=z14-z4=z15-z5=(5u+2letter_fit,0);
numeric theta,mid_f;
mid_f=.5[x88,x99]=.5(w-4.25u-2letter_fit); x89-x88=u;
y98=h; y99=-d; theta=angle(z88-z89);
pos21(stem,0); rt x21r=hround(w-2.5u+.5stem);
x22=x21; x24=w; hook_out(22,23,24);  % closing hook
pos0(flare,0); pos1(hair,0); pos2(vair,90);
pos3(.5[hair,stem],180); pos4(stem,theta+90);
pos5(stem,theta-90); pos6(.5[hair,stem],0);
pos7(vair,-90); pos8(hair,-180); pos9(flare,-180);
rt x1r=hround(mid_f+1.75u); lft x8r=hround-.35u;
x2=.5[x1,x4]; x7=.6[x8,x5];
y9-.5flare=vround -.85d; y2-y0=y9-y7; top y2r=h+oo; bot y7r=-d-oo;
y4=.25[x_height,h]; y5=.5[-d,y4];
z4=whatever[z88,z89]; z5=whatever[z88,z89];
x3=.8[x2+x4-x88,x88]; x6=.8[x7+x5-x89,x89]; y3=.8[y4,y2]; y6=.8[y5,y7];
bulb(2,1,0); bulb(7,8,9);  % left bulbs
filldraw stroke z2e{left}...z3e...{z89-z88}z4e;  % upper middle arc
filldraw z4r--z5l--z5r--z4l--cycle;  % left stem
filldraw stroke z5e{z89-z88}...z6e...{left}z7e;  % lower left arc
pos10(flare,0); pos11(hair,0); pos12(vair,90);
pos13(.5[hair,stem],180); pos14(stem,theta+90);
pos15(stem,theta-90); pos16(.5[hair,stem],0);
pos17(vair,-90); pos18(hair,-180); pos19(flare,-180);
x11r=x21r; lft x18r=hround(mid_f-1.25u); x12=.5[x11,x14]; x17=.5[x18,x15];
x13=.8[x12+x14-x98,x98]; x16=.8[x17+x15-x99,x99];
y10+.5flare=vround .85[x_height,h];
y2=y12; y3=y13; y6=y16; y7=y17; y9=y19;
bulb(12,11,10); bulb(17,18,19);  % right bulbs
filldraw stroke z12e{left}...z13e...{z99-z98}z14e;  % upper right arc
filldraw z14r--z15l--z15r--z14l--cycle;  % middle stem
filldraw stroke z15e{z99-z98}...z16e...{left}z17e;  % lower middle arc
top y21=x_height; filldraw stroke z21e--z22e;  % right stem
pickup crisp.nib; pos30(bar,90); pos31(bar,90);
top y30r=top y31r=x_height;
lft x30=lft x4r-.5stem-u; x31=x21;
filldraw stroke z30e--z31e;  %  crossbar
penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,
 20,21,22,23,24,30,31,88,89,98,99); endchar;

cmchar "Italic ligature ffl";
beginchar(oct"017",12u#+.5max(1.5u#,stem#)+.5max(3.5u#,2flare#)
 +4letter_fit#,asc_height#,desc_depth#);
italcorr max(asc_height#*slant+.5stem#-2u#,1/3x_height#*slant+.5hair#+.5u#);
adjust_fit(0,0); pickup fine.nib;
z98-z88=z99-z89=z14-z4=z15-z5=(5u+2letter_fit,0);
numeric theta,mid_f;
mid_f=.5[x88,x99]=.5(w-4.5u-2letter_fit); x89-x88=u;
y98=h; y99=-d; theta=angle(z88-z89);
pos21(stem,0); rt x21r=hround(w-2.5u+.5stem);
x22=x21; x24=w; hook_out(22,23,24);  % closing hook
pos0(flare,0); pos1(hair,0); pos2(vair,90);
pos3(.5[hair,stem],180); pos4(stem,theta+90);
pos5(stem,theta-90); pos6(.5[hair,stem],0);
pos7(vair,-90); pos8(hair,-180); pos9(flare,-180);
rt x1r=hround(mid_f+1.25u); lft x8r=hround-.35u;
x2=.5[x1,x4]; x7=.6[x8,x5];
y9-.5flare=vround -.85d; y2-y0=y9-y7; top y2r=h+oo; bot y7r=-d-oo;
y4=.25[x_height,h]; y5=.5[-d,y4];
z4=whatever[z88,z89]; z5=whatever[z88,z89];
x3=.8[x2+x4-x88,x88]; x6=.8[x7+x5-x89,x89]; y3=.8[y4,y2]; y6=.8[y5,y7];
bulb(2,1,0); bulb(7,8,9);  % left bulbs
filldraw stroke z2e{left}...z3e...{z89-z88}z4e;  % upper middle arc
filldraw z4r--z5l--z5r--z4l--cycle;  % left stem
filldraw stroke z5e{z89-z88}...z6e...{left}z7e;  % lower left arc
pos10(flare,0); pos11(hair,0); pos12(vair,90);
pos13(.5[hair,stem],180); pos14(stem,theta+90);
pos15(stem,theta-90); pos16(.5[hair,stem],0);
pos17(vair,-90); pos18(hair,-180); pos19(flare,-180); rt x11r=lft x21l;
lft x18r=hround(mid_f-1.25u); x12=.5[x11,x14]; x17=.5[x18,x15];
x13=.8[x12+x14-x98,x98]; x16=.8[x17+x15-x99,x99];
y0=y10; y2=y12; y3=y13; y6=y16; y7=y17; y9=y19;
bulb(12,11,10); bulb(17,18,19);  % right bulbs
filldraw stroke z12e{left}...z13e...{z99-z98}z14e;  % upper right arc
filldraw z14r--z15l--z15r--z14l--cycle;  % middle stem
filldraw stroke z15e{z99-z98}...z16e...{left}z17e;  % lower middle arc
top y21=h; filldraw stroke z21e--z22e;  % right stem
pickup crisp.nib; pos30(bar,90); pos31(bar,90);
top y30r=top y31r=x_height;
lft x30=lft x4r-.5stem-u; x31=x21;
filldraw stroke z30e--z31e;  %  crossbar
penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,
 20,21,22,23,24,30,31,88,89,98,99); endchar;
%</cmtiuplg>
%    \end{macrocode}
% \clearpage
% \section{Virtual fonts Properties List files}
% After running metafont on \verb|cmtiup*.mf|, I have got the
% \verb|cmtiup*.pl| file by applying tftopl program to
% corresponding \verb|cmtiup.tfm|. This file has been edited by
% script to get a proper \verb|cmtiup*.vpl| file with correct
% charwidhts:
% \font\CharDemofont=cmr10 at 12pt
% \catcode`\@=11
% \def\macro@font{\fontencoding\encodingdefault
%  \fontfamily\ttdefault
%  \fontseries\mddefault
%  \fontshape\updefault
%  \scriptsize}
% \catcode`\@=12
% \subsection{File \FileName{cmtiup7.vpl}}
%    \begin{macrocode}
%<*cmtiup7vpl>
(VTITLE cmti7 with unslanted punctuation from cmr7 by SVZ, v.1.2 2001/01/08)
%    \end{macrocode}
% \begin{multicols}3
%    \begin{macrocode}
(FAMILY CMTI UNSLPUNCT)
(FACE O 360)
(CODINGSCHEME TEX TEXT)
(DESIGNSIZE R 7.0)
(CHECKSUM O 16437256312)
(FONTDIMEN
    (SLANT R 0.25)
    (SPACE R 0.426989)
    (STRETCH R 0.176193)
    (SHRINK R 0.117462)
    (XHEIGHT R 0.430555)
    (QUAD R 1.206365)
    (EXTRASPACE R 0.117462))
(MAPFONT D 0
    (FONTNAME cmti7)
    (FONTCHECKSUM O 16437256312)
    (FONTAT R 1.0)
    (FONTDSIZE R 7.0))
(MAPFONT D 1
    (FONTNAME cmr7)
    (FONTCHECKSUM O 33144720122)
    (FONTAT R 1.0)
    (FONTDSIZE R 7.0))
(LIGTABLE
    (LABEL O 40)
    (KRN C l R -0.309526)
    (KRN C L R -0.382148)
    (STOP)
    (LABEL O 140)
    (LIG O 140 O 134)
    (STOP)
    (LABEL O 47)
    (LIG O 47 O 42)
    (KRN O 77 R 0.117462)
    (KRN O 41 R 0.117462)
    (STOP)
    (LABEL O 55)
    (LIG O 55 O 173)
    (STOP)
    (LABEL O 173)
    (LIG O 55 O 174)
    (STOP)
    (LABEL O 41)
    (LIG O 140 O 74)
    (STOP)
    (LABEL O 77)
    (LIG O 140 O 76)
    (STOP)
    (LABEL C d)
    (LABEL C l)
    (LABEL C w)
    (KRN C l R 0.058731)
    (KRN O 72 R 0.088098)
    (KRN O 73 R 0.088098)
    (KRN O 41 R 0.117462)
    (KRN O 50 R 0.117462)
    (KRN O 51 R 0.117462)
    (KRN O 135 R 0.117462)
    (KRN O 133 R 0.117462)
    (KRN O 77 R 0.117462)
    (KRN C 0 R 0.088098)
    (KRN C 1 R 0.117462)
    (KRN C 2 R 0.117462)
    (KRN C 3 R 0.117462)
    (KRN C 4 R 0.088098)
    (KRN C 5 R 0.117462)
    (KRN C 6 R 0.088098)
    (KRN C 7 R 0.117462)
    (KRN C 8 R 0.117462)
    (KRN C 9 R 0.117462)
    (KRN O 43 R 0.117462)
    (KRN O 45 R 0.088098)
    (KRN O 100 R 0.117462)
    (KRN O 52 R 0.088098)
    (KRN O 53 R 0.088098)
    (KRN O 57 R 0.117462)
    (KRN O 74 R 0.117462)
    (KRN O 76 R 0.117462)
    (STOP)
    (LABEL C F)
    (LABEL C V)
    (KRN C o R -0.088098)
    (KRN C e R -0.088098)
    (KRN C u R -0.088098)
    (KRN C r R -0.088098)
    (KRN C a R -0.088098)
    (KRN C A R -0.117462)
    (LABEL C K)
    (LABEL C X)
    (KRN C O R -0.0293665)
    (KRN C C R -0.0293665)
    (KRN C G R -0.0293665)
    (KRN C Q R -0.0293665)
    (KRN O 72 R 0.088098)
    (KRN O 73 R 0.088098)
    (KRN O 41 R 0.117462)
    (KRN O 50 R 0.117462)
    (KRN O 51 R 0.117462)
    (KRN O 135 R 0.117462)
    (KRN O 133 R 0.117462)
    (KRN O 77 R 0.117462)
    (KRN C 0 R 0.088098)
    (KRN C 1 R 0.117462)
    (KRN C 2 R 0.117462)
    (KRN C 3 R 0.117462)
    (KRN C 4 R 0.088098)
    (KRN C 5 R 0.117462)
    (KRN C 6 R 0.088098)
    (KRN C 7 R 0.117462)
    (KRN C 8 R 0.117462)
    (KRN C 9 R 0.117462)
    (KRN O 43 R 0.117462)
    (KRN O 45 R 0.088098)
    (KRN O 100 R 0.117462)
    (KRN O 52 R 0.088098)
    (KRN O 53 R 0.088098)
    (KRN O 57 R 0.117462)
    (KRN O 74 R 0.117462)
    (KRN O 76 R 0.117462)
    (STOP)
    (LABEL C T)
    (KRN C y R -0.088098)
    (LABEL C Y)
    (KRN C e R -0.088098)
    (KRN C o R -0.088098)
    (KRN C r R -0.088098)
    (KRN C a R -0.088098)
    (KRN C u R -0.088098)
    (LABEL C W)
    (KRN C A R -0.088098)
    (KRN O 72 R 0.176193)
    (KRN O 73 R 0.176193)
    (KRN O 41 R 0.176193)
    (KRN O 50 R 0.176193)
    (KRN O 51 R 0.176193)
    (KRN O 135 R 0.176193)
    (KRN O 133 R 0.176193)
    (KRN O 77 R 0.176193)
    (KRN C 0 R 0.176193)
    (KRN C 1 R 0.176193)
    (KRN C 2 R 0.176193)
    (KRN C 3 R 0.176193)
    (KRN C 4 R 0.176193)
    (KRN C 5 R 0.176193)
    (KRN C 6 R 0.176193)
    (KRN C 7 R 0.176193)
    (KRN C 8 R 0.176193)
    (KRN C 9 R 0.176193)
    (KRN O 43 R 0.176193)
    (KRN O 45 R 0.176193)
    (KRN O 100 R 0.176193)
    (KRN O 52 R 0.088098)
    (KRN O 53 R 0.088098)
    (KRN O 57 R 0.176193)
    (KRN O 74 R 0.176193)
    (KRN O 76 R 0.176193)
    (STOP)
    (LABEL C P)
    (KRN C A R -0.088098)
    (KRN O 72 R 0.088098)
    (KRN O 73 R 0.088098)
    (KRN O 41 R 0.117462)
    (KRN O 50 R 0.117462)
    (KRN O 51 R 0.117462)
    (KRN O 135 R 0.117462)
    (KRN O 133 R 0.117462)
    (KRN O 77 R 0.117462)
    (KRN C 0 R 0.088098)
    (KRN C 1 R 0.117462)
    (KRN C 2 R 0.117462)
    (KRN C 3 R 0.117462)
    (KRN C 4 R 0.088098)
    (KRN C 5 R 0.117462)
    (KRN C 6 R 0.088098)
    (KRN C 7 R 0.117462)
    (KRN C 8 R 0.117462)
    (KRN C 9 R 0.117462)
    (KRN O 43 R 0.117462)
    (KRN O 45 R 0.088098)
    (KRN O 100 R 0.117462)
    (KRN O 52 R 0.088098)
    (KRN O 53 R 0.088098)
    (KRN O 57 R 0.117462)
    (KRN O 74 R 0.117462)
    (KRN O 76 R 0.117462)
    (STOP)
    (LABEL C D)
    (LABEL C O)
    (KRN C X R -0.0293665)
    (KRN C W R -0.0293665)
    (KRN C A R -0.0293665)
    (KRN C V R -0.0293665)
    (KRN C Y R -0.0293665)
    (KRN O 72 R 0.088098)
    (KRN O 73 R 0.088098)
    (KRN O 41 R 0.117462)
    (KRN O 50 R 0.117462)
    (KRN O 51 R 0.117462)
    (KRN O 135 R 0.117462)
    (KRN O 133 R 0.117462)
    (KRN O 77 R 0.117462)
    (KRN C 0 R 0.088098)
    (KRN C 1 R 0.117462)
    (KRN C 2 R 0.117462)
    (KRN C 3 R 0.117462)
    (KRN C 4 R 0.088098)
    (KRN C 5 R 0.117462)
    (KRN C 6 R 0.088098)
    (KRN C 7 R 0.117462)
    (KRN C 8 R 0.117462)
    (KRN C 9 R 0.117462)
    (KRN O 43 R 0.117462)
    (KRN O 45 R 0.088098)
    (KRN O 100 R 0.117462)
    (KRN O 52 R 0.088098)
    (KRN O 53 R 0.088098)
    (KRN O 57 R 0.117462)
    (KRN O 74 R 0.117462)
    (KRN O 76 R 0.117462)
    (STOP)
    (LABEL C A)
    (KRN C n R -0.0293665)
    (KRN C l R -0.0293665)
    (KRN C r R -0.0293665)
    (KRN C u R -0.0293665)
    (KRN C m R -0.0293665)
    (KRN C t R -0.0293665)
    (KRN C i R -0.0293665)
    (KRN C C R -0.0293665)
    (KRN C O R -0.0293665)
    (KRN C G R -0.0293665)
    (KRN C h R -0.0293665)
    (KRN C b R -0.0293665)
    (KRN C U R -0.0293665)
    (KRN C k R -0.0293665)
    (KRN C v R -0.0293665)
    (KRN C w R -0.0293665)
    (KRN C Q R -0.0293665)
    (KRN C T R -0.088098)
    (KRN C Y R -0.088098)
    (KRN C V R -0.117462)
    (KRN C W R -0.117462)
    (KRN C e R -0.058731)
    (KRN C a R -0.058731)
    (KRN C o R -0.058731)
    (KRN C d R -0.058731)
    (KRN C c R -0.058731)
    (KRN C g R -0.058731)
    (KRN C q R -0.058731)
    (KRN O 72 R 0.058731)
    (KRN O 73 R 0.058731)
    (KRN O 41 R 0.058731)
    (KRN O 50 R 0.058731)
    (KRN O 51 R 0.058731)
    (KRN O 135 R 0.058731)
    (KRN O 133 R 0.058731)
    (KRN O 77 R 0.058731)
    (KRN C 0 R 0.058731)
    (KRN C 1 R 0.058731)
    (KRN C 2 R 0.058731)
    (KRN C 3 R 0.058731)
    (KRN C 4 R 0.058731)
    (KRN C 5 R 0.058731)
    (KRN C 6 R 0.058731)
    (KRN C 7 R 0.058731)
    (KRN C 8 R 0.058731)
    (KRN C 9 R 0.058731)
    (KRN O 43 R 0.058731)
    (KRN O 45 R 0.058731)
    (KRN O 100 R 0.058731)
    (KRN O 52 R 0.058731)
    (KRN O 53 R 0.058731)
    (KRN O 57 R 0.058731)
    (KRN O 74 R 0.058731)
    (KRN O 76 R 0.058731)
    (STOP)
    (LABEL C R)
    (KRN C n R -0.0293665)
    (KRN C l R -0.0293665)
    (KRN C r R -0.0293665)
    (KRN C u R -0.0293665)
    (KRN C m R -0.0293665)
    (KRN C t R -0.0293665)
    (KRN C i R -0.0293665)
    (KRN C C R -0.0293665)
    (KRN C O R -0.0293665)
    (KRN C G R -0.0293665)
    (KRN C h R -0.0293665)
    (KRN C b R -0.0293665)
    (KRN C U R -0.0293665)
    (KRN C k R -0.0293665)
    (KRN C v R -0.0293665)
    (KRN C w R -0.0293665)
    (KRN C Q R -0.0293665)
    (LABEL C L)
    (KRN C T R -0.088098)
    (KRN C Y R -0.088098)
    (KRN C V R -0.117462)
    (KRN C W R -0.117462)
    (KRN O 72 R 0.088098)
    (KRN O 73 R 0.088098)
    (KRN O 41 R 0.117462)
    (KRN O 50 R 0.117462)
    (KRN O 51 R 0.117462)
    (KRN O 135 R 0.117462)
    (KRN O 133 R 0.117462)
    (KRN O 77 R 0.117462)
    (KRN C 0 R 0.088098)
    (KRN C 1 R 0.117462)
    (KRN C 2 R 0.117462)
    (KRN C 3 R 0.117462)
    (KRN C 4 R 0.088098)
    (KRN C 5 R 0.117462)
    (KRN C 6 R 0.088098)
    (KRN C 7 R 0.117462)
    (KRN C 8 R 0.117462)
    (KRN C 9 R 0.117462)
    (KRN O 43 R 0.117462)
    (KRN O 45 R 0.088098)
    (KRN O 100 R 0.117462)
    (KRN O 52 R 0.088098)
    (KRN O 53 R 0.088098)
    (KRN O 57 R 0.117462)
    (KRN O 74 R 0.117462)
    (KRN O 76 R 0.117462)
    (KRN C e R -0.058731)
    (KRN C a R -0.058731)
    (KRN C o R -0.058731)
    (KRN C d R -0.058731)
    (KRN C c R -0.058731)
    (KRN C g R -0.058731)
    (KRN C q R -0.058731)
    (STOP)
    (LABEL C b)
    (LABEL C c)
    (LABEL C e)
    (LABEL C o)
    (LABEL C p)
    (LABEL C r)
    (KRN C e R -0.058731)
    (KRN C a R -0.058731)
    (KRN C o R -0.058731)
    (KRN C d R -0.058731)
    (KRN C c R -0.058731)
    (KRN C g R -0.058731)
    (KRN C q R -0.058731)
    (KRN O 72 R 0.058731)
    (KRN O 73 R 0.058731)
    (KRN O 41 R 0.058731)
    (KRN O 50 R 0.058731)
    (KRN O 51 R 0.058731)
    (KRN O 135 R 0.058731)
    (KRN O 133 R 0.058731)
    (KRN O 77 R 0.058731)
    (KRN C 0 R 0.058731)
    (KRN C 1 R 0.058731)
    (KRN C 2 R 0.058731)
    (KRN C 3 R 0.058731)
    (KRN C 4 R 0.058731)
    (KRN C 5 R 0.058731)
    (KRN C 6 R 0.058731)
    (KRN C 7 R 0.058731)
    (KRN C 8 R 0.058731)
    (KRN C 9 R 0.058731)
    (KRN O 43 R 0.058731)
    (KRN O 45 R 0.058731)
    (KRN O 100 R 0.058731)
    (KRN O 52 R 0.058731)
    (KRN O 53 R 0.058731)
    (KRN O 57 R 0.058731)
    (KRN O 74 R 0.058731)
    (KRN O 76 R 0.058731)
    (STOP)
    (LABEL C n)
    (KRN O 47 R -0.117462)
    (KRN O 72 R 0.088098)
    (KRN O 73 R 0.088098)
    (KRN O 41 R 0.117462)
    (KRN O 50 R 0.117462)
    (KRN O 51 R 0.117462)
    (KRN O 135 R 0.117462)
    (KRN O 133 R 0.117462)
    (KRN O 77 R 0.117462)
    (KRN C 0 R 0.088098)
    (KRN C 1 R 0.117462)
    (KRN C 2 R 0.117462)
    (KRN C 3 R 0.117462)
    (KRN C 4 R 0.088098)
    (KRN C 5 R 0.117462)
    (KRN C 6 R 0.088098)
    (KRN C 7 R 0.117462)
    (KRN C 8 R 0.117462)
    (KRN C 9 R 0.117462)
    (KRN O 43 R 0.117462)
    (KRN O 45 R 0.088098)
    (KRN O 100 R 0.117462)
    (KRN O 52 R 0.088098)
    (KRN O 53 R 0.088098)
    (KRN O 57 R 0.117462)
    (KRN O 74 R 0.117462)
    (KRN O 76 R 0.117462)
    (STOP)
    (LABEL C H)
    (LABEL C I)
    (LABEL C J)
    (LABEL C M)
    (LABEL C N)
    (LABEL C U)
    (LABEL C Z)
    (KRN O 72 R 0.176193)
    (KRN O 73 R 0.176193)
    (KRN O 41 R 0.176193)
    (KRN O 50 R 0.176193)
    (KRN O 51 R 0.176193)
    (KRN O 135 R 0.176193)
    (KRN O 133 R 0.176193)
    (KRN O 77 R 0.176193)
    (KRN C 0 R 0.176193)
    (KRN C 1 R 0.176193)
    (KRN C 2 R 0.176193)
    (KRN C 3 R 0.176193)
    (KRN C 4 R 0.176193)
    (KRN C 5 R 0.176193)
    (KRN C 6 R 0.176193)
    (KRN C 7 R 0.176193)
    (KRN C 8 R 0.176193)
    (KRN C 9 R 0.176193)
    (KRN O 43 R 0.176193)
    (KRN O 45 R 0.176193)
    (KRN O 100 R 0.176193)
    (KRN O 52 R 0.088098)
    (KRN O 53 R 0.088098)
    (KRN O 57 R 0.176193)
    (KRN O 74 R 0.176193)
    (KRN O 76 R 0.176193)
    (STOP)
    (LABEL C B)
    (LABEL C C)
    (LABEL C E)
    (LABEL C G)
    (LABEL C Q)
    (LABEL C S)
    (LABEL C a)
    (LABEL C g)
    (LABEL C h)
    (LABEL C i)
    (LABEL C j)
    (LABEL C k)
    (LABEL C m)
    (LABEL C q)
    (LABEL C s)
    (LABEL C t)
    (LABEL C u)
    (LABEL C v)
    (LABEL C x)
    (LABEL C y)
    (LABEL C z)
    (KRN O 72 R 0.088098)
    (KRN O 73 R 0.088098)
    (KRN O 41 R 0.117462)
    (KRN O 50 R 0.117462)
    (KRN O 51 R 0.117462)
    (KRN O 135 R 0.117462)
    (KRN O 133 R 0.117462)
    (KRN O 77 R 0.117462)
    (KRN C 0 R 0.088098)
    (KRN C 1 R 0.117462)
    (KRN C 2 R 0.117462)
    (KRN C 3 R 0.117462)
    (KRN C 4 R 0.088098)
    (KRN C 5 R 0.117462)
    (KRN C 6 R 0.088098)
    (KRN C 7 R 0.117462)
    (KRN C 8 R 0.117462)
    (KRN C 9 R 0.117462)
    (KRN O 43 R 0.117462)
    (KRN O 45 R 0.088098)
    (KRN O 100 R 0.117462)
    (KRN O 52 R 0.088098)
    (KRN O 53 R 0.088098)
    (KRN O 57 R 0.117462)
    (KRN O 74 R 0.117462)
    (KRN O 76 R 0.117462)
    (STOP)
    (LABEL C f)
    (LIG C i O 14)
    (LIG C f O 13)
    (LIG C l O 15)
    (KRN O 47 R 0.117462)
    (KRN O 72 R 0.176193)
    (KRN O 73 R 0.176193)
    (KRN O 41 R 0.176193)
    (KRN O 50 R 0.176193)
    (KRN O 51 R 0.176193)
    (KRN O 135 R 0.176193)
    (KRN O 133 R 0.176193)
    (KRN O 77 R 0.176193)
    (KRN C 0 R 0.176193)
    (KRN C 1 R 0.176193)
    (KRN C 2 R 0.176193)
    (KRN C 3 R 0.176193)
    (KRN C 4 R 0.176193)
    (KRN C 5 R 0.176193)
    (KRN C 6 R 0.176193)
    (KRN C 7 R 0.176193)
    (KRN C 8 R 0.176193)
    (KRN C 9 R 0.176193)
    (KRN O 43 R 0.176193)
    (KRN O 45 R 0.176193)
    (KRN O 100 R 0.176193)
    (KRN O 52 R 0.088098)
    (KRN O 53 R 0.088098)
    (KRN O 57 R 0.176193)
    (KRN O 74 R 0.176193)
    (KRN O 76 R 0.176193)
    (STOP)
    (LABEL O 13)
    (LIG C i O 16)
    (LIG C l O 17)
    (KRN O 47 R 0.117462)
    (KRN O 72 R 0.176193)
    (KRN O 73 R 0.176193)
    (KRN O 41 R 0.176193)
    (KRN O 50 R 0.176193)
    (KRN O 51 R 0.176193)
    (KRN O 135 R 0.176193)
    (KRN O 133 R 0.176193)
    (KRN O 77 R 0.176193)
    (KRN C 0 R 0.176193)
    (KRN C 1 R 0.176193)
    (KRN C 2 R 0.176193)
    (KRN C 3 R 0.176193)
    (KRN C 4 R 0.176193)
    (KRN C 5 R 0.176193)
    (KRN C 6 R 0.176193)
    (KRN C 7 R 0.176193)
    (KRN C 8 R 0.176193)
    (KRN C 9 R 0.176193)
    (KRN O 43 R 0.176193)
    (KRN O 45 R 0.176193)
    (KRN O 100 R 0.176193)
    (KRN O 52 R 0.088098)
    (KRN O 53 R 0.088098)
    (KRN O 57 R 0.176193)
    (KRN O 74 R 0.176193)
    (KRN O 76 R 0.176193)
    (STOP))
(CHARACTER O 0
    (CHARWD R 0.734534)
    (CHARHT R 0.677977)
    (CHARIC R 0.126785)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 0)))
(CHARACTER O 1
    (CHARWD R 0.955568)
    (CHARHT R 0.677977)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 1)))
(CHARACTER O 2
    (CHARWD R 0.896837)
    (CHARHT R 0.677977)
    (CHARIC R 0.090217)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 2)))
(CHARACTER O 3
    (CHARWD R 0.807155)
    (CHARHT R 0.677977)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 3)))
(CHARACTER O 4
    (CHARWD R 0.779375)
    (CHARHT R 0.677977)
    (CHARIC R 0.150277)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 4)))
(CHARACTER O 5
    (CHARWD R 0.865886)
    (CHARHT R 0.677977)
    (CHARIC R 0.148012)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 5)))
(CHARACTER O 6
    (CHARWD R 0.838106)
    (CHARHT R 0.677977)
    (CHARIC R 0.112102)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 6)))
(CHARACTER O 7
    (CHARWD R 0.896837)
    (CHARHT R 0.677977)
    (CHARIC R 0.107302)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 7)))
(CHARACTER O 10
    (CHARWD R 0.838106)
    (CHARHT R 0.677977)
    (CHARIC R 0.05605)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 10)))
(CHARACTER O 11
    (CHARWD R 0.896837)
    (CHARHT R 0.677977)
    (CHARIC R 0.107302)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 11)))
(CHARACTER O 12
    (CHARWD R 0.838106)
    (CHARHT R 0.677977)
    (CHARIC R 0.09876)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 12)))
(CHARACTER O 13
    (CHARWD R 0.736518)
    (CHARHT R 0.694445)
    (CHARDP R 0.194445)
    (CHARIC R 0.21766)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 13)))
(CHARACTER O 14
    (CHARWD R 0.677789)
    (CHARHT R 0.694445)
    (CHARDP R 0.194445)
    (CHARIC R 0.092856)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 14)))
(CHARACTER O 15
    (CHARWD R 0.707153)
    (CHARHT R 0.694445)
    (CHARDP R 0.194445)
    (CHARIC R 0.092856)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 15)))
(CHARACTER O 16
    (CHARWD R 1.060728)
    (CHARHT R 0.694445)
    (CHARDP R 0.194445)
    (CHARIC R 0.092856)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 16)))
(CHARACTER O 17
    (CHARWD R 1.075411)
    (CHARHT R 0.694445)
    (CHARDP R 0.194445)
    (CHARIC R 0.092856)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 17)))
(CHARACTER O 20
    (CHARWD R 0.3682575)
    (CHARHT R 0.430555)
    (CHARIC R 0.0860815)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 20)))
(CHARACTER O 21
    (CHARWD R 0.397624)
    (CHARHT R 0.430555)
    (CHARDP R 0.194445)
    (CHARIC R 0.026884)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 21)))
(CHARACTER O 22
    (CHARWD R 0.603182)
    (CHARHT R 0.694445)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 22)))
(CHARACTER O 23
    (CHARWD R 0.603182)
    (CHARHT R 0.694445)
    (CHARIC R 0.085515)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 23)))
(CHARACTER O 24
    (CHARWD R 0.603182)
    (CHARHT R 0.628472)
    (CHARIC R 0.075173)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 24)))
(CHARACTER O 25
    (CHARWD R 0.603182)
    (CHARHT R 0.694445)
    (CHARIC R 0.099404)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 25)))
(CHARACTER O 26
    (CHARWD R 0.603182)
    (CHARHT R 0.573013)
    (CHARIC R 0.099206)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 26)))
(CHARACTER O 27
    (CHARWD R 0.953849)
    (CHARHT R 0.694445)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 27)))
(CHARACTER O 30
    (CHARWD R 0.544451)
    (CHARDP R 0.17014)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 30)))
(CHARACTER O 31
    (CHARWD R 0.632551)
    (CHARHT R 0.694445)
    (CHARDP R 0.194445)
    (CHARIC R 0.097519)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 31)))
(CHARACTER O 32
    (CHARWD R 0.838106)
    (CHARHT R 0.430555)
    (CHARIC R 0.072917)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 32)))
(CHARACTER O 33
    (CHARWD R 0.838106)
    (CHARHT R 0.430555)
    (CHARIC R 0.072917)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 33)))
(CHARACTER O 34
    (CHARWD R 0.603182)
    (CHARHT R 0.527778)
    (CHARDP R 0.097222)
    (CHARIC R 0.087104)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 34)))
(CHARACTER O 35
    (CHARWD R 1.02819)
    (CHARHT R 0.677977)
    (CHARIC R 0.112102)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 35)))
(CHARACTER O 36
    (CHARWD R 1.145652)
    (CHARHT R 0.677977)
    (CHARIC R 0.112102)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 36)))
(CHARACTER O 37
    (CHARWD R 0.896837)
    (CHARHT R 0.731947)
    (CHARDP R 0.048613)
    (CHARIC R 0.090217)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 37)))
(CHARACTER O 40
    (CHARWD R 0.309526)
    (CHARHT R 0.430555)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 40)))
(CHARACTER O 41
    (CHARWD R 0.3682575)
    (CHARHT R 0.694445)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.02242125)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'41}'' width (2.26391{\ttfamily pt} from {\ttfamily cmr7})
%  has been adjusted by increasing interletter space on 0.15695{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup7}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 41)
        (MOVERIGHT R 0.02242125)))
(CHARACTER O 42
    (CHARWD R 0.603182)
    (CHARHT R 0.694445)
    (CHARIC R 0.047895)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 42)))
(CHARACTER O 43
    (CHARWD R 0.955568)
    (CHARHT R 0.694445)
    (CHARDP R 0.194445)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00853550)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'43}'' width (6.56948{\ttfamily pt} from {\ttfamily cmr7})
%  has been adjusted by increasing interletter space on 0.05975{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup7}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 43)
        (MOVERIGHT R 0.00853550)))
(CHARACTER O 44
    (CHARWD R 0.8802185)
    (CHARHT R 0.694445)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 44)))
(CHARACTER O 45
    (CHARWD R 0.955568)
    (CHARHT R 0.75)
    (CHARDP R 0.055555)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00853550)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'45}'' width (6.56948{\ttfamily pt} from {\ttfamily cmr7})
%  has been adjusted by increasing interletter space on 0.05975{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup7}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 45)
        (MOVERIGHT R 0.00853550)))
(CHARACTER O 46
    (CHARWD R 0.896837)
    (CHARHT R 0.694445)
    (CHARIC R 0.085515)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 46)))
(CHARACTER O 47
    (CHARWD R 0.3682575)
    (CHARHT R 0.694445)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 47)))
(CHARACTER O 50
    (CHARWD R 0.48572)
    (CHARHT R 0.75)
    (CHARDP R 0.25)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01964450)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'50}'' width (3.12502{\ttfamily pt} from {\ttfamily cmr7})
%  has been adjusted by increasing interletter space on 0.13751{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup7}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 50)
        (MOVERIGHT R 0.01964450)))
(CHARACTER O 51
    (CHARWD R 0.48572)
    (CHARHT R 0.75)
    (CHARDP R 0.25)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01964450)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'51}'' width (3.12502{\ttfamily pt} from {\ttfamily cmr7})
%  has been adjusted by increasing interletter space on 0.13751{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup7}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 51)
        (MOVERIGHT R 0.01964450)))
(CHARACTER O 52
    (CHARWD R 0.603182)
    (CHARHT R 0.75)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01686725)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'52}'' width (3.98613{\ttfamily pt} from {\ttfamily cmr7})
%  has been adjusted by increasing interletter space on 0.11807{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup7}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 52)
        (MOVERIGHT R 0.01686725)))
(CHARACTER O 53
    (CHARWD R 0.896837)
    (CHARHT R 0.602386)
    (CHARDP R 0.102386)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00992450)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'53}'' width (6.13892{\ttfamily pt} from {\ttfamily cmr7})
%  has been adjusted by increasing interletter space on 0.06947{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup7}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 53)
        (MOVERIGHT R 0.00992450)))
(CHARACTER O 54
    (CHARWD R 0.3682575)
    (CHARHT R 0.11508)
    (CHARDP R 0.194445)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.02242125)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'54}'' width (2.26391{\ttfamily pt} from {\ttfamily cmr7})
%  has been adjusted by increasing interletter space on 0.15695{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup7}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 54)
        (MOVERIGHT R 0.02242125)))
(CHARACTER O 55
    (CHARWD R 0.426989)
    (CHARHT R 0.430555)
    (CHARIC R 0.024453)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 55)))
(CHARACTER O 56
    (CHARWD R 0.3682575)
    (CHARHT R 0.11508)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.02242125)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'56}'' width (2.26391{\ttfamily pt} from {\ttfamily cmr7})
%  has been adjusted by increasing interletter space on 0.15695{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup7}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 56)
        (MOVERIGHT R 0.02242125)))
(CHARACTER O 57
    (CHARWD R 0.603182)
    (CHARHT R 0.75)
    (CHARDP R 0.25)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01686725)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'57}'' width (3.98613{\ttfamily pt} from {\ttfamily cmr7})
%  has been adjusted by increasing interletter space on 0.11807{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup7}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 57)
        (MOVERIGHT R 0.01686725)))
(CHARACTER C 0
    (CHARWD R 0.603182)
    (CHARHT R 0.644444)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01686725)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont 0}'' width (3.98613{\ttfamily pt} from {\ttfamily cmr7})
%  has been adjusted by increasing interletter space on 0.11807{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup7}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR C 0)
        (MOVERIGHT R 0.01686725)))
(CHARACTER C 1
    (CHARWD R 0.603182)
    (CHARHT R 0.644444)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01686725)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont 1}'' width (3.98613{\ttfamily pt} from {\ttfamily cmr7})
%  has been adjusted by increasing interletter space on 0.11807{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup7}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR C 1)
        (MOVERIGHT R 0.01686725)))
(CHARACTER C 2
    (CHARWD R 0.603182)
    (CHARHT R 0.644444)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01686725)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont 2}'' width (3.98613{\ttfamily pt} from {\ttfamily cmr7})
%  has been adjusted by increasing interletter space on 0.11807{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup7}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR C 2)
        (MOVERIGHT R 0.01686725)))
(CHARACTER C 3
    (CHARWD R 0.603182)
    (CHARHT R 0.644444)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01686725)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont 3}'' width (3.98613{\ttfamily pt} from {\ttfamily cmr7})
%  has been adjusted by increasing interletter space on 0.11807{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup7}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR C 3)
        (MOVERIGHT R 0.01686725)))
(CHARACTER C 4
    (CHARWD R 0.603182)
    (CHARHT R 0.644444)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01686725)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont 4}'' width (3.98613{\ttfamily pt} from {\ttfamily cmr7})
%  has been adjusted by increasing interletter space on 0.11807{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup7}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR C 4)
        (MOVERIGHT R 0.01686725)))
(CHARACTER C 5
    (CHARWD R 0.603182)
    (CHARHT R 0.644444)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01686725)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont 5}'' width (3.98613{\ttfamily pt} from {\ttfamily cmr7})
%  has been adjusted by increasing interletter space on 0.11807{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup7}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR C 5)
        (MOVERIGHT R 0.01686725)))
(CHARACTER C 6
    (CHARWD R 0.603182)
    (CHARHT R 0.644444)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01686725)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont 6}'' width (3.98613{\ttfamily pt} from {\ttfamily cmr7})
%  has been adjusted by increasing interletter space on 0.11807{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup7}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR C 6)
        (MOVERIGHT R 0.01686725)))
(CHARACTER C 7
    (CHARWD R 0.603182)
    (CHARHT R 0.644444)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01686725)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont 7}'' width (3.98613{\ttfamily pt} from {\ttfamily cmr7})
%  has been adjusted by increasing interletter space on 0.11807{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup7}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR C 7)
        (MOVERIGHT R 0.01686725)))
(CHARACTER C 8
    (CHARWD R 0.603182)
    (CHARHT R 0.644444)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01686725)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont 8}'' width (3.98613{\ttfamily pt} from {\ttfamily cmr7})
%  has been adjusted by increasing interletter space on 0.11807{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup7}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR C 8)
        (MOVERIGHT R 0.01686725)))
(CHARACTER C 9
    (CHARWD R 0.603182)
    (CHARHT R 0.644444)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01686725)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont 9}'' width (3.98613{\ttfamily pt} from {\ttfamily cmr7})
%  has been adjusted by increasing interletter space on 0.11807{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup7}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR C 9)
        (MOVERIGHT R 0.01686725)))
(CHARACTER O 72
    (CHARWD R 0.3682575)
    (CHARHT R 0.430555)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.02242125)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'72}'' width (2.26391{\ttfamily pt} from {\ttfamily cmr7})
%  has been adjusted by increasing interletter space on 0.15695{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup7}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 72)
        (MOVERIGHT R 0.02242125)))
(CHARACTER O 73
    (CHARWD R 0.3682575)
    (CHARHT R 0.430555)
    (CHARDP R 0.194445)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.02242125)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'73}'' width (2.26391{\ttfamily pt} from {\ttfamily cmr7})
%  has been adjusted by increasing interletter space on 0.15695{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup7}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 73)
        (MOVERIGHT R 0.02242125)))
(CHARACTER O 74
    (CHARWD R 0.3682575)
    (CHARHT R 0.5)
    (CHARDP R 0.194445)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.02242125)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'74}'' width (2.26391{\ttfamily pt} from {\ttfamily cmr7})
%  has been adjusted by increasing interletter space on 0.15695{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup7}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 74)
        (MOVERIGHT R 0.02242125)))
(CHARACTER O 75
    (CHARWD R 0.896837)
    (CHARHT R 0.384079)
    (CHARDP R -0.115921)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00992450)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'75}'' width (6.13892{\ttfamily pt} from {\ttfamily cmr7})
%  has been adjusted by increasing interletter space on 0.06947{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup7}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 75)
        (MOVERIGHT R 0.00992450)))
(CHARACTER O 76
    (CHARWD R 0.603182)
    (CHARHT R 0.5)
    (CHARDP R 0.194445)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.03224400)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'76}'' width (3.77086{\ttfamily pt} from {\ttfamily cmr7})
%  has been adjusted by increasing interletter space on 0.22571{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup7}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 76)
        (MOVERIGHT R 0.03224400)))
(CHARACTER O 77
    (CHARWD R 0.603182)
    (CHARHT R 0.694445)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.03224400)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'77}'' width (3.77086{\ttfamily pt} from {\ttfamily cmr7})
%  has been adjusted by increasing interletter space on 0.22571{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup7}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 77)
        (MOVERIGHT R 0.03224400)))
(CHARACTER O 100
    (CHARWD R 0.896837)
    (CHARHT R 0.694445)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00992450)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'100}'' width (6.13892{\ttfamily pt} from {\ttfamily cmr7})
%  has been adjusted by increasing interletter space on 0.06947{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup7}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 100)
        (MOVERIGHT R 0.00992450)))
(CHARACTER C A
    (CHARWD R 0.865886)
    (CHARHT R 0.677977)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C A)))
(CHARACTER C B
    (CHARWD R 0.822632)
    (CHARHT R 0.677977)
    (CHARIC R 0.09876)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C B)))
(CHARACTER C C
    (CHARWD R 0.838106)
    (CHARHT R 0.677977)
    (CHARIC R 0.141466)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C C)))
(CHARACTER C D
    (CHARWD R 0.881363)
    (CHARHT R 0.677977)
    (CHARIC R 0.090217)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C D)))
(CHARACTER C E
    (CHARWD R 0.793265)
    (CHARHT R 0.677977)
    (CHARIC R 0.112102)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C E)))
(CHARACTER C F
    (CHARWD R 0.763901)
    (CHARHT R 0.677977)
    (CHARIC R 0.126785)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C F)))
(CHARACTER C G
    (CHARWD R 0.903783)
    (CHARHT R 0.677977)
    (CHARIC R 0.07579)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C G)))
(CHARACTER C H
    (CHARWD R 0.865886)
    (CHARHT R 0.677977)
    (CHARIC R 0.148012)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C H)))
(CHARACTER C I
    (CHARWD R 0.454768)
    (CHARHT R 0.677977)
    (CHARIC R 0.15615)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C I)))
(CHARACTER C J
    (CHARWD R 0.617072)
    (CHARHT R 0.677977)
    (CHARIC R 0.124202)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C J)))
(CHARACTER C K
    (CHARWD R 0.895253)
    (CHARHT R 0.677977)
    (CHARIC R 0.141466)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C K)))
(CHARACTER C L
    (CHARWD R 0.734534)
    (CHARHT R 0.677977)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C L)))
(CHARACTER C M
    (CHARWD R 1.042079)
    (CHARHT R 0.677977)
    (CHARIC R 0.148012)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C M)))
(CHARACTER C N
    (CHARWD R 0.865886)
    (CHARHT R 0.677977)
    (CHARIC R 0.148012)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C N)))
(CHARACTER C O
    (CHARWD R 0.896837)
    (CHARHT R 0.677977)
    (CHARIC R 0.090217)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C O)))
(CHARACTER C P
    (CHARWD R 0.793265)
    (CHARHT R 0.677977)
    (CHARIC R 0.09876)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C P)))
(CHARACTER C Q
    (CHARWD R 0.896837)
    (CHARHT R 0.677977)
    (CHARDP R 0.194445)
    (CHARIC R 0.090217)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C Q)))
(CHARACTER C R
    (CHARWD R 0.851996)
    (CHARHT R 0.677977)
    (CHARIC R 0.025347)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C R)))
(CHARACTER C S
    (CHARWD R 0.661913)
    (CHARHT R 0.677977)
    (CHARIC R 0.112102)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C S)))
(CHARACTER C T
    (CHARWD R 0.838106)
    (CHARHT R 0.677977)
    (CHARIC R 0.126785)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C T)))
(CHARACTER C U
    (CHARWD R 0.865886)
    (CHARHT R 0.677977)
    (CHARIC R 0.148012)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C U)))
(CHARACTER C V
    (CHARWD R 0.865886)
    (CHARHT R 0.677977)
    (CHARIC R 0.185516)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C V)))
(CHARACTER C W
    (CHARWD R 1.159541)
    (CHARHT R 0.677977)
    (CHARIC R 0.185516)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C W)))
(CHARACTER C X
    (CHARWD R 0.865886)
    (CHARHT R 0.677977)
    (CHARIC R 0.15615)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C X)))
(CHARACTER C Y
    (CHARWD R 0.865886)
    (CHARHT R 0.677977)
    (CHARIC R 0.197261)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C Y)))
(CHARACTER C Z
    (CHARWD R 0.720644)
    (CHARHT R 0.677977)
    (CHARIC R 0.141466)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C Z)))
(CHARACTER O 133
    (CHARWD R 0.3682575)
    (CHARHT R 0.75)
    (CHARDP R 0.25)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.02242125)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'133}'' width (2.26391{\ttfamily pt} from {\ttfamily cmr7})
%  has been adjusted by increasing interletter space on 0.15695{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup7}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 133)
        (MOVERIGHT R 0.02242125)))
(CHARACTER O 134
    (CHARWD R 0.603182)
    (CHARHT R 0.694445)
    (CHARIC R 0.16774)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 134)))
(CHARACTER O 135
    (CHARWD R 0.3682575)
    (CHARHT R 0.75)
    (CHARDP R 0.25)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.02242125)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'135}'' width (2.26391{\ttfamily pt} from {\ttfamily cmr7})
%  has been adjusted by increasing interletter space on 0.15695{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup7}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 135)
        (MOVERIGHT R 0.02242125)))
(CHARACTER O 136
    (CHARWD R 0.603182)
    (CHARHT R 0.694445)
    (CHARIC R 0.058681)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 136)))
(CHARACTER O 137
    (CHARWD R 0.3682575)
    (CHARHT R 0.677977)
    (CHARIC R 0.108235)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 137)))
(CHARACTER O 140
    (CHARWD R 0.3682575)
    (CHARHT R 0.694445)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 140)))
(CHARACTER C a
    (CHARWD R 0.603182)
    (CHARHT R 0.430555)
    (CHARIC R 0.0860815)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C a)))
(CHARACTER C b
    (CHARWD R 0.544451)
    (CHARHT R 0.694445)
    (CHARIC R 0.059276)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C b)))
(CHARACTER C c
    (CHARWD R 0.544451)
    (CHARHT R 0.430555)
    (CHARIC R 0.048909)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C c)))
(CHARACTER C d
    (CHARWD R 0.603182)
    (CHARHT R 0.694445)
    (CHARIC R 0.092856)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C d)))
(CHARACTER C e
    (CHARWD R 0.544451)
    (CHARHT R 0.430555)
    (CHARIC R 0.072917)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C e)))
(CHARACTER C f
    (CHARWD R 0.36826)
    (CHARHT R 0.694445)
    (CHARDP R 0.194445)
    (CHARIC R 0.21766)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C f)))
(CHARACTER C g
    (CHARWD R 0.544451)
    (CHARHT R 0.430555)
    (CHARDP R 0.194445)
    (CHARIC R 0.085615)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C g)))
(CHARACTER C h
    (CHARWD R 0.603182)
    (CHARHT R 0.694445)
    (CHARIC R 0.0860815)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C h)))
(CHARACTER C i
    (CHARWD R 0.3682575)
    (CHARHT R 0.656747)
    (CHARIC R 0.088392)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C i)))
(CHARACTER C j
    (CHARWD R 0.3682575)
    (CHARHT R 0.656747)
    (CHARDP R 0.194445)
    (CHARIC R 0.142161)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C j)))
(CHARACTER C k
    (CHARWD R 0.544451)
    (CHARHT R 0.694445)
    (CHARIC R 0.10764)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C k)))
(CHARACTER C l
    (CHARWD R 0.309526)
    (CHARHT R 0.694445)
    (CHARIC R 0.092856)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C l)))
(CHARACTER C m
    (CHARWD R 0.955568)
    (CHARHT R 0.430555)
    (CHARIC R 0.0860815)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C m)))
(CHARACTER C n
    (CHARWD R 0.661913)
    (CHARHT R 0.430555)
    (CHARIC R 0.0860815)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C n)))
(CHARACTER C o
    (CHARWD R 0.603182)
    (CHARHT R 0.430555)
    (CHARIC R 0.059276)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C o)))
(CHARACTER C p
    (CHARWD R 0.603182)
    (CHARHT R 0.430555)
    (CHARDP R 0.194445)
    (CHARIC R 0.059276)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C p)))
(CHARACTER C q
    (CHARWD R 0.544451)
    (CHARHT R 0.430555)
    (CHARDP R 0.194445)
    (CHARIC R 0.085615)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C q)))
(CHARACTER C r
    (CHARWD R 0.500403)
    (CHARHT R 0.430555)
    (CHARIC R 0.10764)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C r)))
(CHARACTER C s
    (CHARWD R 0.48572)
    (CHARHT R 0.430555)
    (CHARIC R 0.078273)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C s)))
(CHARACTER C t
    (CHARWD R 0.397624)
    (CHARHT R 0.61508)
    (CHARIC R 0.092957)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C t)))
(CHARACTER C u
    (CHARWD R 0.632548)
    (CHARHT R 0.430555)
    (CHARIC R 0.0860815)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C u)))
(CHARACTER C v
    (CHARWD R 0.544451)
    (CHARHT R 0.430555)
    (CHARIC R 0.10764)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C v)))
(CHARACTER C w
    (CHARWD R 0.779375)
    (CHARHT R 0.430555)
    (CHARIC R 0.10764)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C w)))
(CHARACTER C x
    (CHARWD R 0.544454)
    (CHARHT R 0.430555)
    (CHARIC R 0.122323)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C x)))
(CHARACTER C y
    (CHARWD R 0.573817)
    (CHARHT R 0.430555)
    (CHARDP R 0.194445)
    (CHARIC R 0.085615)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C y)))
(CHARACTER C z
    (CHARWD R 0.485723)
    (CHARHT R 0.430555)
    (CHARIC R 0.128474)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C z)))
(CHARACTER O 173
    (CHARWD R 0.603182)
    (CHARHT R 0.430555)
    (CHARIC R 0.095891)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 173)))
(CHARACTER O 174
    (CHARWD R 1.206365)
    (CHARHT R 0.430555)
    (CHARIC R 0.095891)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 174)))
(CHARACTER O 175
    (CHARWD R 0.603182)
    (CHARHT R 0.694445)
    (CHARIC R 0.1148815)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 175)))
(CHARACTER O 176
    (CHARWD R 0.603182)
    (CHARHT R 0.677977)
    (CHARIC R 0.109426)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 176)))
(CHARACTER O 177
    (CHARWD R 0.603182)
    (CHARHT R 0.677977)
    (CHARIC R 0.093552)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 177)))

%</cmtiup7vpl>

%    \end{macrocode}
% \end{multicols}
% \subsection{File \FileName{cmtiup8.vpl}}
%    \begin{macrocode}
%<*cmtiup8vpl>
(VTITLE cmti8 with unslanted punctuation from cmr8 by SVZ, v.1.2 2001/01/08)
%    \end{macrocode}
% \begin{multicols}3
%    \begin{macrocode}
(FAMILY CMTI UNSLPUNCT)
(FACE O 356)
(CODINGSCHEME TEX TEXT)
(DESIGNSIZE R 8.0)
(CHECKSUM O 4364263220)
(FONTDIMEN
    (SLANT R 0.25)
    (SPACE R 0.384029)
    (STRETCH R 0.164583)
    (SHRINK R 0.109722)
    (XHEIGHT R 0.430555)
    (QUAD R 1.097225)
    (EXTRASPACE R 0.109722))
(MAPFONT D 0
    (FONTNAME cmti8)
    (FONTCHECKSUM O 4364263220)
    (FONTAT R 1.0)
    (FONTDSIZE R 8.0))
(MAPFONT D 1
    (FONTNAME cmr8)
    (FONTCHECKSUM O 17436654407)
    (FONTAT R 1.0)
    (FONTDSIZE R 8.0))
(LIGTABLE
    (LABEL O 40)
    (KRN C l R -0.274307)
    (KRN C L R -0.343405)
    (STOP)
    (LABEL O 140)
    (LIG O 140 O 134)
    (STOP)
    (LABEL O 47)
    (LIG O 47 O 42)
    (KRN O 77 R 0.109722)
    (KRN O 41 R 0.109722)
    (STOP)
    (LABEL O 55)
    (LIG O 55 O 173)
    (STOP)
    (LABEL O 173)
    (LIG O 55 O 174)
    (STOP)
    (LABEL O 41)
    (LIG O 140 O 74)
    (STOP)
    (LABEL O 77)
    (LIG O 140 O 76)
    (STOP)
    (LABEL C d)
    (LABEL C l)
    (LABEL C w)
    (KRN C l R 0.054861)
    (KRN O 72 R 0.082293)
    (KRN O 73 R 0.082293)
    (KRN O 41 R 0.109722)
    (KRN O 50 R 0.109722)
    (KRN O 51 R 0.109722)
    (KRN O 135 R 0.109722)
    (KRN O 133 R 0.109722)
    (KRN O 77 R 0.109722)
    (KRN C 0 R 0.082293)
    (KRN C 1 R 0.109722)
    (KRN C 2 R 0.109722)
    (KRN C 3 R 0.109722)
    (KRN C 4 R 0.082293)
    (KRN C 5 R 0.109722)
    (KRN C 6 R 0.082293)
    (KRN C 7 R 0.109722)
    (KRN C 8 R 0.109722)
    (KRN C 9 R 0.109722)
    (KRN O 43 R 0.109722)
    (KRN O 45 R 0.082293)
    (KRN O 100 R 0.109722)
    (KRN O 52 R 0.082293)
    (KRN O 53 R 0.082293)
    (KRN O 57 R 0.109722)
    (KRN O 74 R 0.109722)
    (KRN O 76 R 0.109722)
    (STOP)
    (LABEL C F)
    (LABEL C V)
    (KRN C o R -0.082293)
    (KRN C e R -0.082293)
    (KRN C u R -0.082293)
    (KRN C r R -0.082293)
    (KRN C a R -0.082293)
    (KRN C A R -0.109722)
    (LABEL C K)
    (LABEL C X)
    (KRN C O R -0.0274315)
    (KRN C C R -0.0274315)
    (KRN C G R -0.0274315)
    (KRN C Q R -0.0274315)
    (KRN O 72 R 0.082293)
    (KRN O 73 R 0.082293)
    (KRN O 41 R 0.109722)
    (KRN O 50 R 0.109722)
    (KRN O 51 R 0.109722)
    (KRN O 135 R 0.109722)
    (KRN O 133 R 0.109722)
    (KRN O 77 R 0.109722)
    (KRN C 0 R 0.082293)
    (KRN C 1 R 0.109722)
    (KRN C 2 R 0.109722)
    (KRN C 3 R 0.109722)
    (KRN C 4 R 0.082293)
    (KRN C 5 R 0.109722)
    (KRN C 6 R 0.082293)
    (KRN C 7 R 0.109722)
    (KRN C 8 R 0.109722)
    (KRN C 9 R 0.109722)
    (KRN O 43 R 0.109722)
    (KRN O 45 R 0.082293)
    (KRN O 100 R 0.109722)
    (KRN O 52 R 0.082293)
    (KRN O 53 R 0.082293)
    (KRN O 57 R 0.109722)
    (KRN O 74 R 0.109722)
    (KRN O 76 R 0.109722)
    (STOP)
    (LABEL C T)
    (KRN C y R -0.082293)
    (LABEL C Y)
    (KRN C e R -0.082293)
    (KRN C o R -0.082293)
    (KRN C r R -0.082293)
    (KRN C a R -0.082293)
    (KRN C u R -0.082293)
    (LABEL C W)
    (KRN C A R -0.082293)
    (KRN O 72 R 0.164583)
    (KRN O 73 R 0.164583)
    (KRN O 41 R 0.164583)
    (KRN O 50 R 0.164583)
    (KRN O 51 R 0.164583)
    (KRN O 135 R 0.164583)
    (KRN O 133 R 0.164583)
    (KRN O 77 R 0.164583)
    (KRN C 0 R 0.164583)
    (KRN C 1 R 0.164583)
    (KRN C 2 R 0.164583)
    (KRN C 3 R 0.164583)
    (KRN C 4 R 0.164583)
    (KRN C 5 R 0.164583)
    (KRN C 6 R 0.164583)
    (KRN C 7 R 0.164583)
    (KRN C 8 R 0.164583)
    (KRN C 9 R 0.164583)
    (KRN O 43 R 0.164583)
    (KRN O 45 R 0.164583)
    (KRN O 100 R 0.164583)
    (KRN O 52 R 0.082293)
    (KRN O 53 R 0.082293)
    (KRN O 57 R 0.164583)
    (KRN O 74 R 0.164583)
    (KRN O 76 R 0.164583)
    (STOP)
    (LABEL C P)
    (KRN C A R -0.082293)
    (KRN O 72 R 0.082293)
    (KRN O 73 R 0.082293)
    (KRN O 41 R 0.109722)
    (KRN O 50 R 0.109722)
    (KRN O 51 R 0.109722)
    (KRN O 135 R 0.109722)
    (KRN O 133 R 0.109722)
    (KRN O 77 R 0.109722)
    (KRN C 0 R 0.082293)
    (KRN C 1 R 0.109722)
    (KRN C 2 R 0.109722)
    (KRN C 3 R 0.109722)
    (KRN C 4 R 0.082293)
    (KRN C 5 R 0.109722)
    (KRN C 6 R 0.082293)
    (KRN C 7 R 0.109722)
    (KRN C 8 R 0.109722)
    (KRN C 9 R 0.109722)
    (KRN O 43 R 0.109722)
    (KRN O 45 R 0.082293)
    (KRN O 100 R 0.109722)
    (KRN O 52 R 0.082293)
    (KRN O 53 R 0.082293)
    (KRN O 57 R 0.109722)
    (KRN O 74 R 0.109722)
    (KRN O 76 R 0.109722)
    (STOP)
    (LABEL C D)
    (LABEL C O)
    (KRN C X R -0.0274315)
    (KRN C W R -0.0274315)
    (KRN C A R -0.0274315)
    (KRN C V R -0.0274315)
    (KRN C Y R -0.0274315)
    (KRN O 72 R 0.082293)
    (KRN O 73 R 0.082293)
    (KRN O 41 R 0.109722)
    (KRN O 50 R 0.109722)
    (KRN O 51 R 0.109722)
    (KRN O 135 R 0.109722)
    (KRN O 133 R 0.109722)
    (KRN O 77 R 0.109722)
    (KRN C 0 R 0.082293)
    (KRN C 1 R 0.109722)
    (KRN C 2 R 0.109722)
    (KRN C 3 R 0.109722)
    (KRN C 4 R 0.082293)
    (KRN C 5 R 0.109722)
    (KRN C 6 R 0.082293)
    (KRN C 7 R 0.109722)
    (KRN C 8 R 0.109722)
    (KRN C 9 R 0.109722)
    (KRN O 43 R 0.109722)
    (KRN O 45 R 0.082293)
    (KRN O 100 R 0.109722)
    (KRN O 52 R 0.082293)
    (KRN O 53 R 0.082293)
    (KRN O 57 R 0.109722)
    (KRN O 74 R 0.109722)
    (KRN O 76 R 0.109722)
    (STOP)
    (LABEL C A)
    (KRN C n R -0.0274315)
    (KRN C l R -0.0274315)
    (KRN C r R -0.0274315)
    (KRN C u R -0.0274315)
    (KRN C m R -0.0274315)
    (KRN C t R -0.0274315)
    (KRN C i R -0.0274315)
    (KRN C C R -0.0274315)
    (KRN C O R -0.0274315)
    (KRN C G R -0.0274315)
    (KRN C h R -0.0274315)
    (KRN C b R -0.0274315)
    (KRN C U R -0.0274315)
    (KRN C k R -0.0274315)
    (KRN C v R -0.0274315)
    (KRN C w R -0.0274315)
    (KRN C Q R -0.0274315)
    (KRN C T R -0.082293)
    (KRN C Y R -0.082293)
    (KRN C V R -0.109722)
    (KRN C W R -0.109722)
    (KRN C e R -0.054861)
    (KRN C a R -0.054861)
    (KRN C o R -0.054861)
    (KRN C d R -0.054861)
    (KRN C c R -0.054861)
    (KRN C g R -0.054861)
    (KRN C q R -0.054861)
    (KRN O 72 R 0.054861)
    (KRN O 73 R 0.054861)
    (KRN O 41 R 0.054861)
    (KRN O 50 R 0.054861)
    (KRN O 51 R 0.054861)
    (KRN O 135 R 0.054861)
    (KRN O 133 R 0.054861)
    (KRN O 77 R 0.054861)
    (KRN C 0 R 0.054861)
    (KRN C 1 R 0.054861)
    (KRN C 2 R 0.054861)
    (KRN C 3 R 0.054861)
    (KRN C 4 R 0.054861)
    (KRN C 5 R 0.054861)
    (KRN C 6 R 0.054861)
    (KRN C 7 R 0.054861)
    (KRN C 8 R 0.054861)
    (KRN C 9 R 0.054861)
    (KRN O 43 R 0.054861)
    (KRN O 45 R 0.054861)
    (KRN O 100 R 0.054861)
    (KRN O 52 R 0.054861)
    (KRN O 53 R 0.054861)
    (KRN O 57 R 0.054861)
    (KRN O 74 R 0.054861)
    (KRN O 76 R 0.054861)
    (STOP)
    (LABEL C R)
    (KRN C n R -0.0274315)
    (KRN C l R -0.0274315)
    (KRN C r R -0.0274315)
    (KRN C u R -0.0274315)
    (KRN C m R -0.0274315)
    (KRN C t R -0.0274315)
    (KRN C i R -0.0274315)
    (KRN C C R -0.0274315)
    (KRN C O R -0.0274315)
    (KRN C G R -0.0274315)
    (KRN C h R -0.0274315)
    (KRN C b R -0.0274315)
    (KRN C U R -0.0274315)
    (KRN C k R -0.0274315)
    (KRN C v R -0.0274315)
    (KRN C w R -0.0274315)
    (KRN C Q R -0.0274315)
    (LABEL C L)
    (KRN C T R -0.082293)
    (KRN C Y R -0.082293)
    (KRN C V R -0.109722)
    (KRN C W R -0.109722)
    (KRN O 72 R 0.082293)
    (KRN O 73 R 0.082293)
    (KRN O 41 R 0.109722)
    (KRN O 50 R 0.109722)
    (KRN O 51 R 0.109722)
    (KRN O 135 R 0.109722)
    (KRN O 133 R 0.109722)
    (KRN O 77 R 0.109722)
    (KRN C 0 R 0.082293)
    (KRN C 1 R 0.109722)
    (KRN C 2 R 0.109722)
    (KRN C 3 R 0.109722)
    (KRN C 4 R 0.082293)
    (KRN C 5 R 0.109722)
    (KRN C 6 R 0.082293)
    (KRN C 7 R 0.109722)
    (KRN C 8 R 0.109722)
    (KRN C 9 R 0.109722)
    (KRN O 43 R 0.109722)
    (KRN O 45 R 0.082293)
    (KRN O 100 R 0.109722)
    (KRN O 52 R 0.082293)
    (KRN O 53 R 0.082293)
    (KRN O 57 R 0.109722)
    (KRN O 74 R 0.109722)
    (KRN O 76 R 0.109722)
    (KRN C e R -0.054861)
    (KRN C a R -0.054861)
    (KRN C o R -0.054861)
    (KRN C d R -0.054861)
    (KRN C c R -0.054861)
    (KRN C g R -0.054861)
    (KRN C q R -0.054861)
    (STOP)
    (LABEL C b)
    (LABEL C c)
    (LABEL C e)
    (LABEL C o)
    (LABEL C p)
    (LABEL C r)
    (KRN C e R -0.054861)
    (KRN C a R -0.054861)
    (KRN C o R -0.054861)
    (KRN C d R -0.054861)
    (KRN C c R -0.054861)
    (KRN C g R -0.054861)
    (KRN C q R -0.054861)
    (KRN O 72 R 0.054861)
    (KRN O 73 R 0.054861)
    (KRN O 41 R 0.054861)
    (KRN O 50 R 0.054861)
    (KRN O 51 R 0.054861)
    (KRN O 135 R 0.054861)
    (KRN O 133 R 0.054861)
    (KRN O 77 R 0.054861)
    (KRN C 0 R 0.054861)
    (KRN C 1 R 0.054861)
    (KRN C 2 R 0.054861)
    (KRN C 3 R 0.054861)
    (KRN C 4 R 0.054861)
    (KRN C 5 R 0.054861)
    (KRN C 6 R 0.054861)
    (KRN C 7 R 0.054861)
    (KRN C 8 R 0.054861)
    (KRN C 9 R 0.054861)
    (KRN O 43 R 0.054861)
    (KRN O 45 R 0.054861)
    (KRN O 100 R 0.054861)
    (KRN O 52 R 0.054861)
    (KRN O 53 R 0.054861)
    (KRN O 57 R 0.054861)
    (KRN O 74 R 0.054861)
    (KRN O 76 R 0.054861)
    (STOP)
    (LABEL C n)
    (KRN O 47 R -0.109722)
    (KRN O 72 R 0.082293)
    (KRN O 73 R 0.082293)
    (KRN O 41 R 0.109722)
    (KRN O 50 R 0.109722)
    (KRN O 51 R 0.109722)
    (KRN O 135 R 0.109722)
    (KRN O 133 R 0.109722)
    (KRN O 77 R 0.109722)
    (KRN C 0 R 0.082293)
    (KRN C 1 R 0.109722)
    (KRN C 2 R 0.109722)
    (KRN C 3 R 0.109722)
    (KRN C 4 R 0.082293)
    (KRN C 5 R 0.109722)
    (KRN C 6 R 0.082293)
    (KRN C 7 R 0.109722)
    (KRN C 8 R 0.109722)
    (KRN C 9 R 0.109722)
    (KRN O 43 R 0.109722)
    (KRN O 45 R 0.082293)
    (KRN O 100 R 0.109722)
    (KRN O 52 R 0.082293)
    (KRN O 53 R 0.082293)
    (KRN O 57 R 0.109722)
    (KRN O 74 R 0.109722)
    (KRN O 76 R 0.109722)
    (STOP)
    (LABEL C H)
    (LABEL C I)
    (LABEL C J)
    (LABEL C M)
    (LABEL C N)
    (LABEL C U)
    (LABEL C Z)
    (KRN O 72 R 0.164583)
    (KRN O 73 R 0.164583)
    (KRN O 41 R 0.164583)
    (KRN O 50 R 0.164583)
    (KRN O 51 R 0.164583)
    (KRN O 135 R 0.164583)
    (KRN O 133 R 0.164583)
    (KRN O 77 R 0.164583)
    (KRN C 0 R 0.164583)
    (KRN C 1 R 0.164583)
    (KRN C 2 R 0.164583)
    (KRN C 3 R 0.164583)
    (KRN C 4 R 0.164583)
    (KRN C 5 R 0.164583)
    (KRN C 6 R 0.164583)
    (KRN C 7 R 0.164583)
    (KRN C 8 R 0.164583)
    (KRN C 9 R 0.164583)
    (KRN O 43 R 0.164583)
    (KRN O 45 R 0.164583)
    (KRN O 100 R 0.164583)
    (KRN O 52 R 0.082293)
    (KRN O 53 R 0.082293)
    (KRN O 57 R 0.164583)
    (KRN O 74 R 0.164583)
    (KRN O 76 R 0.164583)
    (STOP)
    (LABEL C B)
    (LABEL C C)
    (LABEL C E)
    (LABEL C G)
    (LABEL C Q)
    (LABEL C S)
    (LABEL C a)
    (LABEL C g)
    (LABEL C h)
    (LABEL C i)
    (LABEL C j)
    (LABEL C k)
    (LABEL C m)
    (LABEL C q)
    (LABEL C s)
    (LABEL C t)
    (LABEL C u)
    (LABEL C v)
    (LABEL C x)
    (LABEL C y)
    (LABEL C z)
    (KRN O 72 R 0.082293)
    (KRN O 73 R 0.082293)
    (KRN O 41 R 0.109722)
    (KRN O 50 R 0.109722)
    (KRN O 51 R 0.109722)
    (KRN O 135 R 0.109722)
    (KRN O 133 R 0.109722)
    (KRN O 77 R 0.109722)
    (KRN C 0 R 0.082293)
    (KRN C 1 R 0.109722)
    (KRN C 2 R 0.109722)
    (KRN C 3 R 0.109722)
    (KRN C 4 R 0.082293)
    (KRN C 5 R 0.109722)
    (KRN C 6 R 0.082293)
    (KRN C 7 R 0.109722)
    (KRN C 8 R 0.109722)
    (KRN C 9 R 0.109722)
    (KRN O 43 R 0.109722)
    (KRN O 45 R 0.082293)
    (KRN O 100 R 0.109722)
    (KRN O 52 R 0.082293)
    (KRN O 53 R 0.082293)
    (KRN O 57 R 0.109722)
    (KRN O 74 R 0.109722)
    (KRN O 76 R 0.109722)
    (STOP)
    (LABEL C f)
    (LIG C i O 14)
    (LIG C f O 13)
    (LIG C l O 15)
    (KRN O 47 R 0.109722)
    (KRN O 72 R 0.164583)
    (KRN O 73 R 0.164583)
    (KRN O 41 R 0.164583)
    (KRN O 50 R 0.164583)
    (KRN O 51 R 0.164583)
    (KRN O 135 R 0.164583)
    (KRN O 133 R 0.164583)
    (KRN O 77 R 0.164583)
    (KRN C 0 R 0.164583)
    (KRN C 1 R 0.164583)
    (KRN C 2 R 0.164583)
    (KRN C 3 R 0.164583)
    (KRN C 4 R 0.164583)
    (KRN C 5 R 0.164583)
    (KRN C 6 R 0.164583)
    (KRN C 7 R 0.164583)
    (KRN C 8 R 0.164583)
    (KRN C 9 R 0.164583)
    (KRN O 43 R 0.164583)
    (KRN O 45 R 0.164583)
    (KRN O 100 R 0.164583)
    (KRN O 52 R 0.082293)
    (KRN O 53 R 0.082293)
    (KRN O 57 R 0.164583)
    (KRN O 74 R 0.164583)
    (KRN O 76 R 0.164583)
    (STOP)
    (LABEL O 13)
    (LIG C i O 16)
    (LIG C l O 17)
    (KRN O 47 R 0.109722)
    (KRN O 72 R 0.164583)
    (KRN O 73 R 0.164583)
    (KRN O 41 R 0.164583)
    (KRN O 50 R 0.164583)
    (KRN O 51 R 0.164583)
    (KRN O 135 R 0.164583)
    (KRN O 133 R 0.164583)
    (KRN O 77 R 0.164583)
    (KRN C 0 R 0.164583)
    (KRN C 1 R 0.164583)
    (KRN C 2 R 0.164583)
    (KRN C 3 R 0.164583)
    (KRN C 4 R 0.164583)
    (KRN C 5 R 0.164583)
    (KRN C 6 R 0.164583)
    (KRN C 7 R 0.164583)
    (KRN C 8 R 0.164583)
    (KRN C 9 R 0.164583)
    (KRN O 43 R 0.164583)
    (KRN O 45 R 0.164583)
    (KRN O 100 R 0.164583)
    (KRN O 52 R 0.082293)
    (KRN O 53 R 0.082293)
    (KRN O 57 R 0.164583)
    (KRN O 74 R 0.164583)
    (KRN O 76 R 0.164583)
    (STOP))
(CHARACTER O 0
    (CHARWD R 0.672571)
    (CHARHT R 0.683332)
    (CHARIC R 0.129686)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 0)))
(CHARACTER O 1
    (CHARWD R 0.877779)
    (CHARHT R 0.683332)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 1)))
(CHARACTER O 2
    (CHARWD R 0.822918)
    (CHARHT R 0.683332)
    (CHARIC R 0.092152)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 2)))
(CHARACTER O 3
    (CHARWD R 0.741669)
    (CHARHT R 0.683332)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 3)))
(CHARACTER O 4
    (CHARWD R 0.713196)
    (CHARHT R 0.683332)
    (CHARIC R 0.151632)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 4)))
(CHARACTER O 5
    (CHARWD R 0.79653)
    (CHARHT R 0.683332)
    (CHARIC R 0.153992)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 5)))
(CHARACTER O 6
    (CHARWD R 0.768057)
    (CHARHT R 0.683332)
    (CHARIC R 0.115971)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 6)))
(CHARACTER O 7
    (CHARWD R 0.822918)
    (CHARHT R 0.683332)
    (CHARIC R 0.109236)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 7)))
(CHARACTER O 10
    (CHARWD R 0.768057)
    (CHARHT R 0.683332)
    (CHARIC R 0.057985)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 10)))
(CHARACTER O 11
    (CHARWD R 0.822918)
    (CHARHT R 0.683332)
    (CHARIC R 0.109236)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 11)))
(CHARACTER O 12
    (CHARWD R 0.768057)
    (CHARHT R 0.683332)
    (CHARIC R 0.100693)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 12)))
(CHARACTER O 13
    (CHARWD R 0.658339)
    (CHARHT R 0.694445)
    (CHARDP R 0.194445)
    (CHARIC R 0.214756)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 13)))
(CHARACTER O 14
    (CHARWD R 0.603479)
    (CHARHT R 0.694445)
    (CHARDP R 0.194445)
    (CHARIC R 0.098612)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 14)))
(CHARACTER O 15
    (CHARWD R 0.630909)
    (CHARHT R 0.694445)
    (CHARDP R 0.194445)
    (CHARIC R 0.098612)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 15)))
(CHARACTER O 16
    (CHARWD R 0.946362)
    (CHARHT R 0.694445)
    (CHARDP R 0.194445)
    (CHARIC R 0.098612)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 16)))
(CHARACTER O 17
    (CHARWD R 0.960077)
    (CHARHT R 0.694445)
    (CHARDP R 0.194445)
    (CHARIC R 0.098612)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 17)))
(CHARACTER O 20
    (CHARWD R 0.329168)
    (CHARHT R 0.430555)
    (CHARIC R 0.082409)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 20)))
(CHARACTER O 21
    (CHARWD R 0.3566)
    (CHARHT R 0.430555)
    (CHARDP R 0.194445)
    (CHARIC R 0.03264)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 21)))
(CHARACTER O 22
    (CHARWD R 0.548613)
    (CHARHT R 0.694445)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 22)))
(CHARACTER O 23
    (CHARWD R 0.548613)
    (CHARHT R 0.694445)
    (CHARIC R 0.091318)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 23)))
(CHARACTER O 24
    (CHARWD R 0.548613)
    (CHARHT R 0.628473)
    (CHARIC R 0.08021)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 24)))
(CHARACTER O 25
    (CHARWD R 0.548613)
    (CHARHT R 0.694445)
    (CHARIC R 0.105207)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 25)))
(CHARACTER O 26
    (CHARWD R 0.548613)
    (CHARHT R 0.575693)
    (CHARIC R 0.10191)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 26)))
(CHARACTER O 27
    (CHARWD R 0.884493)
    (CHARHT R 0.694445)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 27)))
(CHARACTER O 30
    (CHARWD R 0.493752)
    (CHARDP R 0.170139)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 30)))
(CHARACTER O 31
    (CHARWD R 0.576046)
    (CHARHT R 0.694445)
    (CHARDP R 0.194445)
    (CHARIC R 0.101389)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 31)))
(CHARACTER O 32
    (CHARWD R 0.768057)
    (CHARHT R 0.430555)
    (CHARIC R 0.075001)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 32)))
(CHARACTER O 33
    (CHARWD R 0.768057)
    (CHARHT R 0.430555)
    (CHARIC R 0.075001)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 33)))
(CHARACTER O 34
    (CHARWD R 0.548613)
    (CHARHT R 0.527779)
    (CHARDP R 0.097223)
    (CHARIC R 0.090973)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 34)))
(CHARACTER O 35
    (CHARWD R 0.946877)
    (CHARHT R 0.683332)
    (CHARIC R 0.115971)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 35)))
(CHARACTER O 36
    (CHARWD R 1.056599)
    (CHARHT R 0.683332)
    (CHARIC R 0.115971)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 36)))
(CHARACTER O 37
    (CHARWD R 0.822918)
    (CHARHT R 0.731943)
    (CHARDP R 0.048611)
    (CHARIC R 0.092152)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 37)))
(CHARACTER O 40
    (CHARWD R 0.274307)
    (CHARHT R 0.430555)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 40)))
(CHARACTER O 41
    (CHARWD R 0.329168)
    (CHARHT R 0.694445)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01701250)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'41}'' width (2.36114{\ttfamily pt} from {\ttfamily cmr8})
%  has been adjusted by increasing interletter space on 0.13610{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup8}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 41)
        (MOVERIGHT R 0.01701250)))
(CHARACTER O 42
    (CHARWD R 0.550001)
    (CHARHT R 0.694445)
    (CHARIC R 0.059792)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 42)))
(CHARACTER O 43
    (CHARWD R 0.877779)
    (CHARHT R 0.694445)
    (CHARDP R 0.194443)
    (MAP
        (SELECTFONT D 1)
        (MOVELEFT R 0.00382500)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'43}'' width (7.08343{\ttfamily pt} from {\ttfamily cmr8})
%  has been adjusted by decreasing interletter space on 0.03060{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup8}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 43)
        (MOVELEFT R 0.00382500)))
(CHARACTER O 44
    (CHARWD R 0.815973)
    (CHARHT R 0.694445)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 44)))
(CHARACTER O 45
    (CHARWD R 0.877779)
    (CHARHT R 0.75)
    (CHARDP R 0.055555)
    (MAP
        (SELECTFONT D 1)
        (MOVELEFT R 0.00382500)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'45}'' width (7.08343{\ttfamily pt} from {\ttfamily cmr8})
%  has been adjusted by decreasing interletter space on 0.03060{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup8}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 45)
        (MOVELEFT R 0.00382500)))
(CHARACTER O 46
    (CHARWD R 0.822918)
    (CHARHT R 0.694445)
    (CHARIC R 0.091318)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 46)))
(CHARACTER O 47
    (CHARWD R 0.329168)
    (CHARHT R 0.694445)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 47)))
(CHARACTER O 50
    (CHARWD R 0.43889)
    (CHARHT R 0.75)
    (CHARDP R 0.25)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01284500)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'50}'' width (3.30560{\ttfamily pt} from {\ttfamily cmr8})
%  has been adjusted by increasing interletter space on 0.10276{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup8}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 50)
        (MOVERIGHT R 0.01284500)))
(CHARACTER O 51
    (CHARWD R 0.43889)
    (CHARHT R 0.75)
    (CHARDP R 0.25)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01284500)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'51}'' width (3.30560{\ttfamily pt} from {\ttfamily cmr8})
%  has been adjusted by increasing interletter space on 0.10276{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup8}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 51)
        (MOVERIGHT R 0.01284500)))
(CHARACTER O 52
    (CHARWD R 0.548613)
    (CHARHT R 0.75)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00867750)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'52}'' width (4.25006{\ttfamily pt} from {\ttfamily cmr8})
%  has been adjusted by increasing interletter space on 0.06942{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup8}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 52)
        (MOVERIGHT R 0.00867750)))
(CHARACTER O 53
    (CHARWD R 0.822918)
    (CHARHT R 0.575693)
    (CHARDP R 0.079166)
    (MAP
        (SELECTFONT D 1)
        (MOVELEFT R 0.00174150)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'53}'' width (6.61121{\ttfamily pt} from {\ttfamily cmr8})
%  has been adjusted by decreasing interletter space on 0.01393{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup8}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 53)
        (MOVELEFT R 0.00174150)))
(CHARACTER O 54
    (CHARWD R 0.329168)
    (CHARHT R 0.111111)
    (CHARDP R 0.194445)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01701250)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'54}'' width (2.36114{\ttfamily pt} from {\ttfamily cmr8})
%  has been adjusted by increasing interletter space on 0.13610{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup8}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 54)
        (MOVERIGHT R 0.01701250)))
(CHARACTER O 55
    (CHARWD R 0.384029)
    (CHARHT R 0.430555)
    (CHARIC R 0.026388)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 55)))
(CHARACTER O 56
    (CHARWD R 0.329168)
    (CHARHT R 0.111111)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01701250)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'56}'' width (2.36114{\ttfamily pt} from {\ttfamily cmr8})
%  has been adjusted by increasing interletter space on 0.13610{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup8}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 56)
        (MOVERIGHT R 0.01701250)))
(CHARACTER O 57
    (CHARWD R 0.548613)
    (CHARHT R 0.75)
    (CHARDP R 0.25)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00867750)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'57}'' width (4.25006{\ttfamily pt} from {\ttfamily cmr8})
%  has been adjusted by increasing interletter space on 0.06942{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup8}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 57)
        (MOVERIGHT R 0.00867750)))
(CHARACTER C 0
    (CHARWD R 0.548613)
    (CHARHT R 0.644445)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00867750)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont 0}'' width (4.25006{\ttfamily pt} from {\ttfamily cmr8})
%  has been adjusted by increasing interletter space on 0.06942{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup8}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR C 0)
        (MOVERIGHT R 0.00867750)))
(CHARACTER C 1
    (CHARWD R 0.548613)
    (CHARHT R 0.644445)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00867750)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont 1}'' width (4.25006{\ttfamily pt} from {\ttfamily cmr8})
%  has been adjusted by increasing interletter space on 0.06942{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup8}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR C 1)
        (MOVERIGHT R 0.00867750)))
(CHARACTER C 2
    (CHARWD R 0.548613)
    (CHARHT R 0.644445)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00867750)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont 2}'' width (4.25006{\ttfamily pt} from {\ttfamily cmr8})
%  has been adjusted by increasing interletter space on 0.06942{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup8}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR C 2)
        (MOVERIGHT R 0.00867750)))
(CHARACTER C 3
    (CHARWD R 0.548613)
    (CHARHT R 0.644445)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00867750)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont 3}'' width (4.25006{\ttfamily pt} from {\ttfamily cmr8})
%  has been adjusted by increasing interletter space on 0.06942{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup8}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR C 3)
        (MOVERIGHT R 0.00867750)))
(CHARACTER C 4
    (CHARWD R 0.548613)
    (CHARHT R 0.644445)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00867750)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont 4}'' width (4.25006{\ttfamily pt} from {\ttfamily cmr8})
%  has been adjusted by increasing interletter space on 0.06942{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup8}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR C 4)
        (MOVERIGHT R 0.00867750)))
(CHARACTER C 5
    (CHARWD R 0.548613)
    (CHARHT R 0.644445)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00867750)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont 5}'' width (4.25006{\ttfamily pt} from {\ttfamily cmr8})
%  has been adjusted by increasing interletter space on 0.06942{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup8}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR C 5)
        (MOVERIGHT R 0.00867750)))
(CHARACTER C 6
    (CHARWD R 0.548613)
    (CHARHT R 0.644445)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00867750)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont 6}'' width (4.25006{\ttfamily pt} from {\ttfamily cmr8})
%  has been adjusted by increasing interletter space on 0.06942{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup8}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR C 6)
        (MOVERIGHT R 0.00867750)))
(CHARACTER C 7
    (CHARWD R 0.548613)
    (CHARHT R 0.644445)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00867750)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont 7}'' width (4.25006{\ttfamily pt} from {\ttfamily cmr8})
%  has been adjusted by increasing interletter space on 0.06942{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup8}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR C 7)
        (MOVERIGHT R 0.00867750)))
(CHARACTER C 8
    (CHARWD R 0.548613)
    (CHARHT R 0.644445)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00867750)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont 8}'' width (4.25006{\ttfamily pt} from {\ttfamily cmr8})
%  has been adjusted by increasing interletter space on 0.06942{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup8}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR C 8)
        (MOVERIGHT R 0.00867750)))
(CHARACTER C 9
    (CHARWD R 0.548613)
    (CHARHT R 0.644445)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00867750)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont 9}'' width (4.25006{\ttfamily pt} from {\ttfamily cmr8})
%  has been adjusted by increasing interletter space on 0.06942{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup8}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR C 9)
        (MOVERIGHT R 0.00867750)))
(CHARACTER O 72
    (CHARWD R 0.329168)
    (CHARHT R 0.430555)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01701250)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'72}'' width (2.36114{\ttfamily pt} from {\ttfamily cmr8})
%  has been adjusted by increasing interletter space on 0.13610{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup8}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 72)
        (MOVERIGHT R 0.01701250)))
(CHARACTER O 73
    (CHARWD R 0.329168)
    (CHARHT R 0.430555)
    (CHARDP R 0.194445)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01701250)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'73}'' width (2.36114{\ttfamily pt} from {\ttfamily cmr8})
%  has been adjusted by increasing interletter space on 0.13610{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup8}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 73)
        (MOVERIGHT R 0.01701250)))
(CHARACTER O 74
    (CHARWD R 0.329168)
    (CHARHT R 0.5)
    (CHARDP R 0.194445)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01701250)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'74}'' width (2.36114{\ttfamily pt} from {\ttfamily cmr8})
%  has been adjusted by increasing interletter space on 0.13610{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup8}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 74)
        (MOVERIGHT R 0.01701250)))
(CHARACTER O 75
    (CHARWD R 0.822918)
    (CHARHT R 0.377987)
    (CHARDP R -0.122013)
    (MAP
        (SELECTFONT D 1)
        (MOVELEFT R 0.00174150)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'75}'' width (6.61121{\ttfamily pt} from {\ttfamily cmr8})
%  has been adjusted by decreasing interletter space on 0.01393{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup8}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 75)
        (MOVELEFT R 0.00174150)))
(CHARACTER O 76
    (CHARWD R 0.548613)
    (CHARHT R 0.5)
    (CHARDP R 0.194445)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.02343500)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'76}'' width (4.01394{\ttfamily pt} from {\ttfamily cmr8})
%  has been adjusted by increasing interletter space on 0.18748{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup8}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 76)
        (MOVERIGHT R 0.02343500)))
(CHARACTER O 77
    (CHARWD R 0.548613)
    (CHARHT R 0.694445)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.02343500)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'77}'' width (4.01394{\ttfamily pt} from {\ttfamily cmr8})
%  has been adjusted by increasing interletter space on 0.18748{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup8}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 77)
        (MOVERIGHT R 0.02343500)))
(CHARACTER O 100
    (CHARWD R 0.822918)
    (CHARHT R 0.694445)
    (MAP
        (SELECTFONT D 1)
        (MOVELEFT R 0.00174150)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'100}'' width (6.61121{\ttfamily pt} from {\ttfamily cmr8})
%  has been adjusted by decreasing interletter space on 0.01393{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup8}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 100)
        (MOVELEFT R 0.00174150)))
(CHARACTER C A
    (CHARWD R 0.79653)
    (CHARHT R 0.683332)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C A)))
(CHARACTER C B
    (CHARWD R 0.754864)
    (CHARHT R 0.683332)
    (CHARIC R 0.100693)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C B)))
(CHARACTER C C
    (CHARWD R 0.768057)
    (CHARHT R 0.683332)
    (CHARIC R 0.143402)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C C)))
(CHARACTER C D
    (CHARWD R 0.809725)
    (CHARHT R 0.683332)
    (CHARIC R 0.092152)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C D)))
(CHARACTER C E
    (CHARWD R 0.727432)
    (CHARHT R 0.683332)
    (CHARIC R 0.115971)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C E)))
(CHARACTER C F
    (CHARWD R 0.700003)
    (CHARHT R 0.683332)
    (CHARIC R 0.129686)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C F)))
(CHARACTER C G
    (CHARWD R 0.830036)
    (CHARHT R 0.683332)
    (CHARIC R 0.081423)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C G)))
(CHARACTER C H
    (CHARWD R 0.79653)
    (CHARHT R 0.683332)
    (CHARIC R 0.153992)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C H)))
(CHARACTER C I
    (CHARWD R 0.412502)
    (CHARHT R 0.683332)
    (CHARIC R 0.157118)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C I)))
(CHARACTER C J
    (CHARWD R 0.562849)
    (CHARHT R 0.683332)
    (CHARIC R 0.130554)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C J)))
(CHARACTER C K
    (CHARWD R 0.823961)
    (CHARHT R 0.683332)
    (CHARIC R 0.143402)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C K)))
(CHARACTER C L
    (CHARWD R 0.672571)
    (CHARHT R 0.683332)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C L)))
(CHARACTER C M
    (CHARWD R 0.961113)
    (CHARHT R 0.683332)
    (CHARIC R 0.153992)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C M)))
(CHARACTER C N
    (CHARWD R 0.79653)
    (CHARHT R 0.683332)
    (CHARIC R 0.153992)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C N)))
(CHARACTER C O
    (CHARWD R 0.822918)
    (CHARHT R 0.683332)
    (CHARIC R 0.092152)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C O)))
(CHARACTER C P
    (CHARWD R 0.727432)
    (CHARHT R 0.683332)
    (CHARIC R 0.100693)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C P)))
(CHARACTER C Q
    (CHARWD R 0.822918)
    (CHARHT R 0.683332)
    (CHARDP R 0.194445)
    (CHARIC R 0.092152)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C Q)))
(CHARACTER C R
    (CHARWD R 0.782293)
    (CHARHT R 0.683332)
    (CHARIC R 0.032118)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C R)))
(CHARACTER C S
    (CHARWD R 0.603474)
    (CHARHT R 0.683332)
    (CHARIC R 0.1159725)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C S)))
(CHARACTER C T
    (CHARWD R 0.768057)
    (CHARHT R 0.683332)
    (CHARIC R 0.129686)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C T)))
(CHARACTER C U
    (CHARWD R 0.79653)
    (CHARHT R 0.683332)
    (CHARIC R 0.153992)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C U)))
(CHARACTER C V
    (CHARWD R 0.79653)
    (CHARHT R 0.683332)
    (CHARIC R 0.184549)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C V)))
(CHARACTER C W
    (CHARWD R 1.070835)
    (CHARHT R 0.683332)
    (CHARIC R 0.184549)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C W)))
(CHARACTER C X
    (CHARWD R 0.79653)
    (CHARHT R 0.683332)
    (CHARIC R 0.157118)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C X)))
(CHARACTER C Y
    (CHARWD R 0.79653)
    (CHARHT R 0.683332)
    (CHARIC R 0.19552)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C Y)))
(CHARACTER C Z
    (CHARWD R 0.658335)
    (CHARHT R 0.683332)
    (CHARIC R 0.143402)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C Z)))
(CHARACTER O 133
    (CHARWD R 0.329168)
    (CHARHT R 0.75)
    (CHARDP R 0.25)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01701250)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'133}'' width (2.36114{\ttfamily pt} from {\ttfamily cmr8})
%  has been adjusted by increasing interletter space on 0.13610{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup8}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 133)
        (MOVERIGHT R 0.01701250)))
(CHARACTER O 134
    (CHARWD R 0.550001)
    (CHARHT R 0.694445)
    (CHARIC R 0.168125)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 134)))
(CHARACTER O 135
    (CHARWD R 0.329168)
    (CHARHT R 0.75)
    (CHARDP R 0.25)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01701250)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'135}'' width (2.36114{\ttfamily pt} from {\ttfamily cmr8})
%  has been adjusted by increasing interletter space on 0.13610{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup8}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 135)
        (MOVERIGHT R 0.01701250)))
(CHARACTER O 136
    (CHARWD R 0.548613)
    (CHARHT R 0.694445)
    (CHARIC R 0.063717)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 136)))
(CHARACTER O 137
    (CHARWD R 0.329168)
    (CHARHT R 0.670635)
    (CHARIC R 0.113493)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 137)))
(CHARACTER O 140
    (CHARWD R 0.329168)
    (CHARHT R 0.694445)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 140)))
(CHARACTER C a
    (CHARWD R 0.548613)
    (CHARHT R 0.430555)
    (CHARIC R 0.082409)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C a)))
(CHARACTER C b
    (CHARWD R 0.493752)
    (CHARHT R 0.694445)
    (CHARIC R 0.061285)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C b)))
(CHARACTER C c
    (CHARWD R 0.493752)
    (CHARHT R 0.430555)
    (CHARIC R 0.052778)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C c)))
(CHARACTER C d
    (CHARWD R 0.548613)
    (CHARHT R 0.694445)
    (CHARIC R 0.098612)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C d)))
(CHARACTER C e
    (CHARWD R 0.493752)
    (CHARHT R 0.430555)
    (CHARIC R 0.075001)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C e)))
(CHARACTER C f
    (CHARWD R 0.32917)
    (CHARHT R 0.694445)
    (CHARDP R 0.194445)
    (CHARIC R 0.214756)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C f)))
(CHARACTER C g
    (CHARWD R 0.493752)
    (CHARHT R 0.430555)
    (CHARDP R 0.194445)
    (CHARIC R 0.087502)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C g)))
(CHARACTER C h
    (CHARWD R 0.548613)
    (CHARHT R 0.694445)
    (CHARIC R 0.082409)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C h)))
(CHARACTER C i
    (CHARWD R 0.329168)
    (CHARHT R 0.656748)
    (CHARIC R 0.096132)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C i)))
(CHARACTER C j
    (CHARWD R 0.329168)
    (CHARHT R 0.656748)
    (CHARDP R 0.194445)
    (CHARIC R 0.144049)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C j)))
(CHARACTER C k
    (CHARWD R 0.493752)
    (CHARHT R 0.694445)
    (CHARIC R 0.107639)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C k)))
(CHARACTER C l
    (CHARWD R 0.274307)
    (CHARHT R 0.694445)
    (CHARIC R 0.098612)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C l)))
(CHARACTER C m
    (CHARWD R 0.877779)
    (CHARHT R 0.430555)
    (CHARIC R 0.082409)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C m)))
(CHARACTER C n
    (CHARWD R 0.603474)
    (CHARHT R 0.430555)
    (CHARIC R 0.082409)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C n)))
(CHARACTER C o
    (CHARWD R 0.548613)
    (CHARHT R 0.430555)
    (CHARIC R 0.061285)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C o)))
(CHARACTER C p
    (CHARWD R 0.548613)
    (CHARHT R 0.430555)
    (CHARDP R 0.194445)
    (CHARIC R 0.061285)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C p)))
(CHARACTER C q
    (CHARWD R 0.493752)
    (CHARHT R 0.430555)
    (CHARDP R 0.194445)
    (CHARIC R 0.087502)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C q)))
(CHARACTER C r
    (CHARWD R 0.452606)
    (CHARHT R 0.430555)
    (CHARIC R 0.107639)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C r)))
(CHARACTER C s
    (CHARWD R 0.43889)
    (CHARHT R 0.430555)
    (CHARIC R 0.080208)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C s)))
(CHARACTER C t
    (CHARWD R 0.3566)
    (CHARHT R 0.61508)
    (CHARIC R 0.093924)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C t)))
(CHARACTER C u
    (CHARWD R 0.576044)
    (CHARHT R 0.430555)
    (CHARIC R 0.082409)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C u)))
(CHARACTER C v
    (CHARWD R 0.493752)
    (CHARHT R 0.430555)
    (CHARIC R 0.107639)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C v)))
(CHARACTER C w
    (CHARWD R 0.713196)
    (CHARHT R 0.430555)
    (CHARIC R 0.107639)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C w)))
(CHARACTER C x
    (CHARWD R 0.494795)
    (CHARHT R 0.430555)
    (CHARIC R 0.121355)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C x)))
(CHARACTER C y
    (CHARWD R 0.521183)
    (CHARHT R 0.430555)
    (CHARDP R 0.194445)
    (CHARIC R 0.087502)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C y)))
(CHARACTER C z
    (CHARWD R 0.438892)
    (CHARHT R 0.430555)
    (CHARIC R 0.126738)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C z)))
(CHARACTER O 173
    (CHARWD R 0.548613)
    (CHARHT R 0.430555)
    (CHARIC R 0.093956)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 173)))
(CHARACTER O 174
    (CHARWD R 1.097225)
    (CHARHT R 0.430555)
    (CHARIC R 0.093956)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 174)))
(CHARACTER O 175
    (CHARWD R 0.548613)
    (CHARHT R 0.694445)
    (CHARIC R 0.11875)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 175)))
(CHARACTER O 176
    (CHARWD R 0.548613)
    (CHARHT R 0.670635)
    (CHARIC R 0.112799)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 176)))
(CHARACTER O 177
    (CHARWD R 0.548613)
    (CHARHT R 0.670635)
    (CHARIC R 0.099777)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 177)))

%</cmtiup8vpl>

%    \end{macrocode}
% \end{multicols}
% \subsection{File \FileName{cmtiup9.vpl}}
%    \begin{macrocode}
%<*cmtiup9vpl>
(VTITLE cmti9 with unslanted punctuation from cmr9 by SVZ, v.1.2 2001/01/08)
%    \end{macrocode}
% \begin{multicols}3
%    \begin{macrocode}
(FAMILY CMTI UNSLPUNCT)
(FACE O 354)
(CODINGSCHEME TEX TEXT)
(DESIGNSIZE R 9.0)
(CHECKSUM O 27432510671)
(FONTDIMEN
    (SLANT R 0.25)
    (SPACE R 0.36729)
    (STRETCH R 0.15741)
    (SHRINK R 0.104939)
    (XHEIGHT R 0.430555)
    (QUAD R 1.049397)
    (EXTRASPACE R 0.104939))
(MAPFONT D 0
    (FONTNAME cmti9)
    (FONTCHECKSUM O 27432510671)
    (FONTAT R 1.0)
    (FONTDSIZE R 9.0))
(MAPFONT D 1
    (FONTNAME cmr9)
    (FONTCHECKSUM O 15755105707)
    (FONTAT R 1.0)
    (FONTDSIZE R 9.0))
(LIGTABLE
    (LABEL O 40)
    (KRN C l R -0.262349)
    (KRN C L R -0.329017)
    (STOP)
    (LABEL O 140)
    (LIG O 140 O 134)
    (STOP)
    (LABEL O 47)
    (LIG O 47 O 42)
    (KRN O 77 R 0.104939)
    (KRN O 41 R 0.104939)
    (STOP)
    (LABEL O 55)
    (LIG O 55 O 173)
    (STOP)
    (LABEL O 173)
    (LIG O 55 O 174)
    (STOP)
    (LABEL O 41)
    (LIG O 140 O 74)
    (STOP)
    (LABEL O 77)
    (LIG O 140 O 76)
    (STOP)
    (LABEL C d)
    (LABEL C l)
    (LABEL C w)
    (KRN C l R 0.05247)
    (KRN O 72 R 0.078705)
    (KRN O 73 R 0.078705)
    (KRN O 41 R 0.104939)
    (KRN O 50 R 0.104939)
    (KRN O 51 R 0.104939)
    (KRN O 135 R 0.104939)
    (KRN O 133 R 0.104939)
    (KRN O 77 R 0.104939)
    (KRN C 0 R 0.078705)
    (KRN C 1 R 0.104939)
    (KRN C 2 R 0.104939)
    (KRN C 3 R 0.104939)
    (KRN C 4 R 0.078705)
    (KRN C 5 R 0.104939)
    (KRN C 6 R 0.078705)
    (KRN C 7 R 0.104939)
    (KRN C 8 R 0.104939)
    (KRN C 9 R 0.104939)
    (KRN O 43 R 0.104939)
    (KRN O 45 R 0.078705)
    (KRN O 100 R 0.104939)
    (KRN O 52 R 0.078705)
    (KRN O 53 R 0.078705)
    (KRN O 57 R 0.104939)
    (KRN O 74 R 0.104939)
    (KRN O 76 R 0.104939)
    (STOP)
    (LABEL C F)
    (LABEL C V)
    (KRN C o R -0.078705)
    (KRN C e R -0.078705)
    (KRN C u R -0.078705)
    (KRN C r R -0.078705)
    (KRN C a R -0.078705)
    (KRN C A R -0.104939)
    (LABEL C K)
    (LABEL C X)
    (KRN C O R -0.026235)
    (KRN C C R -0.026235)
    (KRN C G R -0.026235)
    (KRN C Q R -0.026235)
    (KRN O 72 R 0.078705)
    (KRN O 73 R 0.078705)
    (KRN O 41 R 0.104939)
    (KRN O 50 R 0.104939)
    (KRN O 51 R 0.104939)
    (KRN O 135 R 0.104939)
    (KRN O 133 R 0.104939)
    (KRN O 77 R 0.104939)
    (KRN C 0 R 0.078705)
    (KRN C 1 R 0.104939)
    (KRN C 2 R 0.104939)
    (KRN C 3 R 0.104939)
    (KRN C 4 R 0.078705)
    (KRN C 5 R 0.104939)
    (KRN C 6 R 0.078705)
    (KRN C 7 R 0.104939)
    (KRN C 8 R 0.104939)
    (KRN C 9 R 0.104939)
    (KRN O 43 R 0.104939)
    (KRN O 45 R 0.078705)
    (KRN O 100 R 0.104939)
    (KRN O 52 R 0.078705)
    (KRN O 53 R 0.078705)
    (KRN O 57 R 0.104939)
    (KRN O 74 R 0.104939)
    (KRN O 76 R 0.104939)
    (STOP)
    (LABEL C T)
    (KRN C y R -0.078705)
    (LABEL C Y)
    (KRN C e R -0.078705)
    (KRN C o R -0.078705)
    (KRN C r R -0.078705)
    (KRN C a R -0.078705)
    (KRN C u R -0.078705)
    (LABEL C W)
    (KRN C A R -0.078705)
    (KRN O 72 R 0.15741)
    (KRN O 73 R 0.15741)
    (KRN O 41 R 0.15741)
    (KRN O 50 R 0.15741)
    (KRN O 51 R 0.15741)
    (KRN O 135 R 0.15741)
    (KRN O 133 R 0.15741)
    (KRN O 77 R 0.15741)
    (KRN C 0 R 0.15741)
    (KRN C 1 R 0.15741)
    (KRN C 2 R 0.15741)
    (KRN C 3 R 0.15741)
    (KRN C 4 R 0.15741)
    (KRN C 5 R 0.15741)
    (KRN C 6 R 0.15741)
    (KRN C 7 R 0.15741)
    (KRN C 8 R 0.15741)
    (KRN C 9 R 0.15741)
    (KRN O 43 R 0.15741)
    (KRN O 45 R 0.15741)
    (KRN O 100 R 0.15741)
    (KRN O 52 R 0.078705)
    (KRN O 53 R 0.078705)
    (KRN O 57 R 0.15741)
    (KRN O 74 R 0.15741)
    (KRN O 76 R 0.15741)
    (STOP)
    (LABEL C P)
    (KRN C A R -0.078705)
    (KRN O 72 R 0.078705)
    (KRN O 73 R 0.078705)
    (KRN O 41 R 0.104939)
    (KRN O 50 R 0.104939)
    (KRN O 51 R 0.104939)
    (KRN O 135 R 0.104939)
    (KRN O 133 R 0.104939)
    (KRN O 77 R 0.104939)
    (KRN C 0 R 0.078705)
    (KRN C 1 R 0.104939)
    (KRN C 2 R 0.104939)
    (KRN C 3 R 0.104939)
    (KRN C 4 R 0.078705)
    (KRN C 5 R 0.104939)
    (KRN C 6 R 0.078705)
    (KRN C 7 R 0.104939)
    (KRN C 8 R 0.104939)
    (KRN C 9 R 0.104939)
    (KRN O 43 R 0.104939)
    (KRN O 45 R 0.078705)
    (KRN O 100 R 0.104939)
    (KRN O 52 R 0.078705)
    (KRN O 53 R 0.078705)
    (KRN O 57 R 0.104939)
    (KRN O 74 R 0.104939)
    (KRN O 76 R 0.104939)
    (STOP)
    (LABEL C D)
    (LABEL C O)
    (KRN C X R -0.026235)
    (KRN C W R -0.026235)
    (KRN C A R -0.026235)
    (KRN C V R -0.026235)
    (KRN C Y R -0.026235)
    (KRN O 72 R 0.078705)
    (KRN O 73 R 0.078705)
    (KRN O 41 R 0.104939)
    (KRN O 50 R 0.104939)
    (KRN O 51 R 0.104939)
    (KRN O 135 R 0.104939)
    (KRN O 133 R 0.104939)
    (KRN O 77 R 0.104939)
    (KRN C 0 R 0.078705)
    (KRN C 1 R 0.104939)
    (KRN C 2 R 0.104939)
    (KRN C 3 R 0.104939)
    (KRN C 4 R 0.078705)
    (KRN C 5 R 0.104939)
    (KRN C 6 R 0.078705)
    (KRN C 7 R 0.104939)
    (KRN C 8 R 0.104939)
    (KRN C 9 R 0.104939)
    (KRN O 43 R 0.104939)
    (KRN O 45 R 0.078705)
    (KRN O 100 R 0.104939)
    (KRN O 52 R 0.078705)
    (KRN O 53 R 0.078705)
    (KRN O 57 R 0.104939)
    (KRN O 74 R 0.104939)
    (KRN O 76 R 0.104939)
    (STOP)
    (LABEL C A)
    (KRN C n R -0.026235)
    (KRN C l R -0.026235)
    (KRN C r R -0.026235)
    (KRN C u R -0.026235)
    (KRN C m R -0.026235)
    (KRN C t R -0.026235)
    (KRN C i R -0.026235)
    (KRN C C R -0.026235)
    (KRN C O R -0.026235)
    (KRN C G R -0.026235)
    (KRN C h R -0.026235)
    (KRN C b R -0.026235)
    (KRN C U R -0.026235)
    (KRN C k R -0.026235)
    (KRN C v R -0.026235)
    (KRN C w R -0.026235)
    (KRN C Q R -0.026235)
    (KRN C T R -0.078705)
    (KRN C Y R -0.078705)
    (KRN C V R -0.104939)
    (KRN C W R -0.104939)
    (KRN C e R -0.05247)
    (KRN C a R -0.05247)
    (KRN C o R -0.05247)
    (KRN C d R -0.05247)
    (KRN C c R -0.05247)
    (KRN C g R -0.05247)
    (KRN C q R -0.05247)
    (KRN O 72 R 0.05247)
    (KRN O 73 R 0.05247)
    (KRN O 41 R 0.05247)
    (KRN O 50 R 0.05247)
    (KRN O 51 R 0.05247)
    (KRN O 135 R 0.05247)
    (KRN O 133 R 0.05247)
    (KRN O 77 R 0.05247)
    (KRN C 0 R 0.05247)
    (KRN C 1 R 0.05247)
    (KRN C 2 R 0.05247)
    (KRN C 3 R 0.05247)
    (KRN C 4 R 0.05247)
    (KRN C 5 R 0.05247)
    (KRN C 6 R 0.05247)
    (KRN C 7 R 0.05247)
    (KRN C 8 R 0.05247)
    (KRN C 9 R 0.05247)
    (KRN O 43 R 0.05247)
    (KRN O 45 R 0.05247)
    (KRN O 100 R 0.05247)
    (KRN O 52 R 0.05247)
    (KRN O 53 R 0.05247)
    (KRN O 57 R 0.05247)
    (KRN O 74 R 0.05247)
    (KRN O 76 R 0.05247)
    (STOP)
    (LABEL C R)
    (KRN C n R -0.026235)
    (KRN C l R -0.026235)
    (KRN C r R -0.026235)
    (KRN C u R -0.026235)
    (KRN C m R -0.026235)
    (KRN C t R -0.026235)
    (KRN C i R -0.026235)
    (KRN C C R -0.026235)
    (KRN C O R -0.026235)
    (KRN C G R -0.026235)
    (KRN C h R -0.026235)
    (KRN C b R -0.026235)
    (KRN C U R -0.026235)
    (KRN C k R -0.026235)
    (KRN C v R -0.026235)
    (KRN C w R -0.026235)
    (KRN C Q R -0.026235)
    (LABEL C L)
    (KRN C T R -0.078705)
    (KRN C Y R -0.078705)
    (KRN C V R -0.104939)
    (KRN C W R -0.104939)
    (KRN O 72 R 0.078705)
    (KRN O 73 R 0.078705)
    (KRN O 41 R 0.104939)
    (KRN O 50 R 0.104939)
    (KRN O 51 R 0.104939)
    (KRN O 135 R 0.104939)
    (KRN O 133 R 0.104939)
    (KRN O 77 R 0.104939)
    (KRN C 0 R 0.078705)
    (KRN C 1 R 0.104939)
    (KRN C 2 R 0.104939)
    (KRN C 3 R 0.104939)
    (KRN C 4 R 0.078705)
    (KRN C 5 R 0.104939)
    (KRN C 6 R 0.078705)
    (KRN C 7 R 0.104939)
    (KRN C 8 R 0.104939)
    (KRN C 9 R 0.104939)
    (KRN O 43 R 0.104939)
    (KRN O 45 R 0.078705)
    (KRN O 100 R 0.104939)
    (KRN O 52 R 0.078705)
    (KRN O 53 R 0.078705)
    (KRN O 57 R 0.104939)
    (KRN O 74 R 0.104939)
    (KRN O 76 R 0.104939)
    (KRN C e R -0.05247)
    (KRN C a R -0.05247)
    (KRN C o R -0.05247)
    (KRN C d R -0.05247)
    (KRN C c R -0.05247)
    (KRN C g R -0.05247)
    (KRN C q R -0.05247)
    (STOP)
    (LABEL C b)
    (LABEL C c)
    (LABEL C e)
    (LABEL C o)
    (LABEL C p)
    (LABEL C r)
    (KRN C e R -0.05247)
    (KRN C a R -0.05247)
    (KRN C o R -0.05247)
    (KRN C d R -0.05247)
    (KRN C c R -0.05247)
    (KRN C g R -0.05247)
    (KRN C q R -0.05247)
    (KRN O 72 R 0.05247)
    (KRN O 73 R 0.05247)
    (KRN O 41 R 0.05247)
    (KRN O 50 R 0.05247)
    (KRN O 51 R 0.05247)
    (KRN O 135 R 0.05247)
    (KRN O 133 R 0.05247)
    (KRN O 77 R 0.05247)
    (KRN C 0 R 0.05247)
    (KRN C 1 R 0.05247)
    (KRN C 2 R 0.05247)
    (KRN C 3 R 0.05247)
    (KRN C 4 R 0.05247)
    (KRN C 5 R 0.05247)
    (KRN C 6 R 0.05247)
    (KRN C 7 R 0.05247)
    (KRN C 8 R 0.05247)
    (KRN C 9 R 0.05247)
    (KRN O 43 R 0.05247)
    (KRN O 45 R 0.05247)
    (KRN O 100 R 0.05247)
    (KRN O 52 R 0.05247)
    (KRN O 53 R 0.05247)
    (KRN O 57 R 0.05247)
    (KRN O 74 R 0.05247)
    (KRN O 76 R 0.05247)
    (STOP)
    (LABEL C n)
    (KRN O 47 R -0.104939)
    (KRN O 72 R 0.078705)
    (KRN O 73 R 0.078705)
    (KRN O 41 R 0.104939)
    (KRN O 50 R 0.104939)
    (KRN O 51 R 0.104939)
    (KRN O 135 R 0.104939)
    (KRN O 133 R 0.104939)
    (KRN O 77 R 0.104939)
    (KRN C 0 R 0.078705)
    (KRN C 1 R 0.104939)
    (KRN C 2 R 0.104939)
    (KRN C 3 R 0.104939)
    (KRN C 4 R 0.078705)
    (KRN C 5 R 0.104939)
    (KRN C 6 R 0.078705)
    (KRN C 7 R 0.104939)
    (KRN C 8 R 0.104939)
    (KRN C 9 R 0.104939)
    (KRN O 43 R 0.104939)
    (KRN O 45 R 0.078705)
    (KRN O 100 R 0.104939)
    (KRN O 52 R 0.078705)
    (KRN O 53 R 0.078705)
    (KRN O 57 R 0.104939)
    (KRN O 74 R 0.104939)
    (KRN O 76 R 0.104939)
    (STOP)
    (LABEL C H)
    (LABEL C I)
    (LABEL C J)
    (LABEL C M)
    (LABEL C N)
    (LABEL C U)
    (LABEL C Z)
    (KRN O 72 R 0.15741)
    (KRN O 73 R 0.15741)
    (KRN O 41 R 0.15741)
    (KRN O 50 R 0.15741)
    (KRN O 51 R 0.15741)
    (KRN O 135 R 0.15741)
    (KRN O 133 R 0.15741)
    (KRN O 77 R 0.15741)
    (KRN C 0 R 0.15741)
    (KRN C 1 R 0.15741)
    (KRN C 2 R 0.15741)
    (KRN C 3 R 0.15741)
    (KRN C 4 R 0.15741)
    (KRN C 5 R 0.15741)
    (KRN C 6 R 0.15741)
    (KRN C 7 R 0.15741)
    (KRN C 8 R 0.15741)
    (KRN C 9 R 0.15741)
    (KRN O 43 R 0.15741)
    (KRN O 45 R 0.15741)
    (KRN O 100 R 0.15741)
    (KRN O 52 R 0.078705)
    (KRN O 53 R 0.078705)
    (KRN O 57 R 0.15741)
    (KRN O 74 R 0.15741)
    (KRN O 76 R 0.15741)
    (STOP)
    (LABEL C B)
    (LABEL C C)
    (LABEL C E)
    (LABEL C G)
    (LABEL C Q)
    (LABEL C S)
    (LABEL C a)
    (LABEL C g)
    (LABEL C h)
    (LABEL C i)
    (LABEL C j)
    (LABEL C k)
    (LABEL C m)
    (LABEL C q)
    (LABEL C s)
    (LABEL C t)
    (LABEL C u)
    (LABEL C v)
    (LABEL C x)
    (LABEL C y)
    (LABEL C z)
    (KRN O 72 R 0.078705)
    (KRN O 73 R 0.078705)
    (KRN O 41 R 0.104939)
    (KRN O 50 R 0.104939)
    (KRN O 51 R 0.104939)
    (KRN O 135 R 0.104939)
    (KRN O 133 R 0.104939)
    (KRN O 77 R 0.104939)
    (KRN C 0 R 0.078705)
    (KRN C 1 R 0.104939)
    (KRN C 2 R 0.104939)
    (KRN C 3 R 0.104939)
    (KRN C 4 R 0.078705)
    (KRN C 5 R 0.104939)
    (KRN C 6 R 0.078705)
    (KRN C 7 R 0.104939)
    (KRN C 8 R 0.104939)
    (KRN C 9 R 0.104939)
    (KRN O 43 R 0.104939)
    (KRN O 45 R 0.078705)
    (KRN O 100 R 0.104939)
    (KRN O 52 R 0.078705)
    (KRN O 53 R 0.078705)
    (KRN O 57 R 0.104939)
    (KRN O 74 R 0.104939)
    (KRN O 76 R 0.104939)
    (STOP)
    (LABEL C f)
    (LIG C i O 14)
    (LIG C f O 13)
    (LIG C l O 15)
    (KRN O 47 R 0.104939)
    (KRN O 72 R 0.15741)
    (KRN O 73 R 0.15741)
    (KRN O 41 R 0.15741)
    (KRN O 50 R 0.15741)
    (KRN O 51 R 0.15741)
    (KRN O 135 R 0.15741)
    (KRN O 133 R 0.15741)
    (KRN O 77 R 0.15741)
    (KRN C 0 R 0.15741)
    (KRN C 1 R 0.15741)
    (KRN C 2 R 0.15741)
    (KRN C 3 R 0.15741)
    (KRN C 4 R 0.15741)
    (KRN C 5 R 0.15741)
    (KRN C 6 R 0.15741)
    (KRN C 7 R 0.15741)
    (KRN C 8 R 0.15741)
    (KRN C 9 R 0.15741)
    (KRN O 43 R 0.15741)
    (KRN O 45 R 0.15741)
    (KRN O 100 R 0.15741)
    (KRN O 52 R 0.078705)
    (KRN O 53 R 0.078705)
    (KRN O 57 R 0.15741)
    (KRN O 74 R 0.15741)
    (KRN O 76 R 0.15741)
    (STOP)
    (LABEL O 13)
    (LIG C i O 16)
    (LIG C l O 17)
    (KRN O 47 R 0.104939)
    (KRN O 72 R 0.15741)
    (KRN O 73 R 0.15741)
    (KRN O 41 R 0.15741)
    (KRN O 50 R 0.15741)
    (KRN O 51 R 0.15741)
    (KRN O 135 R 0.15741)
    (KRN O 133 R 0.15741)
    (KRN O 77 R 0.15741)
    (KRN C 0 R 0.15741)
    (KRN C 1 R 0.15741)
    (KRN C 2 R 0.15741)
    (KRN C 3 R 0.15741)
    (KRN C 4 R 0.15741)
    (KRN C 5 R 0.15741)
    (KRN C 6 R 0.15741)
    (KRN C 7 R 0.15741)
    (KRN C 8 R 0.15741)
    (KRN C 9 R 0.15741)
    (KRN O 43 R 0.15741)
    (KRN O 45 R 0.15741)
    (KRN O 100 R 0.15741)
    (KRN O 52 R 0.078705)
    (KRN O 53 R 0.078705)
    (KRN O 57 R 0.15741)
    (KRN O 74 R 0.15741)
    (KRN O 76 R 0.15741)
    (STOP))
(CHARACTER O 0
    (CHARWD R 0.643836)
    (CHARHT R 0.683332)
    (CHARIC R 0.131481)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 0)))
(CHARACTER O 1
    (CHARWD R 0.839519)
    (CHARHT R 0.683332)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 1)))
(CHARACTER O 2
    (CHARWD R 0.787048)
    (CHARHT R 0.683332)
    (CHARIC R 0.0933485)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 2)))
(CHARACTER O 3
    (CHARWD R 0.710504)
    (CHARHT R 0.683332)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 3)))
(CHARACTER O 4
    (CHARWD R 0.682109)
    (CHARHT R 0.683332)
    (CHARIC R 0.15247)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 4)))
(CHARACTER O 5
    (CHARWD R 0.762974)
    (CHARHT R 0.683332)
    (CHARIC R 0.159722)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 5)))
(CHARACTER O 6
    (CHARWD R 0.734578)
    (CHARHT R 0.683332)
    (CHARIC R 0.118364)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 6)))
(CHARACTER O 7
    (CHARWD R 0.787048)
    (CHARHT R 0.683332)
    (CHARIC R 0.110433)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 7)))
(CHARACTER O 10
    (CHARWD R 0.734578)
    (CHARHT R 0.683332)
    (CHARIC R 0.059182)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 10)))
(CHARACTER O 11
    (CHARWD R 0.787048)
    (CHARHT R 0.683332)
    (CHARIC R 0.110433)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 11)))
(CHARACTER O 12
    (CHARWD R 0.734578)
    (CHARHT R 0.683332)
    (CHARIC R 0.10189)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 12)))
(CHARACTER O 13
    (CHARWD R 0.629639)
    (CHARHT R 0.694445)
    (CHARDP R 0.194445)
    (CHARIC R 0.212963)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 13)))
(CHARACTER O 14
    (CHARWD R 0.577168)
    (CHARHT R 0.694445)
    (CHARDP R 0.194445)
    (CHARIC R 0.102622)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 14)))
(CHARACTER O 15
    (CHARWD R 0.603404)
    (CHARHT R 0.694445)
    (CHARDP R 0.194445)
    (CHARIC R 0.102622)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 15)))
(CHARACTER O 16
    (CHARWD R 0.905106)
    (CHARHT R 0.694445)
    (CHARDP R 0.194445)
    (CHARIC R 0.102622)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 16)))
(CHARACTER O 17
    (CHARWD R 0.918223)
    (CHARHT R 0.694445)
    (CHARDP R 0.194445)
    (CHARIC R 0.102622)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 17)))
(CHARACTER O 20
    (CHARWD R 0.314819)
    (CHARHT R 0.430555)
    (CHARIC R 0.079091)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 20)))
(CHARACTER O 21
    (CHARWD R 0.341054)
    (CHARHT R 0.430555)
    (CHARDP R 0.194445)
    (CHARIC R 0.03665)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 21)))
(CHARACTER O 22
    (CHARWD R 0.524699)
    (CHARHT R 0.694445)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 22)))
(CHARACTER O 23
    (CHARWD R 0.524699)
    (CHARHT R 0.694445)
    (CHARIC R 0.094906)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 23)))
(CHARACTER O 24
    (CHARWD R 0.524699)
    (CHARHT R 0.628472)
    (CHARIC R 0.082272)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 24)))
(CHARACTER O 25
    (CHARWD R 0.524699)
    (CHARHT R 0.694445)
    (CHARIC R 0.107252)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 25)))
(CHARACTER O 26
    (CHARWD R 0.524699)
    (CHARHT R 0.56713)
    (CHARIC R 0.103008)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 26)))
(CHARACTER O 27
    (CHARWD R 0.850937)
    (CHARHT R 0.694445)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 27)))
(CHARACTER O 30
    (CHARWD R 0.472229)
    (CHARDP R 0.170139)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 30)))
(CHARACTER O 31
    (CHARWD R 0.550934)
    (CHARHT R 0.694445)
    (CHARDP R 0.194445)
    (CHARIC R 0.10378)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 31)))
(CHARACTER O 32
    (CHARWD R 0.734578)
    (CHARHT R 0.430555)
    (CHARIC R 0.07554)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 32)))
(CHARACTER O 33
    (CHARWD R 0.734578)
    (CHARHT R 0.430555)
    (CHARIC R 0.07554)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 33)))
(CHARACTER O 34
    (CHARWD R 0.524699)
    (CHARHT R 0.527778)
    (CHARDP R 0.097222)
    (CHARIC R 0.091821)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 34)))
(CHARACTER O 35
    (CHARWD R 0.906185)
    (CHARHT R 0.683332)
    (CHARIC R 0.118364)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 35)))
(CHARACTER O 36
    (CHARWD R 1.011126)
    (CHARHT R 0.683332)
    (CHARIC R 0.118364)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 36)))
(CHARACTER O 37
    (CHARWD R 0.787048)
    (CHARHT R 0.731944)
    (CHARDP R 0.048611)
    (CHARIC R 0.0933485)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 37)))
(CHARACTER O 40
    (CHARWD R 0.262349)
    (CHARHT R 0.430555)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 40)))
(CHARACTER O 41
    (CHARWD R 0.314819)
    (CHARHT R 0.694445)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01466350)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'41}'' width (2.56943{\ttfamily pt} from {\ttfamily cmr9})
%  has been adjusted by increasing interletter space on 0.13197{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup9}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 41)
        (MOVERIGHT R 0.01466350)))
(CHARACTER O 42
    (CHARWD R 0.527784)
    (CHARHT R 0.694445)
    (CHARIC R 0.066509)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 42)))
(CHARACTER O 43
    (CHARWD R 0.839519)
    (CHARHT R 0.694445)
    (CHARDP R 0.194445)
    (MAP
        (SELECTFONT D 1)
        (MOVELEFT R 0.00847850)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'43}'' width (7.70828{\ttfamily pt} from {\ttfamily cmr9})
%  has been adjusted by decreasing interletter space on 0.07631{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup9}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 43)
        (MOVELEFT R 0.00847850)))
(CHARACTER O 44
    (CHARWD R 0.786082)
    (CHARHT R 0.694445)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 44)))
(CHARACTER O 45
    (CHARWD R 0.839519)
    (CHARHT R 0.75)
    (CHARDP R 0.055555)
    (MAP
        (SELECTFONT D 1)
        (MOVELEFT R 0.00847850)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'45}'' width (7.70828{\ttfamily pt} from {\ttfamily cmr9})
%  has been adjusted by decreasing interletter space on 0.07631{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup9}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 45)
        (MOVELEFT R 0.00847850)))
(CHARACTER O 46
    (CHARWD R 0.787048)
    (CHARHT R 0.694445)
    (CHARIC R 0.094906)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 46)))
(CHARACTER O 47
    (CHARWD R 0.314819)
    (CHARHT R 0.694445)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 47)))
(CHARACTER O 50
    (CHARWD R 0.419759)
    (CHARHT R 0.75)
    (CHARDP R 0.25)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01003500)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'50}'' width (3.59720{\ttfamily pt} from {\ttfamily cmr9})
%  has been adjusted by increasing interletter space on 0.09031{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup9}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 50)
        (MOVERIGHT R 0.01003500)))
(CHARACTER O 51
    (CHARWD R 0.419759)
    (CHARHT R 0.75)
    (CHARDP R 0.25)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01003500)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'51}'' width (3.59720{\ttfamily pt} from {\ttfamily cmr9})
%  has been adjusted by increasing interletter space on 0.09031{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup9}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 51)
        (MOVERIGHT R 0.01003500)))
(CHARACTER O 52
    (CHARWD R 0.524699)
    (CHARHT R 0.75)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00540675)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'52}'' width (4.62497{\ttfamily pt} from {\ttfamily cmr9})
%  has been adjusted by increasing interletter space on 0.04866{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup9}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 52)
        (MOVERIGHT R 0.00540675)))
(CHARACTER O 53
    (CHARWD R 0.787048)
    (CHARHT R 0.56713)
    (CHARDP R 0.064819)
    (MAP
        (SELECTFONT D 1)
        (MOVELEFT R 0.00616450)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'53}'' width (7.19439{\ttfamily pt} from {\ttfamily cmr9})
%  has been adjusted by decreasing interletter space on 0.05548{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup9}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 53)
        (MOVELEFT R 0.00616450)))
(CHARACTER O 54
    (CHARWD R 0.314819)
    (CHARHT R 0.108026)
    (CHARDP R 0.194445)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01466350)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'54}'' width (2.56943{\ttfamily pt} from {\ttfamily cmr9})
%  has been adjusted by increasing interletter space on 0.13197{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup9}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 54)
        (MOVERIGHT R 0.01466350)))
(CHARACTER O 55
    (CHARWD R 0.36729)
    (CHARHT R 0.430555)
    (CHARIC R 0.027584)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 55)))
(CHARACTER O 56
    (CHARWD R 0.314819)
    (CHARHT R 0.108026)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01466350)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'56}'' width (2.56943{\ttfamily pt} from {\ttfamily cmr9})
%  has been adjusted by increasing interletter space on 0.13197{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup9}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 56)
        (MOVERIGHT R 0.01466350)))
(CHARACTER O 57
    (CHARWD R 0.524699)
    (CHARHT R 0.75)
    (CHARDP R 0.25)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00540675)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'57}'' width (4.62497{\ttfamily pt} from {\ttfamily cmr9})
%  has been adjusted by increasing interletter space on 0.04866{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup9}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 57)
        (MOVERIGHT R 0.00540675)))
(CHARACTER C 0
    (CHARWD R 0.524699)
    (CHARHT R 0.644444)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00540675)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont 0}'' width (4.62497{\ttfamily pt} from {\ttfamily cmr9})
%  has been adjusted by increasing interletter space on 0.04866{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup9}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR C 0)
        (MOVERIGHT R 0.00540675)))
(CHARACTER C 1
    (CHARWD R 0.524699)
    (CHARHT R 0.644444)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00540675)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont 1}'' width (4.62497{\ttfamily pt} from {\ttfamily cmr9})
%  has been adjusted by increasing interletter space on 0.04866{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup9}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR C 1)
        (MOVERIGHT R 0.00540675)))
(CHARACTER C 2
    (CHARWD R 0.524699)
    (CHARHT R 0.644444)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00540675)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont 2}'' width (4.62497{\ttfamily pt} from {\ttfamily cmr9})
%  has been adjusted by increasing interletter space on 0.04866{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup9}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR C 2)
        (MOVERIGHT R 0.00540675)))
(CHARACTER C 3
    (CHARWD R 0.524699)
    (CHARHT R 0.644444)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00540675)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont 3}'' width (4.62497{\ttfamily pt} from {\ttfamily cmr9})
%  has been adjusted by increasing interletter space on 0.04866{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup9}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR C 3)
        (MOVERIGHT R 0.00540675)))
(CHARACTER C 4
    (CHARWD R 0.524699)
    (CHARHT R 0.644444)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00540675)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont 4}'' width (4.62497{\ttfamily pt} from {\ttfamily cmr9})
%  has been adjusted by increasing interletter space on 0.04866{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup9}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR C 4)
        (MOVERIGHT R 0.00540675)))
(CHARACTER C 5
    (CHARWD R 0.524699)
    (CHARHT R 0.644444)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00540675)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont 5}'' width (4.62497{\ttfamily pt} from {\ttfamily cmr9})
%  has been adjusted by increasing interletter space on 0.04866{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup9}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR C 5)
        (MOVERIGHT R 0.00540675)))
(CHARACTER C 6
    (CHARWD R 0.524699)
    (CHARHT R 0.644444)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00540675)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont 6}'' width (4.62497{\ttfamily pt} from {\ttfamily cmr9})
%  has been adjusted by increasing interletter space on 0.04866{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup9}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR C 6)
        (MOVERIGHT R 0.00540675)))
(CHARACTER C 7
    (CHARWD R 0.524699)
    (CHARHT R 0.644444)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00540675)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont 7}'' width (4.62497{\ttfamily pt} from {\ttfamily cmr9})
%  has been adjusted by increasing interletter space on 0.04866{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup9}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR C 7)
        (MOVERIGHT R 0.00540675)))
(CHARACTER C 8
    (CHARWD R 0.524699)
    (CHARHT R 0.644444)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00540675)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont 8}'' width (4.62497{\ttfamily pt} from {\ttfamily cmr9})
%  has been adjusted by increasing interletter space on 0.04866{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup9}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR C 8)
        (MOVERIGHT R 0.00540675)))
(CHARACTER C 9
    (CHARWD R 0.524699)
    (CHARHT R 0.644444)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00540675)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont 9}'' width (4.62497{\ttfamily pt} from {\ttfamily cmr9})
%  has been adjusted by increasing interletter space on 0.04866{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup9}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR C 9)
        (MOVERIGHT R 0.00540675)))
(CHARACTER O 72
    (CHARWD R 0.314819)
    (CHARHT R 0.430555)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01466350)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'72}'' width (2.56943{\ttfamily pt} from {\ttfamily cmr9})
%  has been adjusted by increasing interletter space on 0.13197{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup9}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 72)
        (MOVERIGHT R 0.01466350)))
(CHARACTER O 73
    (CHARWD R 0.314819)
    (CHARHT R 0.430555)
    (CHARDP R 0.194445)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01466350)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'73}'' width (2.56943{\ttfamily pt} from {\ttfamily cmr9})
%  has been adjusted by increasing interletter space on 0.13197{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup9}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 73)
        (MOVERIGHT R 0.01466350)))
(CHARACTER O 74
    (CHARWD R 0.314819)
    (CHARHT R 0.5)
    (CHARDP R 0.194445)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01466350)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'74}'' width (2.56943{\ttfamily pt} from {\ttfamily cmr9})
%  has been adjusted by increasing interletter space on 0.13197{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup9}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 74)
        (MOVERIGHT R 0.01466350)))
(CHARACTER O 75
    (CHARWD R 0.787048)
    (CHARHT R 0.3722925)
    (CHARDP R -0.1277075)
    (MAP
        (SELECTFONT D 1)
        (MOVELEFT R 0.00616450)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'75}'' width (7.19439{\ttfamily pt} from {\ttfamily cmr9})
%  has been adjusted by decreasing interletter space on 0.05548{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup9}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 75)
        (MOVELEFT R 0.00616450)))
(CHARACTER O 76
    (CHARWD R 0.524699)
    (CHARHT R 0.5)
    (CHARDP R 0.194445)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01968150)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'76}'' width (4.36802{\ttfamily pt} from {\ttfamily cmr9})
%  has been adjusted by increasing interletter space on 0.17713{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup9}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 76)
        (MOVERIGHT R 0.01968150)))
(CHARACTER O 77
    (CHARWD R 0.524699)
    (CHARHT R 0.694445)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01968150)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'77}'' width (4.36802{\ttfamily pt} from {\ttfamily cmr9})
%  has been adjusted by increasing interletter space on 0.17713{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup9}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 77)
        (MOVERIGHT R 0.01968150)))
(CHARACTER O 100
    (CHARWD R 0.787048)
    (CHARHT R 0.694445)
    (MAP
        (SELECTFONT D 1)
        (MOVELEFT R 0.00616450)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'100}'' width (7.19439{\ttfamily pt} from {\ttfamily cmr9})
%  has been adjusted by decreasing interletter space on 0.05548{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup9}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 100)
        (MOVELEFT R 0.00616450)))
(CHARACTER C A
    (CHARWD R 0.762974)
    (CHARHT R 0.683332)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C A)))
(CHARACTER C B
    (CHARWD R 0.722541)
    (CHARHT R 0.683332)
    (CHARIC R 0.10189)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C B)))
(CHARACTER C C
    (CHARWD R 0.734578)
    (CHARHT R 0.683332)
    (CHARIC R 0.144599)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C C)))
(CHARACTER C D
    (CHARWD R 0.775011)
    (CHARHT R 0.683332)
    (CHARIC R 0.0933485)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C D)))
(CHARACTER C E
    (CHARWD R 0.696306)
    (CHARHT R 0.683332)
    (CHARIC R 0.118364)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C E)))
(CHARACTER C F
    (CHARWD R 0.670071)
    (CHARHT R 0.683332)
    (CHARIC R 0.131481)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C F)))
(CHARACTER C G
    (CHARWD R 0.7941475)
    (CHARHT R 0.683332)
    (CHARIC R 0.085031)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C G)))
(CHARACTER C H
    (CHARWD R 0.762974)
    (CHARHT R 0.683332)
    (CHARIC R 0.159722)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C H)))
(CHARACTER C I
    (CHARWD R 0.395684)
    (CHARHT R 0.683332)
    (CHARIC R 0.157717)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C I)))
(CHARACTER C J
    (CHARWD R 0.538897)
    (CHARHT R 0.683332)
    (CHARIC R 0.1361885)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C J)))
(CHARACTER C K
    (CHARWD R 0.789208)
    (CHARHT R 0.683332)
    (CHARIC R 0.144599)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C K)))
(CHARACTER C L
    (CHARWD R 0.643836)
    (CHARHT R 0.683332)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C L)))
(CHARACTER C M
    (CHARWD R 0.920383)
    (CHARHT R 0.683332)
    (CHARIC R 0.159722)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C M)))
(CHARACTER C N
    (CHARWD R 0.762974)
    (CHARHT R 0.683332)
    (CHARIC R 0.159722)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C N)))
(CHARACTER C O
    (CHARWD R 0.787048)
    (CHARHT R 0.683332)
    (CHARIC R 0.0933485)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C O)))
(CHARACTER C P
    (CHARWD R 0.696306)
    (CHARHT R 0.683332)
    (CHARIC R 0.10189)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C P)))
(CHARACTER C Q
    (CHARWD R 0.787048)
    (CHARHT R 0.683332)
    (CHARDP R 0.194445)
    (CHARIC R 0.0933485)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C Q)))
(CHARACTER C R
    (CHARWD R 0.7487755)
    (CHARHT R 0.683332)
    (CHARIC R 0.036303)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C R)))
(CHARACTER C S
    (CHARWD R 0.577168)
    (CHARHT R 0.683332)
    (CHARIC R 0.118364)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C S)))
(CHARACTER C T
    (CHARWD R 0.734578)
    (CHARHT R 0.683332)
    (CHARIC R 0.131481)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C T)))
(CHARACTER C U
    (CHARWD R 0.762974)
    (CHARHT R 0.683332)
    (CHARIC R 0.159722)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C U)))
(CHARACTER C V
    (CHARWD R 0.762974)
    (CHARHT R 0.683332)
    (CHARIC R 0.183951)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C V)))
(CHARACTER C W
    (CHARWD R 1.025323)
    (CHARHT R 0.683332)
    (CHARIC R 0.183951)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C W)))
(CHARACTER C X
    (CHARWD R 0.762974)
    (CHARHT R 0.683332)
    (CHARIC R 0.157717)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C X)))
(CHARACTER C Y
    (CHARWD R 0.762974)
    (CHARHT R 0.683332)
    (CHARIC R 0.194447)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C Y)))
(CHARACTER C Z
    (CHARWD R 0.629639)
    (CHARHT R 0.683332)
    (CHARIC R 0.144599)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C Z)))
(CHARACTER O 133
    (CHARWD R 0.314819)
    (CHARHT R 0.75)
    (CHARDP R 0.25)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01466350)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'133}'' width (2.56943{\ttfamily pt} from {\ttfamily cmr9})
%  has been adjusted by increasing interletter space on 0.13197{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup9}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 133)
        (MOVERIGHT R 0.01466350)))
(CHARACTER O 134
    (CHARWD R 0.527784)
    (CHARHT R 0.694445)
    (CHARIC R 0.168364)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 134)))
(CHARACTER O 135
    (CHARWD R 0.314819)
    (CHARHT R 0.75)
    (CHARDP R 0.25)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01466350)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'135}'' width (2.56943{\ttfamily pt} from {\ttfamily cmr9})
%  has been adjusted by increasing interletter space on 0.13197{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup9}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 135)
        (MOVERIGHT R 0.01466350)))
(CHARACTER O 136
    (CHARWD R 0.524699)
    (CHARHT R 0.694445)
    (CHARIC R 0.065779)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 136)))
(CHARACTER O 137
    (CHARWD R 0.314819)
    (CHARHT R 0.669093)
    (CHARIC R 0.116346)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 137)))
(CHARACTER O 140
    (CHARWD R 0.314819)
    (CHARHT R 0.694445)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 140)))
(CHARACTER C a
    (CHARWD R 0.524699)
    (CHARHT R 0.430555)
    (CHARIC R 0.079091)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C a)))
(CHARACTER C b
    (CHARWD R 0.472229)
    (CHARHT R 0.694445)
    (CHARIC R 0.063002)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C b)))
(CHARACTER C c
    (CHARWD R 0.472229)
    (CHARHT R 0.430555)
    (CHARIC R 0.055169)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C c)))
(CHARACTER C d
    (CHARWD R 0.524699)
    (CHARHT R 0.694445)
    (CHARIC R 0.102622)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C d)))
(CHARACTER C e
    (CHARWD R 0.472229)
    (CHARHT R 0.430555)
    (CHARIC R 0.07554)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C e)))
(CHARACTER C f
    (CHARWD R 0.314819)
    (CHARHT R 0.694445)
    (CHARDP R 0.194445)
    (CHARIC R 0.212963)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C f)))
(CHARACTER C g
    (CHARWD R 0.472229)
    (CHARHT R 0.430555)
    (CHARDP R 0.194445)
    (CHARIC R 0.08912)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C g)))
(CHARACTER C h
    (CHARWD R 0.524699)
    (CHARHT R 0.694445)
    (CHARIC R 0.079091)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C h)))
(CHARACTER C i
    (CHARWD R 0.314819)
    (CHARHT R 0.655204)
    (CHARIC R 0.098986)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C i)))
(CHARACTER C j
    (CHARWD R 0.314819)
    (CHARHT R 0.655204)
    (CHARDP R 0.194445)
    (CHARIC R 0.145283)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C j)))
(CHARACTER C k
    (CHARWD R 0.472229)
    (CHARHT R 0.694445)
    (CHARIC R 0.107639)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C k)))
(CHARACTER C l
    (CHARWD R 0.262349)
    (CHARHT R 0.694445)
    (CHARIC R 0.102622)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C l)))
(CHARACTER C m
    (CHARWD R 0.839519)
    (CHARHT R 0.430555)
    (CHARIC R 0.079091)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C m)))
(CHARACTER C n
    (CHARWD R 0.577168)
    (CHARHT R 0.430555)
    (CHARIC R 0.079091)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C n)))
(CHARACTER C o
    (CHARWD R 0.524699)
    (CHARHT R 0.430555)
    (CHARIC R 0.063002)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C o)))
(CHARACTER C p
    (CHARWD R 0.524699)
    (CHARHT R 0.430555)
    (CHARDP R 0.194445)
    (CHARIC R 0.063002)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C p)))
(CHARACTER C q
    (CHARWD R 0.472229)
    (CHARHT R 0.430555)
    (CHARDP R 0.194445)
    (CHARIC R 0.08912)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C q)))
(CHARACTER C r
    (CHARWD R 0.432877)
    (CHARHT R 0.430555)
    (CHARIC R 0.107639)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C r)))
(CHARACTER C s
    (CHARWD R 0.419759)
    (CHARHT R 0.430555)
    (CHARIC R 0.081404)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C s)))
(CHARACTER C t
    (CHARWD R 0.341054)
    (CHARHT R 0.61508)
    (CHARIC R 0.0945215)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C t)))
(CHARACTER C u
    (CHARWD R 0.550934)
    (CHARHT R 0.430555)
    (CHARIC R 0.079091)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C u)))
(CHARACTER C v
    (CHARWD R 0.472229)
    (CHARHT R 0.430555)
    (CHARIC R 0.107639)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C v)))
(CHARACTER C w
    (CHARWD R 0.682109)
    (CHARHT R 0.430555)
    (CHARIC R 0.107639)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C w)))
(CHARACTER C x
    (CHARWD R 0.473772)
    (CHARHT R 0.430555)
    (CHARIC R 0.120756)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C x)))
(CHARACTER C y
    (CHARWD R 0.498464)
    (CHARHT R 0.430555)
    (CHARDP R 0.194445)
    (CHARIC R 0.08912)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C y)))
(CHARACTER C z
    (CHARWD R 0.419759)
    (CHARHT R 0.430555)
    (CHARIC R 0.124615)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C z)))
(CHARACTER O 173
    (CHARWD R 0.524699)
    (CHARHT R 0.430555)
    (CHARIC R 0.092758)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 173)))
(CHARACTER O 174
    (CHARWD R 1.049397)
    (CHARHT R 0.430555)
    (CHARIC R 0.092758)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 174)))
(CHARACTER O 175
    (CHARWD R 0.524699)
    (CHARHT R 0.694445)
    (CHARIC R 0.121141)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 175)))
(CHARACTER O 176
    (CHARWD R 0.524699)
    (CHARHT R 0.669093)
    (CHARIC R 0.114803)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 176)))
(CHARACTER O 177
    (CHARWD R 0.524699)
    (CHARHT R 0.669093)
    (CHARIC R 0.1032295)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 177)))

%</cmtiup9vpl>

%    \end{macrocode}
% \end{multicols}
% \subsection{File \FileName{cmtiup10.vpl}}
%    \begin{macrocode}
%<*cmtiup10vpl>
(VTITLE cmti10 with unslanted punctuation from cmr10 by SVZ, v.1.2 2001/01/08)
%    \end{macrocode}
% \begin{multicols}3
%    \begin{macrocode}
(FAMILY CMTI UNSLPUNCT)
(FACE O 352)
(CODINGSCHEME TEX TEXT)
(DESIGNSIZE R 10.0)
(CHECKSUM O 37500023472)
(FONTDIMEN
    (SLANT R 0.25)
    (SPACE R 0.357776)
    (STRETCH R 0.153333)
    (SHRINK R 0.1022215)
    (XHEIGHT R 0.430555)
    (QUAD R 1.022217)
    (EXTRASPACE R 0.1022215))
(MAPFONT D 0
    (FONTNAME cmti10)
    (FONTCHECKSUM O 37500023472)
    (FONTAT R 1.0)
    (FONTDSIZE R 10.0))
(MAPFONT D 1
    (FONTNAME cmr10)
    (FONTCHECKSUM O 11374260171)
    (FONTAT R 1.0)
    (FONTDSIZE R 10.0))
(LIGTABLE
    (LABEL O 40)
    (KRN C l R -0.255554)
    (KRN C L R -0.320554)
    (STOP)
    (LABEL O 140)
    (LIG O 140 O 134)
    (STOP)
    (LABEL O 47)
    (LIG O 47 O 42)
    (KRN O 77 R 0.1022215)
    (KRN O 41 R 0.1022215)
    (STOP)
    (LABEL O 55)
    (LIG O 55 O 173)
    (STOP)
    (LABEL O 173)
    (LIG O 55 O 174)
    (STOP)
    (LABEL O 41)
    (LIG O 140 O 74)
    (STOP)
    (LABEL O 77)
    (LIG O 140 O 76)
    (STOP)
    (LABEL C d)
    (LABEL C l)
    (LABEL C w)
    (KRN C l R 0.051111)
    (KRN O 72 R 0.076666)
    (KRN O 73 R 0.076666)
    (KRN O 41 R 0.1022215)
    (KRN O 50 R 0.1022215)
    (KRN O 51 R 0.1022215)
    (KRN O 135 R 0.1022215)
    (KRN O 133 R 0.1022215)
    (KRN O 77 R 0.1022215)
    (KRN C 0 R 0.076666)
    (KRN C 1 R 0.1022215)
    (KRN C 2 R 0.1022215)
    (KRN C 3 R 0.1022215)
    (KRN C 4 R 0.076666)
    (KRN C 5 R 0.1022215)
    (KRN C 6 R 0.076666)
    (KRN C 7 R 0.1022215)
    (KRN C 8 R 0.1022215)
    (KRN C 9 R 0.1022215)
    (KRN O 43 R 0.1022215)
    (KRN O 45 R 0.076666)
    (KRN O 100 R 0.1022215)
    (KRN O 52 R 0.076666)
    (KRN O 53 R 0.076666)
    (KRN O 57 R 0.1022215)
    (KRN O 74 R 0.1022215)
    (KRN O 76 R 0.1022215)
    (STOP)
    (LABEL C F)
    (LABEL C V)
    (KRN C o R -0.076666)
    (KRN C e R -0.076666)
    (KRN C u R -0.076666)
    (KRN C r R -0.076666)
    (KRN C a R -0.076666)
    (KRN C A R -0.1022215)
    (LABEL C K)
    (LABEL C X)
    (KRN C O R -0.025556)
    (KRN C C R -0.025556)
    (KRN C G R -0.025556)
    (KRN C Q R -0.025556)
    (KRN O 72 R 0.076666)
    (KRN O 73 R 0.076666)
    (KRN O 41 R 0.1022215)
    (KRN O 50 R 0.1022215)
    (KRN O 51 R 0.1022215)
    (KRN O 135 R 0.1022215)
    (KRN O 133 R 0.1022215)
    (KRN O 77 R 0.1022215)
    (KRN C 0 R 0.076666)
    (KRN C 1 R 0.1022215)
    (KRN C 2 R 0.1022215)
    (KRN C 3 R 0.1022215)
    (KRN C 4 R 0.076666)
    (KRN C 5 R 0.1022215)
    (KRN C 6 R 0.076666)
    (KRN C 7 R 0.1022215)
    (KRN C 8 R 0.1022215)
    (KRN C 9 R 0.1022215)
    (KRN O 43 R 0.1022215)
    (KRN O 45 R 0.076666)
    (KRN O 100 R 0.1022215)
    (KRN O 52 R 0.076666)
    (KRN O 53 R 0.076666)
    (KRN O 57 R 0.1022215)
    (KRN O 74 R 0.1022215)
    (KRN O 76 R 0.1022215)
    (STOP)
    (LABEL C T)
    (KRN C y R -0.076666)
    (LABEL C Y)
    (KRN C e R -0.076666)
    (KRN C o R -0.076666)
    (KRN C r R -0.076666)
    (KRN C a R -0.076666)
    (KRN C u R -0.076666)
    (LABEL C W)
    (KRN C A R -0.076666)
    (KRN O 72 R 0.153333)
    (KRN O 73 R 0.153333)
    (KRN O 41 R 0.153333)
    (KRN O 50 R 0.153333)
    (KRN O 51 R 0.153333)
    (KRN O 135 R 0.153333)
    (KRN O 133 R 0.153333)
    (KRN O 77 R 0.153333)
    (KRN C 0 R 0.153333)
    (KRN C 1 R 0.153333)
    (KRN C 2 R 0.153333)
    (KRN C 3 R 0.153333)
    (KRN C 4 R 0.153333)
    (KRN C 5 R 0.153333)
    (KRN C 6 R 0.153333)
    (KRN C 7 R 0.153333)
    (KRN C 8 R 0.153333)
    (KRN C 9 R 0.153333)
    (KRN O 43 R 0.153333)
    (KRN O 45 R 0.153333)
    (KRN O 100 R 0.153333)
    (KRN O 52 R 0.076666)
    (KRN O 53 R 0.076666)
    (KRN O 57 R 0.153333)
    (KRN O 74 R 0.153333)
    (KRN O 76 R 0.153333)
    (STOP)
    (LABEL C P)
    (KRN C A R -0.076666)
    (KRN O 72 R 0.076666)
    (KRN O 73 R 0.076666)
    (KRN O 41 R 0.1022215)
    (KRN O 50 R 0.1022215)
    (KRN O 51 R 0.1022215)
    (KRN O 135 R 0.1022215)
    (KRN O 133 R 0.1022215)
    (KRN O 77 R 0.1022215)
    (KRN C 0 R 0.076666)
    (KRN C 1 R 0.1022215)
    (KRN C 2 R 0.1022215)
    (KRN C 3 R 0.1022215)
    (KRN C 4 R 0.076666)
    (KRN C 5 R 0.1022215)
    (KRN C 6 R 0.076666)
    (KRN C 7 R 0.1022215)
    (KRN C 8 R 0.1022215)
    (KRN C 9 R 0.1022215)
    (KRN O 43 R 0.1022215)
    (KRN O 45 R 0.076666)
    (KRN O 100 R 0.1022215)
    (KRN O 52 R 0.076666)
    (KRN O 53 R 0.076666)
    (KRN O 57 R 0.1022215)
    (KRN O 74 R 0.1022215)
    (KRN O 76 R 0.1022215)
    (STOP)
    (LABEL C D)
    (LABEL C O)
    (KRN C X R -0.025556)
    (KRN C W R -0.025556)
    (KRN C A R -0.025556)
    (KRN C V R -0.025556)
    (KRN C Y R -0.025556)
    (KRN O 72 R 0.076666)
    (KRN O 73 R 0.076666)
    (KRN O 41 R 0.1022215)
    (KRN O 50 R 0.1022215)
    (KRN O 51 R 0.1022215)
    (KRN O 135 R 0.1022215)
    (KRN O 133 R 0.1022215)
    (KRN O 77 R 0.1022215)
    (KRN C 0 R 0.076666)
    (KRN C 1 R 0.1022215)
    (KRN C 2 R 0.1022215)
    (KRN C 3 R 0.1022215)
    (KRN C 4 R 0.076666)
    (KRN C 5 R 0.1022215)
    (KRN C 6 R 0.076666)
    (KRN C 7 R 0.1022215)
    (KRN C 8 R 0.1022215)
    (KRN C 9 R 0.1022215)
    (KRN O 43 R 0.1022215)
    (KRN O 45 R 0.076666)
    (KRN O 100 R 0.1022215)
    (KRN O 52 R 0.076666)
    (KRN O 53 R 0.076666)
    (KRN O 57 R 0.1022215)
    (KRN O 74 R 0.1022215)
    (KRN O 76 R 0.1022215)
    (STOP)
    (LABEL C A)
    (KRN C n R -0.025556)
    (KRN C l R -0.025556)
    (KRN C r R -0.025556)
    (KRN C u R -0.025556)
    (KRN C m R -0.025556)
    (KRN C t R -0.025556)
    (KRN C i R -0.025556)
    (KRN C C R -0.025556)
    (KRN C O R -0.025556)
    (KRN C G R -0.025556)
    (KRN C h R -0.025556)
    (KRN C b R -0.025556)
    (KRN C U R -0.025556)
    (KRN C k R -0.025556)
    (KRN C v R -0.025556)
    (KRN C w R -0.025556)
    (KRN C Q R -0.025556)
    (KRN C T R -0.076666)
    (KRN C Y R -0.076666)
    (KRN C V R -0.1022215)
    (KRN C W R -0.1022215)
    (KRN C e R -0.051111)
    (KRN C a R -0.051111)
    (KRN C o R -0.051111)
    (KRN C d R -0.051111)
    (KRN C c R -0.051111)
    (KRN C g R -0.051111)
    (KRN C q R -0.051111)
    (KRN O 72 R 0.051111)
    (KRN O 73 R 0.051111)
    (KRN O 41 R 0.051111)
    (KRN O 50 R 0.051111)
    (KRN O 51 R 0.051111)
    (KRN O 135 R 0.051111)
    (KRN O 133 R 0.051111)
    (KRN O 77 R 0.051111)
    (KRN C 0 R 0.051111)
    (KRN C 1 R 0.051111)
    (KRN C 2 R 0.051111)
    (KRN C 3 R 0.051111)
    (KRN C 4 R 0.051111)
    (KRN C 5 R 0.051111)
    (KRN C 6 R 0.051111)
    (KRN C 7 R 0.051111)
    (KRN C 8 R 0.051111)
    (KRN C 9 R 0.051111)
    (KRN O 43 R 0.051111)
    (KRN O 45 R 0.051111)
    (KRN O 100 R 0.051111)
    (KRN O 52 R 0.051111)
    (KRN O 53 R 0.051111)
    (KRN O 57 R 0.051111)
    (KRN O 74 R 0.051111)
    (KRN O 76 R 0.051111)
    (STOP)
    (LABEL C R)
    (KRN C n R -0.025556)
    (KRN C l R -0.025556)
    (KRN C r R -0.025556)
    (KRN C u R -0.025556)
    (KRN C m R -0.025556)
    (KRN C t R -0.025556)
    (KRN C i R -0.025556)
    (KRN C C R -0.025556)
    (KRN C O R -0.025556)
    (KRN C G R -0.025556)
    (KRN C h R -0.025556)
    (KRN C b R -0.025556)
    (KRN C U R -0.025556)
    (KRN C k R -0.025556)
    (KRN C v R -0.025556)
    (KRN C w R -0.025556)
    (KRN C Q R -0.025556)
    (LABEL C L)
    (KRN C T R -0.076666)
    (KRN C Y R -0.076666)
    (KRN C V R -0.1022215)
    (KRN C W R -0.1022215)
    (KRN O 72 R 0.076666)
    (KRN O 73 R 0.076666)
    (KRN O 41 R 0.1022215)
    (KRN O 50 R 0.1022215)
    (KRN O 51 R 0.1022215)
    (KRN O 135 R 0.1022215)
    (KRN O 133 R 0.1022215)
    (KRN O 77 R 0.1022215)
    (KRN C 0 R 0.076666)
    (KRN C 1 R 0.1022215)
    (KRN C 2 R 0.1022215)
    (KRN C 3 R 0.1022215)
    (KRN C 4 R 0.076666)
    (KRN C 5 R 0.1022215)
    (KRN C 6 R 0.076666)
    (KRN C 7 R 0.1022215)
    (KRN C 8 R 0.1022215)
    (KRN C 9 R 0.1022215)
    (KRN O 43 R 0.1022215)
    (KRN O 45 R 0.076666)
    (KRN O 100 R 0.1022215)
    (KRN O 52 R 0.076666)
    (KRN O 53 R 0.076666)
    (KRN O 57 R 0.1022215)
    (KRN O 74 R 0.1022215)
    (KRN O 76 R 0.1022215)
    (KRN C e R -0.051111)
    (KRN C a R -0.051111)
    (KRN C o R -0.051111)
    (KRN C d R -0.051111)
    (KRN C c R -0.051111)
    (KRN C g R -0.051111)
    (KRN C q R -0.051111)
    (STOP)
    (LABEL C b)
    (LABEL C c)
    (LABEL C e)
    (LABEL C o)
    (LABEL C p)
    (LABEL C r)
    (KRN C e R -0.051111)
    (KRN C a R -0.051111)
    (KRN C o R -0.051111)
    (KRN C d R -0.051111)
    (KRN C c R -0.051111)
    (KRN C g R -0.051111)
    (KRN C q R -0.051111)
    (KRN O 72 R 0.051111)
    (KRN O 73 R 0.051111)
    (KRN O 41 R 0.051111)
    (KRN O 50 R 0.051111)
    (KRN O 51 R 0.051111)
    (KRN O 135 R 0.051111)
    (KRN O 133 R 0.051111)
    (KRN O 77 R 0.051111)
    (KRN C 0 R 0.051111)
    (KRN C 1 R 0.051111)
    (KRN C 2 R 0.051111)
    (KRN C 3 R 0.051111)
    (KRN C 4 R 0.051111)
    (KRN C 5 R 0.051111)
    (KRN C 6 R 0.051111)
    (KRN C 7 R 0.051111)
    (KRN C 8 R 0.051111)
    (KRN C 9 R 0.051111)
    (KRN O 43 R 0.051111)
    (KRN O 45 R 0.051111)
    (KRN O 100 R 0.051111)
    (KRN O 52 R 0.051111)
    (KRN O 53 R 0.051111)
    (KRN O 57 R 0.051111)
    (KRN O 74 R 0.051111)
    (KRN O 76 R 0.051111)
    (STOP)
    (LABEL C n)
    (KRN O 47 R -0.1022215)
    (KRN O 72 R 0.076666)
    (KRN O 73 R 0.076666)
    (KRN O 41 R 0.1022215)
    (KRN O 50 R 0.1022215)
    (KRN O 51 R 0.1022215)
    (KRN O 135 R 0.1022215)
    (KRN O 133 R 0.1022215)
    (KRN O 77 R 0.1022215)
    (KRN C 0 R 0.076666)
    (KRN C 1 R 0.1022215)
    (KRN C 2 R 0.1022215)
    (KRN C 3 R 0.1022215)
    (KRN C 4 R 0.076666)
    (KRN C 5 R 0.1022215)
    (KRN C 6 R 0.076666)
    (KRN C 7 R 0.1022215)
    (KRN C 8 R 0.1022215)
    (KRN C 9 R 0.1022215)
    (KRN O 43 R 0.1022215)
    (KRN O 45 R 0.076666)
    (KRN O 100 R 0.1022215)
    (KRN O 52 R 0.076666)
    (KRN O 53 R 0.076666)
    (KRN O 57 R 0.1022215)
    (KRN O 74 R 0.1022215)
    (KRN O 76 R 0.1022215)
    (STOP)
    (LABEL C H)
    (LABEL C I)
    (LABEL C J)
    (LABEL C M)
    (LABEL C N)
    (LABEL C U)
    (LABEL C Z)
    (KRN O 72 R 0.153333)
    (KRN O 73 R 0.153333)
    (KRN O 41 R 0.153333)
    (KRN O 50 R 0.153333)
    (KRN O 51 R 0.153333)
    (KRN O 135 R 0.153333)
    (KRN O 133 R 0.153333)
    (KRN O 77 R 0.153333)
    (KRN C 0 R 0.153333)
    (KRN C 1 R 0.153333)
    (KRN C 2 R 0.153333)
    (KRN C 3 R 0.153333)
    (KRN C 4 R 0.153333)
    (KRN C 5 R 0.153333)
    (KRN C 6 R 0.153333)
    (KRN C 7 R 0.153333)
    (KRN C 8 R 0.153333)
    (KRN C 9 R 0.153333)
    (KRN O 43 R 0.153333)
    (KRN O 45 R 0.153333)
    (KRN O 100 R 0.153333)
    (KRN O 52 R 0.076666)
    (KRN O 53 R 0.076666)
    (KRN O 57 R 0.153333)
    (KRN O 74 R 0.153333)
    (KRN O 76 R 0.153333)
    (STOP)
    (LABEL C B)
    (LABEL C C)
    (LABEL C E)
    (LABEL C G)
    (LABEL C Q)
    (LABEL C S)
    (LABEL C a)
    (LABEL C g)
    (LABEL C h)
    (LABEL C i)
    (LABEL C j)
    (LABEL C k)
    (LABEL C m)
    (LABEL C q)
    (LABEL C s)
    (LABEL C t)
    (LABEL C u)
    (LABEL C v)
    (LABEL C x)
    (LABEL C y)
    (LABEL C z)
    (KRN O 72 R 0.076666)
    (KRN O 73 R 0.076666)
    (KRN O 41 R 0.1022215)
    (KRN O 50 R 0.1022215)
    (KRN O 51 R 0.1022215)
    (KRN O 135 R 0.1022215)
    (KRN O 133 R 0.1022215)
    (KRN O 77 R 0.1022215)
    (KRN C 0 R 0.076666)
    (KRN C 1 R 0.1022215)
    (KRN C 2 R 0.1022215)
    (KRN C 3 R 0.1022215)
    (KRN C 4 R 0.076666)
    (KRN C 5 R 0.1022215)
    (KRN C 6 R 0.076666)
    (KRN C 7 R 0.1022215)
    (KRN C 8 R 0.1022215)
    (KRN C 9 R 0.1022215)
    (KRN O 43 R 0.1022215)
    (KRN O 45 R 0.076666)
    (KRN O 100 R 0.1022215)
    (KRN O 52 R 0.076666)
    (KRN O 53 R 0.076666)
    (KRN O 57 R 0.1022215)
    (KRN O 74 R 0.1022215)
    (KRN O 76 R 0.1022215)
    (STOP)
    (LABEL C f)
    (LIG C i O 14)
    (LIG C f O 13)
    (LIG C l O 15)
    (KRN O 47 R 0.1022215)
    (KRN O 72 R 0.153333)
    (KRN O 73 R 0.153333)
    (KRN O 41 R 0.153333)
    (KRN O 50 R 0.153333)
    (KRN O 51 R 0.153333)
    (KRN O 135 R 0.153333)
    (KRN O 133 R 0.153333)
    (KRN O 77 R 0.153333)
    (KRN C 0 R 0.153333)
    (KRN C 1 R 0.153333)
    (KRN C 2 R 0.153333)
    (KRN C 3 R 0.153333)
    (KRN C 4 R 0.153333)
    (KRN C 5 R 0.153333)
    (KRN C 6 R 0.153333)
    (KRN C 7 R 0.153333)
    (KRN C 8 R 0.153333)
    (KRN C 9 R 0.153333)
    (KRN O 43 R 0.153333)
    (KRN O 45 R 0.153333)
    (KRN O 100 R 0.153333)
    (KRN O 52 R 0.076666)
    (KRN O 53 R 0.076666)
    (KRN O 57 R 0.153333)
    (KRN O 74 R 0.153333)
    (KRN O 76 R 0.153333)
    (STOP)
    (LABEL O 13)
    (LIG C i O 16)
    (LIG C l O 17)
    (KRN O 47 R 0.1022215)
    (KRN O 72 R 0.153333)
    (KRN O 73 R 0.153333)
    (KRN O 41 R 0.153333)
    (KRN O 50 R 0.153333)
    (KRN O 51 R 0.153333)
    (KRN O 135 R 0.153333)
    (KRN O 133 R 0.153333)
    (KRN O 77 R 0.153333)
    (KRN C 0 R 0.153333)
    (KRN C 1 R 0.153333)
    (KRN C 2 R 0.153333)
    (KRN C 3 R 0.153333)
    (KRN C 4 R 0.153333)
    (KRN C 5 R 0.153333)
    (KRN C 6 R 0.153333)
    (KRN C 7 R 0.153333)
    (KRN C 8 R 0.153333)
    (KRN C 9 R 0.153333)
    (KRN O 43 R 0.153333)
    (KRN O 45 R 0.153333)
    (KRN O 100 R 0.153333)
    (KRN O 52 R 0.076666)
    (KRN O 53 R 0.076666)
    (KRN O 57 R 0.153333)
    (KRN O 74 R 0.153333)
    (KRN O 76 R 0.153333)
    (STOP))
(CHARACTER O 0
    (CHARWD R 0.627218)
    (CHARHT R 0.683332)
    (CHARIC R 0.133055)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 0)))
(CHARACTER O 1
    (CHARWD R 0.817774)
    (CHARHT R 0.683332)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 1)))
(CHARACTER O 2
    (CHARWD R 0.766663)
    (CHARHT R 0.683332)
    (CHARIC R 0.0940275)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 2)))
(CHARACTER O 3
    (CHARWD R 0.692218)
    (CHARHT R 0.683332)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 3)))
(CHARACTER O 4
    (CHARWD R 0.664441)
    (CHARHT R 0.683332)
    (CHARIC R 0.152944)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 4)))
(CHARACTER O 5
    (CHARWD R 0.743329)
    (CHARHT R 0.683332)
    (CHARIC R 0.16389)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 5)))
(CHARACTER O 6
    (CHARWD R 0.715551)
    (CHARHT R 0.683332)
    (CHARIC R 0.120277)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 6)))
(CHARACTER O 7
    (CHARWD R 0.766663)
    (CHARHT R 0.683332)
    (CHARIC R 0.111112)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 7)))
(CHARACTER O 10
    (CHARWD R 0.715551)
    (CHARHT R 0.683332)
    (CHARIC R 0.059862)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 10)))
(CHARACTER O 11
    (CHARWD R 0.766663)
    (CHARHT R 0.683332)
    (CHARIC R 0.111112)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 11)))
(CHARACTER O 12
    (CHARWD R 0.715551)
    (CHARHT R 0.683332)
    (CHARIC R 0.10257)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 12)))
(CHARACTER O 13
    (CHARWD R 0.61333)
    (CHARHT R 0.694445)
    (CHARDP R 0.194445)
    (CHARIC R 0.211945)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 13)))
(CHARACTER O 14
    (CHARWD R 0.56222)
    (CHARHT R 0.694445)
    (CHARDP R 0.194445)
    (CHARIC R 0.103334)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 14)))
(CHARACTER O 15
    (CHARWD R 0.587774)
    (CHARHT R 0.694445)
    (CHARDP R 0.194445)
    (CHARIC R 0.103334)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 15)))
(CHARACTER O 16
    (CHARWD R 0.881662)
    (CHARHT R 0.694445)
    (CHARDP R 0.194445)
    (CHARIC R 0.103334)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 16)))
(CHARACTER O 17
    (CHARWD R 0.89444)
    (CHARHT R 0.694445)
    (CHARDP R 0.194445)
    (CHARIC R 0.103334)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 17)))
(CHARACTER O 20
    (CHARWD R 0.306665)
    (CHARHT R 0.430555)
    (CHARIC R 0.076714)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 20)))
(CHARACTER O 21
    (CHARWD R 0.33222)
    (CHARHT R 0.430555)
    (CHARDP R 0.194445)
    (CHARIC R 0.037361)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 21)))
(CHARACTER O 22
    (CHARWD R 0.511108)
    (CHARHT R 0.694445)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 22)))
(CHARACTER O 23
    (CHARWD R 0.511108)
    (CHARHT R 0.694445)
    (CHARIC R 0.096945)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 23)))
(CHARACTER O 24
    (CHARWD R 0.511108)
    (CHARHT R 0.628473)
    (CHARIC R 0.0829525)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 24)))
(CHARACTER O 25
    (CHARWD R 0.511108)
    (CHARHT R 0.694445)
    (CHARIC R 0.108057)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 25)))
(CHARACTER O 26
    (CHARWD R 0.511108)
    (CHARHT R 0.561666)
    (CHARIC R 0.103334)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 26)))
(CHARACTER O 27
    (CHARWD R 0.831291)
    (CHARHT R 0.694445)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 27)))
(CHARACTER O 30
    (CHARWD R 0.459997)
    (CHARDP R 0.170138)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 30)))
(CHARACTER O 31
    (CHARWD R 0.536664)
    (CHARHT R 0.694445)
    (CHARDP R 0.194445)
    (CHARIC R 0.105138)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 31)))
(CHARACTER O 32
    (CHARWD R 0.715551)
    (CHARHT R 0.430555)
    (CHARIC R 0.075139)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 32)))
(CHARACTER O 33
    (CHARWD R 0.715551)
    (CHARHT R 0.430555)
    (CHARIC R 0.075139)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 33)))
(CHARACTER O 34
    (CHARWD R 0.511108)
    (CHARHT R 0.527779)
    (CHARDP R 0.097223)
    (CHARIC R 0.091945)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 34)))
(CHARACTER O 35
    (CHARWD R 0.882772)
    (CHARHT R 0.683332)
    (CHARIC R 0.120277)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 35)))
(CHARACTER O 36
    (CHARWD R 0.984995)
    (CHARHT R 0.683332)
    (CHARIC R 0.120277)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 36)))
(CHARACTER O 37
    (CHARWD R 0.766663)
    (CHARHT R 0.731944)
    (CHARDP R 0.048612)
    (CHARIC R 0.0940275)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 37)))
(CHARACTER O 40
    (CHARWD R 0.255554)
    (CHARHT R 0.430555)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 40)))
(CHARACTER O 41
    (CHARWD R 0.306665)
    (CHARHT R 0.694445)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01444300)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'41}'' width (2.77779{\ttfamily pt} from {\ttfamily cmr10})
%  has been adjusted by increasing interletter space on 0.14443{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup10}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 41)
        (MOVERIGHT R 0.01444300)))
(CHARACTER O 42
    (CHARWD R 0.514442)
    (CHARHT R 0.694445)
    (CHARIC R 0.0696125)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 42)))
(CHARACTER O 43
    (CHARWD R 0.817774)
    (CHARHT R 0.694445)
    (CHARDP R 0.194443)
    (MAP
        (SELECTFONT D 1)
        (MOVELEFT R 0.00778100)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'43}'' width (8.33336{\ttfamily pt} from {\ttfamily cmr10})
%  has been adjusted by decreasing interletter space on 0.07781{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup10}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 43)
        (MOVELEFT R 0.00778100)))
(CHARACTER O 44
    (CHARWD R 0.7690935)
    (CHARHT R 0.694445)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 44)))
(CHARACTER O 45
    (CHARWD R 0.817774)
    (CHARHT R 0.75)
    (CHARDP R 0.055555)
    (MAP
        (SELECTFONT D 1)
        (MOVELEFT R 0.00778100)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'45}'' width (8.33336{\ttfamily pt} from {\ttfamily cmr10})
%  has been adjusted by decreasing interletter space on 0.07781{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup10}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 45)
        (MOVELEFT R 0.00778100)))
(CHARACTER O 46
    (CHARWD R 0.766663)
    (CHARHT R 0.694445)
    (CHARIC R 0.096945)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 46)))
(CHARACTER O 47
    (CHARWD R 0.306665)
    (CHARHT R 0.694445)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 47)))
(CHARACTER O 50
    (CHARWD R 0.408887)
    (CHARHT R 0.75)
    (CHARDP R 0.25)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00999850)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'50}'' width (3.88890{\ttfamily pt} from {\ttfamily cmr10})
%  has been adjusted by increasing interletter space on 0.09998{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup10}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 50)
        (MOVERIGHT R 0.00999850)))
(CHARACTER O 51
    (CHARWD R 0.408887)
    (CHARHT R 0.75)
    (CHARDP R 0.25)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00999850)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'51}'' width (3.88890{\ttfamily pt} from {\ttfamily cmr10})
%  has been adjusted by increasing interletter space on 0.09998{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup10}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 51)
        (MOVERIGHT R 0.00999850)))
(CHARACTER O 52
    (CHARWD R 0.511108)
    (CHARHT R 0.75)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00555300)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'52}'' width (5.00002{\ttfamily pt} from {\ttfamily cmr10})
%  has been adjusted by increasing interletter space on 0.05553{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup10}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 52)
        (MOVERIGHT R 0.00555300)))
(CHARACTER O 53
    (CHARWD R 0.766663)
    (CHARHT R 0.561666)
    (CHARDP R 0.056665)
    (MAP
        (SELECTFONT D 1)
        (MOVELEFT R 0.00555900)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'53}'' width (7.77781{\ttfamily pt} from {\ttfamily cmr10})
%  has been adjusted by decreasing interletter space on 0.05559{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup10}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 53)
        (MOVELEFT R 0.00555900)))
(CHARACTER O 54
    (CHARWD R 0.306665)
    (CHARHT R 0.105556)
    (CHARDP R 0.194445)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01444300)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'54}'' width (2.77779{\ttfamily pt} from {\ttfamily cmr10})
%  has been adjusted by increasing interletter space on 0.14443{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup10}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 54)
        (MOVERIGHT R 0.01444300)))
(CHARACTER O 55
    (CHARWD R 0.357776)
    (CHARHT R 0.430555)
    (CHARIC R 0.028264)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 55)))
(CHARACTER O 56
    (CHARWD R 0.306665)
    (CHARHT R 0.105556)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01444300)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'56}'' width (2.77779{\ttfamily pt} from {\ttfamily cmr10})
%  has been adjusted by increasing interletter space on 0.14443{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup10}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 56)
        (MOVERIGHT R 0.01444300)))
(CHARACTER O 57
    (CHARWD R 0.511108)
    (CHARHT R 0.75)
    (CHARDP R 0.25)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00555300)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'57}'' width (5.00002{\ttfamily pt} from {\ttfamily cmr10})
%  has been adjusted by increasing interletter space on 0.05553{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup10}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 57)
        (MOVERIGHT R 0.00555300)))
(CHARACTER C 0
    (CHARWD R 0.511108)
    (CHARHT R 0.644444)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00555300)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont 0}'' width (5.00002{\ttfamily pt} from {\ttfamily cmr10})
%  has been adjusted by increasing interletter space on 0.05553{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup10}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR C 0)
        (MOVERIGHT R 0.00555300)))
(CHARACTER C 1
    (CHARWD R 0.511108)
    (CHARHT R 0.644444)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00555300)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont 1}'' width (5.00002{\ttfamily pt} from {\ttfamily cmr10})
%  has been adjusted by increasing interletter space on 0.05553{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup10}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR C 1)
        (MOVERIGHT R 0.00555300)))
(CHARACTER C 2
    (CHARWD R 0.511108)
    (CHARHT R 0.644444)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00555300)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont 2}'' width (5.00002{\ttfamily pt} from {\ttfamily cmr10})
%  has been adjusted by increasing interletter space on 0.05553{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup10}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR C 2)
        (MOVERIGHT R 0.00555300)))
(CHARACTER C 3
    (CHARWD R 0.511108)
    (CHARHT R 0.644444)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00555300)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont 3}'' width (5.00002{\ttfamily pt} from {\ttfamily cmr10})
%  has been adjusted by increasing interletter space on 0.05553{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup10}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR C 3)
        (MOVERIGHT R 0.00555300)))
(CHARACTER C 4
    (CHARWD R 0.511108)
    (CHARHT R 0.644444)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00555300)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont 4}'' width (5.00002{\ttfamily pt} from {\ttfamily cmr10})
%  has been adjusted by increasing interletter space on 0.05553{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup10}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR C 4)
        (MOVERIGHT R 0.00555300)))
(CHARACTER C 5
    (CHARWD R 0.511108)
    (CHARHT R 0.644444)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00555300)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont 5}'' width (5.00002{\ttfamily pt} from {\ttfamily cmr10})
%  has been adjusted by increasing interletter space on 0.05553{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup10}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR C 5)
        (MOVERIGHT R 0.00555300)))
(CHARACTER C 6
    (CHARWD R 0.511108)
    (CHARHT R 0.644444)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00555300)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont 6}'' width (5.00002{\ttfamily pt} from {\ttfamily cmr10})
%  has been adjusted by increasing interletter space on 0.05553{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup10}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR C 6)
        (MOVERIGHT R 0.00555300)))
(CHARACTER C 7
    (CHARWD R 0.511108)
    (CHARHT R 0.644444)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00555300)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont 7}'' width (5.00002{\ttfamily pt} from {\ttfamily cmr10})
%  has been adjusted by increasing interletter space on 0.05553{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup10}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR C 7)
        (MOVERIGHT R 0.00555300)))
(CHARACTER C 8
    (CHARWD R 0.511108)
    (CHARHT R 0.644444)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00555300)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont 8}'' width (5.00002{\ttfamily pt} from {\ttfamily cmr10})
%  has been adjusted by increasing interletter space on 0.05553{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup10}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR C 8)
        (MOVERIGHT R 0.00555300)))
(CHARACTER C 9
    (CHARWD R 0.511108)
    (CHARHT R 0.644444)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00555300)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont 9}'' width (5.00002{\ttfamily pt} from {\ttfamily cmr10})
%  has been adjusted by increasing interletter space on 0.05553{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup10}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR C 9)
        (MOVERIGHT R 0.00555300)))
(CHARACTER O 72
    (CHARWD R 0.306665)
    (CHARHT R 0.430555)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01444300)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'72}'' width (2.77779{\ttfamily pt} from {\ttfamily cmr10})
%  has been adjusted by increasing interletter space on 0.14443{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup10}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 72)
        (MOVERIGHT R 0.01444300)))
(CHARACTER O 73
    (CHARWD R 0.306665)
    (CHARHT R 0.430555)
    (CHARDP R 0.194445)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01444300)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'73}'' width (2.77779{\ttfamily pt} from {\ttfamily cmr10})
%  has been adjusted by increasing interletter space on 0.14443{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup10}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 73)
        (MOVERIGHT R 0.01444300)))
(CHARACTER O 74
    (CHARWD R 0.306665)
    (CHARHT R 0.5)
    (CHARDP R 0.194445)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01444300)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'74}'' width (2.77779{\ttfamily pt} from {\ttfamily cmr10})
%  has been adjusted by increasing interletter space on 0.14443{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup10}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 74)
        (MOVERIGHT R 0.01444300)))
(CHARACTER O 75
    (CHARWD R 0.766663)
    (CHARHT R 0.366875)
    (CHARDP R -0.133125)
    (MAP
        (SELECTFONT D 1)
        (MOVELEFT R 0.00555900)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'75}'' width (7.77781{\ttfamily pt} from {\ttfamily cmr10})
%  has been adjusted by decreasing interletter space on 0.05559{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup10}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 75)
        (MOVELEFT R 0.00555900)))
(CHARACTER O 76
    (CHARWD R 0.511108)
    (CHARHT R 0.5)
    (CHARDP R 0.194445)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01944200)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'76}'' width (4.72224{\ttfamily pt} from {\ttfamily cmr10})
%  has been adjusted by increasing interletter space on 0.19442{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup10}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 76)
        (MOVERIGHT R 0.01944200)))
(CHARACTER O 77
    (CHARWD R 0.511108)
    (CHARHT R 0.694445)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01944200)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'77}'' width (4.72224{\ttfamily pt} from {\ttfamily cmr10})
%  has been adjusted by increasing interletter space on 0.19442{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup10}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 77)
        (MOVERIGHT R 0.01944200)))
(CHARACTER O 100
    (CHARWD R 0.766663)
    (CHARHT R 0.694445)
    (MAP
        (SELECTFONT D 1)
        (MOVELEFT R 0.00555900)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'100}'' width (7.77781{\ttfamily pt} from {\ttfamily cmr10})
%  has been adjusted by decreasing interletter space on 0.05559{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup10}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 100)
        (MOVELEFT R 0.00555900)))
(CHARACTER C A
    (CHARWD R 0.743329)
    (CHARHT R 0.683332)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C A)))
(CHARACTER C B
    (CHARWD R 0.703885)
    (CHARHT R 0.683332)
    (CHARIC R 0.10257)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C B)))
(CHARACTER C C
    (CHARWD R 0.715551)
    (CHARHT R 0.683332)
    (CHARIC R 0.145277)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C C)))
(CHARACTER C D
    (CHARWD R 0.754995)
    (CHARHT R 0.683332)
    (CHARIC R 0.0940275)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C D)))
(CHARACTER C E
    (CHARWD R 0.678329)
    (CHARHT R 0.683332)
    (CHARIC R 0.120277)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C E)))
(CHARACTER C F
    (CHARWD R 0.652774)
    (CHARHT R 0.683332)
    (CHARIC R 0.133055)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C F)))
(CHARACTER C G
    (CHARWD R 0.773607)
    (CHARHT R 0.683332)
    (CHARIC R 0.087222)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C G)))
(CHARACTER C H
    (CHARWD R 0.743329)
    (CHARHT R 0.683332)
    (CHARIC R 0.16389)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C H)))
(CHARACTER C I
    (CHARWD R 0.385553)
    (CHARHT R 0.683332)
    (CHARIC R 0.158055)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C I)))
(CHARACTER C J
    (CHARWD R 0.524997)
    (CHARHT R 0.683332)
    (CHARIC R 0.140279)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C J)))
(CHARACTER C K
    (CHARWD R 0.768885)
    (CHARHT R 0.683332)
    (CHARIC R 0.145277)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C K)))
(CHARACTER C L
    (CHARWD R 0.627218)
    (CHARHT R 0.683332)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C L)))
(CHARACTER C M
    (CHARWD R 0.896662)
    (CHARHT R 0.683332)
    (CHARIC R 0.16389)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C M)))
(CHARACTER C N
    (CHARWD R 0.743329)
    (CHARHT R 0.683332)
    (CHARIC R 0.16389)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C N)))
(CHARACTER C O
    (CHARWD R 0.766663)
    (CHARHT R 0.683332)
    (CHARIC R 0.0940275)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C O)))
(CHARACTER C P
    (CHARWD R 0.678329)
    (CHARHT R 0.683332)
    (CHARIC R 0.10257)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C P)))
(CHARACTER C Q
    (CHARWD R 0.766663)
    (CHARHT R 0.683332)
    (CHARDP R 0.194445)
    (CHARIC R 0.0940275)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C Q)))
(CHARACTER C R
    (CHARWD R 0.729441)
    (CHARHT R 0.683332)
    (CHARIC R 0.038681)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C R)))
(CHARACTER C S
    (CHARWD R 0.56222)
    (CHARHT R 0.683332)
    (CHARIC R 0.119722)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C S)))
(CHARACTER C T
    (CHARWD R 0.715551)
    (CHARHT R 0.683332)
    (CHARIC R 0.133055)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C T)))
(CHARACTER C U
    (CHARWD R 0.743329)
    (CHARHT R 0.683332)
    (CHARIC R 0.16389)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C U)))
(CHARACTER C V
    (CHARWD R 0.743329)
    (CHARHT R 0.683332)
    (CHARIC R 0.183611)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C V)))
(CHARACTER C W
    (CHARWD R 0.998883)
    (CHARHT R 0.683332)
    (CHARIC R 0.183611)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C W)))
(CHARACTER C X
    (CHARWD R 0.743329)
    (CHARHT R 0.683332)
    (CHARIC R 0.158055)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C X)))
(CHARACTER C Y
    (CHARWD R 0.743329)
    (CHARHT R 0.683332)
    (CHARIC R 0.193832)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C Y)))
(CHARACTER C Z
    (CHARWD R 0.61333)
    (CHARHT R 0.683332)
    (CHARIC R 0.145277)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C Z)))
(CHARACTER O 133
    (CHARWD R 0.306665)
    (CHARHT R 0.75)
    (CHARDP R 0.25)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01444300)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'133}'' width (2.77779{\ttfamily pt} from {\ttfamily cmr10})
%  has been adjusted by increasing interletter space on 0.14443{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup10}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 133)
        (MOVERIGHT R 0.01444300)))
(CHARACTER O 134
    (CHARWD R 0.514442)
    (CHARHT R 0.694445)
    (CHARIC R 0.1685)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 134)))
(CHARACTER O 135
    (CHARWD R 0.306665)
    (CHARHT R 0.75)
    (CHARDP R 0.25)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01444300)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'135}'' width (2.77779{\ttfamily pt} from {\ttfamily cmr10})
%  has been adjusted by increasing interletter space on 0.14443{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup10}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 135)
        (MOVERIGHT R 0.01444300)))
(CHARACTER O 136
    (CHARWD R 0.511108)
    (CHARHT R 0.694445)
    (CHARIC R 0.06646)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 136)))
(CHARACTER O 137
    (CHARWD R 0.306665)
    (CHARHT R 0.667859)
    (CHARIC R 0.117521)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 137)))
(CHARACTER O 140
    (CHARWD R 0.306665)
    (CHARHT R 0.694445)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 140)))
(CHARACTER C a
    (CHARWD R 0.511108)
    (CHARHT R 0.430555)
    (CHARIC R 0.076714)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C a)))
(CHARACTER C b
    (CHARWD R 0.459997)
    (CHARHT R 0.694445)
    (CHARIC R 0.063124)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C b)))
(CHARACTER C c
    (CHARWD R 0.459997)
    (CHARHT R 0.430555)
    (CHARIC R 0.056528)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C c)))
(CHARACTER C d
    (CHARWD R 0.511108)
    (CHARHT R 0.694445)
    (CHARIC R 0.103334)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C d)))
(CHARACTER C e
    (CHARWD R 0.459997)
    (CHARHT R 0.430555)
    (CHARIC R 0.075139)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C e)))
(CHARACTER C f
    (CHARWD R 0.306665)
    (CHARHT R 0.694445)
    (CHARDP R 0.194445)
    (CHARIC R 0.211945)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C f)))
(CHARACTER C g
    (CHARWD R 0.459997)
    (CHARHT R 0.430555)
    (CHARDP R 0.194445)
    (CHARIC R 0.088472)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C g)))
(CHARACTER C h
    (CHARWD R 0.511108)
    (CHARHT R 0.694445)
    (CHARIC R 0.076714)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C h)))
(CHARACTER C i
    (CHARWD R 0.306665)
    (CHARHT R 0.655359)
    (CHARIC R 0.101896)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C i)))
(CHARACTER C j
    (CHARWD R 0.306665)
    (CHARHT R 0.655359)
    (CHARDP R 0.194445)
    (CHARIC R 0.144673)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C j)))
(CHARACTER C k
    (CHARWD R 0.459997)
    (CHARHT R 0.694445)
    (CHARIC R 0.107638)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C k)))
(CHARACTER C l
    (CHARWD R 0.255554)
    (CHARHT R 0.694445)
    (CHARIC R 0.103334)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C l)))
(CHARACTER C m
    (CHARWD R 0.817774)
    (CHARHT R 0.430555)
    (CHARIC R 0.076714)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C m)))
(CHARACTER C n
    (CHARWD R 0.56222)
    (CHARHT R 0.430555)
    (CHARIC R 0.076714)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C n)))
(CHARACTER C o
    (CHARWD R 0.511108)
    (CHARHT R 0.430555)
    (CHARIC R 0.063124)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C o)))
(CHARACTER C p
    (CHARWD R 0.511108)
    (CHARHT R 0.430555)
    (CHARDP R 0.194445)
    (CHARIC R 0.063124)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C p)))
(CHARACTER C q
    (CHARWD R 0.459997)
    (CHARHT R 0.430555)
    (CHARDP R 0.194445)
    (CHARIC R 0.088472)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C q)))
(CHARACTER C r
    (CHARWD R 0.421664)
    (CHARHT R 0.430555)
    (CHARIC R 0.107638)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C r)))
(CHARACTER C s
    (CHARWD R 0.408887)
    (CHARHT R 0.430555)
    (CHARIC R 0.082083)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C s)))
(CHARACTER C t
    (CHARWD R 0.33222)
    (CHARHT R 0.61508)
    (CHARIC R 0.094861)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C t)))
(CHARACTER C u
    (CHARWD R 0.536664)
    (CHARHT R 0.430555)
    (CHARIC R 0.076714)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C u)))
(CHARACTER C v
    (CHARWD R 0.459997)
    (CHARHT R 0.430555)
    (CHARIC R 0.107638)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C v)))
(CHARACTER C w
    (CHARWD R 0.664441)
    (CHARHT R 0.430555)
    (CHARIC R 0.107638)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C w)))
(CHARACTER C x
    (CHARWD R 0.463887)
    (CHARHT R 0.430555)
    (CHARIC R 0.120417)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C x)))
(CHARACTER C y
    (CHARWD R 0.485553)
    (CHARHT R 0.430555)
    (CHARDP R 0.194445)
    (CHARIC R 0.088472)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C y)))
(CHARACTER C z
    (CHARWD R 0.408887)
    (CHARHT R 0.430555)
    (CHARIC R 0.122917)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C z)))
(CHARACTER O 173
    (CHARWD R 0.511108)
    (CHARHT R 0.430555)
    (CHARIC R 0.092079)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 173)))
(CHARACTER O 174
    (CHARWD R 1.022217)
    (CHARHT R 0.430555)
    (CHARIC R 0.092079)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 174)))
(CHARACTER O 175
    (CHARWD R 0.511108)
    (CHARHT R 0.694445)
    (CHARIC R 0.1225)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 175)))
(CHARACTER O 176
    (CHARWD R 0.511108)
    (CHARHT R 0.667859)
    (CHARIC R 0.115854)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 176)))
(CHARACTER O 177
    (CHARWD R 0.511108)
    (CHARHT R 0.667859)
    (CHARIC R 0.104744)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 177)))

%</cmtiup10vpl>

%    \end{macrocode}
% \end{multicols}
% \subsection{File \FileName{cmtiup12.vpl}}
%    \begin{macrocode}
%<*cmtiup12vpl>
(VTITLE cmti12 with unslanted punctuation from cmr12 by SVZ, v.1.2 2001/01/08)
%    \end{macrocode}
% \begin{multicols}3
%    \begin{macrocode}
(FAMILY CMTI UNSLPUNCT)
(FACE O 346)
(CODINGSCHEME TEX TEXT)
(DESIGNSIZE R 12.0)
(CHECKSUM O 23356704100)
(FONTDIMEN
    (SLANT R 0.25)
    (SPACE R 0.350003)
    (STRETCH R 0.150002)
    (SHRINK R 0.100001)
    (XHEIGHT R 0.430556)
    (QUAD R 1.0000105)
    (EXTRASPACE R 0.100001))
(MAPFONT D 0
    (FONTNAME cmti12)
    (FONTCHECKSUM O 23356704100)
    (FONTAT R 1.0)
    (FONTDSIZE R 12.0))
(MAPFONT D 1
    (FONTNAME cmr12)
    (FONTCHECKSUM O 13052650413)
    (FONTAT R 1.0)
    (FONTDSIZE R 12.0))
(LIGTABLE
    (LABEL O 40)
    (KRN C l R -0.250003)
    (KRN C L R -0.31343)
    (STOP)
    (LABEL O 140)
    (LIG O 140 O 134)
    (STOP)
    (LABEL O 47)
    (LIG O 47 O 42)
    (KRN O 77 R 0.100001)
    (KRN O 41 R 0.100001)
    (STOP)
    (LABEL O 55)
    (LIG O 55 O 173)
    (STOP)
    (LABEL O 173)
    (LIG O 55 O 174)
    (STOP)
    (LABEL O 41)
    (LIG O 140 O 74)
    (STOP)
    (LABEL O 77)
    (LIG O 140 O 76)
    (STOP)
    (LABEL C d)
    (LABEL C l)
    (LABEL C w)
    (KRN C l R 0.05)
    (KRN O 72 R 0.075001)
    (KRN O 73 R 0.075001)
    (KRN O 41 R 0.100001)
    (KRN O 50 R 0.100001)
    (KRN O 51 R 0.100001)
    (KRN O 135 R 0.100001)
    (KRN O 133 R 0.100001)
    (KRN O 77 R 0.100001)
    (KRN C 0 R 0.075001)
    (KRN C 1 R 0.100001)
    (KRN C 2 R 0.100001)
    (KRN C 3 R 0.100001)
    (KRN C 4 R 0.075001)
    (KRN C 5 R 0.100001)
    (KRN C 6 R 0.075001)
    (KRN C 7 R 0.100001)
    (KRN C 8 R 0.100001)
    (KRN C 9 R 0.100001)
    (KRN O 43 R 0.100001)
    (KRN O 45 R 0.075001)
    (KRN O 100 R 0.100001)
    (KRN O 52 R 0.075001)
    (KRN O 53 R 0.075001)
    (KRN O 57 R 0.100001)
    (KRN O 74 R 0.100001)
    (KRN O 76 R 0.100001)
    (STOP)
    (LABEL C F)
    (LABEL C V)
    (KRN C o R -0.075001)
    (KRN C e R -0.075001)
    (KRN C u R -0.075001)
    (KRN C r R -0.075001)
    (KRN C a R -0.075001)
    (KRN C A R -0.100001)
    (LABEL C K)
    (LABEL C X)
    (KRN C O R -0.025001)
    (KRN C C R -0.025001)
    (KRN C G R -0.025001)
    (KRN C Q R -0.025001)
    (KRN O 72 R 0.075001)
    (KRN O 73 R 0.075001)
    (KRN O 41 R 0.100001)
    (KRN O 50 R 0.100001)
    (KRN O 51 R 0.100001)
    (KRN O 135 R 0.100001)
    (KRN O 133 R 0.100001)
    (KRN O 77 R 0.100001)
    (KRN C 0 R 0.075001)
    (KRN C 1 R 0.100001)
    (KRN C 2 R 0.100001)
    (KRN C 3 R 0.100001)
    (KRN C 4 R 0.075001)
    (KRN C 5 R 0.100001)
    (KRN C 6 R 0.075001)
    (KRN C 7 R 0.100001)
    (KRN C 8 R 0.100001)
    (KRN C 9 R 0.100001)
    (KRN O 43 R 0.100001)
    (KRN O 45 R 0.075001)
    (KRN O 100 R 0.100001)
    (KRN O 52 R 0.075001)
    (KRN O 53 R 0.075001)
    (KRN O 57 R 0.100001)
    (KRN O 74 R 0.100001)
    (KRN O 76 R 0.100001)
    (STOP)
    (LABEL C T)
    (KRN C y R -0.075001)
    (LABEL C Y)
    (KRN C e R -0.075001)
    (KRN C o R -0.075001)
    (KRN C r R -0.075001)
    (KRN C a R -0.075001)
    (KRN C u R -0.075001)
    (LABEL C W)
    (KRN C A R -0.075001)
    (KRN O 72 R 0.150002)
    (KRN O 73 R 0.150002)
    (KRN O 41 R 0.150002)
    (KRN O 50 R 0.150002)
    (KRN O 51 R 0.150002)
    (KRN O 135 R 0.150002)
    (KRN O 133 R 0.150002)
    (KRN O 77 R 0.150002)
    (KRN C 0 R 0.150002)
    (KRN C 1 R 0.150002)
    (KRN C 2 R 0.150002)
    (KRN C 3 R 0.150002)
    (KRN C 4 R 0.150002)
    (KRN C 5 R 0.150002)
    (KRN C 6 R 0.150002)
    (KRN C 7 R 0.150002)
    (KRN C 8 R 0.150002)
    (KRN C 9 R 0.150002)
    (KRN O 43 R 0.150002)
    (KRN O 45 R 0.150002)
    (KRN O 100 R 0.150002)
    (KRN O 52 R 0.075001)
    (KRN O 53 R 0.075001)
    (KRN O 57 R 0.150002)
    (KRN O 74 R 0.150002)
    (KRN O 76 R 0.150002)
    (STOP)
    (LABEL C P)
    (KRN C A R -0.075001)
    (KRN O 72 R 0.075001)
    (KRN O 73 R 0.075001)
    (KRN O 41 R 0.100001)
    (KRN O 50 R 0.100001)
    (KRN O 51 R 0.100001)
    (KRN O 135 R 0.100001)
    (KRN O 133 R 0.100001)
    (KRN O 77 R 0.100001)
    (KRN C 0 R 0.075001)
    (KRN C 1 R 0.100001)
    (KRN C 2 R 0.100001)
    (KRN C 3 R 0.100001)
    (KRN C 4 R 0.075001)
    (KRN C 5 R 0.100001)
    (KRN C 6 R 0.075001)
    (KRN C 7 R 0.100001)
    (KRN C 8 R 0.100001)
    (KRN C 9 R 0.100001)
    (KRN O 43 R 0.100001)
    (KRN O 45 R 0.075001)
    (KRN O 100 R 0.100001)
    (KRN O 52 R 0.075001)
    (KRN O 53 R 0.075001)
    (KRN O 57 R 0.100001)
    (KRN O 74 R 0.100001)
    (KRN O 76 R 0.100001)
    (STOP)
    (LABEL C D)
    (LABEL C O)
    (KRN C X R -0.025001)
    (KRN C W R -0.025001)
    (KRN C A R -0.025001)
    (KRN C V R -0.025001)
    (KRN C Y R -0.025001)
    (KRN O 72 R 0.075001)
    (KRN O 73 R 0.075001)
    (KRN O 41 R 0.100001)
    (KRN O 50 R 0.100001)
    (KRN O 51 R 0.100001)
    (KRN O 135 R 0.100001)
    (KRN O 133 R 0.100001)
    (KRN O 77 R 0.100001)
    (KRN C 0 R 0.075001)
    (KRN C 1 R 0.100001)
    (KRN C 2 R 0.100001)
    (KRN C 3 R 0.100001)
    (KRN C 4 R 0.075001)
    (KRN C 5 R 0.100001)
    (KRN C 6 R 0.075001)
    (KRN C 7 R 0.100001)
    (KRN C 8 R 0.100001)
    (KRN C 9 R 0.100001)
    (KRN O 43 R 0.100001)
    (KRN O 45 R 0.075001)
    (KRN O 100 R 0.100001)
    (KRN O 52 R 0.075001)
    (KRN O 53 R 0.075001)
    (KRN O 57 R 0.100001)
    (KRN O 74 R 0.100001)
    (KRN O 76 R 0.100001)
    (STOP)
    (LABEL C A)
    (KRN C n R -0.025001)
    (KRN C l R -0.025001)
    (KRN C r R -0.025001)
    (KRN C u R -0.025001)
    (KRN C m R -0.025001)
    (KRN C t R -0.025001)
    (KRN C i R -0.025001)
    (KRN C C R -0.025001)
    (KRN C O R -0.025001)
    (KRN C G R -0.025001)
    (KRN C h R -0.025001)
    (KRN C b R -0.025001)
    (KRN C U R -0.025001)
    (KRN C k R -0.025001)
    (KRN C v R -0.025001)
    (KRN C w R -0.025001)
    (KRN C Q R -0.025001)
    (KRN C T R -0.075001)
    (KRN C Y R -0.075001)
    (KRN C V R -0.100001)
    (KRN C W R -0.100001)
    (KRN C e R -0.05)
    (KRN C a R -0.05)
    (KRN C o R -0.05)
    (KRN C d R -0.05)
    (KRN C c R -0.05)
    (KRN C g R -0.05)
    (KRN C q R -0.05)
    (KRN O 72 R 0.05)
    (KRN O 73 R 0.05)
    (KRN O 41 R 0.05)
    (KRN O 50 R 0.05)
    (KRN O 51 R 0.05)
    (KRN O 135 R 0.05)
    (KRN O 133 R 0.05)
    (KRN O 77 R 0.05)
    (KRN C 0 R 0.05)
    (KRN C 1 R 0.05)
    (KRN C 2 R 0.05)
    (KRN C 3 R 0.05)
    (KRN C 4 R 0.05)
    (KRN C 5 R 0.05)
    (KRN C 6 R 0.05)
    (KRN C 7 R 0.05)
    (KRN C 8 R 0.05)
    (KRN C 9 R 0.05)
    (KRN O 43 R 0.05)
    (KRN O 45 R 0.05)
    (KRN O 100 R 0.05)
    (KRN O 52 R 0.05)
    (KRN O 53 R 0.05)
    (KRN O 57 R 0.05)
    (KRN O 74 R 0.05)
    (KRN O 76 R 0.05)
    (STOP)
    (LABEL C R)
    (KRN C n R -0.025001)
    (KRN C l R -0.025001)
    (KRN C r R -0.025001)
    (KRN C u R -0.025001)
    (KRN C m R -0.025001)
    (KRN C t R -0.025001)
    (KRN C i R -0.025001)
    (KRN C C R -0.025001)
    (KRN C O R -0.025001)
    (KRN C G R -0.025001)
    (KRN C h R -0.025001)
    (KRN C b R -0.025001)
    (KRN C U R -0.025001)
    (KRN C k R -0.025001)
    (KRN C v R -0.025001)
    (KRN C w R -0.025001)
    (KRN C Q R -0.025001)
    (LABEL C L)
    (KRN C T R -0.075001)
    (KRN C Y R -0.075001)
    (KRN C V R -0.100001)
    (KRN C W R -0.100001)
    (KRN O 72 R 0.075001)
    (KRN O 73 R 0.075001)
    (KRN O 41 R 0.100001)
    (KRN O 50 R 0.100001)
    (KRN O 51 R 0.100001)
    (KRN O 135 R 0.100001)
    (KRN O 133 R 0.100001)
    (KRN O 77 R 0.100001)
    (KRN C 0 R 0.075001)
    (KRN C 1 R 0.100001)
    (KRN C 2 R 0.100001)
    (KRN C 3 R 0.100001)
    (KRN C 4 R 0.075001)
    (KRN C 5 R 0.100001)
    (KRN C 6 R 0.075001)
    (KRN C 7 R 0.100001)
    (KRN C 8 R 0.100001)
    (KRN C 9 R 0.100001)
    (KRN O 43 R 0.100001)
    (KRN O 45 R 0.075001)
    (KRN O 100 R 0.100001)
    (KRN O 52 R 0.075001)
    (KRN O 53 R 0.075001)
    (KRN O 57 R 0.100001)
    (KRN O 74 R 0.100001)
    (KRN O 76 R 0.100001)
    (KRN C e R -0.05)
    (KRN C a R -0.05)
    (KRN C o R -0.05)
    (KRN C d R -0.05)
    (KRN C c R -0.05)
    (KRN C g R -0.05)
    (KRN C q R -0.05)
    (STOP)
    (LABEL C b)
    (LABEL C c)
    (LABEL C e)
    (LABEL C o)
    (LABEL C p)
    (LABEL C r)
    (KRN C e R -0.05)
    (KRN C a R -0.05)
    (KRN C o R -0.05)
    (KRN C d R -0.05)
    (KRN C c R -0.05)
    (KRN C g R -0.05)
    (KRN C q R -0.05)
    (KRN O 72 R 0.05)
    (KRN O 73 R 0.05)
    (KRN O 41 R 0.05)
    (KRN O 50 R 0.05)
    (KRN O 51 R 0.05)
    (KRN O 135 R 0.05)
    (KRN O 133 R 0.05)
    (KRN O 77 R 0.05)
    (KRN C 0 R 0.05)
    (KRN C 1 R 0.05)
    (KRN C 2 R 0.05)
    (KRN C 3 R 0.05)
    (KRN C 4 R 0.05)
    (KRN C 5 R 0.05)
    (KRN C 6 R 0.05)
    (KRN C 7 R 0.05)
    (KRN C 8 R 0.05)
    (KRN C 9 R 0.05)
    (KRN O 43 R 0.05)
    (KRN O 45 R 0.05)
    (KRN O 100 R 0.05)
    (KRN O 52 R 0.05)
    (KRN O 53 R 0.05)
    (KRN O 57 R 0.05)
    (KRN O 74 R 0.05)
    (KRN O 76 R 0.05)
    (STOP)
    (LABEL C n)
    (KRN O 47 R -0.100001)
    (KRN O 72 R 0.075001)
    (KRN O 73 R 0.075001)
    (KRN O 41 R 0.100001)
    (KRN O 50 R 0.100001)
    (KRN O 51 R 0.100001)
    (KRN O 135 R 0.100001)
    (KRN O 133 R 0.100001)
    (KRN O 77 R 0.100001)
    (KRN C 0 R 0.075001)
    (KRN C 1 R 0.100001)
    (KRN C 2 R 0.100001)
    (KRN C 3 R 0.100001)
    (KRN C 4 R 0.075001)
    (KRN C 5 R 0.100001)
    (KRN C 6 R 0.075001)
    (KRN C 7 R 0.100001)
    (KRN C 8 R 0.100001)
    (KRN C 9 R 0.100001)
    (KRN O 43 R 0.100001)
    (KRN O 45 R 0.075001)
    (KRN O 100 R 0.100001)
    (KRN O 52 R 0.075001)
    (KRN O 53 R 0.075001)
    (KRN O 57 R 0.100001)
    (KRN O 74 R 0.100001)
    (KRN O 76 R 0.100001)
    (STOP)
    (LABEL C H)
    (LABEL C I)
    (LABEL C J)
    (LABEL C M)
    (LABEL C N)
    (LABEL C U)
    (LABEL C Z)
    (KRN O 72 R 0.150002)
    (KRN O 73 R 0.150002)
    (KRN O 41 R 0.150002)
    (KRN O 50 R 0.150002)
    (KRN O 51 R 0.150002)
    (KRN O 135 R 0.150002)
    (KRN O 133 R 0.150002)
    (KRN O 77 R 0.150002)
    (KRN C 0 R 0.150002)
    (KRN C 1 R 0.150002)
    (KRN C 2 R 0.150002)
    (KRN C 3 R 0.150002)
    (KRN C 4 R 0.150002)
    (KRN C 5 R 0.150002)
    (KRN C 6 R 0.150002)
    (KRN C 7 R 0.150002)
    (KRN C 8 R 0.150002)
    (KRN C 9 R 0.150002)
    (KRN O 43 R 0.150002)
    (KRN O 45 R 0.150002)
    (KRN O 100 R 0.150002)
    (KRN O 52 R 0.075001)
    (KRN O 53 R 0.075001)
    (KRN O 57 R 0.150002)
    (KRN O 74 R 0.150002)
    (KRN O 76 R 0.150002)
    (STOP)
    (LABEL C B)
    (LABEL C C)
    (LABEL C E)
    (LABEL C G)
    (LABEL C Q)
    (LABEL C S)
    (LABEL C a)
    (LABEL C g)
    (LABEL C h)
    (LABEL C i)
    (LABEL C j)
    (LABEL C k)
    (LABEL C m)
    (LABEL C q)
    (LABEL C s)
    (LABEL C t)
    (LABEL C u)
    (LABEL C v)
    (LABEL C x)
    (LABEL C y)
    (LABEL C z)
    (KRN O 72 R 0.075001)
    (KRN O 73 R 0.075001)
    (KRN O 41 R 0.100001)
    (KRN O 50 R 0.100001)
    (KRN O 51 R 0.100001)
    (KRN O 135 R 0.100001)
    (KRN O 133 R 0.100001)
    (KRN O 77 R 0.100001)
    (KRN C 0 R 0.075001)
    (KRN C 1 R 0.100001)
    (KRN C 2 R 0.100001)
    (KRN C 3 R 0.100001)
    (KRN C 4 R 0.075001)
    (KRN C 5 R 0.100001)
    (KRN C 6 R 0.075001)
    (KRN C 7 R 0.100001)
    (KRN C 8 R 0.100001)
    (KRN C 9 R 0.100001)
    (KRN O 43 R 0.100001)
    (KRN O 45 R 0.075001)
    (KRN O 100 R 0.100001)
    (KRN O 52 R 0.075001)
    (KRN O 53 R 0.075001)
    (KRN O 57 R 0.100001)
    (KRN O 74 R 0.100001)
    (KRN O 76 R 0.100001)
    (STOP)
    (LABEL C f)
    (LIG C i O 14)
    (LIG C f O 13)
    (LIG C l O 15)
    (KRN O 47 R 0.100001)
    (KRN O 72 R 0.150002)
    (KRN O 73 R 0.150002)
    (KRN O 41 R 0.150002)
    (KRN O 50 R 0.150002)
    (KRN O 51 R 0.150002)
    (KRN O 135 R 0.150002)
    (KRN O 133 R 0.150002)
    (KRN O 77 R 0.150002)
    (KRN C 0 R 0.150002)
    (KRN C 1 R 0.150002)
    (KRN C 2 R 0.150002)
    (KRN C 3 R 0.150002)
    (KRN C 4 R 0.150002)
    (KRN C 5 R 0.150002)
    (KRN C 6 R 0.150002)
    (KRN C 7 R 0.150002)
    (KRN C 8 R 0.150002)
    (KRN C 9 R 0.150002)
    (KRN O 43 R 0.150002)
    (KRN O 45 R 0.150002)
    (KRN O 100 R 0.150002)
    (KRN O 52 R 0.075001)
    (KRN O 53 R 0.075001)
    (KRN O 57 R 0.150002)
    (KRN O 74 R 0.150002)
    (KRN O 76 R 0.150002)
    (STOP)
    (LABEL O 13)
    (LIG C i O 16)
    (LIG C l O 17)
    (KRN O 47 R 0.100001)
    (KRN O 72 R 0.150002)
    (KRN O 73 R 0.150002)
    (KRN O 41 R 0.150002)
    (KRN O 50 R 0.150002)
    (KRN O 51 R 0.150002)
    (KRN O 135 R 0.150002)
    (KRN O 133 R 0.150002)
    (KRN O 77 R 0.150002)
    (KRN C 0 R 0.150002)
    (KRN C 1 R 0.150002)
    (KRN C 2 R 0.150002)
    (KRN C 3 R 0.150002)
    (KRN C 4 R 0.150002)
    (KRN C 5 R 0.150002)
    (KRN C 6 R 0.150002)
    (KRN C 7 R 0.150002)
    (KRN C 8 R 0.150002)
    (KRN C 9 R 0.150002)
    (KRN O 43 R 0.150002)
    (KRN O 45 R 0.150002)
    (KRN O 100 R 0.150002)
    (KRN O 52 R 0.075001)
    (KRN O 53 R 0.075001)
    (KRN O 57 R 0.150002)
    (KRN O 74 R 0.150002)
    (KRN O 76 R 0.150002)
    (STOP))
(CHARACTER O 0
    (CHARWD R 0.613433)
    (CHARHT R 0.683333)
    (CHARIC R 0.134258)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 0)))
(CHARACTER O 1
    (CHARWD R 0.800008)
    (CHARHT R 0.683333)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 1)))
(CHARACTER O 2
    (CHARWD R 0.750008)
    (CHARHT R 0.683333)
    (CHARIC R 0.094583)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 2)))
(CHARACTER O 3
    (CHARWD R 0.67686)
    (CHARHT R 0.683333)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 3)))
(CHARACTER O 4
    (CHARWD R 0.650006)
    (CHARHT R 0.683333)
    (CHARIC R 0.153333)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 4)))
(CHARACTER O 5
    (CHARWD R 0.72686)
    (CHARHT R 0.683333)
    (CHARIC R 0.157406)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 5)))
(CHARACTER O 6
    (CHARWD R 0.700007)
    (CHARHT R 0.683333)
    (CHARIC R 0.121758)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 6)))
(CHARACTER O 7
    (CHARWD R 0.750008)
    (CHARHT R 0.683333)
    (CHARIC R 0.111668)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 7)))
(CHARACTER O 10
    (CHARWD R 0.700007)
    (CHARHT R 0.683333)
    (CHARIC R 0.060417)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 10)))
(CHARACTER O 11
    (CHARWD R 0.750008)
    (CHARHT R 0.683333)
    (CHARIC R 0.111668)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 11)))
(CHARACTER O 12
    (CHARWD R 0.700007)
    (CHARHT R 0.683333)
    (CHARIC R 0.103126)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 12)))
(CHARACTER O 13
    (CHARWD R 0.600006)
    (CHARHT R 0.694444)
    (CHARDP R 0.194444)
    (CHARIC R 0.211112)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 13)))
(CHARACTER O 14
    (CHARWD R 0.550007)
    (CHARHT R 0.694444)
    (CHARDP R 0.194444)
    (CHARIC R 0.103703)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 14)))
(CHARACTER O 15
    (CHARWD R 0.575007)
    (CHARHT R 0.694444)
    (CHARDP R 0.194444)
    (CHARIC R 0.103703)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 15)))
(CHARACTER O 16
    (CHARWD R 0.862511)
    (CHARHT R 0.694444)
    (CHARDP R 0.194444)
    (CHARIC R 0.103703)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 16)))
(CHARACTER O 17
    (CHARWD R 0.8750105)
    (CHARHT R 0.694444)
    (CHARDP R 0.194444)
    (CHARIC R 0.103703)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 17)))
(CHARACTER O 20
    (CHARWD R 0.300003)
    (CHARHT R 0.430556)
    (CHARIC R 0.074769)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 20)))
(CHARACTER O 21
    (CHARWD R 0.325004)
    (CHARHT R 0.430556)
    (CHARDP R 0.194444)
    (CHARIC R 0.037731)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 21)))
(CHARACTER O 22
    (CHARWD R 0.500005)
    (CHARHT R 0.694444)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 22)))
(CHARACTER O 23
    (CHARWD R 0.500005)
    (CHARHT R 0.694444)
    (CHARIC R 0.09861)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 23)))
(CHARACTER O 24
    (CHARWD R 0.500005)
    (CHARHT R 0.628472)
    (CHARIC R 0.083507)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 24)))
(CHARACTER O 25
    (CHARWD R 0.500005)
    (CHARHT R 0.694444)
    (CHARIC R 0.108448)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 25)))
(CHARACTER O 26
    (CHARWD R 0.500005)
    (CHARHT R 0.563889)
    (CHARIC R 0.103471)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 26)))
(CHARACTER O 27
    (CHARWD R 0.814823)
    (CHARHT R 0.694444)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 27)))
(CHARACTER O 30
    (CHARWD R 0.450005)
    (CHARDP R 0.170138)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 30)))
(CHARACTER O 31
    (CHARWD R 0.525005)
    (CHARHT R 0.694444)
    (CHARDP R 0.194444)
    (CHARIC R 0.106248)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 31)))
(CHARACTER O 32
    (CHARWD R 0.700007)
    (CHARHT R 0.430556)
    (CHARIC R 0.074768)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 32)))
(CHARACTER O 33
    (CHARWD R 0.700007)
    (CHARHT R 0.430556)
    (CHARIC R 0.074768)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 33)))
(CHARACTER O 34
    (CHARWD R 0.500005)
    (CHARHT R 0.527779)
    (CHARDP R 0.097222)
    (CHARIC R 0.091783)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 34)))
(CHARACTER O 35
    (CHARWD R 0.863435)
    (CHARHT R 0.683333)
    (CHARIC R 0.121758)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 35)))
(CHARACTER O 36
    (CHARWD R 0.963436)
    (CHARHT R 0.683333)
    (CHARIC R 0.121758)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 36)))
(CHARACTER O 37
    (CHARWD R 0.750008)
    (CHARHT R 0.731944)
    (CHARDP R 0.048611)
    (CHARIC R 0.094583)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 37)))
(CHARACTER O 40
    (CHARWD R 0.250003)
    (CHARHT R 0.430556)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 40)))
(CHARACTER O 41
    (CHARWD R 0.300003)
    (CHARHT R 0.694444)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01400750)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'41}'' width (3.26386{\ttfamily pt} from {\ttfamily cmr12})
%  has been adjusted by increasing interletter space on 0.16809{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup12}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 41)
        (MOVERIGHT R 0.01400750)))
(CHARACTER O 42
    (CHARWD R 0.500005)
    (CHARHT R 0.694444)
    (CHARIC R 0.065831)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 42)))
(CHARACTER O 43
    (CHARWD R 0.800008)
    (CHARHT R 0.694444)
    (CHARDP R 0.194443)
    (MAP
        (SELECTFONT D 1)
        (MOVELEFT R 0.00797800)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'43}'' width (9.79157{\ttfamily pt} from {\ttfamily cmr12})
%  has been adjusted by decreasing interletter space on 0.09574{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup12}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 43)
        (MOVELEFT R 0.00797800)))
(CHARACTER O 44
    (CHARWD R 0.755215)
    (CHARHT R 0.694444)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 44)))
(CHARACTER O 45
    (CHARWD R 0.800008)
    (CHARHT R 0.75)
    (CHARDP R 0.055556)
    (MAP
        (SELECTFONT D 1)
        (MOVELEFT R 0.00797800)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'45}'' width (9.79157{\ttfamily pt} from {\ttfamily cmr12})
%  has been adjusted by decreasing interletter space on 0.09574{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup12}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 45)
        (MOVELEFT R 0.00797800)))
(CHARACTER O 46
    (CHARWD R 0.750008)
    (CHARHT R 0.694444)
    (CHARIC R 0.09861)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 46)))
(CHARACTER O 47
    (CHARWD R 0.300003)
    (CHARHT R 0.694444)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 47)))
(CHARACTER O 50
    (CHARWD R 0.400004)
    (CHARHT R 0.75)
    (CHARDP R 0.25)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00961050)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'50}'' width (4.56940{\ttfamily pt} from {\ttfamily cmr12})
%  has been adjusted by increasing interletter space on 0.11533{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup12}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 50)
        (MOVERIGHT R 0.00961050)))
(CHARACTER O 51
    (CHARWD R 0.400004)
    (CHARHT R 0.75)
    (CHARDP R 0.25)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00961050)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'51}'' width (4.56940{\ttfamily pt} from {\ttfamily cmr12})
%  has been adjusted by increasing interletter space on 0.11533{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup12}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 51)
        (MOVERIGHT R 0.00961050)))
(CHARACTER O 52
    (CHARWD R 0.500005)
    (CHARHT R 0.75)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00521350)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'52}'' width (5.87494{\ttfamily pt} from {\ttfamily cmr12})
%  has been adjusted by increasing interletter space on 0.06256{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup12}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 52)
        (MOVERIGHT R 0.00521350)))
(CHARACTER O 53
    (CHARWD R 0.750008)
    (CHARHT R 0.550003)
    (CHARDP R 0.050003)
    (MAP
        (SELECTFONT D 1)
        (MOVELEFT R 0.00577900)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'53}'' width (9.13879{\ttfamily pt} from {\ttfamily cmr12})
%  has been adjusted by decreasing interletter space on 0.06935{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup12}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 53)
        (MOVELEFT R 0.00577900)))
(CHARACTER O 54
    (CHARWD R 0.300003)
    (CHARHT R 0.097222)
    (CHARDP R 0.194444)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01400750)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'54}'' width (3.26386{\ttfamily pt} from {\ttfamily cmr12})
%  has been adjusted by increasing interletter space on 0.16809{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup12}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 54)
        (MOVERIGHT R 0.01400750)))
(CHARACTER O 55
    (CHARWD R 0.350003)
    (CHARHT R 0.430556)
    (CHARIC R 0.02882)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 55)))
(CHARACTER O 56
    (CHARWD R 0.300003)
    (CHARHT R 0.097222)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01400750)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'56}'' width (3.26386{\ttfamily pt} from {\ttfamily cmr12})
%  has been adjusted by increasing interletter space on 0.16809{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup12}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 56)
        (MOVERIGHT R 0.01400750)))
(CHARACTER O 57
    (CHARWD R 0.500005)
    (CHARHT R 0.75)
    (CHARDP R 0.25)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00521350)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'57}'' width (5.87494{\ttfamily pt} from {\ttfamily cmr12})
%  has been adjusted by increasing interletter space on 0.06256{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup12}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 57)
        (MOVERIGHT R 0.00521350)))
(CHARACTER C 0
    (CHARWD R 0.500005)
    (CHARHT R 0.648281)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00521350)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont 0}'' width (5.87494{\ttfamily pt} from {\ttfamily cmr12})
%  has been adjusted by increasing interletter space on 0.06256{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup12}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR C 0)
        (MOVERIGHT R 0.00521350)))
(CHARACTER C 1
    (CHARWD R 0.500005)
    (CHARHT R 0.648281)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00521350)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont 1}'' width (5.87494{\ttfamily pt} from {\ttfamily cmr12})
%  has been adjusted by increasing interletter space on 0.06256{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup12}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR C 1)
        (MOVERIGHT R 0.00521350)))
(CHARACTER C 2
    (CHARWD R 0.500005)
    (CHARHT R 0.648281)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00521350)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont 2}'' width (5.87494{\ttfamily pt} from {\ttfamily cmr12})
%  has been adjusted by increasing interletter space on 0.06256{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup12}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR C 2)
        (MOVERIGHT R 0.00521350)))
(CHARACTER C 3
    (CHARWD R 0.500005)
    (CHARHT R 0.648281)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00521350)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont 3}'' width (5.87494{\ttfamily pt} from {\ttfamily cmr12})
%  has been adjusted by increasing interletter space on 0.06256{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup12}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR C 3)
        (MOVERIGHT R 0.00521350)))
(CHARACTER C 4
    (CHARWD R 0.500005)
    (CHARHT R 0.648281)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00521350)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont 4}'' width (5.87494{\ttfamily pt} from {\ttfamily cmr12})
%  has been adjusted by increasing interletter space on 0.06256{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup12}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR C 4)
        (MOVERIGHT R 0.00521350)))
(CHARACTER C 5
    (CHARWD R 0.500005)
    (CHARHT R 0.648281)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00521350)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont 5}'' width (5.87494{\ttfamily pt} from {\ttfamily cmr12})
%  has been adjusted by increasing interletter space on 0.06256{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup12}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR C 5)
        (MOVERIGHT R 0.00521350)))
(CHARACTER C 6
    (CHARWD R 0.500005)
    (CHARHT R 0.648281)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00521350)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont 6}'' width (5.87494{\ttfamily pt} from {\ttfamily cmr12})
%  has been adjusted by increasing interletter space on 0.06256{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup12}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR C 6)
        (MOVERIGHT R 0.00521350)))
(CHARACTER C 7
    (CHARWD R 0.500005)
    (CHARHT R 0.648281)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00521350)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont 7}'' width (5.87494{\ttfamily pt} from {\ttfamily cmr12})
%  has been adjusted by increasing interletter space on 0.06256{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup12}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR C 7)
        (MOVERIGHT R 0.00521350)))
(CHARACTER C 8
    (CHARWD R 0.500005)
    (CHARHT R 0.648281)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00521350)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont 8}'' width (5.87494{\ttfamily pt} from {\ttfamily cmr12})
%  has been adjusted by increasing interletter space on 0.06256{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup12}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR C 8)
        (MOVERIGHT R 0.00521350)))
(CHARACTER C 9
    (CHARWD R 0.500005)
    (CHARHT R 0.648281)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.00521350)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont 9}'' width (5.87494{\ttfamily pt} from {\ttfamily cmr12})
%  has been adjusted by increasing interletter space on 0.06256{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup12}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR C 9)
        (MOVERIGHT R 0.00521350)))
(CHARACTER O 72
    (CHARWD R 0.300003)
    (CHARHT R 0.430556)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01400750)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'72}'' width (3.26386{\ttfamily pt} from {\ttfamily cmr12})
%  has been adjusted by increasing interletter space on 0.16809{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup12}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 72)
        (MOVERIGHT R 0.01400750)))
(CHARACTER O 73
    (CHARWD R 0.300003)
    (CHARHT R 0.430556)
    (CHARDP R 0.194444)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01400750)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'73}'' width (3.26386{\ttfamily pt} from {\ttfamily cmr12})
%  has been adjusted by increasing interletter space on 0.16809{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup12}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 73)
        (MOVERIGHT R 0.01400750)))
(CHARACTER O 74
    (CHARWD R 0.300003)
    (CHARHT R 0.5)
    (CHARDP R 0.194444)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01400750)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'74}'' width (3.26386{\ttfamily pt} from {\ttfamily cmr12})
%  has been adjusted by increasing interletter space on 0.16809{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup12}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 74)
        (MOVERIGHT R 0.01400750)))
(CHARACTER O 75
    (CHARWD R 0.750008)
    (CHARHT R 0.360902)
    (CHARDP R -0.139098)
    (MAP
        (SELECTFONT D 1)
        (MOVELEFT R 0.00577900)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'75}'' width (9.13879{\ttfamily pt} from {\ttfamily cmr12})
%  has been adjusted by decreasing interletter space on 0.06935{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup12}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 75)
        (MOVELEFT R 0.00577900)))
(CHARACTER O 76
    (CHARWD R 0.500005)
    (CHARHT R 0.5)
    (CHARDP R 0.194444)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01881300)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'76}'' width (5.54855{\ttfamily pt} from {\ttfamily cmr12})
%  has been adjusted by increasing interletter space on 0.22576{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup12}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 76)
        (MOVERIGHT R 0.01881300)))
(CHARACTER O 77
    (CHARWD R 0.500005)
    (CHARHT R 0.694444)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01881300)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'77}'' width (5.54855{\ttfamily pt} from {\ttfamily cmr12})
%  has been adjusted by increasing interletter space on 0.22576{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup12}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 77)
        (MOVERIGHT R 0.01881300)))
(CHARACTER O 100
    (CHARWD R 0.750008)
    (CHARHT R 0.694444)
    (MAP
        (SELECTFONT D 1)
        (MOVELEFT R 0.00577900)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'100}'' width (9.13879{\ttfamily pt} from {\ttfamily cmr12})
%  has been adjusted by decreasing interletter space on 0.06935{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup12}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 100)
        (MOVELEFT R 0.00577900)))
(CHARACTER C A
    (CHARWD R 0.72686)
    (CHARHT R 0.683333)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C A)))
(CHARACTER C B
    (CHARWD R 0.688434)
    (CHARHT R 0.683333)
    (CHARIC R 0.103126)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C B)))
(CHARACTER C C
    (CHARWD R 0.700007)
    (CHARHT R 0.683333)
    (CHARIC R 0.145833)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C C)))
(CHARACTER C D
    (CHARWD R 0.738434)
    (CHARHT R 0.683333)
    (CHARIC R 0.094583)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C D)))
(CHARACTER C E
    (CHARWD R 0.663433)
    (CHARHT R 0.683333)
    (CHARIC R 0.121758)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C E)))
(CHARACTER C F
    (CHARWD R 0.6384325)
    (CHARHT R 0.683333)
    (CHARIC R 0.134258)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C F)))
(CHARACTER C G
    (CHARWD R 0.7567215)
    (CHARHT R 0.683333)
    (CHARIC R 0.089119)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C G)))
(CHARACTER C H
    (CHARWD R 0.72686)
    (CHARHT R 0.683333)
    (CHARIC R 0.157406)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C H)))
(CHARACTER C I
    (CHARWD R 0.376857)
    (CHARHT R 0.683333)
    (CHARIC R 0.158333)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C I)))
(CHARACTER C J
    (CHARWD R 0.513432)
    (CHARHT R 0.683333)
    (CHARIC R 0.135415)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C J)))
(CHARACTER C K
    (CHARWD R 0.751861)
    (CHARHT R 0.683333)
    (CHARIC R 0.145833)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C K)))
(CHARACTER C L
    (CHARWD R 0.613433)
    (CHARHT R 0.683333)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C L)))
(CHARACTER C M
    (CHARWD R 0.876862)
    (CHARHT R 0.683333)
    (CHARIC R 0.157406)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C M)))
(CHARACTER C N
    (CHARWD R 0.72686)
    (CHARHT R 0.683333)
    (CHARIC R 0.157406)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C N)))
(CHARACTER C O
    (CHARWD R 0.750008)
    (CHARHT R 0.683333)
    (CHARIC R 0.094583)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C O)))
(CHARACTER C P
    (CHARWD R 0.663433)
    (CHARHT R 0.683333)
    (CHARIC R 0.103126)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C P)))
(CHARACTER C Q
    (CHARWD R 0.750008)
    (CHARHT R 0.683333)
    (CHARDP R 0.194444)
    (CHARIC R 0.094583)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C Q)))
(CHARACTER C R
    (CHARWD R 0.713433)
    (CHARHT R 0.683333)
    (CHARIC R 0.040624)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C R)))
(CHARACTER C S
    (CHARWD R 0.550006)
    (CHARHT R 0.683333)
    (CHARIC R 0.120833)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C S)))
(CHARACTER C T
    (CHARWD R 0.700007)
    (CHARHT R 0.683333)
    (CHARIC R 0.134258)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C T)))
(CHARACTER C U
    (CHARWD R 0.72686)
    (CHARHT R 0.683333)
    (CHARIC R 0.157406)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C U)))
(CHARACTER C V
    (CHARWD R 0.72686)
    (CHARHT R 0.683333)
    (CHARIC R 0.183334)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C V)))
(CHARACTER C W
    (CHARWD R 0.976863)
    (CHARHT R 0.683333)
    (CHARIC R 0.183334)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C W)))
(CHARACTER C X
    (CHARWD R 0.72686)
    (CHARHT R 0.683333)
    (CHARIC R 0.158333)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C X)))
(CHARACTER C Y
    (CHARWD R 0.72686)
    (CHARHT R 0.683333)
    (CHARIC R 0.193334)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C Y)))
(CHARACTER C Z
    (CHARWD R 0.600006)
    (CHARHT R 0.683333)
    (CHARIC R 0.145833)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C Z)))
(CHARACTER O 133
    (CHARWD R 0.300003)
    (CHARHT R 0.75)
    (CHARDP R 0.25)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01400750)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'133}'' width (3.26386{\ttfamily pt} from {\ttfamily cmr12})
%  has been adjusted by increasing interletter space on 0.16809{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup12}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 133)
        (MOVERIGHT R 0.01400750)))
(CHARACTER O 134
    (CHARWD R 0.500005)
    (CHARHT R 0.694444)
    (CHARIC R 0.168611)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 134)))
(CHARACTER O 135
    (CHARWD R 0.300003)
    (CHARHT R 0.75)
    (CHARDP R 0.25)
    (MAP
        (SELECTFONT D 1)
        (MOVERIGHT R 0.01400750)

%    \end{macrocode}
% \end{multicols}
% The character ``{\CharDemofont \char'135}'' width (3.26386{\ttfamily pt} from {\ttfamily cmr12})
%  has been adjusted by increasing interletter space on 0.16809{\ttfamily pt}
% % to match its width in {\ttfamily cmtiup12}
% \begin{multicols}3
%    \begin{macrocode}
        (SETCHAR O 135)
        (MOVERIGHT R 0.01400750)))
(CHARACTER O 136
    (CHARWD R 0.500005)
    (CHARHT R 0.694444)
    (CHARIC R 0.067013)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 136)))
(CHARACTER O 137
    (CHARWD R 0.300003)
    (CHARHT R 0.663692)
    (CHARIC R 0.114533)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 137)))
(CHARACTER O 140
    (CHARWD R 0.300003)
    (CHARHT R 0.694444)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 140)))
(CHARACTER C a
    (CHARWD R 0.500005)
    (CHARHT R 0.430556)
    (CHARIC R 0.074769)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C a)))
(CHARACTER C b
    (CHARWD R 0.450005)
    (CHARHT R 0.694444)
    (CHARIC R 0.061226)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C b)))
(CHARACTER C c
    (CHARWD R 0.450005)
    (CHARHT R 0.430556)
    (CHARIC R 0.057639)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C c)))
(CHARACTER C d
    (CHARWD R 0.500005)
    (CHARHT R 0.694444)
    (CHARIC R 0.103703)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C d)))
(CHARACTER C e
    (CHARWD R 0.450005)
    (CHARHT R 0.430556)
    (CHARIC R 0.074768)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C e)))
(CHARACTER C f
    (CHARWD R 0.300003)
    (CHARHT R 0.694444)
    (CHARDP R 0.194444)
    (CHARIC R 0.211112)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C f)))
(CHARACTER C g
    (CHARWD R 0.450005)
    (CHARHT R 0.430556)
    (CHARDP R 0.194444)
    (CHARIC R 0.087731)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C g)))
(CHARACTER C h
    (CHARWD R 0.500005)
    (CHARHT R 0.694444)
    (CHARIC R 0.074769)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C h)))
(CHARACTER C i
    (CHARWD R 0.300003)
    (CHARHT R 0.648281)
    (CHARIC R 0.100066)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C i)))
(CHARACTER C j
    (CHARWD R 0.300003)
    (CHARHT R 0.648281)
    (CHARDP R 0.194444)
    (CHARIC R 0.143123)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C j)))
(CHARACTER C k
    (CHARWD R 0.450005)
    (CHARHT R 0.694444)
    (CHARIC R 0.107639)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C k)))
(CHARACTER C l
    (CHARWD R 0.250003)
    (CHARHT R 0.694444)
    (CHARIC R 0.103703)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C l)))
(CHARACTER C m
    (CHARWD R 0.800008)
    (CHARHT R 0.430556)
    (CHARIC R 0.074769)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C m)))
(CHARACTER C n
    (CHARWD R 0.550006)
    (CHARHT R 0.430556)
    (CHARIC R 0.074769)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C n)))
(CHARACTER C o
    (CHARWD R 0.500005)
    (CHARHT R 0.430556)
    (CHARIC R 0.061226)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C o)))
(CHARACTER C p
    (CHARWD R 0.500005)
    (CHARHT R 0.430556)
    (CHARDP R 0.194444)
    (CHARIC R 0.061226)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C p)))
(CHARACTER C q
    (CHARWD R 0.450005)
    (CHARHT R 0.430556)
    (CHARDP R 0.194444)
    (CHARIC R 0.087731)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C q)))
(CHARACTER C r
    (CHARWD R 0.412505)
    (CHARHT R 0.430556)
    (CHARIC R 0.107639)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C r)))
(CHARACTER C s
    (CHARWD R 0.400005)
    (CHARHT R 0.430556)
    (CHARIC R 0.082639)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C s)))
(CHARACTER C t
    (CHARWD R 0.325004)
    (CHARHT R 0.615081)
    (CHARIC R 0.095139)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C t)))
(CHARACTER C u
    (CHARWD R 0.525005)
    (CHARHT R 0.430556)
    (CHARIC R 0.074769)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C u)))
(CHARACTER C v
    (CHARWD R 0.450005)
    (CHARHT R 0.430556)
    (CHARIC R 0.107639)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C v)))
(CHARACTER C w
    (CHARWD R 0.650006)
    (CHARHT R 0.430556)
    (CHARIC R 0.107639)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C w)))
(CHARACTER C x
    (CHARWD R 0.450005)
    (CHARHT R 0.430556)
    (CHARIC R 0.12014)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C x)))
(CHARACTER C y
    (CHARWD R 0.475005)
    (CHARHT R 0.430556)
    (CHARDP R 0.194444)
    (CHARIC R 0.087731)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C y)))
(CHARACTER C z
    (CHARWD R 0.400004)
    (CHARHT R 0.430556)
    (CHARIC R 0.121529)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR C z)))
(CHARACTER O 173
    (CHARWD R 0.500005)
    (CHARHT R 0.430556)
    (CHARIC R 0.091525)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 173)))
(CHARACTER O 174
    (CHARWD R 1.0000105)
    (CHARHT R 0.430556)
    (CHARIC R 0.091525)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 174)))
(CHARACTER O 175
    (CHARWD R 0.500005)
    (CHARHT R 0.694444)
    (CHARIC R 0.1236105)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 175)))
(CHARACTER O 176
    (CHARWD R 0.500005)
    (CHARHT R 0.663692)
    (CHARIC R 0.115922)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 176)))
(CHARACTER O 177
    (CHARWD R 0.500005)
    (CHARHT R 0.663692)
    (CHARIC R 0.102033)
    (MAP
        (SELECTFONT D 0)
        (SETCHAR O 177)))

%</cmtiup12vpl>

%    \end{macrocode}
% \end{multicols}
%
%
% \clearpage
%
%\section{Fontinst:  Bold Italics in OT1 and Bold \& Medium Italics in T1}
%\label{sec:fontist}
%
% The idea is, we combine two |.pl| files in one |.vpl|, but first we
% need to delete digits from the second file:
%    \begin{macrocode}
%<*deldigits>
\relax
Unset all digits and punctuation
\metrics
%    \end{macrocode}
% 
% The file itself uses the command |\unsetglyph|.  We unset the
% digits, parenthesizes, etc.
%    \begin{macrocode}
\unsetglyph{exclam}
\unsetglyph{parenleft}
\unsetglyph{parenright}
\unsetglyph{comma}
\unsetglyph{period}
\unsetglyph{slash}
\unsetglyph{zero}
\unsetglyph{one}
\unsetglyph{two}
\unsetglyph{three}
\unsetglyph{four}
\unsetglyph{five}
\unsetglyph{six}
\unsetglyph{seven}
\unsetglyph{eight}
\unsetglyph{nine}
\unsetglyph{colon}
\unsetglyph{semicolon}
\unsetglyph{exclamdown}
\unsetglyph{questiondown}
\unsetglyph{question}
\unsetglyph{bracketleft}
\unsetglyph{bracketright}
\unsetglyph{braceleft}
\unsetglyph{braceright}
\endmetrics
%</deldigits>
%    \end{macrocode}
%
%    \begin{macrocode}
%<*adjdigits>
\relax
Move digits to the right
\metrics
%    \end{macrocode}
% We need to move the digits to the right to compensate for the italic
% correction
% 
%    \begin{macrocode}
\resetglyph{exclam}
  \movert{\scale{\italic{f}}{300}}
  \glyph{exclam}{1000}
  \movert{-\scale{\italic{f}}{300}}
  \endresetglyph
\resetglyph{parenleft}
  \movert{\scale{\italic{f}}{300}}
  \glyph{parenleft}{1000}
  \movert{-\scale{\italic{f}}{300}}
  \endresetglyph
\resetglyph{parenright}
  \movert{\scale{\italic{f}}{300}}
  \glyph{parenright}{1000}
  \movert{-\scale{\italic{f}}{300}}
  \endresetglyph
\resetglyph{comma}
  \movert{\scale{\italic{f}}{300}}
  \glyph{comma}{1000}
  \movert{-\scale{\italic{f}}{300}}
  \endresetglyph
\resetglyph{period}
  \movert{\scale{\italic{f}}{300}}
  \glyph{period}{1000}
  \movert{-\scale{\italic{f}}{300}}
  \endresetglyph
\resetglyph{slash}
  \movert{\scale{\italic{f}}{300}}
  \glyph{slash}{1000}
  \movert{-\scale{\italic{f}}{300}}
  \endresetglyph
\resetglyph{zero}
  \movert{\scale{\italic{f}}{300}}
  \glyph{zero}{1000}
  \movert{-\scale{\italic{f}}{300}}
  \endresetglyph
\resetglyph{one}
  \movert{\scale{\italic{f}}{300}}
  \glyph{one}{1000}
  \movert{-\scale{\italic{f}}{300}}
  \endresetglyph
\resetglyph{two}
  \movert{\scale{\italic{f}}{300}}
  \glyph{two}{1000}
  \movert{-\scale{\italic{f}}{300}}
  \endresetglyph
\resetglyph{three}
  \movert{\scale{\italic{f}}{300}}
  \glyph{three}{1000}
  \movert{-\scale{\italic{f}}{300}}
  \endresetglyph
\resetglyph{four}
  \movert{\scale{\italic{f}}{300}}
  \glyph{four}{1000}
  \movert{-\scale{\italic{f}}{300}}
  \endresetglyph
\resetglyph{five}
  \movert{\scale{\italic{f}}{300}}
  \glyph{five}{1000}
  \movert{-\scale{\italic{f}}{300}}
  \endresetglyph
\resetglyph{six}
  \movert{\scale{\italic{f}}{300}}
  \glyph{six}{1000}
  \movert{-\scale{\italic{f}}{300}}
  \endresetglyph
\resetglyph{seven}
  \movert{\scale{\italic{f}}{300}}
  \glyph{seven}{1000}
  \movert{-\scale{\italic{f}}{300}}
  \endresetglyph
\resetglyph{eight}
  \movert{\scale{\italic{f}}{300}}
  \glyph{eight}{1000}
  \movert{-\scale{\italic{f}}{300}}
  \endresetglyph
\resetglyph{nine}
  \movert{\scale{\italic{f}}{300}}
  \glyph{nine}{1000}
  \movert{-\scale{\italic{f}}{300}}
  \endresetglyph
\resetglyph{colon}
  \movert{\scale{\italic{f}}{300}}
  \glyph{colon}{1000}
  \movert{-\scale{\italic{f}}{300}}
  \endresetglyph
\resetglyph{semicolon}
  \movert{\scale{\italic{f}}{300}}
  \glyph{semicolon}{1000}
  \movert{-\scale{\italic{f}}{300}}
  \endresetglyph
\resetglyph{exclamdown}
  \movert{\scale{\italic{f}}{300}}
  \glyph{exclamdown}{1000}
  \movert{-\scale{\italic{f}}{300}}
  \endresetglyph
\resetglyph{questiondown}
  \movert{\scale{\italic{f}}{300}}
  \glyph{questiondown}{1000}
  \movert{-\scale{\italic{f}}{300}}
  \endresetglyph
\resetglyph{question}
  \movert{\scale{\italic{f}}{300}}
  \glyph{question}{1000}
  \movert{-\scale{\italic{f}}{300}}
  \endresetglyph
\resetglyph{bracketleft}
  \movert{\scale{\italic{f}}{300}}
  \glyph{bracketleft}{1000}
  \movert{-\scale{\italic{f}}{300}}
  \endresetglyph
\resetglyph{bracketright}
  \movert{\scale{\italic{f}}{300}}
  \glyph{bracketright}{1000}
  \movert{-\scale{\italic{f}}{300}}
  \endresetglyph
\ifisglyph{braceleft}\then
\resetglyph{braceleft}
  \movert{\scale{\italic{f}}{300}}
  \glyph{braceleft}{1000}
  \movert{-\scale{\italic{f}}{300}}
  \endresetglyph
\Fi
\ifisglyph{braceright}\then
\resetglyph{braceright}
  \movert{\scale{\italic{f}}{300}}
  \glyph{braceright}{1000}
  \movert{-\scale{\italic{f}}{300}}
  \endresetglyph
\Fi
\endmetrics
%</adjdigits>
%
%    \end{macrocode}
% 
%
% Read \textsl{fontinst} 
%    \begin{macrocode}
%<*drv>
\input fontinst.sty
%    \end{macrocode}
%
% Combine the fonts for T1 and bold OT1
%    \begin{macrocode}
\installfonts
\installfamily{OT1}{cmtiup}{}
\installfont{cmbxtiup10}{%
  cmbxti10,deldigits,cmbx10,adjdigits}{ot1}{OT1}{cmr}{bx}{it}{}
\installfamily{T1}{cmtiup}{}
\installfont{ectiup0500}{%
  ecti0500,deldigits,ecrm0500,adjdigits}{t1}{T1}{cmr}{m}{it}{}
\installfont{ectiup0600}{%
  ecti0600,deldigits,ecrm0600,adjdigits}{t1}{T1}{cmr}{m}{it}{}
\installfont{ectiup0700}{%
  ecti0700,deldigits,ecrm0700,adjdigits}{t1}{T1}{cmr}{m}{it}{}
\installfont{ectiup0800}{%
  ecti0800,deldigits,ecrm0800,adjdigits}{t1}{T1}{cmr}{m}{it}{}
\installfont{ectiup0900}{%
  ecti0900,deldigits,ecrm0900,adjdigits}{t1}{T1}{cmr}{m}{it}{}
\installfont{ectiup1000}{%
  ecti1000,deldigits,ecrm1000,adjdigits}{t1}{T1}{cmr}{m}{it}{}
\installfont{ectiup1095}{%
  ecti1095,deldigits,ecrm1095,adjdigits}{t1}{T1}{cmr}{m}{it}{}
\installfont{ectiup1200}{%
  ecti1200,deldigits,ecrm1200,adjdigits}{t1}{T1}{cmr}{m}{it}{}
\installfont{ectiup1440}{%
  ecti1440,deldigits,ecrm1440,adjdigits}{t1}{T1}{cmr}{m}{it}{}
\installfont{ectiup1728}{%
  ecti1728,deldigits,ecrm1728,adjdigits}{t1}{T1}{cmr}{m}{it}{}
\installfont{ectiup2074}{%
  ecti2074,deldigits,ecrm2074,adjdigits}{t1}{T1}{cmr}{m}{it}{}
\installfont{ectiup2488}{%
  ecti2488,deldigits,ecrm2488,adjdigits}{t1}{T1}{cmr}{m}{it}{}
\installfont{ectiup2986}{%
  ecti2986,deldigits,ecrm2986,adjdigits}{t1}{T1}{cmr}{m}{it}{}
\installfont{ectiup3583}{%
  ecti3583,deldigits,ecrm3583,adjdigits}{t1}{T1}{cmr}{m}{it}{}
\installfont{ecbiup0500}{%
  ecbi0500,deldigits,ecbx0500,adjdigits}{t1}{T1}{cmr}{m}{it}{}
\installfont{ecbiup0600}{%
  ecbi0600,deldigits,ecbx0600,adjdigits}{t1}{T1}{cmr}{m}{it}{}
\installfont{ecbiup0700}{%
  ecbi0700,deldigits,ecbx0700,adjdigits}{t1}{T1}{cmr}{m}{it}{}
\installfont{ecbiup0800}{%
  ecbi0800,deldigits,ecbx0800,adjdigits}{t1}{T1}{cmr}{m}{it}{}
\installfont{ecbiup0900}{%
  ecbi0900,deldigits,ecbx0900,adjdigits}{t1}{T1}{cmr}{m}{it}{}
\installfont{ecbiup1000}{%
  ecbi1000,deldigits,ecbx1000,adjdigits}{t1}{T1}{cmr}{m}{it}{}
\installfont{ecbiup1095}{%
  ecbi1095,deldigits,ecbx1095,adjdigits}{t1}{T1}{cmr}{m}{it}{}
\installfont{ecbiup1200}{%
  ecbi1200,deldigits,ecbx1200,adjdigits}{t1}{T1}{cmr}{m}{it}{}
\installfont{ecbiup1440}{%
  ecbi1440,deldigits,ecbx1440,adjdigits}{t1}{T1}{cmr}{m}{it}{}
\installfont{ecbiup1728}{%
  ecbi1728,deldigits,ecbx1728,adjdigits}{t1}{T1}{cmr}{m}{it}{}
\installfont{ecbiup2074}{%
  ecbi2074,deldigits,ecbx2074,adjdigits}{t1}{T1}{cmr}{m}{it}{}
\installfont{ecbiup2488}{%
  ecbi2488,deldigits,ecbx2488,adjdigits}{t1}{T1}{cmr}{m}{it}{}
\installfont{ecbiup2986}{%
  ecbi2986,deldigits,ecbx2986,adjdigits}{t1}{T1}{cmr}{m}{it}{}
\installfont{ecbiup3583}{%
  ecbi3583,deldigits,ecbx3583,adjdigits}{t1}{T1}{cmr}{m}{it}{}

\endinstallfonts
\bye
%    \end{macrocode}
% 
%
%    \begin{macrocode}
%</drv>
%    \end{macrocode}
%
% \clearpage
%
%
% \Finale
% \PrintChanges
%\clearpage
%\PrintIndex
\endinput