%xq.sty, version 0.4

%this style is made for writing about xiangqi. I never wrote something like this before so do not expect too much. You can write down games or parts of games and show diagrams of positions (take a look at xqexample.tex). The move display was more or less copied from the one in chess.sty by Piet Tutelaers, the diagrams follow the idea of  Jacques Richer in cchessboard.tex.The boards are available in normal and large size and with chinese or western pieces. If you make any changes in this file, please rename it. If changes are making this style work better (which i guess is rather simple) please share your improvements with me. Thanks in advance.

%Stephan Weinhold 09.2006

%Post-0.3 changes by:
%  Wolfgang Reher <nr997@gmx.de>
%  Sebastian Pipping <sebastian@pipping.org>





%define a language for input of positions and piece letters shown in the moveblocks
\def\german{german}
\def\leibwaechter{leibwaechter}
\def\english{english}
\def\french{french}
\def\italian{italian}
\def\czech{czech}
\def\spanish{spanish}
\def\dutch{dutch}
%\def\nameofmylanguage{nameofmylanguage}

\def\mylanguage #1 {
\def\checklangg{#1}

%\ifx\checklangg\nameofmylanguage
%\gdef\redking{*}%input your preferred letters here 
%\gdef\blackking{*}
%\gdef\redchariot{*}
%\gdef\blackchariot{*}
%\gdef\redcannon{*}
%\gdef\blackcannon{*}
%\gdef\redhorse{*}
%\gdef\blackhorse{*}
%\gdef\redelephant{*}
%\gdef\blackelephant{*}
%\gdef\redguard{*}
%\gdef\blackguard{*}
%\gdef\redpawn{*} 
%\gdef\blackpawn{*} 
%\fi

\ifx\checklangg\german 
\gdef\redking{F} 
\gdef\blackking{f}
\gdef\redchariot{W}
\gdef\blackchariot{w}
\gdef\redcannon{K}
\gdef\blackcannon{k}
\gdef\redhorse{P}
\gdef\blackhorse{p}
\gdef\redelephant{E}
\gdef\blackelephant{e}
\gdef\redguard{M}
\gdef\blackguard{m}
\gdef\redpawn{S} 
\gdef\blackpawn{s}
\fi

\ifx\checklangg\leibwaechter
\gdef\redking{F}
\gdef\blackking{f}
\gdef\redchariot{W}
\gdef\blackchariot{w}
\gdef\redcannon{K}
\gdef\blackcannon{k}
\gdef\redhorse{P}
\gdef\blackhorse{p}
\gdef\redelephant{E}
\gdef\blackelephant{e}
\gdef\redguard{L}
\gdef\blackguard{l}
\gdef\redpawn{S}
\gdef\blackpawn{s}
\fi

%% http://www.wxf.org/xq/computer/wxf_notation.html
\ifx\checklangg\english
\gdef\redking{K} 
\gdef\blackking{k}
\gdef\redchariot{R}
\gdef\blackchariot{r}
\gdef\redcannon{C}
\gdef\blackcannon{c}
\gdef\redhorse{H}
\gdef\blackhorse{h}
\gdef\redelephant{E}
\gdef\blackelephant{e}
\gdef\redguard{A}
\gdef\blackguard{a}
\gdef\redpawn{P} 
\gdef\blackpawn{p}%  
\fi

\ifx\checklangg\french
\gdef\redking{R}
\gdef\blackking{r}
\gdef\redchariot{T}
\gdef\blackchariot{t}
\gdef\redcannon{B}
\gdef\blackcannon{b}
\gdef\redhorse{C}
\gdef\blackhorse{c}
\gdef\redelephant{E}
\gdef\blackelephant{e}
\gdef\redguard{M}
\gdef\blackguard{m}
\gdef\redpawn{P} 
\gdef\blackpawn{p} 
\fi

\ifx\checklangg\italian
\gdef\redking{R}
\gdef\blackking{r}
\gdef\redchariot{T}
\gdef\blackchariot{t}
\gdef\redcannon{B}
\gdef\blackcannon{b}
\gdef\redhorse{C}
\gdef\blackhorse{c}
\gdef\redelephant{E}
\gdef\blackelephant{e}
\gdef\redguard{M}
\gdef\blackguard{m}
\gdef\redpawn{P} 
\gdef\blackpawn{p} 
\fi

\ifx\checklangg\spanish
\gdef\redking{R}
\gdef\blackking{r}
\gdef\redchariot{T}
\gdef\blackchariot{t}
\gdef\redcannon{B}
\gdef\blackcannon{b}
\gdef\redhorse{C}
\gdef\blackhorse{c}
\gdef\redelephant{E}
\gdef\blackelephant{e}
\gdef\redguard{O}
\gdef\blackguard{o}
\gdef\redpawn{P} 
\gdef\blackpawn{p} 
\fi

\ifx\checklangg\czech
\gdef\redking{K}
\gdef\blackking{k}
\gdef\redchariot{V}
\gdef\blackchariot{v}
\gdef\redcannon{D}
\gdef\blackcannon{d}
\gdef\redhorse{J}
\gdef\blackhorse{j}
\gdef\redelephant{S}
\gdef\blackelephant{s}
\gdef\redguard{R}
\gdef\blackguard{r}
\gdef\redpawn{P} 
\gdef\blackpawn{p} 
\fi

\ifx\checklangg\dutch
\gdef\redking{G}
\gdef\blackking{g}
\gdef\redchariot{T}
\gdef\blackchariot{t}
\gdef\redcannon{K}
\gdef\blackcannon{k}
\gdef\redhorse{P}
\gdef\blackhorse{p}
\gdef\redelephant{O}
\gdef\blackelephant{o}
\gdef\redguard{A}
\gdef\blackguard{a}
\gdef\redpawn{S} 
\gdef\blackpawn{s} 
\fi
}

%show pieces in running text

\font\xqintext=xqnormal

\def\textpiece #1 {%
%
\def\pieceinput{#1}%
%
\if\pieceinput\redking \def\showpiece{F}\fi%
\if\pieceinput\blackking \def\showpiece{f}\fi%
\if\pieceinput\redguard \def\showpiece{M}\fi%
\if\pieceinput\blackguard \def\showpiece{m}\fi%
\if\pieceinput\redelephant \def\showpiece{E}\fi%
\if\pieceinput\blackelephant \def\showpiece{e}\fi%
\if\pieceinput\redhorse \def\showpiece{P}\fi%
\if\pieceinput\blackhorse \def\showpiece{p}\fi%
\if\pieceinput\redchariot \def\showpiece{W}\fi%
\if\pieceinput\blackchariot \def\showpiece{w}\fi%
\if\pieceinput\redcannon \def\showpiece{K}\fi%
\if\pieceinput\blackcannon \def\showpiece{k}\fi%
\if\pieceinput\redpawn \def\showpiece{S}\fi%
\if\pieceinput\blackpawn \def\showpiece{s}\fi%
%
\def\poutput{\xqintext\showpiece\,}%
\poutput%
\normalfont%
}%

\font\westxqintext=xqwestnormal

\def\westerntextpiece #1 {%
%
\def\pieceinput{#1}%
%
\if\pieceinput\redking \def\showpiece{F}\fi%
\if\pieceinput\blackking \def\showpiece{f}\fi%
\if\pieceinput\redguard \def\showpiece{M}\fi%
\if\pieceinput\blackguard \def\showpiece{m}\fi%
\if\pieceinput\redelephant \def\showpiece{E}\fi%
\if\pieceinput\blackelephant \def\showpiece{e}\fi%
\if\pieceinput\redhorse \def\showpiece{P}\fi%
\if\pieceinput\blackhorse \def\showpiece{p}\fi%
\if\pieceinput\redchariot \def\showpiece{W}\fi%
\if\pieceinput\blackchariot \def\showpiece{w}\fi%
\if\pieceinput\redcannon \def\showpiece{K}\fi%
\if\pieceinput\blackcannon \def\showpiece{k}\fi%
\if\pieceinput\redpawn \def\showpiece{S}\fi%
\if\pieceinput\blackpawn \def\showpiece{s}\fi%
%
\def\poutput{\westxqintext\showpiece\,}%
\poutput%
\normalfont%
}%

%write down variations in running text
\def\capt{$\times$}\def\dottys{$\dots$}
\catcode`\*=13\catcode`\|=13%

\gdef\bv{\begin{variation}} \gdef\ev{\end{variation}}
\def\variation{\let|=\dottys\let*=\capt}


\gdef\makevisible{\catcode`\*=12\catcode`\|=12}
\gdef\makeactive{\catcode`\*=13\catcode`\|=13}

%write down moves, 
\gdef\line#1{\hbox to \textwidth{#1}}

\newcount\movecount \movecount=0
\newcount\commentR \commentR=0
\newcount\commentB \commentB=0
\newcount\captR
\newcount\captB

\def\cr #1 {\advance\commentR by1\def\CR{#1}}
\def\cb #1 {\advance\commentB by1\def\CB{#1}}
\def\xli{x}

\def\a{\the\commentR}
\def\b{\the\commentB}
\def\c{1}

\def\reki{F}\def\blaki{f}\def\rech{W}\def\blach{w}\def\reca{K}\def\blaca{k}\def\reho{P}\def\blaho{p}\def\reel{E}\def\blael{e}\def\regu{M}\def\blagu{m}\def\repa{S}\def\blapa{s}

\def\showmove{
\par
\if\a\c 
   \if\b\c
   \line{\strut\hbox to1.4cm{\hfil\the\movecount.}\hbox to2.8cm{\hfil\rply}\hbox to0.0cm{\hspace{0.2mm}\CR}\hbox to2.8cm{\hfil\bply}\hbox to0.0cm{\hspace{0.2mm}\CB}\hfil}
   \else 
   \line{\strut\hbox to1.4cm{\hfil\the\movecount.}\hbox to2.8cm{\hfil\rply}\hbox to0.0cm{\hspace{0.2mm}\CR}\hbox to2.8cm{\hfil\bply}\hfil}\fi
\else
\if\b\c \line{\strut\hbox to1.4cm{\hfil\the\movecount.}\hbox to2.8cm{\hfil\rply}\hbox to2.8cm{\hfil\bply}\hbox to0.0cm{\hspace{0.2mm}\CB}\hfil}
\else
\line{\strut\hbox to1.4cm{\hfil\the\movecount.}\hbox to2.8cm{\hfil\rply}\hbox to2.8cm{\hfil\bply}\hfil}
\fi\fi
\par
\commentR=0\commentB=0\captR=0\captB=0
}

\def\move #1#2#3#4 #5#6#7#8{

\advance\movecount by1

\def\startlr{#1}
\def\startrr{#2}
\def\endlr{#3}
\def\endrr{#4}
\def\startlb{#5}
\def\startrb{#6}
\def\endlb{#7}
\def\endrb{#8}

%capture or move to an empty "square"
\if\endlr\ali
   \if\endrr\brone \ifnum\aoneset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brtwo \ifnum\atwoset=1 \captR=1 \else\captR=0\fi\fi  
   \if\endrr\brthree \ifnum\athreeset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brfour \ifnum\afourset=1 \captR=1 \else\captR=0\fi\fi 
   \if\endrr\brfive \ifnum\afiveset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brsix \ifnum\asixset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brseven \ifnum\asevenset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\breight \ifnum\aeightset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brnine \ifnum\anineset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brnull \ifnum\anullset=1 \captR=1 \else\captR=0\fi\fi\fi
\if\endlr\bli
   \if\endrr\brone \ifnum\boneset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brtwo \ifnum\btwoset=1 \captR=1 \else\captR=0\fi\fi  
   \if\endrr\brthree \ifnum\bthreeset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brfour \ifnum\bfourset=1 \captR=1 \else\captR=0\fi\fi 
   \if\endrr\brfive \ifnum\bfiveset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brsix \ifnum\bsixset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brseven \ifnum\bsevenset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\breight \ifnum\beightset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brnine \ifnum\bnineset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brnull \ifnum\bnullset=1 \captR=1 \else\captR=0\fi\fi\fi
\if\endlr\cli
   \if\endrr\brone \ifnum\coneset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brtwo \ifnum\ctwoset=1 \captR=1 \else\captR=0\fi\fi  
   \if\endrr\brthree \ifnum\cthreeset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brfour \ifnum\cfourset=1 \captR=1 \else\captR=0\fi\fi 
   \if\endrr\brfive \ifnum\cfiveset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brsix \ifnum\csixset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brseven \ifnum\csevenset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\breight \ifnum\ceightset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brnine \ifnum\cnineset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brnull \ifnum\cnullset=1 \captR=1 \else\captR=0\fi\fi\fi
\if\endlr\dli
   \if\endrr\brone \ifnum\doneset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brtwo \ifnum\dtwoset=1 \captR=1 \else\captR=0\fi\fi  
   \if\endrr\brthree \ifnum\dthreeset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brfour \ifnum\dfourset=1 \captR=1 \else\captR=0\fi\fi 
   \if\endrr\brfive \ifnum\dfiveset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brsix \ifnum\dsixset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brseven \ifnum\dsevenset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\breight \ifnum\deightset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brnine \ifnum\dnineset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brnull \ifnum\dnullset=1 \captR=1 \else\captR=0\fi\fi\fi
\if\endlr\eli
   \if\endrr\brone \ifnum\eoneset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brtwo \ifnum\etwoset=1 \captR=1 \else\captR=0\fi\fi  
   \if\endrr\brthree \ifnum\ethreeset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brfour \ifnum\efourset=1 \captR=1 \else\captR=0\fi\fi 
   \if\endrr\brfive \ifnum\efiveset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brsix \ifnum\esixset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brseven \ifnum\esevenset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\breight \ifnum\eeightset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brnine \ifnum\enineset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brnull \ifnum\enullset=1 \captR=1 \else\captR=0\fi\fi\fi
\if\endlr\fli
   \if\endrr\brone \ifnum\foneset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brtwo \ifnum\ftwoset=1 \captR=1 \else\captR=0\fi\fi  
   \if\endrr\brthree \ifnum\fthreeset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brfour \ifnum\ffourset=1 \captR=1 \else\captR=0\fi\fi 
   \if\endrr\brfive \ifnum\ffiveset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brsix \ifnum\fsixset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brseven \ifnum\fsevenset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\breight \ifnum\feightset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brnine \ifnum\fnineset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brnull \ifnum\fnullset=1 \captR=1 \else\captR=0\fi\fi\fi
\if\endlr\gli
   \if\endrr\brone \ifnum\goneset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brtwo \ifnum\gtwoset=1 \captR=1 \else\captR=0\fi\fi  
   \if\endrr\brthree \ifnum\gthreeset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brfour \ifnum\gfourset=1 \captR=1 \else\captR=0\fi\fi 
   \if\endrr\brfive \ifnum\gfiveset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brsix \ifnum\gsixset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brseven \ifnum\gsevenset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\breight \ifnum\geightset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brnine \ifnum\gnineset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brnull \ifnum\gnullset=1 \captR=1 \else\captR=0\fi\fi\fi
\if\endlr\hli
   \if\endrr\brone \ifnum\honeset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brtwo \ifnum\htwoset=1 \captR=1 \else\captR=0\fi\fi  
   \if\endrr\brthree \ifnum\hthreeset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brfour \ifnum\hfourset=1 \captR=1 \else\captR=0\fi\fi 
   \if\endrr\brfive \ifnum\hfiveset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brsix \ifnum\hsixset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brseven \ifnum\hsevenset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\breight \ifnum\heightset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brnine \ifnum\hnineset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brnull \ifnum\hnullset=1 \captR=1 \else\captR=0\fi\fi\fi
\if\endlr\ili
   \if\endrr\brone \ifnum\ioneset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brtwo \ifnum\itwoset=1 \captR=1 \else\captR=0\fi\fi  
   \if\endrr\brthree \ifnum\ithreeset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brfour \ifnum\ifourset=1 \captR=1 \else\captR=0\fi\fi 
   \if\endrr\brfive \ifnum\ifiveset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brsix \ifnum\isixset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brseven \ifnum\isevenset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\breight \ifnum\ieightset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brnine \ifnum\inineset=1 \captR=1 \else\captR=0\fi\fi
   \if\endrr\brnull \ifnum\inullset=1 \captR=1 \else\captR=0\fi\fi\fi

\if\endlb\ali
   \if\endrb\brone \ifnum\aoneset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brtwo \ifnum\atwoset=1 \captB=1 \else\captB=0\fi\fi  
   \if\endrb\brthree \ifnum\athreeset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brfour \ifnum\afourset=1 \captB=1 \else\captB=0\fi\fi 
   \if\endrb\brfive \ifnum\afiveset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brsix \ifnum\asixset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brseven \ifnum\asevenset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\breight \ifnum\aeightset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brnine \ifnum\anineset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brnull \ifnum\anullset=1 \captB=1 \else\captB=0\fi\fi\fi
\if\endlb\bli
   \if\endrb\brone \ifnum\boneset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brtwo \ifnum\btwoset=1 \captB=1 \else\captB=0\fi\fi  
   \if\endrb\brthree \ifnum\bthreeset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brfour \ifnum\bfourset=1 \captB=1 \else\captB=0\fi\fi 
   \if\endrb\brfive \ifnum\bfiveset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brsix \ifnum\bsixset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brseven \ifnum\bsevenset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\breight \ifnum\beightset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brnine \ifnum\bnineset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brnull \ifnum\bnullset=1 \captB=1 \else\captB=0\fi\fi\fi
\if\endlb\cli
   \if\endrb\brone \ifnum\coneset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brtwo \ifnum\ctwoset=1 \captB=1 \else\captB=0\fi\fi  
   \if\endrb\brthree \ifnum\cthreeset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brfour \ifnum\cfourset=1 \captB=1 \else\captB=0\fi\fi 
   \if\endrb\brfive \ifnum\cfiveset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brsix \ifnum\csixset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brseven \ifnum\csevenset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\breight \ifnum\ceightset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brnine \ifnum\cnineset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brnull \ifnum\cnullset=1 \captB=1 \else\captB=0\fi\fi\fi
\if\endlb\dli
   \if\endrb\brone \ifnum\doneset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brtwo \ifnum\dtwoset=1 \captB=1 \else\captB=0\fi\fi  
   \if\endrb\brthree \ifnum\dthreeset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brfour \ifnum\dfourset=1 \captB=1 \else\captB=0\fi\fi 
   \if\endrb\brfive \ifnum\dfiveset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brsix \ifnum\dsixset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brseven \ifnum\dsevenset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\breight \ifnum\deightset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brnine \ifnum\dnineset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brnull \ifnum\dnullset=1 \captB=1 \else\captB=0\fi\fi\fi
\if\endlb\eli
   \if\endrb\brone \ifnum\eoneset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brtwo \ifnum\etwoset=1 \captB=1 \else\captB=0\fi\fi  
   \if\endrb\brthree \ifnum\ethreeset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brfour \ifnum\efourset=1 \captB=1 \else\captB=0\fi\fi 
   \if\endrb\brfive \ifnum\efiveset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brsix \ifnum\esixset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brseven \ifnum\esevenset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\breight \ifnum\eeightset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brnine \ifnum\enineset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brnull \ifnum\enullset=1 \captB=1 \else\captB=0\fi\fi\fi
\if\endlb\fli
   \if\endrb\brone \ifnum\foneset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brtwo \ifnum\ftwoset=1 \captB=1 \else\captB=0\fi\fi  
   \if\endrb\brthree \ifnum\fthreeset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brfour \ifnum\ffourset=1 \captB=1 \else\captB=0\fi\fi 
   \if\endrb\brfive \ifnum\ffiveset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brsix \ifnum\fsixset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brseven \ifnum\fsevenset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\breight \ifnum\feightset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brnine \ifnum\fnineset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brnull \ifnum\fnullset=1 \captB=1 \else\captB=0\fi\fi\fi
\if\endlb\gli
   \if\endrb\brone \ifnum\goneset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brtwo \ifnum\gtwoset=1 \captB=1 \else\captB=0\fi\fi  
   \if\endrb\brthree \ifnum\gthreeset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brfour \ifnum\gfourset=1 \captB=1 \else\captB=0\fi\fi 
   \if\endrb\brfive \ifnum\gfiveset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brsix \ifnum\gsixset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brseven \ifnum\gsevenset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\breight \ifnum\geightset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brnine \ifnum\gnineset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brnull \ifnum\gnullset=1 \captB=1 \else\captB=0\fi\fi\fi
\if\endlb\hli
   \if\endrb\brone \ifnum\honeset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brtwo \ifnum\htwoset=1 \captB=1 \else\captB=0\fi\fi  
   \if\endrb\brthree \ifnum\hthreeset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brfour \ifnum\hfourset=1 \captB=1 \else\captB=0\fi\fi 
   \if\endrb\brfive \ifnum\hfiveset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brsix \ifnum\hsixset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brseven \ifnum\hsevenset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\breight \ifnum\heightset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brnine \ifnum\hnineset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brnull \ifnum\hnullset=1 \captB=1 \else\captB=0\fi\fi\fi
\if\endlb\ili
   \if\endrb\brone \ifnum\ioneset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brtwo \ifnum\itwoset=1 \captB=1 \else\captB=0\fi\fi  
   \if\endrb\brthree \ifnum\ithreeset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brfour \ifnum\ifourset=1 \captB=1 \else\captB=0\fi\fi 
   \if\endrb\brfive \ifnum\ifiveset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brsix \ifnum\isixset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brseven \ifnum\isevenset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\breight \ifnum\ieightset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brnine \ifnum\inineset=1 \captB=1 \else\captB=0\fi\fi
   \if\endrb\brnull \ifnum\inullset=1 \captB=1 \else\captB=0\fi\fi\fi

\ifnum\captR=1 \def\signR{$\times$} \else \def\signR{\hbox{\hspace{0.2mm}--\hspace{0.2mm}}}\fi
\ifnum\captB=1 \def\signB{$\times$} \else \def\signB{\hbox{\hspace{0.2mm}--\hspace{0.2mm}}}\fi

% Did black take the piece red moved just before?
\if\endlr\endlb \if\endrr\endrb \def\signB{$\times$} \fi\fi

% Did we assume the place occupied that red actually just freed, by mistake?
\if\startlr\endlb \if\startrr\endrb \def\signB{\hbox{\hspace{0.2mm}--\hspace{0.2mm}}} \fi\fi

\def\piececolumnwidth{1.2em}
\def\locationcolumnwidth{1.0em}
\def\operatorcolumnwidth{0.8em}
\def\piececolumnalign{c}
\def\startlocationalign{l}
\def\endlocationalign{r}

%defines what is actually shown in the move blocks
\if\startlr\xli \advance\movecount by-1 \def\rply{$\ldots$} \else \def\rply{%
	\makebox[\piececolumnwidth][\piececolumnalign]{\npr}%
	\makebox[\locationcolumnwidth][\startlocationalign]{\startlr\startrr}%
	\makebox[\operatorcolumnwidth][c]{\signR}%
	\makebox[\locationcolumnwidth][\endlocationalign]{\endlr\endrr}%
}\fi
\if\startlb\xli \def\bply{ } \else \def\bply{%
	\makebox[\piececolumnwidth][\piececolumnalign]{\npb}%
	\makebox[\locationcolumnwidth][\startlocationalign]{\startlb\startrb}%
	\makebox[\operatorcolumnwidth][c]{\signB}%
	\makebox[\locationcolumnwidth][\endlocationalign]{\endlb\endrb}%
}\fi


%piece-letters for notation
\if\startlr\ali
   \if\startrr\brone 
      \if\paone\reki \def\npr{\redking}\fi    
      \if\paone\rech \def\npr{\redchariot}\fi   
      \if\paone\reca \def\npr{\redcannon}\fi
      \if\paone\reho \def\npr{\redhorse}\fi
      \if\paone\reel \def\npr{\redelephant}\fi 
      \if\paone\regu \def\npr{\redguard}\fi
      \if\paone\repa \def\npr{\redpawn}\fi\fi   
   \if\startrr\brtwo 
      \if\patwo\reki \def\npr{\redking}\fi    
      \if\patwo\rech \def\npr{\redchariot}\fi   
      \if\patwo\reca \def\npr{\redcannon}\fi
      \if\patwo\reho \def\npr{\redhorse}\fi
      \if\patwo\reel \def\npr{\redelephant}\fi 
      \if\patwo\regu \def\npr{\redguard}\fi
      \if\patwo\repa \def\npr{\redpawn}\fi\fi 
   \if\startrr\brthree 
      \if\pathree\reki \def\npr{\redking}\fi    
      \if\pathree\rech \def\npr{\redchariot}\fi   
      \if\pathree\reca \def\npr{\redcannon}\fi
      \if\pathree\reho \def\npr{\redhorse}\fi
      \if\pathree\reel \def\npr{\redelephant}\fi 
      \if\pathree\regu \def\npr{\redguard}\fi
      \if\pathree\repa \def\npr{\redpawn}\fi\fi   
   \if\startrr\brfour 
      \if\pafour\reki \def\npr{\redking}\fi    
      \if\pafour\rech \def\npr{\redchariot}\fi   
      \if\pafour\reca \def\npr{\redcannon}\fi
      \if\pafour\reho \def\npr{\redhorse}\fi
      \if\pafour\reel \def\npr{\redelephant}\fi 
      \if\pafour\regu \def\npr{\redguard}\fi
      \if\pafour\repa \def\npr{\redpawn}\fi\fi 
   \if\startrr\brfive 
      \if\pafive\reki \def\npr{\redking}\fi    
      \if\pafive\rech \def\npr{\redchariot}\fi   
      \if\pafive\reca \def\npr{\redcannon}\fi
      \if\pafive\reho \def\npr{\redhorse}\fi
      \if\pafive\reel \def\npr{\redelephant}\fi 
      \if\pafive\regu \def\npr{\redguard}\fi
      \if\pafive\repa \def\npr{\redpawn}\fi\fi   
   \if\startrr\brsix 
      \if\pasix\reki \def\npr{\redking}\fi    
      \if\pasix\rech \def\npr{\redchariot}\fi   
      \if\pasix\reca \def\npr{\redcannon}\fi
      \if\pasix\reho \def\npr{\redhorse}\fi
      \if\pasix\reel \def\npr{\redelephant}\fi 
      \if\pasix\regu \def\npr{\redguard}\fi
      \if\pasix\repa \def\npr{\redpawn}\fi\fi 
   \if\startrr\brseven 
      \if\paseven\reki \def\npr{\redking}\fi    
      \if\paseven\rech \def\npr{\redchariot}\fi   
      \if\paseven\reca \def\npr{\redcannon}\fi
      \if\paseven\reho \def\npr{\redhorse}\fi
      \if\paseven\reel \def\npr{\redelephant}\fi 
      \if\paseven\regu \def\npr{\redguard}\fi
      \if\paseven\repa \def\npr{\redpawn}\fi\fi   
   \if\startrr\breight 
      \if\paeight\reki \def\npr{\redking}\fi    
      \if\paeight\rech \def\npr{\redchariot}\fi   
      \if\paeight\reca \def\npr{\redcannon}\fi
      \if\paeight\reho \def\npr{\redhorse}\fi
      \if\paeight\reel \def\npr{\redelephant}\fi 
      \if\paeight\regu \def\npr{\redguard}\fi
      \if\paeight\repa \def\npr{\redpawn}\fi\fi 
   \if\startrr\brnine 
      \if\panine\reki \def\npr{\redking}\fi    
      \if\panine\rech \def\npr{\redchariot}\fi   
      \if\panine\reca \def\npr{\redcannon}\fi
      \if\panine\reho \def\npr{\redhorse}\fi
      \if\panine\reel \def\npr{\redelephant}\fi 
      \if\panine\regu \def\npr{\redguard}\fi
      \if\panine\repa \def\npr{\redpawn}\fi\fi   
   \if\startrr\brnull 
      \if\panull\reki \def\npr{\redking}\fi    
      \if\panull\rech \def\npr{\redchariot}\fi   
      \if\panull\reca \def\npr{\redcannon}\fi
      \if\panull\reho \def\npr{\redhorse}\fi
      \if\panull\reel \def\npr{\redelephant}\fi 
      \if\panull\regu \def\npr{\redguard}\fi
      \if\panull\repa \def\npr{\redpawn}\fi\fi\fi 
\if\startlr\bli
   \if\startrr\brone 
      \if\pbone\reki \def\npr{\redking}\fi    
      \if\pbone\rech \def\npr{\redchariot}\fi   
      \if\pbone\reca \def\npr{\redcannon}\fi
      \if\pbone\reho \def\npr{\redhorse}\fi
      \if\pbone\reel \def\npr{\redelephant}\fi 
      \if\pbone\regu \def\npr{\redguard}\fi
      \if\pbone\repa \def\npr{\redpawn}\fi\fi   
   \if\startrr\brtwo 
      \if\pbtwo\reki \def\npr{\redking}\fi    
      \if\pbtwo\rech \def\npr{\redchariot}\fi   
      \if\pbtwo\reca \def\npr{\redcannon}\fi
      \if\pbtwo\reho \def\npr{\redhorse}\fi
      \if\pbtwo\reel \def\npr{\redelephant}\fi 
      \if\pbtwo\regu \def\npr{\redguard}\fi
      \if\pbtwo\repa \def\npr{\redpawn}\fi\fi 
   \if\startrr\brthree 
      \if\pbthree\reki \def\npr{\redking}\fi    
      \if\pbthree\rech \def\npr{\redchariot}\fi   
      \if\pbthree\reca \def\npr{\redcannon}\fi
      \if\pbthree\reho \def\npr{\redhorse}\fi
      \if\pbthree\reel \def\npr{\redelephant}\fi 
      \if\pbthree\regu \def\npr{\redguard}\fi
      \if\pbthree\repa \def\npr{\redpawn}\fi\fi   
   \if\startrr\brfour 
      \if\pbfour\reki \def\npr{\redking}\fi    
      \if\pbfour\rech \def\npr{\redchariot}\fi   
      \if\pbfour\reca \def\npr{\redcannon}\fi
      \if\pbfour\reho \def\npr{\redhorse}\fi
      \if\pbfour\reel \def\npr{\redelephant}\fi 
      \if\pbfour\regu \def\npr{\redguard}\fi
      \if\pbfour\repa \def\npr{\redpawn}\fi\fi 
   \if\startrr\brfive 
      \if\pbfive\reki \def\npr{\redking}\fi    
      \if\pbfive\rech \def\npr{\redchariot}\fi   
      \if\pbfive\reca \def\npr{\redcannon}\fi
      \if\pbfive\reho \def\npr{\redhorse}\fi
      \if\pbfive\reel \def\npr{\redelephant}\fi 
      \if\pbfive\regu \def\npr{\redguard}\fi
      \if\pbfive\repa \def\npr{\redpawn}\fi\fi   
   \if\startrr\brsix 
      \if\pbsix\reki \def\npr{\redking}\fi    
      \if\pbsix\rech \def\npr{\redchariot}\fi   
      \if\pbsix\reca \def\npr{\redcannon}\fi
      \if\pbsix\reho \def\npr{\redhorse}\fi
      \if\pbsix\reel \def\npr{\redelephant}\fi 
      \if\pbsix\regu \def\npr{\redguard}\fi
      \if\pbsix\repa \def\npr{\redpawn}\fi\fi 
   \if\startrr\brseven 
      \if\pbseven\reki \def\npr{\redking}\fi    
      \if\pbseven\rech \def\npr{\redchariot}\fi   
      \if\pbseven\reca \def\npr{\redcannon}\fi
      \if\pbseven\reho \def\npr{\redhorse}\fi
      \if\pbseven\reel \def\npr{\redelephant}\fi 
      \if\pbseven\regu \def\npr{\redguard}\fi
      \if\pbseven\repa \def\npr{\redpawn}\fi\fi   
   \if\startrr\breight 
      \if\pbeight\reki \def\npr{\redking}\fi    
      \if\pbeight\rech \def\npr{\redchariot}\fi   
      \if\pbeight\reca \def\npr{\redcannon}\fi
      \if\pbeight\reho \def\npr{\redhorse}\fi
      \if\pbeight\reel \def\npr{\redelephant}\fi 
      \if\pbeight\regu \def\npr{\redguard}\fi
      \if\pbeight\repa \def\npr{\redpawn}\fi\fi 
   \if\startrr\brnine 
      \if\pbnine\reki \def\npr{\redking}\fi    
      \if\pbnine\rech \def\npr{\redchariot}\fi   
      \if\pbnine\reca \def\npr{\redcannon}\fi
      \if\pbnine\reho \def\npr{\redhorse}\fi
      \if\pbnine\reel \def\npr{\redelephant}\fi 
      \if\pbnine\regu \def\npr{\redguard}\fi
      \if\pbnine\repa \def\npr{\redpawn}\fi\fi   
   \if\startrr\brnull 
      \if\pbnull\reki \def\npr{\redking}\fi    
      \if\pbnull\rech \def\npr{\redchariot}\fi   
      \if\pbnull\reca \def\npr{\redcannon}\fi
      \if\pbnull\reho \def\npr{\redhorse}\fi
      \if\pbnull\reel \def\npr{\redelephant}\fi 
      \if\pbnull\regu \def\npr{\redguard}\fi
      \if\pbnull\repa \def\npr{\redpawn}\fi\fi\fi 
\if\startlr\cli
   \if\startrr\brone 
      \if\pcone\reki \def\npr{\redking}\fi    
      \if\pcone\rech \def\npr{\redchariot}\fi   
      \if\pcone\reca \def\npr{\redcannon}\fi
      \if\pcone\reho \def\npr{\redhorse}\fi
      \if\pcone\reel \def\npr{\redelephant}\fi 
      \if\pcone\regu \def\npr{\redguard}\fi
      \if\pcone\repa \def\npr{\redpawn}\fi\fi   
   \if\startrr\brtwo 
      \if\pctwo\reki \def\npr{\redking}\fi    
      \if\pctwo\rech \def\npr{\redchariot}\fi   
      \if\pctwo\reca \def\npr{\redcannon}\fi
      \if\pctwo\reho \def\npr{\redhorse}\fi
      \if\pctwo\reel \def\npr{\redelephant}\fi 
      \if\pctwo\regu \def\npr{\redguard}\fi
      \if\pctwo\repa \def\npr{\redpawn}\fi\fi 
   \if\startrr\brthree 
      \if\pcthree\reki \def\npr{\redking}\fi    
      \if\pcthree\rech \def\npr{\redchariot}\fi   
      \if\pcthree\reca \def\npr{\redcannon}\fi
      \if\pcthree\reho \def\npr{\redhorse}\fi
      \if\pcthree\reel \def\npr{\redelephant}\fi 
      \if\pcthree\regu \def\npr{\redguard}\fi
      \if\pcthree\repa \def\npr{\redpawn}\fi\fi   
   \if\startrr\brfour 
      \if\pcfour\reki \def\npr{\redking}\fi    
      \if\pcfour\rech \def\npr{\redchariot}\fi   
      \if\pcfour\reca \def\npr{\redcannon}\fi
      \if\pcfour\reho \def\npr{\redhorse}\fi
      \if\pcfour\reel \def\npr{\redelephant}\fi 
      \if\pcfour\regu \def\npr{\redguard}\fi
      \if\pcfour\repa \def\npr{\redpawn}\fi\fi 
   \if\startrr\brfive 
      \if\pcfive\reki \def\npr{\redking}\fi    
      \if\pcfive\rech \def\npr{\redchariot}\fi   
      \if\pcfive\reca \def\npr{\redcannon}\fi
      \if\pcfive\reho \def\npr{\redhorse}\fi
      \if\pcfive\reel \def\npr{\redelephant}\fi 
      \if\pcfive\regu \def\npr{\redguard}\fi
      \if\pcfive\repa \def\npr{\redpawn}\fi\fi   
   \if\startrr\brsix 
      \if\pcsix\reki \def\npr{\redking}\fi    
      \if\pcsix\rech \def\npr{\redchariot}\fi   
      \if\pcsix\reca \def\npr{\redcannon}\fi
      \if\pcsix\reho \def\npr{\redhorse}\fi
      \if\pcsix\reel \def\npr{\redelephant}\fi 
      \if\pcsix\regu \def\npr{\redguard}\fi
      \if\pcsix\repa \def\npr{\redpawn}\fi\fi 
   \if\startrr\brseven 
      \if\pcseven\reki \def\npr{\redking}\fi    
      \if\pcseven\rech \def\npr{\redchariot}\fi   
      \if\pcseven\reca \def\npr{\redcannon}\fi
      \if\pcseven\reho \def\npr{\redhorse}\fi
      \if\pcseven\reel \def\npr{\redelephant}\fi 
      \if\pcseven\regu \def\npr{\redguard}\fi
      \if\pcseven\repa \def\npr{\redpawn}\fi\fi   
   \if\startrr\breight 
      \if\pceight\reki \def\npr{\redking}\fi    
      \if\pceight\rech \def\npr{\redchariot}\fi   
      \if\pceight\reca \def\npr{\redcannon}\fi
      \if\pceight\reho \def\npr{\redhorse}\fi
      \if\pceight\reel \def\npr{\redelephant}\fi 
      \if\pceight\regu \def\npr{\redguard}\fi
      \if\pceight\repa \def\npr{\redpawn}\fi\fi 
   \if\startrr\brnine 
      \if\pcnine\reki \def\npr{\redking}\fi    
      \if\pcnine\rech \def\npr{\redchariot}\fi   
      \if\pcnine\reca \def\npr{\redcannon}\fi
      \if\pcnine\reho \def\npr{\redhorse}\fi
      \if\pcnine\reel \def\npr{\redelephant}\fi 
      \if\pcnine\regu \def\npr{\redguard}\fi
      \if\pcnine\repa \def\npr{\redpawn}\fi\fi   
   \if\startrr\brnull 
      \if\pcnull\reki \def\npr{\redking}\fi    
      \if\pcnull\rech \def\npr{\redchariot}\fi   
      \if\pcnull\reca \def\npr{\redcannon}\fi
      \if\pcnull\reho \def\npr{\redhorse}\fi
      \if\pcnull\reel \def\npr{\redelephant}\fi 
      \if\pcnull\regu \def\npr{\redguard}\fi
      \if\pcnull\repa \def\npr{\redpawn}\fi\fi\fi 
\if\startlr\dli
   \if\startrr\brone 
      \if\pdone\reki \def\npr{\redking}\fi    
      \if\pdone\rech \def\npr{\redchariot}\fi   
      \if\pdone\reca \def\npr{\redcannon}\fi
      \if\pdone\reho \def\npr{\redhorse}\fi
      \if\pdone\reel \def\npr{\redelephant}\fi 
      \if\pdone\regu \def\npr{\redguard}\fi
      \if\pdone\repa \def\npr{\redpawn}\fi\fi   
   \if\startrr\brtwo 
      \if\pdtwo\reki \def\npr{\redking}\fi    
      \if\pdtwo\rech \def\npr{\redchariot}\fi   
      \if\pdtwo\reca \def\npr{\redcannon}\fi
      \if\pdtwo\reho \def\npr{\redhorse}\fi
      \if\pdtwo\reel \def\npr{\redelephant}\fi 
      \if\pdtwo\regu \def\npr{\redguard}\fi
      \if\pdtwo\repa \def\npr{\redpawn}\fi\fi 
   \if\startrr\brthree 
      \if\pdthree\reki \def\npr{\redking}\fi    
      \if\pdthree\rech \def\npr{\redchariot}\fi   
      \if\pdthree\reca \def\npr{\redcannon}\fi
      \if\pdthree\reho \def\npr{\redhorse}\fi
      \if\pdthree\reel \def\npr{\redelephant}\fi 
      \if\pdthree\regu \def\npr{\redguard}\fi
      \if\pdthree\repa \def\npr{\redpawn}\fi\fi   
   \if\startrr\brfour 
      \if\pdfour\reki \def\npr{\redking}\fi    
      \if\pdfour\rech \def\npr{\redchariot}\fi   
      \if\pdfour\reca \def\npr{\redcannon}\fi
      \if\pdfour\reho \def\npr{\redhorse}\fi
      \if\pdfour\reel \def\npr{\redelephant}\fi 
      \if\pdfour\regu \def\npr{\redguard}\fi
      \if\pdfour\repa \def\npr{\redpawn}\fi\fi 
   \if\startrr\brfive 
      \if\pdfive\reki \def\npr{\redking}\fi    
      \if\pdfive\rech \def\npr{\redchariot}\fi   
      \if\pdfive\reca \def\npr{\redcannon}\fi
      \if\pdfive\reho \def\npr{\redhorse}\fi
      \if\pdfive\reel \def\npr{\redelephant}\fi 
      \if\pdfive\regu \def\npr{\redguard}\fi
      \if\pdfive\repa \def\npr{\redpawn}\fi\fi   
   \if\startrr\brsix 
      \if\pdsix\reki \def\npr{\redking}\fi    
      \if\pdsix\rech \def\npr{\redchariot}\fi   
      \if\pdsix\reca \def\npr{\redcannon}\fi
      \if\pdsix\reho \def\npr{\redhorse}\fi
      \if\pdsix\reel \def\npr{\redelephant}\fi 
      \if\pdsix\regu \def\npr{\redguard}\fi
      \if\pdsix\repa \def\npr{\redpawn}\fi\fi 
   \if\startrr\brseven 
      \if\pdseven\reki \def\npr{\redking}\fi    
      \if\pdseven\rech \def\npr{\redchariot}\fi   
      \if\pdseven\reca \def\npr{\redcannon}\fi
      \if\pdseven\reho \def\npr{\redhorse}\fi
      \if\pdseven\reel \def\npr{\redelephant}\fi 
      \if\pdseven\regu \def\npr{\redguard}\fi
      \if\pdseven\repa \def\npr{\redpawn}\fi\fi   
   \if\startrr\breight 
      \if\pdeight\reki \def\npr{\redking}\fi    
      \if\pdeight\rech \def\npr{\redchariot}\fi   
      \if\pdeight\reca \def\npr{\redcannon}\fi
      \if\pdeight\reho \def\npr{\redhorse}\fi
      \if\pdeight\reel \def\npr{\redelephant}\fi 
      \if\pdeight\regu \def\npr{\redguard}\fi
      \if\pdeight\repa \def\npr{\redpawn}\fi\fi 
   \if\startrr\brnine 
      \if\pdnine\reki \def\npr{\redking}\fi    
      \if\pdnine\rech \def\npr{\redchariot}\fi   
      \if\pdnine\reca \def\npr{\redcannon}\fi
      \if\pdnine\reho \def\npr{\redhorse}\fi
      \if\pdnine\reel \def\npr{\redelephant}\fi 
      \if\pdnine\regu \def\npr{\redguard}\fi
      \if\pdnine\repa \def\npr{\redpawn}\fi\fi   
   \if\startrr\brnull 
      \if\pdnull\reki \def\npr{\redking}\fi    
      \if\pdnull\rech \def\npr{\redchariot}\fi   
      \if\pdnull\reca \def\npr{\redcannon}\fi
      \if\pdnull\reho \def\npr{\redhorse}\fi
      \if\pdnull\reel \def\npr{\redelephant}\fi 
      \if\pdnull\regu \def\npr{\redguard}\fi
      \if\pdnull\repa \def\npr{\redpawn}\fi\fi\fi 
\if\startlr\eli
   \if\startrr\brone 
      \if\peone\reki \def\npr{\redking}\fi    
      \if\peone\rech \def\npr{\redchariot}\fi   
      \if\peone\reca \def\npr{\redcannon}\fi
      \if\peone\reho \def\npr{\redhorse}\fi
      \if\peone\reel \def\npr{\redelephant}\fi 
      \if\peone\regu \def\npr{\redguard}\fi
      \if\peone\repa \def\npr{\redpawn}\fi\fi   
   \if\startrr\brtwo 
      \if\petwo\reki \def\npr{\redking}\fi    
      \if\petwo\rech \def\npr{\redchariot}\fi   
      \if\petwo\reca \def\npr{\redcannon}\fi
      \if\petwo\reho \def\npr{\redhorse}\fi
      \if\petwo\reel \def\npr{\redelephant}\fi 
      \if\petwo\regu \def\npr{\redguard}\fi
      \if\petwo\repa \def\npr{\redpawn}\fi\fi 
   \if\startrr\brthree 
      \if\pethree\reki \def\npr{\redking}\fi    
      \if\pethree\rech \def\npr{\redchariot}\fi   
      \if\pethree\reca \def\npr{\redcannon}\fi
      \if\pethree\reho \def\npr{\redhorse}\fi
      \if\pethree\reel \def\npr{\redelephant}\fi 
      \if\pethree\regu \def\npr{\redguard}\fi
      \if\pethree\repa \def\npr{\redpawn}\fi\fi   
   \if\startrr\brfour 
      \if\pefour\reki \def\npr{\redking}\fi    
      \if\pefour\rech \def\npr{\redchariot}\fi   
      \if\pefour\reca \def\npr{\redcannon}\fi
      \if\pefour\reho \def\npr{\redhorse}\fi
      \if\pefour\reel \def\npr{\redelephant}\fi 
      \if\pefour\regu \def\npr{\redguard}\fi
      \if\pefour\repa \def\npr{\redpawn}\fi\fi 
   \if\startrr\brfive 
      \if\pefive\reki \def\npr{\redking}\fi    
      \if\pefive\rech \def\npr{\redchariot}\fi   
      \if\pefive\reca \def\npr{\redcannon}\fi
      \if\pefive\reho \def\npr{\redhorse}\fi
      \if\pefive\reel \def\npr{\redelephant}\fi 
      \if\pefive\regu \def\npr{\redguard}\fi
      \if\pefive\repa \def\npr{\redpawn}\fi\fi   
   \if\startrr\brsix 
      \if\pesix\reki \def\npr{\redking}\fi    
      \if\pesix\rech \def\npr{\redchariot}\fi   
      \if\pesix\reca \def\npr{\redcannon}\fi
      \if\pesix\reho \def\npr{\redhorse}\fi
      \if\pesix\reel \def\npr{\redelephant}\fi 
      \if\pesix\regu \def\npr{\redguard}\fi
      \if\pesix\repa \def\npr{\redpawn}\fi\fi 
   \if\startrr\brseven 
      \if\peseven\reki \def\npr{\redking}\fi    
      \if\peseven\rech \def\npr{\redchariot}\fi   
      \if\peseven\reca \def\npr{\redcannon}\fi
      \if\peseven\reho \def\npr{\redhorse}\fi
      \if\peseven\reel \def\npr{\redelephant}\fi 
      \if\peseven\regu \def\npr{\redguard}\fi
      \if\peseven\repa \def\npr{\redpawn}\fi\fi   
   \if\startrr\breight 
      \if\peeight\reki \def\npr{\redking}\fi    
      \if\peeight\rech \def\npr{\redchariot}\fi   
      \if\peeight\reca \def\npr{\redcannon}\fi
      \if\peeight\reho \def\npr{\redhorse}\fi
      \if\peeight\reel \def\npr{\redelephant}\fi 
      \if\peeight\regu \def\npr{\redguard}\fi
      \if\peeight\repa \def\npr{\redpawn}\fi\fi 
   \if\startrr\brnine 
      \if\penine\reki \def\npr{\redking}\fi    
      \if\penine\rech \def\npr{\redchariot}\fi   
      \if\penine\reca \def\npr{\redcannon}\fi
      \if\penine\reho \def\npr{\redhorse}\fi
      \if\penine\reel \def\npr{\redelephant}\fi 
      \if\penine\regu \def\npr{\redguard}\fi
      \if\penine\repa \def\npr{\redpawn}\fi\fi   
   \if\startrr\brnull 
      \if\penull\reki \def\npr{\redking}\fi    
      \if\penull\rech \def\npr{\redchariot}\fi   
      \if\penull\reca \def\npr{\redcannon}\fi
      \if\penull\reho \def\npr{\redhorse}\fi
      \if\penull\reel \def\npr{\redelephant}\fi 
      \if\penull\regu \def\npr{\redguard}\fi
      \if\penull\repa \def\npr{\redpawn}\fi\fi\fi 
\if\startlr\fli
   \if\startrr\brone 
      \if\pfone\reki \def\npr{\redking}\fi    
      \if\pfone\rech \def\npr{\redchariot}\fi   
      \if\pfone\reca \def\npr{\redcannon}\fi
      \if\pfone\reho \def\npr{\redhorse}\fi
      \if\pfone\reel \def\npr{\redelephant}\fi 
      \if\pfone\regu \def\npr{\redguard}\fi
      \if\pfone\repa \def\npr{\redpawn}\fi\fi   
   \if\startrr\brtwo 
      \if\pftwo\reki \def\npr{\redking}\fi    
      \if\pftwo\rech \def\npr{\redchariot}\fi   
      \if\pftwo\reca \def\npr{\redcannon}\fi
      \if\pftwo\reho \def\npr{\redhorse}\fi
      \if\pftwo\reel \def\npr{\redelephant}\fi 
      \if\pftwo\regu \def\npr{\redguard}\fi
      \if\pftwo\repa \def\npr{\redpawn}\fi\fi 
   \if\startrr\brthree 
      \if\pfthree\reki \def\npr{\redking}\fi    
      \if\pfthree\rech \def\npr{\redchariot}\fi   
      \if\pfthree\reca \def\npr{\redcannon}\fi
      \if\pfthree\reho \def\npr{\redhorse}\fi
      \if\pfthree\reel \def\npr{\redelephant}\fi 
      \if\pfthree\regu \def\npr{\redguard}\fi
      \if\pfthree\repa \def\npr{\redpawn}\fi\fi   
   \if\startrr\brfour 
      \if\pffour\reki \def\npr{\redking}\fi    
      \if\pffour\rech \def\npr{\redchariot}\fi   
      \if\pffour\reca \def\npr{\redcannon}\fi
      \if\pffour\reho \def\npr{\redhorse}\fi
      \if\pffour\reel \def\npr{\redelephant}\fi 
      \if\pffour\regu \def\npr{\redguard}\fi
      \if\pffour\repa \def\npr{\redpawn}\fi\fi 
   \if\startrr\brfive 
      \if\pffive\reki \def\npr{\redking}\fi    
      \if\pffive\rech \def\npr{\redchariot}\fi   
      \if\pffive\reca \def\npr{\redcannon}\fi
      \if\pffive\reho \def\npr{\redhorse}\fi
      \if\pffive\reel \def\npr{\redelephant}\fi 
      \if\pffive\regu \def\npr{\redguard}\fi
      \if\pffive\repa \def\npr{\redpawn}\fi\fi   
   \if\startrr\brsix 
      \if\pfsix\reki \def\npr{\redking}\fi    
      \if\pfsix\rech \def\npr{\redchariot}\fi   
      \if\pfsix\reca \def\npr{\redcannon}\fi
      \if\pfsix\reho \def\npr{\redhorse}\fi
      \if\pfsix\reel \def\npr{\redelephant}\fi 
      \if\pfsix\regu \def\npr{\redguard}\fi
      \if\pfsix\repa \def\npr{\redpawn}\fi\fi 
   \if\startrr\brseven 
      \if\pfseven\reki \def\npr{\redking}\fi    
      \if\pfseven\rech \def\npr{\redchariot}\fi   
      \if\pfseven\reca \def\npr{\redcannon}\fi
      \if\pfseven\reho \def\npr{\redhorse}\fi
      \if\pfseven\reel \def\npr{\redelephant}\fi 
      \if\pfseven\regu \def\npr{\redguard}\fi
      \if\pfseven\repa \def\npr{\redpawn}\fi\fi   
   \if\startrr\breight 
      \if\pfeight\reki \def\npr{\redking}\fi    
      \if\pfeight\rech \def\npr{\redchariot}\fi   
      \if\pfeight\reca \def\npr{\redcannon}\fi
      \if\pfeight\reho \def\npr{\redhorse}\fi
      \if\pfeight\reel \def\npr{\redelephant}\fi 
      \if\pfeight\regu \def\npr{\redguard}\fi
      \if\pfeight\repa \def\npr{\redpawn}\fi\fi 
   \if\startrr\brnine 
      \if\pfnine\reki \def\npr{\redking}\fi    
      \if\pfnine\rech \def\npr{\redchariot}\fi   
      \if\pfnine\reca \def\npr{\redcannon}\fi
      \if\pfnine\reho \def\npr{\redhorse}\fi
      \if\pfnine\reel \def\npr{\redelephant}\fi 
      \if\pfnine\regu \def\npr{\redguard}\fi
      \if\pfnine\repa \def\npr{\redpawn}\fi\fi   
   \if\startrr\brnull 
      \if\pfnull\reki \def\npr{\redking}\fi    
      \if\pfnull\rech \def\npr{\redchariot}\fi   
      \if\pfnull\reca \def\npr{\redcannon}\fi
      \if\pfnull\reho \def\npr{\redhorse}\fi
      \if\pfnull\reel \def\npr{\redelephant}\fi 
      \if\pfnull\regu \def\npr{\redguard}\fi
      \if\pfnull\repa \def\npr{\redpawn}\fi\fi\fi 
\if\startlr\gli
   \if\startrr\brone 
      \if\pgone\reki \def\npr{\redking}\fi    
      \if\pgone\rech \def\npr{\redchariot}\fi   
      \if\pgone\reca \def\npr{\redcannon}\fi
      \if\pgone\reho \def\npr{\redhorse}\fi
      \if\pgone\reel \def\npr{\redelephant}\fi 
      \if\pgone\regu \def\npr{\redguard}\fi
      \if\pgone\repa \def\npr{\redpawn}\fi\fi   
   \if\startrr\brtwo 
      \if\pgtwo\reki \def\npr{\redking}\fi    
      \if\pgtwo\rech \def\npr{\redchariot}\fi   
      \if\pgtwo\reca \def\npr{\redcannon}\fi
      \if\pgtwo\reho \def\npr{\redhorse}\fi
      \if\pgtwo\reel \def\npr{\redelephant}\fi 
      \if\pgtwo\regu \def\npr{\redguard}\fi
      \if\pgtwo\repa \def\npr{\redpawn}\fi\fi 
   \if\startrr\brthree 
      \if\pgthree\reki \def\npr{\redking}\fi    
      \if\pgthree\rech \def\npr{\redchariot}\fi   
      \if\pgthree\reca \def\npr{\redcannon}\fi
      \if\pgthree\reho \def\npr{\redhorse}\fi
      \if\pgthree\reel \def\npr{\redelephant}\fi 
      \if\pgthree\regu \def\npr{\redguard}\fi
      \if\pgthree\repa \def\npr{\redpawn}\fi\fi   
   \if\startrr\brfour 
      \if\pgfour\reki \def\npr{\redking}\fi    
      \if\pgfour\rech \def\npr{\redchariot}\fi   
      \if\pgfour\reca \def\npr{\redcannon}\fi
      \if\pgfour\reho \def\npr{\redhorse}\fi
      \if\pgfour\reel \def\npr{\redelephant}\fi 
      \if\pgfour\regu \def\npr{\redguard}\fi
      \if\pgfour\repa \def\npr{\redpawn}\fi\fi 
   \if\startrr\brfive 
      \if\pgfive\reki \def\npr{\redking}\fi    
      \if\pgfive\rech \def\npr{\redchariot}\fi   
      \if\pgfive\reca \def\npr{\redcannon}\fi
      \if\pgfive\reho \def\npr{\redhorse}\fi
      \if\pgfive\reel \def\npr{\redelephant}\fi 
      \if\pgfive\regu \def\npr{\redguard}\fi
      \if\pgfive\repa \def\npr{\redpawn}\fi\fi   
   \if\startrr\brsix 
      \if\pgsix\reki \def\npr{\redking}\fi    
      \if\pgsix\rech \def\npr{\redchariot}\fi   
      \if\pgsix\reca \def\npr{\redcannon}\fi
      \if\pgsix\reho \def\npr{\redhorse}\fi
      \if\pgsix\reel \def\npr{\redelephant}\fi 
      \if\pgsix\regu \def\npr{\redguard}\fi
      \if\pgsix\repa \def\npr{\redpawn}\fi\fi 
   \if\startrr\brseven 
      \if\pgseven\reki \def\npr{\redking}\fi    
      \if\pgseven\rech \def\npr{\redchariot}\fi   
      \if\pgseven\reca \def\npr{\redcannon}\fi
      \if\pgseven\reho \def\npr{\redhorse}\fi
      \if\pgseven\reel \def\npr{\redelephant}\fi 
      \if\pgseven\regu \def\npr{\redguard}\fi
      \if\pgseven\repa \def\npr{\redpawn}\fi\fi   
   \if\startrr\breight 
      \if\pgeight\reki \def\npr{\redking}\fi    
      \if\pgeight\rech \def\npr{\redchariot}\fi   
      \if\pgeight\reca \def\npr{\redcannon}\fi
      \if\pgeight\reho \def\npr{\redhorse}\fi
      \if\pgeight\reel \def\npr{\redelephant}\fi 
      \if\pgeight\regu \def\npr{\redguard}\fi
      \if\pgeight\repa \def\npr{\redpawn}\fi\fi 
   \if\startrr\brnine 
      \if\pgnine\reki \def\npr{\redking}\fi    
      \if\pgnine\rech \def\npr{\redchariot}\fi   
      \if\pgnine\reca \def\npr{\redcannon}\fi
      \if\pgnine\reho \def\npr{\redhorse}\fi
      \if\pgnine\reel \def\npr{\redelephant}\fi 
      \if\pgnine\regu \def\npr{\redguard}\fi
      \if\pgnine\repa \def\npr{\redpawn}\fi\fi   
   \if\startrr\brnull 
      \if\pgnull\reki \def\npr{\redking}\fi    
      \if\pgnull\rech \def\npr{\redchariot}\fi   
      \if\pgnull\reca \def\npr{\redcannon}\fi
      \if\pgnull\reho \def\npr{\redhorse}\fi
      \if\pgnull\reel \def\npr{\redelephant}\fi 
      \if\pgnull\regu \def\npr{\redguard}\fi
      \if\pgnull\repa \def\npr{\redpawn}\fi\fi\fi 
\if\startlr\hli
   \if\startrr\brone 
      \if\phone\reki \def\npr{\redking}\fi    
      \if\phone\rech \def\npr{\redchariot}\fi   
      \if\phone\reca \def\npr{\redcannon}\fi
      \if\phone\reho \def\npr{\redhorse}\fi
      \if\phone\reel \def\npr{\redelephant}\fi 
      \if\phone\regu \def\npr{\redguard}\fi
      \if\phone\repa \def\npr{\redpawn}\fi\fi   
   \if\startrr\brtwo 
      \if\phtwo\reki \def\npr{\redking}\fi    
      \if\phtwo\rech \def\npr{\redchariot}\fi   
      \if\phtwo\reca \def\npr{\redcannon}\fi
      \if\phtwo\reho \def\npr{\redhorse}\fi
      \if\phtwo\reel \def\npr{\redelephant}\fi 
      \if\phtwo\regu \def\npr{\redguard}\fi
      \if\phtwo\repa \def\npr{\redpawn}\fi\fi 
   \if\startrr\brthree 
      \if\phthree\reki \def\npr{\redking}\fi    
      \if\phthree\rech \def\npr{\redchariot}\fi   
      \if\phthree\reca \def\npr{\redcannon}\fi
      \if\phthree\reho \def\npr{\redhorse}\fi
      \if\phthree\reel \def\npr{\redelephant}\fi 
      \if\phthree\regu \def\npr{\redguard}\fi
      \if\phthree\repa \def\npr{\redpawn}\fi\fi   
   \if\startrr\brfour 
      \if\phfour\reki \def\npr{\redking}\fi    
      \if\phfour\rech \def\npr{\redchariot}\fi   
      \if\phfour\reca \def\npr{\redcannon}\fi
      \if\phfour\reho \def\npr{\redhorse}\fi
      \if\phfour\reel \def\npr{\redelephant}\fi 
      \if\phfour\regu \def\npr{\redguard}\fi
      \if\phfour\repa \def\npr{\redpawn}\fi\fi 
   \if\startrr\brfive 
      \if\phfive\reki \def\npr{\redking}\fi    
      \if\phfive\rech \def\npr{\redchariot}\fi   
      \if\phfive\reca \def\npr{\redcannon}\fi
      \if\phfive\reho \def\npr{\redhorse}\fi
      \if\phfive\reel \def\npr{\redelephant}\fi 
      \if\phfive\regu \def\npr{\redguard}\fi
      \if\phfive\repa \def\npr{\redpawn}\fi\fi   
   \if\startrr\brsix 
      \if\phsix\reki \def\npr{\redking}\fi    
      \if\phsix\rech \def\npr{\redchariot}\fi   
      \if\phsix\reca \def\npr{\redcannon}\fi
      \if\phsix\reho \def\npr{\redhorse}\fi
      \if\phsix\reel \def\npr{\redelephant}\fi 
      \if\phsix\regu \def\npr{\redguard}\fi
      \if\phsix\repa \def\npr{\redpawn}\fi\fi 
   \if\startrr\brseven 
      \if\phseven\reki \def\npr{\redking}\fi    
      \if\phseven\rech \def\npr{\redchariot}\fi   
      \if\phseven\reca \def\npr{\redcannon}\fi
      \if\phseven\reho \def\npr{\redhorse}\fi
      \if\phseven\reel \def\npr{\redelephant}\fi 
      \if\phseven\regu \def\npr{\redguard}\fi
      \if\phseven\repa \def\npr{\redpawn}\fi\fi   
   \if\startrr\breight 
      \if\pheight\reki \def\npr{\redking}\fi    
      \if\pheight\rech \def\npr{\redchariot}\fi   
      \if\pheight\reca \def\npr{\redcannon}\fi
      \if\pheight\reho \def\npr{\redhorse}\fi
      \if\pheight\reel \def\npr{\redelephant}\fi 
      \if\pheight\regu \def\npr{\redguard}\fi
      \if\pheight\repa \def\npr{\redpawn}\fi\fi 
   \if\startrr\brnine 
      \if\phnine\reki \def\npr{\redking}\fi    
      \if\phnine\rech \def\npr{\redchariot}\fi   
      \if\phnine\reca \def\npr{\redcannon}\fi
      \if\phnine\reho \def\npr{\redhorse}\fi
      \if\phnine\reel \def\npr{\redelephant}\fi 
      \if\phnine\regu \def\npr{\redguard}\fi
      \if\phnine\repa \def\npr{\redpawn}\fi\fi   
   \if\startrr\brnull 
      \if\phnull\reki \def\npr{\redking}\fi    
      \if\phnull\rech \def\npr{\redchariot}\fi   
      \if\phnull\reca \def\npr{\redcannon}\fi
      \if\phnull\reho \def\npr{\redhorse}\fi
      \if\phnull\reel \def\npr{\redelephant}\fi 
      \if\phnull\regu \def\npr{\redguard}\fi
      \if\phnull\repa \def\npr{\redpawn}\fi\fi\fi 
\if\startlr\ili
   \if\startrr\brone 
      \if\pione\reki \def\npr{\redking}\fi    
      \if\pione\rech \def\npr{\redchariot}\fi   
      \if\pione\reca \def\npr{\redcannon}\fi
      \if\pione\reho \def\npr{\redhorse}\fi
      \if\pione\reel \def\npr{\redelephant}\fi 
      \if\pione\regu \def\npr{\redguard}\fi
      \if\pione\repa \def\npr{\redpawn}\fi\fi   
   \if\startrr\brtwo 
      \if\pitwo\reki \def\npr{\redking}\fi    
      \if\pitwo\rech \def\npr{\redchariot}\fi   
      \if\pitwo\reca \def\npr{\redcannon}\fi
      \if\pitwo\reho \def\npr{\redhorse}\fi
      \if\pitwo\reel \def\npr{\redelephant}\fi 
      \if\pitwo\regu \def\npr{\redguard}\fi
      \if\pitwo\repa \def\npr{\redpawn}\fi\fi 
   \if\startrr\brthree 
      \if\pithree\reki \def\npr{\redking}\fi    
      \if\pithree\rech \def\npr{\redchariot}\fi   
      \if\pithree\reca \def\npr{\redcannon}\fi
      \if\pithree\reho \def\npr{\redhorse}\fi
      \if\pithree\reel \def\npr{\redelephant}\fi 
      \if\pithree\regu \def\npr{\redguard}\fi
      \if\pithree\repa \def\npr{\redpawn}\fi\fi   
   \if\startrr\brfour 
      \if\pifour\reki \def\npr{\redking}\fi    
      \if\pifour\rech \def\npr{\redchariot}\fi   
      \if\pifour\reca \def\npr{\redcannon}\fi
      \if\pifour\reho \def\npr{\redhorse}\fi
      \if\pifour\reel \def\npr{\redelephant}\fi 
      \if\pifour\regu \def\npr{\redguard}\fi
      \if\pifour\repa \def\npr{\redpawn}\fi\fi 
   \if\startrr\brfive 
      \if\pifive\reki \def\npr{\redking}\fi    
      \if\pifive\rech \def\npr{\redchariot}\fi   
      \if\pifive\reca \def\npr{\redcannon}\fi
      \if\pifive\reho \def\npr{\redhorse}\fi
      \if\pifive\reel \def\npr{\redelephant}\fi 
      \if\pifive\regu \def\npr{\redguard}\fi
      \if\pifive\repa \def\npr{\redpawn}\fi\fi   
   \if\startrr\brsix 
      \if\pisix\reki \def\npr{\redking}\fi    
      \if\pisix\rech \def\npr{\redchariot}\fi   
      \if\pisix\reca \def\npr{\redcannon}\fi
      \if\pisix\reho \def\npr{\redhorse}\fi
      \if\pisix\reel \def\npr{\redelephant}\fi 
      \if\pisix\regu \def\npr{\redguard}\fi
      \if\pisix\repa \def\npr{\redpawn}\fi\fi 
   \if\startrr\brseven 
      \if\piseven\reki \def\npr{\redking}\fi    
      \if\piseven\rech \def\npr{\redchariot}\fi   
      \if\piseven\reca \def\npr{\redcannon}\fi
      \if\piseven\reho \def\npr{\redhorse}\fi
      \if\piseven\reel \def\npr{\redelephant}\fi 
      \if\piseven\regu \def\npr{\redguard}\fi
      \if\piseven\repa \def\npr{\redpawn}\fi\fi   
   \if\startrr\breight 
      \if\pieight\reki \def\npr{\redking}\fi    
      \if\pieight\rech \def\npr{\redchariot}\fi   
      \if\pieight\reca \def\npr{\redcannon}\fi
      \if\pieight\reho \def\npr{\redhorse}\fi
      \if\pieight\reel \def\npr{\redelephant}\fi 
      \if\pieight\regu \def\npr{\redguard}\fi
      \if\pieight\repa \def\npr{\redpawn}\fi\fi 
   \if\startrr\brnine 
      \if\pinine\reki \def\npr{\redking}\fi    
      \if\pinine\rech \def\npr{\redchariot}\fi   
      \if\pinine\reca \def\npr{\redcannon}\fi
      \if\pinine\reho \def\npr{\redhorse}\fi
      \if\pinine\reel \def\npr{\redelephant}\fi 
      \if\pinine\regu \def\npr{\redguard}\fi
      \if\pinine\repa \def\npr{\redpawn}\fi\fi   
   \if\startrr\brnull 
      \if\pinull\reki \def\npr{\redking}\fi    
      \if\pinull\rech \def\npr{\redchariot}\fi   
      \if\pinull\reca \def\npr{\redcannon}\fi
      \if\pinull\reho \def\npr{\redhorse}\fi
      \if\pinull\reel \def\npr{\redelephant}\fi 
      \if\pinull\regu \def\npr{\redguard}\fi
      \if\pinull\repa \def\npr{\redpawn}\fi\fi\fi 

\if\startlb\ali
   \if\startrb\brone 
      \if\paone\blaki \def\npb{\redking}\fi    
      \if\paone\blach \def\npb{\redchariot}\fi   
      \if\paone\blaca \def\npb{\redcannon}\fi
      \if\paone\blaho \def\npb{\redhorse}\fi
      \if\paone\blael \def\npb{\redelephant}\fi 
      \if\paone\blagu \def\npb{\redguard}\fi
      \if\paone\blapa \def\npb{\redpawn}\fi\fi   
   \if\startrb\brtwo 
      \if\patwo\blaki \def\npb{\redking}\fi    
      \if\patwo\blach \def\npb{\redchariot}\fi   
      \if\patwo\blaca \def\npb{\redcannon}\fi
      \if\patwo\blaho \def\npb{\redhorse}\fi
      \if\patwo\blael \def\npb{\redelephant}\fi 
      \if\patwo\blagu \def\npb{\redguard}\fi
      \if\patwo\blapa \def\npb{\redpawn}\fi\fi 
   \if\startrb\brthree 
      \if\pathree\blaki \def\npb{\redking}\fi    
      \if\pathree\blach \def\npb{\redchariot}\fi   
      \if\pathree\blaca \def\npb{\redcannon}\fi
      \if\pathree\blaho \def\npb{\redhorse}\fi
      \if\pathree\blael \def\npb{\redelephant}\fi 
      \if\pathree\blagu \def\npb{\redguard}\fi
      \if\pathree\blapa \def\npb{\redpawn}\fi\fi   
   \if\startrb\brfour 
      \if\pafour\blaki \def\npb{\redking}\fi    
      \if\pafour\blach \def\npb{\redchariot}\fi   
      \if\pafour\blaca \def\npb{\redcannon}\fi
      \if\pafour\blaho \def\npb{\redhorse}\fi
      \if\pafour\blael \def\npb{\redelephant}\fi 
      \if\pafour\blagu \def\npb{\redguard}\fi
      \if\pafour\blapa \def\npb{\redpawn}\fi\fi 
   \if\startrb\brfive 
      \if\pafive\blaki \def\npb{\redking}\fi    
      \if\pafive\blach \def\npb{\redchariot}\fi   
      \if\pafive\blaca \def\npb{\redcannon}\fi
      \if\pafive\blaho \def\npb{\redhorse}\fi
      \if\pafive\blael \def\npb{\redelephant}\fi 
      \if\pafive\blagu \def\npb{\redguard}\fi
      \if\pafive\blapa \def\npb{\redpawn}\fi\fi   
   \if\startrb\brsix 
      \if\pasix\blaki \def\npb{\redking}\fi    
      \if\pasix\blach \def\npb{\redchariot}\fi   
      \if\pasix\blaca \def\npb{\redcannon}\fi
      \if\pasix\blaho \def\npb{\redhorse}\fi
      \if\pasix\blael \def\npb{\redelephant}\fi 
      \if\pasix\blagu \def\npb{\redguard}\fi
      \if\pasix\blapa \def\npb{\redpawn}\fi\fi 
   \if\startrb\brseven 
      \if\paseven\blaki \def\npb{\redking}\fi    
      \if\paseven\blach \def\npb{\redchariot}\fi   
      \if\paseven\blaca \def\npb{\redcannon}\fi
      \if\paseven\blaho \def\npb{\redhorse}\fi
      \if\paseven\blael \def\npb{\redelephant}\fi 
      \if\paseven\blagu \def\npb{\redguard}\fi
      \if\paseven\blapa \def\npb{\redpawn}\fi\fi   
   \if\startrb\breight 
      \if\paeight\blaki \def\npb{\redking}\fi    
      \if\paeight\blach \def\npb{\redchariot}\fi   
      \if\paeight\blaca \def\npb{\redcannon}\fi
      \if\paeight\blaho \def\npb{\redhorse}\fi
      \if\paeight\blael \def\npb{\redelephant}\fi 
      \if\paeight\blagu \def\npb{\redguard}\fi
      \if\paeight\blapa \def\npb{\redpawn}\fi\fi 
   \if\startrb\brnine 
      \if\panine\blaki \def\npb{\redking}\fi    
      \if\panine\blach \def\npb{\redchariot}\fi   
      \if\panine\blaca \def\npb{\redcannon}\fi
      \if\panine\blaho \def\npb{\redhorse}\fi
      \if\panine\blael \def\npb{\redelephant}\fi 
      \if\panine\blagu \def\npb{\redguard}\fi
      \if\panine\blapa \def\npb{\redpawn}\fi\fi   
   \if\startrb\brnull 
      \if\panull\blaki \def\npb{\redking}\fi    
      \if\panull\blach \def\npb{\redchariot}\fi   
      \if\panull\blaca \def\npb{\redcannon}\fi
      \if\panull\blaho \def\npb{\redhorse}\fi
      \if\panull\blael \def\npb{\redelephant}\fi 
      \if\panull\blagu \def\npb{\redguard}\fi
      \if\panull\blapa \def\npb{\redpawn}\fi\fi\fi 
\if\startlb\bli
   \if\startrb\brone 
      \if\pbone\blaki \def\npb{\redking}\fi    
      \if\pbone\blach \def\npb{\redchariot}\fi   
      \if\pbone\blaca \def\npb{\redcannon}\fi
      \if\pbone\blaho \def\npb{\redhorse}\fi
      \if\pbone\blael \def\npb{\redelephant}\fi 
      \if\pbone\blagu \def\npb{\redguard}\fi
      \if\pbone\blapa \def\npb{\redpawn}\fi\fi   
   \if\startrb\brtwo 
      \if\pbtwo\blaki \def\npb{\redking}\fi    
      \if\pbtwo\blach \def\npb{\redchariot}\fi   
      \if\pbtwo\blaca \def\npb{\redcannon}\fi
      \if\pbtwo\blaho \def\npb{\redhorse}\fi
      \if\pbtwo\blael \def\npb{\redelephant}\fi 
      \if\pbtwo\blagu \def\npb{\redguard}\fi
      \if\pbtwo\blapa \def\npb{\redpawn}\fi\fi 
   \if\startrb\brthree 
      \if\pbthree\blaki \def\npb{\redking}\fi    
      \if\pbthree\blach \def\npb{\redchariot}\fi   
      \if\pbthree\blaca \def\npb{\redcannon}\fi
      \if\pbthree\blaho \def\npb{\redhorse}\fi
      \if\pbthree\blael \def\npb{\redelephant}\fi 
      \if\pbthree\blagu \def\npb{\redguard}\fi
      \if\pbthree\blapa \def\npb{\redpawn}\fi\fi   
   \if\startrb\brfour 
      \if\pbfour\blaki \def\npb{\redking}\fi    
      \if\pbfour\blach \def\npb{\redchariot}\fi   
      \if\pbfour\blaca \def\npb{\redcannon}\fi
      \if\pbfour\blaho \def\npb{\redhorse}\fi
      \if\pbfour\blael \def\npb{\redelephant}\fi 
      \if\pbfour\blagu \def\npb{\redguard}\fi
      \if\pbfour\blapa \def\npb{\redpawn}\fi\fi 
   \if\startrb\brfive 
      \if\pbfive\blaki \def\npb{\redking}\fi    
      \if\pbfive\blach \def\npb{\redchariot}\fi   
      \if\pbfive\blaca \def\npb{\redcannon}\fi
      \if\pbfive\blaho \def\npb{\redhorse}\fi
      \if\pbfive\blael \def\npb{\redelephant}\fi 
      \if\pbfive\blagu \def\npb{\redguard}\fi
      \if\pbfive\blapa \def\npb{\redpawn}\fi\fi   
   \if\startrb\brsix 
      \if\pbsix\blaki \def\npb{\redking}\fi    
      \if\pbsix\blach \def\npb{\redchariot}\fi   
      \if\pbsix\blaca \def\npb{\redcannon}\fi
      \if\pbsix\blaho \def\npb{\redhorse}\fi
      \if\pbsix\blael \def\npb{\redelephant}\fi 
      \if\pbsix\blagu \def\npb{\redguard}\fi
      \if\pbsix\blapa \def\npb{\redpawn}\fi\fi 
   \if\startrb\brseven 
      \if\pbseven\blaki \def\npb{\redking}\fi    
      \if\pbseven\blach \def\npb{\redchariot}\fi   
      \if\pbseven\blaca \def\npb{\redcannon}\fi
      \if\pbseven\blaho \def\npb{\redhorse}\fi
      \if\pbseven\blael \def\npb{\redelephant}\fi 
      \if\pbseven\blagu \def\npb{\redguard}\fi
      \if\pbseven\blapa \def\npb{\redpawn}\fi\fi   
   \if\startrb\breight 
      \if\pbeight\blaki \def\npb{\redking}\fi    
      \if\pbeight\blach \def\npb{\redchariot}\fi   
      \if\pbeight\blaca \def\npb{\redcannon}\fi
      \if\pbeight\blaho \def\npb{\redhorse}\fi
      \if\pbeight\blael \def\npb{\redelephant}\fi 
      \if\pbeight\blagu \def\npb{\redguard}\fi
      \if\pbeight\blapa \def\npb{\redpawn}\fi\fi 
   \if\startrb\brnine 
      \if\pbnine\blaki \def\npb{\redking}\fi    
      \if\pbnine\blach \def\npb{\redchariot}\fi   
      \if\pbnine\blaca \def\npb{\redcannon}\fi
      \if\pbnine\blaho \def\npb{\redhorse}\fi
      \if\pbnine\blael \def\npb{\redelephant}\fi 
      \if\pbnine\blagu \def\npb{\redguard}\fi
      \if\pbnine\blapa \def\npb{\redpawn}\fi\fi   
   \if\startrb\brnull 
      \if\pbnull\blaki \def\npb{\redking}\fi    
      \if\pbnull\blach \def\npb{\redchariot}\fi   
      \if\pbnull\blaca \def\npb{\redcannon}\fi
      \if\pbnull\blaho \def\npb{\redhorse}\fi
      \if\pbnull\blael \def\npb{\redelephant}\fi 
      \if\pbnull\blagu \def\npb{\redguard}\fi
      \if\pbnull\blapa \def\npb{\redpawn}\fi\fi\fi 
\if\startlb\cli
   \if\startrb\brone 
      \if\pcone\blaki \def\npb{\redking}\fi    
      \if\pcone\blach \def\npb{\redchariot}\fi   
      \if\pcone\blaca \def\npb{\redcannon}\fi
      \if\pcone\blaho \def\npb{\redhorse}\fi
      \if\pcone\blael \def\npb{\redelephant}\fi 
      \if\pcone\blagu \def\npb{\redguard}\fi
      \if\pcone\blapa \def\npb{\redpawn}\fi\fi   
   \if\startrb\brtwo 
      \if\pctwo\blaki \def\npb{\redking}\fi    
      \if\pctwo\blach \def\npb{\redchariot}\fi   
      \if\pctwo\blaca \def\npb{\redcannon}\fi
      \if\pctwo\blaho \def\npb{\redhorse}\fi
      \if\pctwo\blael \def\npb{\redelephant}\fi 
      \if\pctwo\blagu \def\npb{\redguard}\fi
      \if\pctwo\blapa \def\npb{\redpawn}\fi\fi 
   \if\startrb\brthree 
      \if\pcthree\blaki \def\npb{\redking}\fi    
      \if\pcthree\blach \def\npb{\redchariot}\fi   
      \if\pcthree\blaca \def\npb{\redcannon}\fi
      \if\pcthree\blaho \def\npb{\redhorse}\fi
      \if\pcthree\blael \def\npb{\redelephant}\fi 
      \if\pcthree\blagu \def\npb{\redguard}\fi
      \if\pcthree\blapa \def\npb{\redpawn}\fi\fi   
   \if\startrb\brfour 
      \if\pcfour\blaki \def\npb{\redking}\fi    
      \if\pcfour\blach \def\npb{\redchariot}\fi   
      \if\pcfour\blaca \def\npb{\redcannon}\fi
      \if\pcfour\blaho \def\npb{\redhorse}\fi
      \if\pcfour\blael \def\npb{\redelephant}\fi 
      \if\pcfour\blagu \def\npb{\redguard}\fi
      \if\pcfour\blapa \def\npb{\redpawn}\fi\fi 
   \if\startrb\brfive 
      \if\pcfive\blaki \def\npb{\redking}\fi    
      \if\pcfive\blach \def\npb{\redchariot}\fi   
      \if\pcfive\blaca \def\npb{\redcannon}\fi
      \if\pcfive\blaho \def\npb{\redhorse}\fi
      \if\pcfive\blael \def\npb{\redelephant}\fi 
      \if\pcfive\blagu \def\npb{\redguard}\fi
      \if\pcfive\blapa \def\npb{\redpawn}\fi\fi   
   \if\startrb\brsix 
      \if\pcsix\blaki \def\npb{\redking}\fi    
      \if\pcsix\blach \def\npb{\redchariot}\fi   
      \if\pcsix\blaca \def\npb{\redcannon}\fi
      \if\pcsix\blaho \def\npb{\redhorse}\fi
      \if\pcsix\blael \def\npb{\redelephant}\fi 
      \if\pcsix\blagu \def\npb{\redguard}\fi
      \if\pcsix\blapa \def\npb{\redpawn}\fi\fi 
   \if\startrb\brseven 
      \if\pcseven\blaki \def\npb{\redking}\fi    
      \if\pcseven\blach \def\npb{\redchariot}\fi   
      \if\pcseven\blaca \def\npb{\redcannon}\fi
      \if\pcseven\blaho \def\npb{\redhorse}\fi
      \if\pcseven\blael \def\npb{\redelephant}\fi 
      \if\pcseven\blagu \def\npb{\redguard}\fi
      \if\pcseven\blapa \def\npb{\redpawn}\fi\fi   
   \if\startrb\breight 
      \if\pceight\blaki \def\npb{\redking}\fi    
      \if\pceight\blach \def\npb{\redchariot}\fi   
      \if\pceight\blaca \def\npb{\redcannon}\fi
      \if\pceight\blaho \def\npb{\redhorse}\fi
      \if\pceight\blael \def\npb{\redelephant}\fi 
      \if\pceight\blagu \def\npb{\redguard}\fi
      \if\pceight\blapa \def\npb{\redpawn}\fi\fi 
   \if\startrb\brnine 
      \if\pcnine\blaki \def\npb{\redking}\fi    
      \if\pcnine\blach \def\npb{\redchariot}\fi   
      \if\pcnine\blaca \def\npb{\redcannon}\fi
      \if\pcnine\blaho \def\npb{\redhorse}\fi
      \if\pcnine\blael \def\npb{\redelephant}\fi 
      \if\pcnine\blagu \def\npb{\redguard}\fi
      \if\pcnine\blapa \def\npb{\redpawn}\fi\fi   
   \if\startrb\brnull 
      \if\pcnull\blaki \def\npb{\redking}\fi    
      \if\pcnull\blach \def\npb{\redchariot}\fi   
      \if\pcnull\blaca \def\npb{\redcannon}\fi
      \if\pcnull\blaho \def\npb{\redhorse}\fi
      \if\pcnull\blael \def\npb{\redelephant}\fi 
      \if\pcnull\blagu \def\npb{\redguard}\fi
      \if\pcnull\blapa \def\npb{\redpawn}\fi\fi\fi 
\if\startlb\dli
   \if\startrb\brone 
      \if\pdone\blaki \def\npb{\redking}\fi    
      \if\pdone\blach \def\npb{\redchariot}\fi   
      \if\pdone\blaca \def\npb{\redcannon}\fi
      \if\pdone\blaho \def\npb{\redhorse}\fi
      \if\pdone\blael \def\npb{\redelephant}\fi 
      \if\pdone\blagu \def\npb{\redguard}\fi
      \if\pdone\blapa \def\npb{\redpawn}\fi\fi   
   \if\startrb\brtwo 
      \if\pdtwo\blaki \def\npb{\redking}\fi    
      \if\pdtwo\blach \def\npb{\redchariot}\fi   
      \if\pdtwo\blaca \def\npb{\redcannon}\fi
      \if\pdtwo\blaho \def\npb{\redhorse}\fi
      \if\pdtwo\blael \def\npb{\redelephant}\fi 
      \if\pdtwo\blagu \def\npb{\redguard}\fi
      \if\pdtwo\blapa \def\npb{\redpawn}\fi\fi 
   \if\startrb\brthree 
      \if\pdthree\blaki \def\npb{\redking}\fi    
      \if\pdthree\blach \def\npb{\redchariot}\fi   
      \if\pdthree\blaca \def\npb{\redcannon}\fi
      \if\pdthree\blaho \def\npb{\redhorse}\fi
      \if\pdthree\blael \def\npb{\redelephant}\fi 
      \if\pdthree\blagu \def\npb{\redguard}\fi
      \if\pdthree\blapa \def\npb{\redpawn}\fi\fi   
   \if\startrb\brfour 
      \if\pdfour\blaki \def\npb{\redking}\fi    
      \if\pdfour\blach \def\npb{\redchariot}\fi   
      \if\pdfour\blaca \def\npb{\redcannon}\fi
      \if\pdfour\blaho \def\npb{\redhorse}\fi
      \if\pdfour\blael \def\npb{\redelephant}\fi 
      \if\pdfour\blagu \def\npb{\redguard}\fi
      \if\pdfour\blapa \def\npb{\redpawn}\fi\fi 
   \if\startrb\brfive 
      \if\pdfive\blaki \def\npb{\redking}\fi    
      \if\pdfive\blach \def\npb{\redchariot}\fi   
      \if\pdfive\blaca \def\npb{\redcannon}\fi
      \if\pdfive\blaho \def\npb{\redhorse}\fi
      \if\pdfive\blael \def\npb{\redelephant}\fi 
      \if\pdfive\blagu \def\npb{\redguard}\fi
      \if\pdfive\blapa \def\npb{\redpawn}\fi\fi   
   \if\startrb\brsix 
      \if\pdsix\blaki \def\npb{\redking}\fi    
      \if\pdsix\blach \def\npb{\redchariot}\fi   
      \if\pdsix\blaca \def\npb{\redcannon}\fi
      \if\pdsix\blaho \def\npb{\redhorse}\fi
      \if\pdsix\blael \def\npb{\redelephant}\fi 
      \if\pdsix\blagu \def\npb{\redguard}\fi
      \if\pdsix\blapa \def\npb{\redpawn}\fi\fi 
   \if\startrb\brseven 
      \if\pdseven\blaki \def\npb{\redking}\fi    
      \if\pdseven\blach \def\npb{\redchariot}\fi   
      \if\pdseven\blaca \def\npb{\redcannon}\fi
      \if\pdseven\blaho \def\npb{\redhorse}\fi
      \if\pdseven\blael \def\npb{\redelephant}\fi 
      \if\pdseven\blagu \def\npb{\redguard}\fi
      \if\pdseven\blapa \def\npb{\redpawn}\fi\fi   
   \if\startrb\breight 
      \if\pdeight\blaki \def\npb{\redking}\fi    
      \if\pdeight\blach \def\npb{\redchariot}\fi   
      \if\pdeight\blaca \def\npb{\redcannon}\fi
      \if\pdeight\blaho \def\npb{\redhorse}\fi
      \if\pdeight\blael \def\npb{\redelephant}\fi 
      \if\pdeight\blagu \def\npb{\redguard}\fi
      \if\pdeight\blapa \def\npb{\redpawn}\fi\fi 
   \if\startrb\brnine 
      \if\pdnine\blaki \def\npb{\redking}\fi    
      \if\pdnine\blach \def\npb{\redchariot}\fi   
      \if\pdnine\blaca \def\npb{\redcannon}\fi
      \if\pdnine\blaho \def\npb{\redhorse}\fi
      \if\pdnine\blael \def\npb{\redelephant}\fi 
      \if\pdnine\blagu \def\npb{\redguard}\fi
      \if\pdnine\blapa \def\npb{\redpawn}\fi\fi   
   \if\startrb\brnull 
      \if\pdnull\blaki \def\npb{\redking}\fi    
      \if\pdnull\blach \def\npb{\redchariot}\fi   
      \if\pdnull\blaca \def\npb{\redcannon}\fi
      \if\pdnull\blaho \def\npb{\redhorse}\fi
      \if\pdnull\blael \def\npb{\redelephant}\fi 
      \if\pdnull\blagu \def\npb{\redguard}\fi
      \if\pdnull\blapa \def\npb{\redpawn}\fi\fi\fi 
\if\startlb\eli
   \if\startrb\brone 
      \if\peone\blaki \def\npb{\redking}\fi    
      \if\peone\blach \def\npb{\redchariot}\fi   
      \if\peone\blaca \def\npb{\redcannon}\fi
      \if\peone\blaho \def\npb{\redhorse}\fi
      \if\peone\blael \def\npb{\redelephant}\fi 
      \if\peone\blagu \def\npb{\redguard}\fi
      \if\peone\blapa \def\npb{\redpawn}\fi\fi   
   \if\startrb\brtwo 
      \if\petwo\blaki \def\npb{\redking}\fi    
      \if\petwo\blach \def\npb{\redchariot}\fi   
      \if\petwo\blaca \def\npb{\redcannon}\fi
      \if\petwo\blaho \def\npb{\redhorse}\fi
      \if\petwo\blael \def\npb{\redelephant}\fi 
      \if\petwo\blagu \def\npb{\redguard}\fi
      \if\petwo\blapa \def\npb{\redpawn}\fi\fi 
   \if\startrb\brthree 
      \if\pethree\blaki \def\npb{\redking}\fi    
      \if\pethree\blach \def\npb{\redchariot}\fi   
      \if\pethree\blaca \def\npb{\redcannon}\fi
      \if\pethree\blaho \def\npb{\redhorse}\fi
      \if\pethree\blael \def\npb{\redelephant}\fi 
      \if\pethree\blagu \def\npb{\redguard}\fi
      \if\pethree\blapa \def\npb{\redpawn}\fi\fi   
   \if\startrb\brfour 
      \if\pefour\blaki \def\npb{\redking}\fi    
      \if\pefour\blach \def\npb{\redchariot}\fi   
      \if\pefour\blaca \def\npb{\redcannon}\fi
      \if\pefour\blaho \def\npb{\redhorse}\fi
      \if\pefour\blael \def\npb{\redelephant}\fi 
      \if\pefour\blagu \def\npb{\redguard}\fi
      \if\pefour\blapa \def\npb{\redpawn}\fi\fi 
   \if\startrb\brfive 
      \if\pefive\blaki \def\npb{\redking}\fi    
      \if\pefive\blach \def\npb{\redchariot}\fi   
      \if\pefive\blaca \def\npb{\redcannon}\fi
      \if\pefive\blaho \def\npb{\redhorse}\fi
      \if\pefive\blael \def\npb{\redelephant}\fi 
      \if\pefive\blagu \def\npb{\redguard}\fi
      \if\pefive\blapa \def\npb{\redpawn}\fi\fi   
   \if\startrb\brsix 
      \if\pesix\blaki \def\npb{\redking}\fi    
      \if\pesix\blach \def\npb{\redchariot}\fi   
      \if\pesix\blaca \def\npb{\redcannon}\fi
      \if\pesix\blaho \def\npb{\redhorse}\fi
      \if\pesix\blael \def\npb{\redelephant}\fi 
      \if\pesix\blagu \def\npb{\redguard}\fi
      \if\pesix\blapa \def\npb{\redpawn}\fi\fi 
   \if\startrb\brseven 
      \if\peseven\blaki \def\npb{\redking}\fi    
      \if\peseven\blach \def\npb{\redchariot}\fi   
      \if\peseven\blaca \def\npb{\redcannon}\fi
      \if\peseven\blaho \def\npb{\redhorse}\fi
      \if\peseven\blael \def\npb{\redelephant}\fi 
      \if\peseven\blagu \def\npb{\redguard}\fi
      \if\peseven\blapa \def\npb{\redpawn}\fi\fi   
   \if\startrb\breight 
      \if\peeight\blaki \def\npb{\redking}\fi    
      \if\peeight\blach \def\npb{\redchariot}\fi   
      \if\peeight\blaca \def\npb{\redcannon}\fi
      \if\peeight\blaho \def\npb{\redhorse}\fi
      \if\peeight\blael \def\npb{\redelephant}\fi 
      \if\peeight\blagu \def\npb{\redguard}\fi
      \if\peeight\blapa \def\npb{\redpawn}\fi\fi 
   \if\startrb\brnine 
      \if\penine\blaki \def\npb{\redking}\fi    
      \if\penine\blach \def\npb{\redchariot}\fi   
      \if\penine\blaca \def\npb{\redcannon}\fi
      \if\penine\blaho \def\npb{\redhorse}\fi
      \if\penine\blael \def\npb{\redelephant}\fi 
      \if\penine\blagu \def\npb{\redguard}\fi
      \if\penine\blapa \def\npb{\redpawn}\fi\fi   
   \if\startrb\brnull 
      \if\penull\blaki \def\npb{\redking}\fi    
      \if\penull\blach \def\npb{\redchariot}\fi   
      \if\penull\blaca \def\npb{\redcannon}\fi
      \if\penull\blaho \def\npb{\redhorse}\fi
      \if\penull\blael \def\npb{\redelephant}\fi 
      \if\penull\blagu \def\npb{\redguard}\fi
      \if\penull\blapa \def\npb{\redpawn}\fi\fi\fi 
\if\startlb\fli
   \if\startrb\brone 
      \if\pfone\blaki \def\npb{\redking}\fi    
      \if\pfone\blach \def\npb{\redchariot}\fi   
      \if\pfone\blaca \def\npb{\redcannon}\fi
      \if\pfone\blaho \def\npb{\redhorse}\fi
      \if\pfone\blael \def\npb{\redelephant}\fi 
      \if\pfone\blagu \def\npb{\redguard}\fi
      \if\pfone\blapa \def\npb{\redpawn}\fi\fi   
   \if\startrb\brtwo 
      \if\pftwo\blaki \def\npb{\redking}\fi    
      \if\pftwo\blach \def\npb{\redchariot}\fi   
      \if\pftwo\blaca \def\npb{\redcannon}\fi
      \if\pftwo\blaho \def\npb{\redhorse}\fi
      \if\pftwo\blael \def\npb{\redelephant}\fi 
      \if\pftwo\blagu \def\npb{\redguard}\fi
      \if\pftwo\blapa \def\npb{\redpawn}\fi\fi 
   \if\startrb\brthree 
      \if\pfthree\blaki \def\npb{\redking}\fi    
      \if\pfthree\blach \def\npb{\redchariot}\fi   
      \if\pfthree\blaca \def\npb{\redcannon}\fi
      \if\pfthree\blaho \def\npb{\redhorse}\fi
      \if\pfthree\blael \def\npb{\redelephant}\fi 
      \if\pfthree\blagu \def\npb{\redguard}\fi
      \if\pfthree\blapa \def\npb{\redpawn}\fi\fi   
   \if\startrb\brfour 
      \if\pffour\blaki \def\npb{\redking}\fi    
      \if\pffour\blach \def\npb{\redchariot}\fi   
      \if\pffour\blaca \def\npb{\redcannon}\fi
      \if\pffour\blaho \def\npb{\redhorse}\fi
      \if\pffour\blael \def\npb{\redelephant}\fi 
      \if\pffour\blagu \def\npb{\redguard}\fi
      \if\pffour\blapa \def\npb{\redpawn}\fi\fi 
   \if\startrb\brfive 
      \if\pffive\blaki \def\npb{\redking}\fi    
      \if\pffive\blach \def\npb{\redchariot}\fi   
      \if\pffive\blaca \def\npb{\redcannon}\fi
      \if\pffive\blaho \def\npb{\redhorse}\fi
      \if\pffive\blael \def\npb{\redelephant}\fi 
      \if\pffive\blagu \def\npb{\redguard}\fi
      \if\pffive\blapa \def\npb{\redpawn}\fi\fi   
   \if\startrb\brsix 
      \if\pfsix\blaki \def\npb{\redking}\fi    
      \if\pfsix\blach \def\npb{\redchariot}\fi   
      \if\pfsix\blaca \def\npb{\redcannon}\fi
      \if\pfsix\blaho \def\npb{\redhorse}\fi
      \if\pfsix\blael \def\npb{\redelephant}\fi 
      \if\pfsix\blagu \def\npb{\redguard}\fi
      \if\pfsix\blapa \def\npb{\redpawn}\fi\fi 
   \if\startrb\brseven 
      \if\pfseven\blaki \def\npb{\redking}\fi    
      \if\pfseven\blach \def\npb{\redchariot}\fi   
      \if\pfseven\blaca \def\npb{\redcannon}\fi
      \if\pfseven\blaho \def\npb{\redhorse}\fi
      \if\pfseven\blael \def\npb{\redelephant}\fi 
      \if\pfseven\blagu \def\npb{\redguard}\fi
      \if\pfseven\blapa \def\npb{\redpawn}\fi\fi   
   \if\startrb\breight 
      \if\pfeight\blaki \def\npb{\redking}\fi    
      \if\pfeight\blach \def\npb{\redchariot}\fi   
      \if\pfeight\blaca \def\npb{\redcannon}\fi
      \if\pfeight\blaho \def\npb{\redhorse}\fi
      \if\pfeight\blael \def\npb{\redelephant}\fi 
      \if\pfeight\blagu \def\npb{\redguard}\fi
      \if\pfeight\blapa \def\npb{\redpawn}\fi\fi 
   \if\startrb\brnine 
      \if\pfnine\blaki \def\npb{\redking}\fi    
      \if\pfnine\blach \def\npb{\redchariot}\fi   
      \if\pfnine\blaca \def\npb{\redcannon}\fi
      \if\pfnine\blaho \def\npb{\redhorse}\fi
      \if\pfnine\blael \def\npb{\redelephant}\fi 
      \if\pfnine\blagu \def\npb{\redguard}\fi
      \if\pfnine\blapa \def\npb{\redpawn}\fi\fi   
   \if\startrb\brnull 
      \if\pfnull\blaki \def\npb{\redking}\fi    
      \if\pfnull\blach \def\npb{\redchariot}\fi   
      \if\pfnull\blaca \def\npb{\redcannon}\fi
      \if\pfnull\blaho \def\npb{\redhorse}\fi
      \if\pfnull\blael \def\npb{\redelephant}\fi 
      \if\pfnull\blagu \def\npb{\redguard}\fi
      \if\pfnull\blapa \def\npb{\redpawn}\fi\fi\fi 
\if\startlb\gli
   \if\startrb\brone 
      \if\pgone\blaki \def\npb{\redking}\fi    
      \if\pgone\blach \def\npb{\redchariot}\fi   
      \if\pgone\blaca \def\npb{\redcannon}\fi
      \if\pgone\blaho \def\npb{\redhorse}\fi
      \if\pgone\blael \def\npb{\redelephant}\fi 
      \if\pgone\blagu \def\npb{\redguard}\fi
      \if\pgone\blapa \def\npb{\redpawn}\fi\fi   
   \if\startrb\brtwo 
      \if\pgtwo\blaki \def\npb{\redking}\fi    
      \if\pgtwo\blach \def\npb{\redchariot}\fi   
      \if\pgtwo\blaca \def\npb{\redcannon}\fi
      \if\pgtwo\blaho \def\npb{\redhorse}\fi
      \if\pgtwo\blael \def\npb{\redelephant}\fi 
      \if\pgtwo\blagu \def\npb{\redguard}\fi
      \if\pgtwo\blapa \def\npb{\redpawn}\fi\fi 
   \if\startrb\brthree 
      \if\pgthree\blaki \def\npb{\redking}\fi    
      \if\pgthree\blach \def\npb{\redchariot}\fi   
      \if\pgthree\blaca \def\npb{\redcannon}\fi
      \if\pgthree\blaho \def\npb{\redhorse}\fi
      \if\pgthree\blael \def\npb{\redelephant}\fi 
      \if\pgthree\blagu \def\npb{\redguard}\fi
      \if\pgthree\blapa \def\npb{\redpawn}\fi\fi   
   \if\startrb\brfour 
      \if\pgfour\blaki \def\npb{\redking}\fi    
      \if\pgfour\blach \def\npb{\redchariot}\fi   
      \if\pgfour\blaca \def\npb{\redcannon}\fi
      \if\pgfour\blaho \def\npb{\redhorse}\fi
      \if\pgfour\blael \def\npb{\redelephant}\fi 
      \if\pgfour\blagu \def\npb{\redguard}\fi
      \if\pgfour\blapa \def\npb{\redpawn}\fi\fi 
   \if\startrb\brfive 
      \if\pgfive\blaki \def\npb{\redking}\fi    
      \if\pgfive\blach \def\npb{\redchariot}\fi   
      \if\pgfive\blaca \def\npb{\redcannon}\fi
      \if\pgfive\blaho \def\npb{\redhorse}\fi
      \if\pgfive\blael \def\npb{\redelephant}\fi 
      \if\pgfive\blagu \def\npb{\redguard}\fi
      \if\pgfive\blapa \def\npb{\redpawn}\fi\fi   
   \if\startrb\brsix 
      \if\pgsix\blaki \def\npb{\redking}\fi    
      \if\pgsix\blach \def\npb{\redchariot}\fi   
      \if\pgsix\blaca \def\npb{\redcannon}\fi
      \if\pgsix\blaho \def\npb{\redhorse}\fi
      \if\pgsix\blael \def\npb{\redelephant}\fi 
      \if\pgsix\blagu \def\npb{\redguard}\fi
      \if\pgsix\blapa \def\npb{\redpawn}\fi\fi 
   \if\startrb\brseven 
      \if\pgseven\blaki \def\npb{\redking}\fi    
      \if\pgseven\blach \def\npb{\redchariot}\fi   
      \if\pgseven\blaca \def\npb{\redcannon}\fi
      \if\pgseven\blaho \def\npb{\redhorse}\fi
      \if\pgseven\blael \def\npb{\redelephant}\fi 
      \if\pgseven\blagu \def\npb{\redguard}\fi
      \if\pgseven\blapa \def\npb{\redpawn}\fi\fi   
   \if\startrb\breight 
      \if\pgeight\blaki \def\npb{\redking}\fi    
      \if\pgeight\blach \def\npb{\redchariot}\fi   
      \if\pgeight\blaca \def\npb{\redcannon}\fi
      \if\pgeight\blaho \def\npb{\redhorse}\fi
      \if\pgeight\blael \def\npb{\redelephant}\fi 
      \if\pgeight\blagu \def\npb{\redguard}\fi
      \if\pgeight\blapa \def\npb{\redpawn}\fi\fi 
   \if\startrb\brnine 
      \if\pgnine\blaki \def\npb{\redking}\fi    
      \if\pgnine\blach \def\npb{\redchariot}\fi   
      \if\pgnine\blaca \def\npb{\redcannon}\fi
      \if\pgnine\blaho \def\npb{\redhorse}\fi
      \if\pgnine\blael \def\npb{\redelephant}\fi 
      \if\pgnine\blagu \def\npb{\redguard}\fi
      \if\pgnine\blapa \def\npb{\redpawn}\fi\fi   
   \if\startrb\brnull 
      \if\pgnull\blaki \def\npb{\redking}\fi    
      \if\pgnull\blach \def\npb{\redchariot}\fi   
      \if\pgnull\blaca \def\npb{\redcannon}\fi
      \if\pgnull\blaho \def\npb{\redhorse}\fi
      \if\pgnull\blael \def\npb{\redelephant}\fi 
      \if\pgnull\blagu \def\npb{\redguard}\fi
      \if\pgnull\blapa \def\npb{\redpawn}\fi\fi\fi 
\if\startlb\hli
   \if\startrb\brone 
      \if\phone\blaki \def\npb{\redking}\fi    
      \if\phone\blach \def\npb{\redchariot}\fi   
      \if\phone\blaca \def\npb{\redcannon}\fi
      \if\phone\blaho \def\npb{\redhorse}\fi
      \if\phone\blael \def\npb{\redelephant}\fi 
      \if\phone\blagu \def\npb{\redguard}\fi
      \if\phone\blapa \def\npb{\redpawn}\fi\fi   
   \if\startrb\brtwo 
      \if\phtwo\blaki \def\npb{\redking}\fi    
      \if\phtwo\blach \def\npb{\redchariot}\fi   
      \if\phtwo\blaca \def\npb{\redcannon}\fi
      \if\phtwo\blaho \def\npb{\redhorse}\fi
      \if\phtwo\blael \def\npb{\redelephant}\fi 
      \if\phtwo\blagu \def\npb{\redguard}\fi
      \if\phtwo\blapa \def\npb{\redpawn}\fi\fi 
   \if\startrb\brthree 
      \if\phthree\blaki \def\npb{\redking}\fi    
      \if\phthree\blach \def\npb{\redchariot}\fi   
      \if\phthree\blaca \def\npb{\redcannon}\fi
      \if\phthree\blaho \def\npb{\redhorse}\fi
      \if\phthree\blael \def\npb{\redelephant}\fi 
      \if\phthree\blagu \def\npb{\redguard}\fi
      \if\phthree\blapa \def\npb{\redpawn}\fi\fi   
   \if\startrb\brfour 
      \if\phfour\blaki \def\npb{\redking}\fi    
      \if\phfour\blach \def\npb{\redchariot}\fi   
      \if\phfour\blaca \def\npb{\redcannon}\fi
      \if\phfour\blaho \def\npb{\redhorse}\fi
      \if\phfour\blael \def\npb{\redelephant}\fi 
      \if\phfour\blagu \def\npb{\redguard}\fi
      \if\phfour\blapa \def\npb{\redpawn}\fi\fi 
   \if\startrb\brfive 
      \if\phfive\blaki \def\npb{\redking}\fi    
      \if\phfive\blach \def\npb{\redchariot}\fi   
      \if\phfive\blaca \def\npb{\redcannon}\fi
      \if\phfive\blaho \def\npb{\redhorse}\fi
      \if\phfive\blael \def\npb{\redelephant}\fi 
      \if\phfive\blagu \def\npb{\redguard}\fi
      \if\phfive\blapa \def\npb{\redpawn}\fi\fi   
   \if\startrb\brsix 
      \if\phsix\blaki \def\npb{\redking}\fi    
      \if\phsix\blach \def\npb{\redchariot}\fi   
      \if\phsix\blaca \def\npb{\redcannon}\fi
      \if\phsix\blaho \def\npb{\redhorse}\fi
      \if\phsix\blael \def\npb{\redelephant}\fi 
      \if\phsix\blagu \def\npb{\redguard}\fi
      \if\phsix\blapa \def\npb{\redpawn}\fi\fi 
   \if\startrb\brseven 
      \if\phseven\blaki \def\npb{\redking}\fi    
      \if\phseven\blach \def\npb{\redchariot}\fi   
      \if\phseven\blaca \def\npb{\redcannon}\fi
      \if\phseven\blaho \def\npb{\redhorse}\fi
      \if\phseven\blael \def\npb{\redelephant}\fi 
      \if\phseven\blagu \def\npb{\redguard}\fi
      \if\phseven\blapa \def\npb{\redpawn}\fi\fi   
   \if\startrb\breight 
      \if\pheight\blaki \def\npb{\redking}\fi    
      \if\pheight\blach \def\npb{\redchariot}\fi   
      \if\pheight\blaca \def\npb{\redcannon}\fi
      \if\pheight\blaho \def\npb{\redhorse}\fi
      \if\pheight\blael \def\npb{\redelephant}\fi 
      \if\pheight\blagu \def\npb{\redguard}\fi
      \if\pheight\blapa \def\npb{\redpawn}\fi\fi 
   \if\startrb\brnine 
      \if\phnine\blaki \def\npb{\redking}\fi    
      \if\phnine\blach \def\npb{\redchariot}\fi   
      \if\phnine\blaca \def\npb{\redcannon}\fi
      \if\phnine\blaho \def\npb{\redhorse}\fi
      \if\phnine\blael \def\npb{\redelephant}\fi 
      \if\phnine\blagu \def\npb{\redguard}\fi
      \if\phnine\blapa \def\npb{\redpawn}\fi\fi   
   \if\startrb\brnull 
      \if\phnull\blaki \def\npb{\redking}\fi    
      \if\phnull\blach \def\npb{\redchariot}\fi   
      \if\phnull\blaca \def\npb{\redcannon}\fi
      \if\phnull\blaho \def\npb{\redhorse}\fi
      \if\phnull\blael \def\npb{\redelephant}\fi 
      \if\phnull\blagu \def\npb{\redguard}\fi
      \if\phnull\blapa \def\npb{\redpawn}\fi\fi\fi 
\if\startlb\ili
   \if\startrb\brone 
      \if\pione\blaki \def\npb{\redking}\fi    
      \if\pione\blach \def\npb{\redchariot}\fi   
      \if\pione\blaca \def\npb{\redcannon}\fi
      \if\pione\blaho \def\npb{\redhorse}\fi
      \if\pione\blael \def\npb{\redelephant}\fi 
      \if\pione\blagu \def\npb{\redguard}\fi
      \if\pione\blapa \def\npb{\redpawn}\fi\fi   
   \if\startrb\brtwo 
      \if\pitwo\blaki \def\npb{\redking}\fi    
      \if\pitwo\blach \def\npb{\redchariot}\fi   
      \if\pitwo\blaca \def\npb{\redcannon}\fi
      \if\pitwo\blaho \def\npb{\redhorse}\fi
      \if\pitwo\blael \def\npb{\redelephant}\fi 
      \if\pitwo\blagu \def\npb{\redguard}\fi
      \if\pitwo\blapa \def\npb{\redpawn}\fi\fi 
   \if\startrb\brthree 
      \if\pithree\blaki \def\npb{\redking}\fi    
      \if\pithree\blach \def\npb{\redchariot}\fi   
      \if\pithree\blaca \def\npb{\redcannon}\fi
      \if\pithree\blaho \def\npb{\redhorse}\fi
      \if\pithree\blael \def\npb{\redelephant}\fi 
      \if\pithree\blagu \def\npb{\redguard}\fi
      \if\pithree\blapa \def\npb{\redpawn}\fi\fi   
   \if\startrb\brfour 
      \if\pifour\blaki \def\npb{\redking}\fi    
      \if\pifour\blach \def\npb{\redchariot}\fi   
      \if\pifour\blaca \def\npb{\redcannon}\fi
      \if\pifour\blaho \def\npb{\redhorse}\fi
      \if\pifour\blael \def\npb{\redelephant}\fi 
      \if\pifour\blagu \def\npb{\redguard}\fi
      \if\pifour\blapa \def\npb{\redpawn}\fi\fi 
   \if\startrb\brfive 
      \if\pifive\blaki \def\npb{\redking}\fi    
      \if\pifive\blach \def\npb{\redchariot}\fi   
      \if\pifive\blaca \def\npb{\redcannon}\fi
      \if\pifive\blaho \def\npb{\redhorse}\fi
      \if\pifive\blael \def\npb{\redelephant}\fi 
      \if\pifive\blagu \def\npb{\redguard}\fi
      \if\pifive\blapa \def\npb{\redpawn}\fi\fi   
   \if\startrb\brsix 
      \if\pisix\blaki \def\npb{\redking}\fi    
      \if\pisix\blach \def\npb{\redchariot}\fi   
      \if\pisix\blaca \def\npb{\redcannon}\fi
      \if\pisix\blaho \def\npb{\redhorse}\fi
      \if\pisix\blael \def\npb{\redelephant}\fi 
      \if\pisix\blagu \def\npb{\redguard}\fi
      \if\pisix\blapa \def\npb{\redpawn}\fi\fi 
   \if\startrb\brseven 
      \if\piseven\blaki \def\npb{\redking}\fi    
      \if\piseven\blach \def\npb{\redchariot}\fi   
      \if\piseven\blaca \def\npb{\redcannon}\fi
      \if\piseven\blaho \def\npb{\redhorse}\fi
      \if\piseven\blael \def\npb{\redelephant}\fi 
      \if\piseven\blagu \def\npb{\redguard}\fi
      \if\piseven\blapa \def\npb{\redpawn}\fi\fi   
   \if\startrb\breight 
      \if\pieight\blaki \def\npb{\redking}\fi    
      \if\pieight\blach \def\npb{\redchariot}\fi   
      \if\pieight\blaca \def\npb{\redcannon}\fi
      \if\pieight\blaho \def\npb{\redhorse}\fi
      \if\pieight\blael \def\npb{\redelephant}\fi 
      \if\pieight\blagu \def\npb{\redguard}\fi
      \if\pieight\blapa \def\npb{\redpawn}\fi\fi 
   \if\startrb\brnine 
      \if\pinine\blaki \def\npb{\redking}\fi    
      \if\pinine\blach \def\npb{\redchariot}\fi   
      \if\pinine\blaca \def\npb{\redcannon}\fi
      \if\pinine\blaho \def\npb{\redhorse}\fi
      \if\pinine\blael \def\npb{\redelephant}\fi 
      \if\pinine\blagu \def\npb{\redguard}\fi
      \if\pinine\blapa \def\npb{\redpawn}\fi\fi   
   \if\startrb\brnull 
      \if\pinull\blaki \def\npb{\redking}\fi    
      \if\pinull\blach \def\npb{\redchariot}\fi   
      \if\pinull\blaca \def\npb{\redcannon}\fi
      \if\pinull\blaho \def\npb{\redhorse}\fi
      \if\pinull\blael \def\npb{\redelephant}\fi 
      \if\pinull\blagu \def\npb{\redguard}\fi
      \if\pinull\blapa \def\npb{\redpawn}\fi\fi\fi 

\showmove

%start positions of red and black
\if\startlr\ali
   \if\startrr\brone \aoneset=0  
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\paone\fi
         \if\endrr\brtwo \let\ptatwo=\paone\fi
         \if\endrr\brthree \let\ptathree=\paone\fi
         \if\endrr\brfour \let\ptafour=\paone\fi
         \if\endrr\brfive \let\ptafive=\paone\fi
         \if\endrr\brsix \let\ptasix=\paone\fi
         \if\endrr\brseven \let\ptaseven=\paone\fi
         \if\endrr\breight \let\ptaeight=\paone\fi
         \if\endrr\brnine \let\ptanine=\paone\fi
         \if\endrr\brnull \let\ptanull=\paone\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\paone\fi
         \if\endrr\brtwo \let\ptbtwo=\paone\fi
         \if\endrr\brthree \let\ptbthree=\paone\fi
         \if\endrr\brfour \let\ptbfour=\paone\fi
         \if\endrr\brfive \let\ptbfive=\paone\fi
         \if\endrr\brsix \let\ptbsix=\paone\fi
         \if\endrr\brseven \let\ptbseven=\paone\fi
         \if\endrr\breight \let\ptbeight=\paone\fi
         \if\endrr\brnine \let\ptbnine=\paone\fi
         \if\endrr\brnull \let\ptbnull=\paone\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\paone\fi
         \if\endrr\brtwo \let\ptctwo=\paone\fi
         \if\endrr\brthree \let\ptcthree=\paone\fi
         \if\endrr\brfour \let\ptcfour=\paone\fi
         \if\endrr\brfive \let\ptcfive=\paone\fi
         \if\endrr\brsix \let\ptcsix=\paone\fi
         \if\endrr\brseven \let\ptcseven=\paone\fi
         \if\endrr\breight \let\ptceight=\paone\fi
         \if\endrr\brnine \let\ptcnine=\paone\fi
         \if\endrr\brnull \let\ptcnull=\paone\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\paone\fi
         \if\endrr\brtwo \let\ptdtwo=\paone\fi
         \if\endrr\brthree \let\ptdthree=\paone\fi
         \if\endrr\brfour \let\ptdfour=\paone\fi
         \if\endrr\brfive \let\ptdfive=\paone\fi
         \if\endrr\brsix \let\ptdsix=\paone\fi
         \if\endrr\brseven \let\ptdseven=\paone\fi
         \if\endrr\breight \let\ptdeight=\paone\fi
         \if\endrr\brnine \let\ptdnine=\paone\fi
         \if\endrr\brnull \let\ptdnull=\paone\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\paone\fi
         \if\endrr\brtwo \let\ptetwo=\paone\fi
         \if\endrr\brthree \let\ptethree=\paone\fi
         \if\endrr\brfour \let\ptefour=\paone\fi
         \if\endrr\brfive \let\ptefive=\paone\fi
         \if\endrr\brsix \let\ptesix=\paone\fi
         \if\endrr\brseven \let\pteseven=\paone\fi
         \if\endrr\breight \let\pteeight=\paone\fi
         \if\endrr\brnine \let\ptenine=\paone\fi
         \if\endrr\brnull \let\ptenull=\paone\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\paone\fi
         \if\endrr\brtwo \let\ptftwo=\paone\fi
         \if\endrr\brthree \let\ptfthree=\paone\fi
         \if\endrr\brfour \let\ptffour=\paone\fi
         \if\endrr\brfive \let\ptffive=\paone\fi
         \if\endrr\brsix \let\ptfsix=\paone\fi
         \if\endrr\brseven \let\ptfseven=\paone\fi
         \if\endrr\breight \let\ptfeight=\paone\fi
         \if\endrr\brnine \let\ptfnine=\paone\fi
         \if\endrr\brnull \let\ptfnull=\paone\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\paone\fi
         \if\endrr\brtwo \let\ptgtwo=\paone\fi
         \if\endrr\brthree \let\ptgthree=\paone\fi
         \if\endrr\brfour \let\ptgfour=\paone\fi
         \if\endrr\brfive \let\ptgfive=\paone\fi
         \if\endrr\brsix \let\ptgsix=\paone\fi
         \if\endrr\brseven \let\ptgseven=\paone\fi
         \if\endrr\breight \let\ptgeight=\paone\fi
         \if\endrr\brnine \let\ptgnine=\paone\fi
         \if\endrr\brnull \let\ptgnull=\paone\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\paone\fi
         \if\endrr\brtwo \let\pthtwo=\paone\fi
         \if\endrr\brthree \let\pththree=\paone\fi
         \if\endrr\brfour \let\pthfour=\paone\fi
         \if\endrr\brfive \let\pthfive=\paone\fi
         \if\endrr\brsix \let\pthsix=\paone\fi
         \if\endrr\brseven \let\pthseven=\paone\fi
         \if\endrr\breight \let\ptheight=\paone\fi
         \if\endrr\brnine \let\pthnine=\paone\fi
         \if\endrr\brnull \let\pthnull=\paone\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\paone\fi
         \if\endrr\brtwo \let\ptitwo=\paone\fi
         \if\endrr\brthree \let\ptithree=\paone\fi
         \if\endrr\brfour \let\ptifour=\paone\fi
         \if\endrr\brfive \let\ptifive=\paone\fi
         \if\endrr\brsix \let\ptisix=\paone\fi
         \if\endrr\brseven \let\ptiseven=\paone\fi
         \if\endrr\breight \let\ptieight=\paone\fi
         \if\endrr\brnine \let\ptinine=\paone\fi
         \if\endrr\brnull \let\ptinull=\paone\fi\fi\fi      
   \if\startrr\brtwo \atwoset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\patwo\fi
         \if\endrr\brtwo \let\ptatwo=\patwo\fi
         \if\endrr\brthree \let\ptathree=\patwo\fi
         \if\endrr\brfour \let\ptafour=\patwo\fi
         \if\endrr\brfive \let\ptafive=\patwo\fi
         \if\endrr\brsix \let\ptasix=\patwo\fi
         \if\endrr\brseven \let\ptaseven=\patwo\fi
         \if\endrr\breight \let\ptaeight=\patwo\fi
         \if\endrr\brnine \let\ptanine=\patwo\fi
         \if\endrr\brnull \let\ptanull=\patwo\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\patwo\fi
         \if\endrr\brtwo \let\ptbtwo=\patwo\fi
         \if\endrr\brthree \let\ptbthree=\patwo\fi
         \if\endrr\brfour \let\ptbfour=\patwo\fi
         \if\endrr\brfive \let\ptbfive=\patwo\fi
         \if\endrr\brsix \let\ptbsix=\patwo\fi
         \if\endrr\brseven \let\ptbseven=\patwo\fi
         \if\endrr\breight \let\ptbeight=\patwo\fi
         \if\endrr\brnine \let\ptbnine=\patwo\fi
         \if\endrr\brnull \let\ptbnull=\patwo\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\patwo\fi
         \if\endrr\brtwo \let\ptctwo=\patwo\fi
         \if\endrr\brthree \let\ptcthree=\patwo\fi
         \if\endrr\brfour \let\ptcfour=\patwo\fi
         \if\endrr\brfive \let\ptcfive=\patwo\fi
         \if\endrr\brsix \let\ptcsix=\patwo\fi
         \if\endrr\brseven \let\ptcseven=\patwo\fi
         \if\endrr\breight \let\ptceight=\patwo\fi
         \if\endrr\brnine \let\ptcnine=\patwo\fi
         \if\endrr\brnull \let\ptcnull=\patwo\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\patwo\fi
         \if\endrr\brtwo \let\ptdtwo=\patwo\fi
         \if\endrr\brthree \let\ptdthree=\patwo\fi
         \if\endrr\brfour \let\ptdfour=\patwo\fi
         \if\endrr\brfive \let\ptdfive=\patwo\fi
         \if\endrr\brsix \let\ptdsix=\patwo\fi
         \if\endrr\brseven \let\ptdseven=\patwo\fi
         \if\endrr\breight \let\ptdeight=\patwo\fi
         \if\endrr\brnine \let\ptdnine=\patwo\fi
         \if\endrr\brnull \let\ptdnull=\patwo\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\patwo\fi
         \if\endrr\brtwo \let\ptetwo=\patwo\fi
         \if\endrr\brthree \let\ptethree=\patwo\fi
         \if\endrr\brfour \let\ptefour=\patwo\fi
         \if\endrr\brfive \let\ptefive=\patwo\fi
         \if\endrr\brsix \let\ptesix=\patwo\fi
         \if\endrr\brseven \let\pteseven=\patwo\fi
         \if\endrr\breight \let\pteeight=\patwo\fi
         \if\endrr\brnine \let\ptenine=\patwo\fi
         \if\endrr\brnull \let\ptenull=\patwo\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\patwo\fi
         \if\endrr\brtwo \let\ptftwo=\patwo\fi
         \if\endrr\brthree \let\ptfthree=\patwo\fi
         \if\endrr\brfour \let\ptffour=\patwo\fi
         \if\endrr\brfive \let\ptffive=\patwo\fi
         \if\endrr\brsix \let\ptfsix=\patwo\fi
         \if\endrr\brseven \let\ptfseven=\patwo\fi
         \if\endrr\breight \let\ptfeight=\patwo\fi
         \if\endrr\brnine \let\ptfnine=\patwo\fi
         \if\endrr\brnull \let\ptfnull=\patwo\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\patwo\fi
         \if\endrr\brtwo \let\ptgtwo=\patwo\fi
         \if\endrr\brthree \let\ptgthree=\patwo\fi
         \if\endrr\brfour \let\ptgfour=\patwo\fi
         \if\endrr\brfive \let\ptgfive=\patwo\fi
         \if\endrr\brsix \let\ptgsix=\patwo\fi
         \if\endrr\brseven \let\ptgseven=\patwo\fi
         \if\endrr\breight \let\ptgeight=\patwo\fi
         \if\endrr\brnine \let\ptgnine=\patwo\fi
         \if\endrr\brnull \let\ptgnull=\patwo\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\patwo\fi
         \if\endrr\brtwo \let\pthtwo=\patwo\fi
         \if\endrr\brthree \let\pththree=\patwo\fi
         \if\endrr\brfour \let\pthfour=\patwo\fi
         \if\endrr\brfive \let\pthfive=\patwo\fi
         \if\endrr\brsix \let\pthsix=\patwo\fi
         \if\endrr\brseven \let\pthseven=\patwo\fi
         \if\endrr\breight \let\ptheight=\patwo\fi
         \if\endrr\brnine \let\pthnine=\patwo\fi
         \if\endrr\brnull \let\pthnull=\patwo\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\patwo\fi
         \if\endrr\brtwo \let\ptitwo=\patwo\fi
         \if\endrr\brthree \let\ptithree=\patwo\fi
         \if\endrr\brfour \let\ptifour=\patwo\fi
         \if\endrr\brfive \let\ptifive=\patwo\fi
         \if\endrr\brsix \let\ptisix=\patwo\fi
         \if\endrr\brseven \let\ptiseven=\patwo\fi
         \if\endrr\breight \let\ptieight=\patwo\fi
         \if\endrr\brnine \let\ptinine=\patwo\fi
         \if\endrr\brnull \let\ptinull=\patwo\fi\fi\fi
   \if\startrr\brthree \athreeset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pathree\fi
         \if\endrr\brtwo \let\ptatwo=\pathree\fi
         \if\endrr\brthree \let\ptathree=\pathree\fi
         \if\endrr\brfour \let\ptafour=\pathree\fi
         \if\endrr\brfive \let\ptafive=\pathree\fi
         \if\endrr\brsix \let\ptasix=\pathree\fi
         \if\endrr\brseven \let\ptaseven=\pathree\fi
         \if\endrr\breight \let\ptaeight=\pathree\fi
         \if\endrr\brnine \let\ptanine=\pathree\fi
         \if\endrr\brnull \let\ptanull=\pathree\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pathree\fi
         \if\endrr\brtwo \let\ptbtwo=\pathree\fi
         \if\endrr\brthree \let\ptbthree=\pathree\fi
         \if\endrr\brfour \let\ptbfour=\pathree\fi
         \if\endrr\brfive \let\ptbfive=\pathree\fi
         \if\endrr\brsix \let\ptbsix=\pathree\fi
         \if\endrr\brseven \let\ptbseven=\pathree\fi
         \if\endrr\breight \let\ptbeight=\pathree\fi
         \if\endrr\brnine \let\ptbnine=\pathree\fi
         \if\endrr\brnull \let\ptbnull=\pathree\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pathree\fi
         \if\endrr\brtwo \let\ptctwo=\pathree\fi
         \if\endrr\brthree \let\ptcthree=\pathree\fi
         \if\endrr\brfour \let\ptcfour=\pathree\fi
         \if\endrr\brfive \let\ptcfive=\pathree\fi
         \if\endrr\brsix \let\ptcsix=\pathree\fi
         \if\endrr\brseven \let\ptcseven=\pathree\fi
         \if\endrr\breight \let\ptceight=\pathree\fi
         \if\endrr\brnine \let\ptcnine=\pathree\fi
         \if\endrr\brnull \let\ptcnull=\pathree\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pathree\fi
         \if\endrr\brtwo \let\ptdtwo=\pathree\fi
         \if\endrr\brthree \let\ptdthree=\pathree\fi
         \if\endrr\brfour \let\ptdfour=\pathree\fi
         \if\endrr\brfive \let\ptdfive=\pathree\fi
         \if\endrr\brsix \let\ptdsix=\pathree\fi
         \if\endrr\brseven \let\ptdseven=\pathree\fi
         \if\endrr\breight \let\ptdeight=\pathree\fi
         \if\endrr\brnine \let\ptdnine=\pathree\fi
         \if\endrr\brnull \let\ptdnull=\pathree\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pathree\fi
         \if\endrr\brtwo \let\ptetwo=\pathree\fi
         \if\endrr\brthree \let\ptethree=\pathree\fi
         \if\endrr\brfour \let\ptefour=\pathree\fi
         \if\endrr\brfive \let\ptefive=\pathree\fi
         \if\endrr\brsix \let\ptesix=\pathree\fi
         \if\endrr\brseven \let\pteseven=\pathree\fi
         \if\endrr\breight \let\pteeight=\pathree\fi
         \if\endrr\brnine \let\ptenine=\pathree\fi
         \if\endrr\brnull \let\ptenull=\pathree\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pathree\fi
         \if\endrr\brtwo \let\ptftwo=\pathree\fi
         \if\endrr\brthree \let\ptfthree=\pathree\fi
         \if\endrr\brfour \let\ptffour=\pathree\fi
         \if\endrr\brfive \let\ptffive=\pathree\fi
         \if\endrr\brsix \let\ptfsix=\pathree\fi
         \if\endrr\brseven \let\ptfseven=\pathree\fi
         \if\endrr\breight \let\ptfeight=\pathree\fi
         \if\endrr\brnine \let\ptfnine=\pathree\fi
         \if\endrr\brnull \let\ptfnull=\pathree\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pathree\fi
         \if\endrr\brtwo \let\ptgtwo=\pathree\fi
         \if\endrr\brthree \let\ptgthree=\pathree\fi
         \if\endrr\brfour \let\ptgfour=\pathree\fi
         \if\endrr\brfive \let\ptgfive=\pathree\fi
         \if\endrr\brsix \let\ptgsix=\pathree\fi
         \if\endrr\brseven \let\ptgseven=\pathree\fi
         \if\endrr\breight \let\ptgeight=\pathree\fi
         \if\endrr\brnine \let\ptgnine=\pathree\fi
         \if\endrr\brnull \let\ptgnull=\pathree\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pathree\fi
         \if\endrr\brtwo \let\pthtwo=\pathree\fi
         \if\endrr\brthree \let\pththree=\pathree\fi
         \if\endrr\brfour \let\pthfour=\pathree\fi
         \if\endrr\brfive \let\pthfive=\pathree\fi
         \if\endrr\brsix \let\pthsix=\pathree\fi
         \if\endrr\brseven \let\pthseven=\pathree\fi
         \if\endrr\breight \let\ptheight=\pathree\fi
         \if\endrr\brnine \let\pthnine=\pathree\fi
         \if\endrr\brnull \let\pthnull=\pathree\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pathree\fi
         \if\endrr\brtwo \let\ptitwo=\pathree\fi
         \if\endrr\brthree \let\ptithree=\pathree\fi
         \if\endrr\brfour \let\ptifour=\pathree\fi
         \if\endrr\brfive \let\ptifive=\pathree\fi
         \if\endrr\brsix \let\ptisix=\pathree\fi
         \if\endrr\brseven \let\ptiseven=\pathree\fi
         \if\endrr\breight \let\ptieight=\pathree\fi
         \if\endrr\brnine \let\ptinine=\pathree\fi
         \if\endrr\brnull \let\ptinull=\pathree\fi\fi\fi      
   \if\startrr\brfour \afourset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pafour\fi
         \if\endrr\brtwo \let\ptatwo=\pafour\fi
         \if\endrr\brthree \let\ptathree=\pafour\fi
         \if\endrr\brfour \let\ptafour=\pafour\fi
         \if\endrr\brfive \let\ptafive=\pafour\fi
         \if\endrr\brsix \let\ptasix=\pafour\fi
         \if\endrr\brseven \let\ptaseven=\pafour\fi
         \if\endrr\breight \let\ptaeight=\pafour\fi
         \if\endrr\brnine \let\ptanine=\pafour\fi
         \if\endrr\brnull \let\ptanull=\pafour\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pafour\fi
         \if\endrr\brtwo \let\ptbtwo=\pafour\fi
         \if\endrr\brthree \let\ptbthree=\pafour\fi
         \if\endrr\brfour \let\ptbfour=\pafour\fi
         \if\endrr\brfive \let\ptbfive=\pafour\fi
         \if\endrr\brsix \let\ptbsix=\pafour\fi
         \if\endrr\brseven \let\ptbseven=\pafour\fi
         \if\endrr\breight \let\ptbeight=\pafour\fi
         \if\endrr\brnine \let\ptbnine=\pafour\fi
         \if\endrr\brnull \let\ptbnull=\pafour\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pafour\fi
         \if\endrr\brtwo \let\ptctwo=\pafour\fi
         \if\endrr\brthree \let\ptcthree=\pafour\fi
         \if\endrr\brfour \let\ptcfour=\pafour\fi
         \if\endrr\brfive \let\ptcfive=\pafour\fi
         \if\endrr\brsix \let\ptcsix=\pafour\fi
         \if\endrr\brseven \let\ptcseven=\pafour\fi
         \if\endrr\breight \let\ptceight=\pafour\fi
         \if\endrr\brnine \let\ptcnine=\pafour\fi
         \if\endrr\brnull \let\ptcnull=\pafour\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pafour\fi
         \if\endrr\brtwo \let\ptdtwo=\pafour\fi
         \if\endrr\brthree \let\ptdthree=\pafour\fi
         \if\endrr\brfour \let\ptdfour=\pafour\fi
         \if\endrr\brfive \let\ptdfive=\pafour\fi
         \if\endrr\brsix \let\ptdsix=\pafour\fi
         \if\endrr\brseven \let\ptdseven=\pafour\fi
         \if\endrr\breight \let\ptdeight=\pafour\fi
         \if\endrr\brnine \let\ptdnine=\pafour\fi
         \if\endrr\brnull \let\ptdnull=\pafour\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pafour\fi
         \if\endrr\brtwo \let\ptetwo=\pafour\fi
         \if\endrr\brthree \let\ptethree=\pafour\fi
         \if\endrr\brfour \let\ptefour=\pafour\fi
         \if\endrr\brfive \let\ptefive=\pafour\fi
         \if\endrr\brsix \let\ptesix=\pafour\fi
         \if\endrr\brseven \let\pteseven=\pafour\fi
         \if\endrr\breight \let\pteeight=\pafour\fi
         \if\endrr\brnine \let\ptenine=\pafour\fi
         \if\endrr\brnull \let\ptenull=\pafour\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pafour\fi
         \if\endrr\brtwo \let\ptftwo=\pafour\fi
         \if\endrr\brthree \let\ptfthree=\pafour\fi
         \if\endrr\brfour \let\ptffour=\pafour\fi
         \if\endrr\brfive \let\ptffive=\pafour\fi
         \if\endrr\brsix \let\ptfsix=\pafour\fi
         \if\endrr\brseven \let\ptfseven=\pafour\fi
         \if\endrr\breight \let\ptfeight=\pafour\fi
         \if\endrr\brnine \let\ptfnine=\pafour\fi
         \if\endrr\brnull \let\ptfnull=\pafour\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pafour\fi
         \if\endrr\brtwo \let\ptgtwo=\pafour\fi
         \if\endrr\brthree \let\ptgthree=\pafour\fi
         \if\endrr\brfour \let\ptgfour=\pafour\fi
         \if\endrr\brfive \let\ptgfive=\pafour\fi
         \if\endrr\brsix \let\ptgsix=\pafour\fi
         \if\endrr\brseven \let\ptgseven=\pafour\fi
         \if\endrr\breight \let\ptgeight=\pafour\fi
         \if\endrr\brnine \let\ptgnine=\pafour\fi
         \if\endrr\brnull \let\ptgnull=\pafour\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pafour\fi
         \if\endrr\brtwo \let\pthtwo=\pafour\fi
         \if\endrr\brthree \let\pththree=\pafour\fi
         \if\endrr\brfour \let\pthfour=\pafour\fi
         \if\endrr\brfive \let\pthfive=\pafour\fi
         \if\endrr\brsix \let\pthsix=\pafour\fi
         \if\endrr\brseven \let\pthseven=\pafour\fi
         \if\endrr\breight \let\ptheight=\pafour\fi
         \if\endrr\brnine \let\pthnine=\pafour\fi
         \if\endrr\brnull \let\pthnull=\pafour\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pafour\fi
         \if\endrr\brtwo \let\ptitwo=\pafour\fi
         \if\endrr\brthree \let\ptithree=\pafour\fi
         \if\endrr\brfour \let\ptifour=\pafour\fi
         \if\endrr\brfive \let\ptifive=\pafour\fi
         \if\endrr\brsix \let\ptisix=\pafour\fi
         \if\endrr\brseven \let\ptiseven=\pafour\fi
         \if\endrr\breight \let\ptieight=\pafour\fi
         \if\endrr\brnine \let\ptinine=\pafour\fi
         \if\endrr\brnull \let\ptinull=\pafour\fi\fi\fi      
   \if\startrr\brfive \afiveset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pafive\fi
         \if\endrr\brtwo \let\ptatwo=\pafive\fi
         \if\endrr\brthree \let\ptathree=\pafive\fi
         \if\endrr\brfour \let\ptafour=\pafive\fi
         \if\endrr\brfive \let\ptafive=\pafive\fi
         \if\endrr\brsix \let\ptasix=\pafive\fi
         \if\endrr\brseven \let\ptaseven=\pafive\fi
         \if\endrr\breight \let\ptaeight=\pafive\fi
         \if\endrr\brnine \let\ptanine=\pafive\fi
         \if\endrr\brnull \let\ptanull=\pafive\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pafive\fi
         \if\endrr\brtwo \let\ptbtwo=\pafive\fi
         \if\endrr\brthree \let\ptbthree=\pafive\fi
         \if\endrr\brfour \let\ptbfour=\pafive\fi
         \if\endrr\brfive \let\ptbfive=\pafive\fi
         \if\endrr\brsix \let\ptbsix=\pafive\fi
         \if\endrr\brseven \let\ptbseven=\pafive\fi
         \if\endrr\breight \let\ptbeight=\pafive\fi
         \if\endrr\brnine \let\ptbnine=\pafive\fi
         \if\endrr\brnull \let\ptbnull=\pafive\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pafive\fi
         \if\endrr\brtwo \let\ptctwo=\pafive\fi
         \if\endrr\brthree \let\ptcthree=\pafive\fi
         \if\endrr\brfour \let\ptcfour=\pafive\fi
         \if\endrr\brfive \let\ptcfive=\pafive\fi
         \if\endrr\brsix \let\ptcsix=\pafive\fi
         \if\endrr\brseven \let\ptcseven=\pafive\fi
         \if\endrr\breight \let\ptceight=\pafive\fi
         \if\endrr\brnine \let\ptcnine=\pafive\fi
         \if\endrr\brnull \let\ptcnull=\pafive\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pafive\fi
         \if\endrr\brtwo \let\ptdtwo=\pafive\fi
         \if\endrr\brthree \let\ptdthree=\pafive\fi
         \if\endrr\brfour \let\ptdfour=\pafive\fi
         \if\endrr\brfive \let\ptdfive=\pafive\fi
         \if\endrr\brsix \let\ptdsix=\pafive\fi
         \if\endrr\brseven \let\ptdseven=\pafive\fi
         \if\endrr\breight \let\ptdeight=\pafive\fi
         \if\endrr\brnine \let\ptdnine=\pafive\fi
         \if\endrr\brnull \let\ptdnull=\pafive\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pafive\fi
         \if\endrr\brtwo \let\ptetwo=\pafive\fi
         \if\endrr\brthree \let\ptethree=\pafive\fi
         \if\endrr\brfour \let\ptefour=\pafive\fi
         \if\endrr\brfive \let\ptefive=\pafive\fi
         \if\endrr\brsix \let\ptesix=\pafive\fi
         \if\endrr\brseven \let\pteseven=\pafive\fi
         \if\endrr\breight \let\pteeight=\pafive\fi
         \if\endrr\brnine \let\ptenine=\pafive\fi
         \if\endrr\brnull \let\ptenull=\pafive\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pafive\fi
         \if\endrr\brtwo \let\ptftwo=\pafive\fi
         \if\endrr\brthree \let\ptfthree=\pafive\fi
         \if\endrr\brfour \let\ptffour=\pafive\fi
         \if\endrr\brfive \let\ptffive=\pafive\fi
         \if\endrr\brsix \let\ptfsix=\pafive\fi
         \if\endrr\brseven \let\ptfseven=\pafive\fi
         \if\endrr\breight \let\ptfeight=\pafive\fi
         \if\endrr\brnine \let\ptfnine=\pafive\fi
         \if\endrr\brnull \let\ptfnull=\pafive\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pafive\fi
         \if\endrr\brtwo \let\ptgtwo=\pafive\fi
         \if\endrr\brthree \let\ptgthree=\pafive\fi
         \if\endrr\brfour \let\ptgfour=\pafive\fi
         \if\endrr\brfive \let\ptgfive=\pafive\fi
         \if\endrr\brsix \let\ptgsix=\pafive\fi
         \if\endrr\brseven \let\ptgseven=\pafive\fi
         \if\endrr\breight \let\ptgeight=\pafive\fi
         \if\endrr\brnine \let\ptgnine=\pafive\fi
         \if\endrr\brnull \let\ptgnull=\pafive\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pafive\fi
         \if\endrr\brtwo \let\pthtwo=\pafive\fi
         \if\endrr\brthree \let\pththree=\pafive\fi
         \if\endrr\brfour \let\pthfour=\pafive\fi
         \if\endrr\brfive \let\pthfive=\pafive\fi
         \if\endrr\brsix \let\pthsix=\pafive\fi
         \if\endrr\brseven \let\pthseven=\pafive\fi
         \if\endrr\breight \let\ptheight=\pafive\fi
         \if\endrr\brnine \let\pthnine=\pafive\fi
         \if\endrr\brnull \let\pthnull=\pafive\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pafive\fi
         \if\endrr\brtwo \let\ptitwo=\pafive\fi
         \if\endrr\brthree \let\ptithree=\pafive\fi
         \if\endrr\brfour \let\ptifour=\pafive\fi
         \if\endrr\brfive \let\ptifive=\pafive\fi
         \if\endrr\brsix \let\ptisix=\pafive\fi
         \if\endrr\brseven \let\ptiseven=\pafive\fi
         \if\endrr\breight \let\ptieight=\pafive\fi
         \if\endrr\brnine \let\ptinine=\pafive\fi
         \if\endrr\brnull \let\ptinull=\pafive\fi\fi\fi   
   \if\startrr\brsix \asixset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pasix\fi
         \if\endrr\brtwo \let\ptatwo=\pasix\fi
         \if\endrr\brthree \let\ptathree=\pasix\fi
         \if\endrr\brfour \let\ptafour=\pasix\fi
         \if\endrr\brfive \let\ptafive=\pasix\fi
         \if\endrr\brsix \let\ptasix=\pasix\fi
         \if\endrr\brseven \let\ptaseven=\pasix\fi
         \if\endrr\breight \let\ptaeight=\pasix\fi
         \if\endrr\brnine \let\ptanine=\pasix\fi
         \if\endrr\brnull \let\ptanull=\pasix\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pasix\fi
         \if\endrr\brtwo \let\ptbtwo=\pasix\fi
         \if\endrr\brthree \let\ptbthree=\pasix\fi
         \if\endrr\brfour \let\ptbfour=\pasix\fi
         \if\endrr\brfive \let\ptbfive=\pasix\fi
         \if\endrr\brsix \let\ptbsix=\pasix\fi
         \if\endrr\brseven \let\ptbseven=\pasix\fi
         \if\endrr\breight \let\ptbeight=\pasix\fi
         \if\endrr\brnine \let\ptbnine=\pasix\fi
         \if\endrr\brnull \let\ptbnull=\pasix\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pasix\fi
         \if\endrr\brtwo \let\ptctwo=\pasix\fi
         \if\endrr\brthree \let\ptcthree=\pasix\fi
         \if\endrr\brfour \let\ptcfour=\pasix\fi
         \if\endrr\brfive \let\ptcfive=\pasix\fi
         \if\endrr\brsix \let\ptcsix=\pasix\fi
         \if\endrr\brseven \let\ptcseven=\pasix\fi
         \if\endrr\breight \let\ptceight=\pasix\fi
         \if\endrr\brnine \let\ptcnine=\pasix\fi
         \if\endrr\brnull \let\ptcnull=\pasix\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pasix\fi
         \if\endrr\brtwo \let\ptdtwo=\pasix\fi
         \if\endrr\brthree \let\ptdthree=\pasix\fi
         \if\endrr\brfour \let\ptdfour=\pasix\fi
         \if\endrr\brfive \let\ptdfive=\pasix\fi
         \if\endrr\brsix \let\ptdsix=\pasix\fi
         \if\endrr\brseven \let\ptdseven=\pasix\fi
         \if\endrr\breight \let\ptdeight=\pasix\fi
         \if\endrr\brnine \let\ptdnine=\pasix\fi
         \if\endrr\brnull \let\ptdnull=\pasix\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pasix\fi
         \if\endrr\brtwo \let\ptetwo=\pasix\fi
         \if\endrr\brthree \let\ptethree=\pasix\fi
         \if\endrr\brfour \let\ptefour=\pasix\fi
         \if\endrr\brfive \let\ptefive=\pasix\fi
         \if\endrr\brsix \let\ptesix=\pasix\fi
         \if\endrr\brseven \let\pteseven=\pasix\fi
         \if\endrr\breight \let\pteeight=\pasix\fi
         \if\endrr\brnine \let\ptenine=\pasix\fi
         \if\endrr\brnull \let\ptenull=\pasix\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pasix\fi
         \if\endrr\brtwo \let\ptftwo=\pasix\fi
         \if\endrr\brthree \let\ptfthree=\pasix\fi
         \if\endrr\brfour \let\ptffour=\pasix\fi
         \if\endrr\brfive \let\ptffive=\pasix\fi
         \if\endrr\brsix \let\ptfsix=\pasix\fi
         \if\endrr\brseven \let\ptfseven=\pasix\fi
         \if\endrr\breight \let\ptfeight=\pasix\fi
         \if\endrr\brnine \let\ptfnine=\pasix\fi
         \if\endrr\brnull \let\ptfnull=\pasix\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pasix\fi
         \if\endrr\brtwo \let\ptgtwo=\pasix\fi
         \if\endrr\brthree \let\ptgthree=\pasix\fi
         \if\endrr\brfour \let\ptgfour=\pasix\fi
         \if\endrr\brfive \let\ptgfive=\pasix\fi
         \if\endrr\brsix \let\ptgsix=\pasix\fi
         \if\endrr\brseven \let\ptgseven=\pasix\fi
         \if\endrr\breight \let\ptgeight=\pasix\fi
         \if\endrr\brnine \let\ptgnine=\pasix\fi
         \if\endrr\brnull \let\ptgnull=\pasix\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pasix\fi
         \if\endrr\brtwo \let\pthtwo=\pasix\fi
         \if\endrr\brthree \let\pththree=\pasix\fi
         \if\endrr\brfour \let\pthfour=\pasix\fi
         \if\endrr\brfive \let\pthfive=\pasix\fi
         \if\endrr\brsix \let\pthsix=\pasix\fi
         \if\endrr\brseven \let\pthseven=\pasix\fi
         \if\endrr\breight \let\ptheight=\pasix\fi
         \if\endrr\brnine \let\pthnine=\pasix\fi
         \if\endrr\brnull \let\pthnull=\pasix\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pasix\fi
         \if\endrr\brtwo \let\ptitwo=\pasix\fi
         \if\endrr\brthree \let\ptithree=\pasix\fi
         \if\endrr\brfour \let\ptifour=\pasix\fi
         \if\endrr\brfive \let\ptifive=\pasix\fi
         \if\endrr\brsix \let\ptisix=\pasix\fi
         \if\endrr\brseven \let\ptiseven=\pasix\fi
         \if\endrr\breight \let\ptieight=\pasix\fi
         \if\endrr\brnine \let\ptinine=\pasix\fi
         \if\endrr\brnull \let\ptinull=\pasix\fi\fi\fi
   \if\startrr\brseven \asevenset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\paseven\fi
         \if\endrr\brtwo \let\ptatwo=\paseven\fi
         \if\endrr\brthree \let\ptathree=\paseven\fi
         \if\endrr\brfour \let\ptafour=\paseven\fi
         \if\endrr\brfive \let\ptafive=\paseven\fi
         \if\endrr\brsix \let\ptasix=\paseven\fi
         \if\endrr\brseven \let\ptaseven=\paseven\fi
         \if\endrr\breight \let\ptaeight=\paseven\fi
         \if\endrr\brnine \let\ptanine=\paseven\fi
         \if\endrr\brnull \let\ptanull=\paseven\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\paseven\fi
         \if\endrr\brtwo \let\ptbtwo=\paseven\fi
         \if\endrr\brthree \let\ptbthree=\paseven\fi
         \if\endrr\brfour \let\ptbfour=\paseven\fi
         \if\endrr\brfive \let\ptbfive=\paseven\fi
         \if\endrr\brsix \let\ptbsix=\paseven\fi
         \if\endrr\brseven \let\ptbseven=\paseven\fi
         \if\endrr\breight \let\ptbeight=\paseven\fi
         \if\endrr\brnine \let\ptbnine=\paseven\fi
         \if\endrr\brnull \let\ptbnull=\paseven\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\paseven\fi
         \if\endrr\brtwo \let\ptctwo=\paseven\fi
         \if\endrr\brthree \let\ptcthree=\paseven\fi
         \if\endrr\brfour \let\ptcfour=\paseven\fi
         \if\endrr\brfive \let\ptcfive=\paseven\fi
         \if\endrr\brsix \let\ptcsix=\paseven\fi
         \if\endrr\brseven \let\ptcseven=\paseven\fi
         \if\endrr\breight \let\ptceight=\paseven\fi
         \if\endrr\brnine \let\ptcnine=\paseven\fi
         \if\endrr\brnull \let\ptcnull=\paseven\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\paseven\fi
         \if\endrr\brtwo \let\ptdtwo=\paseven\fi
         \if\endrr\brthree \let\ptdthree=\paseven\fi
         \if\endrr\brfour \let\ptdfour=\paseven\fi
         \if\endrr\brfive \let\ptdfive=\paseven\fi
         \if\endrr\brsix \let\ptdsix=\paseven\fi
         \if\endrr\brseven \let\ptdseven=\paseven\fi
         \if\endrr\breight \let\ptdeight=\paseven\fi
         \if\endrr\brnine \let\ptdnine=\paseven\fi
         \if\endrr\brnull \let\ptdnull=\paseven\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\paseven\fi
         \if\endrr\brtwo \let\ptetwo=\paseven\fi
         \if\endrr\brthree \let\ptethree=\paseven\fi
         \if\endrr\brfour \let\ptefour=\paseven\fi
         \if\endrr\brfive \let\ptefive=\paseven\fi
         \if\endrr\brsix \let\ptesix=\paseven\fi
         \if\endrr\brseven \let\pteseven=\paseven\fi
         \if\endrr\breight \let\pteeight=\paseven\fi
         \if\endrr\brnine \let\ptenine=\paseven\fi
         \if\endrr\brnull \let\ptenull=\paseven\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\paseven\fi
         \if\endrr\brtwo \let\ptftwo=\paseven\fi
         \if\endrr\brthree \let\ptfthree=\paseven\fi
         \if\endrr\brfour \let\ptffour=\paseven\fi
         \if\endrr\brfive \let\ptffive=\paseven\fi
         \if\endrr\brsix \let\ptfsix=\paseven\fi
         \if\endrr\brseven \let\ptfseven=\paseven\fi
         \if\endrr\breight \let\ptfeight=\paseven\fi
         \if\endrr\brnine \let\ptfnine=\paseven\fi
         \if\endrr\brnull \let\ptfnull=\paseven\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\paseven\fi
         \if\endrr\brtwo \let\ptgtwo=\paseven\fi
         \if\endrr\brthree \let\ptgthree=\paseven\fi
         \if\endrr\brfour \let\ptgfour=\paseven\fi
         \if\endrr\brfive \let\ptgfive=\paseven\fi
         \if\endrr\brsix \let\ptgsix=\paseven\fi
         \if\endrr\brseven \let\ptgseven=\paseven\fi
         \if\endrr\breight \let\ptgeight=\paseven\fi
         \if\endrr\brnine \let\ptgnine=\paseven\fi
         \if\endrr\brnull \let\ptgnull=\paseven\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\paseven\fi
         \if\endrr\brtwo \let\pthtwo=\paseven\fi
         \if\endrr\brthree \let\pththree=\paseven\fi
         \if\endrr\brfour \let\pthfour=\paseven\fi
         \if\endrr\brfive \let\pthfive=\paseven\fi
         \if\endrr\brsix \let\pthsix=\paseven\fi
         \if\endrr\brseven \let\pthseven=\paseven\fi
         \if\endrr\breight \let\ptheight=\paseven\fi
         \if\endrr\brnine \let\pthnine=\paseven\fi
         \if\endrr\brnull \let\pthnull=\paseven\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\paseven\fi
         \if\endrr\brtwo \let\ptitwo=\paseven\fi
         \if\endrr\brthree \let\ptithree=\paseven\fi
         \if\endrr\brfour \let\ptifour=\paseven\fi
         \if\endrr\brfive \let\ptifive=\paseven\fi
         \if\endrr\brsix \let\ptisix=\paseven\fi
         \if\endrr\brseven \let\ptiseven=\paseven\fi
         \if\endrr\breight \let\ptieight=\paseven\fi
         \if\endrr\brnine \let\ptinine=\paseven\fi
         \if\endrr\brnull \let\ptinull=\paseven\fi\fi\fi      
   \if\startrr\breight \aeightset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\paeight\fi
         \if\endrr\brtwo \let\ptatwo=\paeight\fi
         \if\endrr\brthree \let\ptathree=\paeight\fi
         \if\endrr\brfour \let\ptafour=\paeight\fi
         \if\endrr\brfive \let\ptafive=\paeight\fi
         \if\endrr\brsix \let\ptasix=\paeight\fi
         \if\endrr\brseven \let\ptaseven=\paeight\fi
         \if\endrr\breight \let\ptaeight=\paeight\fi
         \if\endrr\brnine \let\ptanine=\paeight\fi
         \if\endrr\brnull \let\ptanull=\paeight\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\paeight\fi
         \if\endrr\brtwo \let\ptbtwo=\paeight\fi
         \if\endrr\brthree \let\ptbthree=\paeight\fi
         \if\endrr\brfour \let\ptbfour=\paeight\fi
         \if\endrr\brfive \let\ptbfive=\paeight\fi
         \if\endrr\brsix \let\ptbsix=\paeight\fi
         \if\endrr\brseven \let\ptbseven=\paeight\fi
         \if\endrr\breight \let\ptbeight=\paeight\fi
         \if\endrr\brnine \let\ptbnine=\paeight\fi
         \if\endrr\brnull \let\ptbnull=\paeight\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\paeight\fi
         \if\endrr\brtwo \let\ptctwo=\paeight\fi
         \if\endrr\brthree \let\ptcthree=\paeight\fi
         \if\endrr\brfour \let\ptcfour=\paeight\fi
         \if\endrr\brfive \let\ptcfive=\paeight\fi
         \if\endrr\brsix \let\ptcsix=\paeight\fi
         \if\endrr\brseven \let\ptcseven=\paeight\fi
         \if\endrr\breight \let\ptceight=\paeight\fi
         \if\endrr\brnine \let\ptcnine=\paeight\fi
         \if\endrr\brnull \let\ptcnull=\paeight\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\paeight\fi
         \if\endrr\brtwo \let\ptdtwo=\paeight\fi
         \if\endrr\brthree \let\ptdthree=\paeight\fi
         \if\endrr\brfour \let\ptdfour=\paeight\fi
         \if\endrr\brfive \let\ptdfive=\paeight\fi
         \if\endrr\brsix \let\ptdsix=\paeight\fi
         \if\endrr\brseven \let\ptdseven=\paeight\fi
         \if\endrr\breight \let\ptdeight=\paeight\fi
         \if\endrr\brnine \let\ptdnine=\paeight\fi
         \if\endrr\brnull \let\ptdnull=\paeight\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\paeight\fi
         \if\endrr\brtwo \let\ptetwo=\paeight\fi
         \if\endrr\brthree \let\ptethree=\paeight\fi
         \if\endrr\brfour \let\ptefour=\paeight\fi
         \if\endrr\brfive \let\ptefive=\paeight\fi
         \if\endrr\brsix \let\ptesix=\paeight\fi
         \if\endrr\brseven \let\pteseven=\paeight\fi
         \if\endrr\breight \let\pteeight=\paeight\fi
         \if\endrr\brnine \let\ptenine=\paeight\fi
         \if\endrr\brnull \let\ptenull=\paeight\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\paeight\fi
         \if\endrr\brtwo \let\ptftwo=\paeight\fi
         \if\endrr\brthree \let\ptfthree=\paeight\fi
         \if\endrr\brfour \let\ptffour=\paeight\fi
         \if\endrr\brfive \let\ptffive=\paeight\fi
         \if\endrr\brsix \let\ptfsix=\paeight\fi
         \if\endrr\brseven \let\ptfseven=\paeight\fi
         \if\endrr\breight \let\ptfeight=\paeight\fi
         \if\endrr\brnine \let\ptfnine=\paeight\fi
         \if\endrr\brnull \let\ptfnull=\paeight\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\paeight\fi
         \if\endrr\brtwo \let\ptgtwo=\paeight\fi
         \if\endrr\brthree \let\ptgthree=\paeight\fi
         \if\endrr\brfour \let\ptgfour=\paeight\fi
         \if\endrr\brfive \let\ptgfive=\paeight\fi
         \if\endrr\brsix \let\ptgsix=\paeight\fi
         \if\endrr\brseven \let\ptgseven=\paeight\fi
         \if\endrr\breight \let\ptgeight=\paeight\fi
         \if\endrr\brnine \let\ptgnine=\paeight\fi
         \if\endrr\brnull \let\ptgnull=\paeight\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\paeight\fi
         \if\endrr\brtwo \let\pthtwo=\paeight\fi
         \if\endrr\brthree \let\pththree=\paeight\fi
         \if\endrr\brfour \let\pthfour=\paeight\fi
         \if\endrr\brfive \let\pthfive=\paeight\fi
         \if\endrr\brsix \let\pthsix=\paeight\fi
         \if\endrr\brseven \let\pthseven=\paeight\fi
         \if\endrr\breight \let\ptheight=\paeight\fi
         \if\endrr\brnine \let\pthnine=\paeight\fi
         \if\endrr\brnull \let\pthnull=\paeight\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\paeight\fi
         \if\endrr\brtwo \let\ptitwo=\paeight\fi
         \if\endrr\brthree \let\ptithree=\paeight\fi
         \if\endrr\brfour \let\ptifour=\paeight\fi
         \if\endrr\brfive \let\ptifive=\paeight\fi
         \if\endrr\brsix \let\ptisix=\paeight\fi
         \if\endrr\brseven \let\ptiseven=\paeight\fi
         \if\endrr\breight \let\ptieight=\paeight\fi
         \if\endrr\brnine \let\ptinine=\paeight\fi
         \if\endrr\brnull \let\ptinull=\paeight\fi\fi\fi      
   \if\startrr\brnine \anineset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\panine\fi
         \if\endrr\brtwo \let\ptatwo=\panine\fi
         \if\endrr\brthree \let\ptathree=\panine\fi
         \if\endrr\brfour \let\ptafour=\panine\fi
         \if\endrr\brfive \let\ptafive=\panine\fi
         \if\endrr\brsix \let\ptasix=\panine\fi
         \if\endrr\brseven \let\ptaseven=\panine\fi
         \if\endrr\breight \let\ptaeight=\panine\fi
         \if\endrr\brnine \let\ptanine=\panine\fi
         \if\endrr\brnull \let\ptanull=\panine\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\panine\fi
         \if\endrr\brtwo \let\ptbtwo=\panine\fi
         \if\endrr\brthree \let\ptbthree=\panine\fi
         \if\endrr\brfour \let\ptbfour=\panine\fi
         \if\endrr\brfive \let\ptbfive=\panine\fi
         \if\endrr\brsix \let\ptbsix=\panine\fi
         \if\endrr\brseven \let\ptbseven=\panine\fi
         \if\endrr\breight \let\ptbeight=\panine\fi
         \if\endrr\brnine \let\ptbnine=\panine\fi
         \if\endrr\brnull \let\ptbnull=\panine\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\panine\fi
         \if\endrr\brtwo \let\ptctwo=\panine\fi
         \if\endrr\brthree \let\ptcthree=\panine\fi
         \if\endrr\brfour \let\ptcfour=\panine\fi
         \if\endrr\brfive \let\ptcfive=\panine\fi
         \if\endrr\brsix \let\ptcsix=\panine\fi
         \if\endrr\brseven \let\ptcseven=\panine\fi
         \if\endrr\breight \let\ptceight=\panine\fi
         \if\endrr\brnine \let\ptcnine=\panine\fi
         \if\endrr\brnull \let\ptcnull=\panine\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\panine\fi
         \if\endrr\brtwo \let\ptdtwo=\panine\fi
         \if\endrr\brthree \let\ptdthree=\panine\fi
         \if\endrr\brfour \let\ptdfour=\panine\fi
         \if\endrr\brfive \let\ptdfive=\panine\fi
         \if\endrr\brsix \let\ptdsix=\panine\fi
         \if\endrr\brseven \let\ptdseven=\panine\fi
         \if\endrr\breight \let\ptdeight=\panine\fi
         \if\endrr\brnine \let\ptdnine=\panine\fi
         \if\endrr\brnull \let\ptdnull=\panine\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\panine\fi
         \if\endrr\brtwo \let\ptetwo=\panine\fi
         \if\endrr\brthree \let\ptethree=\panine\fi
         \if\endrr\brfour \let\ptefour=\panine\fi
         \if\endrr\brfive \let\ptefive=\panine\fi
         \if\endrr\brsix \let\ptesix=\panine\fi
         \if\endrr\brseven \let\pteseven=\panine\fi
         \if\endrr\breight \let\pteeight=\panine\fi
         \if\endrr\brnine \let\ptenine=\panine\fi
         \if\endrr\brnull \let\ptenull=\panine\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\panine\fi
         \if\endrr\brtwo \let\ptftwo=\panine\fi
         \if\endrr\brthree \let\ptfthree=\panine\fi
         \if\endrr\brfour \let\ptffour=\panine\fi
         \if\endrr\brfive \let\ptffive=\panine\fi
         \if\endrr\brsix \let\ptfsix=\panine\fi
         \if\endrr\brseven \let\ptfseven=\panine\fi
         \if\endrr\breight \let\ptfeight=\panine\fi
         \if\endrr\brnine \let\ptfnine=\panine\fi
         \if\endrr\brnull \let\ptfnull=\panine\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\panine\fi
         \if\endrr\brtwo \let\ptgtwo=\panine\fi
         \if\endrr\brthree \let\ptgthree=\panine\fi
         \if\endrr\brfour \let\ptgfour=\panine\fi
         \if\endrr\brfive \let\ptgfive=\panine\fi
         \if\endrr\brsix \let\ptgsix=\panine\fi
         \if\endrr\brseven \let\ptgseven=\panine\fi
         \if\endrr\breight \let\ptgeight=\panine\fi
         \if\endrr\brnine \let\ptgnine=\panine\fi
         \if\endrr\brnull \let\ptgnull=\panine\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\panine\fi
         \if\endrr\brtwo \let\pthtwo=\panine\fi
         \if\endrr\brthree \let\pththree=\panine\fi
         \if\endrr\brfour \let\pthfour=\panine\fi
         \if\endrr\brfive \let\pthfive=\panine\fi
         \if\endrr\brsix \let\pthsix=\panine\fi
         \if\endrr\brseven \let\pthseven=\panine\fi
         \if\endrr\breight \let\ptheight=\panine\fi
         \if\endrr\brnine \let\pthnine=\panine\fi
         \if\endrr\brnull \let\pthnull=\panine\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\panine\fi
         \if\endrr\brtwo \let\ptitwo=\panine\fi
         \if\endrr\brthree \let\ptithree=\panine\fi
         \if\endrr\brfour \let\ptifour=\panine\fi
         \if\endrr\brfive \let\ptifive=\panine\fi
         \if\endrr\brsix \let\ptisix=\panine\fi
         \if\endrr\brseven \let\ptiseven=\panine\fi
         \if\endrr\breight \let\ptieight=\panine\fi
         \if\endrr\brnine \let\ptinine=\panine\fi
         \if\endrr\brnull \let\ptinull=\panine\fi\fi\fi      
   \if\startrr\brnull \anullset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\panull\fi
         \if\endrr\brtwo \let\ptatwo=\panull\fi
         \if\endrr\brthree \let\ptathree=\panull\fi
         \if\endrr\brfour \let\ptafour=\panull\fi
         \if\endrr\brfive \let\ptafive=\panull\fi
         \if\endrr\brsix \let\ptasix=\panull\fi
         \if\endrr\brseven \let\ptaseven=\panull\fi
         \if\endrr\breight \let\ptaeight=\panull\fi
         \if\endrr\brnine \let\ptanine=\panull\fi
         \if\endrr\brnull \let\ptanull=\panull\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\panull\fi
         \if\endrr\brtwo \let\ptbtwo=\panull\fi
         \if\endrr\brthree \let\ptbthree=\panull\fi
         \if\endrr\brfour \let\ptbfour=\panull\fi
         \if\endrr\brfive \let\ptbfive=\panull\fi
         \if\endrr\brsix \let\ptbsix=\panull\fi
         \if\endrr\brseven \let\ptbseven=\panull\fi
         \if\endrr\breight \let\ptbeight=\panull\fi
         \if\endrr\brnine \let\ptbnine=\panull\fi
         \if\endrr\brnull \let\ptbnull=\panull\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\panull\fi
         \if\endrr\brtwo \let\ptctwo=\panull\fi
         \if\endrr\brthree \let\ptcthree=\panull\fi
         \if\endrr\brfour \let\ptcfour=\panull\fi
         \if\endrr\brfive \let\ptcfive=\panull\fi
         \if\endrr\brsix \let\ptcsix=\panull\fi
         \if\endrr\brseven \let\ptcseven=\panull\fi
         \if\endrr\breight \let\ptceight=\panull\fi
         \if\endrr\brnine \let\ptcnine=\panull\fi
         \if\endrr\brnull \let\ptcnull=\panull\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\panull\fi
         \if\endrr\brtwo \let\ptdtwo=\panull\fi
         \if\endrr\brthree \let\ptdthree=\panull\fi
         \if\endrr\brfour \let\ptdfour=\panull\fi
         \if\endrr\brfive \let\ptdfive=\panull\fi
         \if\endrr\brsix \let\ptdsix=\panull\fi
         \if\endrr\brseven \let\ptdseven=\panull\fi
         \if\endrr\breight \let\ptdeight=\panull\fi
         \if\endrr\brnine \let\ptdnine=\panull\fi
         \if\endrr\brnull \let\ptdnull=\panull\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\panull\fi
         \if\endrr\brtwo \let\ptetwo=\panull\fi
         \if\endrr\brthree \let\ptethree=\panull\fi
         \if\endrr\brfour \let\ptefour=\panull\fi
         \if\endrr\brfive \let\ptefive=\panull\fi
         \if\endrr\brsix \let\ptesix=\panull\fi
         \if\endrr\brseven \let\pteseven=\panull\fi
         \if\endrr\breight \let\pteeight=\panull\fi
         \if\endrr\brnine \let\ptenine=\panull\fi
         \if\endrr\brnull \let\ptenull=\panull\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\panull\fi
         \if\endrr\brtwo \let\ptftwo=\panull\fi
         \if\endrr\brthree \let\ptfthree=\panull\fi
         \if\endrr\brfour \let\ptffour=\panull\fi
         \if\endrr\brfive \let\ptffive=\panull\fi
         \if\endrr\brsix \let\ptfsix=\panull\fi
         \if\endrr\brseven \let\ptfseven=\panull\fi
         \if\endrr\breight \let\ptfeight=\panull\fi
         \if\endrr\brnine \let\ptfnine=\panull\fi
         \if\endrr\brnull \let\ptfnull=\panull\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\panull\fi
         \if\endrr\brtwo \let\ptgtwo=\panull\fi
         \if\endrr\brthree \let\ptgthree=\panull\fi
         \if\endrr\brfour \let\ptgfour=\panull\fi
         \if\endrr\brfive \let\ptgfive=\panull\fi
         \if\endrr\brsix \let\ptgsix=\panull\fi
         \if\endrr\brseven \let\ptgseven=\panull\fi
         \if\endrr\breight \let\ptgeight=\panull\fi
         \if\endrr\brnine \let\ptgnine=\panull\fi
         \if\endrr\brnull \let\ptgnull=\panull\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\panull\fi
         \if\endrr\brtwo \let\pthtwo=\panull\fi
         \if\endrr\brthree \let\pththree=\panull\fi
         \if\endrr\brfour \let\pthfour=\panull\fi
         \if\endrr\brfive \let\pthfive=\panull\fi
         \if\endrr\brsix \let\pthsix=\panull\fi
         \if\endrr\brseven \let\pthseven=\panull\fi
         \if\endrr\breight \let\ptheight=\panull\fi
         \if\endrr\brnine \let\pthnine=\panull\fi
         \if\endrr\brnull \let\pthnull=\panull\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\panull\fi
         \if\endrr\brtwo \let\ptitwo=\panull\fi
         \if\endrr\brthree \let\ptithree=\panull\fi
         \if\endrr\brfour \let\ptifour=\panull\fi
         \if\endrr\brfive \let\ptifive=\panull\fi
         \if\endrr\brsix \let\ptisix=\panull\fi
         \if\endrr\brseven \let\ptiseven=\panull\fi
         \if\endrr\breight \let\ptieight=\panull\fi
         \if\endrr\brnine \let\ptinine=\panull\fi
         \if\endrr\brnull \let\ptinull=\panull\fi\fi\fi\fi      
\if\startlr\bli
   \if\startrr\brone \boneset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pbone\fi
         \if\endrr\brtwo \let\ptatwo=\pbone\fi
         \if\endrr\brthree \let\ptathree=\pbone\fi
         \if\endrr\brfour \let\ptafour=\pbone\fi
         \if\endrr\brfive \let\ptafive=\pbone\fi
         \if\endrr\brsix \let\ptasix=\pbone\fi
         \if\endrr\brseven \let\ptaseven=\pbone\fi
         \if\endrr\breight \let\ptaeight=\pbone\fi
         \if\endrr\brnine \let\ptanine=\pbone\fi
         \if\endrr\brnull \let\ptanull=\pbone\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pbone\fi
         \if\endrr\brtwo \let\ptbtwo=\pbone\fi
         \if\endrr\brthree \let\ptbthree=\pbone\fi
         \if\endrr\brfour \let\ptbfour=\pbone\fi
         \if\endrr\brfive \let\ptbfive=\pbone\fi
         \if\endrr\brsix \let\ptbsix=\pbone\fi
         \if\endrr\brseven \let\ptbseven=\pbone\fi
         \if\endrr\breight \let\ptbeight=\pbone\fi
         \if\endrr\brnine \let\ptbnine=\pbone\fi
         \if\endrr\brnull \let\ptbnull=\pbone\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pbone\fi
         \if\endrr\brtwo \let\ptctwo=\pbone\fi
         \if\endrr\brthree \let\ptcthree=\pbone\fi
         \if\endrr\brfour \let\ptcfour=\pbone\fi
         \if\endrr\brfive \let\ptcfive=\pbone\fi
         \if\endrr\brsix \let\ptcsix=\pbone\fi
         \if\endrr\brseven \let\ptcseven=\pbone\fi
         \if\endrr\breight \let\ptceight=\pbone\fi
         \if\endrr\brnine \let\ptcnine=\pbone\fi
         \if\endrr\brnull \let\ptcnull=\pbone\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pbone\fi
         \if\endrr\brtwo \let\ptdtwo=\pbone\fi
         \if\endrr\brthree \let\ptdthree=\pbone\fi
         \if\endrr\brfour \let\ptdfour=\pbone\fi
         \if\endrr\brfive \let\ptdfive=\pbone\fi
         \if\endrr\brsix \let\ptdsix=\pbone\fi
         \if\endrr\brseven \let\ptdseven=\pbone\fi
         \if\endrr\breight \let\ptdeight=\pbone\fi
         \if\endrr\brnine \let\ptdnine=\pbone\fi
         \if\endrr\brnull \let\ptdnull=\pbone\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pbone\fi
         \if\endrr\brtwo \let\ptetwo=\pbone\fi
         \if\endrr\brthree \let\ptethree=\pbone\fi
         \if\endrr\brfour \let\ptefour=\pbone\fi
         \if\endrr\brfive \let\ptefive=\pbone\fi
         \if\endrr\brsix \let\ptesix=\pbone\fi
         \if\endrr\brseven \let\pteseven=\pbone\fi
         \if\endrr\breight \let\pteeight=\pbone\fi
         \if\endrr\brnine \let\ptenine=\pbone\fi
         \if\endrr\brnull \let\ptenull=\pbone\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pbone\fi
         \if\endrr\brtwo \let\ptftwo=\pbone\fi
         \if\endrr\brthree \let\ptfthree=\pbone\fi
         \if\endrr\brfour \let\ptffour=\pbone\fi
         \if\endrr\brfive \let\ptffive=\pbone\fi
         \if\endrr\brsix \let\ptfsix=\pbone\fi
         \if\endrr\brseven \let\ptfseven=\pbone\fi
         \if\endrr\breight \let\ptfeight=\pbone\fi
         \if\endrr\brnine \let\ptfnine=\pbone\fi
         \if\endrr\brnull \let\ptfnull=\pbone\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pbone\fi
         \if\endrr\brtwo \let\ptgtwo=\pbone\fi
         \if\endrr\brthree \let\ptgthree=\pbone\fi
         \if\endrr\brfour \let\ptgfour=\pbone\fi
         \if\endrr\brfive \let\ptgfive=\pbone\fi
         \if\endrr\brsix \let\ptgsix=\pbone\fi
         \if\endrr\brseven \let\ptgseven=\pbone\fi
         \if\endrr\breight \let\ptgeight=\pbone\fi
         \if\endrr\brnine \let\ptgnine=\pbone\fi
         \if\endrr\brnull \let\ptgnull=\pbone\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pbone\fi
         \if\endrr\brtwo \let\pthtwo=\pbone\fi
         \if\endrr\brthree \let\pththree=\pbone\fi
         \if\endrr\brfour \let\pthfour=\pbone\fi
         \if\endrr\brfive \let\pthfive=\pbone\fi
         \if\endrr\brsix \let\pthsix=\pbone\fi
         \if\endrr\brseven \let\pthseven=\pbone\fi
         \if\endrr\breight \let\ptheight=\pbone\fi
         \if\endrr\brnine \let\pthnine=\pbone\fi
         \if\endrr\brnull \let\pthnull=\pbone\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pbone\fi
         \if\endrr\brtwo \let\ptitwo=\pbone\fi
         \if\endrr\brthree \let\ptithree=\pbone\fi
         \if\endrr\brfour \let\ptifour=\pbone\fi
         \if\endrr\brfive \let\ptifive=\pbone\fi
         \if\endrr\brsix \let\ptisix=\pbone\fi
         \if\endrr\brseven \let\ptiseven=\pbone\fi
         \if\endrr\breight \let\ptieight=\pbone\fi
         \if\endrr\brnine \let\ptinine=\pbone\fi
         \if\endrr\brnull \let\ptinull=\pbone\fi\fi\fi      
   \if\startrr\brtwo \btwoset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pbtwo\fi
         \if\endrr\brtwo \let\ptatwo=\pbtwo\fi
         \if\endrr\brthree \let\ptathree=\pbtwo\fi
         \if\endrr\brfour \let\ptafour=\pbtwo\fi
         \if\endrr\brfive \let\ptafive=\pbtwo\fi
         \if\endrr\brsix \let\ptasix=\pbtwo\fi
         \if\endrr\brseven \let\ptaseven=\pbtwo\fi
         \if\endrr\breight \let\ptaeight=\pbtwo\fi
         \if\endrr\brnine \let\ptanine=\pbtwo\fi
         \if\endrr\brnull \let\ptanull=\pbtwo\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pbtwo\fi
         \if\endrr\brtwo \let\ptbtwo=\pbtwo\fi
         \if\endrr\brthree \let\ptbthree=\pbtwo\fi
         \if\endrr\brfour \let\ptbfour=\pbtwo\fi
         \if\endrr\brfive \let\ptbfive=\pbtwo\fi
         \if\endrr\brsix \let\ptbsix=\pbtwo\fi
         \if\endrr\brseven \let\ptbseven=\pbtwo\fi
         \if\endrr\breight \let\ptbeight=\pbtwo\fi
         \if\endrr\brnine \let\ptbnine=\pbtwo\fi
         \if\endrr\brnull \let\ptbnull=\pbtwo\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pbtwo\fi
         \if\endrr\brtwo \let\ptctwo=\pbtwo\fi
         \if\endrr\brthree \let\ptcthree=\pbtwo\fi
         \if\endrr\brfour \let\ptcfour=\pbtwo\fi
         \if\endrr\brfive \let\ptcfive=\pbtwo\fi
         \if\endrr\brsix \let\ptcsix=\pbtwo\fi
         \if\endrr\brseven \let\ptcseven=\pbtwo\fi
         \if\endrr\breight \let\ptceight=\pbtwo\fi
         \if\endrr\brnine \let\ptcnine=\pbtwo\fi
         \if\endrr\brnull \let\ptcnull=\pbtwo\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pbtwo\fi
         \if\endrr\brtwo \let\ptdtwo=\pbtwo\fi
         \if\endrr\brthree \let\ptdthree=\pbtwo\fi
         \if\endrr\brfour \let\ptdfour=\pbtwo\fi
         \if\endrr\brfive \let\ptdfive=\pbtwo\fi
         \if\endrr\brsix \let\ptdsix=\pbtwo\fi
         \if\endrr\brseven \let\ptdseven=\pbtwo\fi
         \if\endrr\breight \let\ptdeight=\pbtwo\fi
         \if\endrr\brnine \let\ptdnine=\pbtwo\fi
         \if\endrr\brnull \let\ptdnull=\pbtwo\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pbtwo\fi
         \if\endrr\brtwo \let\ptetwo=\pbtwo\fi
         \if\endrr\brthree \let\ptethree=\pbtwo\fi
         \if\endrr\brfour \let\ptefour=\pbtwo\fi
         \if\endrr\brfive \let\ptefive=\pbtwo\fi
         \if\endrr\brsix \let\ptesix=\pbtwo\fi
         \if\endrr\brseven \let\pteseven=\pbtwo\fi
         \if\endrr\breight \let\pteeight=\pbtwo\fi
         \if\endrr\brnine \let\ptenine=\pbtwo\fi
         \if\endrr\brnull \let\ptenull=\pbtwo\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pbtwo\fi
         \if\endrr\brtwo \let\ptftwo=\pbtwo\fi
         \if\endrr\brthree \let\ptfthree=\pbtwo\fi
         \if\endrr\brfour \let\ptffour=\pbtwo\fi
         \if\endrr\brfive \let\ptffive=\pbtwo\fi
         \if\endrr\brsix \let\ptfsix=\pbtwo\fi
         \if\endrr\brseven \let\ptfseven=\pbtwo\fi
         \if\endrr\breight \let\ptfeight=\pbtwo\fi
         \if\endrr\brnine \let\ptfnine=\pbtwo\fi
         \if\endrr\brnull \let\ptfnull=\pbtwo\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pbtwo\fi
         \if\endrr\brtwo \let\ptgtwo=\pbtwo\fi
         \if\endrr\brthree \let\ptgthree=\pbtwo\fi
         \if\endrr\brfour \let\ptgfour=\pbtwo\fi
         \if\endrr\brfive \let\ptgfive=\pbtwo\fi
         \if\endrr\brsix \let\ptgsix=\pbtwo\fi
         \if\endrr\brseven \let\ptgseven=\pbtwo\fi
         \if\endrr\breight \let\ptgeight=\pbtwo\fi
         \if\endrr\brnine \let\ptgnine=\pbtwo\fi
         \if\endrr\brnull \let\ptgnull=\pbtwo\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pbtwo\fi
         \if\endrr\brtwo \let\pthtwo=\pbtwo\fi
         \if\endrr\brthree \let\pththree=\pbtwo\fi
         \if\endrr\brfour \let\pthfour=\pbtwo\fi
         \if\endrr\brfive \let\pthfive=\pbtwo\fi
         \if\endrr\brsix \let\pthsix=\pbtwo\fi
         \if\endrr\brseven \let\pthseven=\pbtwo\fi
         \if\endrr\breight \let\ptheight=\pbtwo\fi
         \if\endrr\brnine \let\pthnine=\pbtwo\fi
         \if\endrr\brnull \let\pthnull=\pbtwo\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pbtwo\fi
         \if\endrr\brtwo \let\ptitwo=\pbtwo\fi
         \if\endrr\brthree \let\ptithree=\pbtwo\fi
         \if\endrr\brfour \let\ptifour=\pbtwo\fi
         \if\endrr\brfive \let\ptifive=\pbtwo\fi
         \if\endrr\brsix \let\ptisix=\pbtwo\fi
         \if\endrr\brseven \let\ptiseven=\pbtwo\fi
         \if\endrr\breight \let\ptieight=\pbtwo\fi
         \if\endrr\brnine \let\ptinine=\pbtwo\fi
         \if\endrr\brnull \let\ptinull=\pbtwo\fi\fi\fi
   \if\startrr\brthree \bthreeset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pbthree\fi
         \if\endrr\brtwo \let\ptatwo=\pbthree\fi
         \if\endrr\brthree \let\ptathree=\pbthree\fi
         \if\endrr\brfour \let\ptafour=\pbthree\fi
         \if\endrr\brfive \let\ptafive=\pbthree\fi
         \if\endrr\brsix \let\ptasix=\pbthree\fi
         \if\endrr\brseven \let\ptaseven=\pbthree\fi
         \if\endrr\breight \let\ptaeight=\pbthree\fi
         \if\endrr\brnine \let\ptanine=\pbthree\fi
         \if\endrr\brnull \let\ptanull=\pbthree\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pbthree\fi
         \if\endrr\brtwo \let\ptbtwo=\pbthree\fi
         \if\endrr\brthree \let\ptbthree=\pbthree\fi
         \if\endrr\brfour \let\ptbfour=\pbthree\fi
         \if\endrr\brfive \let\ptbfive=\pbthree\fi
         \if\endrr\brsix \let\ptbsix=\pbthree\fi
         \if\endrr\brseven \let\ptbseven=\pbthree\fi
         \if\endrr\breight \let\ptbeight=\pbthree\fi
         \if\endrr\brnine \let\ptbnine=\pbthree\fi
         \if\endrr\brnull \let\ptbnull=\pbthree\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pbthree\fi
         \if\endrr\brtwo \let\ptctwo=\pbthree\fi
         \if\endrr\brthree \let\ptcthree=\pbthree\fi
         \if\endrr\brfour \let\ptcfour=\pbthree\fi
         \if\endrr\brfive \let\ptcfive=\pbthree\fi
         \if\endrr\brsix \let\ptcsix=\pbthree\fi
         \if\endrr\brseven \let\ptcseven=\pbthree\fi
         \if\endrr\breight \let\ptceight=\pbthree\fi
         \if\endrr\brnine \let\ptcnine=\pbthree\fi
         \if\endrr\brnull \let\ptcnull=\pbthree\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pbthree\fi
         \if\endrr\brtwo \let\ptdtwo=\pbthree\fi
         \if\endrr\brthree \let\ptdthree=\pbthree\fi
         \if\endrr\brfour \let\ptdfour=\pbthree\fi
         \if\endrr\brfive \let\ptdfive=\pbthree\fi
         \if\endrr\brsix \let\ptdsix=\pbthree\fi
         \if\endrr\brseven \let\ptdseven=\pbthree\fi
         \if\endrr\breight \let\ptdeight=\pbthree\fi
         \if\endrr\brnine \let\ptdnine=\pbthree\fi
         \if\endrr\brnull \let\ptdnull=\pbthree\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pbthree\fi
         \if\endrr\brtwo \let\ptetwo=\pbthree\fi
         \if\endrr\brthree \let\ptethree=\pbthree\fi
         \if\endrr\brfour \let\ptefour=\pbthree\fi
         \if\endrr\brfive \let\ptefive=\pbthree\fi
         \if\endrr\brsix \let\ptesix=\pbthree\fi
         \if\endrr\brseven \let\pteseven=\pbthree\fi
         \if\endrr\breight \let\pteeight=\pbthree\fi
         \if\endrr\brnine \let\ptenine=\pbthree\fi
         \if\endrr\brnull \let\ptenull=\pbthree\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pbthree\fi
         \if\endrr\brtwo \let\ptftwo=\pbthree\fi
         \if\endrr\brthree \let\ptfthree=\pbthree\fi
         \if\endrr\brfour \let\ptffour=\pbthree\fi
         \if\endrr\brfive \let\ptffive=\pbthree\fi
         \if\endrr\brsix \let\ptfsix=\pbthree\fi
         \if\endrr\brseven \let\ptfseven=\pbthree\fi
         \if\endrr\breight \let\ptfeight=\pbthree\fi
         \if\endrr\brnine \let\ptfnine=\pbthree\fi
         \if\endrr\brnull \let\ptfnull=\pbthree\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pbthree\fi
         \if\endrr\brtwo \let\ptgtwo=\pbthree\fi
         \if\endrr\brthree \let\ptgthree=\pbthree\fi
         \if\endrr\brfour \let\ptgfour=\pbthree\fi
         \if\endrr\brfive \let\ptgfive=\pbthree\fi
         \if\endrr\brsix \let\ptgsix=\pbthree\fi
         \if\endrr\brseven \let\ptgseven=\pbthree\fi
         \if\endrr\breight \let\ptgeight=\pbthree\fi
         \if\endrr\brnine \let\ptgnine=\pbthree\fi
         \if\endrr\brnull \let\ptgnull=\pbthree\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pbthree\fi
         \if\endrr\brtwo \let\pthtwo=\pbthree\fi
         \if\endrr\brthree \let\pththree=\pbthree\fi
         \if\endrr\brfour \let\pthfour=\pbthree\fi
         \if\endrr\brfive \let\pthfive=\pbthree\fi
         \if\endrr\brsix \let\pthsix=\pbthree\fi
         \if\endrr\brseven \let\pthseven=\pbthree\fi
         \if\endrr\breight \let\ptheight=\pbthree\fi
         \if\endrr\brnine \let\pthnine=\pbthree\fi
         \if\endrr\brnull \let\pthnull=\pbthree\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pbthree\fi
         \if\endrr\brtwo \let\ptitwo=\pbthree\fi
         \if\endrr\brthree \let\ptithree=\pbthree\fi
         \if\endrr\brfour \let\ptifour=\pbthree\fi
         \if\endrr\brfive \let\ptifive=\pbthree\fi
         \if\endrr\brsix \let\ptisix=\pbthree\fi
         \if\endrr\brseven \let\ptiseven=\pbthree\fi
         \if\endrr\breight \let\ptieight=\pbthree\fi
         \if\endrr\brnine \let\ptinine=\pbthree\fi
         \if\endrr\brnull \let\ptinull=\pbthree\fi\fi\fi      
   \if\startrr\brfour \bfourset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pbfour\fi
         \if\endrr\brtwo \let\ptatwo=\pbfour\fi
         \if\endrr\brthree \let\ptathree=\pbfour\fi
         \if\endrr\brfour \let\ptafour=\pbfour\fi
         \if\endrr\brfive \let\ptafive=\pbfour\fi
         \if\endrr\brsix \let\ptasix=\pbfour\fi
         \if\endrr\brseven \let\ptaseven=\pbfour\fi
         \if\endrr\breight \let\ptaeight=\pbfour\fi
         \if\endrr\brnine \let\ptanine=\pbfour\fi
         \if\endrr\brnull \let\ptanull=\pbfour\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pbfour\fi
         \if\endrr\brtwo \let\ptbtwo=\pbfour\fi
         \if\endrr\brthree \let\ptbthree=\pbfour\fi
         \if\endrr\brfour \let\ptbfour=\pbfour\fi
         \if\endrr\brfive \let\ptbfive=\pbfour\fi
         \if\endrr\brsix \let\ptbsix=\pbfour\fi
         \if\endrr\brseven \let\ptbseven=\pbfour\fi
         \if\endrr\breight \let\ptbeight=\pbfour\fi
         \if\endrr\brnine \let\ptbnine=\pbfour\fi
         \if\endrr\brnull \let\ptbnull=\pbfour\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pbfour\fi
         \if\endrr\brtwo \let\ptctwo=\pbfour\fi
         \if\endrr\brthree \let\ptcthree=\pbfour\fi
         \if\endrr\brfour \let\ptcfour=\pbfour\fi
         \if\endrr\brfive \let\ptcfive=\pbfour\fi
         \if\endrr\brsix \let\ptcsix=\pbfour\fi
         \if\endrr\brseven \let\ptcseven=\pbfour\fi
         \if\endrr\breight \let\ptceight=\pbfour\fi
         \if\endrr\brnine \let\ptcnine=\pbfour\fi
         \if\endrr\brnull \let\ptcnull=\pbfour\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pbfour\fi
         \if\endrr\brtwo \let\ptdtwo=\pbfour\fi
         \if\endrr\brthree \let\ptdthree=\pbfour\fi
         \if\endrr\brfour \let\ptdfour=\pbfour\fi
         \if\endrr\brfive \let\ptdfive=\pbfour\fi
         \if\endrr\brsix \let\ptdsix=\pbfour\fi
         \if\endrr\brseven \let\ptdseven=\pbfour\fi
         \if\endrr\breight \let\ptdeight=\pbfour\fi
         \if\endrr\brnine \let\ptdnine=\pbfour\fi
         \if\endrr\brnull \let\ptdnull=\pbfour\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pbfour\fi
         \if\endrr\brtwo \let\ptetwo=\pbfour\fi
         \if\endrr\brthree \let\ptethree=\pbfour\fi
         \if\endrr\brfour \let\ptefour=\pbfour\fi
         \if\endrr\brfive \let\ptefive=\pbfour\fi
         \if\endrr\brsix \let\ptesix=\pbfour\fi
         \if\endrr\brseven \let\pteseven=\pbfour\fi
         \if\endrr\breight \let\pteeight=\pbfour\fi
         \if\endrr\brnine \let\ptenine=\pbfour\fi
         \if\endrr\brnull \let\ptenull=\pbfour\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pbfour\fi
         \if\endrr\brtwo \let\ptftwo=\pbfour\fi
         \if\endrr\brthree \let\ptfthree=\pbfour\fi
         \if\endrr\brfour \let\ptffour=\pbfour\fi
         \if\endrr\brfive \let\ptffive=\pbfour\fi
         \if\endrr\brsix \let\ptfsix=\pbfour\fi
         \if\endrr\brseven \let\ptfseven=\pbfour\fi
         \if\endrr\breight \let\ptfeight=\pbfour\fi
         \if\endrr\brnine \let\ptfnine=\pbfour\fi
         \if\endrr\brnull \let\ptfnull=\pbfour\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pbfour\fi
         \if\endrr\brtwo \let\ptgtwo=\pbfour\fi
         \if\endrr\brthree \let\ptgthree=\pbfour\fi
         \if\endrr\brfour \let\ptgfour=\pbfour\fi
         \if\endrr\brfive \let\ptgfive=\pbfour\fi
         \if\endrr\brsix \let\ptgsix=\pbfour\fi
         \if\endrr\brseven \let\ptgseven=\pbfour\fi
         \if\endrr\breight \let\ptgeight=\pbfour\fi
         \if\endrr\brnine \let\ptgnine=\pbfour\fi
         \if\endrr\brnull \let\ptgnull=\pbfour\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pbfour\fi
         \if\endrr\brtwo \let\pthtwo=\pbfour\fi
         \if\endrr\brthree \let\pththree=\pbfour\fi
         \if\endrr\brfour \let\pthfour=\pbfour\fi
         \if\endrr\brfive \let\pthfive=\pbfour\fi
         \if\endrr\brsix \let\pthsix=\pbfour\fi
         \if\endrr\brseven \let\pthseven=\pbfour\fi
         \if\endrr\breight \let\ptheight=\pbfour\fi
         \if\endrr\brnine \let\pthnine=\pbfour\fi
         \if\endrr\brnull \let\pthnull=\pbfour\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pbfour\fi
         \if\endrr\brtwo \let\ptitwo=\pbfour\fi
         \if\endrr\brthree \let\ptithree=\pbfour\fi
         \if\endrr\brfour \let\ptifour=\pbfour\fi
         \if\endrr\brfive \let\ptifive=\pbfour\fi
         \if\endrr\brsix \let\ptisix=\pbfour\fi
         \if\endrr\brseven \let\ptiseven=\pbfour\fi
         \if\endrr\breight \let\ptieight=\pbfour\fi
         \if\endrr\brnine \let\ptinine=\pbfour\fi
         \if\endrr\brnull \let\ptinull=\pbfour\fi\fi\fi      
   \if\startrr\brfive \bfiveset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pbfive\fi
         \if\endrr\brtwo \let\ptatwo=\pbfive\fi
         \if\endrr\brthree \let\ptathree=\pbfive\fi
         \if\endrr\brfour \let\ptafour=\pbfive\fi
         \if\endrr\brfive \let\ptafive=\pbfive\fi
         \if\endrr\brsix \let\ptasix=\pbfive\fi
         \if\endrr\brseven \let\ptaseven=\pbfive\fi
         \if\endrr\breight \let\ptaeight=\pbfive\fi
         \if\endrr\brnine \let\ptanine=\pbfive\fi
         \if\endrr\brnull \let\ptanull=\pbfive\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pbfive\fi
         \if\endrr\brtwo \let\ptbtwo=\pbfive\fi
         \if\endrr\brthree \let\ptbthree=\pbfive\fi
         \if\endrr\brfour \let\ptbfour=\pbfive\fi
         \if\endrr\brfive \let\ptbfive=\pbfive\fi
         \if\endrr\brsix \let\ptbsix=\pbfive\fi
         \if\endrr\brseven \let\ptbseven=\pbfive\fi
         \if\endrr\breight \let\ptbeight=\pbfive\fi
         \if\endrr\brnine \let\ptbnine=\pbfive\fi
         \if\endrr\brnull \let\ptbnull=\pbfive\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pbfive\fi
         \if\endrr\brtwo \let\ptctwo=\pbfive\fi
         \if\endrr\brthree \let\ptcthree=\pbfive\fi
         \if\endrr\brfour \let\ptcfour=\pbfive\fi
         \if\endrr\brfive \let\ptcfive=\pbfive\fi
         \if\endrr\brsix \let\ptcsix=\pbfive\fi
         \if\endrr\brseven \let\ptcseven=\pbfive\fi
         \if\endrr\breight \let\ptceight=\pbfive\fi
         \if\endrr\brnine \let\ptcnine=\pbfive\fi
         \if\endrr\brnull \let\ptcnull=\pbfive\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pbfive\fi
         \if\endrr\brtwo \let\ptdtwo=\pbfive\fi
         \if\endrr\brthree \let\ptdthree=\pbfive\fi
         \if\endrr\brfour \let\ptdfour=\pbfive\fi
         \if\endrr\brfive \let\ptdfive=\pbfive\fi
         \if\endrr\brsix \let\ptdsix=\pbfive\fi
         \if\endrr\brseven \let\ptdseven=\pbfive\fi
         \if\endrr\breight \let\ptdeight=\pbfive\fi
         \if\endrr\brnine \let\ptdnine=\pbfive\fi
         \if\endrr\brnull \let\ptdnull=\pbfive\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pbfive\fi
         \if\endrr\brtwo \let\ptetwo=\pbfive\fi
         \if\endrr\brthree \let\ptethree=\pbfive\fi
         \if\endrr\brfour \let\ptefour=\pbfive\fi
         \if\endrr\brfive \let\ptefive=\pbfive\fi
         \if\endrr\brsix \let\ptesix=\pbfive\fi
         \if\endrr\brseven \let\pteseven=\pbfive\fi
         \if\endrr\breight \let\pteeight=\pbfive\fi
         \if\endrr\brnine \let\ptenine=\pbfive\fi
         \if\endrr\brnull \let\ptenull=\pbfive\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pbfive\fi
         \if\endrr\brtwo \let\ptftwo=\pbfive\fi
         \if\endrr\brthree \let\ptfthree=\pbfive\fi
         \if\endrr\brfour \let\ptffour=\pbfive\fi
         \if\endrr\brfive \let\ptffive=\pbfive\fi
         \if\endrr\brsix \let\ptfsix=\pbfive\fi
         \if\endrr\brseven \let\ptfseven=\pbfive\fi
         \if\endrr\breight \let\ptfeight=\pbfive\fi
         \if\endrr\brnine \let\ptfnine=\pbfive\fi
         \if\endrr\brnull \let\ptfnull=\pbfive\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pbfive\fi
         \if\endrr\brtwo \let\ptgtwo=\pbfive\fi
         \if\endrr\brthree \let\ptgthree=\pbfive\fi
         \if\endrr\brfour \let\ptgfour=\pbfive\fi
         \if\endrr\brfive \let\ptgfive=\pbfive\fi
         \if\endrr\brsix \let\ptgsix=\pbfive\fi
         \if\endrr\brseven \let\ptgseven=\pbfive\fi
         \if\endrr\breight \let\ptgeight=\pbfive\fi
         \if\endrr\brnine \let\ptgnine=\pbfive\fi
         \if\endrr\brnull \let\ptgnull=\pbfive\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pbfive\fi
         \if\endrr\brtwo \let\pthtwo=\pbfive\fi
         \if\endrr\brthree \let\pththree=\pbfive\fi
         \if\endrr\brfour \let\pthfour=\pbfive\fi
         \if\endrr\brfive \let\pthfive=\pbfive\fi
         \if\endrr\brsix \let\pthsix=\pbfive\fi
         \if\endrr\brseven \let\pthseven=\pbfive\fi
         \if\endrr\breight \let\ptheight=\pbfive\fi
         \if\endrr\brnine \let\pthnine=\pbfive\fi
         \if\endrr\brnull \let\pthnull=\pbfive\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pbfive\fi
         \if\endrr\brtwo \let\ptitwo=\pbfive\fi
         \if\endrr\brthree \let\ptithree=\pbfive\fi
         \if\endrr\brfour \let\ptifour=\pbfive\fi
         \if\endrr\brfive \let\ptifive=\pbfive\fi
         \if\endrr\brsix \let\ptisix=\pbfive\fi
         \if\endrr\brseven \let\ptiseven=\pbfive\fi
         \if\endrr\breight \let\ptieight=\pbfive\fi
         \if\endrr\brnine \let\ptinine=\pbfive\fi
         \if\endrr\brnull \let\ptinull=\pbfive\fi\fi\fi   
   \if\startrr\brsix \bsixset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pbsix\fi
         \if\endrr\brtwo \let\ptatwo=\pbsix\fi
         \if\endrr\brthree \let\ptathree=\pbsix\fi
         \if\endrr\brfour \let\ptafour=\pbsix\fi
         \if\endrr\brfive \let\ptafive=\pbsix\fi
         \if\endrr\brsix \let\ptasix=\pbsix\fi
         \if\endrr\brseven \let\ptaseven=\pbsix\fi
         \if\endrr\breight \let\ptaeight=\pbsix\fi
         \if\endrr\brnine \let\ptanine=\pbsix\fi
         \if\endrr\brnull \let\ptanull=\pbsix\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pbsix\fi
         \if\endrr\brtwo \let\ptbtwo=\pbsix\fi
         \if\endrr\brthree \let\ptbthree=\pbsix\fi
         \if\endrr\brfour \let\ptbfour=\pbsix\fi
         \if\endrr\brfive \let\ptbfive=\pbsix\fi
         \if\endrr\brsix \let\ptbsix=\pbsix\fi
         \if\endrr\brseven \let\ptbseven=\pbsix\fi
         \if\endrr\breight \let\ptbeight=\pbsix\fi
         \if\endrr\brnine \let\ptbnine=\pbsix\fi
         \if\endrr\brnull \let\ptbnull=\pbsix\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pbsix\fi
         \if\endrr\brtwo \let\ptctwo=\pbsix\fi
         \if\endrr\brthree \let\ptcthree=\pbsix\fi
         \if\endrr\brfour \let\ptcfour=\pbsix\fi
         \if\endrr\brfive \let\ptcfive=\pbsix\fi
         \if\endrr\brsix \let\ptcsix=\pbsix\fi
         \if\endrr\brseven \let\ptcseven=\pbsix\fi
         \if\endrr\breight \let\ptceight=\pbsix\fi
         \if\endrr\brnine \let\ptcnine=\pbsix\fi
         \if\endrr\brnull \let\ptcnull=\pbsix\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pbsix\fi
         \if\endrr\brtwo \let\ptdtwo=\pbsix\fi
         \if\endrr\brthree \let\ptdthree=\pbsix\fi
         \if\endrr\brfour \let\ptdfour=\pbsix\fi
         \if\endrr\brfive \let\ptdfive=\pbsix\fi
         \if\endrr\brsix \let\ptdsix=\pbsix\fi
         \if\endrr\brseven \let\ptdseven=\pbsix\fi
         \if\endrr\breight \let\ptdeight=\pbsix\fi
         \if\endrr\brnine \let\ptdnine=\pbsix\fi
         \if\endrr\brnull \let\ptdnull=\pbsix\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pbsix\fi
         \if\endrr\brtwo \let\ptetwo=\pbsix\fi
         \if\endrr\brthree \let\ptethree=\pbsix\fi
         \if\endrr\brfour \let\ptefour=\pbsix\fi
         \if\endrr\brfive \let\ptefive=\pbsix\fi
         \if\endrr\brsix \let\ptesix=\pbsix\fi
         \if\endrr\brseven \let\pteseven=\pbsix\fi
         \if\endrr\breight \let\pteeight=\pbsix\fi
         \if\endrr\brnine \let\ptenine=\pbsix\fi
         \if\endrr\brnull \let\ptenull=\pbsix\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pbsix\fi
         \if\endrr\brtwo \let\ptftwo=\pbsix\fi
         \if\endrr\brthree \let\ptfthree=\pbsix\fi
         \if\endrr\brfour \let\ptffour=\pbsix\fi
         \if\endrr\brfive \let\ptffive=\pbsix\fi
         \if\endrr\brsix \let\ptfsix=\pbsix\fi
         \if\endrr\brseven \let\ptfseven=\pbsix\fi
         \if\endrr\breight \let\ptfeight=\pbsix\fi
         \if\endrr\brnine \let\ptfnine=\pbsix\fi
         \if\endrr\brnull \let\ptfnull=\pbsix\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pbsix\fi
         \if\endrr\brtwo \let\ptgtwo=\pbsix\fi
         \if\endrr\brthree \let\ptgthree=\pbsix\fi
         \if\endrr\brfour \let\ptgfour=\pbsix\fi
         \if\endrr\brfive \let\ptgfive=\pbsix\fi
         \if\endrr\brsix \let\ptgsix=\pbsix\fi
         \if\endrr\brseven \let\ptgseven=\pbsix\fi
         \if\endrr\breight \let\ptgeight=\pbsix\fi
         \if\endrr\brnine \let\ptgnine=\pbsix\fi
         \if\endrr\brnull \let\ptgnull=\pbsix\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pbsix\fi
         \if\endrr\brtwo \let\pthtwo=\pbsix\fi
         \if\endrr\brthree \let\pththree=\pbsix\fi
         \if\endrr\brfour \let\pthfour=\pbsix\fi
         \if\endrr\brfive \let\pthfive=\pbsix\fi
         \if\endrr\brsix \let\pthsix=\pbsix\fi
         \if\endrr\brseven \let\pthseven=\pbsix\fi
         \if\endrr\breight \let\ptheight=\pbsix\fi
         \if\endrr\brnine \let\pthnine=\pbsix\fi
         \if\endrr\brnull \let\pthnull=\pbsix\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pbsix\fi
         \if\endrr\brtwo \let\ptitwo=\pbsix\fi
         \if\endrr\brthree \let\ptithree=\pbsix\fi
         \if\endrr\brfour \let\ptifour=\pbsix\fi
         \if\endrr\brfive \let\ptifive=\pbsix\fi
         \if\endrr\brsix \let\ptisix=\pbsix\fi
         \if\endrr\brseven \let\ptiseven=\pbsix\fi
         \if\endrr\breight \let\ptieight=\pbsix\fi
         \if\endrr\brnine \let\ptinine=\pbsix\fi
         \if\endrr\brnull \let\ptinull=\pbsix\fi\fi\fi
   \if\startrr\brseven \bsevenset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pbseven\fi
         \if\endrr\brtwo \let\ptatwo=\pbseven\fi
         \if\endrr\brthree \let\ptathree=\pbseven\fi
         \if\endrr\brfour \let\ptafour=\pbseven\fi
         \if\endrr\brfive \let\ptafive=\pbseven\fi
         \if\endrr\brsix \let\ptasix=\pbseven\fi
         \if\endrr\brseven \let\ptaseven=\pbseven\fi
         \if\endrr\breight \let\ptaeight=\pbseven\fi
         \if\endrr\brnine \let\ptanine=\pbseven\fi
         \if\endrr\brnull \let\ptanull=\pbseven\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pbseven\fi
         \if\endrr\brtwo \let\ptbtwo=\pbseven\fi
         \if\endrr\brthree \let\ptbthree=\pbseven\fi
         \if\endrr\brfour \let\ptbfour=\pbseven\fi
         \if\endrr\brfive \let\ptbfive=\pbseven\fi
         \if\endrr\brsix \let\ptbsix=\pbseven\fi
         \if\endrr\brseven \let\ptbseven=\pbseven\fi
         \if\endrr\breight \let\ptbeight=\pbseven\fi
         \if\endrr\brnine \let\ptbnine=\pbseven\fi
         \if\endrr\brnull \let\ptbnull=\pbseven\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pbseven\fi
         \if\endrr\brtwo \let\ptctwo=\pbseven\fi
         \if\endrr\brthree \let\ptcthree=\pbseven\fi
         \if\endrr\brfour \let\ptcfour=\pbseven\fi
         \if\endrr\brfive \let\ptcfive=\pbseven\fi
         \if\endrr\brsix \let\ptcsix=\pbseven\fi
         \if\endrr\brseven \let\ptcseven=\pbseven\fi
         \if\endrr\breight \let\ptceight=\pbseven\fi
         \if\endrr\brnine \let\ptcnine=\pbseven\fi
         \if\endrr\brnull \let\ptcnull=\pbseven\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pbseven\fi
         \if\endrr\brtwo \let\ptdtwo=\pbseven\fi
         \if\endrr\brthree \let\ptdthree=\pbseven\fi
         \if\endrr\brfour \let\ptdfour=\pbseven\fi
         \if\endrr\brfive \let\ptdfive=\pbseven\fi
         \if\endrr\brsix \let\ptdsix=\pbseven\fi
         \if\endrr\brseven \let\ptdseven=\pbseven\fi
         \if\endrr\breight \let\ptdeight=\pbseven\fi
         \if\endrr\brnine \let\ptdnine=\pbseven\fi
         \if\endrr\brnull \let\ptdnull=\pbseven\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pbseven\fi
         \if\endrr\brtwo \let\ptetwo=\pbseven\fi
         \if\endrr\brthree \let\ptethree=\pbseven\fi
         \if\endrr\brfour \let\ptefour=\pbseven\fi
         \if\endrr\brfive \let\ptefive=\pbseven\fi
         \if\endrr\brsix \let\ptesix=\pbseven\fi
         \if\endrr\brseven \let\pteseven=\pbseven\fi
         \if\endrr\breight \let\pteeight=\pbseven\fi
         \if\endrr\brnine \let\ptenine=\pbseven\fi
         \if\endrr\brnull \let\ptenull=\pbseven\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pbseven\fi
         \if\endrr\brtwo \let\ptftwo=\pbseven\fi
         \if\endrr\brthree \let\ptfthree=\pbseven\fi
         \if\endrr\brfour \let\ptffour=\pbseven\fi
         \if\endrr\brfive \let\ptffive=\pbseven\fi
         \if\endrr\brsix \let\ptfsix=\pbseven\fi
         \if\endrr\brseven \let\ptfseven=\pbseven\fi
         \if\endrr\breight \let\ptfeight=\pbseven\fi
         \if\endrr\brnine \let\ptfnine=\pbseven\fi
         \if\endrr\brnull \let\ptfnull=\pbseven\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pbseven\fi
         \if\endrr\brtwo \let\ptgtwo=\pbseven\fi
         \if\endrr\brthree \let\ptgthree=\pbseven\fi
         \if\endrr\brfour \let\ptgfour=\pbseven\fi
         \if\endrr\brfive \let\ptgfive=\pbseven\fi
         \if\endrr\brsix \let\ptgsix=\pbseven\fi
         \if\endrr\brseven \let\ptgseven=\pbseven\fi
         \if\endrr\breight \let\ptgeight=\pbseven\fi
         \if\endrr\brnine \let\ptgnine=\pbseven\fi
         \if\endrr\brnull \let\ptgnull=\pbseven\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pbseven\fi
         \if\endrr\brtwo \let\pthtwo=\pbseven\fi
         \if\endrr\brthree \let\pththree=\pbseven\fi
         \if\endrr\brfour \let\pthfour=\pbseven\fi
         \if\endrr\brfive \let\pthfive=\pbseven\fi
         \if\endrr\brsix \let\pthsix=\pbseven\fi
         \if\endrr\brseven \let\pthseven=\pbseven\fi
         \if\endrr\breight \let\ptheight=\pbseven\fi
         \if\endrr\brnine \let\pthnine=\pbseven\fi
         \if\endrr\brnull \let\pthnull=\pbseven\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pbseven\fi
         \if\endrr\brtwo \let\ptitwo=\pbseven\fi
         \if\endrr\brthree \let\ptithree=\pbseven\fi
         \if\endrr\brfour \let\ptifour=\pbseven\fi
         \if\endrr\brfive \let\ptifive=\pbseven\fi
         \if\endrr\brsix \let\ptisix=\pbseven\fi
         \if\endrr\brseven \let\ptiseven=\pbseven\fi
         \if\endrr\breight \let\ptieight=\pbseven\fi
         \if\endrr\brnine \let\ptinine=\pbseven\fi
         \if\endrr\brnull \let\ptinull=\pbseven\fi\fi\fi      
   \if\startrr\breight \beightset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pbeight\fi
         \if\endrr\brtwo \let\ptatwo=\pbeight\fi
         \if\endrr\brthree \let\ptathree=\pbeight\fi
         \if\endrr\brfour \let\ptafour=\pbeight\fi
         \if\endrr\brfive \let\ptafive=\pbeight\fi
         \if\endrr\brsix \let\ptasix=\pbeight\fi
         \if\endrr\brseven \let\ptaseven=\pbeight\fi
         \if\endrr\breight \let\ptaeight=\pbeight\fi
         \if\endrr\brnine \let\ptanine=\pbeight\fi
         \if\endrr\brnull \let\ptanull=\pbeight\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pbeight\fi
         \if\endrr\brtwo \let\ptbtwo=\pbeight\fi
         \if\endrr\brthree \let\ptbthree=\pbeight\fi
         \if\endrr\brfour \let\ptbfour=\pbeight\fi
         \if\endrr\brfive \let\ptbfive=\pbeight\fi
         \if\endrr\brsix \let\ptbsix=\pbeight\fi
         \if\endrr\brseven \let\ptbseven=\pbeight\fi
         \if\endrr\breight \let\ptbeight=\pbeight\fi
         \if\endrr\brnine \let\ptbnine=\pbeight\fi
         \if\endrr\brnull \let\ptbnull=\pbeight\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pbeight\fi
         \if\endrr\brtwo \let\ptctwo=\pbeight\fi
         \if\endrr\brthree \let\ptcthree=\pbeight\fi
         \if\endrr\brfour \let\ptcfour=\pbeight\fi
         \if\endrr\brfive \let\ptcfive=\pbeight\fi
         \if\endrr\brsix \let\ptcsix=\pbeight\fi
         \if\endrr\brseven \let\ptcseven=\pbeight\fi
         \if\endrr\breight \let\ptceight=\pbeight\fi
         \if\endrr\brnine \let\ptcnine=\pbeight\fi
         \if\endrr\brnull \let\ptcnull=\pbeight\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pbeight\fi
         \if\endrr\brtwo \let\ptdtwo=\pbeight\fi
         \if\endrr\brthree \let\ptdthree=\pbeight\fi
         \if\endrr\brfour \let\ptdfour=\pbeight\fi
         \if\endrr\brfive \let\ptdfive=\pbeight\fi
         \if\endrr\brsix \let\ptdsix=\pbeight\fi
         \if\endrr\brseven \let\ptdseven=\pbeight\fi
         \if\endrr\breight \let\ptdeight=\pbeight\fi
         \if\endrr\brnine \let\ptdnine=\pbeight\fi
         \if\endrr\brnull \let\ptdnull=\pbeight\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pbeight\fi
         \if\endrr\brtwo \let\ptetwo=\pbeight\fi
         \if\endrr\brthree \let\ptethree=\pbeight\fi
         \if\endrr\brfour \let\ptefour=\pbeight\fi
         \if\endrr\brfive \let\ptefive=\pbeight\fi
         \if\endrr\brsix \let\ptesix=\pbeight\fi
         \if\endrr\brseven \let\pteseven=\pbeight\fi
         \if\endrr\breight \let\pteeight=\pbeight\fi
         \if\endrr\brnine \let\ptenine=\pbeight\fi
         \if\endrr\brnull \let\ptenull=\pbeight\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pbeight\fi
         \if\endrr\brtwo \let\ptftwo=\pbeight\fi
         \if\endrr\brthree \let\ptfthree=\pbeight\fi
         \if\endrr\brfour \let\ptffour=\pbeight\fi
         \if\endrr\brfive \let\ptffive=\pbeight\fi
         \if\endrr\brsix \let\ptfsix=\pbeight\fi
         \if\endrr\brseven \let\ptfseven=\pbeight\fi
         \if\endrr\breight \let\ptfeight=\pbeight\fi
         \if\endrr\brnine \let\ptfnine=\pbeight\fi
         \if\endrr\brnull \let\ptfnull=\pbeight\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pbeight\fi
         \if\endrr\brtwo \let\ptgtwo=\pbeight\fi
         \if\endrr\brthree \let\ptgthree=\pbeight\fi
         \if\endrr\brfour \let\ptgfour=\pbeight\fi
         \if\endrr\brfive \let\ptgfive=\pbeight\fi
         \if\endrr\brsix \let\ptgsix=\pbeight\fi
         \if\endrr\brseven \let\ptgseven=\pbeight\fi
         \if\endrr\breight \let\ptgeight=\pbeight\fi
         \if\endrr\brnine \let\ptgnine=\pbeight\fi
         \if\endrr\brnull \let\ptgnull=\pbeight\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pbeight\fi
         \if\endrr\brtwo \let\pthtwo=\pbeight\fi
         \if\endrr\brthree \let\pththree=\pbeight\fi
         \if\endrr\brfour \let\pthfour=\pbeight\fi
         \if\endrr\brfive \let\pthfive=\pbeight\fi
         \if\endrr\brsix \let\pthsix=\pbeight\fi
         \if\endrr\brseven \let\pthseven=\pbeight\fi
         \if\endrr\breight \let\ptheight=\pbeight\fi
         \if\endrr\brnine \let\pthnine=\pbeight\fi
         \if\endrr\brnull \let\pthnull=\pbeight\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pbeight\fi
         \if\endrr\brtwo \let\ptitwo=\pbeight\fi
         \if\endrr\brthree \let\ptithree=\pbeight\fi
         \if\endrr\brfour \let\ptifour=\pbeight\fi
         \if\endrr\brfive \let\ptifive=\pbeight\fi
         \if\endrr\brsix \let\ptisix=\pbeight\fi
         \if\endrr\brseven \let\ptiseven=\pbeight\fi
         \if\endrr\breight \let\ptieight=\pbeight\fi
         \if\endrr\brnine \let\ptinine=\pbeight\fi
         \if\endrr\brnull \let\ptinull=\pbeight\fi\fi\fi      
   \if\startrr\brnine \bnineset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pbnine\fi
         \if\endrr\brtwo \let\ptatwo=\pbnine\fi
         \if\endrr\brthree \let\ptathree=\pbnine\fi
         \if\endrr\brfour \let\ptafour=\pbnine\fi
         \if\endrr\brfive \let\ptafive=\pbnine\fi
         \if\endrr\brsix \let\ptasix=\pbnine\fi
         \if\endrr\brseven \let\ptaseven=\pbnine\fi
         \if\endrr\breight \let\ptaeight=\pbnine\fi
         \if\endrr\brnine \let\ptanine=\pbnine\fi
         \if\endrr\brnull \let\ptanull=\pbnine\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pbnine\fi
         \if\endrr\brtwo \let\ptbtwo=\pbnine\fi
         \if\endrr\brthree \let\ptbthree=\pbnine\fi
         \if\endrr\brfour \let\ptbfour=\pbnine\fi
         \if\endrr\brfive \let\ptbfive=\pbnine\fi
         \if\endrr\brsix \let\ptbsix=\pbnine\fi
         \if\endrr\brseven \let\ptbseven=\pbnine\fi
         \if\endrr\breight \let\ptbeight=\pbnine\fi
         \if\endrr\brnine \let\ptbnine=\pbnine\fi
         \if\endrr\brnull \let\ptbnull=\pbnine\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pbnine\fi
         \if\endrr\brtwo \let\ptctwo=\pbnine\fi
         \if\endrr\brthree \let\ptcthree=\pbnine\fi
         \if\endrr\brfour \let\ptcfour=\pbnine\fi
         \if\endrr\brfive \let\ptcfive=\pbnine\fi
         \if\endrr\brsix \let\ptcsix=\pbnine\fi
         \if\endrr\brseven \let\ptcseven=\pbnine\fi
         \if\endrr\breight \let\ptceight=\pbnine\fi
         \if\endrr\brnine \let\ptcnine=\pbnine\fi
         \if\endrr\brnull \let\ptcnull=\pbnine\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pbnine\fi
         \if\endrr\brtwo \let\ptdtwo=\pbnine\fi
         \if\endrr\brthree \let\ptdthree=\pbnine\fi
         \if\endrr\brfour \let\ptdfour=\pbnine\fi
         \if\endrr\brfive \let\ptdfive=\pbnine\fi
         \if\endrr\brsix \let\ptdsix=\pbnine\fi
         \if\endrr\brseven \let\ptdseven=\pbnine\fi
         \if\endrr\breight \let\ptdeight=\pbnine\fi
         \if\endrr\brnine \let\ptdnine=\pbnine\fi
         \if\endrr\brnull \let\ptdnull=\pbnine\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pbnine\fi
         \if\endrr\brtwo \let\ptetwo=\pbnine\fi
         \if\endrr\brthree \let\ptethree=\pbnine\fi
         \if\endrr\brfour \let\ptefour=\pbnine\fi
         \if\endrr\brfive \let\ptefive=\pbnine\fi
         \if\endrr\brsix \let\ptesix=\pbnine\fi
         \if\endrr\brseven \let\pteseven=\pbnine\fi
         \if\endrr\breight \let\pteeight=\pbnine\fi
         \if\endrr\brnine \let\ptenine=\pbnine\fi
         \if\endrr\brnull \let\ptenull=\pbnine\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pbnine\fi
         \if\endrr\brtwo \let\ptftwo=\pbnine\fi
         \if\endrr\brthree \let\ptfthree=\pbnine\fi
         \if\endrr\brfour \let\ptffour=\pbnine\fi
         \if\endrr\brfive \let\ptffive=\pbnine\fi
         \if\endrr\brsix \let\ptfsix=\pbnine\fi
         \if\endrr\brseven \let\ptfseven=\pbnine\fi
         \if\endrr\breight \let\ptfeight=\pbnine\fi
         \if\endrr\brnine \let\ptfnine=\pbnine\fi
         \if\endrr\brnull \let\ptfnull=\pbnine\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pbnine\fi
         \if\endrr\brtwo \let\ptgtwo=\pbnine\fi
         \if\endrr\brthree \let\ptgthree=\pbnine\fi
         \if\endrr\brfour \let\ptgfour=\pbnine\fi
         \if\endrr\brfive \let\ptgfive=\pbnine\fi
         \if\endrr\brsix \let\ptgsix=\pbnine\fi
         \if\endrr\brseven \let\ptgseven=\pbnine\fi
         \if\endrr\breight \let\ptgeight=\pbnine\fi
         \if\endrr\brnine \let\ptgnine=\pbnine\fi
         \if\endrr\brnull \let\ptgnull=\pbnine\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pbnine\fi
         \if\endrr\brtwo \let\pthtwo=\pbnine\fi
         \if\endrr\brthree \let\pththree=\pbnine\fi
         \if\endrr\brfour \let\pthfour=\pbnine\fi
         \if\endrr\brfive \let\pthfive=\pbnine\fi
         \if\endrr\brsix \let\pthsix=\pbnine\fi
         \if\endrr\brseven \let\pthseven=\pbnine\fi
         \if\endrr\breight \let\ptheight=\pbnine\fi
         \if\endrr\brnine \let\pthnine=\pbnine\fi
         \if\endrr\brnull \let\pthnull=\pbnine\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pbnine\fi
         \if\endrr\brtwo \let\ptitwo=\pbnine\fi
         \if\endrr\brthree \let\ptithree=\pbnine\fi
         \if\endrr\brfour \let\ptifour=\pbnine\fi
         \if\endrr\brfive \let\ptifive=\pbnine\fi
         \if\endrr\brsix \let\ptisix=\pbnine\fi
         \if\endrr\brseven \let\ptiseven=\pbnine\fi
         \if\endrr\breight \let\ptieight=\pbnine\fi
         \if\endrr\brnine \let\ptinine=\pbnine\fi
         \if\endrr\brnull \let\ptinull=\pbnine\fi\fi\fi      
   \if\startrr\brnull \bnullset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pbnull\fi
         \if\endrr\brtwo \let\ptatwo=\pbnull\fi
         \if\endrr\brthree \let\ptathree=\pbnull\fi
         \if\endrr\brfour \let\ptafour=\pbnull\fi
         \if\endrr\brfive \let\ptafive=\pbnull\fi
         \if\endrr\brsix \let\ptasix=\pbnull\fi
         \if\endrr\brseven \let\ptaseven=\pbnull\fi
         \if\endrr\breight \let\ptaeight=\pbnull\fi
         \if\endrr\brnine \let\ptanine=\pbnull\fi
         \if\endrr\brnull \let\ptanull=\pbnull\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pbnull\fi
         \if\endrr\brtwo \let\ptbtwo=\pbnull\fi
         \if\endrr\brthree \let\ptbthree=\pbnull\fi
         \if\endrr\brfour \let\ptbfour=\pbnull\fi
         \if\endrr\brfive \let\ptbfive=\pbnull\fi
         \if\endrr\brsix \let\ptbsix=\pbnull\fi
         \if\endrr\brseven \let\ptbseven=\pbnull\fi
         \if\endrr\breight \let\ptbeight=\pbnull\fi
         \if\endrr\brnine \let\ptbnine=\pbnull\fi
         \if\endrr\brnull \let\ptbnull=\pbnull\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pbnull\fi
         \if\endrr\brtwo \let\ptctwo=\pbnull\fi
         \if\endrr\brthree \let\ptcthree=\pbnull\fi
         \if\endrr\brfour \let\ptcfour=\pbnull\fi
         \if\endrr\brfive \let\ptcfive=\pbnull\fi
         \if\endrr\brsix \let\ptcsix=\pbnull\fi
         \if\endrr\brseven \let\ptcseven=\pbnull\fi
         \if\endrr\breight \let\ptceight=\pbnull\fi
         \if\endrr\brnine \let\ptcnine=\pbnull\fi
         \if\endrr\brnull \let\ptcnull=\pbnull\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pbnull\fi
         \if\endrr\brtwo \let\ptdtwo=\pbnull\fi
         \if\endrr\brthree \let\ptdthree=\pbnull\fi
         \if\endrr\brfour \let\ptdfour=\pbnull\fi
         \if\endrr\brfive \let\ptdfive=\pbnull\fi
         \if\endrr\brsix \let\ptdsix=\pbnull\fi
         \if\endrr\brseven \let\ptdseven=\pbnull\fi
         \if\endrr\breight \let\ptdeight=\pbnull\fi
         \if\endrr\brnine \let\ptdnine=\pbnull\fi
         \if\endrr\brnull \let\ptdnull=\pbnull\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pbnull\fi
         \if\endrr\brtwo \let\ptetwo=\pbnull\fi
         \if\endrr\brthree \let\ptethree=\pbnull\fi
         \if\endrr\brfour \let\ptefour=\pbnull\fi
         \if\endrr\brfive \let\ptefive=\pbnull\fi
         \if\endrr\brsix \let\ptesix=\pbnull\fi
         \if\endrr\brseven \let\pteseven=\pbnull\fi
         \if\endrr\breight \let\pteeight=\pbnull\fi
         \if\endrr\brnine \let\ptenine=\pbnull\fi
         \if\endrr\brnull \let\ptenull=\pbnull\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pbnull\fi
         \if\endrr\brtwo \let\ptftwo=\pbnull\fi
         \if\endrr\brthree \let\ptfthree=\pbnull\fi
         \if\endrr\brfour \let\ptffour=\pbnull\fi
         \if\endrr\brfive \let\ptffive=\pbnull\fi
         \if\endrr\brsix \let\ptfsix=\pbnull\fi
         \if\endrr\brseven \let\ptfseven=\pbnull\fi
         \if\endrr\breight \let\ptfeight=\pbnull\fi
         \if\endrr\brnine \let\ptfnine=\pbnull\fi
         \if\endrr\brnull \let\ptfnull=\pbnull\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pbnull\fi
         \if\endrr\brtwo \let\ptgtwo=\pbnull\fi
         \if\endrr\brthree \let\ptgthree=\pbnull\fi
         \if\endrr\brfour \let\ptgfour=\pbnull\fi
         \if\endrr\brfive \let\ptgfive=\pbnull\fi
         \if\endrr\brsix \let\ptgsix=\pbnull\fi
         \if\endrr\brseven \let\ptgseven=\pbnull\fi
         \if\endrr\breight \let\ptgeight=\pbnull\fi
         \if\endrr\brnine \let\ptgnine=\pbnull\fi
         \if\endrr\brnull \let\ptgnull=\pbnull\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pbnull\fi
         \if\endrr\brtwo \let\pthtwo=\pbnull\fi
         \if\endrr\brthree \let\pththree=\pbnull\fi
         \if\endrr\brfour \let\pthfour=\pbnull\fi
         \if\endrr\brfive \let\pthfive=\pbnull\fi
         \if\endrr\brsix \let\pthsix=\pbnull\fi
         \if\endrr\brseven \let\pthseven=\pbnull\fi
         \if\endrr\breight \let\ptheight=\pbnull\fi
         \if\endrr\brnine \let\pthnine=\pbnull\fi
         \if\endrr\brnull \let\pthnull=\pbnull\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pbnull\fi
         \if\endrr\brtwo \let\ptitwo=\pbnull\fi
         \if\endrr\brthree \let\ptithree=\pbnull\fi
         \if\endrr\brfour \let\ptifour=\pbnull\fi
         \if\endrr\brfive \let\ptifive=\pbnull\fi
         \if\endrr\brsix \let\ptisix=\pbnull\fi
         \if\endrr\brseven \let\ptiseven=\pbnull\fi
         \if\endrr\breight \let\ptieight=\pbnull\fi
         \if\endrr\brnine \let\ptinine=\pbnull\fi
         \if\endrr\brnull \let\ptinull=\pbnull\fi\fi\fi\fi
\if\startlr\cli
   \if\startrr\brone \coneset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pcone\fi
         \if\endrr\brtwo \let\ptatwo=\pcone\fi
         \if\endrr\brthree \let\ptathree=\pcone\fi
         \if\endrr\brfour \let\ptafour=\pcone\fi
         \if\endrr\brfive \let\ptafive=\pcone\fi
         \if\endrr\brsix \let\ptasix=\pcone\fi
         \if\endrr\brseven \let\ptaseven=\pcone\fi
         \if\endrr\breight \let\ptaeight=\pcone\fi
         \if\endrr\brnine \let\ptanine=\pcone\fi
         \if\endrr\brnull \let\ptanull=\pcone\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pcone\fi
         \if\endrr\brtwo \let\ptbtwo=\pcone\fi
         \if\endrr\brthree \let\ptbthree=\pcone\fi
         \if\endrr\brfour \let\ptbfour=\pcone\fi
         \if\endrr\brfive \let\ptbfive=\pcone\fi
         \if\endrr\brsix \let\ptbsix=\pcone\fi
         \if\endrr\brseven \let\ptbseven=\pcone\fi
         \if\endrr\breight \let\ptbeight=\pcone\fi
         \if\endrr\brnine \let\ptbnine=\pcone\fi
         \if\endrr\brnull \let\ptbnull=\pcone\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pcone\fi
         \if\endrr\brtwo \let\ptctwo=\pcone\fi
         \if\endrr\brthree \let\ptcthree=\pcone\fi
         \if\endrr\brfour \let\ptcfour=\pcone\fi
         \if\endrr\brfive \let\ptcfive=\pcone\fi
         \if\endrr\brsix \let\ptcsix=\pcone\fi
         \if\endrr\brseven \let\ptcseven=\pcone\fi
         \if\endrr\breight \let\ptceight=\pcone\fi
         \if\endrr\brnine \let\ptcnine=\pcone\fi
         \if\endrr\brnull \let\ptcnull=\pcone\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pcone\fi
         \if\endrr\brtwo \let\ptdtwo=\pcone\fi
         \if\endrr\brthree \let\ptdthree=\pcone\fi
         \if\endrr\brfour \let\ptdfour=\pcone\fi
         \if\endrr\brfive \let\ptdfive=\pcone\fi
         \if\endrr\brsix \let\ptdsix=\pcone\fi
         \if\endrr\brseven \let\ptdseven=\pcone\fi
         \if\endrr\breight \let\ptdeight=\pcone\fi
         \if\endrr\brnine \let\ptdnine=\pcone\fi
         \if\endrr\brnull \let\ptdnull=\pcone\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pcone\fi
         \if\endrr\brtwo \let\ptetwo=\pcone\fi
         \if\endrr\brthree \let\ptethree=\pcone\fi
         \if\endrr\brfour \let\ptefour=\pcone\fi
         \if\endrr\brfive \let\ptefive=\pcone\fi
         \if\endrr\brsix \let\ptesix=\pcone\fi
         \if\endrr\brseven \let\pteseven=\pcone\fi
         \if\endrr\breight \let\pteeight=\pcone\fi
         \if\endrr\brnine \let\ptenine=\pcone\fi
         \if\endrr\brnull \let\ptenull=\pcone\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pcone\fi
         \if\endrr\brtwo \let\ptftwo=\pcone\fi
         \if\endrr\brthree \let\ptfthree=\pcone\fi
         \if\endrr\brfour \let\ptffour=\pcone\fi
         \if\endrr\brfive \let\ptffive=\pcone\fi
         \if\endrr\brsix \let\ptfsix=\pcone\fi
         \if\endrr\brseven \let\ptfseven=\pcone\fi
         \if\endrr\breight \let\ptfeight=\pcone\fi
         \if\endrr\brnine \let\ptfnine=\pcone\fi
         \if\endrr\brnull \let\ptfnull=\pcone\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pcone\fi
         \if\endrr\brtwo \let\ptgtwo=\pcone\fi
         \if\endrr\brthree \let\ptgthree=\pcone\fi
         \if\endrr\brfour \let\ptgfour=\pcone\fi
         \if\endrr\brfive \let\ptgfive=\pcone\fi
         \if\endrr\brsix \let\ptgsix=\pcone\fi
         \if\endrr\brseven \let\ptgseven=\pcone\fi
         \if\endrr\breight \let\ptgeight=\pcone\fi
         \if\endrr\brnine \let\ptgnine=\pcone\fi
         \if\endrr\brnull \let\ptgnull=\pcone\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pcone\fi
         \if\endrr\brtwo \let\pthtwo=\pcone\fi
         \if\endrr\brthree \let\pththree=\pcone\fi
         \if\endrr\brfour \let\pthfour=\pcone\fi
         \if\endrr\brfive \let\pthfive=\pcone\fi
         \if\endrr\brsix \let\pthsix=\pcone\fi
         \if\endrr\brseven \let\pthseven=\pcone\fi
         \if\endrr\breight \let\ptheight=\pcone\fi
         \if\endrr\brnine \let\pthnine=\pcone\fi
         \if\endrr\brnull \let\pthnull=\pcone\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pcone\fi
         \if\endrr\brtwo \let\ptitwo=\pcone\fi
         \if\endrr\brthree \let\ptithree=\pcone\fi
         \if\endrr\brfour \let\ptifour=\pcone\fi
         \if\endrr\brfive \let\ptifive=\pcone\fi
         \if\endrr\brsix \let\ptisix=\pcone\fi
         \if\endrr\brseven \let\ptiseven=\pcone\fi
         \if\endrr\breight \let\ptieight=\pcone\fi
         \if\endrr\brnine \let\ptinine=\pcone\fi
         \if\endrr\brnull \let\ptinull=\pcone\fi\fi\fi      
   \if\startrr\brtwo \ctwoset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pctwo\fi
         \if\endrr\brtwo \let\ptatwo=\pctwo\fi
         \if\endrr\brthree \let\ptathree=\pctwo\fi
         \if\endrr\brfour \let\ptafour=\pctwo\fi
         \if\endrr\brfive \let\ptafive=\pctwo\fi
         \if\endrr\brsix \let\ptasix=\pctwo\fi
         \if\endrr\brseven \let\ptaseven=\pctwo\fi
         \if\endrr\breight \let\ptaeight=\pctwo\fi
         \if\endrr\brnine \let\ptanine=\pctwo\fi
         \if\endrr\brnull \let\ptanull=\pctwo\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pctwo\fi
         \if\endrr\brtwo \let\ptbtwo=\pctwo\fi
         \if\endrr\brthree \let\ptbthree=\pctwo\fi
         \if\endrr\brfour \let\ptbfour=\pctwo\fi
         \if\endrr\brfive \let\ptbfive=\pctwo\fi
         \if\endrr\brsix \let\ptbsix=\pctwo\fi
         \if\endrr\brseven \let\ptbseven=\pctwo\fi
         \if\endrr\breight \let\ptbeight=\pctwo\fi
         \if\endrr\brnine \let\ptbnine=\pctwo\fi
         \if\endrr\brnull \let\ptbnull=\pctwo\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pctwo\fi
         \if\endrr\brtwo \let\ptctwo=\pctwo\fi
         \if\endrr\brthree \let\ptcthree=\pctwo\fi
         \if\endrr\brfour \let\ptcfour=\pctwo\fi
         \if\endrr\brfive \let\ptcfive=\pctwo\fi
         \if\endrr\brsix \let\ptcsix=\pctwo\fi
         \if\endrr\brseven \let\ptcseven=\pctwo\fi
         \if\endrr\breight \let\ptceight=\pctwo\fi
         \if\endrr\brnine \let\ptcnine=\pctwo\fi
         \if\endrr\brnull \let\ptcnull=\pctwo\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pctwo\fi
         \if\endrr\brtwo \let\ptdtwo=\pctwo\fi
         \if\endrr\brthree \let\ptdthree=\pctwo\fi
         \if\endrr\brfour \let\ptdfour=\pctwo\fi
         \if\endrr\brfive \let\ptdfive=\pctwo\fi
         \if\endrr\brsix \let\ptdsix=\pctwo\fi
         \if\endrr\brseven \let\ptdseven=\pctwo\fi
         \if\endrr\breight \let\ptdeight=\pctwo\fi
         \if\endrr\brnine \let\ptdnine=\pctwo\fi
         \if\endrr\brnull \let\ptdnull=\pctwo\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pctwo\fi
         \if\endrr\brtwo \let\ptetwo=\pctwo\fi
         \if\endrr\brthree \let\ptethree=\pctwo\fi
         \if\endrr\brfour \let\ptefour=\pctwo\fi
         \if\endrr\brfive \let\ptefive=\pctwo\fi
         \if\endrr\brsix \let\ptesix=\pctwo\fi
         \if\endrr\brseven \let\pteseven=\pctwo\fi
         \if\endrr\breight \let\pteeight=\pctwo\fi
         \if\endrr\brnine \let\ptenine=\pctwo\fi
         \if\endrr\brnull \let\ptenull=\pctwo\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pctwo\fi
         \if\endrr\brtwo \let\ptftwo=\pctwo\fi
         \if\endrr\brthree \let\ptfthree=\pctwo\fi
         \if\endrr\brfour \let\ptffour=\pctwo\fi
         \if\endrr\brfive \let\ptffive=\pctwo\fi
         \if\endrr\brsix \let\ptfsix=\pctwo\fi
         \if\endrr\brseven \let\ptfseven=\pctwo\fi
         \if\endrr\breight \let\ptfeight=\pctwo\fi
         \if\endrr\brnine \let\ptfnine=\pctwo\fi
         \if\endrr\brnull \let\ptfnull=\pctwo\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pctwo\fi
         \if\endrr\brtwo \let\ptgtwo=\pctwo\fi
         \if\endrr\brthree \let\ptgthree=\pctwo\fi
         \if\endrr\brfour \let\ptgfour=\pctwo\fi
         \if\endrr\brfive \let\ptgfive=\pctwo\fi
         \if\endrr\brsix \let\ptgsix=\pctwo\fi
         \if\endrr\brseven \let\ptgseven=\pctwo\fi
         \if\endrr\breight \let\ptgeight=\pctwo\fi
         \if\endrr\brnine \let\ptgnine=\pctwo\fi
         \if\endrr\brnull \let\ptgnull=\pctwo\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pctwo\fi
         \if\endrr\brtwo \let\pthtwo=\pctwo\fi
         \if\endrr\brthree \let\pththree=\pctwo\fi
         \if\endrr\brfour \let\pthfour=\pctwo\fi
         \if\endrr\brfive \let\pthfive=\pctwo\fi
         \if\endrr\brsix \let\pthsix=\pctwo\fi
         \if\endrr\brseven \let\pthseven=\pctwo\fi
         \if\endrr\breight \let\ptheight=\pctwo\fi
         \if\endrr\brnine \let\pthnine=\pctwo\fi
         \if\endrr\brnull \let\pthnull=\pctwo\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pctwo\fi
         \if\endrr\brtwo \let\ptitwo=\pctwo\fi
         \if\endrr\brthree \let\ptithree=\pctwo\fi
         \if\endrr\brfour \let\ptifour=\pctwo\fi
         \if\endrr\brfive \let\ptifive=\pctwo\fi
         \if\endrr\brsix \let\ptisix=\pctwo\fi
         \if\endrr\brseven \let\ptiseven=\pctwo\fi
         \if\endrr\breight \let\ptieight=\pctwo\fi
         \if\endrr\brnine \let\ptinine=\pctwo\fi
         \if\endrr\brnull \let\ptinull=\pctwo\fi\fi\fi
   \if\startrr\brthree \cthreeset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pcthree\fi
         \if\endrr\brtwo \let\ptatwo=\pcthree\fi
         \if\endrr\brthree \let\ptathree=\pcthree\fi
         \if\endrr\brfour \let\ptafour=\pcthree\fi
         \if\endrr\brfive \let\ptafive=\pcthree\fi
         \if\endrr\brsix \let\ptasix=\pcthree\fi
         \if\endrr\brseven \let\ptaseven=\pcthree\fi
         \if\endrr\breight \let\ptaeight=\pcthree\fi
         \if\endrr\brnine \let\ptanine=\pcthree\fi
         \if\endrr\brnull \let\ptanull=\pcthree\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pcthree\fi
         \if\endrr\brtwo \let\ptbtwo=\pcthree\fi
         \if\endrr\brthree \let\ptbthree=\pcthree\fi
         \if\endrr\brfour \let\ptbfour=\pcthree\fi
         \if\endrr\brfive \let\ptbfive=\pcthree\fi
         \if\endrr\brsix \let\ptbsix=\pcthree\fi
         \if\endrr\brseven \let\ptbseven=\pcthree\fi
         \if\endrr\breight \let\ptbeight=\pcthree\fi
         \if\endrr\brnine \let\ptbnine=\pcthree\fi
         \if\endrr\brnull \let\ptbnull=\pcthree\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pcthree\fi
         \if\endrr\brtwo \let\ptctwo=\pcthree\fi
         \if\endrr\brthree \let\ptcthree=\pcthree\fi
         \if\endrr\brfour \let\ptcfour=\pcthree\fi
         \if\endrr\brfive \let\ptcfive=\pcthree\fi
         \if\endrr\brsix \let\ptcsix=\pcthree\fi
         \if\endrr\brseven \let\ptcseven=\pcthree\fi
         \if\endrr\breight \let\ptceight=\pcthree\fi
         \if\endrr\brnine \let\ptcnine=\pcthree\fi
         \if\endrr\brnull \let\ptcnull=\pcthree\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pcthree\fi
         \if\endrr\brtwo \let\ptdtwo=\pcthree\fi
         \if\endrr\brthree \let\ptdthree=\pcthree\fi
         \if\endrr\brfour \let\ptdfour=\pcthree\fi
         \if\endrr\brfive \let\ptdfive=\pcthree\fi
         \if\endrr\brsix \let\ptdsix=\pcthree\fi
         \if\endrr\brseven \let\ptdseven=\pcthree\fi
         \if\endrr\breight \let\ptdeight=\pcthree\fi
         \if\endrr\brnine \let\ptdnine=\pcthree\fi
         \if\endrr\brnull \let\ptdnull=\pcthree\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pcthree\fi
         \if\endrr\brtwo \let\ptetwo=\pcthree\fi
         \if\endrr\brthree \let\ptethree=\pcthree\fi
         \if\endrr\brfour \let\ptefour=\pcthree\fi
         \if\endrr\brfive \let\ptefive=\pcthree\fi
         \if\endrr\brsix \let\ptesix=\pcthree\fi
         \if\endrr\brseven \let\pteseven=\pcthree\fi
         \if\endrr\breight \let\pteeight=\pcthree\fi
         \if\endrr\brnine \let\ptenine=\pcthree\fi
         \if\endrr\brnull \let\ptenull=\pcthree\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pcthree\fi
         \if\endrr\brtwo \let\ptftwo=\pcthree\fi
         \if\endrr\brthree \let\ptfthree=\pcthree\fi
         \if\endrr\brfour \let\ptffour=\pcthree\fi
         \if\endrr\brfive \let\ptffive=\pcthree\fi
         \if\endrr\brsix \let\ptfsix=\pcthree\fi
         \if\endrr\brseven \let\ptfseven=\pcthree\fi
         \if\endrr\breight \let\ptfeight=\pcthree\fi
         \if\endrr\brnine \let\ptfnine=\pcthree\fi
         \if\endrr\brnull \let\ptfnull=\pcthree\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pcthree\fi
         \if\endrr\brtwo \let\ptgtwo=\pcthree\fi
         \if\endrr\brthree \let\ptgthree=\pcthree\fi
         \if\endrr\brfour \let\ptgfour=\pcthree\fi
         \if\endrr\brfive \let\ptgfive=\pcthree\fi
         \if\endrr\brsix \let\ptgsix=\pcthree\fi
         \if\endrr\brseven \let\ptgseven=\pcthree\fi
         \if\endrr\breight \let\ptgeight=\pcthree\fi
         \if\endrr\brnine \let\ptgnine=\pcthree\fi
         \if\endrr\brnull \let\ptgnull=\pcthree\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pcthree\fi
         \if\endrr\brtwo \let\pthtwo=\pcthree\fi
         \if\endrr\brthree \let\pththree=\pcthree\fi
         \if\endrr\brfour \let\pthfour=\pcthree\fi
         \if\endrr\brfive \let\pthfive=\pcthree\fi
         \if\endrr\brsix \let\pthsix=\pcthree\fi
         \if\endrr\brseven \let\pthseven=\pcthree\fi
         \if\endrr\breight \let\ptheight=\pcthree\fi
         \if\endrr\brnine \let\pthnine=\pcthree\fi
         \if\endrr\brnull \let\pthnull=\pcthree\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pcthree\fi
         \if\endrr\brtwo \let\ptitwo=\pcthree\fi
         \if\endrr\brthree \let\ptithree=\pcthree\fi
         \if\endrr\brfour \let\ptifour=\pcthree\fi
         \if\endrr\brfive \let\ptifive=\pcthree\fi
         \if\endrr\brsix \let\ptisix=\pcthree\fi
         \if\endrr\brseven \let\ptiseven=\pcthree\fi
         \if\endrr\breight \let\ptieight=\pcthree\fi
         \if\endrr\brnine \let\ptinine=\pcthree\fi
         \if\endrr\brnull \let\ptinull=\pcthree\fi\fi\fi      
   \if\startrr\brfour \cfourset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pcfour\fi
         \if\endrr\brtwo \let\ptatwo=\pcfour\fi
         \if\endrr\brthree \let\ptathree=\pcfour\fi
         \if\endrr\brfour \let\ptafour=\pcfour\fi
         \if\endrr\brfive \let\ptafive=\pcfour\fi
         \if\endrr\brsix \let\ptasix=\pcfour\fi
         \if\endrr\brseven \let\ptaseven=\pcfour\fi
         \if\endrr\breight \let\ptaeight=\pcfour\fi
         \if\endrr\brnine \let\ptanine=\pcfour\fi
         \if\endrr\brnull \let\ptanull=\pcfour\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pcfour\fi
         \if\endrr\brtwo \let\ptbtwo=\pcfour\fi
         \if\endrr\brthree \let\ptbthree=\pcfour\fi
         \if\endrr\brfour \let\ptbfour=\pcfour\fi
         \if\endrr\brfive \let\ptbfive=\pcfour\fi
         \if\endrr\brsix \let\ptbsix=\pcfour\fi
         \if\endrr\brseven \let\ptbseven=\pcfour\fi
         \if\endrr\breight \let\ptbeight=\pcfour\fi
         \if\endrr\brnine \let\ptbnine=\pcfour\fi
         \if\endrr\brnull \let\ptbnull=\pcfour\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pcfour\fi
         \if\endrr\brtwo \let\ptctwo=\pcfour\fi
         \if\endrr\brthree \let\ptcthree=\pcfour\fi
         \if\endrr\brfour \let\ptcfour=\pcfour\fi
         \if\endrr\brfive \let\ptcfive=\pcfour\fi
         \if\endrr\brsix \let\ptcsix=\pcfour\fi
         \if\endrr\brseven \let\ptcseven=\pcfour\fi
         \if\endrr\breight \let\ptceight=\pcfour\fi
         \if\endrr\brnine \let\ptcnine=\pcfour\fi
         \if\endrr\brnull \let\ptcnull=\pcfour\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pcfour\fi
         \if\endrr\brtwo \let\ptdtwo=\pcfour\fi
         \if\endrr\brthree \let\ptdthree=\pcfour\fi
         \if\endrr\brfour \let\ptdfour=\pcfour\fi
         \if\endrr\brfive \let\ptdfive=\pcfour\fi
         \if\endrr\brsix \let\ptdsix=\pcfour\fi
         \if\endrr\brseven \let\ptdseven=\pcfour\fi
         \if\endrr\breight \let\ptdeight=\pcfour\fi
         \if\endrr\brnine \let\ptdnine=\pcfour\fi
         \if\endrr\brnull \let\ptdnull=\pcfour\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pcfour\fi
         \if\endrr\brtwo \let\ptetwo=\pcfour\fi
         \if\endrr\brthree \let\ptethree=\pcfour\fi
         \if\endrr\brfour \let\ptefour=\pcfour\fi
         \if\endrr\brfive \let\ptefive=\pcfour\fi
         \if\endrr\brsix \let\ptesix=\pcfour\fi
         \if\endrr\brseven \let\pteseven=\pcfour\fi
         \if\endrr\breight \let\pteeight=\pcfour\fi
         \if\endrr\brnine \let\ptenine=\pcfour\fi
         \if\endrr\brnull \let\ptenull=\pcfour\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pcfour\fi
         \if\endrr\brtwo \let\ptftwo=\pcfour\fi
         \if\endrr\brthree \let\ptfthree=\pcfour\fi
         \if\endrr\brfour \let\ptffour=\pcfour\fi
         \if\endrr\brfive \let\ptffive=\pcfour\fi
         \if\endrr\brsix \let\ptfsix=\pcfour\fi
         \if\endrr\brseven \let\ptfseven=\pcfour\fi
         \if\endrr\breight \let\ptfeight=\pcfour\fi
         \if\endrr\brnine \let\ptfnine=\pcfour\fi
         \if\endrr\brnull \let\ptfnull=\pcfour\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pcfour\fi
         \if\endrr\brtwo \let\ptgtwo=\pcfour\fi
         \if\endrr\brthree \let\ptgthree=\pcfour\fi
         \if\endrr\brfour \let\ptgfour=\pcfour\fi
         \if\endrr\brfive \let\ptgfive=\pcfour\fi
         \if\endrr\brsix \let\ptgsix=\pcfour\fi
         \if\endrr\brseven \let\ptgseven=\pcfour\fi
         \if\endrr\breight \let\ptgeight=\pcfour\fi
         \if\endrr\brnine \let\ptgnine=\pcfour\fi
         \if\endrr\brnull \let\ptgnull=\pcfour\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pcfour\fi
         \if\endrr\brtwo \let\pthtwo=\pcfour\fi
         \if\endrr\brthree \let\pththree=\pcfour\fi
         \if\endrr\brfour \let\pthfour=\pcfour\fi
         \if\endrr\brfive \let\pthfive=\pcfour\fi
         \if\endrr\brsix \let\pthsix=\pcfour\fi
         \if\endrr\brseven \let\pthseven=\pcfour\fi
         \if\endrr\breight \let\ptheight=\pcfour\fi
         \if\endrr\brnine \let\pthnine=\pcfour\fi
         \if\endrr\brnull \let\pthnull=\pcfour\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pcfour\fi
         \if\endrr\brtwo \let\ptitwo=\pcfour\fi
         \if\endrr\brthree \let\ptithree=\pcfour\fi
         \if\endrr\brfour \let\ptifour=\pcfour\fi
         \if\endrr\brfive \let\ptifive=\pcfour\fi
         \if\endrr\brsix \let\ptisix=\pcfour\fi
         \if\endrr\brseven \let\ptiseven=\pcfour\fi
         \if\endrr\breight \let\ptieight=\pcfour\fi
         \if\endrr\brnine \let\ptinine=\pcfour\fi
         \if\endrr\brnull \let\ptinull=\pcfour\fi\fi\fi      
   \if\startrr\brfive \cfiveset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pcfive\fi
         \if\endrr\brtwo \let\ptatwo=\pcfive\fi
         \if\endrr\brthree \let\ptathree=\pcfive\fi
         \if\endrr\brfour \let\ptafour=\pcfive\fi
         \if\endrr\brfive \let\ptafive=\pcfive\fi
         \if\endrr\brsix \let\ptasix=\pcfive\fi
         \if\endrr\brseven \let\ptaseven=\pcfive\fi
         \if\endrr\breight \let\ptaeight=\pcfive\fi
         \if\endrr\brnine \let\ptanine=\pcfive\fi
         \if\endrr\brnull \let\ptanull=\pcfive\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pcfive\fi
         \if\endrr\brtwo \let\ptbtwo=\pcfive\fi
         \if\endrr\brthree \let\ptbthree=\pcfive\fi
         \if\endrr\brfour \let\ptbfour=\pcfive\fi
         \if\endrr\brfive \let\ptbfive=\pcfive\fi
         \if\endrr\brsix \let\ptbsix=\pcfive\fi
         \if\endrr\brseven \let\ptbseven=\pcfive\fi
         \if\endrr\breight \let\ptbeight=\pcfive\fi
         \if\endrr\brnine \let\ptbnine=\pcfive\fi
         \if\endrr\brnull \let\ptbnull=\pcfive\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pcfive\fi
         \if\endrr\brtwo \let\ptctwo=\pcfive\fi
         \if\endrr\brthree \let\ptcthree=\pcfive\fi
         \if\endrr\brfour \let\ptcfour=\pcfive\fi
         \if\endrr\brfive \let\ptcfive=\pcfive\fi
         \if\endrr\brsix \let\ptcsix=\pcfive\fi
         \if\endrr\brseven \let\ptcseven=\pcfive\fi
         \if\endrr\breight \let\ptceight=\pcfive\fi
         \if\endrr\brnine \let\ptcnine=\pcfive\fi
         \if\endrr\brnull \let\ptcnull=\pcfive\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pcfive\fi
         \if\endrr\brtwo \let\ptdtwo=\pcfive\fi
         \if\endrr\brthree \let\ptdthree=\pcfive\fi
         \if\endrr\brfour \let\ptdfour=\pcfive\fi
         \if\endrr\brfive \let\ptdfive=\pcfive\fi
         \if\endrr\brsix \let\ptdsix=\pcfive\fi
         \if\endrr\brseven \let\ptdseven=\pcfive\fi
         \if\endrr\breight \let\ptdeight=\pcfive\fi
         \if\endrr\brnine \let\ptdnine=\pcfive\fi
         \if\endrr\brnull \let\ptdnull=\pcfive\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pcfive\fi
         \if\endrr\brtwo \let\ptetwo=\pcfive\fi
         \if\endrr\brthree \let\ptethree=\pcfive\fi
         \if\endrr\brfour \let\ptefour=\pcfive\fi
         \if\endrr\brfive \let\ptefive=\pcfive\fi
         \if\endrr\brsix \let\ptesix=\pcfive\fi
         \if\endrr\brseven \let\pteseven=\pcfive\fi
         \if\endrr\breight \let\pteeight=\pcfive\fi
         \if\endrr\brnine \let\ptenine=\pcfive\fi
         \if\endrr\brnull \let\ptenull=\pcfive\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pcfive\fi
         \if\endrr\brtwo \let\ptftwo=\pcfive\fi
         \if\endrr\brthree \let\ptfthree=\pcfive\fi
         \if\endrr\brfour \let\ptffour=\pcfive\fi
         \if\endrr\brfive \let\ptffive=\pcfive\fi
         \if\endrr\brsix \let\ptfsix=\pcfive\fi
         \if\endrr\brseven \let\ptfseven=\pcfive\fi
         \if\endrr\breight \let\ptfeight=\pcfive\fi
         \if\endrr\brnine \let\ptfnine=\pcfive\fi
         \if\endrr\brnull \let\ptfnull=\pcfive\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pcfive\fi
         \if\endrr\brtwo \let\ptgtwo=\pcfive\fi
         \if\endrr\brthree \let\ptgthree=\pcfive\fi
         \if\endrr\brfour \let\ptgfour=\pcfive\fi
         \if\endrr\brfive \let\ptgfive=\pcfive\fi
         \if\endrr\brsix \let\ptgsix=\pcfive\fi
         \if\endrr\brseven \let\ptgseven=\pcfive\fi
         \if\endrr\breight \let\ptgeight=\pcfive\fi
         \if\endrr\brnine \let\ptgnine=\pcfive\fi
         \if\endrr\brnull \let\ptgnull=\pcfive\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pcfive\fi
         \if\endrr\brtwo \let\pthtwo=\pcfive\fi
         \if\endrr\brthree \let\pththree=\pcfive\fi
         \if\endrr\brfour \let\pthfour=\pcfive\fi
         \if\endrr\brfive \let\pthfive=\pcfive\fi
         \if\endrr\brsix \let\pthsix=\pcfive\fi
         \if\endrr\brseven \let\pthseven=\pcfive\fi
         \if\endrr\breight \let\ptheight=\pcfive\fi
         \if\endrr\brnine \let\pthnine=\pcfive\fi
         \if\endrr\brnull \let\pthnull=\pcfive\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pcfive\fi
         \if\endrr\brtwo \let\ptitwo=\pcfive\fi
         \if\endrr\brthree \let\ptithree=\pcfive\fi
         \if\endrr\brfour \let\ptifour=\pcfive\fi
         \if\endrr\brfive \let\ptifive=\pcfive\fi
         \if\endrr\brsix \let\ptisix=\pcfive\fi
         \if\endrr\brseven \let\ptiseven=\pcfive\fi
         \if\endrr\breight \let\ptieight=\pcfive\fi
         \if\endrr\brnine \let\ptinine=\pcfive\fi
         \if\endrr\brnull \let\ptinull=\pcfive\fi\fi\fi   
   \if\startrr\brsix \csixset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pcsix\fi
         \if\endrr\brtwo \let\ptatwo=\pcsix\fi
         \if\endrr\brthree \let\ptathree=\pcsix\fi
         \if\endrr\brfour \let\ptafour=\pcsix\fi
         \if\endrr\brfive \let\ptafive=\pcsix\fi
         \if\endrr\brsix \let\ptasix=\pcsix\fi
         \if\endrr\brseven \let\ptaseven=\pcsix\fi
         \if\endrr\breight \let\ptaeight=\pcsix\fi
         \if\endrr\brnine \let\ptanine=\pcsix\fi
         \if\endrr\brnull \let\ptanull=\pcsix\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pcsix\fi
         \if\endrr\brtwo \let\ptbtwo=\pcsix\fi
         \if\endrr\brthree \let\ptbthree=\pcsix\fi
         \if\endrr\brfour \let\ptbfour=\pcsix\fi
         \if\endrr\brfive \let\ptbfive=\pcsix\fi
         \if\endrr\brsix \let\ptbsix=\pcsix\fi
         \if\endrr\brseven \let\ptbseven=\pcsix\fi
         \if\endrr\breight \let\ptbeight=\pcsix\fi
         \if\endrr\brnine \let\ptbnine=\pcsix\fi
         \if\endrr\brnull \let\ptbnull=\pcsix\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pcsix\fi
         \if\endrr\brtwo \let\ptctwo=\pcsix\fi
         \if\endrr\brthree \let\ptcthree=\pcsix\fi
         \if\endrr\brfour \let\ptcfour=\pcsix\fi
         \if\endrr\brfive \let\ptcfive=\pcsix\fi
         \if\endrr\brsix \let\ptcsix=\pcsix\fi
         \if\endrr\brseven \let\ptcseven=\pcsix\fi
         \if\endrr\breight \let\ptceight=\pcsix\fi
         \if\endrr\brnine \let\ptcnine=\pcsix\fi
         \if\endrr\brnull \let\ptcnull=\pcsix\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pcsix\fi
         \if\endrr\brtwo \let\ptdtwo=\pcsix\fi
         \if\endrr\brthree \let\ptdthree=\pcsix\fi
         \if\endrr\brfour \let\ptdfour=\pcsix\fi
         \if\endrr\brfive \let\ptdfive=\pcsix\fi
         \if\endrr\brsix \let\ptdsix=\pcsix\fi
         \if\endrr\brseven \let\ptdseven=\pcsix\fi
         \if\endrr\breight \let\ptdeight=\pcsix\fi
         \if\endrr\brnine \let\ptdnine=\pcsix\fi
         \if\endrr\brnull \let\ptdnull=\pcsix\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pcsix\fi
         \if\endrr\brtwo \let\ptetwo=\pcsix\fi
         \if\endrr\brthree \let\ptethree=\pcsix\fi
         \if\endrr\brfour \let\ptefour=\pcsix\fi
         \if\endrr\brfive \let\ptefive=\pcsix\fi
         \if\endrr\brsix \let\ptesix=\pcsix\fi
         \if\endrr\brseven \let\pteseven=\pcsix\fi
         \if\endrr\breight \let\pteeight=\pcsix\fi
         \if\endrr\brnine \let\ptenine=\pcsix\fi
         \if\endrr\brnull \let\ptenull=\pcsix\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pcsix\fi
         \if\endrr\brtwo \let\ptftwo=\pcsix\fi
         \if\endrr\brthree \let\ptfthree=\pcsix\fi
         \if\endrr\brfour \let\ptffour=\pcsix\fi
         \if\endrr\brfive \let\ptffive=\pcsix\fi
         \if\endrr\brsix \let\ptfsix=\pcsix\fi
         \if\endrr\brseven \let\ptfseven=\pcsix\fi
         \if\endrr\breight \let\ptfeight=\pcsix\fi
         \if\endrr\brnine \let\ptfnine=\pcsix\fi
         \if\endrr\brnull \let\ptfnull=\pcsix\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pcsix\fi
         \if\endrr\brtwo \let\ptgtwo=\pcsix\fi
         \if\endrr\brthree \let\ptgthree=\pcsix\fi
         \if\endrr\brfour \let\ptgfour=\pcsix\fi
         \if\endrr\brfive \let\ptgfive=\pcsix\fi
         \if\endrr\brsix \let\ptgsix=\pcsix\fi
         \if\endrr\brseven \let\ptgseven=\pcsix\fi
         \if\endrr\breight \let\ptgeight=\pcsix\fi
         \if\endrr\brnine \let\ptgnine=\pcsix\fi
         \if\endrr\brnull \let\ptgnull=\pcsix\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pcsix\fi
         \if\endrr\brtwo \let\pthtwo=\pcsix\fi
         \if\endrr\brthree \let\pththree=\pcsix\fi
         \if\endrr\brfour \let\pthfour=\pcsix\fi
         \if\endrr\brfive \let\pthfive=\pcsix\fi
         \if\endrr\brsix \let\pthsix=\pcsix\fi
         \if\endrr\brseven \let\pthseven=\pcsix\fi
         \if\endrr\breight \let\ptheight=\pcsix\fi
         \if\endrr\brnine \let\pthnine=\pcsix\fi
         \if\endrr\brnull \let\pthnull=\pcsix\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pcsix\fi
         \if\endrr\brtwo \let\ptitwo=\pcsix\fi
         \if\endrr\brthree \let\ptithree=\pcsix\fi
         \if\endrr\brfour \let\ptifour=\pcsix\fi
         \if\endrr\brfive \let\ptifive=\pcsix\fi
         \if\endrr\brsix \let\ptisix=\pcsix\fi
         \if\endrr\brseven \let\ptiseven=\pcsix\fi
         \if\endrr\breight \let\ptieight=\pcsix\fi
         \if\endrr\brnine \let\ptinine=\pcsix\fi
         \if\endrr\brnull \let\ptinull=\pcsix\fi\fi\fi
   \if\startrr\brseven \csevenset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pcseven\fi
         \if\endrr\brtwo \let\ptatwo=\pcseven\fi
         \if\endrr\brthree \let\ptathree=\pcseven\fi
         \if\endrr\brfour \let\ptafour=\pcseven\fi
         \if\endrr\brfive \let\ptafive=\pcseven\fi
         \if\endrr\brsix \let\ptasix=\pcseven\fi
         \if\endrr\brseven \let\ptaseven=\pcseven\fi
         \if\endrr\breight \let\ptaeight=\pcseven\fi
         \if\endrr\brnine \let\ptanine=\pcseven\fi
         \if\endrr\brnull \let\ptanull=\pcseven\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pcseven\fi
         \if\endrr\brtwo \let\ptbtwo=\pcseven\fi
         \if\endrr\brthree \let\ptbthree=\pcseven\fi
         \if\endrr\brfour \let\ptbfour=\pcseven\fi
         \if\endrr\brfive \let\ptbfive=\pcseven\fi
         \if\endrr\brsix \let\ptbsix=\pcseven\fi
         \if\endrr\brseven \let\ptbseven=\pcseven\fi
         \if\endrr\breight \let\ptbeight=\pcseven\fi
         \if\endrr\brnine \let\ptbnine=\pcseven\fi
         \if\endrr\brnull \let\ptbnull=\pcseven\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pcseven\fi
         \if\endrr\brtwo \let\ptctwo=\pcseven\fi
         \if\endrr\brthree \let\ptcthree=\pcseven\fi
         \if\endrr\brfour \let\ptcfour=\pcseven\fi
         \if\endrr\brfive \let\ptcfive=\pcseven\fi
         \if\endrr\brsix \let\ptcsix=\pcseven\fi
         \if\endrr\brseven \let\ptcseven=\pcseven\fi
         \if\endrr\breight \let\ptceight=\pcseven\fi
         \if\endrr\brnine \let\ptcnine=\pcseven\fi
         \if\endrr\brnull \let\ptcnull=\pcseven\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pcseven\fi
         \if\endrr\brtwo \let\ptdtwo=\pcseven\fi
         \if\endrr\brthree \let\ptdthree=\pcseven\fi
         \if\endrr\brfour \let\ptdfour=\pcseven\fi
         \if\endrr\brfive \let\ptdfive=\pcseven\fi
         \if\endrr\brsix \let\ptdsix=\pcseven\fi
         \if\endrr\brseven \let\ptdseven=\pcseven\fi
         \if\endrr\breight \let\ptdeight=\pcseven\fi
         \if\endrr\brnine \let\ptdnine=\pcseven\fi
         \if\endrr\brnull \let\ptdnull=\pcseven\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pcseven\fi
         \if\endrr\brtwo \let\ptetwo=\pcseven\fi
         \if\endrr\brthree \let\ptethree=\pcseven\fi
         \if\endrr\brfour \let\ptefour=\pcseven\fi
         \if\endrr\brfive \let\ptefive=\pcseven\fi
         \if\endrr\brsix \let\ptesix=\pcseven\fi
         \if\endrr\brseven \let\pteseven=\pcseven\fi
         \if\endrr\breight \let\pteeight=\pcseven\fi
         \if\endrr\brnine \let\ptenine=\pcseven\fi
         \if\endrr\brnull \let\ptenull=\pcseven\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pcseven\fi
         \if\endrr\brtwo \let\ptftwo=\pcseven\fi
         \if\endrr\brthree \let\ptfthree=\pcseven\fi
         \if\endrr\brfour \let\ptffour=\pcseven\fi
         \if\endrr\brfive \let\ptffive=\pcseven\fi
         \if\endrr\brsix \let\ptfsix=\pcseven\fi
         \if\endrr\brseven \let\ptfseven=\pcseven\fi
         \if\endrr\breight \let\ptfeight=\pcseven\fi
         \if\endrr\brnine \let\ptfnine=\pcseven\fi
         \if\endrr\brnull \let\ptfnull=\pcseven\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pcseven\fi
         \if\endrr\brtwo \let\ptgtwo=\pcseven\fi
         \if\endrr\brthree \let\ptgthree=\pcseven\fi
         \if\endrr\brfour \let\ptgfour=\pcseven\fi
         \if\endrr\brfive \let\ptgfive=\pcseven\fi
         \if\endrr\brsix \let\ptgsix=\pcseven\fi
         \if\endrr\brseven \let\ptgseven=\pcseven\fi
         \if\endrr\breight \let\ptgeight=\pcseven\fi
         \if\endrr\brnine \let\ptgnine=\pcseven\fi
         \if\endrr\brnull \let\ptgnull=\pcseven\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pcseven\fi
         \if\endrr\brtwo \let\pthtwo=\pcseven\fi
         \if\endrr\brthree \let\pththree=\pcseven\fi
         \if\endrr\brfour \let\pthfour=\pcseven\fi
         \if\endrr\brfive \let\pthfive=\pcseven\fi
         \if\endrr\brsix \let\pthsix=\pcseven\fi
         \if\endrr\brseven \let\pthseven=\pcseven\fi
         \if\endrr\breight \let\ptheight=\pcseven\fi
         \if\endrr\brnine \let\pthnine=\pcseven\fi
         \if\endrr\brnull \let\pthnull=\pcseven\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pcseven\fi
         \if\endrr\brtwo \let\ptitwo=\pcseven\fi
         \if\endrr\brthree \let\ptithree=\pcseven\fi
         \if\endrr\brfour \let\ptifour=\pcseven\fi
         \if\endrr\brfive \let\ptifive=\pcseven\fi
         \if\endrr\brsix \let\ptisix=\pcseven\fi
         \if\endrr\brseven \let\ptiseven=\pcseven\fi
         \if\endrr\breight \let\ptieight=\pcseven\fi
         \if\endrr\brnine \let\ptinine=\pcseven\fi
         \if\endrr\brnull \let\ptinull=\pcseven\fi\fi\fi      
   \if\startrr\breight \ceightset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pceight\fi
         \if\endrr\brtwo \let\ptatwo=\pceight\fi
         \if\endrr\brthree \let\ptathree=\pceight\fi
         \if\endrr\brfour \let\ptafour=\pceight\fi
         \if\endrr\brfive \let\ptafive=\pceight\fi
         \if\endrr\brsix \let\ptasix=\pceight\fi
         \if\endrr\brseven \let\ptaseven=\pceight\fi
         \if\endrr\breight \let\ptaeight=\pceight\fi
         \if\endrr\brnine \let\ptanine=\pceight\fi
         \if\endrr\brnull \let\ptanull=\pceight\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pceight\fi
         \if\endrr\brtwo \let\ptbtwo=\pceight\fi
         \if\endrr\brthree \let\ptbthree=\pceight\fi
         \if\endrr\brfour \let\ptbfour=\pceight\fi
         \if\endrr\brfive \let\ptbfive=\pceight\fi
         \if\endrr\brsix \let\ptbsix=\pceight\fi
         \if\endrr\brseven \let\ptbseven=\pceight\fi
         \if\endrr\breight \let\ptbeight=\pceight\fi
         \if\endrr\brnine \let\ptbnine=\pceight\fi
         \if\endrr\brnull \let\ptbnull=\pceight\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pceight\fi
         \if\endrr\brtwo \let\ptctwo=\pceight\fi
         \if\endrr\brthree \let\ptcthree=\pceight\fi
         \if\endrr\brfour \let\ptcfour=\pceight\fi
         \if\endrr\brfive \let\ptcfive=\pceight\fi
         \if\endrr\brsix \let\ptcsix=\pceight\fi
         \if\endrr\brseven \let\ptcseven=\pceight\fi
         \if\endrr\breight \let\ptceight=\pceight\fi
         \if\endrr\brnine \let\ptcnine=\pceight\fi
         \if\endrr\brnull \let\ptcnull=\pceight\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pceight\fi
         \if\endrr\brtwo \let\ptdtwo=\pceight\fi
         \if\endrr\brthree \let\ptdthree=\pceight\fi
         \if\endrr\brfour \let\ptdfour=\pceight\fi
         \if\endrr\brfive \let\ptdfive=\pceight\fi
         \if\endrr\brsix \let\ptdsix=\pceight\fi
         \if\endrr\brseven \let\ptdseven=\pceight\fi
         \if\endrr\breight \let\ptdeight=\pceight\fi
         \if\endrr\brnine \let\ptdnine=\pceight\fi
         \if\endrr\brnull \let\ptdnull=\pceight\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pceight\fi
         \if\endrr\brtwo \let\ptetwo=\pceight\fi
         \if\endrr\brthree \let\ptethree=\pceight\fi
         \if\endrr\brfour \let\ptefour=\pceight\fi
         \if\endrr\brfive \let\ptefive=\pceight\fi
         \if\endrr\brsix \let\ptesix=\pceight\fi
         \if\endrr\brseven \let\pteseven=\pceight\fi
         \if\endrr\breight \let\pteeight=\pceight\fi
         \if\endrr\brnine \let\ptenine=\pceight\fi
         \if\endrr\brnull \let\ptenull=\pceight\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pceight\fi
         \if\endrr\brtwo \let\ptftwo=\pceight\fi
         \if\endrr\brthree \let\ptfthree=\pceight\fi
         \if\endrr\brfour \let\ptffour=\pceight\fi
         \if\endrr\brfive \let\ptffive=\pceight\fi
         \if\endrr\brsix \let\ptfsix=\pceight\fi
         \if\endrr\brseven \let\ptfseven=\pceight\fi
         \if\endrr\breight \let\ptfeight=\pceight\fi
         \if\endrr\brnine \let\ptfnine=\pceight\fi
         \if\endrr\brnull \let\ptfnull=\pceight\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pceight\fi
         \if\endrr\brtwo \let\ptgtwo=\pceight\fi
         \if\endrr\brthree \let\ptgthree=\pceight\fi
         \if\endrr\brfour \let\ptgfour=\pceight\fi
         \if\endrr\brfive \let\ptgfive=\pceight\fi
         \if\endrr\brsix \let\ptgsix=\pceight\fi
         \if\endrr\brseven \let\ptgseven=\pceight\fi
         \if\endrr\breight \let\ptgeight=\pceight\fi
         \if\endrr\brnine \let\ptgnine=\pceight\fi
         \if\endrr\brnull \let\ptgnull=\pceight\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pceight\fi
         \if\endrr\brtwo \let\pthtwo=\pceight\fi
         \if\endrr\brthree \let\pththree=\pceight\fi
         \if\endrr\brfour \let\pthfour=\pceight\fi
         \if\endrr\brfive \let\pthfive=\pceight\fi
         \if\endrr\brsix \let\pthsix=\pceight\fi
         \if\endrr\brseven \let\pthseven=\pceight\fi
         \if\endrr\breight \let\ptheight=\pceight\fi
         \if\endrr\brnine \let\pthnine=\pceight\fi
         \if\endrr\brnull \let\pthnull=\pceight\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pceight\fi
         \if\endrr\brtwo \let\ptitwo=\pceight\fi
         \if\endrr\brthree \let\ptithree=\pceight\fi
         \if\endrr\brfour \let\ptifour=\pceight\fi
         \if\endrr\brfive \let\ptifive=\pceight\fi
         \if\endrr\brsix \let\ptisix=\pceight\fi
         \if\endrr\brseven \let\ptiseven=\pceight\fi
         \if\endrr\breight \let\ptieight=\pceight\fi
         \if\endrr\brnine \let\ptinine=\pceight\fi
         \if\endrr\brnull \let\ptinull=\pceight\fi\fi\fi      
   \if\startrr\brnine \cnineset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pcnine\fi
         \if\endrr\brtwo \let\ptatwo=\pcnine\fi
         \if\endrr\brthree \let\ptathree=\pcnine\fi
         \if\endrr\brfour \let\ptafour=\pcnine\fi
         \if\endrr\brfive \let\ptafive=\pcnine\fi
         \if\endrr\brsix \let\ptasix=\pcnine\fi
         \if\endrr\brseven \let\ptaseven=\pcnine\fi
         \if\endrr\breight \let\ptaeight=\pcnine\fi
         \if\endrr\brnine \let\ptanine=\pcnine\fi
         \if\endrr\brnull \let\ptanull=\pcnine\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pcnine\fi
         \if\endrr\brtwo \let\ptbtwo=\pcnine\fi
         \if\endrr\brthree \let\ptbthree=\pcnine\fi
         \if\endrr\brfour \let\ptbfour=\pcnine\fi
         \if\endrr\brfive \let\ptbfive=\pcnine\fi
         \if\endrr\brsix \let\ptbsix=\pcnine\fi
         \if\endrr\brseven \let\ptbseven=\pcnine\fi
         \if\endrr\breight \let\ptbeight=\pcnine\fi
         \if\endrr\brnine \let\ptbnine=\pcnine\fi
         \if\endrr\brnull \let\ptbnull=\pcnine\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pcnine\fi
         \if\endrr\brtwo \let\ptctwo=\pcnine\fi
         \if\endrr\brthree \let\ptcthree=\pcnine\fi
         \if\endrr\brfour \let\ptcfour=\pcnine\fi
         \if\endrr\brfive \let\ptcfive=\pcnine\fi
         \if\endrr\brsix \let\ptcsix=\pcnine\fi
         \if\endrr\brseven \let\ptcseven=\pcnine\fi
         \if\endrr\breight \let\ptceight=\pcnine\fi
         \if\endrr\brnine \let\ptcnine=\pcnine\fi
         \if\endrr\brnull \let\ptcnull=\pcnine\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pcnine\fi
         \if\endrr\brtwo \let\ptdtwo=\pcnine\fi
         \if\endrr\brthree \let\ptdthree=\pcnine\fi
         \if\endrr\brfour \let\ptdfour=\pcnine\fi
         \if\endrr\brfive \let\ptdfive=\pcnine\fi
         \if\endrr\brsix \let\ptdsix=\pcnine\fi
         \if\endrr\brseven \let\ptdseven=\pcnine\fi
         \if\endrr\breight \let\ptdeight=\pcnine\fi
         \if\endrr\brnine \let\ptdnine=\pcnine\fi
         \if\endrr\brnull \let\ptdnull=\pcnine\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pcnine\fi
         \if\endrr\brtwo \let\ptetwo=\pcnine\fi
         \if\endrr\brthree \let\ptethree=\pcnine\fi
         \if\endrr\brfour \let\ptefour=\pcnine\fi
         \if\endrr\brfive \let\ptefive=\pcnine\fi
         \if\endrr\brsix \let\ptesix=\pcnine\fi
         \if\endrr\brseven \let\pteseven=\pcnine\fi
         \if\endrr\breight \let\pteeight=\pcnine\fi
         \if\endrr\brnine \let\ptenine=\pcnine\fi
         \if\endrr\brnull \let\ptenull=\pcnine\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pcnine\fi
         \if\endrr\brtwo \let\ptftwo=\pcnine\fi
         \if\endrr\brthree \let\ptfthree=\pcnine\fi
         \if\endrr\brfour \let\ptffour=\pcnine\fi
         \if\endrr\brfive \let\ptffive=\pcnine\fi
         \if\endrr\brsix \let\ptfsix=\pcnine\fi
         \if\endrr\brseven \let\ptfseven=\pcnine\fi
         \if\endrr\breight \let\ptfeight=\pcnine\fi
         \if\endrr\brnine \let\ptfnine=\pcnine\fi
         \if\endrr\brnull \let\ptfnull=\pcnine\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pcnine\fi
         \if\endrr\brtwo \let\ptgtwo=\pcnine\fi
         \if\endrr\brthree \let\ptgthree=\pcnine\fi
         \if\endrr\brfour \let\ptgfour=\pcnine\fi
         \if\endrr\brfive \let\ptgfive=\pcnine\fi
         \if\endrr\brsix \let\ptgsix=\pcnine\fi
         \if\endrr\brseven \let\ptgseven=\pcnine\fi
         \if\endrr\breight \let\ptgeight=\pcnine\fi
         \if\endrr\brnine \let\ptgnine=\pcnine\fi
         \if\endrr\brnull \let\ptgnull=\pcnine\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pcnine\fi
         \if\endrr\brtwo \let\pthtwo=\pcnine\fi
         \if\endrr\brthree \let\pththree=\pcnine\fi
         \if\endrr\brfour \let\pthfour=\pcnine\fi
         \if\endrr\brfive \let\pthfive=\pcnine\fi
         \if\endrr\brsix \let\pthsix=\pcnine\fi
         \if\endrr\brseven \let\pthseven=\pcnine\fi
         \if\endrr\breight \let\ptheight=\pcnine\fi
         \if\endrr\brnine \let\pthnine=\pcnine\fi
         \if\endrr\brnull \let\pthnull=\pcnine\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pcnine\fi
         \if\endrr\brtwo \let\ptitwo=\pcnine\fi
         \if\endrr\brthree \let\ptithree=\pcnine\fi
         \if\endrr\brfour \let\ptifour=\pcnine\fi
         \if\endrr\brfive \let\ptifive=\pcnine\fi
         \if\endrr\brsix \let\ptisix=\pcnine\fi
         \if\endrr\brseven \let\ptiseven=\pcnine\fi
         \if\endrr\breight \let\ptieight=\pcnine\fi
         \if\endrr\brnine \let\ptinine=\pcnine\fi
         \if\endrr\brnull \let\ptinull=\pcnine\fi\fi\fi      
   \if\startrr\brnull \cnullset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pcnull\fi
         \if\endrr\brtwo \let\ptatwo=\pcnull\fi
         \if\endrr\brthree \let\ptathree=\pcnull\fi
         \if\endrr\brfour \let\ptafour=\pcnull\fi
         \if\endrr\brfive \let\ptafive=\pcnull\fi
         \if\endrr\brsix \let\ptasix=\pcnull\fi
         \if\endrr\brseven \let\ptaseven=\pcnull\fi
         \if\endrr\breight \let\ptaeight=\pcnull\fi
         \if\endrr\brnine \let\ptanine=\pcnull\fi
         \if\endrr\brnull \let\ptanull=\pcnull\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pcnull\fi
         \if\endrr\brtwo \let\ptbtwo=\pcnull\fi
         \if\endrr\brthree \let\ptbthree=\pcnull\fi
         \if\endrr\brfour \let\ptbfour=\pcnull\fi
         \if\endrr\brfive \let\ptbfive=\pcnull\fi
         \if\endrr\brsix \let\ptbsix=\pcnull\fi
         \if\endrr\brseven \let\ptbseven=\pcnull\fi
         \if\endrr\breight \let\ptbeight=\pcnull\fi
         \if\endrr\brnine \let\ptbnine=\pcnull\fi
         \if\endrr\brnull \let\ptbnull=\pcnull\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pcnull\fi
         \if\endrr\brtwo \let\ptctwo=\pcnull\fi
         \if\endrr\brthree \let\ptcthree=\pcnull\fi
         \if\endrr\brfour \let\ptcfour=\pcnull\fi
         \if\endrr\brfive \let\ptcfive=\pcnull\fi
         \if\endrr\brsix \let\ptcsix=\pcnull\fi
         \if\endrr\brseven \let\ptcseven=\pcnull\fi
         \if\endrr\breight \let\ptceight=\pcnull\fi
         \if\endrr\brnine \let\ptcnine=\pcnull\fi
         \if\endrr\brnull \let\ptcnull=\pcnull\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pcnull\fi
         \if\endrr\brtwo \let\ptdtwo=\pcnull\fi
         \if\endrr\brthree \let\ptdthree=\pcnull\fi
         \if\endrr\brfour \let\ptdfour=\pcnull\fi
         \if\endrr\brfive \let\ptdfive=\pcnull\fi
         \if\endrr\brsix \let\ptdsix=\pcnull\fi
         \if\endrr\brseven \let\ptdseven=\pcnull\fi
         \if\endrr\breight \let\ptdeight=\pcnull\fi
         \if\endrr\brnine \let\ptdnine=\pcnull\fi
         \if\endrr\brnull \let\ptdnull=\pcnull\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pcnull\fi
         \if\endrr\brtwo \let\ptetwo=\pcnull\fi
         \if\endrr\brthree \let\ptethree=\pcnull\fi
         \if\endrr\brfour \let\ptefour=\pcnull\fi
         \if\endrr\brfive \let\ptefive=\pcnull\fi
         \if\endrr\brsix \let\ptesix=\pcnull\fi
         \if\endrr\brseven \let\pteseven=\pcnull\fi
         \if\endrr\breight \let\pteeight=\pcnull\fi
         \if\endrr\brnine \let\ptenine=\pcnull\fi
         \if\endrr\brnull \let\ptenull=\pcnull\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pcnull\fi
         \if\endrr\brtwo \let\ptftwo=\pcnull\fi
         \if\endrr\brthree \let\ptfthree=\pcnull\fi
         \if\endrr\brfour \let\ptffour=\pcnull\fi
         \if\endrr\brfive \let\ptffive=\pcnull\fi
         \if\endrr\brsix \let\ptfsix=\pcnull\fi
         \if\endrr\brseven \let\ptfseven=\pcnull\fi
         \if\endrr\breight \let\ptfeight=\pcnull\fi
         \if\endrr\brnine \let\ptfnine=\pcnull\fi
         \if\endrr\brnull \let\ptfnull=\pcnull\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pcnull\fi
         \if\endrr\brtwo \let\ptgtwo=\pcnull\fi
         \if\endrr\brthree \let\ptgthree=\pcnull\fi
         \if\endrr\brfour \let\ptgfour=\pcnull\fi
         \if\endrr\brfive \let\ptgfive=\pcnull\fi
         \if\endrr\brsix \let\ptgsix=\pcnull\fi
         \if\endrr\brseven \let\ptgseven=\pcnull\fi
         \if\endrr\breight \let\ptgeight=\pcnull\fi
         \if\endrr\brnine \let\ptgnine=\pcnull\fi
         \if\endrr\brnull \let\ptgnull=\pcnull\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pcnull\fi
         \if\endrr\brtwo \let\pthtwo=\pcnull\fi
         \if\endrr\brthree \let\pththree=\pcnull\fi
         \if\endrr\brfour \let\pthfour=\pcnull\fi
         \if\endrr\brfive \let\pthfive=\pcnull\fi
         \if\endrr\brsix \let\pthsix=\pcnull\fi
         \if\endrr\brseven \let\pthseven=\pcnull\fi
         \if\endrr\breight \let\ptheight=\pcnull\fi
         \if\endrr\brnine \let\pthnine=\pcnull\fi
         \if\endrr\brnull \let\pthnull=\pcnull\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pcnull\fi
         \if\endrr\brtwo \let\ptitwo=\pcnull\fi
         \if\endrr\brthree \let\ptithree=\pcnull\fi
         \if\endrr\brfour \let\ptifour=\pcnull\fi
         \if\endrr\brfive \let\ptifive=\pcnull\fi
         \if\endrr\brsix \let\ptisix=\pcnull\fi
         \if\endrr\brseven \let\ptiseven=\pcnull\fi
         \if\endrr\breight \let\ptieight=\pcnull\fi
         \if\endrr\brnine \let\ptinine=\pcnull\fi
         \if\endrr\brnull \let\ptinull=\pcnull\fi\fi\fi\fi  
\if\startlr\dli
   \if\startrr\brone \doneset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pdone\fi
         \if\endrr\brtwo \let\ptatwo=\pdone\fi
         \if\endrr\brthree \let\ptathree=\pdone\fi
         \if\endrr\brfour \let\ptafour=\pdone\fi
         \if\endrr\brfive \let\ptafive=\pdone\fi
         \if\endrr\brsix \let\ptasix=\pdone\fi
         \if\endrr\brseven \let\ptaseven=\pdone\fi
         \if\endrr\breight \let\ptaeight=\pdone\fi
         \if\endrr\brnine \let\ptanine=\pdone\fi
         \if\endrr\brnull \let\ptanull=\pdone\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pdone\fi
         \if\endrr\brtwo \let\ptbtwo=\pdone\fi
         \if\endrr\brthree \let\ptbthree=\pdone\fi
         \if\endrr\brfour \let\ptbfour=\pdone\fi
         \if\endrr\brfive \let\ptbfive=\pdone\fi
         \if\endrr\brsix \let\ptbsix=\pdone\fi
         \if\endrr\brseven \let\ptbseven=\pdone\fi
         \if\endrr\breight \let\ptbeight=\pdone\fi
         \if\endrr\brnine \let\ptbnine=\pdone\fi
         \if\endrr\brnull \let\ptbnull=\pdone\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pdone\fi
         \if\endrr\brtwo \let\ptctwo=\pdone\fi
         \if\endrr\brthree \let\ptcthree=\pdone\fi
         \if\endrr\brfour \let\ptcfour=\pdone\fi
         \if\endrr\brfive \let\ptcfive=\pdone\fi
         \if\endrr\brsix \let\ptcsix=\pdone\fi
         \if\endrr\brseven \let\ptcseven=\pdone\fi
         \if\endrr\breight \let\ptceight=\pdone\fi
         \if\endrr\brnine \let\ptcnine=\pdone\fi
         \if\endrr\brnull \let\ptcnull=\pdone\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pdone\fi
         \if\endrr\brtwo \let\ptdtwo=\pdone\fi
         \if\endrr\brthree \let\ptdthree=\pdone\fi
         \if\endrr\brfour \let\ptdfour=\pdone\fi
         \if\endrr\brfive \let\ptdfive=\pdone\fi
         \if\endrr\brsix \let\ptdsix=\pdone\fi
         \if\endrr\brseven \let\ptdseven=\pdone\fi
         \if\endrr\breight \let\ptdeight=\pdone\fi
         \if\endrr\brnine \let\ptdnine=\pdone\fi
         \if\endrr\brnull \let\ptdnull=\pdone\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pdone\fi
         \if\endrr\brtwo \let\ptetwo=\pdone\fi
         \if\endrr\brthree \let\ptethree=\pdone\fi
         \if\endrr\brfour \let\ptefour=\pdone\fi
         \if\endrr\brfive \let\ptefive=\pdone\fi
         \if\endrr\brsix \let\ptesix=\pdone\fi
         \if\endrr\brseven \let\pteseven=\pdone\fi
         \if\endrr\breight \let\pteeight=\pdone\fi
         \if\endrr\brnine \let\ptenine=\pdone\fi
         \if\endrr\brnull \let\ptenull=\pdone\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pdone\fi
         \if\endrr\brtwo \let\ptftwo=\pdone\fi
         \if\endrr\brthree \let\ptfthree=\pdone\fi
         \if\endrr\brfour \let\ptffour=\pdone\fi
         \if\endrr\brfive \let\ptffive=\pdone\fi
         \if\endrr\brsix \let\ptfsix=\pdone\fi
         \if\endrr\brseven \let\ptfseven=\pdone\fi
         \if\endrr\breight \let\ptfeight=\pdone\fi
         \if\endrr\brnine \let\ptfnine=\pdone\fi
         \if\endrr\brnull \let\ptfnull=\pdone\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pdone\fi
         \if\endrr\brtwo \let\ptgtwo=\pdone\fi
         \if\endrr\brthree \let\ptgthree=\pdone\fi
         \if\endrr\brfour \let\ptgfour=\pdone\fi
         \if\endrr\brfive \let\ptgfive=\pdone\fi
         \if\endrr\brsix \let\ptgsix=\pdone\fi
         \if\endrr\brseven \let\ptgseven=\pdone\fi
         \if\endrr\breight \let\ptgeight=\pdone\fi
         \if\endrr\brnine \let\ptgnine=\pdone\fi
         \if\endrr\brnull \let\ptgnull=\pdone\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pdone\fi
         \if\endrr\brtwo \let\pthtwo=\pdone\fi
         \if\endrr\brthree \let\pththree=\pdone\fi
         \if\endrr\brfour \let\pthfour=\pdone\fi
         \if\endrr\brfive \let\pthfive=\pdone\fi
         \if\endrr\brsix \let\pthsix=\pdone\fi
         \if\endrr\brseven \let\pthseven=\pdone\fi
         \if\endrr\breight \let\ptheight=\pdone\fi
         \if\endrr\brnine \let\pthnine=\pdone\fi
         \if\endrr\brnull \let\pthnull=\pdone\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pdone\fi
         \if\endrr\brtwo \let\ptitwo=\pdone\fi
         \if\endrr\brthree \let\ptithree=\pdone\fi
         \if\endrr\brfour \let\ptifour=\pdone\fi
         \if\endrr\brfive \let\ptifive=\pdone\fi
         \if\endrr\brsix \let\ptisix=\pdone\fi
         \if\endrr\brseven \let\ptiseven=\pdone\fi
         \if\endrr\breight \let\ptieight=\pdone\fi
         \if\endrr\brnine \let\ptinine=\pdone\fi
         \if\endrr\brnull \let\ptinull=\pdone\fi\fi\fi      
   \if\startrr\brtwo \dtwoset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pdtwo\fi
         \if\endrr\brtwo \let\ptatwo=\pdtwo\fi
         \if\endrr\brthree \let\ptathree=\pdtwo\fi
         \if\endrr\brfour \let\ptafour=\pdtwo\fi
         \if\endrr\brfive \let\ptafive=\pdtwo\fi
         \if\endrr\brsix \let\ptasix=\pdtwo\fi
         \if\endrr\brseven \let\ptaseven=\pdtwo\fi
         \if\endrr\breight \let\ptaeight=\pdtwo\fi
         \if\endrr\brnine \let\ptanine=\pdtwo\fi
         \if\endrr\brnull \let\ptanull=\pdtwo\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pdtwo\fi
         \if\endrr\brtwo \let\ptbtwo=\pdtwo\fi
         \if\endrr\brthree \let\ptbthree=\pdtwo\fi
         \if\endrr\brfour \let\ptbfour=\pdtwo\fi
         \if\endrr\brfive \let\ptbfive=\pdtwo\fi
         \if\endrr\brsix \let\ptbsix=\pdtwo\fi
         \if\endrr\brseven \let\ptbseven=\pdtwo\fi
         \if\endrr\breight \let\ptbeight=\pdtwo\fi
         \if\endrr\brnine \let\ptbnine=\pdtwo\fi
         \if\endrr\brnull \let\ptbnull=\pdtwo\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pdtwo\fi
         \if\endrr\brtwo \let\ptctwo=\pdtwo\fi
         \if\endrr\brthree \let\ptcthree=\pdtwo\fi
         \if\endrr\brfour \let\ptcfour=\pdtwo\fi
         \if\endrr\brfive \let\ptcfive=\pdtwo\fi
         \if\endrr\brsix \let\ptcsix=\pdtwo\fi
         \if\endrr\brseven \let\ptcseven=\pdtwo\fi
         \if\endrr\breight \let\ptceight=\pdtwo\fi
         \if\endrr\brnine \let\ptcnine=\pdtwo\fi
         \if\endrr\brnull \let\ptcnull=\pdtwo\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pdtwo\fi
         \if\endrr\brtwo \let\ptdtwo=\pdtwo\fi
         \if\endrr\brthree \let\ptdthree=\pdtwo\fi
         \if\endrr\brfour \let\ptdfour=\pdtwo\fi
         \if\endrr\brfive \let\ptdfive=\pdtwo\fi
         \if\endrr\brsix \let\ptdsix=\pdtwo\fi
         \if\endrr\brseven \let\ptdseven=\pdtwo\fi
         \if\endrr\breight \let\ptdeight=\pdtwo\fi
         \if\endrr\brnine \let\ptdnine=\pdtwo\fi
         \if\endrr\brnull \let\ptdnull=\pdtwo\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pdtwo\fi
         \if\endrr\brtwo \let\ptetwo=\pdtwo\fi
         \if\endrr\brthree \let\ptethree=\pdtwo\fi
         \if\endrr\brfour \let\ptefour=\pdtwo\fi
         \if\endrr\brfive \let\ptefive=\pdtwo\fi
         \if\endrr\brsix \let\ptesix=\pdtwo\fi
         \if\endrr\brseven \let\pteseven=\pdtwo\fi
         \if\endrr\breight \let\pteeight=\pdtwo\fi
         \if\endrr\brnine \let\ptenine=\pdtwo\fi
         \if\endrr\brnull \let\ptenull=\pdtwo\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pdtwo\fi
         \if\endrr\brtwo \let\ptftwo=\pdtwo\fi
         \if\endrr\brthree \let\ptfthree=\pdtwo\fi
         \if\endrr\brfour \let\ptffour=\pdtwo\fi
         \if\endrr\brfive \let\ptffive=\pdtwo\fi
         \if\endrr\brsix \let\ptfsix=\pdtwo\fi
         \if\endrr\brseven \let\ptfseven=\pdtwo\fi
         \if\endrr\breight \let\ptfeight=\pdtwo\fi
         \if\endrr\brnine \let\ptfnine=\pdtwo\fi
         \if\endrr\brnull \let\ptfnull=\pdtwo\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pdtwo\fi
         \if\endrr\brtwo \let\ptgtwo=\pdtwo\fi
         \if\endrr\brthree \let\ptgthree=\pdtwo\fi
         \if\endrr\brfour \let\ptgfour=\pdtwo\fi
         \if\endrr\brfive \let\ptgfive=\pdtwo\fi
         \if\endrr\brsix \let\ptgsix=\pdtwo\fi
         \if\endrr\brseven \let\ptgseven=\pdtwo\fi
         \if\endrr\breight \let\ptgeight=\pdtwo\fi
         \if\endrr\brnine \let\ptgnine=\pdtwo\fi
         \if\endrr\brnull \let\ptgnull=\pdtwo\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pdtwo\fi
         \if\endrr\brtwo \let\pthtwo=\pdtwo\fi
         \if\endrr\brthree \let\pththree=\pdtwo\fi
         \if\endrr\brfour \let\pthfour=\pdtwo\fi
         \if\endrr\brfive \let\pthfive=\pdtwo\fi
         \if\endrr\brsix \let\pthsix=\pdtwo\fi
         \if\endrr\brseven \let\pthseven=\pdtwo\fi
         \if\endrr\breight \let\ptheight=\pdtwo\fi
         \if\endrr\brnine \let\pthnine=\pdtwo\fi
         \if\endrr\brnull \let\pthnull=\pdtwo\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pdtwo\fi
         \if\endrr\brtwo \let\ptitwo=\pdtwo\fi
         \if\endrr\brthree \let\ptithree=\pdtwo\fi
         \if\endrr\brfour \let\ptifour=\pdtwo\fi
         \if\endrr\brfive \let\ptifive=\pdtwo\fi
         \if\endrr\brsix \let\ptisix=\pdtwo\fi
         \if\endrr\brseven \let\ptiseven=\pdtwo\fi
         \if\endrr\breight \let\ptieight=\pdtwo\fi
         \if\endrr\brnine \let\ptinine=\pdtwo\fi
         \if\endrr\brnull \let\ptinull=\pdtwo\fi\fi\fi
   \if\startrr\brthree \dthreeset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pdthree\fi
         \if\endrr\brtwo \let\ptatwo=\pdthree\fi
         \if\endrr\brthree \let\ptathree=\pdthree\fi
         \if\endrr\brfour \let\ptafour=\pdthree\fi
         \if\endrr\brfive \let\ptafive=\pdthree\fi
         \if\endrr\brsix \let\ptasix=\pdthree\fi
         \if\endrr\brseven \let\ptaseven=\pdthree\fi
         \if\endrr\breight \let\ptaeight=\pdthree\fi
         \if\endrr\brnine \let\ptanine=\pdthree\fi
         \if\endrr\brnull \let\ptanull=\pdthree\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pdthree\fi
         \if\endrr\brtwo \let\ptbtwo=\pdthree\fi
         \if\endrr\brthree \let\ptbthree=\pdthree\fi
         \if\endrr\brfour \let\ptbfour=\pdthree\fi
         \if\endrr\brfive \let\ptbfive=\pdthree\fi
         \if\endrr\brsix \let\ptbsix=\pdthree\fi
         \if\endrr\brseven \let\ptbseven=\pdthree\fi
         \if\endrr\breight \let\ptbeight=\pdthree\fi
         \if\endrr\brnine \let\ptbnine=\pdthree\fi
         \if\endrr\brnull \let\ptbnull=\pdthree\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pdthree\fi
         \if\endrr\brtwo \let\ptctwo=\pdthree\fi
         \if\endrr\brthree \let\ptcthree=\pdthree\fi
         \if\endrr\brfour \let\ptcfour=\pdthree\fi
         \if\endrr\brfive \let\ptcfive=\pdthree\fi
         \if\endrr\brsix \let\ptcsix=\pdthree\fi
         \if\endrr\brseven \let\ptcseven=\pdthree\fi
         \if\endrr\breight \let\ptceight=\pdthree\fi
         \if\endrr\brnine \let\ptcnine=\pdthree\fi
         \if\endrr\brnull \let\ptcnull=\pdthree\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pdthree\fi
         \if\endrr\brtwo \let\ptdtwo=\pdthree\fi
         \if\endrr\brthree \let\ptdthree=\pdthree\fi
         \if\endrr\brfour \let\ptdfour=\pdthree\fi
         \if\endrr\brfive \let\ptdfive=\pdthree\fi
         \if\endrr\brsix \let\ptdsix=\pdthree\fi
         \if\endrr\brseven \let\ptdseven=\pdthree\fi
         \if\endrr\breight \let\ptdeight=\pdthree\fi
         \if\endrr\brnine \let\ptdnine=\pdthree\fi
         \if\endrr\brnull \let\ptdnull=\pdthree\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pdthree\fi
         \if\endrr\brtwo \let\ptetwo=\pdthree\fi
         \if\endrr\brthree \let\ptethree=\pdthree\fi
         \if\endrr\brfour \let\ptefour=\pdthree\fi
         \if\endrr\brfive \let\ptefive=\pdthree\fi
         \if\endrr\brsix \let\ptesix=\pdthree\fi
         \if\endrr\brseven \let\pteseven=\pdthree\fi
         \if\endrr\breight \let\pteeight=\pdthree\fi
         \if\endrr\brnine \let\ptenine=\pdthree\fi
         \if\endrr\brnull \let\ptenull=\pdthree\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pdthree\fi
         \if\endrr\brtwo \let\ptftwo=\pdthree\fi
         \if\endrr\brthree \let\ptfthree=\pdthree\fi
         \if\endrr\brfour \let\ptffour=\pdthree\fi
         \if\endrr\brfive \let\ptffive=\pdthree\fi
         \if\endrr\brsix \let\ptfsix=\pdthree\fi
         \if\endrr\brseven \let\ptfseven=\pdthree\fi
         \if\endrr\breight \let\ptfeight=\pdthree\fi
         \if\endrr\brnine \let\ptfnine=\pdthree\fi
         \if\endrr\brnull \let\ptfnull=\pdthree\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pdthree\fi
         \if\endrr\brtwo \let\ptgtwo=\pdthree\fi
         \if\endrr\brthree \let\ptgthree=\pdthree\fi
         \if\endrr\brfour \let\ptgfour=\pdthree\fi
         \if\endrr\brfive \let\ptgfive=\pdthree\fi
         \if\endrr\brsix \let\ptgsix=\pdthree\fi
         \if\endrr\brseven \let\ptgseven=\pdthree\fi
         \if\endrr\breight \let\ptgeight=\pdthree\fi
         \if\endrr\brnine \let\ptgnine=\pdthree\fi
         \if\endrr\brnull \let\ptgnull=\pdthree\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pdthree\fi
         \if\endrr\brtwo \let\pthtwo=\pdthree\fi
         \if\endrr\brthree \let\pththree=\pdthree\fi
         \if\endrr\brfour \let\pthfour=\pdthree\fi
         \if\endrr\brfive \let\pthfive=\pdthree\fi
         \if\endrr\brsix \let\pthsix=\pdthree\fi
         \if\endrr\brseven \let\pthseven=\pdthree\fi
         \if\endrr\breight \let\ptheight=\pdthree\fi
         \if\endrr\brnine \let\pthnine=\pdthree\fi
         \if\endrr\brnull \let\pthnull=\pdthree\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pdthree\fi
         \if\endrr\brtwo \let\ptitwo=\pdthree\fi
         \if\endrr\brthree \let\ptithree=\pdthree\fi
         \if\endrr\brfour \let\ptifour=\pdthree\fi
         \if\endrr\brfive \let\ptifive=\pdthree\fi
         \if\endrr\brsix \let\ptisix=\pdthree\fi
         \if\endrr\brseven \let\ptiseven=\pdthree\fi
         \if\endrr\breight \let\ptieight=\pdthree\fi
         \if\endrr\brnine \let\ptinine=\pdthree\fi
         \if\endrr\brnull \let\ptinull=\pdthree\fi\fi\fi      
   \if\startrr\brfour \dfourset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pdfour\fi
         \if\endrr\brtwo \let\ptatwo=\pdfour\fi
         \if\endrr\brthree \let\ptathree=\pdfour\fi
         \if\endrr\brfour \let\ptafour=\pdfour\fi
         \if\endrr\brfive \let\ptafive=\pdfour\fi
         \if\endrr\brsix \let\ptasix=\pdfour\fi
         \if\endrr\brseven \let\ptaseven=\pdfour\fi
         \if\endrr\breight \let\ptaeight=\pdfour\fi
         \if\endrr\brnine \let\ptanine=\pdfour\fi
         \if\endrr\brnull \let\ptanull=\pdfour\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pdfour\fi
         \if\endrr\brtwo \let\ptbtwo=\pdfour\fi
         \if\endrr\brthree \let\ptbthree=\pdfour\fi
         \if\endrr\brfour \let\ptbfour=\pdfour\fi
         \if\endrr\brfive \let\ptbfive=\pdfour\fi
         \if\endrr\brsix \let\ptbsix=\pdfour\fi
         \if\endrr\brseven \let\ptbseven=\pdfour\fi
         \if\endrr\breight \let\ptbeight=\pdfour\fi
         \if\endrr\brnine \let\ptbnine=\pdfour\fi
         \if\endrr\brnull \let\ptbnull=\pdfour\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pdfour\fi
         \if\endrr\brtwo \let\ptctwo=\pdfour\fi
         \if\endrr\brthree \let\ptcthree=\pdfour\fi
         \if\endrr\brfour \let\ptcfour=\pdfour\fi
         \if\endrr\brfive \let\ptcfive=\pdfour\fi
         \if\endrr\brsix \let\ptcsix=\pdfour\fi
         \if\endrr\brseven \let\ptcseven=\pdfour\fi
         \if\endrr\breight \let\ptceight=\pdfour\fi
         \if\endrr\brnine \let\ptcnine=\pdfour\fi
         \if\endrr\brnull \let\ptcnull=\pdfour\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pdfour\fi
         \if\endrr\brtwo \let\ptdtwo=\pdfour\fi
         \if\endrr\brthree \let\ptdthree=\pdfour\fi
         \if\endrr\brfour \let\ptdfour=\pdfour\fi
         \if\endrr\brfive \let\ptdfive=\pdfour\fi
         \if\endrr\brsix \let\ptdsix=\pdfour\fi
         \if\endrr\brseven \let\ptdseven=\pdfour\fi
         \if\endrr\breight \let\ptdeight=\pdfour\fi
         \if\endrr\brnine \let\ptdnine=\pdfour\fi
         \if\endrr\brnull \let\ptdnull=\pdfour\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pdfour\fi
         \if\endrr\brtwo \let\ptetwo=\pdfour\fi
         \if\endrr\brthree \let\ptethree=\pdfour\fi
         \if\endrr\brfour \let\ptefour=\pdfour\fi
         \if\endrr\brfive \let\ptefive=\pdfour\fi
         \if\endrr\brsix \let\ptesix=\pdfour\fi
         \if\endrr\brseven \let\pteseven=\pdfour\fi
         \if\endrr\breight \let\pteeight=\pdfour\fi
         \if\endrr\brnine \let\ptenine=\pdfour\fi
         \if\endrr\brnull \let\ptenull=\pdfour\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pdfour\fi
         \if\endrr\brtwo \let\ptftwo=\pdfour\fi
         \if\endrr\brthree \let\ptfthree=\pdfour\fi
         \if\endrr\brfour \let\ptffour=\pdfour\fi
         \if\endrr\brfive \let\ptffive=\pdfour\fi
         \if\endrr\brsix \let\ptfsix=\pdfour\fi
         \if\endrr\brseven \let\ptfseven=\pdfour\fi
         \if\endrr\breight \let\ptfeight=\pdfour\fi
         \if\endrr\brnine \let\ptfnine=\pdfour\fi
         \if\endrr\brnull \let\ptfnull=\pdfour\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pdfour\fi
         \if\endrr\brtwo \let\ptgtwo=\pdfour\fi
         \if\endrr\brthree \let\ptgthree=\pdfour\fi
         \if\endrr\brfour \let\ptgfour=\pdfour\fi
         \if\endrr\brfive \let\ptgfive=\pdfour\fi
         \if\endrr\brsix \let\ptgsix=\pdfour\fi
         \if\endrr\brseven \let\ptgseven=\pdfour\fi
         \if\endrr\breight \let\ptgeight=\pdfour\fi
         \if\endrr\brnine \let\ptgnine=\pdfour\fi
         \if\endrr\brnull \let\ptgnull=\pdfour\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pdfour\fi
         \if\endrr\brtwo \let\pthtwo=\pdfour\fi
         \if\endrr\brthree \let\pththree=\pdfour\fi
         \if\endrr\brfour \let\pthfour=\pdfour\fi
         \if\endrr\brfive \let\pthfive=\pdfour\fi
         \if\endrr\brsix \let\pthsix=\pdfour\fi
         \if\endrr\brseven \let\pthseven=\pdfour\fi
         \if\endrr\breight \let\ptheight=\pdfour\fi
         \if\endrr\brnine \let\pthnine=\pdfour\fi
         \if\endrr\brnull \let\pthnull=\pdfour\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pdfour\fi
         \if\endrr\brtwo \let\ptitwo=\pdfour\fi
         \if\endrr\brthree \let\ptithree=\pdfour\fi
         \if\endrr\brfour \let\ptifour=\pdfour\fi
         \if\endrr\brfive \let\ptifive=\pdfour\fi
         \if\endrr\brsix \let\ptisix=\pdfour\fi
         \if\endrr\brseven \let\ptiseven=\pdfour\fi
         \if\endrr\breight \let\ptieight=\pdfour\fi
         \if\endrr\brnine \let\ptinine=\pdfour\fi
         \if\endrr\brnull \let\ptinull=\pdfour\fi\fi\fi      
   \if\startrr\brfive \dfiveset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pdfive\fi
         \if\endrr\brtwo \let\ptatwo=\pdfive\fi
         \if\endrr\brthree \let\ptathree=\pdfive\fi
         \if\endrr\brfour \let\ptafour=\pdfive\fi
         \if\endrr\brfive \let\ptafive=\pdfive\fi
         \if\endrr\brsix \let\ptasix=\pdfive\fi
         \if\endrr\brseven \let\ptaseven=\pdfive\fi
         \if\endrr\breight \let\ptaeight=\pdfive\fi
         \if\endrr\brnine \let\ptanine=\pdfive\fi
         \if\endrr\brnull \let\ptanull=\pdfive\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pdfive\fi
         \if\endrr\brtwo \let\ptbtwo=\pdfive\fi
         \if\endrr\brthree \let\ptbthree=\pdfive\fi
         \if\endrr\brfour \let\ptbfour=\pdfive\fi
         \if\endrr\brfive \let\ptbfive=\pdfive\fi
         \if\endrr\brsix \let\ptbsix=\pdfive\fi
         \if\endrr\brseven \let\ptbseven=\pdfive\fi
         \if\endrr\breight \let\ptbeight=\pdfive\fi
         \if\endrr\brnine \let\ptbnine=\pdfive\fi
         \if\endrr\brnull \let\ptbnull=\pdfive\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pdfive\fi
         \if\endrr\brtwo \let\ptctwo=\pdfive\fi
         \if\endrr\brthree \let\ptcthree=\pdfive\fi
         \if\endrr\brfour \let\ptcfour=\pdfive\fi
         \if\endrr\brfive \let\ptcfive=\pdfive\fi
         \if\endrr\brsix \let\ptcsix=\pdfive\fi
         \if\endrr\brseven \let\ptcseven=\pdfive\fi
         \if\endrr\breight \let\ptceight=\pdfive\fi
         \if\endrr\brnine \let\ptcnine=\pdfive\fi
         \if\endrr\brnull \let\ptcnull=\pdfive\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pdfive\fi
         \if\endrr\brtwo \let\ptdtwo=\pdfive\fi
         \if\endrr\brthree \let\ptdthree=\pdfive\fi
         \if\endrr\brfour \let\ptdfour=\pdfive\fi
         \if\endrr\brfive \let\ptdfive=\pdfive\fi
         \if\endrr\brsix \let\ptdsix=\pdfive\fi
         \if\endrr\brseven \let\ptdseven=\pdfive\fi
         \if\endrr\breight \let\ptdeight=\pdfive\fi
         \if\endrr\brnine \let\ptdnine=\pdfive\fi
         \if\endrr\brnull \let\ptdnull=\pdfive\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pdfive\fi
         \if\endrr\brtwo \let\ptetwo=\pdfive\fi
         \if\endrr\brthree \let\ptethree=\pdfive\fi
         \if\endrr\brfour \let\ptefour=\pdfive\fi
         \if\endrr\brfive \let\ptefive=\pdfive\fi
         \if\endrr\brsix \let\ptesix=\pdfive\fi
         \if\endrr\brseven \let\pteseven=\pdfive\fi
         \if\endrr\breight \let\pteeight=\pdfive\fi
         \if\endrr\brnine \let\ptenine=\pdfive\fi
         \if\endrr\brnull \let\ptenull=\pdfive\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pdfive\fi
         \if\endrr\brtwo \let\ptftwo=\pdfive\fi
         \if\endrr\brthree \let\ptfthree=\pdfive\fi
         \if\endrr\brfour \let\ptffour=\pdfive\fi
         \if\endrr\brfive \let\ptffive=\pdfive\fi
         \if\endrr\brsix \let\ptfsix=\pdfive\fi
         \if\endrr\brseven \let\ptfseven=\pdfive\fi
         \if\endrr\breight \let\ptfeight=\pdfive\fi
         \if\endrr\brnine \let\ptfnine=\pdfive\fi
         \if\endrr\brnull \let\ptfnull=\pdfive\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pdfive\fi
         \if\endrr\brtwo \let\ptgtwo=\pdfive\fi
         \if\endrr\brthree \let\ptgthree=\pdfive\fi
         \if\endrr\brfour \let\ptgfour=\pdfive\fi
         \if\endrr\brfive \let\ptgfive=\pdfive\fi
         \if\endrr\brsix \let\ptgsix=\pdfive\fi
         \if\endrr\brseven \let\ptgseven=\pdfive\fi
         \if\endrr\breight \let\ptgeight=\pdfive\fi
         \if\endrr\brnine \let\ptgnine=\pdfive\fi
         \if\endrr\brnull \let\ptgnull=\pdfive\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pdfive\fi
         \if\endrr\brtwo \let\pthtwo=\pdfive\fi
         \if\endrr\brthree \let\pththree=\pdfive\fi
         \if\endrr\brfour \let\pthfour=\pdfive\fi
         \if\endrr\brfive \let\pthfive=\pdfive\fi
         \if\endrr\brsix \let\pthsix=\pdfive\fi
         \if\endrr\brseven \let\pthseven=\pdfive\fi
         \if\endrr\breight \let\ptheight=\pdfive\fi
         \if\endrr\brnine \let\pthnine=\pdfive\fi
         \if\endrr\brnull \let\pthnull=\pdfive\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pdfive\fi
         \if\endrr\brtwo \let\ptitwo=\pdfive\fi
         \if\endrr\brthree \let\ptithree=\pdfive\fi
         \if\endrr\brfour \let\ptifour=\pdfive\fi
         \if\endrr\brfive \let\ptifive=\pdfive\fi
         \if\endrr\brsix \let\ptisix=\pdfive\fi
         \if\endrr\brseven \let\ptiseven=\pdfive\fi
         \if\endrr\breight \let\ptieight=\pdfive\fi
         \if\endrr\brnine \let\ptinine=\pdfive\fi
         \if\endrr\brnull \let\ptinull=\pdfive\fi\fi\fi   
   \if\startrr\brsix \dsixset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pdsix\fi
         \if\endrr\brtwo \let\ptatwo=\pdsix\fi
         \if\endrr\brthree \let\ptathree=\pdsix\fi
         \if\endrr\brfour \let\ptafour=\pdsix\fi
         \if\endrr\brfive \let\ptafive=\pdsix\fi
         \if\endrr\brsix \let\ptasix=\pdsix\fi
         \if\endrr\brseven \let\ptaseven=\pdsix\fi
         \if\endrr\breight \let\ptaeight=\pdsix\fi
         \if\endrr\brnine \let\ptanine=\pdsix\fi
         \if\endrr\brnull \let\ptanull=\pdsix\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pdsix\fi
         \if\endrr\brtwo \let\ptbtwo=\pdsix\fi
         \if\endrr\brthree \let\ptbthree=\pdsix\fi
         \if\endrr\brfour \let\ptbfour=\pdsix\fi
         \if\endrr\brfive \let\ptbfive=\pdsix\fi
         \if\endrr\brsix \let\ptbsix=\pdsix\fi
         \if\endrr\brseven \let\ptbseven=\pdsix\fi
         \if\endrr\breight \let\ptbeight=\pdsix\fi
         \if\endrr\brnine \let\ptbnine=\pdsix\fi
         \if\endrr\brnull \let\ptbnull=\pdsix\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pdsix\fi
         \if\endrr\brtwo \let\ptctwo=\pdsix\fi
         \if\endrr\brthree \let\ptcthree=\pdsix\fi
         \if\endrr\brfour \let\ptcfour=\pdsix\fi
         \if\endrr\brfive \let\ptcfive=\pdsix\fi
         \if\endrr\brsix \let\ptcsix=\pdsix\fi
         \if\endrr\brseven \let\ptcseven=\pdsix\fi
         \if\endrr\breight \let\ptceight=\pdsix\fi
         \if\endrr\brnine \let\ptcnine=\pdsix\fi
         \if\endrr\brnull \let\ptcnull=\pdsix\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pdsix\fi
         \if\endrr\brtwo \let\ptdtwo=\pdsix\fi
         \if\endrr\brthree \let\ptdthree=\pdsix\fi
         \if\endrr\brfour \let\ptdfour=\pdsix\fi
         \if\endrr\brfive \let\ptdfive=\pdsix\fi
         \if\endrr\brsix \let\ptdsix=\pdsix\fi
         \if\endrr\brseven \let\ptdseven=\pdsix\fi
         \if\endrr\breight \let\ptdeight=\pdsix\fi
         \if\endrr\brnine \let\ptdnine=\pdsix\fi
         \if\endrr\brnull \let\ptdnull=\pdsix\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pdsix\fi
         \if\endrr\brtwo \let\ptetwo=\pdsix\fi
         \if\endrr\brthree \let\ptethree=\pdsix\fi
         \if\endrr\brfour \let\ptefour=\pdsix\fi
         \if\endrr\brfive \let\ptefive=\pdsix\fi
         \if\endrr\brsix \let\ptesix=\pdsix\fi
         \if\endrr\brseven \let\pteseven=\pdsix\fi
         \if\endrr\breight \let\pteeight=\pdsix\fi
         \if\endrr\brnine \let\ptenine=\pdsix\fi
         \if\endrr\brnull \let\ptenull=\pdsix\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pdsix\fi
         \if\endrr\brtwo \let\ptftwo=\pdsix\fi
         \if\endrr\brthree \let\ptfthree=\pdsix\fi
         \if\endrr\brfour \let\ptffour=\pdsix\fi
         \if\endrr\brfive \let\ptffive=\pdsix\fi
         \if\endrr\brsix \let\ptfsix=\pdsix\fi
         \if\endrr\brseven \let\ptfseven=\pdsix\fi
         \if\endrr\breight \let\ptfeight=\pdsix\fi
         \if\endrr\brnine \let\ptfnine=\pdsix\fi
         \if\endrr\brnull \let\ptfnull=\pdsix\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pdsix\fi
         \if\endrr\brtwo \let\ptgtwo=\pdsix\fi
         \if\endrr\brthree \let\ptgthree=\pdsix\fi
         \if\endrr\brfour \let\ptgfour=\pdsix\fi
         \if\endrr\brfive \let\ptgfive=\pdsix\fi
         \if\endrr\brsix \let\ptgsix=\pdsix\fi
         \if\endrr\brseven \let\ptgseven=\pdsix\fi
         \if\endrr\breight \let\ptgeight=\pdsix\fi
         \if\endrr\brnine \let\ptgnine=\pdsix\fi
         \if\endrr\brnull \let\ptgnull=\pdsix\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pdsix\fi
         \if\endrr\brtwo \let\pthtwo=\pdsix\fi
         \if\endrr\brthree \let\pththree=\pdsix\fi
         \if\endrr\brfour \let\pthfour=\pdsix\fi
         \if\endrr\brfive \let\pthfive=\pdsix\fi
         \if\endrr\brsix \let\pthsix=\pdsix\fi
         \if\endrr\brseven \let\pthseven=\pdsix\fi
         \if\endrr\breight \let\ptheight=\pdsix\fi
         \if\endrr\brnine \let\pthnine=\pdsix\fi
         \if\endrr\brnull \let\pthnull=\pdsix\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pdsix\fi
         \if\endrr\brtwo \let\ptitwo=\pdsix\fi
         \if\endrr\brthree \let\ptithree=\pdsix\fi
         \if\endrr\brfour \let\ptifour=\pdsix\fi
         \if\endrr\brfive \let\ptifive=\pdsix\fi
         \if\endrr\brsix \let\ptisix=\pdsix\fi
         \if\endrr\brseven \let\ptiseven=\pdsix\fi
         \if\endrr\breight \let\ptieight=\pdsix\fi
         \if\endrr\brnine \let\ptinine=\pdsix\fi
         \if\endrr\brnull \let\ptinull=\pdsix\fi\fi\fi
   \if\startrr\brseven \dsevenset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pdseven\fi
         \if\endrr\brtwo \let\ptatwo=\pdseven\fi
         \if\endrr\brthree \let\ptathree=\pdseven\fi
         \if\endrr\brfour \let\ptafour=\pdseven\fi
         \if\endrr\brfive \let\ptafive=\pdseven\fi
         \if\endrr\brsix \let\ptasix=\pdseven\fi
         \if\endrr\brseven \let\ptaseven=\pdseven\fi
         \if\endrr\breight \let\ptaeight=\pdseven\fi
         \if\endrr\brnine \let\ptanine=\pdseven\fi
         \if\endrr\brnull \let\ptanull=\pdseven\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pdseven\fi
         \if\endrr\brtwo \let\ptbtwo=\pdseven\fi
         \if\endrr\brthree \let\ptbthree=\pdseven\fi
         \if\endrr\brfour \let\ptbfour=\pdseven\fi
         \if\endrr\brfive \let\ptbfive=\pdseven\fi
         \if\endrr\brsix \let\ptbsix=\pdseven\fi
         \if\endrr\brseven \let\ptbseven=\pdseven\fi
         \if\endrr\breight \let\ptbeight=\pdseven\fi
         \if\endrr\brnine \let\ptbnine=\pdseven\fi
         \if\endrr\brnull \let\ptbnull=\pdseven\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pdseven\fi
         \if\endrr\brtwo \let\ptctwo=\pdseven\fi
         \if\endrr\brthree \let\ptcthree=\pdseven\fi
         \if\endrr\brfour \let\ptcfour=\pdseven\fi
         \if\endrr\brfive \let\ptcfive=\pdseven\fi
         \if\endrr\brsix \let\ptcsix=\pdseven\fi
         \if\endrr\brseven \let\ptcseven=\pdseven\fi
         \if\endrr\breight \let\ptceight=\pdseven\fi
         \if\endrr\brnine \let\ptcnine=\pdseven\fi
         \if\endrr\brnull \let\ptcnull=\pdseven\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pdseven\fi
         \if\endrr\brtwo \let\ptdtwo=\pdseven\fi
         \if\endrr\brthree \let\ptdthree=\pdseven\fi
         \if\endrr\brfour \let\ptdfour=\pdseven\fi
         \if\endrr\brfive \let\ptdfive=\pdseven\fi
         \if\endrr\brsix \let\ptdsix=\pdseven\fi
         \if\endrr\brseven \let\ptdseven=\pdseven\fi
         \if\endrr\breight \let\ptdeight=\pdseven\fi
         \if\endrr\brnine \let\ptdnine=\pdseven\fi
         \if\endrr\brnull \let\ptdnull=\pdseven\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pdseven\fi
         \if\endrr\brtwo \let\ptetwo=\pdseven\fi
         \if\endrr\brthree \let\ptethree=\pdseven\fi
         \if\endrr\brfour \let\ptefour=\pdseven\fi
         \if\endrr\brfive \let\ptefive=\pdseven\fi
         \if\endrr\brsix \let\ptesix=\pdseven\fi
         \if\endrr\brseven \let\pteseven=\pdseven\fi
         \if\endrr\breight \let\pteeight=\pdseven\fi
         \if\endrr\brnine \let\ptenine=\pdseven\fi
         \if\endrr\brnull \let\ptenull=\pdseven\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pdseven\fi
         \if\endrr\brtwo \let\ptftwo=\pdseven\fi
         \if\endrr\brthree \let\ptfthree=\pdseven\fi
         \if\endrr\brfour \let\ptffour=\pdseven\fi
         \if\endrr\brfive \let\ptffive=\pdseven\fi
         \if\endrr\brsix \let\ptfsix=\pdseven\fi
         \if\endrr\brseven \let\ptfseven=\pdseven\fi
         \if\endrr\breight \let\ptfeight=\pdseven\fi
         \if\endrr\brnine \let\ptfnine=\pdseven\fi
         \if\endrr\brnull \let\ptfnull=\pdseven\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pdseven\fi
         \if\endrr\brtwo \let\ptgtwo=\pdseven\fi
         \if\endrr\brthree \let\ptgthree=\pdseven\fi
         \if\endrr\brfour \let\ptgfour=\pdseven\fi
         \if\endrr\brfive \let\ptgfive=\pdseven\fi
         \if\endrr\brsix \let\ptgsix=\pdseven\fi
         \if\endrr\brseven \let\ptgseven=\pdseven\fi
         \if\endrr\breight \let\ptgeight=\pdseven\fi
         \if\endrr\brnine \let\ptgnine=\pdseven\fi
         \if\endrr\brnull \let\ptgnull=\pdseven\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pdseven\fi
         \if\endrr\brtwo \let\pthtwo=\pdseven\fi
         \if\endrr\brthree \let\pththree=\pdseven\fi
         \if\endrr\brfour \let\pthfour=\pdseven\fi
         \if\endrr\brfive \let\pthfive=\pdseven\fi
         \if\endrr\brsix \let\pthsix=\pdseven\fi
         \if\endrr\brseven \let\pthseven=\pdseven\fi
         \if\endrr\breight \let\ptheight=\pdseven\fi
         \if\endrr\brnine \let\pthnine=\pdseven\fi
         \if\endrr\brnull \let\pthnull=\pdseven\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pdseven\fi
         \if\endrr\brtwo \let\ptitwo=\pdseven\fi
         \if\endrr\brthree \let\ptithree=\pdseven\fi
         \if\endrr\brfour \let\ptifour=\pdseven\fi
         \if\endrr\brfive \let\ptifive=\pdseven\fi
         \if\endrr\brsix \let\ptisix=\pdseven\fi
         \if\endrr\brseven \let\ptiseven=\pdseven\fi
         \if\endrr\breight \let\ptieight=\pdseven\fi
         \if\endrr\brnine \let\ptinine=\pdseven\fi
         \if\endrr\brnull \let\ptinull=\pdseven\fi\fi\fi      
   \if\startrr\breight \deightset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pdeight\fi
         \if\endrr\brtwo \let\ptatwo=\pdeight\fi
         \if\endrr\brthree \let\ptathree=\pdeight\fi
         \if\endrr\brfour \let\ptafour=\pdeight\fi
         \if\endrr\brfive \let\ptafive=\pdeight\fi
         \if\endrr\brsix \let\ptasix=\pdeight\fi
         \if\endrr\brseven \let\ptaseven=\pdeight\fi
         \if\endrr\breight \let\ptaeight=\pdeight\fi
         \if\endrr\brnine \let\ptanine=\pdeight\fi
         \if\endrr\brnull \let\ptanull=\pdeight\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pdeight\fi
         \if\endrr\brtwo \let\ptbtwo=\pdeight\fi
         \if\endrr\brthree \let\ptbthree=\pdeight\fi
         \if\endrr\brfour \let\ptbfour=\pdeight\fi
         \if\endrr\brfive \let\ptbfive=\pdeight\fi
         \if\endrr\brsix \let\ptbsix=\pdeight\fi
         \if\endrr\brseven \let\ptbseven=\pdeight\fi
         \if\endrr\breight \let\ptbeight=\pdeight\fi
         \if\endrr\brnine \let\ptbnine=\pdeight\fi
         \if\endrr\brnull \let\ptbnull=\pdeight\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pdeight\fi
         \if\endrr\brtwo \let\ptctwo=\pdeight\fi
         \if\endrr\brthree \let\ptcthree=\pdeight\fi
         \if\endrr\brfour \let\ptcfour=\pdeight\fi
         \if\endrr\brfive \let\ptcfive=\pdeight\fi
         \if\endrr\brsix \let\ptcsix=\pdeight\fi
         \if\endrr\brseven \let\ptcseven=\pdeight\fi
         \if\endrr\breight \let\ptceight=\pdeight\fi
         \if\endrr\brnine \let\ptcnine=\pdeight\fi
         \if\endrr\brnull \let\ptcnull=\pdeight\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pdeight\fi
         \if\endrr\brtwo \let\ptdtwo=\pdeight\fi
         \if\endrr\brthree \let\ptdthree=\pdeight\fi
         \if\endrr\brfour \let\ptdfour=\pdeight\fi
         \if\endrr\brfive \let\ptdfive=\pdeight\fi
         \if\endrr\brsix \let\ptdsix=\pdeight\fi
         \if\endrr\brseven \let\ptdseven=\pdeight\fi
         \if\endrr\breight \let\ptdeight=\pdeight\fi
         \if\endrr\brnine \let\ptdnine=\pdeight\fi
         \if\endrr\brnull \let\ptdnull=\pdeight\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pdeight\fi
         \if\endrr\brtwo \let\ptetwo=\pdeight\fi
         \if\endrr\brthree \let\ptethree=\pdeight\fi
         \if\endrr\brfour \let\ptefour=\pdeight\fi
         \if\endrr\brfive \let\ptefive=\pdeight\fi
         \if\endrr\brsix \let\ptesix=\pdeight\fi
         \if\endrr\brseven \let\pteseven=\pdeight\fi
         \if\endrr\breight \let\pteeight=\pdeight\fi
         \if\endrr\brnine \let\ptenine=\pdeight\fi
         \if\endrr\brnull \let\ptenull=\pdeight\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pdeight\fi
         \if\endrr\brtwo \let\ptftwo=\pdeight\fi
         \if\endrr\brthree \let\ptfthree=\pdeight\fi
         \if\endrr\brfour \let\ptffour=\pdeight\fi
         \if\endrr\brfive \let\ptffive=\pdeight\fi
         \if\endrr\brsix \let\ptfsix=\pdeight\fi
         \if\endrr\brseven \let\ptfseven=\pdeight\fi
         \if\endrr\breight \let\ptfeight=\pdeight\fi
         \if\endrr\brnine \let\ptfnine=\pdeight\fi
         \if\endrr\brnull \let\ptfnull=\pdeight\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pdeight\fi
         \if\endrr\brtwo \let\ptgtwo=\pdeight\fi
         \if\endrr\brthree \let\ptgthree=\pdeight\fi
         \if\endrr\brfour \let\ptgfour=\pdeight\fi
         \if\endrr\brfive \let\ptgfive=\pdeight\fi
         \if\endrr\brsix \let\ptgsix=\pdeight\fi
         \if\endrr\brseven \let\ptgseven=\pdeight\fi
         \if\endrr\breight \let\ptgeight=\pdeight\fi
         \if\endrr\brnine \let\ptgnine=\pdeight\fi
         \if\endrr\brnull \let\ptgnull=\pdeight\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pdeight\fi
         \if\endrr\brtwo \let\pthtwo=\pdeight\fi
         \if\endrr\brthree \let\pththree=\pdeight\fi
         \if\endrr\brfour \let\pthfour=\pdeight\fi
         \if\endrr\brfive \let\pthfive=\pdeight\fi
         \if\endrr\brsix \let\pthsix=\pdeight\fi
         \if\endrr\brseven \let\pthseven=\pdeight\fi
         \if\endrr\breight \let\ptheight=\pdeight\fi
         \if\endrr\brnine \let\pthnine=\pdeight\fi
         \if\endrr\brnull \let\pthnull=\pdeight\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pdeight\fi
         \if\endrr\brtwo \let\ptitwo=\pdeight\fi
         \if\endrr\brthree \let\ptithree=\pdeight\fi
         \if\endrr\brfour \let\ptifour=\pdeight\fi
         \if\endrr\brfive \let\ptifive=\pdeight\fi
         \if\endrr\brsix \let\ptisix=\pdeight\fi
         \if\endrr\brseven \let\ptiseven=\pdeight\fi
         \if\endrr\breight \let\ptieight=\pdeight\fi
         \if\endrr\brnine \let\ptinine=\pdeight\fi
         \if\endrr\brnull \let\ptinull=\pdeight\fi\fi\fi      
   \if\startrr\brnine \dnineset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pdnine\fi
         \if\endrr\brtwo \let\ptatwo=\pdnine\fi
         \if\endrr\brthree \let\ptathree=\pdnine\fi
         \if\endrr\brfour \let\ptafour=\pdnine\fi
         \if\endrr\brfive \let\ptafive=\pdnine\fi
         \if\endrr\brsix \let\ptasix=\pdnine\fi
         \if\endrr\brseven \let\ptaseven=\pdnine\fi
         \if\endrr\breight \let\ptaeight=\pdnine\fi
         \if\endrr\brnine \let\ptanine=\pdnine\fi
         \if\endrr\brnull \let\ptanull=\pdnine\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pdnine\fi
         \if\endrr\brtwo \let\ptbtwo=\pdnine\fi
         \if\endrr\brthree \let\ptbthree=\pdnine\fi
         \if\endrr\brfour \let\ptbfour=\pdnine\fi
         \if\endrr\brfive \let\ptbfive=\pdnine\fi
         \if\endrr\brsix \let\ptbsix=\pdnine\fi
         \if\endrr\brseven \let\ptbseven=\pdnine\fi
         \if\endrr\breight \let\ptbeight=\pdnine\fi
         \if\endrr\brnine \let\ptbnine=\pdnine\fi
         \if\endrr\brnull \let\ptbnull=\pdnine\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pdnine\fi
         \if\endrr\brtwo \let\ptctwo=\pdnine\fi
         \if\endrr\brthree \let\ptcthree=\pdnine\fi
         \if\endrr\brfour \let\ptcfour=\pdnine\fi
         \if\endrr\brfive \let\ptcfive=\pdnine\fi
         \if\endrr\brsix \let\ptcsix=\pdnine\fi
         \if\endrr\brseven \let\ptcseven=\pdnine\fi
         \if\endrr\breight \let\ptceight=\pdnine\fi
         \if\endrr\brnine \let\ptcnine=\pdnine\fi
         \if\endrr\brnull \let\ptcnull=\pdnine\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pdnine\fi
         \if\endrr\brtwo \let\ptdtwo=\pdnine\fi
         \if\endrr\brthree \let\ptdthree=\pdnine\fi
         \if\endrr\brfour \let\ptdfour=\pdnine\fi
         \if\endrr\brfive \let\ptdfive=\pdnine\fi
         \if\endrr\brsix \let\ptdsix=\pdnine\fi
         \if\endrr\brseven \let\ptdseven=\pdnine\fi
         \if\endrr\breight \let\ptdeight=\pdnine\fi
         \if\endrr\brnine \let\ptdnine=\pdnine\fi
         \if\endrr\brnull \let\ptdnull=\pdnine\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pdnine\fi
         \if\endrr\brtwo \let\ptetwo=\pdnine\fi
         \if\endrr\brthree \let\ptethree=\pdnine\fi
         \if\endrr\brfour \let\ptefour=\pdnine\fi
         \if\endrr\brfive \let\ptefive=\pdnine\fi
         \if\endrr\brsix \let\ptesix=\pdnine\fi
         \if\endrr\brseven \let\pteseven=\pdnine\fi
         \if\endrr\breight \let\pteeight=\pdnine\fi
         \if\endrr\brnine \let\ptenine=\pdnine\fi
         \if\endrr\brnull \let\ptenull=\pdnine\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pdnine\fi
         \if\endrr\brtwo \let\ptftwo=\pdnine\fi
         \if\endrr\brthree \let\ptfthree=\pdnine\fi
         \if\endrr\brfour \let\ptffour=\pdnine\fi
         \if\endrr\brfive \let\ptffive=\pdnine\fi
         \if\endrr\brsix \let\ptfsix=\pdnine\fi
         \if\endrr\brseven \let\ptfseven=\pdnine\fi
         \if\endrr\breight \let\ptfeight=\pdnine\fi
         \if\endrr\brnine \let\ptfnine=\pdnine\fi
         \if\endrr\brnull \let\ptfnull=\pdnine\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pdnine\fi
         \if\endrr\brtwo \let\ptgtwo=\pdnine\fi
         \if\endrr\brthree \let\ptgthree=\pdnine\fi
         \if\endrr\brfour \let\ptgfour=\pdnine\fi
         \if\endrr\brfive \let\ptgfive=\pdnine\fi
         \if\endrr\brsix \let\ptgsix=\pdnine\fi
         \if\endrr\brseven \let\ptgseven=\pdnine\fi
         \if\endrr\breight \let\ptgeight=\pdnine\fi
         \if\endrr\brnine \let\ptgnine=\pdnine\fi
         \if\endrr\brnull \let\ptgnull=\pdnine\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pdnine\fi
         \if\endrr\brtwo \let\pthtwo=\pdnine\fi
         \if\endrr\brthree \let\pththree=\pdnine\fi
         \if\endrr\brfour \let\pthfour=\pdnine\fi
         \if\endrr\brfive \let\pthfive=\pdnine\fi
         \if\endrr\brsix \let\pthsix=\pdnine\fi
         \if\endrr\brseven \let\pthseven=\pdnine\fi
         \if\endrr\breight \let\ptheight=\pdnine\fi
         \if\endrr\brnine \let\pthnine=\pdnine\fi
         \if\endrr\brnull \let\pthnull=\pdnine\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pdnine\fi
         \if\endrr\brtwo \let\ptitwo=\pdnine\fi
         \if\endrr\brthree \let\ptithree=\pdnine\fi
         \if\endrr\brfour \let\ptifour=\pdnine\fi
         \if\endrr\brfive \let\ptifive=\pdnine\fi
         \if\endrr\brsix \let\ptisix=\pdnine\fi
         \if\endrr\brseven \let\ptiseven=\pdnine\fi
         \if\endrr\breight \let\ptieight=\pdnine\fi
         \if\endrr\brnine \let\ptinine=\pdnine\fi
         \if\endrr\brnull \let\ptinull=\pdnine\fi\fi\fi      
   \if\startrr\brnull \dnullset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pdnull\fi
         \if\endrr\brtwo \let\ptatwo=\pdnull\fi
         \if\endrr\brthree \let\ptathree=\pdnull\fi
         \if\endrr\brfour \let\ptafour=\pdnull\fi
         \if\endrr\brfive \let\ptafive=\pdnull\fi
         \if\endrr\brsix \let\ptasix=\pdnull\fi
         \if\endrr\brseven \let\ptaseven=\pdnull\fi
         \if\endrr\breight \let\ptaeight=\pdnull\fi
         \if\endrr\brnine \let\ptanine=\pdnull\fi
         \if\endrr\brnull \let\ptanull=\pdnull\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pdnull\fi
         \if\endrr\brtwo \let\ptbtwo=\pdnull\fi
         \if\endrr\brthree \let\ptbthree=\pdnull\fi
         \if\endrr\brfour \let\ptbfour=\pdnull\fi
         \if\endrr\brfive \let\ptbfive=\pdnull\fi
         \if\endrr\brsix \let\ptbsix=\pdnull\fi
         \if\endrr\brseven \let\ptbseven=\pdnull\fi
         \if\endrr\breight \let\ptbeight=\pdnull\fi
         \if\endrr\brnine \let\ptbnine=\pdnull\fi
         \if\endrr\brnull \let\ptbnull=\pdnull\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pdnull\fi
         \if\endrr\brtwo \let\ptctwo=\pdnull\fi
         \if\endrr\brthree \let\ptcthree=\pdnull\fi
         \if\endrr\brfour \let\ptcfour=\pdnull\fi
         \if\endrr\brfive \let\ptcfive=\pdnull\fi
         \if\endrr\brsix \let\ptcsix=\pdnull\fi
         \if\endrr\brseven \let\ptcseven=\pdnull\fi
         \if\endrr\breight \let\ptceight=\pdnull\fi
         \if\endrr\brnine \let\ptcnine=\pdnull\fi
         \if\endrr\brnull \let\ptcnull=\pdnull\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pdnull\fi
         \if\endrr\brtwo \let\ptdtwo=\pdnull\fi
         \if\endrr\brthree \let\ptdthree=\pdnull\fi
         \if\endrr\brfour \let\ptdfour=\pdnull\fi
         \if\endrr\brfive \let\ptdfive=\pdnull\fi
         \if\endrr\brsix \let\ptdsix=\pdnull\fi
         \if\endrr\brseven \let\ptdseven=\pdnull\fi
         \if\endrr\breight \let\ptdeight=\pdnull\fi
         \if\endrr\brnine \let\ptdnine=\pdnull\fi
         \if\endrr\brnull \let\ptdnull=\pdnull\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pdnull\fi
         \if\endrr\brtwo \let\ptetwo=\pdnull\fi
         \if\endrr\brthree \let\ptethree=\pdnull\fi
         \if\endrr\brfour \let\ptefour=\pdnull\fi
         \if\endrr\brfive \let\ptefive=\pdnull\fi
         \if\endrr\brsix \let\ptesix=\pdnull\fi
         \if\endrr\brseven \let\pteseven=\pdnull\fi
         \if\endrr\breight \let\pteeight=\pdnull\fi
         \if\endrr\brnine \let\ptenine=\pdnull\fi
         \if\endrr\brnull \let\ptenull=\pdnull\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pdnull\fi
         \if\endrr\brtwo \let\ptftwo=\pdnull\fi
         \if\endrr\brthree \let\ptfthree=\pdnull\fi
         \if\endrr\brfour \let\ptffour=\pdnull\fi
         \if\endrr\brfive \let\ptffive=\pdnull\fi
         \if\endrr\brsix \let\ptfsix=\pdnull\fi
         \if\endrr\brseven \let\ptfseven=\pdnull\fi
         \if\endrr\breight \let\ptfeight=\pdnull\fi
         \if\endrr\brnine \let\ptfnine=\pdnull\fi
         \if\endrr\brnull \let\ptfnull=\pdnull\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pdnull\fi
         \if\endrr\brtwo \let\ptgtwo=\pdnull\fi
         \if\endrr\brthree \let\ptgthree=\pdnull\fi
         \if\endrr\brfour \let\ptgfour=\pdnull\fi
         \if\endrr\brfive \let\ptgfive=\pdnull\fi
         \if\endrr\brsix \let\ptgsix=\pdnull\fi
         \if\endrr\brseven \let\ptgseven=\pdnull\fi
         \if\endrr\breight \let\ptgeight=\pdnull\fi
         \if\endrr\brnine \let\ptgnine=\pdnull\fi
         \if\endrr\brnull \let\ptgnull=\pdnull\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pdnull\fi
         \if\endrr\brtwo \let\pthtwo=\pdnull\fi
         \if\endrr\brthree \let\pththree=\pdnull\fi
         \if\endrr\brfour \let\pthfour=\pdnull\fi
         \if\endrr\brfive \let\pthfive=\pdnull\fi
         \if\endrr\brsix \let\pthsix=\pdnull\fi
         \if\endrr\brseven \let\pthseven=\pdnull\fi
         \if\endrr\breight \let\ptheight=\pdnull\fi
         \if\endrr\brnine \let\pthnine=\pdnull\fi
         \if\endrr\brnull \let\pthnull=\pdnull\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pdnull\fi
         \if\endrr\brtwo \let\ptitwo=\pdnull\fi
         \if\endrr\brthree \let\ptithree=\pdnull\fi
         \if\endrr\brfour \let\ptifour=\pdnull\fi
         \if\endrr\brfive \let\ptifive=\pdnull\fi
         \if\endrr\brsix \let\ptisix=\pdnull\fi
         \if\endrr\brseven \let\ptiseven=\pdnull\fi
         \if\endrr\breight \let\ptieight=\pdnull\fi
         \if\endrr\brnine \let\ptinine=\pdnull\fi
         \if\endrr\brnull \let\ptinull=\pdnull\fi\fi\fi\fi  
\if\startlr\eli
   \if\startrr\brone \eoneset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\peone\fi
         \if\endrr\brtwo \let\ptatwo=\peone\fi
         \if\endrr\brthree \let\ptathree=\peone\fi
         \if\endrr\brfour \let\ptafour=\peone\fi
         \if\endrr\brfive \let\ptafive=\peone\fi
         \if\endrr\brsix \let\ptasix=\peone\fi
         \if\endrr\brseven \let\ptaseven=\peone\fi
         \if\endrr\breight \let\ptaeight=\peone\fi
         \if\endrr\brnine \let\ptanine=\peone\fi
         \if\endrr\brnull \let\ptanull=\peone\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\peone\fi
         \if\endrr\brtwo \let\ptbtwo=\peone\fi
         \if\endrr\brthree \let\ptbthree=\peone\fi
         \if\endrr\brfour \let\ptbfour=\peone\fi
         \if\endrr\brfive \let\ptbfive=\peone\fi
         \if\endrr\brsix \let\ptbsix=\peone\fi
         \if\endrr\brseven \let\ptbseven=\peone\fi
         \if\endrr\breight \let\ptbeight=\peone\fi
         \if\endrr\brnine \let\ptbnine=\peone\fi
         \if\endrr\brnull \let\ptbnull=\peone\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\peone\fi
         \if\endrr\brtwo \let\ptctwo=\peone\fi
         \if\endrr\brthree \let\ptcthree=\peone\fi
         \if\endrr\brfour \let\ptcfour=\peone\fi
         \if\endrr\brfive \let\ptcfive=\peone\fi
         \if\endrr\brsix \let\ptcsix=\peone\fi
         \if\endrr\brseven \let\ptcseven=\peone\fi
         \if\endrr\breight \let\ptceight=\peone\fi
         \if\endrr\brnine \let\ptcnine=\peone\fi
         \if\endrr\brnull \let\ptcnull=\peone\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\peone\fi
         \if\endrr\brtwo \let\ptdtwo=\peone\fi
         \if\endrr\brthree \let\ptdthree=\peone\fi
         \if\endrr\brfour \let\ptdfour=\peone\fi
         \if\endrr\brfive \let\ptdfive=\peone\fi
         \if\endrr\brsix \let\ptdsix=\peone\fi
         \if\endrr\brseven \let\ptdseven=\peone\fi
         \if\endrr\breight \let\ptdeight=\peone\fi
         \if\endrr\brnine \let\ptdnine=\peone\fi
         \if\endrr\brnull \let\ptdnull=\peone\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\peone\fi
         \if\endrr\brtwo \let\ptetwo=\peone\fi
         \if\endrr\brthree \let\ptethree=\peone\fi
         \if\endrr\brfour \let\ptefour=\peone\fi
         \if\endrr\brfive \let\ptefive=\peone\fi
         \if\endrr\brsix \let\ptesix=\peone\fi
         \if\endrr\brseven \let\pteseven=\peone\fi
         \if\endrr\breight \let\pteeight=\peone\fi
         \if\endrr\brnine \let\ptenine=\peone\fi
         \if\endrr\brnull \let\ptenull=\peone\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\peone\fi
         \if\endrr\brtwo \let\ptftwo=\peone\fi
         \if\endrr\brthree \let\ptfthree=\peone\fi
         \if\endrr\brfour \let\ptffour=\peone\fi
         \if\endrr\brfive \let\ptffive=\peone\fi
         \if\endrr\brsix \let\ptfsix=\peone\fi
         \if\endrr\brseven \let\ptfseven=\peone\fi
         \if\endrr\breight \let\ptfeight=\peone\fi
         \if\endrr\brnine \let\ptfnine=\peone\fi
         \if\endrr\brnull \let\ptfnull=\peone\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\peone\fi
         \if\endrr\brtwo \let\ptgtwo=\peone\fi
         \if\endrr\brthree \let\ptgthree=\peone\fi
         \if\endrr\brfour \let\ptgfour=\peone\fi
         \if\endrr\brfive \let\ptgfive=\peone\fi
         \if\endrr\brsix \let\ptgsix=\peone\fi
         \if\endrr\brseven \let\ptgseven=\peone\fi
         \if\endrr\breight \let\ptgeight=\peone\fi
         \if\endrr\brnine \let\ptgnine=\peone\fi
         \if\endrr\brnull \let\ptgnull=\peone\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\peone\fi
         \if\endrr\brtwo \let\pthtwo=\peone\fi
         \if\endrr\brthree \let\pththree=\peone\fi
         \if\endrr\brfour \let\pthfour=\peone\fi
         \if\endrr\brfive \let\pthfive=\peone\fi
         \if\endrr\brsix \let\pthsix=\peone\fi
         \if\endrr\brseven \let\pthseven=\peone\fi
         \if\endrr\breight \let\ptheight=\peone\fi
         \if\endrr\brnine \let\pthnine=\peone\fi
         \if\endrr\brnull \let\pthnull=\peone\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\peone\fi
         \if\endrr\brtwo \let\ptitwo=\peone\fi
         \if\endrr\brthree \let\ptithree=\peone\fi
         \if\endrr\brfour \let\ptifour=\peone\fi
         \if\endrr\brfive \let\ptifive=\peone\fi
         \if\endrr\brsix \let\ptisix=\peone\fi
         \if\endrr\brseven \let\ptiseven=\peone\fi
         \if\endrr\breight \let\ptieight=\peone\fi
         \if\endrr\brnine \let\ptinine=\peone\fi
         \if\endrr\brnull \let\ptinull=\peone\fi\fi\fi      
   \if\startrr\brtwo \etwoset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\petwo\fi
         \if\endrr\brtwo \let\ptatwo=\petwo\fi
         \if\endrr\brthree \let\ptathree=\petwo\fi
         \if\endrr\brfour \let\ptafour=\petwo\fi
         \if\endrr\brfive \let\ptafive=\petwo\fi
         \if\endrr\brsix \let\ptasix=\petwo\fi
         \if\endrr\brseven \let\ptaseven=\petwo\fi
         \if\endrr\breight \let\ptaeight=\petwo\fi
         \if\endrr\brnine \let\ptanine=\petwo\fi
         \if\endrr\brnull \let\ptanull=\petwo\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\petwo\fi
         \if\endrr\brtwo \let\ptbtwo=\petwo\fi
         \if\endrr\brthree \let\ptbthree=\petwo\fi
         \if\endrr\brfour \let\ptbfour=\petwo\fi
         \if\endrr\brfive \let\ptbfive=\petwo\fi
         \if\endrr\brsix \let\ptbsix=\petwo\fi
         \if\endrr\brseven \let\ptbseven=\petwo\fi
         \if\endrr\breight \let\ptbeight=\petwo\fi
         \if\endrr\brnine \let\ptbnine=\petwo\fi
         \if\endrr\brnull \let\ptbnull=\petwo\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\petwo\fi
         \if\endrr\brtwo \let\ptctwo=\petwo\fi
         \if\endrr\brthree \let\ptcthree=\petwo\fi
         \if\endrr\brfour \let\ptcfour=\petwo\fi
         \if\endrr\brfive \let\ptcfive=\petwo\fi
         \if\endrr\brsix \let\ptcsix=\petwo\fi
         \if\endrr\brseven \let\ptcseven=\petwo\fi
         \if\endrr\breight \let\ptceight=\petwo\fi
         \if\endrr\brnine \let\ptcnine=\petwo\fi
         \if\endrr\brnull \let\ptcnull=\petwo\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\petwo\fi
         \if\endrr\brtwo \let\ptdtwo=\petwo\fi
         \if\endrr\brthree \let\ptdthree=\petwo\fi
         \if\endrr\brfour \let\ptdfour=\petwo\fi
         \if\endrr\brfive \let\ptdfive=\petwo\fi
         \if\endrr\brsix \let\ptdsix=\petwo\fi
         \if\endrr\brseven \let\ptdseven=\petwo\fi
         \if\endrr\breight \let\ptdeight=\petwo\fi
         \if\endrr\brnine \let\ptdnine=\petwo\fi
         \if\endrr\brnull \let\ptdnull=\petwo\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\petwo\fi
         \if\endrr\brtwo \let\ptetwo=\petwo\fi
         \if\endrr\brthree \let\ptethree=\petwo\fi
         \if\endrr\brfour \let\ptefour=\petwo\fi
         \if\endrr\brfive \let\ptefive=\petwo\fi
         \if\endrr\brsix \let\ptesix=\petwo\fi
         \if\endrr\brseven \let\pteseven=\petwo\fi
         \if\endrr\breight \let\pteeight=\petwo\fi
         \if\endrr\brnine \let\ptenine=\petwo\fi
         \if\endrr\brnull \let\ptenull=\petwo\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\petwo\fi
         \if\endrr\brtwo \let\ptftwo=\petwo\fi
         \if\endrr\brthree \let\ptfthree=\petwo\fi
         \if\endrr\brfour \let\ptffour=\petwo\fi
         \if\endrr\brfive \let\ptffive=\petwo\fi
         \if\endrr\brsix \let\ptfsix=\petwo\fi
         \if\endrr\brseven \let\ptfseven=\petwo\fi
         \if\endrr\breight \let\ptfeight=\petwo\fi
         \if\endrr\brnine \let\ptfnine=\petwo\fi
         \if\endrr\brnull \let\ptfnull=\petwo\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\petwo\fi
         \if\endrr\brtwo \let\ptgtwo=\petwo\fi
         \if\endrr\brthree \let\ptgthree=\petwo\fi
         \if\endrr\brfour \let\ptgfour=\petwo\fi
         \if\endrr\brfive \let\ptgfive=\petwo\fi
         \if\endrr\brsix \let\ptgsix=\petwo\fi
         \if\endrr\brseven \let\ptgseven=\petwo\fi
         \if\endrr\breight \let\ptgeight=\petwo\fi
         \if\endrr\brnine \let\ptgnine=\petwo\fi
         \if\endrr\brnull \let\ptgnull=\petwo\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\petwo\fi
         \if\endrr\brtwo \let\pthtwo=\petwo\fi
         \if\endrr\brthree \let\pththree=\petwo\fi
         \if\endrr\brfour \let\pthfour=\petwo\fi
         \if\endrr\brfive \let\pthfive=\petwo\fi
         \if\endrr\brsix \let\pthsix=\petwo\fi
         \if\endrr\brseven \let\pthseven=\petwo\fi
         \if\endrr\breight \let\ptheight=\petwo\fi
         \if\endrr\brnine \let\pthnine=\petwo\fi
         \if\endrr\brnull \let\pthnull=\petwo\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\petwo\fi
         \if\endrr\brtwo \let\ptitwo=\petwo\fi
         \if\endrr\brthree \let\ptithree=\petwo\fi
         \if\endrr\brfour \let\ptifour=\petwo\fi
         \if\endrr\brfive \let\ptifive=\petwo\fi
         \if\endrr\brsix \let\ptisix=\petwo\fi
         \if\endrr\brseven \let\ptiseven=\petwo\fi
         \if\endrr\breight \let\ptieight=\petwo\fi
         \if\endrr\brnine \let\ptinine=\petwo\fi
         \if\endrr\brnull \let\ptinull=\petwo\fi\fi\fi
   \if\startrr\brthree \ethreeset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pethree\fi
         \if\endrr\brtwo \let\ptatwo=\pethree\fi
         \if\endrr\brthree \let\ptathree=\pethree\fi
         \if\endrr\brfour \let\ptafour=\pethree\fi
         \if\endrr\brfive \let\ptafive=\pethree\fi
         \if\endrr\brsix \let\ptasix=\pethree\fi
         \if\endrr\brseven \let\ptaseven=\pethree\fi
         \if\endrr\breight \let\ptaeight=\pethree\fi
         \if\endrr\brnine \let\ptanine=\pethree\fi
         \if\endrr\brnull \let\ptanull=\pethree\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pethree\fi
         \if\endrr\brtwo \let\ptbtwo=\pethree\fi
         \if\endrr\brthree \let\ptbthree=\pethree\fi
         \if\endrr\brfour \let\ptbfour=\pethree\fi
         \if\endrr\brfive \let\ptbfive=\pethree\fi
         \if\endrr\brsix \let\ptbsix=\pethree\fi
         \if\endrr\brseven \let\ptbseven=\pethree\fi
         \if\endrr\breight \let\ptbeight=\pethree\fi
         \if\endrr\brnine \let\ptbnine=\pethree\fi
         \if\endrr\brnull \let\ptbnull=\pethree\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pethree\fi
         \if\endrr\brtwo \let\ptctwo=\pethree\fi
         \if\endrr\brthree \let\ptcthree=\pethree\fi
         \if\endrr\brfour \let\ptcfour=\pethree\fi
         \if\endrr\brfive \let\ptcfive=\pethree\fi
         \if\endrr\brsix \let\ptcsix=\pethree\fi
         \if\endrr\brseven \let\ptcseven=\pethree\fi
         \if\endrr\breight \let\ptceight=\pethree\fi
         \if\endrr\brnine \let\ptcnine=\pethree\fi
         \if\endrr\brnull \let\ptcnull=\pethree\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pethree\fi
         \if\endrr\brtwo \let\ptdtwo=\pethree\fi
         \if\endrr\brthree \let\ptdthree=\pethree\fi
         \if\endrr\brfour \let\ptdfour=\pethree\fi
         \if\endrr\brfive \let\ptdfive=\pethree\fi
         \if\endrr\brsix \let\ptdsix=\pethree\fi
         \if\endrr\brseven \let\ptdseven=\pethree\fi
         \if\endrr\breight \let\ptdeight=\pethree\fi
         \if\endrr\brnine \let\ptdnine=\pethree\fi
         \if\endrr\brnull \let\ptdnull=\pethree\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pethree\fi
         \if\endrr\brtwo \let\ptetwo=\pethree\fi
         \if\endrr\brthree \let\ptethree=\pethree\fi
         \if\endrr\brfour \let\ptefour=\pethree\fi
         \if\endrr\brfive \let\ptefive=\pethree\fi
         \if\endrr\brsix \let\ptesix=\pethree\fi
         \if\endrr\brseven \let\pteseven=\pethree\fi
         \if\endrr\breight \let\pteeight=\pethree\fi
         \if\endrr\brnine \let\ptenine=\pethree\fi
         \if\endrr\brnull \let\ptenull=\pethree\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pethree\fi
         \if\endrr\brtwo \let\ptftwo=\pethree\fi
         \if\endrr\brthree \let\ptfthree=\pethree\fi
         \if\endrr\brfour \let\ptffour=\pethree\fi
         \if\endrr\brfive \let\ptffive=\pethree\fi
         \if\endrr\brsix \let\ptfsix=\pethree\fi
         \if\endrr\brseven \let\ptfseven=\pethree\fi
         \if\endrr\breight \let\ptfeight=\pethree\fi
         \if\endrr\brnine \let\ptfnine=\pethree\fi
         \if\endrr\brnull \let\ptfnull=\pethree\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pethree\fi
         \if\endrr\brtwo \let\ptgtwo=\pethree\fi
         \if\endrr\brthree \let\ptgthree=\pethree\fi
         \if\endrr\brfour \let\ptgfour=\pethree\fi
         \if\endrr\brfive \let\ptgfive=\pethree\fi
         \if\endrr\brsix \let\ptgsix=\pethree\fi
         \if\endrr\brseven \let\ptgseven=\pethree\fi
         \if\endrr\breight \let\ptgeight=\pethree\fi
         \if\endrr\brnine \let\ptgnine=\pethree\fi
         \if\endrr\brnull \let\ptgnull=\pethree\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pethree\fi
         \if\endrr\brtwo \let\pthtwo=\pethree\fi
         \if\endrr\brthree \let\pththree=\pethree\fi
         \if\endrr\brfour \let\pthfour=\pethree\fi
         \if\endrr\brfive \let\pthfive=\pethree\fi
         \if\endrr\brsix \let\pthsix=\pethree\fi
         \if\endrr\brseven \let\pthseven=\pethree\fi
         \if\endrr\breight \let\ptheight=\pethree\fi
         \if\endrr\brnine \let\pthnine=\pethree\fi
         \if\endrr\brnull \let\pthnull=\pethree\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pethree\fi
         \if\endrr\brtwo \let\ptitwo=\pethree\fi
         \if\endrr\brthree \let\ptithree=\pethree\fi
         \if\endrr\brfour \let\ptifour=\pethree\fi
         \if\endrr\brfive \let\ptifive=\pethree\fi
         \if\endrr\brsix \let\ptisix=\pethree\fi
         \if\endrr\brseven \let\ptiseven=\pethree\fi
         \if\endrr\breight \let\ptieight=\pethree\fi
         \if\endrr\brnine \let\ptinine=\pethree\fi
         \if\endrr\brnull \let\ptinull=\pethree\fi\fi\fi      
   \if\startrr\brfour \efourset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pefour\fi
         \if\endrr\brtwo \let\ptatwo=\pefour\fi
         \if\endrr\brthree \let\ptathree=\pefour\fi
         \if\endrr\brfour \let\ptafour=\pefour\fi
         \if\endrr\brfive \let\ptafive=\pefour\fi
         \if\endrr\brsix \let\ptasix=\pefour\fi
         \if\endrr\brseven \let\ptaseven=\pefour\fi
         \if\endrr\breight \let\ptaeight=\pefour\fi
         \if\endrr\brnine \let\ptanine=\pefour\fi
         \if\endrr\brnull \let\ptanull=\pefour\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pefour\fi
         \if\endrr\brtwo \let\ptbtwo=\pefour\fi
         \if\endrr\brthree \let\ptbthree=\pefour\fi
         \if\endrr\brfour \let\ptbfour=\pefour\fi
         \if\endrr\brfive \let\ptbfive=\pefour\fi
         \if\endrr\brsix \let\ptbsix=\pefour\fi
         \if\endrr\brseven \let\ptbseven=\pefour\fi
         \if\endrr\breight \let\ptbeight=\pefour\fi
         \if\endrr\brnine \let\ptbnine=\pefour\fi
         \if\endrr\brnull \let\ptbnull=\pefour\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pefour\fi
         \if\endrr\brtwo \let\ptctwo=\pefour\fi
         \if\endrr\brthree \let\ptcthree=\pefour\fi
         \if\endrr\brfour \let\ptcfour=\pefour\fi
         \if\endrr\brfive \let\ptcfive=\pefour\fi
         \if\endrr\brsix \let\ptcsix=\pefour\fi
         \if\endrr\brseven \let\ptcseven=\pefour\fi
         \if\endrr\breight \let\ptceight=\pefour\fi
         \if\endrr\brnine \let\ptcnine=\pefour\fi
         \if\endrr\brnull \let\ptcnull=\pefour\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pefour\fi
         \if\endrr\brtwo \let\ptdtwo=\pefour\fi
         \if\endrr\brthree \let\ptdthree=\pefour\fi
         \if\endrr\brfour \let\ptdfour=\pefour\fi
         \if\endrr\brfive \let\ptdfive=\pefour\fi
         \if\endrr\brsix \let\ptdsix=\pefour\fi
         \if\endrr\brseven \let\ptdseven=\pefour\fi
         \if\endrr\breight \let\ptdeight=\pefour\fi
         \if\endrr\brnine \let\ptdnine=\pefour\fi
         \if\endrr\brnull \let\ptdnull=\pefour\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pefour\fi
         \if\endrr\brtwo \let\ptetwo=\pefour\fi
         \if\endrr\brthree \let\ptethree=\pefour\fi
         \if\endrr\brfour \let\ptefour=\pefour\fi
         \if\endrr\brfive \let\ptefive=\pefour\fi
         \if\endrr\brsix \let\ptesix=\pefour\fi
         \if\endrr\brseven \let\pteseven=\pefour\fi
         \if\endrr\breight \let\pteeight=\pefour\fi
         \if\endrr\brnine \let\ptenine=\pefour\fi
         \if\endrr\brnull \let\ptenull=\pefour\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pefour\fi
         \if\endrr\brtwo \let\ptftwo=\pefour\fi
         \if\endrr\brthree \let\ptfthree=\pefour\fi
         \if\endrr\brfour \let\ptffour=\pefour\fi
         \if\endrr\brfive \let\ptffive=\pefour\fi
         \if\endrr\brsix \let\ptfsix=\pefour\fi
         \if\endrr\brseven \let\ptfseven=\pefour\fi
         \if\endrr\breight \let\ptfeight=\pefour\fi
         \if\endrr\brnine \let\ptfnine=\pefour\fi
         \if\endrr\brnull \let\ptfnull=\pefour\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pefour\fi
         \if\endrr\brtwo \let\ptgtwo=\pefour\fi
         \if\endrr\brthree \let\ptgthree=\pefour\fi
         \if\endrr\brfour \let\ptgfour=\pefour\fi
         \if\endrr\brfive \let\ptgfive=\pefour\fi
         \if\endrr\brsix \let\ptgsix=\pefour\fi
         \if\endrr\brseven \let\ptgseven=\pefour\fi
         \if\endrr\breight \let\ptgeight=\pefour\fi
         \if\endrr\brnine \let\ptgnine=\pefour\fi
         \if\endrr\brnull \let\ptgnull=\pefour\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pefour\fi
         \if\endrr\brtwo \let\pthtwo=\pefour\fi
         \if\endrr\brthree \let\pththree=\pefour\fi
         \if\endrr\brfour \let\pthfour=\pefour\fi
         \if\endrr\brfive \let\pthfive=\pefour\fi
         \if\endrr\brsix \let\pthsix=\pefour\fi
         \if\endrr\brseven \let\pthseven=\pefour\fi
         \if\endrr\breight \let\ptheight=\pefour\fi
         \if\endrr\brnine \let\pthnine=\pefour\fi
         \if\endrr\brnull \let\pthnull=\pefour\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pefour\fi
         \if\endrr\brtwo \let\ptitwo=\pefour\fi
         \if\endrr\brthree \let\ptithree=\pefour\fi
         \if\endrr\brfour \let\ptifour=\pefour\fi
         \if\endrr\brfive \let\ptifive=\pefour\fi
         \if\endrr\brsix \let\ptisix=\pefour\fi
         \if\endrr\brseven \let\ptiseven=\pefour\fi
         \if\endrr\breight \let\ptieight=\pefour\fi
         \if\endrr\brnine \let\ptinine=\pefour\fi
         \if\endrr\brnull \let\ptinull=\pefour\fi\fi\fi      
   \if\startrr\brfive \efiveset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pefive\fi
         \if\endrr\brtwo \let\ptatwo=\pefive\fi
         \if\endrr\brthree \let\ptathree=\pefive\fi
         \if\endrr\brfour \let\ptafour=\pefive\fi
         \if\endrr\brfive \let\ptafive=\pefive\fi
         \if\endrr\brsix \let\ptasix=\pefive\fi
         \if\endrr\brseven \let\ptaseven=\pefive\fi
         \if\endrr\breight \let\ptaeight=\pefive\fi
         \if\endrr\brnine \let\ptanine=\pefive\fi
         \if\endrr\brnull \let\ptanull=\pefive\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pefive\fi
         \if\endrr\brtwo \let\ptbtwo=\pefive\fi
         \if\endrr\brthree \let\ptbthree=\pefive\fi
         \if\endrr\brfour \let\ptbfour=\pefive\fi
         \if\endrr\brfive \let\ptbfive=\pefive\fi
         \if\endrr\brsix \let\ptbsix=\pefive\fi
         \if\endrr\brseven \let\ptbseven=\pefive\fi
         \if\endrr\breight \let\ptbeight=\pefive\fi
         \if\endrr\brnine \let\ptbnine=\pefive\fi
         \if\endrr\brnull \let\ptbnull=\pefive\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pefive\fi
         \if\endrr\brtwo \let\ptctwo=\pefive\fi
         \if\endrr\brthree \let\ptcthree=\pefive\fi
         \if\endrr\brfour \let\ptcfour=\pefive\fi
         \if\endrr\brfive \let\ptcfive=\pefive\fi
         \if\endrr\brsix \let\ptcsix=\pefive\fi
         \if\endrr\brseven \let\ptcseven=\pefive\fi
         \if\endrr\breight \let\ptceight=\pefive\fi
         \if\endrr\brnine \let\ptcnine=\pefive\fi
         \if\endrr\brnull \let\ptcnull=\pefive\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pefive\fi
         \if\endrr\brtwo \let\ptdtwo=\pefive\fi
         \if\endrr\brthree \let\ptdthree=\pefive\fi
         \if\endrr\brfour \let\ptdfour=\pefive\fi
         \if\endrr\brfive \let\ptdfive=\pefive\fi
         \if\endrr\brsix \let\ptdsix=\pefive\fi
         \if\endrr\brseven \let\ptdseven=\pefive\fi
         \if\endrr\breight \let\ptdeight=\pefive\fi
         \if\endrr\brnine \let\ptdnine=\pefive\fi
         \if\endrr\brnull \let\ptdnull=\pefive\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pefive\fi
         \if\endrr\brtwo \let\ptetwo=\pefive\fi
         \if\endrr\brthree \let\ptethree=\pefive\fi
         \if\endrr\brfour \let\ptefour=\pefive\fi
         \if\endrr\brfive \let\ptefive=\pefive\fi
         \if\endrr\brsix \let\ptesix=\pefive\fi
         \if\endrr\brseven \let\pteseven=\pefive\fi
         \if\endrr\breight \let\pteeight=\pefive\fi
         \if\endrr\brnine \let\ptenine=\pefive\fi
         \if\endrr\brnull \let\ptenull=\pefive\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pefive\fi
         \if\endrr\brtwo \let\ptftwo=\pefive\fi
         \if\endrr\brthree \let\ptfthree=\pefive\fi
         \if\endrr\brfour \let\ptffour=\pefive\fi
         \if\endrr\brfive \let\ptffive=\pefive\fi
         \if\endrr\brsix \let\ptfsix=\pefive\fi
         \if\endrr\brseven \let\ptfseven=\pefive\fi
         \if\endrr\breight \let\ptfeight=\pefive\fi
         \if\endrr\brnine \let\ptfnine=\pefive\fi
         \if\endrr\brnull \let\ptfnull=\pefive\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pefive\fi
         \if\endrr\brtwo \let\ptgtwo=\pefive\fi
         \if\endrr\brthree \let\ptgthree=\pefive\fi
         \if\endrr\brfour \let\ptgfour=\pefive\fi
         \if\endrr\brfive \let\ptgfive=\pefive\fi
         \if\endrr\brsix \let\ptgsix=\pefive\fi
         \if\endrr\brseven \let\ptgseven=\pefive\fi
         \if\endrr\breight \let\ptgeight=\pefive\fi
         \if\endrr\brnine \let\ptgnine=\pefive\fi
         \if\endrr\brnull \let\ptgnull=\pefive\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pefive\fi
         \if\endrr\brtwo \let\pthtwo=\pefive\fi
         \if\endrr\brthree \let\pththree=\pefive\fi
         \if\endrr\brfour \let\pthfour=\pefive\fi
         \if\endrr\brfive \let\pthfive=\pefive\fi
         \if\endrr\brsix \let\pthsix=\pefive\fi
         \if\endrr\brseven \let\pthseven=\pefive\fi
         \if\endrr\breight \let\ptheight=\pefive\fi
         \if\endrr\brnine \let\pthnine=\pefive\fi
         \if\endrr\brnull \let\pthnull=\pefive\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pefive\fi
         \if\endrr\brtwo \let\ptitwo=\pefive\fi
         \if\endrr\brthree \let\ptithree=\pefive\fi
         \if\endrr\brfour \let\ptifour=\pefive\fi
         \if\endrr\brfive \let\ptifive=\pefive\fi
         \if\endrr\brsix \let\ptisix=\pefive\fi
         \if\endrr\brseven \let\ptiseven=\pefive\fi
         \if\endrr\breight \let\ptieight=\pefive\fi
         \if\endrr\brnine \let\ptinine=\pefive\fi
         \if\endrr\brnull \let\ptinull=\pefive\fi\fi\fi   
   \if\startrr\brsix \esixset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pesix\fi
         \if\endrr\brtwo \let\ptatwo=\pesix\fi
         \if\endrr\brthree \let\ptathree=\pesix\fi
         \if\endrr\brfour \let\ptafour=\pesix\fi
         \if\endrr\brfive \let\ptafive=\pesix\fi
         \if\endrr\brsix \let\ptasix=\pesix\fi
         \if\endrr\brseven \let\ptaseven=\pesix\fi
         \if\endrr\breight \let\ptaeight=\pesix\fi
         \if\endrr\brnine \let\ptanine=\pesix\fi
         \if\endrr\brnull \let\ptanull=\pesix\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pesix\fi
         \if\endrr\brtwo \let\ptbtwo=\pesix\fi
         \if\endrr\brthree \let\ptbthree=\pesix\fi
         \if\endrr\brfour \let\ptbfour=\pesix\fi
         \if\endrr\brfive \let\ptbfive=\pesix\fi
         \if\endrr\brsix \let\ptbsix=\pesix\fi
         \if\endrr\brseven \let\ptbseven=\pesix\fi
         \if\endrr\breight \let\ptbeight=\pesix\fi
         \if\endrr\brnine \let\ptbnine=\pesix\fi
         \if\endrr\brnull \let\ptbnull=\pesix\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pesix\fi
         \if\endrr\brtwo \let\ptctwo=\pesix\fi
         \if\endrr\brthree \let\ptcthree=\pesix\fi
         \if\endrr\brfour \let\ptcfour=\pesix\fi
         \if\endrr\brfive \let\ptcfive=\pesix\fi
         \if\endrr\brsix \let\ptcsix=\pesix\fi
         \if\endrr\brseven \let\ptcseven=\pesix\fi
         \if\endrr\breight \let\ptceight=\pesix\fi
         \if\endrr\brnine \let\ptcnine=\pesix\fi
         \if\endrr\brnull \let\ptcnull=\pesix\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pesix\fi
         \if\endrr\brtwo \let\ptdtwo=\pesix\fi
         \if\endrr\brthree \let\ptdthree=\pesix\fi
         \if\endrr\brfour \let\ptdfour=\pesix\fi
         \if\endrr\brfive \let\ptdfive=\pesix\fi
         \if\endrr\brsix \let\ptdsix=\pesix\fi
         \if\endrr\brseven \let\ptdseven=\pesix\fi
         \if\endrr\breight \let\ptdeight=\pesix\fi
         \if\endrr\brnine \let\ptdnine=\pesix\fi
         \if\endrr\brnull \let\ptdnull=\pesix\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pesix\fi
         \if\endrr\brtwo \let\ptetwo=\pesix\fi
         \if\endrr\brthree \let\ptethree=\pesix\fi
         \if\endrr\brfour \let\ptefour=\pesix\fi
         \if\endrr\brfive \let\ptefive=\pesix\fi
         \if\endrr\brsix \let\ptesix=\pesix\fi
         \if\endrr\brseven \let\pteseven=\pesix\fi
         \if\endrr\breight \let\pteeight=\pesix\fi
         \if\endrr\brnine \let\ptenine=\pesix\fi
         \if\endrr\brnull \let\ptenull=\pesix\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pesix\fi
         \if\endrr\brtwo \let\ptftwo=\pesix\fi
         \if\endrr\brthree \let\ptfthree=\pesix\fi
         \if\endrr\brfour \let\ptffour=\pesix\fi
         \if\endrr\brfive \let\ptffive=\pesix\fi
         \if\endrr\brsix \let\ptfsix=\pesix\fi
         \if\endrr\brseven \let\ptfseven=\pesix\fi
         \if\endrr\breight \let\ptfeight=\pesix\fi
         \if\endrr\brnine \let\ptfnine=\pesix\fi
         \if\endrr\brnull \let\ptfnull=\pesix\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pesix\fi
         \if\endrr\brtwo \let\ptgtwo=\pesix\fi
         \if\endrr\brthree \let\ptgthree=\pesix\fi
         \if\endrr\brfour \let\ptgfour=\pesix\fi
         \if\endrr\brfive \let\ptgfive=\pesix\fi
         \if\endrr\brsix \let\ptgsix=\pesix\fi
         \if\endrr\brseven \let\ptgseven=\pesix\fi
         \if\endrr\breight \let\ptgeight=\pesix\fi
         \if\endrr\brnine \let\ptgnine=\pesix\fi
         \if\endrr\brnull \let\ptgnull=\pesix\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pesix\fi
         \if\endrr\brtwo \let\pthtwo=\pesix\fi
         \if\endrr\brthree \let\pththree=\pesix\fi
         \if\endrr\brfour \let\pthfour=\pesix\fi
         \if\endrr\brfive \let\pthfive=\pesix\fi
         \if\endrr\brsix \let\pthsix=\pesix\fi
         \if\endrr\brseven \let\pthseven=\pesix\fi
         \if\endrr\breight \let\ptheight=\pesix\fi
         \if\endrr\brnine \let\pthnine=\pesix\fi
         \if\endrr\brnull \let\pthnull=\pesix\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pesix\fi
         \if\endrr\brtwo \let\ptitwo=\pesix\fi
         \if\endrr\brthree \let\ptithree=\pesix\fi
         \if\endrr\brfour \let\ptifour=\pesix\fi
         \if\endrr\brfive \let\ptifive=\pesix\fi
         \if\endrr\brsix \let\ptisix=\pesix\fi
         \if\endrr\brseven \let\ptiseven=\pesix\fi
         \if\endrr\breight \let\ptieight=\pesix\fi
         \if\endrr\brnine \let\ptinine=\pesix\fi
         \if\endrr\brnull \let\ptinull=\pesix\fi\fi\fi
   \if\startrr\brseven \esevenset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\peseven\fi
         \if\endrr\brtwo \let\ptatwo=\peseven\fi
         \if\endrr\brthree \let\ptathree=\peseven\fi
         \if\endrr\brfour \let\ptafour=\peseven\fi
         \if\endrr\brfive \let\ptafive=\peseven\fi
         \if\endrr\brsix \let\ptasix=\peseven\fi
         \if\endrr\brseven \let\ptaseven=\peseven\fi
         \if\endrr\breight \let\ptaeight=\peseven\fi
         \if\endrr\brnine \let\ptanine=\peseven\fi
         \if\endrr\brnull \let\ptanull=\peseven\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\peseven\fi
         \if\endrr\brtwo \let\ptbtwo=\peseven\fi
         \if\endrr\brthree \let\ptbthree=\peseven\fi
         \if\endrr\brfour \let\ptbfour=\peseven\fi
         \if\endrr\brfive \let\ptbfive=\peseven\fi
         \if\endrr\brsix \let\ptbsix=\peseven\fi
         \if\endrr\brseven \let\ptbseven=\peseven\fi
         \if\endrr\breight \let\ptbeight=\peseven\fi
         \if\endrr\brnine \let\ptbnine=\peseven\fi
         \if\endrr\brnull \let\ptbnull=\peseven\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\peseven\fi
         \if\endrr\brtwo \let\ptctwo=\peseven\fi
         \if\endrr\brthree \let\ptcthree=\peseven\fi
         \if\endrr\brfour \let\ptcfour=\peseven\fi
         \if\endrr\brfive \let\ptcfive=\peseven\fi
         \if\endrr\brsix \let\ptcsix=\peseven\fi
         \if\endrr\brseven \let\ptcseven=\peseven\fi
         \if\endrr\breight \let\ptceight=\peseven\fi
         \if\endrr\brnine \let\ptcnine=\peseven\fi
         \if\endrr\brnull \let\ptcnull=\peseven\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\peseven\fi
         \if\endrr\brtwo \let\ptdtwo=\peseven\fi
         \if\endrr\brthree \let\ptdthree=\peseven\fi
         \if\endrr\brfour \let\ptdfour=\peseven\fi
         \if\endrr\brfive \let\ptdfive=\peseven\fi
         \if\endrr\brsix \let\ptdsix=\peseven\fi
         \if\endrr\brseven \let\ptdseven=\peseven\fi
         \if\endrr\breight \let\ptdeight=\peseven\fi
         \if\endrr\brnine \let\ptdnine=\peseven\fi
         \if\endrr\brnull \let\ptdnull=\peseven\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\peseven\fi
         \if\endrr\brtwo \let\ptetwo=\peseven\fi
         \if\endrr\brthree \let\ptethree=\peseven\fi
         \if\endrr\brfour \let\ptefour=\peseven\fi
         \if\endrr\brfive \let\ptefive=\peseven\fi
         \if\endrr\brsix \let\ptesix=\peseven\fi
         \if\endrr\brseven \let\pteseven=\peseven\fi
         \if\endrr\breight \let\pteeight=\peseven\fi
         \if\endrr\brnine \let\ptenine=\peseven\fi
         \if\endrr\brnull \let\ptenull=\peseven\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\peseven\fi
         \if\endrr\brtwo \let\ptftwo=\peseven\fi
         \if\endrr\brthree \let\ptfthree=\peseven\fi
         \if\endrr\brfour \let\ptffour=\peseven\fi
         \if\endrr\brfive \let\ptffive=\peseven\fi
         \if\endrr\brsix \let\ptfsix=\peseven\fi
         \if\endrr\brseven \let\ptfseven=\peseven\fi
         \if\endrr\breight \let\ptfeight=\peseven\fi
         \if\endrr\brnine \let\ptfnine=\peseven\fi
         \if\endrr\brnull \let\ptfnull=\peseven\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\peseven\fi
         \if\endrr\brtwo \let\ptgtwo=\peseven\fi
         \if\endrr\brthree \let\ptgthree=\peseven\fi
         \if\endrr\brfour \let\ptgfour=\peseven\fi
         \if\endrr\brfive \let\ptgfive=\peseven\fi
         \if\endrr\brsix \let\ptgsix=\peseven\fi
         \if\endrr\brseven \let\ptgseven=\peseven\fi
         \if\endrr\breight \let\ptgeight=\peseven\fi
         \if\endrr\brnine \let\ptgnine=\peseven\fi
         \if\endrr\brnull \let\ptgnull=\peseven\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\peseven\fi
         \if\endrr\brtwo \let\pthtwo=\peseven\fi
         \if\endrr\brthree \let\pththree=\peseven\fi
         \if\endrr\brfour \let\pthfour=\peseven\fi
         \if\endrr\brfive \let\pthfive=\peseven\fi
         \if\endrr\brsix \let\pthsix=\peseven\fi
         \if\endrr\brseven \let\pthseven=\peseven\fi
         \if\endrr\breight \let\ptheight=\peseven\fi
         \if\endrr\brnine \let\pthnine=\peseven\fi
         \if\endrr\brnull \let\pthnull=\peseven\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\peseven\fi
         \if\endrr\brtwo \let\ptitwo=\peseven\fi
         \if\endrr\brthree \let\ptithree=\peseven\fi
         \if\endrr\brfour \let\ptifour=\peseven\fi
         \if\endrr\brfive \let\ptifive=\peseven\fi
         \if\endrr\brsix \let\ptisix=\peseven\fi
         \if\endrr\brseven \let\ptiseven=\peseven\fi
         \if\endrr\breight \let\ptieight=\peseven\fi
         \if\endrr\brnine \let\ptinine=\peseven\fi
         \if\endrr\brnull \let\ptinull=\peseven\fi\fi\fi      
   \if\startrr\breight \eeightset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\peeight\fi
         \if\endrr\brtwo \let\ptatwo=\peeight\fi
         \if\endrr\brthree \let\ptathree=\peeight\fi
         \if\endrr\brfour \let\ptafour=\peeight\fi
         \if\endrr\brfive \let\ptafive=\peeight\fi
         \if\endrr\brsix \let\ptasix=\peeight\fi
         \if\endrr\brseven \let\ptaseven=\peeight\fi
         \if\endrr\breight \let\ptaeight=\peeight\fi
         \if\endrr\brnine \let\ptanine=\peeight\fi
         \if\endrr\brnull \let\ptanull=\peeight\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\peeight\fi
         \if\endrr\brtwo \let\ptbtwo=\peeight\fi
         \if\endrr\brthree \let\ptbthree=\peeight\fi
         \if\endrr\brfour \let\ptbfour=\peeight\fi
         \if\endrr\brfive \let\ptbfive=\peeight\fi
         \if\endrr\brsix \let\ptbsix=\peeight\fi
         \if\endrr\brseven \let\ptbseven=\peeight\fi
         \if\endrr\breight \let\ptbeight=\peeight\fi
         \if\endrr\brnine \let\ptbnine=\peeight\fi
         \if\endrr\brnull \let\ptbnull=\peeight\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\peeight\fi
         \if\endrr\brtwo \let\ptctwo=\peeight\fi
         \if\endrr\brthree \let\ptcthree=\peeight\fi
         \if\endrr\brfour \let\ptcfour=\peeight\fi
         \if\endrr\brfive \let\ptcfive=\peeight\fi
         \if\endrr\brsix \let\ptcsix=\peeight\fi
         \if\endrr\brseven \let\ptcseven=\peeight\fi
         \if\endrr\breight \let\ptceight=\peeight\fi
         \if\endrr\brnine \let\ptcnine=\peeight\fi
         \if\endrr\brnull \let\ptcnull=\peeight\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\peeight\fi
         \if\endrr\brtwo \let\ptdtwo=\peeight\fi
         \if\endrr\brthree \let\ptdthree=\peeight\fi
         \if\endrr\brfour \let\ptdfour=\peeight\fi
         \if\endrr\brfive \let\ptdfive=\peeight\fi
         \if\endrr\brsix \let\ptdsix=\peeight\fi
         \if\endrr\brseven \let\ptdseven=\peeight\fi
         \if\endrr\breight \let\ptdeight=\peeight\fi
         \if\endrr\brnine \let\ptdnine=\peeight\fi
         \if\endrr\brnull \let\ptdnull=\peeight\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\peeight\fi
         \if\endrr\brtwo \let\ptetwo=\peeight\fi
         \if\endrr\brthree \let\ptethree=\peeight\fi
         \if\endrr\brfour \let\ptefour=\peeight\fi
         \if\endrr\brfive \let\ptefive=\peeight\fi
         \if\endrr\brsix \let\ptesix=\peeight\fi
         \if\endrr\brseven \let\pteseven=\peeight\fi
         \if\endrr\breight \let\pteeight=\peeight\fi
         \if\endrr\brnine \let\ptenine=\peeight\fi
         \if\endrr\brnull \let\ptenull=\peeight\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\peeight\fi
         \if\endrr\brtwo \let\ptftwo=\peeight\fi
         \if\endrr\brthree \let\ptfthree=\peeight\fi
         \if\endrr\brfour \let\ptffour=\peeight\fi
         \if\endrr\brfive \let\ptffive=\peeight\fi
         \if\endrr\brsix \let\ptfsix=\peeight\fi
         \if\endrr\brseven \let\ptfseven=\peeight\fi
         \if\endrr\breight \let\ptfeight=\peeight\fi
         \if\endrr\brnine \let\ptfnine=\peeight\fi
         \if\endrr\brnull \let\ptfnull=\peeight\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\peeight\fi
         \if\endrr\brtwo \let\ptgtwo=\peeight\fi
         \if\endrr\brthree \let\ptgthree=\peeight\fi
         \if\endrr\brfour \let\ptgfour=\peeight\fi
         \if\endrr\brfive \let\ptgfive=\peeight\fi
         \if\endrr\brsix \let\ptgsix=\peeight\fi
         \if\endrr\brseven \let\ptgseven=\peeight\fi
         \if\endrr\breight \let\ptgeight=\peeight\fi
         \if\endrr\brnine \let\ptgnine=\peeight\fi
         \if\endrr\brnull \let\ptgnull=\peeight\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\peeight\fi
         \if\endrr\brtwo \let\pthtwo=\peeight\fi
         \if\endrr\brthree \let\pththree=\peeight\fi
         \if\endrr\brfour \let\pthfour=\peeight\fi
         \if\endrr\brfive \let\pthfive=\peeight\fi
         \if\endrr\brsix \let\pthsix=\peeight\fi
         \if\endrr\brseven \let\pthseven=\peeight\fi
         \if\endrr\breight \let\ptheight=\peeight\fi
         \if\endrr\brnine \let\pthnine=\peeight\fi
         \if\endrr\brnull \let\pthnull=\peeight\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\peeight\fi
         \if\endrr\brtwo \let\ptitwo=\peeight\fi
         \if\endrr\brthree \let\ptithree=\peeight\fi
         \if\endrr\brfour \let\ptifour=\peeight\fi
         \if\endrr\brfive \let\ptifive=\peeight\fi
         \if\endrr\brsix \let\ptisix=\peeight\fi
         \if\endrr\brseven \let\ptiseven=\peeight\fi
         \if\endrr\breight \let\ptieight=\peeight\fi
         \if\endrr\brnine \let\ptinine=\peeight\fi
         \if\endrr\brnull \let\ptinull=\peeight\fi\fi\fi      
   \if\startrr\brnine \enineset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\penine\fi
         \if\endrr\brtwo \let\ptatwo=\penine\fi
         \if\endrr\brthree \let\ptathree=\penine\fi
         \if\endrr\brfour \let\ptafour=\penine\fi
         \if\endrr\brfive \let\ptafive=\penine\fi
         \if\endrr\brsix \let\ptasix=\penine\fi
         \if\endrr\brseven \let\ptaseven=\penine\fi
         \if\endrr\breight \let\ptaeight=\penine\fi
         \if\endrr\brnine \let\ptanine=\penine\fi
         \if\endrr\brnull \let\ptanull=\penine\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\penine\fi
         \if\endrr\brtwo \let\ptbtwo=\penine\fi
         \if\endrr\brthree \let\ptbthree=\penine\fi
         \if\endrr\brfour \let\ptbfour=\penine\fi
         \if\endrr\brfive \let\ptbfive=\penine\fi
         \if\endrr\brsix \let\ptbsix=\penine\fi
         \if\endrr\brseven \let\ptbseven=\penine\fi
         \if\endrr\breight \let\ptbeight=\penine\fi
         \if\endrr\brnine \let\ptbnine=\penine\fi
         \if\endrr\brnull \let\ptbnull=\penine\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\penine\fi
         \if\endrr\brtwo \let\ptctwo=\penine\fi
         \if\endrr\brthree \let\ptcthree=\penine\fi
         \if\endrr\brfour \let\ptcfour=\penine\fi
         \if\endrr\brfive \let\ptcfive=\penine\fi
         \if\endrr\brsix \let\ptcsix=\penine\fi
         \if\endrr\brseven \let\ptcseven=\penine\fi
         \if\endrr\breight \let\ptceight=\penine\fi
         \if\endrr\brnine \let\ptcnine=\penine\fi
         \if\endrr\brnull \let\ptcnull=\penine\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\penine\fi
         \if\endrr\brtwo \let\ptdtwo=\penine\fi
         \if\endrr\brthree \let\ptdthree=\penine\fi
         \if\endrr\brfour \let\ptdfour=\penine\fi
         \if\endrr\brfive \let\ptdfive=\penine\fi
         \if\endrr\brsix \let\ptdsix=\penine\fi
         \if\endrr\brseven \let\ptdseven=\penine\fi
         \if\endrr\breight \let\ptdeight=\penine\fi
         \if\endrr\brnine \let\ptdnine=\penine\fi
         \if\endrr\brnull \let\ptdnull=\penine\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\penine\fi
         \if\endrr\brtwo \let\ptetwo=\penine\fi
         \if\endrr\brthree \let\ptethree=\penine\fi
         \if\endrr\brfour \let\ptefour=\penine\fi
         \if\endrr\brfive \let\ptefive=\penine\fi
         \if\endrr\brsix \let\ptesix=\penine\fi
         \if\endrr\brseven \let\pteseven=\penine\fi
         \if\endrr\breight \let\pteeight=\penine\fi
         \if\endrr\brnine \let\ptenine=\penine\fi
         \if\endrr\brnull \let\ptenull=\penine\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\penine\fi
         \if\endrr\brtwo \let\ptftwo=\penine\fi
         \if\endrr\brthree \let\ptfthree=\penine\fi
         \if\endrr\brfour \let\ptffour=\penine\fi
         \if\endrr\brfive \let\ptffive=\penine\fi
         \if\endrr\brsix \let\ptfsix=\penine\fi
         \if\endrr\brseven \let\ptfseven=\penine\fi
         \if\endrr\breight \let\ptfeight=\penine\fi
         \if\endrr\brnine \let\ptfnine=\penine\fi
         \if\endrr\brnull \let\ptfnull=\penine\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\penine\fi
         \if\endrr\brtwo \let\ptgtwo=\penine\fi
         \if\endrr\brthree \let\ptgthree=\penine\fi
         \if\endrr\brfour \let\ptgfour=\penine\fi
         \if\endrr\brfive \let\ptgfive=\penine\fi
         \if\endrr\brsix \let\ptgsix=\penine\fi
         \if\endrr\brseven \let\ptgseven=\penine\fi
         \if\endrr\breight \let\ptgeight=\penine\fi
         \if\endrr\brnine \let\ptgnine=\penine\fi
         \if\endrr\brnull \let\ptgnull=\penine\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\penine\fi
         \if\endrr\brtwo \let\pthtwo=\penine\fi
         \if\endrr\brthree \let\pththree=\penine\fi
         \if\endrr\brfour \let\pthfour=\penine\fi
         \if\endrr\brfive \let\pthfive=\penine\fi
         \if\endrr\brsix \let\pthsix=\penine\fi
         \if\endrr\brseven \let\pthseven=\penine\fi
         \if\endrr\breight \let\ptheight=\penine\fi
         \if\endrr\brnine \let\pthnine=\penine\fi
         \if\endrr\brnull \let\pthnull=\penine\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\penine\fi
         \if\endrr\brtwo \let\ptitwo=\penine\fi
         \if\endrr\brthree \let\ptithree=\penine\fi
         \if\endrr\brfour \let\ptifour=\penine\fi
         \if\endrr\brfive \let\ptifive=\penine\fi
         \if\endrr\brsix \let\ptisix=\penine\fi
         \if\endrr\brseven \let\ptiseven=\penine\fi
         \if\endrr\breight \let\ptieight=\penine\fi
         \if\endrr\brnine \let\ptinine=\penine\fi
         \if\endrr\brnull \let\ptinull=\penine\fi\fi\fi      
   \if\startrr\brnull \enullset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\penull\fi
         \if\endrr\brtwo \let\ptatwo=\penull\fi
         \if\endrr\brthree \let\ptathree=\penull\fi
         \if\endrr\brfour \let\ptafour=\penull\fi
         \if\endrr\brfive \let\ptafive=\penull\fi
         \if\endrr\brsix \let\ptasix=\penull\fi
         \if\endrr\brseven \let\ptaseven=\penull\fi
         \if\endrr\breight \let\ptaeight=\penull\fi
         \if\endrr\brnine \let\ptanine=\penull\fi
         \if\endrr\brnull \let\ptanull=\penull\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\penull\fi
         \if\endrr\brtwo \let\ptbtwo=\penull\fi
         \if\endrr\brthree \let\ptbthree=\penull\fi
         \if\endrr\brfour \let\ptbfour=\penull\fi
         \if\endrr\brfive \let\ptbfive=\penull\fi
         \if\endrr\brsix \let\ptbsix=\penull\fi
         \if\endrr\brseven \let\ptbseven=\penull\fi
         \if\endrr\breight \let\ptbeight=\penull\fi
         \if\endrr\brnine \let\ptbnine=\penull\fi
         \if\endrr\brnull \let\ptbnull=\penull\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\penull\fi
         \if\endrr\brtwo \let\ptctwo=\penull\fi
         \if\endrr\brthree \let\ptcthree=\penull\fi
         \if\endrr\brfour \let\ptcfour=\penull\fi
         \if\endrr\brfive \let\ptcfive=\penull\fi
         \if\endrr\brsix \let\ptcsix=\penull\fi
         \if\endrr\brseven \let\ptcseven=\penull\fi
         \if\endrr\breight \let\ptceight=\penull\fi
         \if\endrr\brnine \let\ptcnine=\penull\fi
         \if\endrr\brnull \let\ptcnull=\penull\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\penull\fi
         \if\endrr\brtwo \let\ptdtwo=\penull\fi
         \if\endrr\brthree \let\ptdthree=\penull\fi
         \if\endrr\brfour \let\ptdfour=\penull\fi
         \if\endrr\brfive \let\ptdfive=\penull\fi
         \if\endrr\brsix \let\ptdsix=\penull\fi
         \if\endrr\brseven \let\ptdseven=\penull\fi
         \if\endrr\breight \let\ptdeight=\penull\fi
         \if\endrr\brnine \let\ptdnine=\penull\fi
         \if\endrr\brnull \let\ptdnull=\penull\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\penull\fi
         \if\endrr\brtwo \let\ptetwo=\penull\fi
         \if\endrr\brthree \let\ptethree=\penull\fi
         \if\endrr\brfour \let\ptefour=\penull\fi
         \if\endrr\brfive \let\ptefive=\penull\fi
         \if\endrr\brsix \let\ptesix=\penull\fi
         \if\endrr\brseven \let\pteseven=\penull\fi
         \if\endrr\breight \let\pteeight=\penull\fi
         \if\endrr\brnine \let\ptenine=\penull\fi
         \if\endrr\brnull \let\ptenull=\penull\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\penull\fi
         \if\endrr\brtwo \let\ptftwo=\penull\fi
         \if\endrr\brthree \let\ptfthree=\penull\fi
         \if\endrr\brfour \let\ptffour=\penull\fi
         \if\endrr\brfive \let\ptffive=\penull\fi
         \if\endrr\brsix \let\ptfsix=\penull\fi
         \if\endrr\brseven \let\ptfseven=\penull\fi
         \if\endrr\breight \let\ptfeight=\penull\fi
         \if\endrr\brnine \let\ptfnine=\penull\fi
         \if\endrr\brnull \let\ptfnull=\penull\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\penull\fi
         \if\endrr\brtwo \let\ptgtwo=\penull\fi
         \if\endrr\brthree \let\ptgthree=\penull\fi
         \if\endrr\brfour \let\ptgfour=\penull\fi
         \if\endrr\brfive \let\ptgfive=\penull\fi
         \if\endrr\brsix \let\ptgsix=\penull\fi
         \if\endrr\brseven \let\ptgseven=\penull\fi
         \if\endrr\breight \let\ptgeight=\penull\fi
         \if\endrr\brnine \let\ptgnine=\penull\fi
         \if\endrr\brnull \let\ptgnull=\penull\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\penull\fi
         \if\endrr\brtwo \let\pthtwo=\penull\fi
         \if\endrr\brthree \let\pththree=\penull\fi
         \if\endrr\brfour \let\pthfour=\penull\fi
         \if\endrr\brfive \let\pthfive=\penull\fi
         \if\endrr\brsix \let\pthsix=\penull\fi
         \if\endrr\brseven \let\pthseven=\penull\fi
         \if\endrr\breight \let\ptheight=\penull\fi
         \if\endrr\brnine \let\pthnine=\penull\fi
         \if\endrr\brnull \let\pthnull=\penull\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\penull\fi
         \if\endrr\brtwo \let\ptitwo=\penull\fi
         \if\endrr\brthree \let\ptithree=\penull\fi
         \if\endrr\brfour \let\ptifour=\penull\fi
         \if\endrr\brfive \let\ptifive=\penull\fi
         \if\endrr\brsix \let\ptisix=\penull\fi
         \if\endrr\brseven \let\ptiseven=\penull\fi
         \if\endrr\breight \let\ptieight=\penull\fi
         \if\endrr\brnine \let\ptinine=\penull\fi
         \if\endrr\brnull \let\ptinull=\penull\fi\fi\fi\fi  
\if\startlr\fli
   \if\startrr\brone \foneset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pfone\fi
         \if\endrr\brtwo \let\ptatwo=\pfone\fi
         \if\endrr\brthree \let\ptathree=\pfone\fi
         \if\endrr\brfour \let\ptafour=\pfone\fi
         \if\endrr\brfive \let\ptafive=\pfone\fi
         \if\endrr\brsix \let\ptasix=\pfone\fi
         \if\endrr\brseven \let\ptaseven=\pfone\fi
         \if\endrr\breight \let\ptaeight=\pfone\fi
         \if\endrr\brnine \let\ptanine=\pfone\fi
         \if\endrr\brnull \let\ptanull=\pfone\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pfone\fi
         \if\endrr\brtwo \let\ptbtwo=\pfone\fi
         \if\endrr\brthree \let\ptbthree=\pfone\fi
         \if\endrr\brfour \let\ptbfour=\pfone\fi
         \if\endrr\brfive \let\ptbfive=\pfone\fi
         \if\endrr\brsix \let\ptbsix=\pfone\fi
         \if\endrr\brseven \let\ptbseven=\pfone\fi
         \if\endrr\breight \let\ptbeight=\pfone\fi
         \if\endrr\brnine \let\ptbnine=\pfone\fi
         \if\endrr\brnull \let\ptbnull=\pfone\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pfone\fi
         \if\endrr\brtwo \let\ptctwo=\pfone\fi
         \if\endrr\brthree \let\ptcthree=\pfone\fi
         \if\endrr\brfour \let\ptcfour=\pfone\fi
         \if\endrr\brfive \let\ptcfive=\pfone\fi
         \if\endrr\brsix \let\ptcsix=\pfone\fi
         \if\endrr\brseven \let\ptcseven=\pfone\fi
         \if\endrr\breight \let\ptceight=\pfone\fi
         \if\endrr\brnine \let\ptcnine=\pfone\fi
         \if\endrr\brnull \let\ptcnull=\pfone\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pfone\fi
         \if\endrr\brtwo \let\ptdtwo=\pfone\fi
         \if\endrr\brthree \let\ptdthree=\pfone\fi
         \if\endrr\brfour \let\ptdfour=\pfone\fi
         \if\endrr\brfive \let\ptdfive=\pfone\fi
         \if\endrr\brsix \let\ptdsix=\pfone\fi
         \if\endrr\brseven \let\ptdseven=\pfone\fi
         \if\endrr\breight \let\ptdeight=\pfone\fi
         \if\endrr\brnine \let\ptdnine=\pfone\fi
         \if\endrr\brnull \let\ptdnull=\pfone\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pfone\fi
         \if\endrr\brtwo \let\ptetwo=\pfone\fi
         \if\endrr\brthree \let\ptethree=\pfone\fi
         \if\endrr\brfour \let\ptefour=\pfone\fi
         \if\endrr\brfive \let\ptefive=\pfone\fi
         \if\endrr\brsix \let\ptesix=\pfone\fi
         \if\endrr\brseven \let\pteseven=\pfone\fi
         \if\endrr\breight \let\pteeight=\pfone\fi
         \if\endrr\brnine \let\ptenine=\pfone\fi
         \if\endrr\brnull \let\ptenull=\pfone\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pfone\fi
         \if\endrr\brtwo \let\ptftwo=\pfone\fi
         \if\endrr\brthree \let\ptfthree=\pfone\fi
         \if\endrr\brfour \let\ptffour=\pfone\fi
         \if\endrr\brfive \let\ptffive=\pfone\fi
         \if\endrr\brsix \let\ptfsix=\pfone\fi
         \if\endrr\brseven \let\ptfseven=\pfone\fi
         \if\endrr\breight \let\ptfeight=\pfone\fi
         \if\endrr\brnine \let\ptfnine=\pfone\fi
         \if\endrr\brnull \let\ptfnull=\pfone\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pfone\fi
         \if\endrr\brtwo \let\ptgtwo=\pfone\fi
         \if\endrr\brthree \let\ptgthree=\pfone\fi
         \if\endrr\brfour \let\ptgfour=\pfone\fi
         \if\endrr\brfive \let\ptgfive=\pfone\fi
         \if\endrr\brsix \let\ptgsix=\pfone\fi
         \if\endrr\brseven \let\ptgseven=\pfone\fi
         \if\endrr\breight \let\ptgeight=\pfone\fi
         \if\endrr\brnine \let\ptgnine=\pfone\fi
         \if\endrr\brnull \let\ptgnull=\pfone\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pfone\fi
         \if\endrr\brtwo \let\pthtwo=\pfone\fi
         \if\endrr\brthree \let\pththree=\pfone\fi
         \if\endrr\brfour \let\pthfour=\pfone\fi
         \if\endrr\brfive \let\pthfive=\pfone\fi
         \if\endrr\brsix \let\pthsix=\pfone\fi
         \if\endrr\brseven \let\pthseven=\pfone\fi
         \if\endrr\breight \let\ptheight=\pfone\fi
         \if\endrr\brnine \let\pthnine=\pfone\fi
         \if\endrr\brnull \let\pthnull=\pfone\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pfone\fi
         \if\endrr\brtwo \let\ptitwo=\pfone\fi
         \if\endrr\brthree \let\ptithree=\pfone\fi
         \if\endrr\brfour \let\ptifour=\pfone\fi
         \if\endrr\brfive \let\ptifive=\pfone\fi
         \if\endrr\brsix \let\ptisix=\pfone\fi
         \if\endrr\brseven \let\ptiseven=\pfone\fi
         \if\endrr\breight \let\ptieight=\pfone\fi
         \if\endrr\brnine \let\ptinine=\pfone\fi
         \if\endrr\brnull \let\ptinull=\pfone\fi\fi\fi      
   \if\startrr\brtwo \ftwoset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pftwo\fi
         \if\endrr\brtwo \let\ptatwo=\pftwo\fi
         \if\endrr\brthree \let\ptathree=\pftwo\fi
         \if\endrr\brfour \let\ptafour=\pftwo\fi
         \if\endrr\brfive \let\ptafive=\pftwo\fi
         \if\endrr\brsix \let\ptasix=\pftwo\fi
         \if\endrr\brseven \let\ptaseven=\pftwo\fi
         \if\endrr\breight \let\ptaeight=\pftwo\fi
         \if\endrr\brnine \let\ptanine=\pftwo\fi
         \if\endrr\brnull \let\ptanull=\pftwo\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pftwo\fi
         \if\endrr\brtwo \let\ptbtwo=\pftwo\fi
         \if\endrr\brthree \let\ptbthree=\pftwo\fi
         \if\endrr\brfour \let\ptbfour=\pftwo\fi
         \if\endrr\brfive \let\ptbfive=\pftwo\fi
         \if\endrr\brsix \let\ptbsix=\pftwo\fi
         \if\endrr\brseven \let\ptbseven=\pftwo\fi
         \if\endrr\breight \let\ptbeight=\pftwo\fi
         \if\endrr\brnine \let\ptbnine=\pftwo\fi
         \if\endrr\brnull \let\ptbnull=\pftwo\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pftwo\fi
         \if\endrr\brtwo \let\ptctwo=\pftwo\fi
         \if\endrr\brthree \let\ptcthree=\pftwo\fi
         \if\endrr\brfour \let\ptcfour=\pftwo\fi
         \if\endrr\brfive \let\ptcfive=\pftwo\fi
         \if\endrr\brsix \let\ptcsix=\pftwo\fi
         \if\endrr\brseven \let\ptcseven=\pftwo\fi
         \if\endrr\breight \let\ptceight=\pftwo\fi
         \if\endrr\brnine \let\ptcnine=\pftwo\fi
         \if\endrr\brnull \let\ptcnull=\pftwo\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pftwo\fi
         \if\endrr\brtwo \let\ptdtwo=\pftwo\fi
         \if\endrr\brthree \let\ptdthree=\pftwo\fi
         \if\endrr\brfour \let\ptdfour=\pftwo\fi
         \if\endrr\brfive \let\ptdfive=\pftwo\fi
         \if\endrr\brsix \let\ptdsix=\pftwo\fi
         \if\endrr\brseven \let\ptdseven=\pftwo\fi
         \if\endrr\breight \let\ptdeight=\pftwo\fi
         \if\endrr\brnine \let\ptdnine=\pftwo\fi
         \if\endrr\brnull \let\ptdnull=\pftwo\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pftwo\fi
         \if\endrr\brtwo \let\ptetwo=\pftwo\fi
         \if\endrr\brthree \let\ptethree=\pftwo\fi
         \if\endrr\brfour \let\ptefour=\pftwo\fi
         \if\endrr\brfive \let\ptefive=\pftwo\fi
         \if\endrr\brsix \let\ptesix=\pftwo\fi
         \if\endrr\brseven \let\pteseven=\pftwo\fi
         \if\endrr\breight \let\pteeight=\pftwo\fi
         \if\endrr\brnine \let\ptenine=\pftwo\fi
         \if\endrr\brnull \let\ptenull=\pftwo\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pftwo\fi
         \if\endrr\brtwo \let\ptftwo=\pftwo\fi
         \if\endrr\brthree \let\ptfthree=\pftwo\fi
         \if\endrr\brfour \let\ptffour=\pftwo\fi
         \if\endrr\brfive \let\ptffive=\pftwo\fi
         \if\endrr\brsix \let\ptfsix=\pftwo\fi
         \if\endrr\brseven \let\ptfseven=\pftwo\fi
         \if\endrr\breight \let\ptfeight=\pftwo\fi
         \if\endrr\brnine \let\ptfnine=\pftwo\fi
         \if\endrr\brnull \let\ptfnull=\pftwo\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pftwo\fi
         \if\endrr\brtwo \let\ptgtwo=\pftwo\fi
         \if\endrr\brthree \let\ptgthree=\pftwo\fi
         \if\endrr\brfour \let\ptgfour=\pftwo\fi
         \if\endrr\brfive \let\ptgfive=\pftwo\fi
         \if\endrr\brsix \let\ptgsix=\pftwo\fi
         \if\endrr\brseven \let\ptgseven=\pftwo\fi
         \if\endrr\breight \let\ptgeight=\pftwo\fi
         \if\endrr\brnine \let\ptgnine=\pftwo\fi
         \if\endrr\brnull \let\ptgnull=\pftwo\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pftwo\fi
         \if\endrr\brtwo \let\pthtwo=\pftwo\fi
         \if\endrr\brthree \let\pththree=\pftwo\fi
         \if\endrr\brfour \let\pthfour=\pftwo\fi
         \if\endrr\brfive \let\pthfive=\pftwo\fi
         \if\endrr\brsix \let\pthsix=\pftwo\fi
         \if\endrr\brseven \let\pthseven=\pftwo\fi
         \if\endrr\breight \let\ptheight=\pftwo\fi
         \if\endrr\brnine \let\pthnine=\pftwo\fi
         \if\endrr\brnull \let\pthnull=\pftwo\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pftwo\fi
         \if\endrr\brtwo \let\ptitwo=\pftwo\fi
         \if\endrr\brthree \let\ptithree=\pftwo\fi
         \if\endrr\brfour \let\ptifour=\pftwo\fi
         \if\endrr\brfive \let\ptifive=\pftwo\fi
         \if\endrr\brsix \let\ptisix=\pftwo\fi
         \if\endrr\brseven \let\ptiseven=\pftwo\fi
         \if\endrr\breight \let\ptieight=\pftwo\fi
         \if\endrr\brnine \let\ptinine=\pftwo\fi
         \if\endrr\brnull \let\ptinull=\pftwo\fi\fi\fi
   \if\startrr\brthree \fthreeset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pfthree\fi
         \if\endrr\brtwo \let\ptatwo=\pfthree\fi
         \if\endrr\brthree \let\ptathree=\pfthree\fi
         \if\endrr\brfour \let\ptafour=\pfthree\fi
         \if\endrr\brfive \let\ptafive=\pfthree\fi
         \if\endrr\brsix \let\ptasix=\pfthree\fi
         \if\endrr\brseven \let\ptaseven=\pfthree\fi
         \if\endrr\breight \let\ptaeight=\pfthree\fi
         \if\endrr\brnine \let\ptanine=\pfthree\fi
         \if\endrr\brnull \let\ptanull=\pfthree\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pfthree\fi
         \if\endrr\brtwo \let\ptbtwo=\pfthree\fi
         \if\endrr\brthree \let\ptbthree=\pfthree\fi
         \if\endrr\brfour \let\ptbfour=\pfthree\fi
         \if\endrr\brfive \let\ptbfive=\pfthree\fi
         \if\endrr\brsix \let\ptbsix=\pfthree\fi
         \if\endrr\brseven \let\ptbseven=\pfthree\fi
         \if\endrr\breight \let\ptbeight=\pfthree\fi
         \if\endrr\brnine \let\ptbnine=\pfthree\fi
         \if\endrr\brnull \let\ptbnull=\pfthree\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pfthree\fi
         \if\endrr\brtwo \let\ptctwo=\pfthree\fi
         \if\endrr\brthree \let\ptcthree=\pfthree\fi
         \if\endrr\brfour \let\ptcfour=\pfthree\fi
         \if\endrr\brfive \let\ptcfive=\pfthree\fi
         \if\endrr\brsix \let\ptcsix=\pfthree\fi
         \if\endrr\brseven \let\ptcseven=\pfthree\fi
         \if\endrr\breight \let\ptceight=\pfthree\fi
         \if\endrr\brnine \let\ptcnine=\pfthree\fi
         \if\endrr\brnull \let\ptcnull=\pfthree\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pfthree\fi
         \if\endrr\brtwo \let\ptdtwo=\pfthree\fi
         \if\endrr\brthree \let\ptdthree=\pfthree\fi
         \if\endrr\brfour \let\ptdfour=\pfthree\fi
         \if\endrr\brfive \let\ptdfive=\pfthree\fi
         \if\endrr\brsix \let\ptdsix=\pfthree\fi
         \if\endrr\brseven \let\ptdseven=\pfthree\fi
         \if\endrr\breight \let\ptdeight=\pfthree\fi
         \if\endrr\brnine \let\ptdnine=\pfthree\fi
         \if\endrr\brnull \let\ptdnull=\pfthree\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pfthree\fi
         \if\endrr\brtwo \let\ptetwo=\pfthree\fi
         \if\endrr\brthree \let\ptethree=\pfthree\fi
         \if\endrr\brfour \let\ptefour=\pfthree\fi
         \if\endrr\brfive \let\ptefive=\pfthree\fi
         \if\endrr\brsix \let\ptesix=\pfthree\fi
         \if\endrr\brseven \let\pteseven=\pfthree\fi
         \if\endrr\breight \let\pteeight=\pfthree\fi
         \if\endrr\brnine \let\ptenine=\pfthree\fi
         \if\endrr\brnull \let\ptenull=\pfthree\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pfthree\fi
         \if\endrr\brtwo \let\ptftwo=\pfthree\fi
         \if\endrr\brthree \let\ptfthree=\pfthree\fi
         \if\endrr\brfour \let\ptffour=\pfthree\fi
         \if\endrr\brfive \let\ptffive=\pfthree\fi
         \if\endrr\brsix \let\ptfsix=\pfthree\fi
         \if\endrr\brseven \let\ptfseven=\pfthree\fi
         \if\endrr\breight \let\ptfeight=\pfthree\fi
         \if\endrr\brnine \let\ptfnine=\pfthree\fi
         \if\endrr\brnull \let\ptfnull=\pfthree\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pfthree\fi
         \if\endrr\brtwo \let\ptgtwo=\pfthree\fi
         \if\endrr\brthree \let\ptgthree=\pfthree\fi
         \if\endrr\brfour \let\ptgfour=\pfthree\fi
         \if\endrr\brfive \let\ptgfive=\pfthree\fi
         \if\endrr\brsix \let\ptgsix=\pfthree\fi
         \if\endrr\brseven \let\ptgseven=\pfthree\fi
         \if\endrr\breight \let\ptgeight=\pfthree\fi
         \if\endrr\brnine \let\ptgnine=\pfthree\fi
         \if\endrr\brnull \let\ptgnull=\pfthree\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pfthree\fi
         \if\endrr\brtwo \let\pthtwo=\pfthree\fi
         \if\endrr\brthree \let\pththree=\pfthree\fi
         \if\endrr\brfour \let\pthfour=\pfthree\fi
         \if\endrr\brfive \let\pthfive=\pfthree\fi
         \if\endrr\brsix \let\pthsix=\pfthree\fi
         \if\endrr\brseven \let\pthseven=\pfthree\fi
         \if\endrr\breight \let\ptheight=\pfthree\fi
         \if\endrr\brnine \let\pthnine=\pfthree\fi
         \if\endrr\brnull \let\pthnull=\pfthree\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pfthree\fi
         \if\endrr\brtwo \let\ptitwo=\pfthree\fi
         \if\endrr\brthree \let\ptithree=\pfthree\fi
         \if\endrr\brfour \let\ptifour=\pfthree\fi
         \if\endrr\brfive \let\ptifive=\pfthree\fi
         \if\endrr\brsix \let\ptisix=\pfthree\fi
         \if\endrr\brseven \let\ptiseven=\pfthree\fi
         \if\endrr\breight \let\ptieight=\pfthree\fi
         \if\endrr\brnine \let\ptinine=\pfthree\fi
         \if\endrr\brnull \let\ptinull=\pfthree\fi\fi\fi      
   \if\startrr\brfour \ffourset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pffour\fi
         \if\endrr\brtwo \let\ptatwo=\pffour\fi
         \if\endrr\brthree \let\ptathree=\pffour\fi
         \if\endrr\brfour \let\ptafour=\pffour\fi
         \if\endrr\brfive \let\ptafive=\pffour\fi
         \if\endrr\brsix \let\ptasix=\pffour\fi
         \if\endrr\brseven \let\ptaseven=\pffour\fi
         \if\endrr\breight \let\ptaeight=\pffour\fi
         \if\endrr\brnine \let\ptanine=\pffour\fi
         \if\endrr\brnull \let\ptanull=\pffour\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pffour\fi
         \if\endrr\brtwo \let\ptbtwo=\pffour\fi
         \if\endrr\brthree \let\ptbthree=\pffour\fi
         \if\endrr\brfour \let\ptbfour=\pffour\fi
         \if\endrr\brfive \let\ptbfive=\pffour\fi
         \if\endrr\brsix \let\ptbsix=\pffour\fi
         \if\endrr\brseven \let\ptbseven=\pffour\fi
         \if\endrr\breight \let\ptbeight=\pffour\fi
         \if\endrr\brnine \let\ptbnine=\pffour\fi
         \if\endrr\brnull \let\ptbnull=\pffour\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pffour\fi
         \if\endrr\brtwo \let\ptctwo=\pffour\fi
         \if\endrr\brthree \let\ptcthree=\pffour\fi
         \if\endrr\brfour \let\ptcfour=\pffour\fi
         \if\endrr\brfive \let\ptcfive=\pffour\fi
         \if\endrr\brsix \let\ptcsix=\pffour\fi
         \if\endrr\brseven \let\ptcseven=\pffour\fi
         \if\endrr\breight \let\ptceight=\pffour\fi
         \if\endrr\brnine \let\ptcnine=\pffour\fi
         \if\endrr\brnull \let\ptcnull=\pffour\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pffour\fi
         \if\endrr\brtwo \let\ptdtwo=\pffour\fi
         \if\endrr\brthree \let\ptdthree=\pffour\fi
         \if\endrr\brfour \let\ptdfour=\pffour\fi
         \if\endrr\brfive \let\ptdfive=\pffour\fi
         \if\endrr\brsix \let\ptdsix=\pffour\fi
         \if\endrr\brseven \let\ptdseven=\pffour\fi
         \if\endrr\breight \let\ptdeight=\pffour\fi
         \if\endrr\brnine \let\ptdnine=\pffour\fi
         \if\endrr\brnull \let\ptdnull=\pffour\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pffour\fi
         \if\endrr\brtwo \let\ptetwo=\pffour\fi
         \if\endrr\brthree \let\ptethree=\pffour\fi
         \if\endrr\brfour \let\ptefour=\pffour\fi
         \if\endrr\brfive \let\ptefive=\pffour\fi
         \if\endrr\brsix \let\ptesix=\pffour\fi
         \if\endrr\brseven \let\pteseven=\pffour\fi
         \if\endrr\breight \let\pteeight=\pffour\fi
         \if\endrr\brnine \let\ptenine=\pffour\fi
         \if\endrr\brnull \let\ptenull=\pffour\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pffour\fi
         \if\endrr\brtwo \let\ptftwo=\pffour\fi
         \if\endrr\brthree \let\ptfthree=\pffour\fi
         \if\endrr\brfour \let\ptffour=\pffour\fi
         \if\endrr\brfive \let\ptffive=\pffour\fi
         \if\endrr\brsix \let\ptfsix=\pffour\fi
         \if\endrr\brseven \let\ptfseven=\pffour\fi
         \if\endrr\breight \let\ptfeight=\pffour\fi
         \if\endrr\brnine \let\ptfnine=\pffour\fi
         \if\endrr\brnull \let\ptfnull=\pffour\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pffour\fi
         \if\endrr\brtwo \let\ptgtwo=\pffour\fi
         \if\endrr\brthree \let\ptgthree=\pffour\fi
         \if\endrr\brfour \let\ptgfour=\pffour\fi
         \if\endrr\brfive \let\ptgfive=\pffour\fi
         \if\endrr\brsix \let\ptgsix=\pffour\fi
         \if\endrr\brseven \let\ptgseven=\pffour\fi
         \if\endrr\breight \let\ptgeight=\pffour\fi
         \if\endrr\brnine \let\ptgnine=\pffour\fi
         \if\endrr\brnull \let\ptgnull=\pffour\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pffour\fi
         \if\endrr\brtwo \let\pthtwo=\pffour\fi
         \if\endrr\brthree \let\pththree=\pffour\fi
         \if\endrr\brfour \let\pthfour=\pffour\fi
         \if\endrr\brfive \let\pthfive=\pffour\fi
         \if\endrr\brsix \let\pthsix=\pffour\fi
         \if\endrr\brseven \let\pthseven=\pffour\fi
         \if\endrr\breight \let\ptheight=\pffour\fi
         \if\endrr\brnine \let\pthnine=\pffour\fi
         \if\endrr\brnull \let\pthnull=\pffour\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pffour\fi
         \if\endrr\brtwo \let\ptitwo=\pffour\fi
         \if\endrr\brthree \let\ptithree=\pffour\fi
         \if\endrr\brfour \let\ptifour=\pffour\fi
         \if\endrr\brfive \let\ptifive=\pffour\fi
         \if\endrr\brsix \let\ptisix=\pffour\fi
         \if\endrr\brseven \let\ptiseven=\pffour\fi
         \if\endrr\breight \let\ptieight=\pffour\fi
         \if\endrr\brnine \let\ptinine=\pffour\fi
         \if\endrr\brnull \let\ptinull=\pffour\fi\fi\fi      
   \if\startrr\brfive \ffiveset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pffive\fi
         \if\endrr\brtwo \let\ptatwo=\pffive\fi
         \if\endrr\brthree \let\ptathree=\pffive\fi
         \if\endrr\brfour \let\ptafour=\pffive\fi
         \if\endrr\brfive \let\ptafive=\pffive\fi
         \if\endrr\brsix \let\ptasix=\pffive\fi
         \if\endrr\brseven \let\ptaseven=\pffive\fi
         \if\endrr\breight \let\ptaeight=\pffive\fi
         \if\endrr\brnine \let\ptanine=\pffive\fi
         \if\endrr\brnull \let\ptanull=\pffive\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pffive\fi
         \if\endrr\brtwo \let\ptbtwo=\pffive\fi
         \if\endrr\brthree \let\ptbthree=\pffive\fi
         \if\endrr\brfour \let\ptbfour=\pffive\fi
         \if\endrr\brfive \let\ptbfive=\pffive\fi
         \if\endrr\brsix \let\ptbsix=\pffive\fi
         \if\endrr\brseven \let\ptbseven=\pffive\fi
         \if\endrr\breight \let\ptbeight=\pffive\fi
         \if\endrr\brnine \let\ptbnine=\pffive\fi
         \if\endrr\brnull \let\ptbnull=\pffive\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pffive\fi
         \if\endrr\brtwo \let\ptctwo=\pffive\fi
         \if\endrr\brthree \let\ptcthree=\pffive\fi
         \if\endrr\brfour \let\ptcfour=\pffive\fi
         \if\endrr\brfive \let\ptcfive=\pffive\fi
         \if\endrr\brsix \let\ptcsix=\pffive\fi
         \if\endrr\brseven \let\ptcseven=\pffive\fi
         \if\endrr\breight \let\ptceight=\pffive\fi
         \if\endrr\brnine \let\ptcnine=\pffive\fi
         \if\endrr\brnull \let\ptcnull=\pffive\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pffive\fi
         \if\endrr\brtwo \let\ptdtwo=\pffive\fi
         \if\endrr\brthree \let\ptdthree=\pffive\fi
         \if\endrr\brfour \let\ptdfour=\pffive\fi
         \if\endrr\brfive \let\ptdfive=\pffive\fi
         \if\endrr\brsix \let\ptdsix=\pffive\fi
         \if\endrr\brseven \let\ptdseven=\pffive\fi
         \if\endrr\breight \let\ptdeight=\pffive\fi
         \if\endrr\brnine \let\ptdnine=\pffive\fi
         \if\endrr\brnull \let\ptdnull=\pffive\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pffive\fi
         \if\endrr\brtwo \let\ptetwo=\pffive\fi
         \if\endrr\brthree \let\ptethree=\pffive\fi
         \if\endrr\brfour \let\ptefour=\pffive\fi
         \if\endrr\brfive \let\ptefive=\pffive\fi
         \if\endrr\brsix \let\ptesix=\pffive\fi
         \if\endrr\brseven \let\pteseven=\pffive\fi
         \if\endrr\breight \let\pteeight=\pffive\fi
         \if\endrr\brnine \let\ptenine=\pffive\fi
         \if\endrr\brnull \let\ptenull=\pffive\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pffive\fi
         \if\endrr\brtwo \let\ptftwo=\pffive\fi
         \if\endrr\brthree \let\ptfthree=\pffive\fi
         \if\endrr\brfour \let\ptffour=\pffive\fi
         \if\endrr\brfive \let\ptffive=\pffive\fi
         \if\endrr\brsix \let\ptfsix=\pffive\fi
         \if\endrr\brseven \let\ptfseven=\pffive\fi
         \if\endrr\breight \let\ptfeight=\pffive\fi
         \if\endrr\brnine \let\ptfnine=\pffive\fi
         \if\endrr\brnull \let\ptfnull=\pffive\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pffive\fi
         \if\endrr\brtwo \let\ptgtwo=\pffive\fi
         \if\endrr\brthree \let\ptgthree=\pffive\fi
         \if\endrr\brfour \let\ptgfour=\pffive\fi
         \if\endrr\brfive \let\ptgfive=\pffive\fi
         \if\endrr\brsix \let\ptgsix=\pffive\fi
         \if\endrr\brseven \let\ptgseven=\pffive\fi
         \if\endrr\breight \let\ptgeight=\pffive\fi
         \if\endrr\brnine \let\ptgnine=\pffive\fi
         \if\endrr\brnull \let\ptgnull=\pffive\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pffive\fi
         \if\endrr\brtwo \let\pthtwo=\pffive\fi
         \if\endrr\brthree \let\pththree=\pffive\fi
         \if\endrr\brfour \let\pthfour=\pffive\fi
         \if\endrr\brfive \let\pthfive=\pffive\fi
         \if\endrr\brsix \let\pthsix=\pffive\fi
         \if\endrr\brseven \let\pthseven=\pffive\fi
         \if\endrr\breight \let\ptheight=\pffive\fi
         \if\endrr\brnine \let\pthnine=\pffive\fi
         \if\endrr\brnull \let\pthnull=\pffive\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pffive\fi
         \if\endrr\brtwo \let\ptitwo=\pffive\fi
         \if\endrr\brthree \let\ptithree=\pffive\fi
         \if\endrr\brfour \let\ptifour=\pffive\fi
         \if\endrr\brfive \let\ptifive=\pffive\fi
         \if\endrr\brsix \let\ptisix=\pffive\fi
         \if\endrr\brseven \let\ptiseven=\pffive\fi
         \if\endrr\breight \let\ptieight=\pffive\fi
         \if\endrr\brnine \let\ptinine=\pffive\fi
         \if\endrr\brnull \let\ptinull=\pffive\fi\fi\fi   
   \if\startrr\brsix \fsixset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pfsix\fi
         \if\endrr\brtwo \let\ptatwo=\pfsix\fi
         \if\endrr\brthree \let\ptathree=\pfsix\fi
         \if\endrr\brfour \let\ptafour=\pfsix\fi
         \if\endrr\brfive \let\ptafive=\pfsix\fi
         \if\endrr\brsix \let\ptasix=\pfsix\fi
         \if\endrr\brseven \let\ptaseven=\pfsix\fi
         \if\endrr\breight \let\ptaeight=\pfsix\fi
         \if\endrr\brnine \let\ptanine=\pfsix\fi
         \if\endrr\brnull \let\ptanull=\pfsix\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pfsix\fi
         \if\endrr\brtwo \let\ptbtwo=\pfsix\fi
         \if\endrr\brthree \let\ptbthree=\pfsix\fi
         \if\endrr\brfour \let\ptbfour=\pfsix\fi
         \if\endrr\brfive \let\ptbfive=\pfsix\fi
         \if\endrr\brsix \let\ptbsix=\pfsix\fi
         \if\endrr\brseven \let\ptbseven=\pfsix\fi
         \if\endrr\breight \let\ptbeight=\pfsix\fi
         \if\endrr\brnine \let\ptbnine=\pfsix\fi
         \if\endrr\brnull \let\ptbnull=\pfsix\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pfsix\fi
         \if\endrr\brtwo \let\ptctwo=\pfsix\fi
         \if\endrr\brthree \let\ptcthree=\pfsix\fi
         \if\endrr\brfour \let\ptcfour=\pfsix\fi
         \if\endrr\brfive \let\ptcfive=\pfsix\fi
         \if\endrr\brsix \let\ptcsix=\pfsix\fi
         \if\endrr\brseven \let\ptcseven=\pfsix\fi
         \if\endrr\breight \let\ptceight=\pfsix\fi
         \if\endrr\brnine \let\ptcnine=\pfsix\fi
         \if\endrr\brnull \let\ptcnull=\pfsix\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pfsix\fi
         \if\endrr\brtwo \let\ptdtwo=\pfsix\fi
         \if\endrr\brthree \let\ptdthree=\pfsix\fi
         \if\endrr\brfour \let\ptdfour=\pfsix\fi
         \if\endrr\brfive \let\ptdfive=\pfsix\fi
         \if\endrr\brsix \let\ptdsix=\pfsix\fi
         \if\endrr\brseven \let\ptdseven=\pfsix\fi
         \if\endrr\breight \let\ptdeight=\pfsix\fi
         \if\endrr\brnine \let\ptdnine=\pfsix\fi
         \if\endrr\brnull \let\ptdnull=\pfsix\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pfsix\fi
         \if\endrr\brtwo \let\ptetwo=\pfsix\fi
         \if\endrr\brthree \let\ptethree=\pfsix\fi
         \if\endrr\brfour \let\ptefour=\pfsix\fi
         \if\endrr\brfive \let\ptefive=\pfsix\fi
         \if\endrr\brsix \let\ptesix=\pfsix\fi
         \if\endrr\brseven \let\pteseven=\pfsix\fi
         \if\endrr\breight \let\pteeight=\pfsix\fi
         \if\endrr\brnine \let\ptenine=\pfsix\fi
         \if\endrr\brnull \let\ptenull=\pfsix\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pfsix\fi
         \if\endrr\brtwo \let\ptftwo=\pfsix\fi
         \if\endrr\brthree \let\ptfthree=\pfsix\fi
         \if\endrr\brfour \let\ptffour=\pfsix\fi
         \if\endrr\brfive \let\ptffive=\pfsix\fi
         \if\endrr\brsix \let\ptfsix=\pfsix\fi
         \if\endrr\brseven \let\ptfseven=\pfsix\fi
         \if\endrr\breight \let\ptfeight=\pfsix\fi
         \if\endrr\brnine \let\ptfnine=\pfsix\fi
         \if\endrr\brnull \let\ptfnull=\pfsix\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pfsix\fi
         \if\endrr\brtwo \let\ptgtwo=\pfsix\fi
         \if\endrr\brthree \let\ptgthree=\pfsix\fi
         \if\endrr\brfour \let\ptgfour=\pfsix\fi
         \if\endrr\brfive \let\ptgfive=\pfsix\fi
         \if\endrr\brsix \let\ptgsix=\pfsix\fi
         \if\endrr\brseven \let\ptgseven=\pfsix\fi
         \if\endrr\breight \let\ptgeight=\pfsix\fi
         \if\endrr\brnine \let\ptgnine=\pfsix\fi
         \if\endrr\brnull \let\ptgnull=\pfsix\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pfsix\fi
         \if\endrr\brtwo \let\pthtwo=\pfsix\fi
         \if\endrr\brthree \let\pththree=\pfsix\fi
         \if\endrr\brfour \let\pthfour=\pfsix\fi
         \if\endrr\brfive \let\pthfive=\pfsix\fi
         \if\endrr\brsix \let\pthsix=\pfsix\fi
         \if\endrr\brseven \let\pthseven=\pfsix\fi
         \if\endrr\breight \let\ptheight=\pfsix\fi
         \if\endrr\brnine \let\pthnine=\pfsix\fi
         \if\endrr\brnull \let\pthnull=\pfsix\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pfsix\fi
         \if\endrr\brtwo \let\ptitwo=\pfsix\fi
         \if\endrr\brthree \let\ptithree=\pfsix\fi
         \if\endrr\brfour \let\ptifour=\pfsix\fi
         \if\endrr\brfive \let\ptifive=\pfsix\fi
         \if\endrr\brsix \let\ptisix=\pfsix\fi
         \if\endrr\brseven \let\ptiseven=\pfsix\fi
         \if\endrr\breight \let\ptieight=\pfsix\fi
         \if\endrr\brnine \let\ptinine=\pfsix\fi
         \if\endrr\brnull \let\ptinull=\pfsix\fi\fi\fi
   \if\startrr\brseven \fsevenset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pfseven\fi
         \if\endrr\brtwo \let\ptatwo=\pfseven\fi
         \if\endrr\brthree \let\ptathree=\pfseven\fi
         \if\endrr\brfour \let\ptafour=\pfseven\fi
         \if\endrr\brfive \let\ptafive=\pfseven\fi
         \if\endrr\brsix \let\ptasix=\pfseven\fi
         \if\endrr\brseven \let\ptaseven=\pfseven\fi
         \if\endrr\breight \let\ptaeight=\pfseven\fi
         \if\endrr\brnine \let\ptanine=\pfseven\fi
         \if\endrr\brnull \let\ptanull=\pfseven\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pfseven\fi
         \if\endrr\brtwo \let\ptbtwo=\pfseven\fi
         \if\endrr\brthree \let\ptbthree=\pfseven\fi
         \if\endrr\brfour \let\ptbfour=\pfseven\fi
         \if\endrr\brfive \let\ptbfive=\pfseven\fi
         \if\endrr\brsix \let\ptbsix=\pfseven\fi
         \if\endrr\brseven \let\ptbseven=\pfseven\fi
         \if\endrr\breight \let\ptbeight=\pfseven\fi
         \if\endrr\brnine \let\ptbnine=\pfseven\fi
         \if\endrr\brnull \let\ptbnull=\pfseven\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pfseven\fi
         \if\endrr\brtwo \let\ptctwo=\pfseven\fi
         \if\endrr\brthree \let\ptcthree=\pfseven\fi
         \if\endrr\brfour \let\ptcfour=\pfseven\fi
         \if\endrr\brfive \let\ptcfive=\pfseven\fi
         \if\endrr\brsix \let\ptcsix=\pfseven\fi
         \if\endrr\brseven \let\ptcseven=\pfseven\fi
         \if\endrr\breight \let\ptceight=\pfseven\fi
         \if\endrr\brnine \let\ptcnine=\pfseven\fi
         \if\endrr\brnull \let\ptcnull=\pfseven\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pfseven\fi
         \if\endrr\brtwo \let\ptdtwo=\pfseven\fi
         \if\endrr\brthree \let\ptdthree=\pfseven\fi
         \if\endrr\brfour \let\ptdfour=\pfseven\fi
         \if\endrr\brfive \let\ptdfive=\pfseven\fi
         \if\endrr\brsix \let\ptdsix=\pfseven\fi
         \if\endrr\brseven \let\ptdseven=\pfseven\fi
         \if\endrr\breight \let\ptdeight=\pfseven\fi
         \if\endrr\brnine \let\ptdnine=\pfseven\fi
         \if\endrr\brnull \let\ptdnull=\pfseven\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pfseven\fi
         \if\endrr\brtwo \let\ptetwo=\pfseven\fi
         \if\endrr\brthree \let\ptethree=\pfseven\fi
         \if\endrr\brfour \let\ptefour=\pfseven\fi
         \if\endrr\brfive \let\ptefive=\pfseven\fi
         \if\endrr\brsix \let\ptesix=\pfseven\fi
         \if\endrr\brseven \let\pteseven=\pfseven\fi
         \if\endrr\breight \let\pteeight=\pfseven\fi
         \if\endrr\brnine \let\ptenine=\pfseven\fi
         \if\endrr\brnull \let\ptenull=\pfseven\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pfseven\fi
         \if\endrr\brtwo \let\ptftwo=\pfseven\fi
         \if\endrr\brthree \let\ptfthree=\pfseven\fi
         \if\endrr\brfour \let\ptffour=\pfseven\fi
         \if\endrr\brfive \let\ptffive=\pfseven\fi
         \if\endrr\brsix \let\ptfsix=\pfseven\fi
         \if\endrr\brseven \let\ptfseven=\pfseven\fi
         \if\endrr\breight \let\ptfeight=\pfseven\fi
         \if\endrr\brnine \let\ptfnine=\pfseven\fi
         \if\endrr\brnull \let\ptfnull=\pfseven\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pfseven\fi
         \if\endrr\brtwo \let\ptgtwo=\pfseven\fi
         \if\endrr\brthree \let\ptgthree=\pfseven\fi
         \if\endrr\brfour \let\ptgfour=\pfseven\fi
         \if\endrr\brfive \let\ptgfive=\pfseven\fi
         \if\endrr\brsix \let\ptgsix=\pfseven\fi
         \if\endrr\brseven \let\ptgseven=\pfseven\fi
         \if\endrr\breight \let\ptgeight=\pfseven\fi
         \if\endrr\brnine \let\ptgnine=\pfseven\fi
         \if\endrr\brnull \let\ptgnull=\pfseven\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pfseven\fi
         \if\endrr\brtwo \let\pthtwo=\pfseven\fi
         \if\endrr\brthree \let\pththree=\pfseven\fi
         \if\endrr\brfour \let\pthfour=\pfseven\fi
         \if\endrr\brfive \let\pthfive=\pfseven\fi
         \if\endrr\brsix \let\pthsix=\pfseven\fi
         \if\endrr\brseven \let\pthseven=\pfseven\fi
         \if\endrr\breight \let\ptheight=\pfseven\fi
         \if\endrr\brnine \let\pthnine=\pfseven\fi
         \if\endrr\brnull \let\pthnull=\pfseven\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pfseven\fi
         \if\endrr\brtwo \let\ptitwo=\pfseven\fi
         \if\endrr\brthree \let\ptithree=\pfseven\fi
         \if\endrr\brfour \let\ptifour=\pfseven\fi
         \if\endrr\brfive \let\ptifive=\pfseven\fi
         \if\endrr\brsix \let\ptisix=\pfseven\fi
         \if\endrr\brseven \let\ptiseven=\pfseven\fi
         \if\endrr\breight \let\ptieight=\pfseven\fi
         \if\endrr\brnine \let\ptinine=\pfseven\fi
         \if\endrr\brnull \let\ptinull=\pfseven\fi\fi\fi      
   \if\startrr\breight \feightset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pfeight\fi
         \if\endrr\brtwo \let\ptatwo=\pfeight\fi
         \if\endrr\brthree \let\ptathree=\pfeight\fi
         \if\endrr\brfour \let\ptafour=\pfeight\fi
         \if\endrr\brfive \let\ptafive=\pfeight\fi
         \if\endrr\brsix \let\ptasix=\pfeight\fi
         \if\endrr\brseven \let\ptaseven=\pfeight\fi
         \if\endrr\breight \let\ptaeight=\pfeight\fi
         \if\endrr\brnine \let\ptanine=\pfeight\fi
         \if\endrr\brnull \let\ptanull=\pfeight\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pfeight\fi
         \if\endrr\brtwo \let\ptbtwo=\pfeight\fi
         \if\endrr\brthree \let\ptbthree=\pfeight\fi
         \if\endrr\brfour \let\ptbfour=\pfeight\fi
         \if\endrr\brfive \let\ptbfive=\pfeight\fi
         \if\endrr\brsix \let\ptbsix=\pfeight\fi
         \if\endrr\brseven \let\ptbseven=\pfeight\fi
         \if\endrr\breight \let\ptbeight=\pfeight\fi
         \if\endrr\brnine \let\ptbnine=\pfeight\fi
         \if\endrr\brnull \let\ptbnull=\pfeight\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pfeight\fi
         \if\endrr\brtwo \let\ptctwo=\pfeight\fi
         \if\endrr\brthree \let\ptcthree=\pfeight\fi
         \if\endrr\brfour \let\ptcfour=\pfeight\fi
         \if\endrr\brfive \let\ptcfive=\pfeight\fi
         \if\endrr\brsix \let\ptcsix=\pfeight\fi
         \if\endrr\brseven \let\ptcseven=\pfeight\fi
         \if\endrr\breight \let\ptceight=\pfeight\fi
         \if\endrr\brnine \let\ptcnine=\pfeight\fi
         \if\endrr\brnull \let\ptcnull=\pfeight\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pfeight\fi
         \if\endrr\brtwo \let\ptdtwo=\pfeight\fi
         \if\endrr\brthree \let\ptdthree=\pfeight\fi
         \if\endrr\brfour \let\ptdfour=\pfeight\fi
         \if\endrr\brfive \let\ptdfive=\pfeight\fi
         \if\endrr\brsix \let\ptdsix=\pfeight\fi
         \if\endrr\brseven \let\ptdseven=\pfeight\fi
         \if\endrr\breight \let\ptdeight=\pfeight\fi
         \if\endrr\brnine \let\ptdnine=\pfeight\fi
         \if\endrr\brnull \let\ptdnull=\pfeight\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pfeight\fi
         \if\endrr\brtwo \let\ptetwo=\pfeight\fi
         \if\endrr\brthree \let\ptethree=\pfeight\fi
         \if\endrr\brfour \let\ptefour=\pfeight\fi
         \if\endrr\brfive \let\ptefive=\pfeight\fi
         \if\endrr\brsix \let\ptesix=\pfeight\fi
         \if\endrr\brseven \let\pteseven=\pfeight\fi
         \if\endrr\breight \let\pteeight=\pfeight\fi
         \if\endrr\brnine \let\ptenine=\pfeight\fi
         \if\endrr\brnull \let\ptenull=\pfeight\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pfeight\fi
         \if\endrr\brtwo \let\ptftwo=\pfeight\fi
         \if\endrr\brthree \let\ptfthree=\pfeight\fi
         \if\endrr\brfour \let\ptffour=\pfeight\fi
         \if\endrr\brfive \let\ptffive=\pfeight\fi
         \if\endrr\brsix \let\ptfsix=\pfeight\fi
         \if\endrr\brseven \let\ptfseven=\pfeight\fi
         \if\endrr\breight \let\ptfeight=\pfeight\fi
         \if\endrr\brnine \let\ptfnine=\pfeight\fi
         \if\endrr\brnull \let\ptfnull=\pfeight\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pfeight\fi
         \if\endrr\brtwo \let\ptgtwo=\pfeight\fi
         \if\endrr\brthree \let\ptgthree=\pfeight\fi
         \if\endrr\brfour \let\ptgfour=\pfeight\fi
         \if\endrr\brfive \let\ptgfive=\pfeight\fi
         \if\endrr\brsix \let\ptgsix=\pfeight\fi
         \if\endrr\brseven \let\ptgseven=\pfeight\fi
         \if\endrr\breight \let\ptgeight=\pfeight\fi
         \if\endrr\brnine \let\ptgnine=\pfeight\fi
         \if\endrr\brnull \let\ptgnull=\pfeight\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pfeight\fi
         \if\endrr\brtwo \let\pthtwo=\pfeight\fi
         \if\endrr\brthree \let\pththree=\pfeight\fi
         \if\endrr\brfour \let\pthfour=\pfeight\fi
         \if\endrr\brfive \let\pthfive=\pfeight\fi
         \if\endrr\brsix \let\pthsix=\pfeight\fi
         \if\endrr\brseven \let\pthseven=\pfeight\fi
         \if\endrr\breight \let\ptheight=\pfeight\fi
         \if\endrr\brnine \let\pthnine=\pfeight\fi
         \if\endrr\brnull \let\pthnull=\pfeight\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pfeight\fi
         \if\endrr\brtwo \let\ptitwo=\pfeight\fi
         \if\endrr\brthree \let\ptithree=\pfeight\fi
         \if\endrr\brfour \let\ptifour=\pfeight\fi
         \if\endrr\brfive \let\ptifive=\pfeight\fi
         \if\endrr\brsix \let\ptisix=\pfeight\fi
         \if\endrr\brseven \let\ptiseven=\pfeight\fi
         \if\endrr\breight \let\ptieight=\pfeight\fi
         \if\endrr\brnine \let\ptinine=\pfeight\fi
         \if\endrr\brnull \let\ptinull=\pfeight\fi\fi\fi      
   \if\startrr\brnine \fnineset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pfnine\fi
         \if\endrr\brtwo \let\ptatwo=\pfnine\fi
         \if\endrr\brthree \let\ptathree=\pfnine\fi
         \if\endrr\brfour \let\ptafour=\pfnine\fi
         \if\endrr\brfive \let\ptafive=\pfnine\fi
         \if\endrr\brsix \let\ptasix=\pfnine\fi
         \if\endrr\brseven \let\ptaseven=\pfnine\fi
         \if\endrr\breight \let\ptaeight=\pfnine\fi
         \if\endrr\brnine \let\ptanine=\pfnine\fi
         \if\endrr\brnull \let\ptanull=\pfnine\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pfnine\fi
         \if\endrr\brtwo \let\ptbtwo=\pfnine\fi
         \if\endrr\brthree \let\ptbthree=\pfnine\fi
         \if\endrr\brfour \let\ptbfour=\pfnine\fi
         \if\endrr\brfive \let\ptbfive=\pfnine\fi
         \if\endrr\brsix \let\ptbsix=\pfnine\fi
         \if\endrr\brseven \let\ptbseven=\pfnine\fi
         \if\endrr\breight \let\ptbeight=\pfnine\fi
         \if\endrr\brnine \let\ptbnine=\pfnine\fi
         \if\endrr\brnull \let\ptbnull=\pfnine\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pfnine\fi
         \if\endrr\brtwo \let\ptctwo=\pfnine\fi
         \if\endrr\brthree \let\ptcthree=\pfnine\fi
         \if\endrr\brfour \let\ptcfour=\pfnine\fi
         \if\endrr\brfive \let\ptcfive=\pfnine\fi
         \if\endrr\brsix \let\ptcsix=\pfnine\fi
         \if\endrr\brseven \let\ptcseven=\pfnine\fi
         \if\endrr\breight \let\ptceight=\pfnine\fi
         \if\endrr\brnine \let\ptcnine=\pfnine\fi
         \if\endrr\brnull \let\ptcnull=\pfnine\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pfnine\fi
         \if\endrr\brtwo \let\ptdtwo=\pfnine\fi
         \if\endrr\brthree \let\ptdthree=\pfnine\fi
         \if\endrr\brfour \let\ptdfour=\pfnine\fi
         \if\endrr\brfive \let\ptdfive=\pfnine\fi
         \if\endrr\brsix \let\ptdsix=\pfnine\fi
         \if\endrr\brseven \let\ptdseven=\pfnine\fi
         \if\endrr\breight \let\ptdeight=\pfnine\fi
         \if\endrr\brnine \let\ptdnine=\pfnine\fi
         \if\endrr\brnull \let\ptdnull=\pfnine\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pfnine\fi
         \if\endrr\brtwo \let\ptetwo=\pfnine\fi
         \if\endrr\brthree \let\ptethree=\pfnine\fi
         \if\endrr\brfour \let\ptefour=\pfnine\fi
         \if\endrr\brfive \let\ptefive=\pfnine\fi
         \if\endrr\brsix \let\ptesix=\pfnine\fi
         \if\endrr\brseven \let\pteseven=\pfnine\fi
         \if\endrr\breight \let\pteeight=\pfnine\fi
         \if\endrr\brnine \let\ptenine=\pfnine\fi
         \if\endrr\brnull \let\ptenull=\pfnine\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pfnine\fi
         \if\endrr\brtwo \let\ptftwo=\pfnine\fi
         \if\endrr\brthree \let\ptfthree=\pfnine\fi
         \if\endrr\brfour \let\ptffour=\pfnine\fi
         \if\endrr\brfive \let\ptffive=\pfnine\fi
         \if\endrr\brsix \let\ptfsix=\pfnine\fi
         \if\endrr\brseven \let\ptfseven=\pfnine\fi
         \if\endrr\breight \let\ptfeight=\pfnine\fi
         \if\endrr\brnine \let\ptfnine=\pfnine\fi
         \if\endrr\brnull \let\ptfnull=\pfnine\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pfnine\fi
         \if\endrr\brtwo \let\ptgtwo=\pfnine\fi
         \if\endrr\brthree \let\ptgthree=\pfnine\fi
         \if\endrr\brfour \let\ptgfour=\pfnine\fi
         \if\endrr\brfive \let\ptgfive=\pfnine\fi
         \if\endrr\brsix \let\ptgsix=\pfnine\fi
         \if\endrr\brseven \let\ptgseven=\pfnine\fi
         \if\endrr\breight \let\ptgeight=\pfnine\fi
         \if\endrr\brnine \let\ptgnine=\pfnine\fi
         \if\endrr\brnull \let\ptgnull=\pfnine\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pfnine\fi
         \if\endrr\brtwo \let\pthtwo=\pfnine\fi
         \if\endrr\brthree \let\pththree=\pfnine\fi
         \if\endrr\brfour \let\pthfour=\pfnine\fi
         \if\endrr\brfive \let\pthfive=\pfnine\fi
         \if\endrr\brsix \let\pthsix=\pfnine\fi
         \if\endrr\brseven \let\pthseven=\pfnine\fi
         \if\endrr\breight \let\ptheight=\pfnine\fi
         \if\endrr\brnine \let\pthnine=\pfnine\fi
         \if\endrr\brnull \let\pthnull=\pfnine\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pfnine\fi
         \if\endrr\brtwo \let\ptitwo=\pfnine\fi
         \if\endrr\brthree \let\ptithree=\pfnine\fi
         \if\endrr\brfour \let\ptifour=\pfnine\fi
         \if\endrr\brfive \let\ptifive=\pfnine\fi
         \if\endrr\brsix \let\ptisix=\pfnine\fi
         \if\endrr\brseven \let\ptiseven=\pfnine\fi
         \if\endrr\breight \let\ptieight=\pfnine\fi
         \if\endrr\brnine \let\ptinine=\pfnine\fi
         \if\endrr\brnull \let\ptinull=\pfnine\fi\fi\fi      
   \if\startrr\brnull \fnullset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pfnull\fi
         \if\endrr\brtwo \let\ptatwo=\pfnull\fi
         \if\endrr\brthree \let\ptathree=\pfnull\fi
         \if\endrr\brfour \let\ptafour=\pfnull\fi
         \if\endrr\brfive \let\ptafive=\pfnull\fi
         \if\endrr\brsix \let\ptasix=\pfnull\fi
         \if\endrr\brseven \let\ptaseven=\pfnull\fi
         \if\endrr\breight \let\ptaeight=\pfnull\fi
         \if\endrr\brnine \let\ptanine=\pfnull\fi
         \if\endrr\brnull \let\ptanull=\pfnull\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pfnull\fi
         \if\endrr\brtwo \let\ptbtwo=\pfnull\fi
         \if\endrr\brthree \let\ptbthree=\pfnull\fi
         \if\endrr\brfour \let\ptbfour=\pfnull\fi
         \if\endrr\brfive \let\ptbfive=\pfnull\fi
         \if\endrr\brsix \let\ptbsix=\pfnull\fi
         \if\endrr\brseven \let\ptbseven=\pfnull\fi
         \if\endrr\breight \let\ptbeight=\pfnull\fi
         \if\endrr\brnine \let\ptbnine=\pfnull\fi
         \if\endrr\brnull \let\ptbnull=\pfnull\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pfnull\fi
         \if\endrr\brtwo \let\ptctwo=\pfnull\fi
         \if\endrr\brthree \let\ptcthree=\pfnull\fi
         \if\endrr\brfour \let\ptcfour=\pfnull\fi
         \if\endrr\brfive \let\ptcfive=\pfnull\fi
         \if\endrr\brsix \let\ptcsix=\pfnull\fi
         \if\endrr\brseven \let\ptcseven=\pfnull\fi
         \if\endrr\breight \let\ptceight=\pfnull\fi
         \if\endrr\brnine \let\ptcnine=\pfnull\fi
         \if\endrr\brnull \let\ptcnull=\pfnull\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pfnull\fi
         \if\endrr\brtwo \let\ptdtwo=\pfnull\fi
         \if\endrr\brthree \let\ptdthree=\pfnull\fi
         \if\endrr\brfour \let\ptdfour=\pfnull\fi
         \if\endrr\brfive \let\ptdfive=\pfnull\fi
         \if\endrr\brsix \let\ptdsix=\pfnull\fi
         \if\endrr\brseven \let\ptdseven=\pfnull\fi
         \if\endrr\breight \let\ptdeight=\pfnull\fi
         \if\endrr\brnine \let\ptdnine=\pfnull\fi
         \if\endrr\brnull \let\ptdnull=\pfnull\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pfnull\fi
         \if\endrr\brtwo \let\ptetwo=\pfnull\fi
         \if\endrr\brthree \let\ptethree=\pfnull\fi
         \if\endrr\brfour \let\ptefour=\pfnull\fi
         \if\endrr\brfive \let\ptefive=\pfnull\fi
         \if\endrr\brsix \let\ptesix=\pfnull\fi
         \if\endrr\brseven \let\pteseven=\pfnull\fi
         \if\endrr\breight \let\pteeight=\pfnull\fi
         \if\endrr\brnine \let\ptenine=\pfnull\fi
         \if\endrr\brnull \let\ptenull=\pfnull\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pfnull\fi
         \if\endrr\brtwo \let\ptftwo=\pfnull\fi
         \if\endrr\brthree \let\ptfthree=\pfnull\fi
         \if\endrr\brfour \let\ptffour=\pfnull\fi
         \if\endrr\brfive \let\ptffive=\pfnull\fi
         \if\endrr\brsix \let\ptfsix=\pfnull\fi
         \if\endrr\brseven \let\ptfseven=\pfnull\fi
         \if\endrr\breight \let\ptfeight=\pfnull\fi
         \if\endrr\brnine \let\ptfnine=\pfnull\fi
         \if\endrr\brnull \let\ptfnull=\pfnull\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pfnull\fi
         \if\endrr\brtwo \let\ptgtwo=\pfnull\fi
         \if\endrr\brthree \let\ptgthree=\pfnull\fi
         \if\endrr\brfour \let\ptgfour=\pfnull\fi
         \if\endrr\brfive \let\ptgfive=\pfnull\fi
         \if\endrr\brsix \let\ptgsix=\pfnull\fi
         \if\endrr\brseven \let\ptgseven=\pfnull\fi
         \if\endrr\breight \let\ptgeight=\pfnull\fi
         \if\endrr\brnine \let\ptgnine=\pfnull\fi
         \if\endrr\brnull \let\ptgnull=\pfnull\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pfnull\fi
         \if\endrr\brtwo \let\pthtwo=\pfnull\fi
         \if\endrr\brthree \let\pththree=\pfnull\fi
         \if\endrr\brfour \let\pthfour=\pfnull\fi
         \if\endrr\brfive \let\pthfive=\pfnull\fi
         \if\endrr\brsix \let\pthsix=\pfnull\fi
         \if\endrr\brseven \let\pthseven=\pfnull\fi
         \if\endrr\breight \let\ptheight=\pfnull\fi
         \if\endrr\brnine \let\pthnine=\pfnull\fi
         \if\endrr\brnull \let\pthnull=\pfnull\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pfnull\fi
         \if\endrr\brtwo \let\ptitwo=\pfnull\fi
         \if\endrr\brthree \let\ptithree=\pfnull\fi
         \if\endrr\brfour \let\ptifour=\pfnull\fi
         \if\endrr\brfive \let\ptifive=\pfnull\fi
         \if\endrr\brsix \let\ptisix=\pfnull\fi
         \if\endrr\brseven \let\ptiseven=\pfnull\fi
         \if\endrr\breight \let\ptieight=\pfnull\fi
         \if\endrr\brnine \let\ptinine=\pfnull\fi
         \if\endrr\brnull \let\ptinull=\pfnull\fi\fi\fi\fi
\if\startlr\gli
   \if\startrr\brone \goneset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pgone\fi
         \if\endrr\brtwo \let\ptatwo=\pgone\fi
         \if\endrr\brthree \let\ptathree=\pgone\fi
         \if\endrr\brfour \let\ptafour=\pgone\fi
         \if\endrr\brfive \let\ptafive=\pgone\fi
         \if\endrr\brsix \let\ptasix=\pgone\fi
         \if\endrr\brseven \let\ptaseven=\pgone\fi
         \if\endrr\breight \let\ptaeight=\pgone\fi
         \if\endrr\brnine \let\ptanine=\pgone\fi
         \if\endrr\brnull \let\ptanull=\pgone\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pgone\fi
         \if\endrr\brtwo \let\ptbtwo=\pgone\fi
         \if\endrr\brthree \let\ptbthree=\pgone\fi
         \if\endrr\brfour \let\ptbfour=\pgone\fi
         \if\endrr\brfive \let\ptbfive=\pgone\fi
         \if\endrr\brsix \let\ptbsix=\pgone\fi
         \if\endrr\brseven \let\ptbseven=\pgone\fi
         \if\endrr\breight \let\ptbeight=\pgone\fi
         \if\endrr\brnine \let\ptbnine=\pgone\fi
         \if\endrr\brnull \let\ptbnull=\pgone\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pgone\fi
         \if\endrr\brtwo \let\ptctwo=\pgone\fi
         \if\endrr\brthree \let\ptcthree=\pgone\fi
         \if\endrr\brfour \let\ptcfour=\pgone\fi
         \if\endrr\brfive \let\ptcfive=\pgone\fi
         \if\endrr\brsix \let\ptcsix=\pgone\fi
         \if\endrr\brseven \let\ptcseven=\pgone\fi
         \if\endrr\breight \let\ptceight=\pgone\fi
         \if\endrr\brnine \let\ptcnine=\pgone\fi
         \if\endrr\brnull \let\ptcnull=\pgone\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pgone\fi
         \if\endrr\brtwo \let\ptdtwo=\pgone\fi
         \if\endrr\brthree \let\ptdthree=\pgone\fi
         \if\endrr\brfour \let\ptdfour=\pgone\fi
         \if\endrr\brfive \let\ptdfive=\pgone\fi
         \if\endrr\brsix \let\ptdsix=\pgone\fi
         \if\endrr\brseven \let\ptdseven=\pgone\fi
         \if\endrr\breight \let\ptdeight=\pgone\fi
         \if\endrr\brnine \let\ptdnine=\pgone\fi
         \if\endrr\brnull \let\ptdnull=\pgone\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pgone\fi
         \if\endrr\brtwo \let\ptetwo=\pgone\fi
         \if\endrr\brthree \let\ptethree=\pgone\fi
         \if\endrr\brfour \let\ptefour=\pgone\fi
         \if\endrr\brfive \let\ptefive=\pgone\fi
         \if\endrr\brsix \let\ptesix=\pgone\fi
         \if\endrr\brseven \let\pteseven=\pgone\fi
         \if\endrr\breight \let\pteeight=\pgone\fi
         \if\endrr\brnine \let\ptenine=\pgone\fi
         \if\endrr\brnull \let\ptenull=\pgone\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pgone\fi
         \if\endrr\brtwo \let\ptftwo=\pgone\fi
         \if\endrr\brthree \let\ptfthree=\pgone\fi
         \if\endrr\brfour \let\ptffour=\pgone\fi
         \if\endrr\brfive \let\ptffive=\pgone\fi
         \if\endrr\brsix \let\ptfsix=\pgone\fi
         \if\endrr\brseven \let\ptfseven=\pgone\fi
         \if\endrr\breight \let\ptfeight=\pgone\fi
         \if\endrr\brnine \let\ptfnine=\pgone\fi
         \if\endrr\brnull \let\ptfnull=\pgone\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pgone\fi
         \if\endrr\brtwo \let\ptgtwo=\pgone\fi
         \if\endrr\brthree \let\ptgthree=\pgone\fi
         \if\endrr\brfour \let\ptgfour=\pgone\fi
         \if\endrr\brfive \let\ptgfive=\pgone\fi
         \if\endrr\brsix \let\ptgsix=\pgone\fi
         \if\endrr\brseven \let\ptgseven=\pgone\fi
         \if\endrr\breight \let\ptgeight=\pgone\fi
         \if\endrr\brnine \let\ptgnine=\pgone\fi
         \if\endrr\brnull \let\ptgnull=\pgone\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pgone\fi
         \if\endrr\brtwo \let\pthtwo=\pgone\fi
         \if\endrr\brthree \let\pththree=\pgone\fi
         \if\endrr\brfour \let\pthfour=\pgone\fi
         \if\endrr\brfive \let\pthfive=\pgone\fi
         \if\endrr\brsix \let\pthsix=\pgone\fi
         \if\endrr\brseven \let\pthseven=\pgone\fi
         \if\endrr\breight \let\ptheight=\pgone\fi
         \if\endrr\brnine \let\pthnine=\pgone\fi
         \if\endrr\brnull \let\pthnull=\pgone\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pgone\fi
         \if\endrr\brtwo \let\ptitwo=\pgone\fi
         \if\endrr\brthree \let\ptithree=\pgone\fi
         \if\endrr\brfour \let\ptifour=\pgone\fi
         \if\endrr\brfive \let\ptifive=\pgone\fi
         \if\endrr\brsix \let\ptisix=\pgone\fi
         \if\endrr\brseven \let\ptiseven=\pgone\fi
         \if\endrr\breight \let\ptieight=\pgone\fi
         \if\endrr\brnine \let\ptinine=\pgone\fi
         \if\endrr\brnull \let\ptinull=\pgone\fi\fi\fi      
   \if\startrr\brtwo \gtwoset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pgtwo\fi
         \if\endrr\brtwo \let\ptatwo=\pgtwo\fi
         \if\endrr\brthree \let\ptathree=\pgtwo\fi
         \if\endrr\brfour \let\ptafour=\pgtwo\fi
         \if\endrr\brfive \let\ptafive=\pgtwo\fi
         \if\endrr\brsix \let\ptasix=\pgtwo\fi
         \if\endrr\brseven \let\ptaseven=\pgtwo\fi
         \if\endrr\breight \let\ptaeight=\pgtwo\fi
         \if\endrr\brnine \let\ptanine=\pgtwo\fi
         \if\endrr\brnull \let\ptanull=\pgtwo\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pgtwo\fi
         \if\endrr\brtwo \let\ptbtwo=\pgtwo\fi
         \if\endrr\brthree \let\ptbthree=\pgtwo\fi
         \if\endrr\brfour \let\ptbfour=\pgtwo\fi
         \if\endrr\brfive \let\ptbfive=\pgtwo\fi
         \if\endrr\brsix \let\ptbsix=\pgtwo\fi
         \if\endrr\brseven \let\ptbseven=\pgtwo\fi
         \if\endrr\breight \let\ptbeight=\pgtwo\fi
         \if\endrr\brnine \let\ptbnine=\pgtwo\fi
         \if\endrr\brnull \let\ptbnull=\pgtwo\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pgtwo\fi
         \if\endrr\brtwo \let\ptctwo=\pgtwo\fi
         \if\endrr\brthree \let\ptcthree=\pgtwo\fi
         \if\endrr\brfour \let\ptcfour=\pgtwo\fi
         \if\endrr\brfive \let\ptcfive=\pgtwo\fi
         \if\endrr\brsix \let\ptcsix=\pgtwo\fi
         \if\endrr\brseven \let\ptcseven=\pgtwo\fi
         \if\endrr\breight \let\ptceight=\pgtwo\fi
         \if\endrr\brnine \let\ptcnine=\pgtwo\fi
         \if\endrr\brnull \let\ptcnull=\pgtwo\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pgtwo\fi
         \if\endrr\brtwo \let\ptdtwo=\pgtwo\fi
         \if\endrr\brthree \let\ptdthree=\pgtwo\fi
         \if\endrr\brfour \let\ptdfour=\pgtwo\fi
         \if\endrr\brfive \let\ptdfive=\pgtwo\fi
         \if\endrr\brsix \let\ptdsix=\pgtwo\fi
         \if\endrr\brseven \let\ptdseven=\pgtwo\fi
         \if\endrr\breight \let\ptdeight=\pgtwo\fi
         \if\endrr\brnine \let\ptdnine=\pgtwo\fi
         \if\endrr\brnull \let\ptdnull=\pgtwo\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pgtwo\fi
         \if\endrr\brtwo \let\ptetwo=\pgtwo\fi
         \if\endrr\brthree \let\ptethree=\pgtwo\fi
         \if\endrr\brfour \let\ptefour=\pgtwo\fi
         \if\endrr\brfive \let\ptefive=\pgtwo\fi
         \if\endrr\brsix \let\ptesix=\pgtwo\fi
         \if\endrr\brseven \let\pteseven=\pgtwo\fi
         \if\endrr\breight \let\pteeight=\pgtwo\fi
         \if\endrr\brnine \let\ptenine=\pgtwo\fi
         \if\endrr\brnull \let\ptenull=\pgtwo\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pgtwo\fi
         \if\endrr\brtwo \let\ptftwo=\pgtwo\fi
         \if\endrr\brthree \let\ptfthree=\pgtwo\fi
         \if\endrr\brfour \let\ptffour=\pgtwo\fi
         \if\endrr\brfive \let\ptffive=\pgtwo\fi
         \if\endrr\brsix \let\ptfsix=\pgtwo\fi
         \if\endrr\brseven \let\ptfseven=\pgtwo\fi
         \if\endrr\breight \let\ptfeight=\pgtwo\fi
         \if\endrr\brnine \let\ptfnine=\pgtwo\fi
         \if\endrr\brnull \let\ptfnull=\pgtwo\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pgtwo\fi
         \if\endrr\brtwo \let\ptgtwo=\pgtwo\fi
         \if\endrr\brthree \let\ptgthree=\pgtwo\fi
         \if\endrr\brfour \let\ptgfour=\pgtwo\fi
         \if\endrr\brfive \let\ptgfive=\pgtwo\fi
         \if\endrr\brsix \let\ptgsix=\pgtwo\fi
         \if\endrr\brseven \let\ptgseven=\pgtwo\fi
         \if\endrr\breight \let\ptgeight=\pgtwo\fi
         \if\endrr\brnine \let\ptgnine=\pgtwo\fi
         \if\endrr\brnull \let\ptgnull=\pgtwo\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pgtwo\fi
         \if\endrr\brtwo \let\pthtwo=\pgtwo\fi
         \if\endrr\brthree \let\pththree=\pgtwo\fi
         \if\endrr\brfour \let\pthfour=\pgtwo\fi
         \if\endrr\brfive \let\pthfive=\pgtwo\fi
         \if\endrr\brsix \let\pthsix=\pgtwo\fi
         \if\endrr\brseven \let\pthseven=\pgtwo\fi
         \if\endrr\breight \let\ptheight=\pgtwo\fi
         \if\endrr\brnine \let\pthnine=\pgtwo\fi
         \if\endrr\brnull \let\pthnull=\pgtwo\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pgtwo\fi
         \if\endrr\brtwo \let\ptitwo=\pgtwo\fi
         \if\endrr\brthree \let\ptithree=\pgtwo\fi
         \if\endrr\brfour \let\ptifour=\pgtwo\fi
         \if\endrr\brfive \let\ptifive=\pgtwo\fi
         \if\endrr\brsix \let\ptisix=\pgtwo\fi
         \if\endrr\brseven \let\ptiseven=\pgtwo\fi
         \if\endrr\breight \let\ptieight=\pgtwo\fi
         \if\endrr\brnine \let\ptinine=\pgtwo\fi
         \if\endrr\brnull \let\ptinull=\pgtwo\fi\fi\fi
   \if\startrr\brthree \gthreeset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pgthree\fi
         \if\endrr\brtwo \let\ptatwo=\pgthree\fi
         \if\endrr\brthree \let\ptathree=\pgthree\fi
         \if\endrr\brfour \let\ptafour=\pgthree\fi
         \if\endrr\brfive \let\ptafive=\pgthree\fi
         \if\endrr\brsix \let\ptasix=\pgthree\fi
         \if\endrr\brseven \let\ptaseven=\pgthree\fi
         \if\endrr\breight \let\ptaeight=\pgthree\fi
         \if\endrr\brnine \let\ptanine=\pgthree\fi
         \if\endrr\brnull \let\ptanull=\pgthree\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pgthree\fi
         \if\endrr\brtwo \let\ptbtwo=\pgthree\fi
         \if\endrr\brthree \let\ptbthree=\pgthree\fi
         \if\endrr\brfour \let\ptbfour=\pgthree\fi
         \if\endrr\brfive \let\ptbfive=\pgthree\fi
         \if\endrr\brsix \let\ptbsix=\pgthree\fi
         \if\endrr\brseven \let\ptbseven=\pgthree\fi
         \if\endrr\breight \let\ptbeight=\pgthree\fi
         \if\endrr\brnine \let\ptbnine=\pgthree\fi
         \if\endrr\brnull \let\ptbnull=\pgthree\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pgthree\fi
         \if\endrr\brtwo \let\ptctwo=\pgthree\fi
         \if\endrr\brthree \let\ptcthree=\pgthree\fi
         \if\endrr\brfour \let\ptcfour=\pgthree\fi
         \if\endrr\brfive \let\ptcfive=\pgthree\fi
         \if\endrr\brsix \let\ptcsix=\pgthree\fi
         \if\endrr\brseven \let\ptcseven=\pgthree\fi
         \if\endrr\breight \let\ptceight=\pgthree\fi
         \if\endrr\brnine \let\ptcnine=\pgthree\fi
         \if\endrr\brnull \let\ptcnull=\pgthree\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pgthree\fi
         \if\endrr\brtwo \let\ptdtwo=\pgthree\fi
         \if\endrr\brthree \let\ptdthree=\pgthree\fi
         \if\endrr\brfour \let\ptdfour=\pgthree\fi
         \if\endrr\brfive \let\ptdfive=\pgthree\fi
         \if\endrr\brsix \let\ptdsix=\pgthree\fi
         \if\endrr\brseven \let\ptdseven=\pgthree\fi
         \if\endrr\breight \let\ptdeight=\pgthree\fi
         \if\endrr\brnine \let\ptdnine=\pgthree\fi
         \if\endrr\brnull \let\ptdnull=\pgthree\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pgthree\fi
         \if\endrr\brtwo \let\ptetwo=\pgthree\fi
         \if\endrr\brthree \let\ptethree=\pgthree\fi
         \if\endrr\brfour \let\ptefour=\pgthree\fi
         \if\endrr\brfive \let\ptefive=\pgthree\fi
         \if\endrr\brsix \let\ptesix=\pgthree\fi
         \if\endrr\brseven \let\pteseven=\pgthree\fi
         \if\endrr\breight \let\pteeight=\pgthree\fi
         \if\endrr\brnine \let\ptenine=\pgthree\fi
         \if\endrr\brnull \let\ptenull=\pgthree\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pgthree\fi
         \if\endrr\brtwo \let\ptftwo=\pgthree\fi
         \if\endrr\brthree \let\ptfthree=\pgthree\fi
         \if\endrr\brfour \let\ptffour=\pgthree\fi
         \if\endrr\brfive \let\ptffive=\pgthree\fi
         \if\endrr\brsix \let\ptfsix=\pgthree\fi
         \if\endrr\brseven \let\ptfseven=\pgthree\fi
         \if\endrr\breight \let\ptfeight=\pgthree\fi
         \if\endrr\brnine \let\ptfnine=\pgthree\fi
         \if\endrr\brnull \let\ptfnull=\pgthree\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pgthree\fi
         \if\endrr\brtwo \let\ptgtwo=\pgthree\fi
         \if\endrr\brthree \let\ptgthree=\pgthree\fi
         \if\endrr\brfour \let\ptgfour=\pgthree\fi
         \if\endrr\brfive \let\ptgfive=\pgthree\fi
         \if\endrr\brsix \let\ptgsix=\pgthree\fi
         \if\endrr\brseven \let\ptgseven=\pgthree\fi
         \if\endrr\breight \let\ptgeight=\pgthree\fi
         \if\endrr\brnine \let\ptgnine=\pgthree\fi
         \if\endrr\brnull \let\ptgnull=\pgthree\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pgthree\fi
         \if\endrr\brtwo \let\pthtwo=\pgthree\fi
         \if\endrr\brthree \let\pththree=\pgthree\fi
         \if\endrr\brfour \let\pthfour=\pgthree\fi
         \if\endrr\brfive \let\pthfive=\pgthree\fi
         \if\endrr\brsix \let\pthsix=\pgthree\fi
         \if\endrr\brseven \let\pthseven=\pgthree\fi
         \if\endrr\breight \let\ptheight=\pgthree\fi
         \if\endrr\brnine \let\pthnine=\pgthree\fi
         \if\endrr\brnull \let\pthnull=\pgthree\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pgthree\fi
         \if\endrr\brtwo \let\ptitwo=\pgthree\fi
         \if\endrr\brthree \let\ptithree=\pgthree\fi
         \if\endrr\brfour \let\ptifour=\pgthree\fi
         \if\endrr\brfive \let\ptifive=\pgthree\fi
         \if\endrr\brsix \let\ptisix=\pgthree\fi
         \if\endrr\brseven \let\ptiseven=\pgthree\fi
         \if\endrr\breight \let\ptieight=\pgthree\fi
         \if\endrr\brnine \let\ptinine=\pgthree\fi
         \if\endrr\brnull \let\ptinull=\pgthree\fi\fi\fi      
   \if\startrr\brfour \gfourset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pgfour\fi
         \if\endrr\brtwo \let\ptatwo=\pgfour\fi
         \if\endrr\brthree \let\ptathree=\pgfour\fi
         \if\endrr\brfour \let\ptafour=\pgfour\fi
         \if\endrr\brfive \let\ptafive=\pgfour\fi
         \if\endrr\brsix \let\ptasix=\pgfour\fi
         \if\endrr\brseven \let\ptaseven=\pgfour\fi
         \if\endrr\breight \let\ptaeight=\pgfour\fi
         \if\endrr\brnine \let\ptanine=\pgfour\fi
         \if\endrr\brnull \let\ptanull=\pgfour\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pgfour\fi
         \if\endrr\brtwo \let\ptbtwo=\pgfour\fi
         \if\endrr\brthree \let\ptbthree=\pgfour\fi
         \if\endrr\brfour \let\ptbfour=\pgfour\fi
         \if\endrr\brfive \let\ptbfive=\pgfour\fi
         \if\endrr\brsix \let\ptbsix=\pgfour\fi
         \if\endrr\brseven \let\ptbseven=\pgfour\fi
         \if\endrr\breight \let\ptbeight=\pgfour\fi
         \if\endrr\brnine \let\ptbnine=\pgfour\fi
         \if\endrr\brnull \let\ptbnull=\pgfour\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pgfour\fi
         \if\endrr\brtwo \let\ptctwo=\pgfour\fi
         \if\endrr\brthree \let\ptcthree=\pgfour\fi
         \if\endrr\brfour \let\ptcfour=\pgfour\fi
         \if\endrr\brfive \let\ptcfive=\pgfour\fi
         \if\endrr\brsix \let\ptcsix=\pgfour\fi
         \if\endrr\brseven \let\ptcseven=\pgfour\fi
         \if\endrr\breight \let\ptceight=\pgfour\fi
         \if\endrr\brnine \let\ptcnine=\pgfour\fi
         \if\endrr\brnull \let\ptcnull=\pgfour\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pgfour\fi
         \if\endrr\brtwo \let\ptdtwo=\pgfour\fi
         \if\endrr\brthree \let\ptdthree=\pgfour\fi
         \if\endrr\brfour \let\ptdfour=\pgfour\fi
         \if\endrr\brfive \let\ptdfive=\pgfour\fi
         \if\endrr\brsix \let\ptdsix=\pgfour\fi
         \if\endrr\brseven \let\ptdseven=\pgfour\fi
         \if\endrr\breight \let\ptdeight=\pgfour\fi
         \if\endrr\brnine \let\ptdnine=\pgfour\fi
         \if\endrr\brnull \let\ptdnull=\pgfour\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pgfour\fi
         \if\endrr\brtwo \let\ptetwo=\pgfour\fi
         \if\endrr\brthree \let\ptethree=\pgfour\fi
         \if\endrr\brfour \let\ptefour=\pgfour\fi
         \if\endrr\brfive \let\ptefive=\pgfour\fi
         \if\endrr\brsix \let\ptesix=\pgfour\fi
         \if\endrr\brseven \let\pteseven=\pgfour\fi
         \if\endrr\breight \let\pteeight=\pgfour\fi
         \if\endrr\brnine \let\ptenine=\pgfour\fi
         \if\endrr\brnull \let\ptenull=\pgfour\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pgfour\fi
         \if\endrr\brtwo \let\ptftwo=\pgfour\fi
         \if\endrr\brthree \let\ptfthree=\pgfour\fi
         \if\endrr\brfour \let\ptffour=\pgfour\fi
         \if\endrr\brfive \let\ptffive=\pgfour\fi
         \if\endrr\brsix \let\ptfsix=\pgfour\fi
         \if\endrr\brseven \let\ptfseven=\pgfour\fi
         \if\endrr\breight \let\ptfeight=\pgfour\fi
         \if\endrr\brnine \let\ptfnine=\pgfour\fi
         \if\endrr\brnull \let\ptfnull=\pgfour\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pgfour\fi
         \if\endrr\brtwo \let\ptgtwo=\pgfour\fi
         \if\endrr\brthree \let\ptgthree=\pgfour\fi
         \if\endrr\brfour \let\ptgfour=\pgfour\fi
         \if\endrr\brfive \let\ptgfive=\pgfour\fi
         \if\endrr\brsix \let\ptgsix=\pgfour\fi
         \if\endrr\brseven \let\ptgseven=\pgfour\fi
         \if\endrr\breight \let\ptgeight=\pgfour\fi
         \if\endrr\brnine \let\ptgnine=\pgfour\fi
         \if\endrr\brnull \let\ptgnull=\pgfour\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pgfour\fi
         \if\endrr\brtwo \let\pthtwo=\pgfour\fi
         \if\endrr\brthree \let\pththree=\pgfour\fi
         \if\endrr\brfour \let\pthfour=\pgfour\fi
         \if\endrr\brfive \let\pthfive=\pgfour\fi
         \if\endrr\brsix \let\pthsix=\pgfour\fi
         \if\endrr\brseven \let\pthseven=\pgfour\fi
         \if\endrr\breight \let\ptheight=\pgfour\fi
         \if\endrr\brnine \let\pthnine=\pgfour\fi
         \if\endrr\brnull \let\pthnull=\pgfour\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pgfour\fi
         \if\endrr\brtwo \let\ptitwo=\pgfour\fi
         \if\endrr\brthree \let\ptithree=\pgfour\fi
         \if\endrr\brfour \let\ptifour=\pgfour\fi
         \if\endrr\brfive \let\ptifive=\pgfour\fi
         \if\endrr\brsix \let\ptisix=\pgfour\fi
         \if\endrr\brseven \let\ptiseven=\pgfour\fi
         \if\endrr\breight \let\ptieight=\pgfour\fi
         \if\endrr\brnine \let\ptinine=\pgfour\fi
         \if\endrr\brnull \let\ptinull=\pgfour\fi\fi\fi      
   \if\startrr\brfive \gfiveset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pgfive\fi
         \if\endrr\brtwo \let\ptatwo=\pgfive\fi
         \if\endrr\brthree \let\ptathree=\pgfive\fi
         \if\endrr\brfour \let\ptafour=\pgfive\fi
         \if\endrr\brfive \let\ptafive=\pgfive\fi
         \if\endrr\brsix \let\ptasix=\pgfive\fi
         \if\endrr\brseven \let\ptaseven=\pgfive\fi
         \if\endrr\breight \let\ptaeight=\pgfive\fi
         \if\endrr\brnine \let\ptanine=\pgfive\fi
         \if\endrr\brnull \let\ptanull=\pgfive\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pgfive\fi
         \if\endrr\brtwo \let\ptbtwo=\pgfive\fi
         \if\endrr\brthree \let\ptbthree=\pgfive\fi
         \if\endrr\brfour \let\ptbfour=\pgfive\fi
         \if\endrr\brfive \let\ptbfive=\pgfive\fi
         \if\endrr\brsix \let\ptbsix=\pgfive\fi
         \if\endrr\brseven \let\ptbseven=\pgfive\fi
         \if\endrr\breight \let\ptbeight=\pgfive\fi
         \if\endrr\brnine \let\ptbnine=\pgfive\fi
         \if\endrr\brnull \let\ptbnull=\pgfive\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pgfive\fi
         \if\endrr\brtwo \let\ptctwo=\pgfive\fi
         \if\endrr\brthree \let\ptcthree=\pgfive\fi
         \if\endrr\brfour \let\ptcfour=\pgfive\fi
         \if\endrr\brfive \let\ptcfive=\pgfive\fi
         \if\endrr\brsix \let\ptcsix=\pgfive\fi
         \if\endrr\brseven \let\ptcseven=\pgfive\fi
         \if\endrr\breight \let\ptceight=\pgfive\fi
         \if\endrr\brnine \let\ptcnine=\pgfive\fi
         \if\endrr\brnull \let\ptcnull=\pgfive\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pgfive\fi
         \if\endrr\brtwo \let\ptdtwo=\pgfive\fi
         \if\endrr\brthree \let\ptdthree=\pgfive\fi
         \if\endrr\brfour \let\ptdfour=\pgfive\fi
         \if\endrr\brfive \let\ptdfive=\pgfive\fi
         \if\endrr\brsix \let\ptdsix=\pgfive\fi
         \if\endrr\brseven \let\ptdseven=\pgfive\fi
         \if\endrr\breight \let\ptdeight=\pgfive\fi
         \if\endrr\brnine \let\ptdnine=\pgfive\fi
         \if\endrr\brnull \let\ptdnull=\pgfive\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pgfive\fi
         \if\endrr\brtwo \let\ptetwo=\pgfive\fi
         \if\endrr\brthree \let\ptethree=\pgfive\fi
         \if\endrr\brfour \let\ptefour=\pgfive\fi
         \if\endrr\brfive \let\ptefive=\pgfive\fi
         \if\endrr\brsix \let\ptesix=\pgfive\fi
         \if\endrr\brseven \let\pteseven=\pgfive\fi
         \if\endrr\breight \let\pteeight=\pgfive\fi
         \if\endrr\brnine \let\ptenine=\pgfive\fi
         \if\endrr\brnull \let\ptenull=\pgfive\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pgfive\fi
         \if\endrr\brtwo \let\ptftwo=\pgfive\fi
         \if\endrr\brthree \let\ptfthree=\pgfive\fi
         \if\endrr\brfour \let\ptffour=\pgfive\fi
         \if\endrr\brfive \let\ptffive=\pgfive\fi
         \if\endrr\brsix \let\ptfsix=\pgfive\fi
         \if\endrr\brseven \let\ptfseven=\pgfive\fi
         \if\endrr\breight \let\ptfeight=\pgfive\fi
         \if\endrr\brnine \let\ptfnine=\pgfive\fi
         \if\endrr\brnull \let\ptfnull=\pgfive\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pgfive\fi
         \if\endrr\brtwo \let\ptgtwo=\pgfive\fi
         \if\endrr\brthree \let\ptgthree=\pgfive\fi
         \if\endrr\brfour \let\ptgfour=\pgfive\fi
         \if\endrr\brfive \let\ptgfive=\pgfive\fi
         \if\endrr\brsix \let\ptgsix=\pgfive\fi
         \if\endrr\brseven \let\ptgseven=\pgfive\fi
         \if\endrr\breight \let\ptgeight=\pgfive\fi
         \if\endrr\brnine \let\ptgnine=\pgfive\fi
         \if\endrr\brnull \let\ptgnull=\pgfive\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pgfive\fi
         \if\endrr\brtwo \let\pthtwo=\pgfive\fi
         \if\endrr\brthree \let\pththree=\pgfive\fi
         \if\endrr\brfour \let\pthfour=\pgfive\fi
         \if\endrr\brfive \let\pthfive=\pgfive\fi
         \if\endrr\brsix \let\pthsix=\pgfive\fi
         \if\endrr\brseven \let\pthseven=\pgfive\fi
         \if\endrr\breight \let\ptheight=\pgfive\fi
         \if\endrr\brnine \let\pthnine=\pgfive\fi
         \if\endrr\brnull \let\pthnull=\pgfive\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pgfive\fi
         \if\endrr\brtwo \let\ptitwo=\pgfive\fi
         \if\endrr\brthree \let\ptithree=\pgfive\fi
         \if\endrr\brfour \let\ptifour=\pgfive\fi
         \if\endrr\brfive \let\ptifive=\pgfive\fi
         \if\endrr\brsix \let\ptisix=\pgfive\fi
         \if\endrr\brseven \let\ptiseven=\pgfive\fi
         \if\endrr\breight \let\ptieight=\pgfive\fi
         \if\endrr\brnine \let\ptinine=\pgfive\fi
         \if\endrr\brnull \let\ptinull=\pgfive\fi\fi\fi   
   \if\startrr\brsix \gsixset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pgsix\fi
         \if\endrr\brtwo \let\ptatwo=\pgsix\fi
         \if\endrr\brthree \let\ptathree=\pgsix\fi
         \if\endrr\brfour \let\ptafour=\pgsix\fi
         \if\endrr\brfive \let\ptafive=\pgsix\fi
         \if\endrr\brsix \let\ptasix=\pgsix\fi
         \if\endrr\brseven \let\ptaseven=\pgsix\fi
         \if\endrr\breight \let\ptaeight=\pgsix\fi
         \if\endrr\brnine \let\ptanine=\pgsix\fi
         \if\endrr\brnull \let\ptanull=\pgsix\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pgsix\fi
         \if\endrr\brtwo \let\ptbtwo=\pgsix\fi
         \if\endrr\brthree \let\ptbthree=\pgsix\fi
         \if\endrr\brfour \let\ptbfour=\pgsix\fi
         \if\endrr\brfive \let\ptbfive=\pgsix\fi
         \if\endrr\brsix \let\ptbsix=\pgsix\fi
         \if\endrr\brseven \let\ptbseven=\pgsix\fi
         \if\endrr\breight \let\ptbeight=\pgsix\fi
         \if\endrr\brnine \let\ptbnine=\pgsix\fi
         \if\endrr\brnull \let\ptbnull=\pgsix\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pgsix\fi
         \if\endrr\brtwo \let\ptctwo=\pgsix\fi
         \if\endrr\brthree \let\ptcthree=\pgsix\fi
         \if\endrr\brfour \let\ptcfour=\pgsix\fi
         \if\endrr\brfive \let\ptcfive=\pgsix\fi
         \if\endrr\brsix \let\ptcsix=\pgsix\fi
         \if\endrr\brseven \let\ptcseven=\pgsix\fi
         \if\endrr\breight \let\ptceight=\pgsix\fi
         \if\endrr\brnine \let\ptcnine=\pgsix\fi
         \if\endrr\brnull \let\ptcnull=\pgsix\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pgsix\fi
         \if\endrr\brtwo \let\ptdtwo=\pgsix\fi
         \if\endrr\brthree \let\ptdthree=\pgsix\fi
         \if\endrr\brfour \let\ptdfour=\pgsix\fi
         \if\endrr\brfive \let\ptdfive=\pgsix\fi
         \if\endrr\brsix \let\ptdsix=\pgsix\fi
         \if\endrr\brseven \let\ptdseven=\pgsix\fi
         \if\endrr\breight \let\ptdeight=\pgsix\fi
         \if\endrr\brnine \let\ptdnine=\pgsix\fi
         \if\endrr\brnull \let\ptdnull=\pgsix\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pgsix\fi
         \if\endrr\brtwo \let\ptetwo=\pgsix\fi
         \if\endrr\brthree \let\ptethree=\pgsix\fi
         \if\endrr\brfour \let\ptefour=\pgsix\fi
         \if\endrr\brfive \let\ptefive=\pgsix\fi
         \if\endrr\brsix \let\ptesix=\pgsix\fi
         \if\endrr\brseven \let\pteseven=\pgsix\fi
         \if\endrr\breight \let\pteeight=\pgsix\fi
         \if\endrr\brnine \let\ptenine=\pgsix\fi
         \if\endrr\brnull \let\ptenull=\pgsix\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pgsix\fi
         \if\endrr\brtwo \let\ptftwo=\pgsix\fi
         \if\endrr\brthree \let\ptfthree=\pgsix\fi
         \if\endrr\brfour \let\ptffour=\pgsix\fi
         \if\endrr\brfive \let\ptffive=\pgsix\fi
         \if\endrr\brsix \let\ptfsix=\pgsix\fi
         \if\endrr\brseven \let\ptfseven=\pgsix\fi
         \if\endrr\breight \let\ptfeight=\pgsix\fi
         \if\endrr\brnine \let\ptfnine=\pgsix\fi
         \if\endrr\brnull \let\ptfnull=\pgsix\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pgsix\fi
         \if\endrr\brtwo \let\ptgtwo=\pgsix\fi
         \if\endrr\brthree \let\ptgthree=\pgsix\fi
         \if\endrr\brfour \let\ptgfour=\pgsix\fi
         \if\endrr\brfive \let\ptgfive=\pgsix\fi
         \if\endrr\brsix \let\ptgsix=\pgsix\fi
         \if\endrr\brseven \let\ptgseven=\pgsix\fi
         \if\endrr\breight \let\ptgeight=\pgsix\fi
         \if\endrr\brnine \let\ptgnine=\pgsix\fi
         \if\endrr\brnull \let\ptgnull=\pgsix\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pgsix\fi
         \if\endrr\brtwo \let\pthtwo=\pgsix\fi
         \if\endrr\brthree \let\pththree=\pgsix\fi
         \if\endrr\brfour \let\pthfour=\pgsix\fi
         \if\endrr\brfive \let\pthfive=\pgsix\fi
         \if\endrr\brsix \let\pthsix=\pgsix\fi
         \if\endrr\brseven \let\pthseven=\pgsix\fi
         \if\endrr\breight \let\ptheight=\pgsix\fi
         \if\endrr\brnine \let\pthnine=\pgsix\fi
         \if\endrr\brnull \let\pthnull=\pgsix\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pgsix\fi
         \if\endrr\brtwo \let\ptitwo=\pgsix\fi
         \if\endrr\brthree \let\ptithree=\pgsix\fi
         \if\endrr\brfour \let\ptifour=\pgsix\fi
         \if\endrr\brfive \let\ptifive=\pgsix\fi
         \if\endrr\brsix \let\ptisix=\pgsix\fi
         \if\endrr\brseven \let\ptiseven=\pgsix\fi
         \if\endrr\breight \let\ptieight=\pgsix\fi
         \if\endrr\brnine \let\ptinine=\pgsix\fi
         \if\endrr\brnull \let\ptinull=\pgsix\fi\fi\fi
   \if\startrr\brseven \gsevenset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pgseven\fi
         \if\endrr\brtwo \let\ptatwo=\pgseven\fi
         \if\endrr\brthree \let\ptathree=\pgseven\fi
         \if\endrr\brfour \let\ptafour=\pgseven\fi
         \if\endrr\brfive \let\ptafive=\pgseven\fi
         \if\endrr\brsix \let\ptasix=\pgseven\fi
         \if\endrr\brseven \let\ptaseven=\pgseven\fi
         \if\endrr\breight \let\ptaeight=\pgseven\fi
         \if\endrr\brnine \let\ptanine=\pgseven\fi
         \if\endrr\brnull \let\ptanull=\pgseven\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pgseven\fi
         \if\endrr\brtwo \let\ptbtwo=\pgseven\fi
         \if\endrr\brthree \let\ptbthree=\pgseven\fi
         \if\endrr\brfour \let\ptbfour=\pgseven\fi
         \if\endrr\brfive \let\ptbfive=\pgseven\fi
         \if\endrr\brsix \let\ptbsix=\pgseven\fi
         \if\endrr\brseven \let\ptbseven=\pgseven\fi
         \if\endrr\breight \let\ptbeight=\pgseven\fi
         \if\endrr\brnine \let\ptbnine=\pgseven\fi
         \if\endrr\brnull \let\ptbnull=\pgseven\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pgseven\fi
         \if\endrr\brtwo \let\ptctwo=\pgseven\fi
         \if\endrr\brthree \let\ptcthree=\pgseven\fi
         \if\endrr\brfour \let\ptcfour=\pgseven\fi
         \if\endrr\brfive \let\ptcfive=\pgseven\fi
         \if\endrr\brsix \let\ptcsix=\pgseven\fi
         \if\endrr\brseven \let\ptcseven=\pgseven\fi
         \if\endrr\breight \let\ptceight=\pgseven\fi
         \if\endrr\brnine \let\ptcnine=\pgseven\fi
         \if\endrr\brnull \let\ptcnull=\pgseven\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pgseven\fi
         \if\endrr\brtwo \let\ptdtwo=\pgseven\fi
         \if\endrr\brthree \let\ptdthree=\pgseven\fi
         \if\endrr\brfour \let\ptdfour=\pgseven\fi
         \if\endrr\brfive \let\ptdfive=\pgseven\fi
         \if\endrr\brsix \let\ptdsix=\pgseven\fi
         \if\endrr\brseven \let\ptdseven=\pgseven\fi
         \if\endrr\breight \let\ptdeight=\pgseven\fi
         \if\endrr\brnine \let\ptdnine=\pgseven\fi
         \if\endrr\brnull \let\ptdnull=\pgseven\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pgseven\fi
         \if\endrr\brtwo \let\ptetwo=\pgseven\fi
         \if\endrr\brthree \let\ptethree=\pgseven\fi
         \if\endrr\brfour \let\ptefour=\pgseven\fi
         \if\endrr\brfive \let\ptefive=\pgseven\fi
         \if\endrr\brsix \let\ptesix=\pgseven\fi
         \if\endrr\brseven \let\pteseven=\pgseven\fi
         \if\endrr\breight \let\pteeight=\pgseven\fi
         \if\endrr\brnine \let\ptenine=\pgseven\fi
         \if\endrr\brnull \let\ptenull=\pgseven\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pgseven\fi
         \if\endrr\brtwo \let\ptftwo=\pgseven\fi
         \if\endrr\brthree \let\ptfthree=\pgseven\fi
         \if\endrr\brfour \let\ptffour=\pgseven\fi
         \if\endrr\brfive \let\ptffive=\pgseven\fi
         \if\endrr\brsix \let\ptfsix=\pgseven\fi
         \if\endrr\brseven \let\ptfseven=\pgseven\fi
         \if\endrr\breight \let\ptfeight=\pgseven\fi
         \if\endrr\brnine \let\ptfnine=\pgseven\fi
         \if\endrr\brnull \let\ptfnull=\pgseven\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pgseven\fi
         \if\endrr\brtwo \let\ptgtwo=\pgseven\fi
         \if\endrr\brthree \let\ptgthree=\pgseven\fi
         \if\endrr\brfour \let\ptgfour=\pgseven\fi
         \if\endrr\brfive \let\ptgfive=\pgseven\fi
         \if\endrr\brsix \let\ptgsix=\pgseven\fi
         \if\endrr\brseven \let\ptgseven=\pgseven\fi
         \if\endrr\breight \let\ptgeight=\pgseven\fi
         \if\endrr\brnine \let\ptgnine=\pgseven\fi
         \if\endrr\brnull \let\ptgnull=\pgseven\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pgseven\fi
         \if\endrr\brtwo \let\pthtwo=\pgseven\fi
         \if\endrr\brthree \let\pththree=\pgseven\fi
         \if\endrr\brfour \let\pthfour=\pgseven\fi
         \if\endrr\brfive \let\pthfive=\pgseven\fi
         \if\endrr\brsix \let\pthsix=\pgseven\fi
         \if\endrr\brseven \let\pthseven=\pgseven\fi
         \if\endrr\breight \let\ptheight=\pgseven\fi
         \if\endrr\brnine \let\pthnine=\pgseven\fi
         \if\endrr\brnull \let\pthnull=\pgseven\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pgseven\fi
         \if\endrr\brtwo \let\ptitwo=\pgseven\fi
         \if\endrr\brthree \let\ptithree=\pgseven\fi
         \if\endrr\brfour \let\ptifour=\pgseven\fi
         \if\endrr\brfive \let\ptifive=\pgseven\fi
         \if\endrr\brsix \let\ptisix=\pgseven\fi
         \if\endrr\brseven \let\ptiseven=\pgseven\fi
         \if\endrr\breight \let\ptieight=\pgseven\fi
         \if\endrr\brnine \let\ptinine=\pgseven\fi
         \if\endrr\brnull \let\ptinull=\pgseven\fi\fi\fi      
   \if\startrr\breight \geightset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pgeight\fi
         \if\endrr\brtwo \let\ptatwo=\pgeight\fi
         \if\endrr\brthree \let\ptathree=\pgeight\fi
         \if\endrr\brfour \let\ptafour=\pgeight\fi
         \if\endrr\brfive \let\ptafive=\pgeight\fi
         \if\endrr\brsix \let\ptasix=\pgeight\fi
         \if\endrr\brseven \let\ptaseven=\pgeight\fi
         \if\endrr\breight \let\ptaeight=\pgeight\fi
         \if\endrr\brnine \let\ptanine=\pgeight\fi
         \if\endrr\brnull \let\ptanull=\pgeight\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pgeight\fi
         \if\endrr\brtwo \let\ptbtwo=\pgeight\fi
         \if\endrr\brthree \let\ptbthree=\pgeight\fi
         \if\endrr\brfour \let\ptbfour=\pgeight\fi
         \if\endrr\brfive \let\ptbfive=\pgeight\fi
         \if\endrr\brsix \let\ptbsix=\pgeight\fi
         \if\endrr\brseven \let\ptbseven=\pgeight\fi
         \if\endrr\breight \let\ptbeight=\pgeight\fi
         \if\endrr\brnine \let\ptbnine=\pgeight\fi
         \if\endrr\brnull \let\ptbnull=\pgeight\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pgeight\fi
         \if\endrr\brtwo \let\ptctwo=\pgeight\fi
         \if\endrr\brthree \let\ptcthree=\pgeight\fi
         \if\endrr\brfour \let\ptcfour=\pgeight\fi
         \if\endrr\brfive \let\ptcfive=\pgeight\fi
         \if\endrr\brsix \let\ptcsix=\pgeight\fi
         \if\endrr\brseven \let\ptcseven=\pgeight\fi
         \if\endrr\breight \let\ptceight=\pgeight\fi
         \if\endrr\brnine \let\ptcnine=\pgeight\fi
         \if\endrr\brnull \let\ptcnull=\pgeight\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pgeight\fi
         \if\endrr\brtwo \let\ptdtwo=\pgeight\fi
         \if\endrr\brthree \let\ptdthree=\pgeight\fi
         \if\endrr\brfour \let\ptdfour=\pgeight\fi
         \if\endrr\brfive \let\ptdfive=\pgeight\fi
         \if\endrr\brsix \let\ptdsix=\pgeight\fi
         \if\endrr\brseven \let\ptdseven=\pgeight\fi
         \if\endrr\breight \let\ptdeight=\pgeight\fi
         \if\endrr\brnine \let\ptdnine=\pgeight\fi
         \if\endrr\brnull \let\ptdnull=\pgeight\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pgeight\fi
         \if\endrr\brtwo \let\ptetwo=\pgeight\fi
         \if\endrr\brthree \let\ptethree=\pgeight\fi
         \if\endrr\brfour \let\ptefour=\pgeight\fi
         \if\endrr\brfive \let\ptefive=\pgeight\fi
         \if\endrr\brsix \let\ptesix=\pgeight\fi
         \if\endrr\brseven \let\pteseven=\pgeight\fi
         \if\endrr\breight \let\pteeight=\pgeight\fi
         \if\endrr\brnine \let\ptenine=\pgeight\fi
         \if\endrr\brnull \let\ptenull=\pgeight\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pgeight\fi
         \if\endrr\brtwo \let\ptftwo=\pgeight\fi
         \if\endrr\brthree \let\ptfthree=\pgeight\fi
         \if\endrr\brfour \let\ptffour=\pgeight\fi
         \if\endrr\brfive \let\ptffive=\pgeight\fi
         \if\endrr\brsix \let\ptfsix=\pgeight\fi
         \if\endrr\brseven \let\ptfseven=\pgeight\fi
         \if\endrr\breight \let\ptfeight=\pgeight\fi
         \if\endrr\brnine \let\ptfnine=\pgeight\fi
         \if\endrr\brnull \let\ptfnull=\pgeight\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pgeight\fi
         \if\endrr\brtwo \let\ptgtwo=\pgeight\fi
         \if\endrr\brthree \let\ptgthree=\pgeight\fi
         \if\endrr\brfour \let\ptgfour=\pgeight\fi
         \if\endrr\brfive \let\ptgfive=\pgeight\fi
         \if\endrr\brsix \let\ptgsix=\pgeight\fi
         \if\endrr\brseven \let\ptgseven=\pgeight\fi
         \if\endrr\breight \let\ptgeight=\pgeight\fi
         \if\endrr\brnine \let\ptgnine=\pgeight\fi
         \if\endrr\brnull \let\ptgnull=\pgeight\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pgeight\fi
         \if\endrr\brtwo \let\pthtwo=\pgeight\fi
         \if\endrr\brthree \let\pththree=\pgeight\fi
         \if\endrr\brfour \let\pthfour=\pgeight\fi
         \if\endrr\brfive \let\pthfive=\pgeight\fi
         \if\endrr\brsix \let\pthsix=\pgeight\fi
         \if\endrr\brseven \let\pthseven=\pgeight\fi
         \if\endrr\breight \let\ptheight=\pgeight\fi
         \if\endrr\brnine \let\pthnine=\pgeight\fi
         \if\endrr\brnull \let\pthnull=\pgeight\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pgeight\fi
         \if\endrr\brtwo \let\ptitwo=\pgeight\fi
         \if\endrr\brthree \let\ptithree=\pgeight\fi
         \if\endrr\brfour \let\ptifour=\pgeight\fi
         \if\endrr\brfive \let\ptifive=\pgeight\fi
         \if\endrr\brsix \let\ptisix=\pgeight\fi
         \if\endrr\brseven \let\ptiseven=\pgeight\fi
         \if\endrr\breight \let\ptieight=\pgeight\fi
         \if\endrr\brnine \let\ptinine=\pgeight\fi
         \if\endrr\brnull \let\ptinull=\pgeight\fi\fi\fi      
   \if\startrr\brnine \gnineset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pgnine\fi
         \if\endrr\brtwo \let\ptatwo=\pgnine\fi
         \if\endrr\brthree \let\ptathree=\pgnine\fi
         \if\endrr\brfour \let\ptafour=\pgnine\fi
         \if\endrr\brfive \let\ptafive=\pgnine\fi
         \if\endrr\brsix \let\ptasix=\pgnine\fi
         \if\endrr\brseven \let\ptaseven=\pgnine\fi
         \if\endrr\breight \let\ptaeight=\pgnine\fi
         \if\endrr\brnine \let\ptanine=\pgnine\fi
         \if\endrr\brnull \let\ptanull=\pgnine\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pgnine\fi
         \if\endrr\brtwo \let\ptbtwo=\pgnine\fi
         \if\endrr\brthree \let\ptbthree=\pgnine\fi
         \if\endrr\brfour \let\ptbfour=\pgnine\fi
         \if\endrr\brfive \let\ptbfive=\pgnine\fi
         \if\endrr\brsix \let\ptbsix=\pgnine\fi
         \if\endrr\brseven \let\ptbseven=\pgnine\fi
         \if\endrr\breight \let\ptbeight=\pgnine\fi
         \if\endrr\brnine \let\ptbnine=\pgnine\fi
         \if\endrr\brnull \let\ptbnull=\pgnine\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pgnine\fi
         \if\endrr\brtwo \let\ptctwo=\pgnine\fi
         \if\endrr\brthree \let\ptcthree=\pgnine\fi
         \if\endrr\brfour \let\ptcfour=\pgnine\fi
         \if\endrr\brfive \let\ptcfive=\pgnine\fi
         \if\endrr\brsix \let\ptcsix=\pgnine\fi
         \if\endrr\brseven \let\ptcseven=\pgnine\fi
         \if\endrr\breight \let\ptceight=\pgnine\fi
         \if\endrr\brnine \let\ptcnine=\pgnine\fi
         \if\endrr\brnull \let\ptcnull=\pgnine\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pgnine\fi
         \if\endrr\brtwo \let\ptdtwo=\pgnine\fi
         \if\endrr\brthree \let\ptdthree=\pgnine\fi
         \if\endrr\brfour \let\ptdfour=\pgnine\fi
         \if\endrr\brfive \let\ptdfive=\pgnine\fi
         \if\endrr\brsix \let\ptdsix=\pgnine\fi
         \if\endrr\brseven \let\ptdseven=\pgnine\fi
         \if\endrr\breight \let\ptdeight=\pgnine\fi
         \if\endrr\brnine \let\ptdnine=\pgnine\fi
         \if\endrr\brnull \let\ptdnull=\pgnine\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pgnine\fi
         \if\endrr\brtwo \let\ptetwo=\pgnine\fi
         \if\endrr\brthree \let\ptethree=\pgnine\fi
         \if\endrr\brfour \let\ptefour=\pgnine\fi
         \if\endrr\brfive \let\ptefive=\pgnine\fi
         \if\endrr\brsix \let\ptesix=\pgnine\fi
         \if\endrr\brseven \let\pteseven=\pgnine\fi
         \if\endrr\breight \let\pteeight=\pgnine\fi
         \if\endrr\brnine \let\ptenine=\pgnine\fi
         \if\endrr\brnull \let\ptenull=\pgnine\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pgnine\fi
         \if\endrr\brtwo \let\ptftwo=\pgnine\fi
         \if\endrr\brthree \let\ptfthree=\pgnine\fi
         \if\endrr\brfour \let\ptffour=\pgnine\fi
         \if\endrr\brfive \let\ptffive=\pgnine\fi
         \if\endrr\brsix \let\ptfsix=\pgnine\fi
         \if\endrr\brseven \let\ptfseven=\pgnine\fi
         \if\endrr\breight \let\ptfeight=\pgnine\fi
         \if\endrr\brnine \let\ptfnine=\pgnine\fi
         \if\endrr\brnull \let\ptfnull=\pgnine\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pgnine\fi
         \if\endrr\brtwo \let\ptgtwo=\pgnine\fi
         \if\endrr\brthree \let\ptgthree=\pgnine\fi
         \if\endrr\brfour \let\ptgfour=\pgnine\fi
         \if\endrr\brfive \let\ptgfive=\pgnine\fi
         \if\endrr\brsix \let\ptgsix=\pgnine\fi
         \if\endrr\brseven \let\ptgseven=\pgnine\fi
         \if\endrr\breight \let\ptgeight=\pgnine\fi
         \if\endrr\brnine \let\ptgnine=\pgnine\fi
         \if\endrr\brnull \let\ptgnull=\pgnine\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pgnine\fi
         \if\endrr\brtwo \let\pthtwo=\pgnine\fi
         \if\endrr\brthree \let\pththree=\pgnine\fi
         \if\endrr\brfour \let\pthfour=\pgnine\fi
         \if\endrr\brfive \let\pthfive=\pgnine\fi
         \if\endrr\brsix \let\pthsix=\pgnine\fi
         \if\endrr\brseven \let\pthseven=\pgnine\fi
         \if\endrr\breight \let\ptheight=\pgnine\fi
         \if\endrr\brnine \let\pthnine=\pgnine\fi
         \if\endrr\brnull \let\pthnull=\pgnine\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pgnine\fi
         \if\endrr\brtwo \let\ptitwo=\pgnine\fi
         \if\endrr\brthree \let\ptithree=\pgnine\fi
         \if\endrr\brfour \let\ptifour=\pgnine\fi
         \if\endrr\brfive \let\ptifive=\pgnine\fi
         \if\endrr\brsix \let\ptisix=\pgnine\fi
         \if\endrr\brseven \let\ptiseven=\pgnine\fi
         \if\endrr\breight \let\ptieight=\pgnine\fi
         \if\endrr\brnine \let\ptinine=\pgnine\fi
         \if\endrr\brnull \let\ptinull=\pgnine\fi\fi\fi      
   \if\startrr\brnull \gnullset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pgnull\fi
         \if\endrr\brtwo \let\ptatwo=\pgnull\fi
         \if\endrr\brthree \let\ptathree=\pgnull\fi
         \if\endrr\brfour \let\ptafour=\pgnull\fi
         \if\endrr\brfive \let\ptafive=\pgnull\fi
         \if\endrr\brsix \let\ptasix=\pgnull\fi
         \if\endrr\brseven \let\ptaseven=\pgnull\fi
         \if\endrr\breight \let\ptaeight=\pgnull\fi
         \if\endrr\brnine \let\ptanine=\pgnull\fi
         \if\endrr\brnull \let\ptanull=\pgnull\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pgnull\fi
         \if\endrr\brtwo \let\ptbtwo=\pgnull\fi
         \if\endrr\brthree \let\ptbthree=\pgnull\fi
         \if\endrr\brfour \let\ptbfour=\pgnull\fi
         \if\endrr\brfive \let\ptbfive=\pgnull\fi
         \if\endrr\brsix \let\ptbsix=\pgnull\fi
         \if\endrr\brseven \let\ptbseven=\pgnull\fi
         \if\endrr\breight \let\ptbeight=\pgnull\fi
         \if\endrr\brnine \let\ptbnine=\pgnull\fi
         \if\endrr\brnull \let\ptbnull=\pgnull\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pgnull\fi
         \if\endrr\brtwo \let\ptctwo=\pgnull\fi
         \if\endrr\brthree \let\ptcthree=\pgnull\fi
         \if\endrr\brfour \let\ptcfour=\pgnull\fi
         \if\endrr\brfive \let\ptcfive=\pgnull\fi
         \if\endrr\brsix \let\ptcsix=\pgnull\fi
         \if\endrr\brseven \let\ptcseven=\pgnull\fi
         \if\endrr\breight \let\ptceight=\pgnull\fi
         \if\endrr\brnine \let\ptcnine=\pgnull\fi
         \if\endrr\brnull \let\ptcnull=\pgnull\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pgnull\fi
         \if\endrr\brtwo \let\ptdtwo=\pgnull\fi
         \if\endrr\brthree \let\ptdthree=\pgnull\fi
         \if\endrr\brfour \let\ptdfour=\pgnull\fi
         \if\endrr\brfive \let\ptdfive=\pgnull\fi
         \if\endrr\brsix \let\ptdsix=\pgnull\fi
         \if\endrr\brseven \let\ptdseven=\pgnull\fi
         \if\endrr\breight \let\ptdeight=\pgnull\fi
         \if\endrr\brnine \let\ptdnine=\pgnull\fi
         \if\endrr\brnull \let\ptdnull=\pgnull\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pgnull\fi
         \if\endrr\brtwo \let\ptetwo=\pgnull\fi
         \if\endrr\brthree \let\ptethree=\pgnull\fi
         \if\endrr\brfour \let\ptefour=\pgnull\fi
         \if\endrr\brfive \let\ptefive=\pgnull\fi
         \if\endrr\brsix \let\ptesix=\pgnull\fi
         \if\endrr\brseven \let\pteseven=\pgnull\fi
         \if\endrr\breight \let\pteeight=\pgnull\fi
         \if\endrr\brnine \let\ptenine=\pgnull\fi
         \if\endrr\brnull \let\ptenull=\pgnull\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pgnull\fi
         \if\endrr\brtwo \let\ptftwo=\pgnull\fi
         \if\endrr\brthree \let\ptfthree=\pgnull\fi
         \if\endrr\brfour \let\ptffour=\pgnull\fi
         \if\endrr\brfive \let\ptffive=\pgnull\fi
         \if\endrr\brsix \let\ptfsix=\pgnull\fi
         \if\endrr\brseven \let\ptfseven=\pgnull\fi
         \if\endrr\breight \let\ptfeight=\pgnull\fi
         \if\endrr\brnine \let\ptfnine=\pgnull\fi
         \if\endrr\brnull \let\ptfnull=\pgnull\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pgnull\fi
         \if\endrr\brtwo \let\ptgtwo=\pgnull\fi
         \if\endrr\brthree \let\ptgthree=\pgnull\fi
         \if\endrr\brfour \let\ptgfour=\pgnull\fi
         \if\endrr\brfive \let\ptgfive=\pgnull\fi
         \if\endrr\brsix \let\ptgsix=\pgnull\fi
         \if\endrr\brseven \let\ptgseven=\pgnull\fi
         \if\endrr\breight \let\ptgeight=\pgnull\fi
         \if\endrr\brnine \let\ptgnine=\pgnull\fi
         \if\endrr\brnull \let\ptgnull=\pgnull\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pgnull\fi
         \if\endrr\brtwo \let\pthtwo=\pgnull\fi
         \if\endrr\brthree \let\pththree=\pgnull\fi
         \if\endrr\brfour \let\pthfour=\pgnull\fi
         \if\endrr\brfive \let\pthfive=\pgnull\fi
         \if\endrr\brsix \let\pthsix=\pgnull\fi
         \if\endrr\brseven \let\pthseven=\pgnull\fi
         \if\endrr\breight \let\ptheight=\pgnull\fi
         \if\endrr\brnine \let\pthnine=\pgnull\fi
         \if\endrr\brnull \let\pthnull=\pgnull\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pgnull\fi
         \if\endrr\brtwo \let\ptitwo=\pgnull\fi
         \if\endrr\brthree \let\ptithree=\pgnull\fi
         \if\endrr\brfour \let\ptifour=\pgnull\fi
         \if\endrr\brfive \let\ptifive=\pgnull\fi
         \if\endrr\brsix \let\ptisix=\pgnull\fi
         \if\endrr\brseven \let\ptiseven=\pgnull\fi
         \if\endrr\breight \let\ptieight=\pgnull\fi
         \if\endrr\brnine \let\ptinine=\pgnull\fi
         \if\endrr\brnull \let\ptinull=\pgnull\fi\fi\fi\fi  
\if\startlr\hli
   \if\startrr\brone \honeset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\phone\fi
         \if\endrr\brtwo \let\ptatwo=\phone\fi
         \if\endrr\brthree \let\ptathree=\phone\fi
         \if\endrr\brfour \let\ptafour=\phone\fi
         \if\endrr\brfive \let\ptafive=\phone\fi
         \if\endrr\brsix \let\ptasix=\phone\fi
         \if\endrr\brseven \let\ptaseven=\phone\fi
         \if\endrr\breight \let\ptaeight=\phone\fi
         \if\endrr\brnine \let\ptanine=\phone\fi
         \if\endrr\brnull \let\ptanull=\phone\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\phone\fi
         \if\endrr\brtwo \let\ptbtwo=\phone\fi
         \if\endrr\brthree \let\ptbthree=\phone\fi
         \if\endrr\brfour \let\ptbfour=\phone\fi
         \if\endrr\brfive \let\ptbfive=\phone\fi
         \if\endrr\brsix \let\ptbsix=\phone\fi
         \if\endrr\brseven \let\ptbseven=\phone\fi
         \if\endrr\breight \let\ptbeight=\phone\fi
         \if\endrr\brnine \let\ptbnine=\phone\fi
         \if\endrr\brnull \let\ptbnull=\phone\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\phone\fi
         \if\endrr\brtwo \let\ptctwo=\phone\fi
         \if\endrr\brthree \let\ptcthree=\phone\fi
         \if\endrr\brfour \let\ptcfour=\phone\fi
         \if\endrr\brfive \let\ptcfive=\phone\fi
         \if\endrr\brsix \let\ptcsix=\phone\fi
         \if\endrr\brseven \let\ptcseven=\phone\fi
         \if\endrr\breight \let\ptceight=\phone\fi
         \if\endrr\brnine \let\ptcnine=\phone\fi
         \if\endrr\brnull \let\ptcnull=\phone\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\phone\fi
         \if\endrr\brtwo \let\ptdtwo=\phone\fi
         \if\endrr\brthree \let\ptdthree=\phone\fi
         \if\endrr\brfour \let\ptdfour=\phone\fi
         \if\endrr\brfive \let\ptdfive=\phone\fi
         \if\endrr\brsix \let\ptdsix=\phone\fi
         \if\endrr\brseven \let\ptdseven=\phone\fi
         \if\endrr\breight \let\ptdeight=\phone\fi
         \if\endrr\brnine \let\ptdnine=\phone\fi
         \if\endrr\brnull \let\ptdnull=\phone\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\phone\fi
         \if\endrr\brtwo \let\ptetwo=\phone\fi
         \if\endrr\brthree \let\ptethree=\phone\fi
         \if\endrr\brfour \let\ptefour=\phone\fi
         \if\endrr\brfive \let\ptefive=\phone\fi
         \if\endrr\brsix \let\ptesix=\phone\fi
         \if\endrr\brseven \let\pteseven=\phone\fi
         \if\endrr\breight \let\pteeight=\phone\fi
         \if\endrr\brnine \let\ptenine=\phone\fi
         \if\endrr\brnull \let\ptenull=\phone\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\phone\fi
         \if\endrr\brtwo \let\ptftwo=\phone\fi
         \if\endrr\brthree \let\ptfthree=\phone\fi
         \if\endrr\brfour \let\ptffour=\phone\fi
         \if\endrr\brfive \let\ptffive=\phone\fi
         \if\endrr\brsix \let\ptfsix=\phone\fi
         \if\endrr\brseven \let\ptfseven=\phone\fi
         \if\endrr\breight \let\ptfeight=\phone\fi
         \if\endrr\brnine \let\ptfnine=\phone\fi
         \if\endrr\brnull \let\ptfnull=\phone\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\phone\fi
         \if\endrr\brtwo \let\ptgtwo=\phone\fi
         \if\endrr\brthree \let\ptgthree=\phone\fi
         \if\endrr\brfour \let\ptgfour=\phone\fi
         \if\endrr\brfive \let\ptgfive=\phone\fi
         \if\endrr\brsix \let\ptgsix=\phone\fi
         \if\endrr\brseven \let\ptgseven=\phone\fi
         \if\endrr\breight \let\ptgeight=\phone\fi
         \if\endrr\brnine \let\ptgnine=\phone\fi
         \if\endrr\brnull \let\ptgnull=\phone\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\phone\fi
         \if\endrr\brtwo \let\pthtwo=\phone\fi
         \if\endrr\brthree \let\pththree=\phone\fi
         \if\endrr\brfour \let\pthfour=\phone\fi
         \if\endrr\brfive \let\pthfive=\phone\fi
         \if\endrr\brsix \let\pthsix=\phone\fi
         \if\endrr\brseven \let\pthseven=\phone\fi
         \if\endrr\breight \let\ptheight=\phone\fi
         \if\endrr\brnine \let\pthnine=\phone\fi
         \if\endrr\brnull \let\pthnull=\phone\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\phone\fi
         \if\endrr\brtwo \let\ptitwo=\phone\fi
         \if\endrr\brthree \let\ptithree=\phone\fi
         \if\endrr\brfour \let\ptifour=\phone\fi
         \if\endrr\brfive \let\ptifive=\phone\fi
         \if\endrr\brsix \let\ptisix=\phone\fi
         \if\endrr\brseven \let\ptiseven=\phone\fi
         \if\endrr\breight \let\ptieight=\phone\fi
         \if\endrr\brnine \let\ptinine=\phone\fi
         \if\endrr\brnull \let\ptinull=\phone\fi\fi\fi      
   \if\startrr\brtwo \htwoset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\phtwo\fi
         \if\endrr\brtwo \let\ptatwo=\phtwo\fi
         \if\endrr\brthree \let\ptathree=\phtwo\fi
         \if\endrr\brfour \let\ptafour=\phtwo\fi
         \if\endrr\brfive \let\ptafive=\phtwo\fi
         \if\endrr\brsix \let\ptasix=\phtwo\fi
         \if\endrr\brseven \let\ptaseven=\phtwo\fi
         \if\endrr\breight \let\ptaeight=\phtwo\fi
         \if\endrr\brnine \let\ptanine=\phtwo\fi
         \if\endrr\brnull \let\ptanull=\phtwo\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\phtwo\fi
         \if\endrr\brtwo \let\ptbtwo=\phtwo\fi
         \if\endrr\brthree \let\ptbthree=\phtwo\fi
         \if\endrr\brfour \let\ptbfour=\phtwo\fi
         \if\endrr\brfive \let\ptbfive=\phtwo\fi
         \if\endrr\brsix \let\ptbsix=\phtwo\fi
         \if\endrr\brseven \let\ptbseven=\phtwo\fi
         \if\endrr\breight \let\ptbeight=\phtwo\fi
         \if\endrr\brnine \let\ptbnine=\phtwo\fi
         \if\endrr\brnull \let\ptbnull=\phtwo\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\phtwo\fi
         \if\endrr\brtwo \let\ptctwo=\phtwo\fi
         \if\endrr\brthree \let\ptcthree=\phtwo\fi
         \if\endrr\brfour \let\ptcfour=\phtwo\fi
         \if\endrr\brfive \let\ptcfive=\phtwo\fi
         \if\endrr\brsix \let\ptcsix=\phtwo\fi
         \if\endrr\brseven \let\ptcseven=\phtwo\fi
         \if\endrr\breight \let\ptceight=\phtwo\fi
         \if\endrr\brnine \let\ptcnine=\phtwo\fi
         \if\endrr\brnull \let\ptcnull=\phtwo\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\phtwo\fi
         \if\endrr\brtwo \let\ptdtwo=\phtwo\fi
         \if\endrr\brthree \let\ptdthree=\phtwo\fi
         \if\endrr\brfour \let\ptdfour=\phtwo\fi
         \if\endrr\brfive \let\ptdfive=\phtwo\fi
         \if\endrr\brsix \let\ptdsix=\phtwo\fi
         \if\endrr\brseven \let\ptdseven=\phtwo\fi
         \if\endrr\breight \let\ptdeight=\phtwo\fi
         \if\endrr\brnine \let\ptdnine=\phtwo\fi
         \if\endrr\brnull \let\ptdnull=\phtwo\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\phtwo\fi
         \if\endrr\brtwo \let\ptetwo=\phtwo\fi
         \if\endrr\brthree \let\ptethree=\phtwo\fi
         \if\endrr\brfour \let\ptefour=\phtwo\fi
         \if\endrr\brfive \let\ptefive=\phtwo\fi
         \if\endrr\brsix \let\ptesix=\phtwo\fi
         \if\endrr\brseven \let\pteseven=\phtwo\fi
         \if\endrr\breight \let\pteeight=\phtwo\fi
         \if\endrr\brnine \let\ptenine=\phtwo\fi
         \if\endrr\brnull \let\ptenull=\phtwo\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\phtwo\fi
         \if\endrr\brtwo \let\ptftwo=\phtwo\fi
         \if\endrr\brthree \let\ptfthree=\phtwo\fi
         \if\endrr\brfour \let\ptffour=\phtwo\fi
         \if\endrr\brfive \let\ptffive=\phtwo\fi
         \if\endrr\brsix \let\ptfsix=\phtwo\fi
         \if\endrr\brseven \let\ptfseven=\phtwo\fi
         \if\endrr\breight \let\ptfeight=\phtwo\fi
         \if\endrr\brnine \let\ptfnine=\phtwo\fi
         \if\endrr\brnull \let\ptfnull=\phtwo\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\phtwo\fi
         \if\endrr\brtwo \let\ptgtwo=\phtwo\fi
         \if\endrr\brthree \let\ptgthree=\phtwo\fi
         \if\endrr\brfour \let\ptgfour=\phtwo\fi
         \if\endrr\brfive \let\ptgfive=\phtwo\fi
         \if\endrr\brsix \let\ptgsix=\phtwo\fi
         \if\endrr\brseven \let\ptgseven=\phtwo\fi
         \if\endrr\breight \let\ptgeight=\phtwo\fi
         \if\endrr\brnine \let\ptgnine=\phtwo\fi
         \if\endrr\brnull \let\ptgnull=\phtwo\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\phtwo\fi
         \if\endrr\brtwo \let\pthtwo=\phtwo\fi
         \if\endrr\brthree \let\pththree=\phtwo\fi
         \if\endrr\brfour \let\pthfour=\phtwo\fi
         \if\endrr\brfive \let\pthfive=\phtwo\fi
         \if\endrr\brsix \let\pthsix=\phtwo\fi
         \if\endrr\brseven \let\pthseven=\phtwo\fi
         \if\endrr\breight \let\ptheight=\phtwo\fi
         \if\endrr\brnine \let\pthnine=\phtwo\fi
         \if\endrr\brnull \let\pthnull=\phtwo\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\phtwo\fi
         \if\endrr\brtwo \let\ptitwo=\phtwo\fi
         \if\endrr\brthree \let\ptithree=\phtwo\fi
         \if\endrr\brfour \let\ptifour=\phtwo\fi
         \if\endrr\brfive \let\ptifive=\phtwo\fi
         \if\endrr\brsix \let\ptisix=\phtwo\fi
         \if\endrr\brseven \let\ptiseven=\phtwo\fi
         \if\endrr\breight \let\ptieight=\phtwo\fi
         \if\endrr\brnine \let\ptinine=\phtwo\fi
         \if\endrr\brnull \let\ptinull=\phtwo\fi\fi\fi
   \if\startrr\brthree \hthreeset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\phthree\fi
         \if\endrr\brtwo \let\ptatwo=\phthree\fi
         \if\endrr\brthree \let\ptathree=\phthree\fi
         \if\endrr\brfour \let\ptafour=\phthree\fi
         \if\endrr\brfive \let\ptafive=\phthree\fi
         \if\endrr\brsix \let\ptasix=\phthree\fi
         \if\endrr\brseven \let\ptaseven=\phthree\fi
         \if\endrr\breight \let\ptaeight=\phthree\fi
         \if\endrr\brnine \let\ptanine=\phthree\fi
         \if\endrr\brnull \let\ptanull=\phthree\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\phthree\fi
         \if\endrr\brtwo \let\ptbtwo=\phthree\fi
         \if\endrr\brthree \let\ptbthree=\phthree\fi
         \if\endrr\brfour \let\ptbfour=\phthree\fi
         \if\endrr\brfive \let\ptbfive=\phthree\fi
         \if\endrr\brsix \let\ptbsix=\phthree\fi
         \if\endrr\brseven \let\ptbseven=\phthree\fi
         \if\endrr\breight \let\ptbeight=\phthree\fi
         \if\endrr\brnine \let\ptbnine=\phthree\fi
         \if\endrr\brnull \let\ptbnull=\phthree\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\phthree\fi
         \if\endrr\brtwo \let\ptctwo=\phthree\fi
         \if\endrr\brthree \let\ptcthree=\phthree\fi
         \if\endrr\brfour \let\ptcfour=\phthree\fi
         \if\endrr\brfive \let\ptcfive=\phthree\fi
         \if\endrr\brsix \let\ptcsix=\phthree\fi
         \if\endrr\brseven \let\ptcseven=\phthree\fi
         \if\endrr\breight \let\ptceight=\phthree\fi
         \if\endrr\brnine \let\ptcnine=\phthree\fi
         \if\endrr\brnull \let\ptcnull=\phthree\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\phthree\fi
         \if\endrr\brtwo \let\ptdtwo=\phthree\fi
         \if\endrr\brthree \let\ptdthree=\phthree\fi
         \if\endrr\brfour \let\ptdfour=\phthree\fi
         \if\endrr\brfive \let\ptdfive=\phthree\fi
         \if\endrr\brsix \let\ptdsix=\phthree\fi
         \if\endrr\brseven \let\ptdseven=\phthree\fi
         \if\endrr\breight \let\ptdeight=\phthree\fi
         \if\endrr\brnine \let\ptdnine=\phthree\fi
         \if\endrr\brnull \let\ptdnull=\phthree\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\phthree\fi
         \if\endrr\brtwo \let\ptetwo=\phthree\fi
         \if\endrr\brthree \let\ptethree=\phthree\fi
         \if\endrr\brfour \let\ptefour=\phthree\fi
         \if\endrr\brfive \let\ptefive=\phthree\fi
         \if\endrr\brsix \let\ptesix=\phthree\fi
         \if\endrr\brseven \let\pteseven=\phthree\fi
         \if\endrr\breight \let\pteeight=\phthree\fi
         \if\endrr\brnine \let\ptenine=\phthree\fi
         \if\endrr\brnull \let\ptenull=\phthree\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\phthree\fi
         \if\endrr\brtwo \let\ptftwo=\phthree\fi
         \if\endrr\brthree \let\ptfthree=\phthree\fi
         \if\endrr\brfour \let\ptffour=\phthree\fi
         \if\endrr\brfive \let\ptffive=\phthree\fi
         \if\endrr\brsix \let\ptfsix=\phthree\fi
         \if\endrr\brseven \let\ptfseven=\phthree\fi
         \if\endrr\breight \let\ptfeight=\phthree\fi
         \if\endrr\brnine \let\ptfnine=\phthree\fi
         \if\endrr\brnull \let\ptfnull=\phthree\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\phthree\fi
         \if\endrr\brtwo \let\ptgtwo=\phthree\fi
         \if\endrr\brthree \let\ptgthree=\phthree\fi
         \if\endrr\brfour \let\ptgfour=\phthree\fi
         \if\endrr\brfive \let\ptgfive=\phthree\fi
         \if\endrr\brsix \let\ptgsix=\phthree\fi
         \if\endrr\brseven \let\ptgseven=\phthree\fi
         \if\endrr\breight \let\ptgeight=\phthree\fi
         \if\endrr\brnine \let\ptgnine=\phthree\fi
         \if\endrr\brnull \let\ptgnull=\phthree\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\phthree\fi
         \if\endrr\brtwo \let\pthtwo=\phthree\fi
         \if\endrr\brthree \let\pththree=\phthree\fi
         \if\endrr\brfour \let\pthfour=\phthree\fi
         \if\endrr\brfive \let\pthfive=\phthree\fi
         \if\endrr\brsix \let\pthsix=\phthree\fi
         \if\endrr\brseven \let\pthseven=\phthree\fi
         \if\endrr\breight \let\ptheight=\phthree\fi
         \if\endrr\brnine \let\pthnine=\phthree\fi
         \if\endrr\brnull \let\pthnull=\phthree\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\phthree\fi
         \if\endrr\brtwo \let\ptitwo=\phthree\fi
         \if\endrr\brthree \let\ptithree=\phthree\fi
         \if\endrr\brfour \let\ptifour=\phthree\fi
         \if\endrr\brfive \let\ptifive=\phthree\fi
         \if\endrr\brsix \let\ptisix=\phthree\fi
         \if\endrr\brseven \let\ptiseven=\phthree\fi
         \if\endrr\breight \let\ptieight=\phthree\fi
         \if\endrr\brnine \let\ptinine=\phthree\fi
         \if\endrr\brnull \let\ptinull=\phthree\fi\fi\fi      
   \if\startrr\brfour \hfourset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\phfour\fi
         \if\endrr\brtwo \let\ptatwo=\phfour\fi
         \if\endrr\brthree \let\ptathree=\phfour\fi
         \if\endrr\brfour \let\ptafour=\phfour\fi
         \if\endrr\brfive \let\ptafive=\phfour\fi
         \if\endrr\brsix \let\ptasix=\phfour\fi
         \if\endrr\brseven \let\ptaseven=\phfour\fi
         \if\endrr\breight \let\ptaeight=\phfour\fi
         \if\endrr\brnine \let\ptanine=\phfour\fi
         \if\endrr\brnull \let\ptanull=\phfour\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\phfour\fi
         \if\endrr\brtwo \let\ptbtwo=\phfour\fi
         \if\endrr\brthree \let\ptbthree=\phfour\fi
         \if\endrr\brfour \let\ptbfour=\phfour\fi
         \if\endrr\brfive \let\ptbfive=\phfour\fi
         \if\endrr\brsix \let\ptbsix=\phfour\fi
         \if\endrr\brseven \let\ptbseven=\phfour\fi
         \if\endrr\breight \let\ptbeight=\phfour\fi
         \if\endrr\brnine \let\ptbnine=\phfour\fi
         \if\endrr\brnull \let\ptbnull=\phfour\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\phfour\fi
         \if\endrr\brtwo \let\ptctwo=\phfour\fi
         \if\endrr\brthree \let\ptcthree=\phfour\fi
         \if\endrr\brfour \let\ptcfour=\phfour\fi
         \if\endrr\brfive \let\ptcfive=\phfour\fi
         \if\endrr\brsix \let\ptcsix=\phfour\fi
         \if\endrr\brseven \let\ptcseven=\phfour\fi
         \if\endrr\breight \let\ptceight=\phfour\fi
         \if\endrr\brnine \let\ptcnine=\phfour\fi
         \if\endrr\brnull \let\ptcnull=\phfour\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\phfour\fi
         \if\endrr\brtwo \let\ptdtwo=\phfour\fi
         \if\endrr\brthree \let\ptdthree=\phfour\fi
         \if\endrr\brfour \let\ptdfour=\phfour\fi
         \if\endrr\brfive \let\ptdfive=\phfour\fi
         \if\endrr\brsix \let\ptdsix=\phfour\fi
         \if\endrr\brseven \let\ptdseven=\phfour\fi
         \if\endrr\breight \let\ptdeight=\phfour\fi
         \if\endrr\brnine \let\ptdnine=\phfour\fi
         \if\endrr\brnull \let\ptdnull=\phfour\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\phfour\fi
         \if\endrr\brtwo \let\ptetwo=\phfour\fi
         \if\endrr\brthree \let\ptethree=\phfour\fi
         \if\endrr\brfour \let\ptefour=\phfour\fi
         \if\endrr\brfive \let\ptefive=\phfour\fi
         \if\endrr\brsix \let\ptesix=\phfour\fi
         \if\endrr\brseven \let\pteseven=\phfour\fi
         \if\endrr\breight \let\pteeight=\phfour\fi
         \if\endrr\brnine \let\ptenine=\phfour\fi
         \if\endrr\brnull \let\ptenull=\phfour\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\phfour\fi
         \if\endrr\brtwo \let\ptftwo=\phfour\fi
         \if\endrr\brthree \let\ptfthree=\phfour\fi
         \if\endrr\brfour \let\ptffour=\phfour\fi
         \if\endrr\brfive \let\ptffive=\phfour\fi
         \if\endrr\brsix \let\ptfsix=\phfour\fi
         \if\endrr\brseven \let\ptfseven=\phfour\fi
         \if\endrr\breight \let\ptfeight=\phfour\fi
         \if\endrr\brnine \let\ptfnine=\phfour\fi
         \if\endrr\brnull \let\ptfnull=\phfour\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\phfour\fi
         \if\endrr\brtwo \let\ptgtwo=\phfour\fi
         \if\endrr\brthree \let\ptgthree=\phfour\fi
         \if\endrr\brfour \let\ptgfour=\phfour\fi
         \if\endrr\brfive \let\ptgfive=\phfour\fi
         \if\endrr\brsix \let\ptgsix=\phfour\fi
         \if\endrr\brseven \let\ptgseven=\phfour\fi
         \if\endrr\breight \let\ptgeight=\phfour\fi
         \if\endrr\brnine \let\ptgnine=\phfour\fi
         \if\endrr\brnull \let\ptgnull=\phfour\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\phfour\fi
         \if\endrr\brtwo \let\pthtwo=\phfour\fi
         \if\endrr\brthree \let\pththree=\phfour\fi
         \if\endrr\brfour \let\pthfour=\phfour\fi
         \if\endrr\brfive \let\pthfive=\phfour\fi
         \if\endrr\brsix \let\pthsix=\phfour\fi
         \if\endrr\brseven \let\pthseven=\phfour\fi
         \if\endrr\breight \let\ptheight=\phfour\fi
         \if\endrr\brnine \let\pthnine=\phfour\fi
         \if\endrr\brnull \let\pthnull=\phfour\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\phfour\fi
         \if\endrr\brtwo \let\ptitwo=\phfour\fi
         \if\endrr\brthree \let\ptithree=\phfour\fi
         \if\endrr\brfour \let\ptifour=\phfour\fi
         \if\endrr\brfive \let\ptifive=\phfour\fi
         \if\endrr\brsix \let\ptisix=\phfour\fi
         \if\endrr\brseven \let\ptiseven=\phfour\fi
         \if\endrr\breight \let\ptieight=\phfour\fi
         \if\endrr\brnine \let\ptinine=\phfour\fi
         \if\endrr\brnull \let\ptinull=\phfour\fi\fi\fi      
   \if\startrr\brfive \hfiveset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\phfive\fi
         \if\endrr\brtwo \let\ptatwo=\phfive\fi
         \if\endrr\brthree \let\ptathree=\phfive\fi
         \if\endrr\brfour \let\ptafour=\phfive\fi
         \if\endrr\brfive \let\ptafive=\phfive\fi
         \if\endrr\brsix \let\ptasix=\phfive\fi
         \if\endrr\brseven \let\ptaseven=\phfive\fi
         \if\endrr\breight \let\ptaeight=\phfive\fi
         \if\endrr\brnine \let\ptanine=\phfive\fi
         \if\endrr\brnull \let\ptanull=\phfive\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\phfive\fi
         \if\endrr\brtwo \let\ptbtwo=\phfive\fi
         \if\endrr\brthree \let\ptbthree=\phfive\fi
         \if\endrr\brfour \let\ptbfour=\phfive\fi
         \if\endrr\brfive \let\ptbfive=\phfive\fi
         \if\endrr\brsix \let\ptbsix=\phfive\fi
         \if\endrr\brseven \let\ptbseven=\phfive\fi
         \if\endrr\breight \let\ptbeight=\phfive\fi
         \if\endrr\brnine \let\ptbnine=\phfive\fi
         \if\endrr\brnull \let\ptbnull=\phfive\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\phfive\fi
         \if\endrr\brtwo \let\ptctwo=\phfive\fi
         \if\endrr\brthree \let\ptcthree=\phfive\fi
         \if\endrr\brfour \let\ptcfour=\phfive\fi
         \if\endrr\brfive \let\ptcfive=\phfive\fi
         \if\endrr\brsix \let\ptcsix=\phfive\fi
         \if\endrr\brseven \let\ptcseven=\phfive\fi
         \if\endrr\breight \let\ptceight=\phfive\fi
         \if\endrr\brnine \let\ptcnine=\phfive\fi
         \if\endrr\brnull \let\ptcnull=\phfive\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\phfive\fi
         \if\endrr\brtwo \let\ptdtwo=\phfive\fi
         \if\endrr\brthree \let\ptdthree=\phfive\fi
         \if\endrr\brfour \let\ptdfour=\phfive\fi
         \if\endrr\brfive \let\ptdfive=\phfive\fi
         \if\endrr\brsix \let\ptdsix=\phfive\fi
         \if\endrr\brseven \let\ptdseven=\phfive\fi
         \if\endrr\breight \let\ptdeight=\phfive\fi
         \if\endrr\brnine \let\ptdnine=\phfive\fi
         \if\endrr\brnull \let\ptdnull=\phfive\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\phfive\fi
         \if\endrr\brtwo \let\ptetwo=\phfive\fi
         \if\endrr\brthree \let\ptethree=\phfive\fi
         \if\endrr\brfour \let\ptefour=\phfive\fi
         \if\endrr\brfive \let\ptefive=\phfive\fi
         \if\endrr\brsix \let\ptesix=\phfive\fi
         \if\endrr\brseven \let\pteseven=\phfive\fi
         \if\endrr\breight \let\pteeight=\phfive\fi
         \if\endrr\brnine \let\ptenine=\phfive\fi
         \if\endrr\brnull \let\ptenull=\phfive\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\phfive\fi
         \if\endrr\brtwo \let\ptftwo=\phfive\fi
         \if\endrr\brthree \let\ptfthree=\phfive\fi
         \if\endrr\brfour \let\ptffour=\phfive\fi
         \if\endrr\brfive \let\ptffive=\phfive\fi
         \if\endrr\brsix \let\ptfsix=\phfive\fi
         \if\endrr\brseven \let\ptfseven=\phfive\fi
         \if\endrr\breight \let\ptfeight=\phfive\fi
         \if\endrr\brnine \let\ptfnine=\phfive\fi
         \if\endrr\brnull \let\ptfnull=\phfive\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\phfive\fi
         \if\endrr\brtwo \let\ptgtwo=\phfive\fi
         \if\endrr\brthree \let\ptgthree=\phfive\fi
         \if\endrr\brfour \let\ptgfour=\phfive\fi
         \if\endrr\brfive \let\ptgfive=\phfive\fi
         \if\endrr\brsix \let\ptgsix=\phfive\fi
         \if\endrr\brseven \let\ptgseven=\phfive\fi
         \if\endrr\breight \let\ptgeight=\phfive\fi
         \if\endrr\brnine \let\ptgnine=\phfive\fi
         \if\endrr\brnull \let\ptgnull=\phfive\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\phfive\fi
         \if\endrr\brtwo \let\pthtwo=\phfive\fi
         \if\endrr\brthree \let\pththree=\phfive\fi
         \if\endrr\brfour \let\pthfour=\phfive\fi
         \if\endrr\brfive \let\pthfive=\phfive\fi
         \if\endrr\brsix \let\pthsix=\phfive\fi
         \if\endrr\brseven \let\pthseven=\phfive\fi
         \if\endrr\breight \let\ptheight=\phfive\fi
         \if\endrr\brnine \let\pthnine=\phfive\fi
         \if\endrr\brnull \let\pthnull=\phfive\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\phfive\fi
         \if\endrr\brtwo \let\ptitwo=\phfive\fi
         \if\endrr\brthree \let\ptithree=\phfive\fi
         \if\endrr\brfour \let\ptifour=\phfive\fi
         \if\endrr\brfive \let\ptifive=\phfive\fi
         \if\endrr\brsix \let\ptisix=\phfive\fi
         \if\endrr\brseven \let\ptiseven=\phfive\fi
         \if\endrr\breight \let\ptieight=\phfive\fi
         \if\endrr\brnine \let\ptinine=\phfive\fi
         \if\endrr\brnull \let\ptinull=\phfive\fi\fi\fi   
   \if\startrr\brsix \hsixset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\phsix\fi
         \if\endrr\brtwo \let\ptatwo=\phsix\fi
         \if\endrr\brthree \let\ptathree=\phsix\fi
         \if\endrr\brfour \let\ptafour=\phsix\fi
         \if\endrr\brfive \let\ptafive=\phsix\fi
         \if\endrr\brsix \let\ptasix=\phsix\fi
         \if\endrr\brseven \let\ptaseven=\phsix\fi
         \if\endrr\breight \let\ptaeight=\phsix\fi
         \if\endrr\brnine \let\ptanine=\phsix\fi
         \if\endrr\brnull \let\ptanull=\phsix\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\phsix\fi
         \if\endrr\brtwo \let\ptbtwo=\phsix\fi
         \if\endrr\brthree \let\ptbthree=\phsix\fi
         \if\endrr\brfour \let\ptbfour=\phsix\fi
         \if\endrr\brfive \let\ptbfive=\phsix\fi
         \if\endrr\brsix \let\ptbsix=\phsix\fi
         \if\endrr\brseven \let\ptbseven=\phsix\fi
         \if\endrr\breight \let\ptbeight=\phsix\fi
         \if\endrr\brnine \let\ptbnine=\phsix\fi
         \if\endrr\brnull \let\ptbnull=\phsix\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\phsix\fi
         \if\endrr\brtwo \let\ptctwo=\phsix\fi
         \if\endrr\brthree \let\ptcthree=\phsix\fi
         \if\endrr\brfour \let\ptcfour=\phsix\fi
         \if\endrr\brfive \let\ptcfive=\phsix\fi
         \if\endrr\brsix \let\ptcsix=\phsix\fi
         \if\endrr\brseven \let\ptcseven=\phsix\fi
         \if\endrr\breight \let\ptceight=\phsix\fi
         \if\endrr\brnine \let\ptcnine=\phsix\fi
         \if\endrr\brnull \let\ptcnull=\phsix\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\phsix\fi
         \if\endrr\brtwo \let\ptdtwo=\phsix\fi
         \if\endrr\brthree \let\ptdthree=\phsix\fi
         \if\endrr\brfour \let\ptdfour=\phsix\fi
         \if\endrr\brfive \let\ptdfive=\phsix\fi
         \if\endrr\brsix \let\ptdsix=\phsix\fi
         \if\endrr\brseven \let\ptdseven=\phsix\fi
         \if\endrr\breight \let\ptdeight=\phsix\fi
         \if\endrr\brnine \let\ptdnine=\phsix\fi
         \if\endrr\brnull \let\ptdnull=\phsix\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\phsix\fi
         \if\endrr\brtwo \let\ptetwo=\phsix\fi
         \if\endrr\brthree \let\ptethree=\phsix\fi
         \if\endrr\brfour \let\ptefour=\phsix\fi
         \if\endrr\brfive \let\ptefive=\phsix\fi
         \if\endrr\brsix \let\ptesix=\phsix\fi
         \if\endrr\brseven \let\pteseven=\phsix\fi
         \if\endrr\breight \let\pteeight=\phsix\fi
         \if\endrr\brnine \let\ptenine=\phsix\fi
         \if\endrr\brnull \let\ptenull=\phsix\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\phsix\fi
         \if\endrr\brtwo \let\ptftwo=\phsix\fi
         \if\endrr\brthree \let\ptfthree=\phsix\fi
         \if\endrr\brfour \let\ptffour=\phsix\fi
         \if\endrr\brfive \let\ptffive=\phsix\fi
         \if\endrr\brsix \let\ptfsix=\phsix\fi
         \if\endrr\brseven \let\ptfseven=\phsix\fi
         \if\endrr\breight \let\ptfeight=\phsix\fi
         \if\endrr\brnine \let\ptfnine=\phsix\fi
         \if\endrr\brnull \let\ptfnull=\phsix\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\phsix\fi
         \if\endrr\brtwo \let\ptgtwo=\phsix\fi
         \if\endrr\brthree \let\ptgthree=\phsix\fi
         \if\endrr\brfour \let\ptgfour=\phsix\fi
         \if\endrr\brfive \let\ptgfive=\phsix\fi
         \if\endrr\brsix \let\ptgsix=\phsix\fi
         \if\endrr\brseven \let\ptgseven=\phsix\fi
         \if\endrr\breight \let\ptgeight=\phsix\fi
         \if\endrr\brnine \let\ptgnine=\phsix\fi
         \if\endrr\brnull \let\ptgnull=\phsix\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\phsix\fi
         \if\endrr\brtwo \let\pthtwo=\phsix\fi
         \if\endrr\brthree \let\pththree=\phsix\fi
         \if\endrr\brfour \let\pthfour=\phsix\fi
         \if\endrr\brfive \let\pthfive=\phsix\fi
         \if\endrr\brsix \let\pthsix=\phsix\fi
         \if\endrr\brseven \let\pthseven=\phsix\fi
         \if\endrr\breight \let\ptheight=\phsix\fi
         \if\endrr\brnine \let\pthnine=\phsix\fi
         \if\endrr\brnull \let\pthnull=\phsix\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\phsix\fi
         \if\endrr\brtwo \let\ptitwo=\phsix\fi
         \if\endrr\brthree \let\ptithree=\phsix\fi
         \if\endrr\brfour \let\ptifour=\phsix\fi
         \if\endrr\brfive \let\ptifive=\phsix\fi
         \if\endrr\brsix \let\ptisix=\phsix\fi
         \if\endrr\brseven \let\ptiseven=\phsix\fi
         \if\endrr\breight \let\ptieight=\phsix\fi
         \if\endrr\brnine \let\ptinine=\phsix\fi
         \if\endrr\brnull \let\ptinull=\phsix\fi\fi\fi
   \if\startrr\brseven \hsevenset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\phseven\fi
         \if\endrr\brtwo \let\ptatwo=\phseven\fi
         \if\endrr\brthree \let\ptathree=\phseven\fi
         \if\endrr\brfour \let\ptafour=\phseven\fi
         \if\endrr\brfive \let\ptafive=\phseven\fi
         \if\endrr\brsix \let\ptasix=\phseven\fi
         \if\endrr\brseven \let\ptaseven=\phseven\fi
         \if\endrr\breight \let\ptaeight=\phseven\fi
         \if\endrr\brnine \let\ptanine=\phseven\fi
         \if\endrr\brnull \let\ptanull=\phseven\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\phseven\fi
         \if\endrr\brtwo \let\ptbtwo=\phseven\fi
         \if\endrr\brthree \let\ptbthree=\phseven\fi
         \if\endrr\brfour \let\ptbfour=\phseven\fi
         \if\endrr\brfive \let\ptbfive=\phseven\fi
         \if\endrr\brsix \let\ptbsix=\phseven\fi
         \if\endrr\brseven \let\ptbseven=\phseven\fi
         \if\endrr\breight \let\ptbeight=\phseven\fi
         \if\endrr\brnine \let\ptbnine=\phseven\fi
         \if\endrr\brnull \let\ptbnull=\phseven\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\phseven\fi
         \if\endrr\brtwo \let\ptctwo=\phseven\fi
         \if\endrr\brthree \let\ptcthree=\phseven\fi
         \if\endrr\brfour \let\ptcfour=\phseven\fi
         \if\endrr\brfive \let\ptcfive=\phseven\fi
         \if\endrr\brsix \let\ptcsix=\phseven\fi
         \if\endrr\brseven \let\ptcseven=\phseven\fi
         \if\endrr\breight \let\ptceight=\phseven\fi
         \if\endrr\brnine \let\ptcnine=\phseven\fi
         \if\endrr\brnull \let\ptcnull=\phseven\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\phseven\fi
         \if\endrr\brtwo \let\ptdtwo=\phseven\fi
         \if\endrr\brthree \let\ptdthree=\phseven\fi
         \if\endrr\brfour \let\ptdfour=\phseven\fi
         \if\endrr\brfive \let\ptdfive=\phseven\fi
         \if\endrr\brsix \let\ptdsix=\phseven\fi
         \if\endrr\brseven \let\ptdseven=\phseven\fi
         \if\endrr\breight \let\ptdeight=\phseven\fi
         \if\endrr\brnine \let\ptdnine=\phseven\fi
         \if\endrr\brnull \let\ptdnull=\phseven\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\phseven\fi
         \if\endrr\brtwo \let\ptetwo=\phseven\fi
         \if\endrr\brthree \let\ptethree=\phseven\fi
         \if\endrr\brfour \let\ptefour=\phseven\fi
         \if\endrr\brfive \let\ptefive=\phseven\fi
         \if\endrr\brsix \let\ptesix=\phseven\fi
         \if\endrr\brseven \let\pteseven=\phseven\fi
         \if\endrr\breight \let\pteeight=\phseven\fi
         \if\endrr\brnine \let\ptenine=\phseven\fi
         \if\endrr\brnull \let\ptenull=\phseven\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\phseven\fi
         \if\endrr\brtwo \let\ptftwo=\phseven\fi
         \if\endrr\brthree \let\ptfthree=\phseven\fi
         \if\endrr\brfour \let\ptffour=\phseven\fi
         \if\endrr\brfive \let\ptffive=\phseven\fi
         \if\endrr\brsix \let\ptfsix=\phseven\fi
         \if\endrr\brseven \let\ptfseven=\phseven\fi
         \if\endrr\breight \let\ptfeight=\phseven\fi
         \if\endrr\brnine \let\ptfnine=\phseven\fi
         \if\endrr\brnull \let\ptfnull=\phseven\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\phseven\fi
         \if\endrr\brtwo \let\ptgtwo=\phseven\fi
         \if\endrr\brthree \let\ptgthree=\phseven\fi
         \if\endrr\brfour \let\ptgfour=\phseven\fi
         \if\endrr\brfive \let\ptgfive=\phseven\fi
         \if\endrr\brsix \let\ptgsix=\phseven\fi
         \if\endrr\brseven \let\ptgseven=\phseven\fi
         \if\endrr\breight \let\ptgeight=\phseven\fi
         \if\endrr\brnine \let\ptgnine=\phseven\fi
         \if\endrr\brnull \let\ptgnull=\phseven\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\phseven\fi
         \if\endrr\brtwo \let\pthtwo=\phseven\fi
         \if\endrr\brthree \let\pththree=\phseven\fi
         \if\endrr\brfour \let\pthfour=\phseven\fi
         \if\endrr\brfive \let\pthfive=\phseven\fi
         \if\endrr\brsix \let\pthsix=\phseven\fi
         \if\endrr\brseven \let\pthseven=\phseven\fi
         \if\endrr\breight \let\ptheight=\phseven\fi
         \if\endrr\brnine \let\pthnine=\phseven\fi
         \if\endrr\brnull \let\pthnull=\phseven\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\phseven\fi
         \if\endrr\brtwo \let\ptitwo=\phseven\fi
         \if\endrr\brthree \let\ptithree=\phseven\fi
         \if\endrr\brfour \let\ptifour=\phseven\fi
         \if\endrr\brfive \let\ptifive=\phseven\fi
         \if\endrr\brsix \let\ptisix=\phseven\fi
         \if\endrr\brseven \let\ptiseven=\phseven\fi
         \if\endrr\breight \let\ptieight=\phseven\fi
         \if\endrr\brnine \let\ptinine=\phseven\fi
         \if\endrr\brnull \let\ptinull=\phseven\fi\fi\fi      
   \if\startrr\breight \heightset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pheight\fi
         \if\endrr\brtwo \let\ptatwo=\pheight\fi
         \if\endrr\brthree \let\ptathree=\pheight\fi
         \if\endrr\brfour \let\ptafour=\pheight\fi
         \if\endrr\brfive \let\ptafive=\pheight\fi
         \if\endrr\brsix \let\ptasix=\pheight\fi
         \if\endrr\brseven \let\ptaseven=\pheight\fi
         \if\endrr\breight \let\ptaeight=\pheight\fi
         \if\endrr\brnine \let\ptanine=\pheight\fi
         \if\endrr\brnull \let\ptanull=\pheight\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pheight\fi
         \if\endrr\brtwo \let\ptbtwo=\pheight\fi
         \if\endrr\brthree \let\ptbthree=\pheight\fi
         \if\endrr\brfour \let\ptbfour=\pheight\fi
         \if\endrr\brfive \let\ptbfive=\pheight\fi
         \if\endrr\brsix \let\ptbsix=\pheight\fi
         \if\endrr\brseven \let\ptbseven=\pheight\fi
         \if\endrr\breight \let\ptbeight=\pheight\fi
         \if\endrr\brnine \let\ptbnine=\pheight\fi
         \if\endrr\brnull \let\ptbnull=\pheight\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pheight\fi
         \if\endrr\brtwo \let\ptctwo=\pheight\fi
         \if\endrr\brthree \let\ptcthree=\pheight\fi
         \if\endrr\brfour \let\ptcfour=\pheight\fi
         \if\endrr\brfive \let\ptcfive=\pheight\fi
         \if\endrr\brsix \let\ptcsix=\pheight\fi
         \if\endrr\brseven \let\ptcseven=\pheight\fi
         \if\endrr\breight \let\ptceight=\pheight\fi
         \if\endrr\brnine \let\ptcnine=\pheight\fi
         \if\endrr\brnull \let\ptcnull=\pheight\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pheight\fi
         \if\endrr\brtwo \let\ptdtwo=\pheight\fi
         \if\endrr\brthree \let\ptdthree=\pheight\fi
         \if\endrr\brfour \let\ptdfour=\pheight\fi
         \if\endrr\brfive \let\ptdfive=\pheight\fi
         \if\endrr\brsix \let\ptdsix=\pheight\fi
         \if\endrr\brseven \let\ptdseven=\pheight\fi
         \if\endrr\breight \let\ptdeight=\pheight\fi
         \if\endrr\brnine \let\ptdnine=\pheight\fi
         \if\endrr\brnull \let\ptdnull=\pheight\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pheight\fi
         \if\endrr\brtwo \let\ptetwo=\pheight\fi
         \if\endrr\brthree \let\ptethree=\pheight\fi
         \if\endrr\brfour \let\ptefour=\pheight\fi
         \if\endrr\brfive \let\ptefive=\pheight\fi
         \if\endrr\brsix \let\ptesix=\pheight\fi
         \if\endrr\brseven \let\pteseven=\pheight\fi
         \if\endrr\breight \let\pteeight=\pheight\fi
         \if\endrr\brnine \let\ptenine=\pheight\fi
         \if\endrr\brnull \let\ptenull=\pheight\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pheight\fi
         \if\endrr\brtwo \let\ptftwo=\pheight\fi
         \if\endrr\brthree \let\ptfthree=\pheight\fi
         \if\endrr\brfour \let\ptffour=\pheight\fi
         \if\endrr\brfive \let\ptffive=\pheight\fi
         \if\endrr\brsix \let\ptfsix=\pheight\fi
         \if\endrr\brseven \let\ptfseven=\pheight\fi
         \if\endrr\breight \let\ptfeight=\pheight\fi
         \if\endrr\brnine \let\ptfnine=\pheight\fi
         \if\endrr\brnull \let\ptfnull=\pheight\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pheight\fi
         \if\endrr\brtwo \let\ptgtwo=\pheight\fi
         \if\endrr\brthree \let\ptgthree=\pheight\fi
         \if\endrr\brfour \let\ptgfour=\pheight\fi
         \if\endrr\brfive \let\ptgfive=\pheight\fi
         \if\endrr\brsix \let\ptgsix=\pheight\fi
         \if\endrr\brseven \let\ptgseven=\pheight\fi
         \if\endrr\breight \let\ptgeight=\pheight\fi
         \if\endrr\brnine \let\ptgnine=\pheight\fi
         \if\endrr\brnull \let\ptgnull=\pheight\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pheight\fi
         \if\endrr\brtwo \let\pthtwo=\pheight\fi
         \if\endrr\brthree \let\pththree=\pheight\fi
         \if\endrr\brfour \let\pthfour=\pheight\fi
         \if\endrr\brfive \let\pthfive=\pheight\fi
         \if\endrr\brsix \let\pthsix=\pheight\fi
         \if\endrr\brseven \let\pthseven=\pheight\fi
         \if\endrr\breight \let\ptheight=\pheight\fi
         \if\endrr\brnine \let\pthnine=\pheight\fi
         \if\endrr\brnull \let\pthnull=\pheight\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pheight\fi
         \if\endrr\brtwo \let\ptitwo=\pheight\fi
         \if\endrr\brthree \let\ptithree=\pheight\fi
         \if\endrr\brfour \let\ptifour=\pheight\fi
         \if\endrr\brfive \let\ptifive=\pheight\fi
         \if\endrr\brsix \let\ptisix=\pheight\fi
         \if\endrr\brseven \let\ptiseven=\pheight\fi
         \if\endrr\breight \let\ptieight=\pheight\fi
         \if\endrr\brnine \let\ptinine=\pheight\fi
         \if\endrr\brnull \let\ptinull=\pheight\fi\fi\fi      
   \if\startrr\brnine \hnineset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\phnine\fi
         \if\endrr\brtwo \let\ptatwo=\phnine\fi
         \if\endrr\brthree \let\ptathree=\phnine\fi
         \if\endrr\brfour \let\ptafour=\phnine\fi
         \if\endrr\brfive \let\ptafive=\phnine\fi
         \if\endrr\brsix \let\ptasix=\phnine\fi
         \if\endrr\brseven \let\ptaseven=\phnine\fi
         \if\endrr\breight \let\ptaeight=\phnine\fi
         \if\endrr\brnine \let\ptanine=\phnine\fi
         \if\endrr\brnull \let\ptanull=\phnine\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\phnine\fi
         \if\endrr\brtwo \let\ptbtwo=\phnine\fi
         \if\endrr\brthree \let\ptbthree=\phnine\fi
         \if\endrr\brfour \let\ptbfour=\phnine\fi
         \if\endrr\brfive \let\ptbfive=\phnine\fi
         \if\endrr\brsix \let\ptbsix=\phnine\fi
         \if\endrr\brseven \let\ptbseven=\phnine\fi
         \if\endrr\breight \let\ptbeight=\phnine\fi
         \if\endrr\brnine \let\ptbnine=\phnine\fi
         \if\endrr\brnull \let\ptbnull=\phnine\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\phnine\fi
         \if\endrr\brtwo \let\ptctwo=\phnine\fi
         \if\endrr\brthree \let\ptcthree=\phnine\fi
         \if\endrr\brfour \let\ptcfour=\phnine\fi
         \if\endrr\brfive \let\ptcfive=\phnine\fi
         \if\endrr\brsix \let\ptcsix=\phnine\fi
         \if\endrr\brseven \let\ptcseven=\phnine\fi
         \if\endrr\breight \let\ptceight=\phnine\fi
         \if\endrr\brnine \let\ptcnine=\phnine\fi
         \if\endrr\brnull \let\ptcnull=\phnine\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\phnine\fi
         \if\endrr\brtwo \let\ptdtwo=\phnine\fi
         \if\endrr\brthree \let\ptdthree=\phnine\fi
         \if\endrr\brfour \let\ptdfour=\phnine\fi
         \if\endrr\brfive \let\ptdfive=\phnine\fi
         \if\endrr\brsix \let\ptdsix=\phnine\fi
         \if\endrr\brseven \let\ptdseven=\phnine\fi
         \if\endrr\breight \let\ptdeight=\phnine\fi
         \if\endrr\brnine \let\ptdnine=\phnine\fi
         \if\endrr\brnull \let\ptdnull=\phnine\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\phnine\fi
         \if\endrr\brtwo \let\ptetwo=\phnine\fi
         \if\endrr\brthree \let\ptethree=\phnine\fi
         \if\endrr\brfour \let\ptefour=\phnine\fi
         \if\endrr\brfive \let\ptefive=\phnine\fi
         \if\endrr\brsix \let\ptesix=\phnine\fi
         \if\endrr\brseven \let\pteseven=\phnine\fi
         \if\endrr\breight \let\pteeight=\phnine\fi
         \if\endrr\brnine \let\ptenine=\phnine\fi
         \if\endrr\brnull \let\ptenull=\phnine\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\phnine\fi
         \if\endrr\brtwo \let\ptftwo=\phnine\fi
         \if\endrr\brthree \let\ptfthree=\phnine\fi
         \if\endrr\brfour \let\ptffour=\phnine\fi
         \if\endrr\brfive \let\ptffive=\phnine\fi
         \if\endrr\brsix \let\ptfsix=\phnine\fi
         \if\endrr\brseven \let\ptfseven=\phnine\fi
         \if\endrr\breight \let\ptfeight=\phnine\fi
         \if\endrr\brnine \let\ptfnine=\phnine\fi
         \if\endrr\brnull \let\ptfnull=\phnine\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\phnine\fi
         \if\endrr\brtwo \let\ptgtwo=\phnine\fi
         \if\endrr\brthree \let\ptgthree=\phnine\fi
         \if\endrr\brfour \let\ptgfour=\phnine\fi
         \if\endrr\brfive \let\ptgfive=\phnine\fi
         \if\endrr\brsix \let\ptgsix=\phnine\fi
         \if\endrr\brseven \let\ptgseven=\phnine\fi
         \if\endrr\breight \let\ptgeight=\phnine\fi
         \if\endrr\brnine \let\ptgnine=\phnine\fi
         \if\endrr\brnull \let\ptgnull=\phnine\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\phnine\fi
         \if\endrr\brtwo \let\pthtwo=\phnine\fi
         \if\endrr\brthree \let\pththree=\phnine\fi
         \if\endrr\brfour \let\pthfour=\phnine\fi
         \if\endrr\brfive \let\pthfive=\phnine\fi
         \if\endrr\brsix \let\pthsix=\phnine\fi
         \if\endrr\brseven \let\pthseven=\phnine\fi
         \if\endrr\breight \let\ptheight=\phnine\fi
         \if\endrr\brnine \let\pthnine=\phnine\fi
         \if\endrr\brnull \let\pthnull=\phnine\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\phnine\fi
         \if\endrr\brtwo \let\ptitwo=\phnine\fi
         \if\endrr\brthree \let\ptithree=\phnine\fi
         \if\endrr\brfour \let\ptifour=\phnine\fi
         \if\endrr\brfive \let\ptifive=\phnine\fi
         \if\endrr\brsix \let\ptisix=\phnine\fi
         \if\endrr\brseven \let\ptiseven=\phnine\fi
         \if\endrr\breight \let\ptieight=\phnine\fi
         \if\endrr\brnine \let\ptinine=\phnine\fi
         \if\endrr\brnull \let\ptinull=\phnine\fi\fi\fi      
   \if\startrr\brnull \hnullset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\phnull\fi
         \if\endrr\brtwo \let\ptatwo=\phnull\fi
         \if\endrr\brthree \let\ptathree=\phnull\fi
         \if\endrr\brfour \let\ptafour=\phnull\fi
         \if\endrr\brfive \let\ptafive=\phnull\fi
         \if\endrr\brsix \let\ptasix=\phnull\fi
         \if\endrr\brseven \let\ptaseven=\phnull\fi
         \if\endrr\breight \let\ptaeight=\phnull\fi
         \if\endrr\brnine \let\ptanine=\phnull\fi
         \if\endrr\brnull \let\ptanull=\phnull\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\phnull\fi
         \if\endrr\brtwo \let\ptbtwo=\phnull\fi
         \if\endrr\brthree \let\ptbthree=\phnull\fi
         \if\endrr\brfour \let\ptbfour=\phnull\fi
         \if\endrr\brfive \let\ptbfive=\phnull\fi
         \if\endrr\brsix \let\ptbsix=\phnull\fi
         \if\endrr\brseven \let\ptbseven=\phnull\fi
         \if\endrr\breight \let\ptbeight=\phnull\fi
         \if\endrr\brnine \let\ptbnine=\phnull\fi
         \if\endrr\brnull \let\ptbnull=\phnull\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\phnull\fi
         \if\endrr\brtwo \let\ptctwo=\phnull\fi
         \if\endrr\brthree \let\ptcthree=\phnull\fi
         \if\endrr\brfour \let\ptcfour=\phnull\fi
         \if\endrr\brfive \let\ptcfive=\phnull\fi
         \if\endrr\brsix \let\ptcsix=\phnull\fi
         \if\endrr\brseven \let\ptcseven=\phnull\fi
         \if\endrr\breight \let\ptceight=\phnull\fi
         \if\endrr\brnine \let\ptcnine=\phnull\fi
         \if\endrr\brnull \let\ptcnull=\phnull\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\phnull\fi
         \if\endrr\brtwo \let\ptdtwo=\phnull\fi
         \if\endrr\brthree \let\ptdthree=\phnull\fi
         \if\endrr\brfour \let\ptdfour=\phnull\fi
         \if\endrr\brfive \let\ptdfive=\phnull\fi
         \if\endrr\brsix \let\ptdsix=\phnull\fi
         \if\endrr\brseven \let\ptdseven=\phnull\fi
         \if\endrr\breight \let\ptdeight=\phnull\fi
         \if\endrr\brnine \let\ptdnine=\phnull\fi
         \if\endrr\brnull \let\ptdnull=\phnull\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\phnull\fi
         \if\endrr\brtwo \let\ptetwo=\phnull\fi
         \if\endrr\brthree \let\ptethree=\phnull\fi
         \if\endrr\brfour \let\ptefour=\phnull\fi
         \if\endrr\brfive \let\ptefive=\phnull\fi
         \if\endrr\brsix \let\ptesix=\phnull\fi
         \if\endrr\brseven \let\pteseven=\phnull\fi
         \if\endrr\breight \let\pteeight=\phnull\fi
         \if\endrr\brnine \let\ptenine=\phnull\fi
         \if\endrr\brnull \let\ptenull=\phnull\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\phnull\fi
         \if\endrr\brtwo \let\ptftwo=\phnull\fi
         \if\endrr\brthree \let\ptfthree=\phnull\fi
         \if\endrr\brfour \let\ptffour=\phnull\fi
         \if\endrr\brfive \let\ptffive=\phnull\fi
         \if\endrr\brsix \let\ptfsix=\phnull\fi
         \if\endrr\brseven \let\ptfseven=\phnull\fi
         \if\endrr\breight \let\ptfeight=\phnull\fi
         \if\endrr\brnine \let\ptfnine=\phnull\fi
         \if\endrr\brnull \let\ptfnull=\phnull\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\phnull\fi
         \if\endrr\brtwo \let\ptgtwo=\phnull\fi
         \if\endrr\brthree \let\ptgthree=\phnull\fi
         \if\endrr\brfour \let\ptgfour=\phnull\fi
         \if\endrr\brfive \let\ptgfive=\phnull\fi
         \if\endrr\brsix \let\ptgsix=\phnull\fi
         \if\endrr\brseven \let\ptgseven=\phnull\fi
         \if\endrr\breight \let\ptgeight=\phnull\fi
         \if\endrr\brnine \let\ptgnine=\phnull\fi
         \if\endrr\brnull \let\ptgnull=\phnull\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\phnull\fi
         \if\endrr\brtwo \let\pthtwo=\phnull\fi
         \if\endrr\brthree \let\pththree=\phnull\fi
         \if\endrr\brfour \let\pthfour=\phnull\fi
         \if\endrr\brfive \let\pthfive=\phnull\fi
         \if\endrr\brsix \let\pthsix=\phnull\fi
         \if\endrr\brseven \let\pthseven=\phnull\fi
         \if\endrr\breight \let\ptheight=\phnull\fi
         \if\endrr\brnine \let\pthnine=\phnull\fi
         \if\endrr\brnull \let\pthnull=\phnull\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\phnull\fi
         \if\endrr\brtwo \let\ptitwo=\phnull\fi
         \if\endrr\brthree \let\ptithree=\phnull\fi
         \if\endrr\brfour \let\ptifour=\phnull\fi
         \if\endrr\brfive \let\ptifive=\phnull\fi
         \if\endrr\brsix \let\ptisix=\phnull\fi
         \if\endrr\brseven \let\ptiseven=\phnull\fi
         \if\endrr\breight \let\ptieight=\phnull\fi
         \if\endrr\brnine \let\ptinine=\phnull\fi
         \if\endrr\brnull \let\ptinull=\phnull\fi\fi\fi\fi  
\if\startlr\ili
   \if\startrr\brone \ioneset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pione\fi
         \if\endrr\brtwo \let\ptatwo=\pione\fi
         \if\endrr\brthree \let\ptathree=\pione\fi
         \if\endrr\brfour \let\ptafour=\pione\fi
         \if\endrr\brfive \let\ptafive=\pione\fi
         \if\endrr\brsix \let\ptasix=\pione\fi
         \if\endrr\brseven \let\ptaseven=\pione\fi
         \if\endrr\breight \let\ptaeight=\pione\fi
         \if\endrr\brnine \let\ptanine=\pione\fi
         \if\endrr\brnull \let\ptanull=\pione\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pione\fi
         \if\endrr\brtwo \let\ptbtwo=\pione\fi
         \if\endrr\brthree \let\ptbthree=\pione\fi
         \if\endrr\brfour \let\ptbfour=\pione\fi
         \if\endrr\brfive \let\ptbfive=\pione\fi
         \if\endrr\brsix \let\ptbsix=\pione\fi
         \if\endrr\brseven \let\ptbseven=\pione\fi
         \if\endrr\breight \let\ptbeight=\pione\fi
         \if\endrr\brnine \let\ptbnine=\pione\fi
         \if\endrr\brnull \let\ptbnull=\pione\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pione\fi
         \if\endrr\brtwo \let\ptctwo=\pione\fi
         \if\endrr\brthree \let\ptcthree=\pione\fi
         \if\endrr\brfour \let\ptcfour=\pione\fi
         \if\endrr\brfive \let\ptcfive=\pione\fi
         \if\endrr\brsix \let\ptcsix=\pione\fi
         \if\endrr\brseven \let\ptcseven=\pione\fi
         \if\endrr\breight \let\ptceight=\pione\fi
         \if\endrr\brnine \let\ptcnine=\pione\fi
         \if\endrr\brnull \let\ptcnull=\pione\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pione\fi
         \if\endrr\brtwo \let\ptdtwo=\pione\fi
         \if\endrr\brthree \let\ptdthree=\pione\fi
         \if\endrr\brfour \let\ptdfour=\pione\fi
         \if\endrr\brfive \let\ptdfive=\pione\fi
         \if\endrr\brsix \let\ptdsix=\pione\fi
         \if\endrr\brseven \let\ptdseven=\pione\fi
         \if\endrr\breight \let\ptdeight=\pione\fi
         \if\endrr\brnine \let\ptdnine=\pione\fi
         \if\endrr\brnull \let\ptdnull=\pione\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pione\fi
         \if\endrr\brtwo \let\ptetwo=\pione\fi
         \if\endrr\brthree \let\ptethree=\pione\fi
         \if\endrr\brfour \let\ptefour=\pione\fi
         \if\endrr\brfive \let\ptefive=\pione\fi
         \if\endrr\brsix \let\ptesix=\pione\fi
         \if\endrr\brseven \let\pteseven=\pione\fi
         \if\endrr\breight \let\pteeight=\pione\fi
         \if\endrr\brnine \let\ptenine=\pione\fi
         \if\endrr\brnull \let\ptenull=\pione\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pione\fi
         \if\endrr\brtwo \let\ptftwo=\pione\fi
         \if\endrr\brthree \let\ptfthree=\pione\fi
         \if\endrr\brfour \let\ptffour=\pione\fi
         \if\endrr\brfive \let\ptffive=\pione\fi
         \if\endrr\brsix \let\ptfsix=\pione\fi
         \if\endrr\brseven \let\ptfseven=\pione\fi
         \if\endrr\breight \let\ptfeight=\pione\fi
         \if\endrr\brnine \let\ptfnine=\pione\fi
         \if\endrr\brnull \let\ptfnull=\pione\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pione\fi
         \if\endrr\brtwo \let\ptgtwo=\pione\fi
         \if\endrr\brthree \let\ptgthree=\pione\fi
         \if\endrr\brfour \let\ptgfour=\pione\fi
         \if\endrr\brfive \let\ptgfive=\pione\fi
         \if\endrr\brsix \let\ptgsix=\pione\fi
         \if\endrr\brseven \let\ptgseven=\pione\fi
         \if\endrr\breight \let\ptgeight=\pione\fi
         \if\endrr\brnine \let\ptgnine=\pione\fi
         \if\endrr\brnull \let\ptgnull=\pione\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pione\fi
         \if\endrr\brtwo \let\pthtwo=\pione\fi
         \if\endrr\brthree \let\pththree=\pione\fi
         \if\endrr\brfour \let\pthfour=\pione\fi
         \if\endrr\brfive \let\pthfive=\pione\fi
         \if\endrr\brsix \let\pthsix=\pione\fi
         \if\endrr\brseven \let\pthseven=\pione\fi
         \if\endrr\breight \let\ptheight=\pione\fi
         \if\endrr\brnine \let\pthnine=\pione\fi
         \if\endrr\brnull \let\pthnull=\pione\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pione\fi
         \if\endrr\brtwo \let\ptitwo=\pione\fi
         \if\endrr\brthree \let\ptithree=\pione\fi
         \if\endrr\brfour \let\ptifour=\pione\fi
         \if\endrr\brfive \let\ptifive=\pione\fi
         \if\endrr\brsix \let\ptisix=\pione\fi
         \if\endrr\brseven \let\ptiseven=\pione\fi
         \if\endrr\breight \let\ptieight=\pione\fi
         \if\endrr\brnine \let\ptinine=\pione\fi
         \if\endrr\brnull \let\ptinull=\pione\fi\fi\fi      
   \if\startrr\brtwo \itwoset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pitwo\fi
         \if\endrr\brtwo \let\ptatwo=\pitwo\fi
         \if\endrr\brthree \let\ptathree=\pitwo\fi
         \if\endrr\brfour \let\ptafour=\pitwo\fi
         \if\endrr\brfive \let\ptafive=\pitwo\fi
         \if\endrr\brsix \let\ptasix=\pitwo\fi
         \if\endrr\brseven \let\ptaseven=\pitwo\fi
         \if\endrr\breight \let\ptaeight=\pitwo\fi
         \if\endrr\brnine \let\ptanine=\pitwo\fi
         \if\endrr\brnull \let\ptanull=\pitwo\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pitwo\fi
         \if\endrr\brtwo \let\ptbtwo=\pitwo\fi
         \if\endrr\brthree \let\ptbthree=\pitwo\fi
         \if\endrr\brfour \let\ptbfour=\pitwo\fi
         \if\endrr\brfive \let\ptbfive=\pitwo\fi
         \if\endrr\brsix \let\ptbsix=\pitwo\fi
         \if\endrr\brseven \let\ptbseven=\pitwo\fi
         \if\endrr\breight \let\ptbeight=\pitwo\fi
         \if\endrr\brnine \let\ptbnine=\pitwo\fi
         \if\endrr\brnull \let\ptbnull=\pitwo\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pitwo\fi
         \if\endrr\brtwo \let\ptctwo=\pitwo\fi
         \if\endrr\brthree \let\ptcthree=\pitwo\fi
         \if\endrr\brfour \let\ptcfour=\pitwo\fi
         \if\endrr\brfive \let\ptcfive=\pitwo\fi
         \if\endrr\brsix \let\ptcsix=\pitwo\fi
         \if\endrr\brseven \let\ptcseven=\pitwo\fi
         \if\endrr\breight \let\ptceight=\pitwo\fi
         \if\endrr\brnine \let\ptcnine=\pitwo\fi
         \if\endrr\brnull \let\ptcnull=\pitwo\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pitwo\fi
         \if\endrr\brtwo \let\ptdtwo=\pitwo\fi
         \if\endrr\brthree \let\ptdthree=\pitwo\fi
         \if\endrr\brfour \let\ptdfour=\pitwo\fi
         \if\endrr\brfive \let\ptdfive=\pitwo\fi
         \if\endrr\brsix \let\ptdsix=\pitwo\fi
         \if\endrr\brseven \let\ptdseven=\pitwo\fi
         \if\endrr\breight \let\ptdeight=\pitwo\fi
         \if\endrr\brnine \let\ptdnine=\pitwo\fi
         \if\endrr\brnull \let\ptdnull=\pitwo\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pitwo\fi
         \if\endrr\brtwo \let\ptetwo=\pitwo\fi
         \if\endrr\brthree \let\ptethree=\pitwo\fi
         \if\endrr\brfour \let\ptefour=\pitwo\fi
         \if\endrr\brfive \let\ptefive=\pitwo\fi
         \if\endrr\brsix \let\ptesix=\pitwo\fi
         \if\endrr\brseven \let\pteseven=\pitwo\fi
         \if\endrr\breight \let\pteeight=\pitwo\fi
         \if\endrr\brnine \let\ptenine=\pitwo\fi
         \if\endrr\brnull \let\ptenull=\pitwo\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pitwo\fi
         \if\endrr\brtwo \let\ptftwo=\pitwo\fi
         \if\endrr\brthree \let\ptfthree=\pitwo\fi
         \if\endrr\brfour \let\ptffour=\pitwo\fi
         \if\endrr\brfive \let\ptffive=\pitwo\fi
         \if\endrr\brsix \let\ptfsix=\pitwo\fi
         \if\endrr\brseven \let\ptfseven=\pitwo\fi
         \if\endrr\breight \let\ptfeight=\pitwo\fi
         \if\endrr\brnine \let\ptfnine=\pitwo\fi
         \if\endrr\brnull \let\ptfnull=\pitwo\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pitwo\fi
         \if\endrr\brtwo \let\ptgtwo=\pitwo\fi
         \if\endrr\brthree \let\ptgthree=\pitwo\fi
         \if\endrr\brfour \let\ptgfour=\pitwo\fi
         \if\endrr\brfive \let\ptgfive=\pitwo\fi
         \if\endrr\brsix \let\ptgsix=\pitwo\fi
         \if\endrr\brseven \let\ptgseven=\pitwo\fi
         \if\endrr\breight \let\ptgeight=\pitwo\fi
         \if\endrr\brnine \let\ptgnine=\pitwo\fi
         \if\endrr\brnull \let\ptgnull=\pitwo\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pitwo\fi
         \if\endrr\brtwo \let\pthtwo=\pitwo\fi
         \if\endrr\brthree \let\pththree=\pitwo\fi
         \if\endrr\brfour \let\pthfour=\pitwo\fi
         \if\endrr\brfive \let\pthfive=\pitwo\fi
         \if\endrr\brsix \let\pthsix=\pitwo\fi
         \if\endrr\brseven \let\pthseven=\pitwo\fi
         \if\endrr\breight \let\ptheight=\pitwo\fi
         \if\endrr\brnine \let\pthnine=\pitwo\fi
         \if\endrr\brnull \let\pthnull=\pitwo\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pitwo\fi
         \if\endrr\brtwo \let\ptitwo=\pitwo\fi
         \if\endrr\brthree \let\ptithree=\pitwo\fi
         \if\endrr\brfour \let\ptifour=\pitwo\fi
         \if\endrr\brfive \let\ptifive=\pitwo\fi
         \if\endrr\brsix \let\ptisix=\pitwo\fi
         \if\endrr\brseven \let\ptiseven=\pitwo\fi
         \if\endrr\breight \let\ptieight=\pitwo\fi
         \if\endrr\brnine \let\ptinine=\pitwo\fi
         \if\endrr\brnull \let\ptinull=\pitwo\fi\fi\fi
   \if\startrr\brthree \ithreeset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pithree\fi
         \if\endrr\brtwo \let\ptatwo=\pithree\fi
         \if\endrr\brthree \let\ptathree=\pithree\fi
         \if\endrr\brfour \let\ptafour=\pithree\fi
         \if\endrr\brfive \let\ptafive=\pithree\fi
         \if\endrr\brsix \let\ptasix=\pithree\fi
         \if\endrr\brseven \let\ptaseven=\pithree\fi
         \if\endrr\breight \let\ptaeight=\pithree\fi
         \if\endrr\brnine \let\ptanine=\pithree\fi
         \if\endrr\brnull \let\ptanull=\pithree\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pithree\fi
         \if\endrr\brtwo \let\ptbtwo=\pithree\fi
         \if\endrr\brthree \let\ptbthree=\pithree\fi
         \if\endrr\brfour \let\ptbfour=\pithree\fi
         \if\endrr\brfive \let\ptbfive=\pithree\fi
         \if\endrr\brsix \let\ptbsix=\pithree\fi
         \if\endrr\brseven \let\ptbseven=\pithree\fi
         \if\endrr\breight \let\ptbeight=\pithree\fi
         \if\endrr\brnine \let\ptbnine=\pithree\fi
         \if\endrr\brnull \let\ptbnull=\pithree\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pithree\fi
         \if\endrr\brtwo \let\ptctwo=\pithree\fi
         \if\endrr\brthree \let\ptcthree=\pithree\fi
         \if\endrr\brfour \let\ptcfour=\pithree\fi
         \if\endrr\brfive \let\ptcfive=\pithree\fi
         \if\endrr\brsix \let\ptcsix=\pithree\fi
         \if\endrr\brseven \let\ptcseven=\pithree\fi
         \if\endrr\breight \let\ptceight=\pithree\fi
         \if\endrr\brnine \let\ptcnine=\pithree\fi
         \if\endrr\brnull \let\ptcnull=\pithree\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pithree\fi
         \if\endrr\brtwo \let\ptdtwo=\pithree\fi
         \if\endrr\brthree \let\ptdthree=\pithree\fi
         \if\endrr\brfour \let\ptdfour=\pithree\fi
         \if\endrr\brfive \let\ptdfive=\pithree\fi
         \if\endrr\brsix \let\ptdsix=\pithree\fi
         \if\endrr\brseven \let\ptdseven=\pithree\fi
         \if\endrr\breight \let\ptdeight=\pithree\fi
         \if\endrr\brnine \let\ptdnine=\pithree\fi
         \if\endrr\brnull \let\ptdnull=\pithree\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pithree\fi
         \if\endrr\brtwo \let\ptetwo=\pithree\fi
         \if\endrr\brthree \let\ptethree=\pithree\fi
         \if\endrr\brfour \let\ptefour=\pithree\fi
         \if\endrr\brfive \let\ptefive=\pithree\fi
         \if\endrr\brsix \let\ptesix=\pithree\fi
         \if\endrr\brseven \let\pteseven=\pithree\fi
         \if\endrr\breight \let\pteeight=\pithree\fi
         \if\endrr\brnine \let\ptenine=\pithree\fi
         \if\endrr\brnull \let\ptenull=\pithree\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pithree\fi
         \if\endrr\brtwo \let\ptftwo=\pithree\fi
         \if\endrr\brthree \let\ptfthree=\pithree\fi
         \if\endrr\brfour \let\ptffour=\pithree\fi
         \if\endrr\brfive \let\ptffive=\pithree\fi
         \if\endrr\brsix \let\ptfsix=\pithree\fi
         \if\endrr\brseven \let\ptfseven=\pithree\fi
         \if\endrr\breight \let\ptfeight=\pithree\fi
         \if\endrr\brnine \let\ptfnine=\pithree\fi
         \if\endrr\brnull \let\ptfnull=\pithree\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pithree\fi
         \if\endrr\brtwo \let\ptgtwo=\pithree\fi
         \if\endrr\brthree \let\ptgthree=\pithree\fi
         \if\endrr\brfour \let\ptgfour=\pithree\fi
         \if\endrr\brfive \let\ptgfive=\pithree\fi
         \if\endrr\brsix \let\ptgsix=\pithree\fi
         \if\endrr\brseven \let\ptgseven=\pithree\fi
         \if\endrr\breight \let\ptgeight=\pithree\fi
         \if\endrr\brnine \let\ptgnine=\pithree\fi
         \if\endrr\brnull \let\ptgnull=\pithree\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pithree\fi
         \if\endrr\brtwo \let\pthtwo=\pithree\fi
         \if\endrr\brthree \let\pththree=\pithree\fi
         \if\endrr\brfour \let\pthfour=\pithree\fi
         \if\endrr\brfive \let\pthfive=\pithree\fi
         \if\endrr\brsix \let\pthsix=\pithree\fi
         \if\endrr\brseven \let\pthseven=\pithree\fi
         \if\endrr\breight \let\ptheight=\pithree\fi
         \if\endrr\brnine \let\pthnine=\pithree\fi
         \if\endrr\brnull \let\pthnull=\pithree\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pithree\fi
         \if\endrr\brtwo \let\ptitwo=\pithree\fi
         \if\endrr\brthree \let\ptithree=\pithree\fi
         \if\endrr\brfour \let\ptifour=\pithree\fi
         \if\endrr\brfive \let\ptifive=\pithree\fi
         \if\endrr\brsix \let\ptisix=\pithree\fi
         \if\endrr\brseven \let\ptiseven=\pithree\fi
         \if\endrr\breight \let\ptieight=\pithree\fi
         \if\endrr\brnine \let\ptinine=\pithree\fi
         \if\endrr\brnull \let\ptinull=\pithree\fi\fi\fi      
   \if\startrr\brfour \ifourset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pifour\fi
         \if\endrr\brtwo \let\ptatwo=\pifour\fi
         \if\endrr\brthree \let\ptathree=\pifour\fi
         \if\endrr\brfour \let\ptafour=\pifour\fi
         \if\endrr\brfive \let\ptafive=\pifour\fi
         \if\endrr\brsix \let\ptasix=\pifour\fi
         \if\endrr\brseven \let\ptaseven=\pifour\fi
         \if\endrr\breight \let\ptaeight=\pifour\fi
         \if\endrr\brnine \let\ptanine=\pifour\fi
         \if\endrr\brnull \let\ptanull=\pifour\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pifour\fi
         \if\endrr\brtwo \let\ptbtwo=\pifour\fi
         \if\endrr\brthree \let\ptbthree=\pifour\fi
         \if\endrr\brfour \let\ptbfour=\pifour\fi
         \if\endrr\brfive \let\ptbfive=\pifour\fi
         \if\endrr\brsix \let\ptbsix=\pifour\fi
         \if\endrr\brseven \let\ptbseven=\pifour\fi
         \if\endrr\breight \let\ptbeight=\pifour\fi
         \if\endrr\brnine \let\ptbnine=\pifour\fi
         \if\endrr\brnull \let\ptbnull=\pifour\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pifour\fi
         \if\endrr\brtwo \let\ptctwo=\pifour\fi
         \if\endrr\brthree \let\ptcthree=\pifour\fi
         \if\endrr\brfour \let\ptcfour=\pifour\fi
         \if\endrr\brfive \let\ptcfive=\pifour\fi
         \if\endrr\brsix \let\ptcsix=\pifour\fi
         \if\endrr\brseven \let\ptcseven=\pifour\fi
         \if\endrr\breight \let\ptceight=\pifour\fi
         \if\endrr\brnine \let\ptcnine=\pifour\fi
         \if\endrr\brnull \let\ptcnull=\pifour\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pifour\fi
         \if\endrr\brtwo \let\ptdtwo=\pifour\fi
         \if\endrr\brthree \let\ptdthree=\pifour\fi
         \if\endrr\brfour \let\ptdfour=\pifour\fi
         \if\endrr\brfive \let\ptdfive=\pifour\fi
         \if\endrr\brsix \let\ptdsix=\pifour\fi
         \if\endrr\brseven \let\ptdseven=\pifour\fi
         \if\endrr\breight \let\ptdeight=\pifour\fi
         \if\endrr\brnine \let\ptdnine=\pifour\fi
         \if\endrr\brnull \let\ptdnull=\pifour\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pifour\fi
         \if\endrr\brtwo \let\ptetwo=\pifour\fi
         \if\endrr\brthree \let\ptethree=\pifour\fi
         \if\endrr\brfour \let\ptefour=\pifour\fi
         \if\endrr\brfive \let\ptefive=\pifour\fi
         \if\endrr\brsix \let\ptesix=\pifour\fi
         \if\endrr\brseven \let\pteseven=\pifour\fi
         \if\endrr\breight \let\pteeight=\pifour\fi
         \if\endrr\brnine \let\ptenine=\pifour\fi
         \if\endrr\brnull \let\ptenull=\pifour\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pifour\fi
         \if\endrr\brtwo \let\ptftwo=\pifour\fi
         \if\endrr\brthree \let\ptfthree=\pifour\fi
         \if\endrr\brfour \let\ptffour=\pifour\fi
         \if\endrr\brfive \let\ptffive=\pifour\fi
         \if\endrr\brsix \let\ptfsix=\pifour\fi
         \if\endrr\brseven \let\ptfseven=\pifour\fi
         \if\endrr\breight \let\ptfeight=\pifour\fi
         \if\endrr\brnine \let\ptfnine=\pifour\fi
         \if\endrr\brnull \let\ptfnull=\pifour\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pifour\fi
         \if\endrr\brtwo \let\ptgtwo=\pifour\fi
         \if\endrr\brthree \let\ptgthree=\pifour\fi
         \if\endrr\brfour \let\ptgfour=\pifour\fi
         \if\endrr\brfive \let\ptgfive=\pifour\fi
         \if\endrr\brsix \let\ptgsix=\pifour\fi
         \if\endrr\brseven \let\ptgseven=\pifour\fi
         \if\endrr\breight \let\ptgeight=\pifour\fi
         \if\endrr\brnine \let\ptgnine=\pifour\fi
         \if\endrr\brnull \let\ptgnull=\pifour\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pifour\fi
         \if\endrr\brtwo \let\pthtwo=\pifour\fi
         \if\endrr\brthree \let\pththree=\pifour\fi
         \if\endrr\brfour \let\pthfour=\pifour\fi
         \if\endrr\brfive \let\pthfive=\pifour\fi
         \if\endrr\brsix \let\pthsix=\pifour\fi
         \if\endrr\brseven \let\pthseven=\pifour\fi
         \if\endrr\breight \let\ptheight=\pifour\fi
         \if\endrr\brnine \let\pthnine=\pifour\fi
         \if\endrr\brnull \let\pthnull=\pifour\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pifour\fi
         \if\endrr\brtwo \let\ptitwo=\pifour\fi
         \if\endrr\brthree \let\ptithree=\pifour\fi
         \if\endrr\brfour \let\ptifour=\pifour\fi
         \if\endrr\brfive \let\ptifive=\pifour\fi
         \if\endrr\brsix \let\ptisix=\pifour\fi
         \if\endrr\brseven \let\ptiseven=\pifour\fi
         \if\endrr\breight \let\ptieight=\pifour\fi
         \if\endrr\brnine \let\ptinine=\pifour\fi
         \if\endrr\brnull \let\ptinull=\pifour\fi\fi\fi      
   \if\startrr\brfive \ifiveset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pifive\fi
         \if\endrr\brtwo \let\ptatwo=\pifive\fi
         \if\endrr\brthree \let\ptathree=\pifive\fi
         \if\endrr\brfour \let\ptafour=\pifive\fi
         \if\endrr\brfive \let\ptafive=\pifive\fi
         \if\endrr\brsix \let\ptasix=\pifive\fi
         \if\endrr\brseven \let\ptaseven=\pifive\fi
         \if\endrr\breight \let\ptaeight=\pifive\fi
         \if\endrr\brnine \let\ptanine=\pifive\fi
         \if\endrr\brnull \let\ptanull=\pifive\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pifive\fi
         \if\endrr\brtwo \let\ptbtwo=\pifive\fi
         \if\endrr\brthree \let\ptbthree=\pifive\fi
         \if\endrr\brfour \let\ptbfour=\pifive\fi
         \if\endrr\brfive \let\ptbfive=\pifive\fi
         \if\endrr\brsix \let\ptbsix=\pifive\fi
         \if\endrr\brseven \let\ptbseven=\pifive\fi
         \if\endrr\breight \let\ptbeight=\pifive\fi
         \if\endrr\brnine \let\ptbnine=\pifive\fi
         \if\endrr\brnull \let\ptbnull=\pifive\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pifive\fi
         \if\endrr\brtwo \let\ptctwo=\pifive\fi
         \if\endrr\brthree \let\ptcthree=\pifive\fi
         \if\endrr\brfour \let\ptcfour=\pifive\fi
         \if\endrr\brfive \let\ptcfive=\pifive\fi
         \if\endrr\brsix \let\ptcsix=\pifive\fi
         \if\endrr\brseven \let\ptcseven=\pifive\fi
         \if\endrr\breight \let\ptceight=\pifive\fi
         \if\endrr\brnine \let\ptcnine=\pifive\fi
         \if\endrr\brnull \let\ptcnull=\pifive\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pifive\fi
         \if\endrr\brtwo \let\ptdtwo=\pifive\fi
         \if\endrr\brthree \let\ptdthree=\pifive\fi
         \if\endrr\brfour \let\ptdfour=\pifive\fi
         \if\endrr\brfive \let\ptdfive=\pifive\fi
         \if\endrr\brsix \let\ptdsix=\pifive\fi
         \if\endrr\brseven \let\ptdseven=\pifive\fi
         \if\endrr\breight \let\ptdeight=\pifive\fi
         \if\endrr\brnine \let\ptdnine=\pifive\fi
         \if\endrr\brnull \let\ptdnull=\pifive\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pifive\fi
         \if\endrr\brtwo \let\ptetwo=\pifive\fi
         \if\endrr\brthree \let\ptethree=\pifive\fi
         \if\endrr\brfour \let\ptefour=\pifive\fi
         \if\endrr\brfive \let\ptefive=\pifive\fi
         \if\endrr\brsix \let\ptesix=\pifive\fi
         \if\endrr\brseven \let\pteseven=\pifive\fi
         \if\endrr\breight \let\pteeight=\pifive\fi
         \if\endrr\brnine \let\ptenine=\pifive\fi
         \if\endrr\brnull \let\ptenull=\pifive\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pifive\fi
         \if\endrr\brtwo \let\ptftwo=\pifive\fi
         \if\endrr\brthree \let\ptfthree=\pifive\fi
         \if\endrr\brfour \let\ptffour=\pifive\fi
         \if\endrr\brfive \let\ptffive=\pifive\fi
         \if\endrr\brsix \let\ptfsix=\pifive\fi
         \if\endrr\brseven \let\ptfseven=\pifive\fi
         \if\endrr\breight \let\ptfeight=\pifive\fi
         \if\endrr\brnine \let\ptfnine=\pifive\fi
         \if\endrr\brnull \let\ptfnull=\pifive\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pifive\fi
         \if\endrr\brtwo \let\ptgtwo=\pifive\fi
         \if\endrr\brthree \let\ptgthree=\pifive\fi
         \if\endrr\brfour \let\ptgfour=\pifive\fi
         \if\endrr\brfive \let\ptgfive=\pifive\fi
         \if\endrr\brsix \let\ptgsix=\pifive\fi
         \if\endrr\brseven \let\ptgseven=\pifive\fi
         \if\endrr\breight \let\ptgeight=\pifive\fi
         \if\endrr\brnine \let\ptgnine=\pifive\fi
         \if\endrr\brnull \let\ptgnull=\pifive\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pifive\fi
         \if\endrr\brtwo \let\pthtwo=\pifive\fi
         \if\endrr\brthree \let\pththree=\pifive\fi
         \if\endrr\brfour \let\pthfour=\pifive\fi
         \if\endrr\brfive \let\pthfive=\pifive\fi
         \if\endrr\brsix \let\pthsix=\pifive\fi
         \if\endrr\brseven \let\pthseven=\pifive\fi
         \if\endrr\breight \let\ptheight=\pifive\fi
         \if\endrr\brnine \let\pthnine=\pifive\fi
         \if\endrr\brnull \let\pthnull=\pifive\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pifive\fi
         \if\endrr\brtwo \let\ptitwo=\pifive\fi
         \if\endrr\brthree \let\ptithree=\pifive\fi
         \if\endrr\brfour \let\ptifour=\pifive\fi
         \if\endrr\brfive \let\ptifive=\pifive\fi
         \if\endrr\brsix \let\ptisix=\pifive\fi
         \if\endrr\brseven \let\ptiseven=\pifive\fi
         \if\endrr\breight \let\ptieight=\pifive\fi
         \if\endrr\brnine \let\ptinine=\pifive\fi
         \if\endrr\brnull \let\ptinull=\pifive\fi\fi\fi   
   \if\startrr\brsix \isixset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pisix\fi
         \if\endrr\brtwo \let\ptatwo=\pisix\fi
         \if\endrr\brthree \let\ptathree=\pisix\fi
         \if\endrr\brfour \let\ptafour=\pisix\fi
         \if\endrr\brfive \let\ptafive=\pisix\fi
         \if\endrr\brsix \let\ptasix=\pisix\fi
         \if\endrr\brseven \let\ptaseven=\pisix\fi
         \if\endrr\breight \let\ptaeight=\pisix\fi
         \if\endrr\brnine \let\ptanine=\pisix\fi
         \if\endrr\brnull \let\ptanull=\pisix\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pisix\fi
         \if\endrr\brtwo \let\ptbtwo=\pisix\fi
         \if\endrr\brthree \let\ptbthree=\pisix\fi
         \if\endrr\brfour \let\ptbfour=\pisix\fi
         \if\endrr\brfive \let\ptbfive=\pisix\fi
         \if\endrr\brsix \let\ptbsix=\pisix\fi
         \if\endrr\brseven \let\ptbseven=\pisix\fi
         \if\endrr\breight \let\ptbeight=\pisix\fi
         \if\endrr\brnine \let\ptbnine=\pisix\fi
         \if\endrr\brnull \let\ptbnull=\pisix\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pisix\fi
         \if\endrr\brtwo \let\ptctwo=\pisix\fi
         \if\endrr\brthree \let\ptcthree=\pisix\fi
         \if\endrr\brfour \let\ptcfour=\pisix\fi
         \if\endrr\brfive \let\ptcfive=\pisix\fi
         \if\endrr\brsix \let\ptcsix=\pisix\fi
         \if\endrr\brseven \let\ptcseven=\pisix\fi
         \if\endrr\breight \let\ptceight=\pisix\fi
         \if\endrr\brnine \let\ptcnine=\pisix\fi
         \if\endrr\brnull \let\ptcnull=\pisix\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pisix\fi
         \if\endrr\brtwo \let\ptdtwo=\pisix\fi
         \if\endrr\brthree \let\ptdthree=\pisix\fi
         \if\endrr\brfour \let\ptdfour=\pisix\fi
         \if\endrr\brfive \let\ptdfive=\pisix\fi
         \if\endrr\brsix \let\ptdsix=\pisix\fi
         \if\endrr\brseven \let\ptdseven=\pisix\fi
         \if\endrr\breight \let\ptdeight=\pisix\fi
         \if\endrr\brnine \let\ptdnine=\pisix\fi
         \if\endrr\brnull \let\ptdnull=\pisix\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pisix\fi
         \if\endrr\brtwo \let\ptetwo=\pisix\fi
         \if\endrr\brthree \let\ptethree=\pisix\fi
         \if\endrr\brfour \let\ptefour=\pisix\fi
         \if\endrr\brfive \let\ptefive=\pisix\fi
         \if\endrr\brsix \let\ptesix=\pisix\fi
         \if\endrr\brseven \let\pteseven=\pisix\fi
         \if\endrr\breight \let\pteeight=\pisix\fi
         \if\endrr\brnine \let\ptenine=\pisix\fi
         \if\endrr\brnull \let\ptenull=\pisix\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pisix\fi
         \if\endrr\brtwo \let\ptftwo=\pisix\fi
         \if\endrr\brthree \let\ptfthree=\pisix\fi
         \if\endrr\brfour \let\ptffour=\pisix\fi
         \if\endrr\brfive \let\ptffive=\pisix\fi
         \if\endrr\brsix \let\ptfsix=\pisix\fi
         \if\endrr\brseven \let\ptfseven=\pisix\fi
         \if\endrr\breight \let\ptfeight=\pisix\fi
         \if\endrr\brnine \let\ptfnine=\pisix\fi
         \if\endrr\brnull \let\ptfnull=\pisix\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pisix\fi
         \if\endrr\brtwo \let\ptgtwo=\pisix\fi
         \if\endrr\brthree \let\ptgthree=\pisix\fi
         \if\endrr\brfour \let\ptgfour=\pisix\fi
         \if\endrr\brfive \let\ptgfive=\pisix\fi
         \if\endrr\brsix \let\ptgsix=\pisix\fi
         \if\endrr\brseven \let\ptgseven=\pisix\fi
         \if\endrr\breight \let\ptgeight=\pisix\fi
         \if\endrr\brnine \let\ptgnine=\pisix\fi
         \if\endrr\brnull \let\ptgnull=\pisix\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pisix\fi
         \if\endrr\brtwo \let\pthtwo=\pisix\fi
         \if\endrr\brthree \let\pththree=\pisix\fi
         \if\endrr\brfour \let\pthfour=\pisix\fi
         \if\endrr\brfive \let\pthfive=\pisix\fi
         \if\endrr\brsix \let\pthsix=\pisix\fi
         \if\endrr\brseven \let\pthseven=\pisix\fi
         \if\endrr\breight \let\ptheight=\pisix\fi
         \if\endrr\brnine \let\pthnine=\pisix\fi
         \if\endrr\brnull \let\pthnull=\pisix\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pisix\fi
         \if\endrr\brtwo \let\ptitwo=\pisix\fi
         \if\endrr\brthree \let\ptithree=\pisix\fi
         \if\endrr\brfour \let\ptifour=\pisix\fi
         \if\endrr\brfive \let\ptifive=\pisix\fi
         \if\endrr\brsix \let\ptisix=\pisix\fi
         \if\endrr\brseven \let\ptiseven=\pisix\fi
         \if\endrr\breight \let\ptieight=\pisix\fi
         \if\endrr\brnine \let\ptinine=\pisix\fi
         \if\endrr\brnull \let\ptinull=\pisix\fi\fi\fi
   \if\startrr\brseven \isevenset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\piseven\fi
         \if\endrr\brtwo \let\ptatwo=\piseven\fi
         \if\endrr\brthree \let\ptathree=\piseven\fi
         \if\endrr\brfour \let\ptafour=\piseven\fi
         \if\endrr\brfive \let\ptafive=\piseven\fi
         \if\endrr\brsix \let\ptasix=\piseven\fi
         \if\endrr\brseven \let\ptaseven=\piseven\fi
         \if\endrr\breight \let\ptaeight=\piseven\fi
         \if\endrr\brnine \let\ptanine=\piseven\fi
         \if\endrr\brnull \let\ptanull=\piseven\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\piseven\fi
         \if\endrr\brtwo \let\ptbtwo=\piseven\fi
         \if\endrr\brthree \let\ptbthree=\piseven\fi
         \if\endrr\brfour \let\ptbfour=\piseven\fi
         \if\endrr\brfive \let\ptbfive=\piseven\fi
         \if\endrr\brsix \let\ptbsix=\piseven\fi
         \if\endrr\brseven \let\ptbseven=\piseven\fi
         \if\endrr\breight \let\ptbeight=\piseven\fi
         \if\endrr\brnine \let\ptbnine=\piseven\fi
         \if\endrr\brnull \let\ptbnull=\piseven\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\piseven\fi
         \if\endrr\brtwo \let\ptctwo=\piseven\fi
         \if\endrr\brthree \let\ptcthree=\piseven\fi
         \if\endrr\brfour \let\ptcfour=\piseven\fi
         \if\endrr\brfive \let\ptcfive=\piseven\fi
         \if\endrr\brsix \let\ptcsix=\piseven\fi
         \if\endrr\brseven \let\ptcseven=\piseven\fi
         \if\endrr\breight \let\ptceight=\piseven\fi
         \if\endrr\brnine \let\ptcnine=\piseven\fi
         \if\endrr\brnull \let\ptcnull=\piseven\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\piseven\fi
         \if\endrr\brtwo \let\ptdtwo=\piseven\fi
         \if\endrr\brthree \let\ptdthree=\piseven\fi
         \if\endrr\brfour \let\ptdfour=\piseven\fi
         \if\endrr\brfive \let\ptdfive=\piseven\fi
         \if\endrr\brsix \let\ptdsix=\piseven\fi
         \if\endrr\brseven \let\ptdseven=\piseven\fi
         \if\endrr\breight \let\ptdeight=\piseven\fi
         \if\endrr\brnine \let\ptdnine=\piseven\fi
         \if\endrr\brnull \let\ptdnull=\piseven\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\piseven\fi
         \if\endrr\brtwo \let\ptetwo=\piseven\fi
         \if\endrr\brthree \let\ptethree=\piseven\fi
         \if\endrr\brfour \let\ptefour=\piseven\fi
         \if\endrr\brfive \let\ptefive=\piseven\fi
         \if\endrr\brsix \let\ptesix=\piseven\fi
         \if\endrr\brseven \let\pteseven=\piseven\fi
         \if\endrr\breight \let\pteeight=\piseven\fi
         \if\endrr\brnine \let\ptenine=\piseven\fi
         \if\endrr\brnull \let\ptenull=\piseven\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\piseven\fi
         \if\endrr\brtwo \let\ptftwo=\piseven\fi
         \if\endrr\brthree \let\ptfthree=\piseven\fi
         \if\endrr\brfour \let\ptffour=\piseven\fi
         \if\endrr\brfive \let\ptffive=\piseven\fi
         \if\endrr\brsix \let\ptfsix=\piseven\fi
         \if\endrr\brseven \let\ptfseven=\piseven\fi
         \if\endrr\breight \let\ptfeight=\piseven\fi
         \if\endrr\brnine \let\ptfnine=\piseven\fi
         \if\endrr\brnull \let\ptfnull=\piseven\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\piseven\fi
         \if\endrr\brtwo \let\ptgtwo=\piseven\fi
         \if\endrr\brthree \let\ptgthree=\piseven\fi
         \if\endrr\brfour \let\ptgfour=\piseven\fi
         \if\endrr\brfive \let\ptgfive=\piseven\fi
         \if\endrr\brsix \let\ptgsix=\piseven\fi
         \if\endrr\brseven \let\ptgseven=\piseven\fi
         \if\endrr\breight \let\ptgeight=\piseven\fi
         \if\endrr\brnine \let\ptgnine=\piseven\fi
         \if\endrr\brnull \let\ptgnull=\piseven\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\piseven\fi
         \if\endrr\brtwo \let\pthtwo=\piseven\fi
         \if\endrr\brthree \let\pththree=\piseven\fi
         \if\endrr\brfour \let\pthfour=\piseven\fi
         \if\endrr\brfive \let\pthfive=\piseven\fi
         \if\endrr\brsix \let\pthsix=\piseven\fi
         \if\endrr\brseven \let\pthseven=\piseven\fi
         \if\endrr\breight \let\ptheight=\piseven\fi
         \if\endrr\brnine \let\pthnine=\piseven\fi
         \if\endrr\brnull \let\pthnull=\piseven\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\piseven\fi
         \if\endrr\brtwo \let\ptitwo=\piseven\fi
         \if\endrr\brthree \let\ptithree=\piseven\fi
         \if\endrr\brfour \let\ptifour=\piseven\fi
         \if\endrr\brfive \let\ptifive=\piseven\fi
         \if\endrr\brsix \let\ptisix=\piseven\fi
         \if\endrr\brseven \let\ptiseven=\piseven\fi
         \if\endrr\breight \let\ptieight=\piseven\fi
         \if\endrr\brnine \let\ptinine=\piseven\fi
         \if\endrr\brnull \let\ptinull=\piseven\fi\fi\fi      
   \if\startrr\breight \ieightset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pieight\fi
         \if\endrr\brtwo \let\ptatwo=\pieight\fi
         \if\endrr\brthree \let\ptathree=\pieight\fi
         \if\endrr\brfour \let\ptafour=\pieight\fi
         \if\endrr\brfive \let\ptafive=\pieight\fi
         \if\endrr\brsix \let\ptasix=\pieight\fi
         \if\endrr\brseven \let\ptaseven=\pieight\fi
         \if\endrr\breight \let\ptaeight=\pieight\fi
         \if\endrr\brnine \let\ptanine=\pieight\fi
         \if\endrr\brnull \let\ptanull=\pieight\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pieight\fi
         \if\endrr\brtwo \let\ptbtwo=\pieight\fi
         \if\endrr\brthree \let\ptbthree=\pieight\fi
         \if\endrr\brfour \let\ptbfour=\pieight\fi
         \if\endrr\brfive \let\ptbfive=\pieight\fi
         \if\endrr\brsix \let\ptbsix=\pieight\fi
         \if\endrr\brseven \let\ptbseven=\pieight\fi
         \if\endrr\breight \let\ptbeight=\pieight\fi
         \if\endrr\brnine \let\ptbnine=\pieight\fi
         \if\endrr\brnull \let\ptbnull=\pieight\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pieight\fi
         \if\endrr\brtwo \let\ptctwo=\pieight\fi
         \if\endrr\brthree \let\ptcthree=\pieight\fi
         \if\endrr\brfour \let\ptcfour=\pieight\fi
         \if\endrr\brfive \let\ptcfive=\pieight\fi
         \if\endrr\brsix \let\ptcsix=\pieight\fi
         \if\endrr\brseven \let\ptcseven=\pieight\fi
         \if\endrr\breight \let\ptceight=\pieight\fi
         \if\endrr\brnine \let\ptcnine=\pieight\fi
         \if\endrr\brnull \let\ptcnull=\pieight\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pieight\fi
         \if\endrr\brtwo \let\ptdtwo=\pieight\fi
         \if\endrr\brthree \let\ptdthree=\pieight\fi
         \if\endrr\brfour \let\ptdfour=\pieight\fi
         \if\endrr\brfive \let\ptdfive=\pieight\fi
         \if\endrr\brsix \let\ptdsix=\pieight\fi
         \if\endrr\brseven \let\ptdseven=\pieight\fi
         \if\endrr\breight \let\ptdeight=\pieight\fi
         \if\endrr\brnine \let\ptdnine=\pieight\fi
         \if\endrr\brnull \let\ptdnull=\pieight\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pieight\fi
         \if\endrr\brtwo \let\ptetwo=\pieight\fi
         \if\endrr\brthree \let\ptethree=\pieight\fi
         \if\endrr\brfour \let\ptefour=\pieight\fi
         \if\endrr\brfive \let\ptefive=\pieight\fi
         \if\endrr\brsix \let\ptesix=\pieight\fi
         \if\endrr\brseven \let\pteseven=\pieight\fi
         \if\endrr\breight \let\pteeight=\pieight\fi
         \if\endrr\brnine \let\ptenine=\pieight\fi
         \if\endrr\brnull \let\ptenull=\pieight\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pieight\fi
         \if\endrr\brtwo \let\ptftwo=\pieight\fi
         \if\endrr\brthree \let\ptfthree=\pieight\fi
         \if\endrr\brfour \let\ptffour=\pieight\fi
         \if\endrr\brfive \let\ptffive=\pieight\fi
         \if\endrr\brsix \let\ptfsix=\pieight\fi
         \if\endrr\brseven \let\ptfseven=\pieight\fi
         \if\endrr\breight \let\ptfeight=\pieight\fi
         \if\endrr\brnine \let\ptfnine=\pieight\fi
         \if\endrr\brnull \let\ptfnull=\pieight\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pieight\fi
         \if\endrr\brtwo \let\ptgtwo=\pieight\fi
         \if\endrr\brthree \let\ptgthree=\pieight\fi
         \if\endrr\brfour \let\ptgfour=\pieight\fi
         \if\endrr\brfive \let\ptgfive=\pieight\fi
         \if\endrr\brsix \let\ptgsix=\pieight\fi
         \if\endrr\brseven \let\ptgseven=\pieight\fi
         \if\endrr\breight \let\ptgeight=\pieight\fi
         \if\endrr\brnine \let\ptgnine=\pieight\fi
         \if\endrr\brnull \let\ptgnull=\pieight\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pieight\fi
         \if\endrr\brtwo \let\pthtwo=\pieight\fi
         \if\endrr\brthree \let\pththree=\pieight\fi
         \if\endrr\brfour \let\pthfour=\pieight\fi
         \if\endrr\brfive \let\pthfive=\pieight\fi
         \if\endrr\brsix \let\pthsix=\pieight\fi
         \if\endrr\brseven \let\pthseven=\pieight\fi
         \if\endrr\breight \let\ptheight=\pieight\fi
         \if\endrr\brnine \let\pthnine=\pieight\fi
         \if\endrr\brnull \let\pthnull=\pieight\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pieight\fi
         \if\endrr\brtwo \let\ptitwo=\pieight\fi
         \if\endrr\brthree \let\ptithree=\pieight\fi
         \if\endrr\brfour \let\ptifour=\pieight\fi
         \if\endrr\brfive \let\ptifive=\pieight\fi
         \if\endrr\brsix \let\ptisix=\pieight\fi
         \if\endrr\brseven \let\ptiseven=\pieight\fi
         \if\endrr\breight \let\ptieight=\pieight\fi
         \if\endrr\brnine \let\ptinine=\pieight\fi
         \if\endrr\brnull \let\ptinull=\pieight\fi\fi\fi      
   \if\startrr\brnine \inineset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pinine\fi
         \if\endrr\brtwo \let\ptatwo=\pinine\fi
         \if\endrr\brthree \let\ptathree=\pinine\fi
         \if\endrr\brfour \let\ptafour=\pinine\fi
         \if\endrr\brfive \let\ptafive=\pinine\fi
         \if\endrr\brsix \let\ptasix=\pinine\fi
         \if\endrr\brseven \let\ptaseven=\pinine\fi
         \if\endrr\breight \let\ptaeight=\pinine\fi
         \if\endrr\brnine \let\ptanine=\pinine\fi
         \if\endrr\brnull \let\ptanull=\pinine\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pinine\fi
         \if\endrr\brtwo \let\ptbtwo=\pinine\fi
         \if\endrr\brthree \let\ptbthree=\pinine\fi
         \if\endrr\brfour \let\ptbfour=\pinine\fi
         \if\endrr\brfive \let\ptbfive=\pinine\fi
         \if\endrr\brsix \let\ptbsix=\pinine\fi
         \if\endrr\brseven \let\ptbseven=\pinine\fi
         \if\endrr\breight \let\ptbeight=\pinine\fi
         \if\endrr\brnine \let\ptbnine=\pinine\fi
         \if\endrr\brnull \let\ptbnull=\pinine\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pinine\fi
         \if\endrr\brtwo \let\ptctwo=\pinine\fi
         \if\endrr\brthree \let\ptcthree=\pinine\fi
         \if\endrr\brfour \let\ptcfour=\pinine\fi
         \if\endrr\brfive \let\ptcfive=\pinine\fi
         \if\endrr\brsix \let\ptcsix=\pinine\fi
         \if\endrr\brseven \let\ptcseven=\pinine\fi
         \if\endrr\breight \let\ptceight=\pinine\fi
         \if\endrr\brnine \let\ptcnine=\pinine\fi
         \if\endrr\brnull \let\ptcnull=\pinine\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pinine\fi
         \if\endrr\brtwo \let\ptdtwo=\pinine\fi
         \if\endrr\brthree \let\ptdthree=\pinine\fi
         \if\endrr\brfour \let\ptdfour=\pinine\fi
         \if\endrr\brfive \let\ptdfive=\pinine\fi
         \if\endrr\brsix \let\ptdsix=\pinine\fi
         \if\endrr\brseven \let\ptdseven=\pinine\fi
         \if\endrr\breight \let\ptdeight=\pinine\fi
         \if\endrr\brnine \let\ptdnine=\pinine\fi
         \if\endrr\brnull \let\ptdnull=\pinine\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pinine\fi
         \if\endrr\brtwo \let\ptetwo=\pinine\fi
         \if\endrr\brthree \let\ptethree=\pinine\fi
         \if\endrr\brfour \let\ptefour=\pinine\fi
         \if\endrr\brfive \let\ptefive=\pinine\fi
         \if\endrr\brsix \let\ptesix=\pinine\fi
         \if\endrr\brseven \let\pteseven=\pinine\fi
         \if\endrr\breight \let\pteeight=\pinine\fi
         \if\endrr\brnine \let\ptenine=\pinine\fi
         \if\endrr\brnull \let\ptenull=\pinine\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pinine\fi
         \if\endrr\brtwo \let\ptftwo=\pinine\fi
         \if\endrr\brthree \let\ptfthree=\pinine\fi
         \if\endrr\brfour \let\ptffour=\pinine\fi
         \if\endrr\brfive \let\ptffive=\pinine\fi
         \if\endrr\brsix \let\ptfsix=\pinine\fi
         \if\endrr\brseven \let\ptfseven=\pinine\fi
         \if\endrr\breight \let\ptfeight=\pinine\fi
         \if\endrr\brnine \let\ptfnine=\pinine\fi
         \if\endrr\brnull \let\ptfnull=\pinine\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pinine\fi
         \if\endrr\brtwo \let\ptgtwo=\pinine\fi
         \if\endrr\brthree \let\ptgthree=\pinine\fi
         \if\endrr\brfour \let\ptgfour=\pinine\fi
         \if\endrr\brfive \let\ptgfive=\pinine\fi
         \if\endrr\brsix \let\ptgsix=\pinine\fi
         \if\endrr\brseven \let\ptgseven=\pinine\fi
         \if\endrr\breight \let\ptgeight=\pinine\fi
         \if\endrr\brnine \let\ptgnine=\pinine\fi
         \if\endrr\brnull \let\ptgnull=\pinine\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pinine\fi
         \if\endrr\brtwo \let\pthtwo=\pinine\fi
         \if\endrr\brthree \let\pththree=\pinine\fi
         \if\endrr\brfour \let\pthfour=\pinine\fi
         \if\endrr\brfive \let\pthfive=\pinine\fi
         \if\endrr\brsix \let\pthsix=\pinine\fi
         \if\endrr\brseven \let\pthseven=\pinine\fi
         \if\endrr\breight \let\ptheight=\pinine\fi
         \if\endrr\brnine \let\pthnine=\pinine\fi
         \if\endrr\brnull \let\pthnull=\pinine\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pinine\fi
         \if\endrr\brtwo \let\ptitwo=\pinine\fi
         \if\endrr\brthree \let\ptithree=\pinine\fi
         \if\endrr\brfour \let\ptifour=\pinine\fi
         \if\endrr\brfive \let\ptifive=\pinine\fi
         \if\endrr\brsix \let\ptisix=\pinine\fi
         \if\endrr\brseven \let\ptiseven=\pinine\fi
         \if\endrr\breight \let\ptieight=\pinine\fi
         \if\endrr\brnine \let\ptinine=\pinine\fi
         \if\endrr\brnull \let\ptinull=\pinine\fi\fi\fi      
   \if\startrr\brnull \inullset=0 
      \if\endlr\ali
         \if\endrr\brone \let\ptaone=\pinull\fi
         \if\endrr\brtwo \let\ptatwo=\pinull\fi
         \if\endrr\brthree \let\ptathree=\pinull\fi
         \if\endrr\brfour \let\ptafour=\pinull\fi
         \if\endrr\brfive \let\ptafive=\pinull\fi
         \if\endrr\brsix \let\ptasix=\pinull\fi
         \if\endrr\brseven \let\ptaseven=\pinull\fi
         \if\endrr\breight \let\ptaeight=\pinull\fi
         \if\endrr\brnine \let\ptanine=\pinull\fi
         \if\endrr\brnull \let\ptanull=\pinull\fi\fi
      \if\endlr\bli
         \if\endrr\brone \let\ptbone=\pinull\fi
         \if\endrr\brtwo \let\ptbtwo=\pinull\fi
         \if\endrr\brthree \let\ptbthree=\pinull\fi
         \if\endrr\brfour \let\ptbfour=\pinull\fi
         \if\endrr\brfive \let\ptbfive=\pinull\fi
         \if\endrr\brsix \let\ptbsix=\pinull\fi
         \if\endrr\brseven \let\ptbseven=\pinull\fi
         \if\endrr\breight \let\ptbeight=\pinull\fi
         \if\endrr\brnine \let\ptbnine=\pinull\fi
         \if\endrr\brnull \let\ptbnull=\pinull\fi\fi
      \if\endlr\cli
         \if\endrr\brone \let\ptcone=\pinull\fi
         \if\endrr\brtwo \let\ptctwo=\pinull\fi
         \if\endrr\brthree \let\ptcthree=\pinull\fi
         \if\endrr\brfour \let\ptcfour=\pinull\fi
         \if\endrr\brfive \let\ptcfive=\pinull\fi
         \if\endrr\brsix \let\ptcsix=\pinull\fi
         \if\endrr\brseven \let\ptcseven=\pinull\fi
         \if\endrr\breight \let\ptceight=\pinull\fi
         \if\endrr\brnine \let\ptcnine=\pinull\fi
         \if\endrr\brnull \let\ptcnull=\pinull\fi\fi
      \if\endlr\dli
         \if\endrr\brone \let\ptdone=\pinull\fi
         \if\endrr\brtwo \let\ptdtwo=\pinull\fi
         \if\endrr\brthree \let\ptdthree=\pinull\fi
         \if\endrr\brfour \let\ptdfour=\pinull\fi
         \if\endrr\brfive \let\ptdfive=\pinull\fi
         \if\endrr\brsix \let\ptdsix=\pinull\fi
         \if\endrr\brseven \let\ptdseven=\pinull\fi
         \if\endrr\breight \let\ptdeight=\pinull\fi
         \if\endrr\brnine \let\ptdnine=\pinull\fi
         \if\endrr\brnull \let\ptdnull=\pinull\fi\fi
      \if\endlr\eli
         \if\endrr\brone \let\pteone=\pinull\fi
         \if\endrr\brtwo \let\ptetwo=\pinull\fi
         \if\endrr\brthree \let\ptethree=\pinull\fi
         \if\endrr\brfour \let\ptefour=\pinull\fi
         \if\endrr\brfive \let\ptefive=\pinull\fi
         \if\endrr\brsix \let\ptesix=\pinull\fi
         \if\endrr\brseven \let\pteseven=\pinull\fi
         \if\endrr\breight \let\pteeight=\pinull\fi
         \if\endrr\brnine \let\ptenine=\pinull\fi
         \if\endrr\brnull \let\ptenull=\pinull\fi\fi
      \if\endlr\fli
         \if\endrr\brone \let\ptfone=\pinull\fi
         \if\endrr\brtwo \let\ptftwo=\pinull\fi
         \if\endrr\brthree \let\ptfthree=\pinull\fi
         \if\endrr\brfour \let\ptffour=\pinull\fi
         \if\endrr\brfive \let\ptffive=\pinull\fi
         \if\endrr\brsix \let\ptfsix=\pinull\fi
         \if\endrr\brseven \let\ptfseven=\pinull\fi
         \if\endrr\breight \let\ptfeight=\pinull\fi
         \if\endrr\brnine \let\ptfnine=\pinull\fi
         \if\endrr\brnull \let\ptfnull=\pinull\fi\fi
      \if\endlr\gli
         \if\endrr\brone \let\ptgone=\pinull\fi
         \if\endrr\brtwo \let\ptgtwo=\pinull\fi
         \if\endrr\brthree \let\ptgthree=\pinull\fi
         \if\endrr\brfour \let\ptgfour=\pinull\fi
         \if\endrr\brfive \let\ptgfive=\pinull\fi
         \if\endrr\brsix \let\ptgsix=\pinull\fi
         \if\endrr\brseven \let\ptgseven=\pinull\fi
         \if\endrr\breight \let\ptgeight=\pinull\fi
         \if\endrr\brnine \let\ptgnine=\pinull\fi
         \if\endrr\brnull \let\ptgnull=\pinull\fi\fi
      \if\endlr\hli
         \if\endrr\brone \let\pthone=\pinull\fi
         \if\endrr\brtwo \let\pthtwo=\pinull\fi
         \if\endrr\brthree \let\pththree=\pinull\fi
         \if\endrr\brfour \let\pthfour=\pinull\fi
         \if\endrr\brfive \let\pthfive=\pinull\fi
         \if\endrr\brsix \let\pthsix=\pinull\fi
         \if\endrr\brseven \let\pthseven=\pinull\fi
         \if\endrr\breight \let\ptheight=\pinull\fi
         \if\endrr\brnine \let\pthnine=\pinull\fi
         \if\endrr\brnull \let\pthnull=\pinull\fi\fi          
      \if\endlr\ili
         \if\endrr\brone \let\ptione=\pinull\fi
         \if\endrr\brtwo \let\ptitwo=\pinull\fi
         \if\endrr\brthree \let\ptithree=\pinull\fi
         \if\endrr\brfour \let\ptifour=\pinull\fi
         \if\endrr\brfive \let\ptifive=\pinull\fi
         \if\endrr\brsix \let\ptisix=\pinull\fi
         \if\endrr\brseven \let\ptiseven=\pinull\fi
         \if\endrr\breight \let\ptieight=\pinull\fi
         \if\endrr\brnine \let\ptinine=\pinull\fi
         \if\endrr\brnull \let\ptinull=\pinull\fi\fi\fi\fi          


\if\startlb\ali
   \if\startrb\brone \aoneset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\paone\fi
         \if\endrb\brtwo \let\ptatwo=\paone\fi
         \if\endrb\brthree \let\ptathree=\paone\fi
         \if\endrb\brfour \let\ptafour=\paone\fi
         \if\endrb\brfive \let\ptafive=\paone\fi
         \if\endrb\brsix \let\ptasix=\paone\fi
         \if\endrb\brseven \let\ptaseven=\paone\fi
         \if\endrb\breight \let\ptaeight=\paone\fi
         \if\endrb\brnine \let\ptanine=\paone\fi
         \if\endrb\brnull \let\ptanull=\paone\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\paone\fi
         \if\endrb\brtwo \let\ptbtwo=\paone\fi
         \if\endrb\brthree \let\ptbthree=\paone\fi
         \if\endrb\brfour \let\ptbfour=\paone\fi
         \if\endrb\brfive \let\ptbfive=\paone\fi
         \if\endrb\brsix \let\ptbsix=\paone\fi
         \if\endrb\brseven \let\ptbseven=\paone\fi
         \if\endrb\breight \let\ptbeight=\paone\fi
         \if\endrb\brnine \let\ptbnine=\paone\fi
         \if\endrb\brnull \let\ptbnull=\paone\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\paone\fi
         \if\endrb\brtwo \let\ptctwo=\paone\fi
         \if\endrb\brthree \let\ptcthree=\paone\fi
         \if\endrb\brfour \let\ptcfour=\paone\fi
         \if\endrb\brfive \let\ptcfive=\paone\fi
         \if\endrb\brsix \let\ptcsix=\paone\fi
         \if\endrb\brseven \let\ptcseven=\paone\fi
         \if\endrb\breight \let\ptceight=\paone\fi
         \if\endrb\brnine \let\ptcnine=\paone\fi
         \if\endrb\brnull \let\ptcnull=\paone\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\paone\fi
         \if\endrb\brtwo \let\ptdtwo=\paone\fi
         \if\endrb\brthree \let\ptdthree=\paone\fi
         \if\endrb\brfour \let\ptdfour=\paone\fi
         \if\endrb\brfive \let\ptdfive=\paone\fi
         \if\endrb\brsix \let\ptdsix=\paone\fi
         \if\endrb\brseven \let\ptdseven=\paone\fi
         \if\endrb\breight \let\ptdeight=\paone\fi
         \if\endrb\brnine \let\ptdnine=\paone\fi
         \if\endrb\brnull \let\ptdnull=\paone\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\paone\fi
         \if\endrb\brtwo \let\ptetwo=\paone\fi
         \if\endrb\brthree \let\ptethree=\paone\fi
         \if\endrb\brfour \let\ptefour=\paone\fi
         \if\endrb\brfive \let\ptefive=\paone\fi
         \if\endrb\brsix \let\ptesix=\paone\fi
         \if\endrb\brseven \let\pteseven=\paone\fi
         \if\endrb\breight \let\pteeight=\paone\fi
         \if\endrb\brnine \let\ptenine=\paone\fi
         \if\endrb\brnull \let\ptenull=\paone\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\paone\fi
         \if\endrb\brtwo \let\ptftwo=\paone\fi
         \if\endrb\brthree \let\ptfthree=\paone\fi
         \if\endrb\brfour \let\ptffour=\paone\fi
         \if\endrb\brfive \let\ptffive=\paone\fi
         \if\endrb\brsix \let\ptfsix=\paone\fi
         \if\endrb\brseven \let\ptfseven=\paone\fi
         \if\endrb\breight \let\ptfeight=\paone\fi
         \if\endrb\brnine \let\ptfnine=\paone\fi
         \if\endrb\brnull \let\ptfnull=\paone\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\paone\fi
         \if\endrb\brtwo \let\ptgtwo=\paone\fi
         \if\endrb\brthree \let\ptgthree=\paone\fi
         \if\endrb\brfour \let\ptgfour=\paone\fi
         \if\endrb\brfive \let\ptgfive=\paone\fi
         \if\endrb\brsix \let\ptgsix=\paone\fi
         \if\endrb\brseven \let\ptgseven=\paone\fi
         \if\endrb\breight \let\ptgeight=\paone\fi
         \if\endrb\brnine \let\ptgnine=\paone\fi
         \if\endrb\brnull \let\ptgnull=\paone\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\paone\fi
         \if\endrb\brtwo \let\pthtwo=\paone\fi
         \if\endrb\brthree \let\pththree=\paone\fi
         \if\endrb\brfour \let\pthfour=\paone\fi
         \if\endrb\brfive \let\pthfive=\paone\fi
         \if\endrb\brsix \let\pthsix=\paone\fi
         \if\endrb\brseven \let\pthseven=\paone\fi
         \if\endrb\breight \let\ptheight=\paone\fi
         \if\endrb\brnine \let\pthnine=\paone\fi
         \if\endrb\brnull \let\pthnull=\paone\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\paone\fi
         \if\endrb\brtwo \let\ptitwo=\paone\fi
         \if\endrb\brthree \let\ptithree=\paone\fi
         \if\endrb\brfour \let\ptifour=\paone\fi
         \if\endrb\brfive \let\ptifive=\paone\fi
         \if\endrb\brsix \let\ptisix=\paone\fi
         \if\endrb\brseven \let\ptiseven=\paone\fi
         \if\endrb\breight \let\ptieight=\paone\fi
         \if\endrb\brnine \let\ptinine=\paone\fi
         \if\endrb\brnull \let\ptinull=\paone\fi\fi\fi      
   \if\startrb\brtwo \atwoset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\patwo\fi
         \if\endrb\brtwo \let\ptatwo=\patwo\fi
         \if\endrb\brthree \let\ptathree=\patwo\fi
         \if\endrb\brfour \let\ptafour=\patwo\fi
         \if\endrb\brfive \let\ptafive=\patwo\fi
         \if\endrb\brsix \let\ptasix=\patwo\fi
         \if\endrb\brseven \let\ptaseven=\patwo\fi
         \if\endrb\breight \let\ptaeight=\patwo\fi
         \if\endrb\brnine \let\ptanine=\patwo\fi
         \if\endrb\brnull \let\ptanull=\patwo\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\patwo\fi
         \if\endrb\brtwo \let\ptbtwo=\patwo\fi
         \if\endrb\brthree \let\ptbthree=\patwo\fi
         \if\endrb\brfour \let\ptbfour=\patwo\fi
         \if\endrb\brfive \let\ptbfive=\patwo\fi
         \if\endrb\brsix \let\ptbsix=\patwo\fi
         \if\endrb\brseven \let\ptbseven=\patwo\fi
         \if\endrb\breight \let\ptbeight=\patwo\fi
         \if\endrb\brnine \let\ptbnine=\patwo\fi
         \if\endrb\brnull \let\ptbnull=\patwo\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\patwo\fi
         \if\endrb\brtwo \let\ptctwo=\patwo\fi
         \if\endrb\brthree \let\ptcthree=\patwo\fi
         \if\endrb\brfour \let\ptcfour=\patwo\fi
         \if\endrb\brfive \let\ptcfive=\patwo\fi
         \if\endrb\brsix \let\ptcsix=\patwo\fi
         \if\endrb\brseven \let\ptcseven=\patwo\fi
         \if\endrb\breight \let\ptceight=\patwo\fi
         \if\endrb\brnine \let\ptcnine=\patwo\fi
         \if\endrb\brnull \let\ptcnull=\patwo\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\patwo\fi
         \if\endrb\brtwo \let\ptdtwo=\patwo\fi
         \if\endrb\brthree \let\ptdthree=\patwo\fi
         \if\endrb\brfour \let\ptdfour=\patwo\fi
         \if\endrb\brfive \let\ptdfive=\patwo\fi
         \if\endrb\brsix \let\ptdsix=\patwo\fi
         \if\endrb\brseven \let\ptdseven=\patwo\fi
         \if\endrb\breight \let\ptdeight=\patwo\fi
         \if\endrb\brnine \let\ptdnine=\patwo\fi
         \if\endrb\brnull \let\ptdnull=\patwo\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\patwo\fi
         \if\endrb\brtwo \let\ptetwo=\patwo\fi
         \if\endrb\brthree \let\ptethree=\patwo\fi
         \if\endrb\brfour \let\ptefour=\patwo\fi
         \if\endrb\brfive \let\ptefive=\patwo\fi
         \if\endrb\brsix \let\ptesix=\patwo\fi
         \if\endrb\brseven \let\pteseven=\patwo\fi
         \if\endrb\breight \let\pteeight=\patwo\fi
         \if\endrb\brnine \let\ptenine=\patwo\fi
         \if\endrb\brnull \let\ptenull=\patwo\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\patwo\fi
         \if\endrb\brtwo \let\ptftwo=\patwo\fi
         \if\endrb\brthree \let\ptfthree=\patwo\fi
         \if\endrb\brfour \let\ptffour=\patwo\fi
         \if\endrb\brfive \let\ptffive=\patwo\fi
         \if\endrb\brsix \let\ptfsix=\patwo\fi
         \if\endrb\brseven \let\ptfseven=\patwo\fi
         \if\endrb\breight \let\ptfeight=\patwo\fi
         \if\endrb\brnine \let\ptfnine=\patwo\fi
         \if\endrb\brnull \let\ptfnull=\patwo\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\patwo\fi
         \if\endrb\brtwo \let\ptgtwo=\patwo\fi
         \if\endrb\brthree \let\ptgthree=\patwo\fi
         \if\endrb\brfour \let\ptgfour=\patwo\fi
         \if\endrb\brfive \let\ptgfive=\patwo\fi
         \if\endrb\brsix \let\ptgsix=\patwo\fi
         \if\endrb\brseven \let\ptgseven=\patwo\fi
         \if\endrb\breight \let\ptgeight=\patwo\fi
         \if\endrb\brnine \let\ptgnine=\patwo\fi
         \if\endrb\brnull \let\ptgnull=\patwo\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\patwo\fi
         \if\endrb\brtwo \let\pthtwo=\patwo\fi
         \if\endrb\brthree \let\pththree=\patwo\fi
         \if\endrb\brfour \let\pthfour=\patwo\fi
         \if\endrb\brfive \let\pthfive=\patwo\fi
         \if\endrb\brsix \let\pthsix=\patwo\fi
         \if\endrb\brseven \let\pthseven=\patwo\fi
         \if\endrb\breight \let\ptheight=\patwo\fi
         \if\endrb\brnine \let\pthnine=\patwo\fi
         \if\endrb\brnull \let\pthnull=\patwo\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\patwo\fi
         \if\endrb\brtwo \let\ptitwo=\patwo\fi
         \if\endrb\brthree \let\ptithree=\patwo\fi
         \if\endrb\brfour \let\ptifour=\patwo\fi
         \if\endrb\brfive \let\ptifive=\patwo\fi
         \if\endrb\brsix \let\ptisix=\patwo\fi
         \if\endrb\brseven \let\ptiseven=\patwo\fi
         \if\endrb\breight \let\ptieight=\patwo\fi
         \if\endrb\brnine \let\ptinine=\patwo\fi
         \if\endrb\brnull \let\ptinull=\patwo\fi\fi\fi
   \if\startrb\brthree \athreeset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pathree\fi
         \if\endrb\brtwo \let\ptatwo=\pathree\fi
         \if\endrb\brthree \let\ptathree=\pathree\fi
         \if\endrb\brfour \let\ptafour=\pathree\fi
         \if\endrb\brfive \let\ptafive=\pathree\fi
         \if\endrb\brsix \let\ptasix=\pathree\fi
         \if\endrb\brseven \let\ptaseven=\pathree\fi
         \if\endrb\breight \let\ptaeight=\pathree\fi
         \if\endrb\brnine \let\ptanine=\pathree\fi
         \if\endrb\brnull \let\ptanull=\pathree\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pathree\fi
         \if\endrb\brtwo \let\ptbtwo=\pathree\fi
         \if\endrb\brthree \let\ptbthree=\pathree\fi
         \if\endrb\brfour \let\ptbfour=\pathree\fi
         \if\endrb\brfive \let\ptbfive=\pathree\fi
         \if\endrb\brsix \let\ptbsix=\pathree\fi
         \if\endrb\brseven \let\ptbseven=\pathree\fi
         \if\endrb\breight \let\ptbeight=\pathree\fi
         \if\endrb\brnine \let\ptbnine=\pathree\fi
         \if\endrb\brnull \let\ptbnull=\pathree\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pathree\fi
         \if\endrb\brtwo \let\ptctwo=\pathree\fi
         \if\endrb\brthree \let\ptcthree=\pathree\fi
         \if\endrb\brfour \let\ptcfour=\pathree\fi
         \if\endrb\brfive \let\ptcfive=\pathree\fi
         \if\endrb\brsix \let\ptcsix=\pathree\fi
         \if\endrb\brseven \let\ptcseven=\pathree\fi
         \if\endrb\breight \let\ptceight=\pathree\fi
         \if\endrb\brnine \let\ptcnine=\pathree\fi
         \if\endrb\brnull \let\ptcnull=\pathree\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pathree\fi
         \if\endrb\brtwo \let\ptdtwo=\pathree\fi
         \if\endrb\brthree \let\ptdthree=\pathree\fi
         \if\endrb\brfour \let\ptdfour=\pathree\fi
         \if\endrb\brfive \let\ptdfive=\pathree\fi
         \if\endrb\brsix \let\ptdsix=\pathree\fi
         \if\endrb\brseven \let\ptdseven=\pathree\fi
         \if\endrb\breight \let\ptdeight=\pathree\fi
         \if\endrb\brnine \let\ptdnine=\pathree\fi
         \if\endrb\brnull \let\ptdnull=\pathree\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pathree\fi
         \if\endrb\brtwo \let\ptetwo=\pathree\fi
         \if\endrb\brthree \let\ptethree=\pathree\fi
         \if\endrb\brfour \let\ptefour=\pathree\fi
         \if\endrb\brfive \let\ptefive=\pathree\fi
         \if\endrb\brsix \let\ptesix=\pathree\fi
         \if\endrb\brseven \let\pteseven=\pathree\fi
         \if\endrb\breight \let\pteeight=\pathree\fi
         \if\endrb\brnine \let\ptenine=\pathree\fi
         \if\endrb\brnull \let\ptenull=\pathree\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pathree\fi
         \if\endrb\brtwo \let\ptftwo=\pathree\fi
         \if\endrb\brthree \let\ptfthree=\pathree\fi
         \if\endrb\brfour \let\ptffour=\pathree\fi
         \if\endrb\brfive \let\ptffive=\pathree\fi
         \if\endrb\brsix \let\ptfsix=\pathree\fi
         \if\endrb\brseven \let\ptfseven=\pathree\fi
         \if\endrb\breight \let\ptfeight=\pathree\fi
         \if\endrb\brnine \let\ptfnine=\pathree\fi
         \if\endrb\brnull \let\ptfnull=\pathree\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pathree\fi
         \if\endrb\brtwo \let\ptgtwo=\pathree\fi
         \if\endrb\brthree \let\ptgthree=\pathree\fi
         \if\endrb\brfour \let\ptgfour=\pathree\fi
         \if\endrb\brfive \let\ptgfive=\pathree\fi
         \if\endrb\brsix \let\ptgsix=\pathree\fi
         \if\endrb\brseven \let\ptgseven=\pathree\fi
         \if\endrb\breight \let\ptgeight=\pathree\fi
         \if\endrb\brnine \let\ptgnine=\pathree\fi
         \if\endrb\brnull \let\ptgnull=\pathree\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pathree\fi
         \if\endrb\brtwo \let\pthtwo=\pathree\fi
         \if\endrb\brthree \let\pththree=\pathree\fi
         \if\endrb\brfour \let\pthfour=\pathree\fi
         \if\endrb\brfive \let\pthfive=\pathree\fi
         \if\endrb\brsix \let\pthsix=\pathree\fi
         \if\endrb\brseven \let\pthseven=\pathree\fi
         \if\endrb\breight \let\ptheight=\pathree\fi
         \if\endrb\brnine \let\pthnine=\pathree\fi
         \if\endrb\brnull \let\pthnull=\pathree\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pathree\fi
         \if\endrb\brtwo \let\ptitwo=\pathree\fi
         \if\endrb\brthree \let\ptithree=\pathree\fi
         \if\endrb\brfour \let\ptifour=\pathree\fi
         \if\endrb\brfive \let\ptifive=\pathree\fi
         \if\endrb\brsix \let\ptisix=\pathree\fi
         \if\endrb\brseven \let\ptiseven=\pathree\fi
         \if\endrb\breight \let\ptieight=\pathree\fi
         \if\endrb\brnine \let\ptinine=\pathree\fi
         \if\endrb\brnull \let\ptinull=\pathree\fi\fi\fi      
   \if\startrb\brfour \afourset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pafour\fi
         \if\endrb\brtwo \let\ptatwo=\pafour\fi
         \if\endrb\brthree \let\ptathree=\pafour\fi
         \if\endrb\brfour \let\ptafour=\pafour\fi
         \if\endrb\brfive \let\ptafive=\pafour\fi
         \if\endrb\brsix \let\ptasix=\pafour\fi
         \if\endrb\brseven \let\ptaseven=\pafour\fi
         \if\endrb\breight \let\ptaeight=\pafour\fi
         \if\endrb\brnine \let\ptanine=\pafour\fi
         \if\endrb\brnull \let\ptanull=\pafour\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pafour\fi
         \if\endrb\brtwo \let\ptbtwo=\pafour\fi
         \if\endrb\brthree \let\ptbthree=\pafour\fi
         \if\endrb\brfour \let\ptbfour=\pafour\fi
         \if\endrb\brfive \let\ptbfive=\pafour\fi
         \if\endrb\brsix \let\ptbsix=\pafour\fi
         \if\endrb\brseven \let\ptbseven=\pafour\fi
         \if\endrb\breight \let\ptbeight=\pafour\fi
         \if\endrb\brnine \let\ptbnine=\pafour\fi
         \if\endrb\brnull \let\ptbnull=\pafour\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pafour\fi
         \if\endrb\brtwo \let\ptctwo=\pafour\fi
         \if\endrb\brthree \let\ptcthree=\pafour\fi
         \if\endrb\brfour \let\ptcfour=\pafour\fi
         \if\endrb\brfive \let\ptcfive=\pafour\fi
         \if\endrb\brsix \let\ptcsix=\pafour\fi
         \if\endrb\brseven \let\ptcseven=\pafour\fi
         \if\endrb\breight \let\ptceight=\pafour\fi
         \if\endrb\brnine \let\ptcnine=\pafour\fi
         \if\endrb\brnull \let\ptcnull=\pafour\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pafour\fi
         \if\endrb\brtwo \let\ptdtwo=\pafour\fi
         \if\endrb\brthree \let\ptdthree=\pafour\fi
         \if\endrb\brfour \let\ptdfour=\pafour\fi
         \if\endrb\brfive \let\ptdfive=\pafour\fi
         \if\endrb\brsix \let\ptdsix=\pafour\fi
         \if\endrb\brseven \let\ptdseven=\pafour\fi
         \if\endrb\breight \let\ptdeight=\pafour\fi
         \if\endrb\brnine \let\ptdnine=\pafour\fi
         \if\endrb\brnull \let\ptdnull=\pafour\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pafour\fi
         \if\endrb\brtwo \let\ptetwo=\pafour\fi
         \if\endrb\brthree \let\ptethree=\pafour\fi
         \if\endrb\brfour \let\ptefour=\pafour\fi
         \if\endrb\brfive \let\ptefive=\pafour\fi
         \if\endrb\brsix \let\ptesix=\pafour\fi
         \if\endrb\brseven \let\pteseven=\pafour\fi
         \if\endrb\breight \let\pteeight=\pafour\fi
         \if\endrb\brnine \let\ptenine=\pafour\fi
         \if\endrb\brnull \let\ptenull=\pafour\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pafour\fi
         \if\endrb\brtwo \let\ptftwo=\pafour\fi
         \if\endrb\brthree \let\ptfthree=\pafour\fi
         \if\endrb\brfour \let\ptffour=\pafour\fi
         \if\endrb\brfive \let\ptffive=\pafour\fi
         \if\endrb\brsix \let\ptfsix=\pafour\fi
         \if\endrb\brseven \let\ptfseven=\pafour\fi
         \if\endrb\breight \let\ptfeight=\pafour\fi
         \if\endrb\brnine \let\ptfnine=\pafour\fi
         \if\endrb\brnull \let\ptfnull=\pafour\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pafour\fi
         \if\endrb\brtwo \let\ptgtwo=\pafour\fi
         \if\endrb\brthree \let\ptgthree=\pafour\fi
         \if\endrb\brfour \let\ptgfour=\pafour\fi
         \if\endrb\brfive \let\ptgfive=\pafour\fi
         \if\endrb\brsix \let\ptgsix=\pafour\fi
         \if\endrb\brseven \let\ptgseven=\pafour\fi
         \if\endrb\breight \let\ptgeight=\pafour\fi
         \if\endrb\brnine \let\ptgnine=\pafour\fi
         \if\endrb\brnull \let\ptgnull=\pafour\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pafour\fi
         \if\endrb\brtwo \let\pthtwo=\pafour\fi
         \if\endrb\brthree \let\pththree=\pafour\fi
         \if\endrb\brfour \let\pthfour=\pafour\fi
         \if\endrb\brfive \let\pthfive=\pafour\fi
         \if\endrb\brsix \let\pthsix=\pafour\fi
         \if\endrb\brseven \let\pthseven=\pafour\fi
         \if\endrb\breight \let\ptheight=\pafour\fi
         \if\endrb\brnine \let\pthnine=\pafour\fi
         \if\endrb\brnull \let\pthnull=\pafour\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pafour\fi
         \if\endrb\brtwo \let\ptitwo=\pafour\fi
         \if\endrb\brthree \let\ptithree=\pafour\fi
         \if\endrb\brfour \let\ptifour=\pafour\fi
         \if\endrb\brfive \let\ptifive=\pafour\fi
         \if\endrb\brsix \let\ptisix=\pafour\fi
         \if\endrb\brseven \let\ptiseven=\pafour\fi
         \if\endrb\breight \let\ptieight=\pafour\fi
         \if\endrb\brnine \let\ptinine=\pafour\fi
         \if\endrb\brnull \let\ptinull=\pafour\fi\fi\fi      
   \if\startrb\brfive \afiveset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pafive\fi
         \if\endrb\brtwo \let\ptatwo=\pafive\fi
         \if\endrb\brthree \let\ptathree=\pafive\fi
         \if\endrb\brfour \let\ptafour=\pafive\fi
         \if\endrb\brfive \let\ptafive=\pafive\fi
         \if\endrb\brsix \let\ptasix=\pafive\fi
         \if\endrb\brseven \let\ptaseven=\pafive\fi
         \if\endrb\breight \let\ptaeight=\pafive\fi
         \if\endrb\brnine \let\ptanine=\pafive\fi
         \if\endrb\brnull \let\ptanull=\pafive\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pafive\fi
         \if\endrb\brtwo \let\ptbtwo=\pafive\fi
         \if\endrb\brthree \let\ptbthree=\pafive\fi
         \if\endrb\brfour \let\ptbfour=\pafive\fi
         \if\endrb\brfive \let\ptbfive=\pafive\fi
         \if\endrb\brsix \let\ptbsix=\pafive\fi
         \if\endrb\brseven \let\ptbseven=\pafive\fi
         \if\endrb\breight \let\ptbeight=\pafive\fi
         \if\endrb\brnine \let\ptbnine=\pafive\fi
         \if\endrb\brnull \let\ptbnull=\pafive\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pafive\fi
         \if\endrb\brtwo \let\ptctwo=\pafive\fi
         \if\endrb\brthree \let\ptcthree=\pafive\fi
         \if\endrb\brfour \let\ptcfour=\pafive\fi
         \if\endrb\brfive \let\ptcfive=\pafive\fi
         \if\endrb\brsix \let\ptcsix=\pafive\fi
         \if\endrb\brseven \let\ptcseven=\pafive\fi
         \if\endrb\breight \let\ptceight=\pafive\fi
         \if\endrb\brnine \let\ptcnine=\pafive\fi
         \if\endrb\brnull \let\ptcnull=\pafive\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pafive\fi
         \if\endrb\brtwo \let\ptdtwo=\pafive\fi
         \if\endrb\brthree \let\ptdthree=\pafive\fi
         \if\endrb\brfour \let\ptdfour=\pafive\fi
         \if\endrb\brfive \let\ptdfive=\pafive\fi
         \if\endrb\brsix \let\ptdsix=\pafive\fi
         \if\endrb\brseven \let\ptdseven=\pafive\fi
         \if\endrb\breight \let\ptdeight=\pafive\fi
         \if\endrb\brnine \let\ptdnine=\pafive\fi
         \if\endrb\brnull \let\ptdnull=\pafive\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pafive\fi
         \if\endrb\brtwo \let\ptetwo=\pafive\fi
         \if\endrb\brthree \let\ptethree=\pafive\fi
         \if\endrb\brfour \let\ptefour=\pafive\fi
         \if\endrb\brfive \let\ptefive=\pafive\fi
         \if\endrb\brsix \let\ptesix=\pafive\fi
         \if\endrb\brseven \let\pteseven=\pafive\fi
         \if\endrb\breight \let\pteeight=\pafive\fi
         \if\endrb\brnine \let\ptenine=\pafive\fi
         \if\endrb\brnull \let\ptenull=\pafive\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pafive\fi
         \if\endrb\brtwo \let\ptftwo=\pafive\fi
         \if\endrb\brthree \let\ptfthree=\pafive\fi
         \if\endrb\brfour \let\ptffour=\pafive\fi
         \if\endrb\brfive \let\ptffive=\pafive\fi
         \if\endrb\brsix \let\ptfsix=\pafive\fi
         \if\endrb\brseven \let\ptfseven=\pafive\fi
         \if\endrb\breight \let\ptfeight=\pafive\fi
         \if\endrb\brnine \let\ptfnine=\pafive\fi
         \if\endrb\brnull \let\ptfnull=\pafive\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pafive\fi
         \if\endrb\brtwo \let\ptgtwo=\pafive\fi
         \if\endrb\brthree \let\ptgthree=\pafive\fi
         \if\endrb\brfour \let\ptgfour=\pafive\fi
         \if\endrb\brfive \let\ptgfive=\pafive\fi
         \if\endrb\brsix \let\ptgsix=\pafive\fi
         \if\endrb\brseven \let\ptgseven=\pafive\fi
         \if\endrb\breight \let\ptgeight=\pafive\fi
         \if\endrb\brnine \let\ptgnine=\pafive\fi
         \if\endrb\brnull \let\ptgnull=\pafive\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pafive\fi
         \if\endrb\brtwo \let\pthtwo=\pafive\fi
         \if\endrb\brthree \let\pththree=\pafive\fi
         \if\endrb\brfour \let\pthfour=\pafive\fi
         \if\endrb\brfive \let\pthfive=\pafive\fi
         \if\endrb\brsix \let\pthsix=\pafive\fi
         \if\endrb\brseven \let\pthseven=\pafive\fi
         \if\endrb\breight \let\ptheight=\pafive\fi
         \if\endrb\brnine \let\pthnine=\pafive\fi
         \if\endrb\brnull \let\pthnull=\pafive\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pafive\fi
         \if\endrb\brtwo \let\ptitwo=\pafive\fi
         \if\endrb\brthree \let\ptithree=\pafive\fi
         \if\endrb\brfour \let\ptifour=\pafive\fi
         \if\endrb\brfive \let\ptifive=\pafive\fi
         \if\endrb\brsix \let\ptisix=\pafive\fi
         \if\endrb\brseven \let\ptiseven=\pafive\fi
         \if\endrb\breight \let\ptieight=\pafive\fi
         \if\endrb\brnine \let\ptinine=\pafive\fi
         \if\endrb\brnull \let\ptinull=\pafive\fi\fi\fi   
   \if\startrb\brsix \asixset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pasix\fi
         \if\endrb\brtwo \let\ptatwo=\pasix\fi
         \if\endrb\brthree \let\ptathree=\pasix\fi
         \if\endrb\brfour \let\ptafour=\pasix\fi
         \if\endrb\brfive \let\ptafive=\pasix\fi
         \if\endrb\brsix \let\ptasix=\pasix\fi
         \if\endrb\brseven \let\ptaseven=\pasix\fi
         \if\endrb\breight \let\ptaeight=\pasix\fi
         \if\endrb\brnine \let\ptanine=\pasix\fi
         \if\endrb\brnull \let\ptanull=\pasix\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pasix\fi
         \if\endrb\brtwo \let\ptbtwo=\pasix\fi
         \if\endrb\brthree \let\ptbthree=\pasix\fi
         \if\endrb\brfour \let\ptbfour=\pasix\fi
         \if\endrb\brfive \let\ptbfive=\pasix\fi
         \if\endrb\brsix \let\ptbsix=\pasix\fi
         \if\endrb\brseven \let\ptbseven=\pasix\fi
         \if\endrb\breight \let\ptbeight=\pasix\fi
         \if\endrb\brnine \let\ptbnine=\pasix\fi
         \if\endrb\brnull \let\ptbnull=\pasix\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pasix\fi
         \if\endrb\brtwo \let\ptctwo=\pasix\fi
         \if\endrb\brthree \let\ptcthree=\pasix\fi
         \if\endrb\brfour \let\ptcfour=\pasix\fi
         \if\endrb\brfive \let\ptcfive=\pasix\fi
         \if\endrb\brsix \let\ptcsix=\pasix\fi
         \if\endrb\brseven \let\ptcseven=\pasix\fi
         \if\endrb\breight \let\ptceight=\pasix\fi
         \if\endrb\brnine \let\ptcnine=\pasix\fi
         \if\endrb\brnull \let\ptcnull=\pasix\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pasix\fi
         \if\endrb\brtwo \let\ptdtwo=\pasix\fi
         \if\endrb\brthree \let\ptdthree=\pasix\fi
         \if\endrb\brfour \let\ptdfour=\pasix\fi
         \if\endrb\brfive \let\ptdfive=\pasix\fi
         \if\endrb\brsix \let\ptdsix=\pasix\fi
         \if\endrb\brseven \let\ptdseven=\pasix\fi
         \if\endrb\breight \let\ptdeight=\pasix\fi
         \if\endrb\brnine \let\ptdnine=\pasix\fi
         \if\endrb\brnull \let\ptdnull=\pasix\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pasix\fi
         \if\endrb\brtwo \let\ptetwo=\pasix\fi
         \if\endrb\brthree \let\ptethree=\pasix\fi
         \if\endrb\brfour \let\ptefour=\pasix\fi
         \if\endrb\brfive \let\ptefive=\pasix\fi
         \if\endrb\brsix \let\ptesix=\pasix\fi
         \if\endrb\brseven \let\pteseven=\pasix\fi
         \if\endrb\breight \let\pteeight=\pasix\fi
         \if\endrb\brnine \let\ptenine=\pasix\fi
         \if\endrb\brnull \let\ptenull=\pasix\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pasix\fi
         \if\endrb\brtwo \let\ptftwo=\pasix\fi
         \if\endrb\brthree \let\ptfthree=\pasix\fi
         \if\endrb\brfour \let\ptffour=\pasix\fi
         \if\endrb\brfive \let\ptffive=\pasix\fi
         \if\endrb\brsix \let\ptfsix=\pasix\fi
         \if\endrb\brseven \let\ptfseven=\pasix\fi
         \if\endrb\breight \let\ptfeight=\pasix\fi
         \if\endrb\brnine \let\ptfnine=\pasix\fi
         \if\endrb\brnull \let\ptfnull=\pasix\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pasix\fi
         \if\endrb\brtwo \let\ptgtwo=\pasix\fi
         \if\endrb\brthree \let\ptgthree=\pasix\fi
         \if\endrb\brfour \let\ptgfour=\pasix\fi
         \if\endrb\brfive \let\ptgfive=\pasix\fi
         \if\endrb\brsix \let\ptgsix=\pasix\fi
         \if\endrb\brseven \let\ptgseven=\pasix\fi
         \if\endrb\breight \let\ptgeight=\pasix\fi
         \if\endrb\brnine \let\ptgnine=\pasix\fi
         \if\endrb\brnull \let\ptgnull=\pasix\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pasix\fi
         \if\endrb\brtwo \let\pthtwo=\pasix\fi
         \if\endrb\brthree \let\pththree=\pasix\fi
         \if\endrb\brfour \let\pthfour=\pasix\fi
         \if\endrb\brfive \let\pthfive=\pasix\fi
         \if\endrb\brsix \let\pthsix=\pasix\fi
         \if\endrb\brseven \let\pthseven=\pasix\fi
         \if\endrb\breight \let\ptheight=\pasix\fi
         \if\endrb\brnine \let\pthnine=\pasix\fi
         \if\endrb\brnull \let\pthnull=\pasix\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pasix\fi
         \if\endrb\brtwo \let\ptitwo=\pasix\fi
         \if\endrb\brthree \let\ptithree=\pasix\fi
         \if\endrb\brfour \let\ptifour=\pasix\fi
         \if\endrb\brfive \let\ptifive=\pasix\fi
         \if\endrb\brsix \let\ptisix=\pasix\fi
         \if\endrb\brseven \let\ptiseven=\pasix\fi
         \if\endrb\breight \let\ptieight=\pasix\fi
         \if\endrb\brnine \let\ptinine=\pasix\fi
         \if\endrb\brnull \let\ptinull=\pasix\fi\fi\fi
   \if\startrb\brseven \asevenset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\paseven\fi
         \if\endrb\brtwo \let\ptatwo=\paseven\fi
         \if\endrb\brthree \let\ptathree=\paseven\fi
         \if\endrb\brfour \let\ptafour=\paseven\fi
         \if\endrb\brfive \let\ptafive=\paseven\fi
         \if\endrb\brsix \let\ptasix=\paseven\fi
         \if\endrb\brseven \let\ptaseven=\paseven\fi
         \if\endrb\breight \let\ptaeight=\paseven\fi
         \if\endrb\brnine \let\ptanine=\paseven\fi
         \if\endrb\brnull \let\ptanull=\paseven\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\paseven\fi
         \if\endrb\brtwo \let\ptbtwo=\paseven\fi
         \if\endrb\brthree \let\ptbthree=\paseven\fi
         \if\endrb\brfour \let\ptbfour=\paseven\fi
         \if\endrb\brfive \let\ptbfive=\paseven\fi
         \if\endrb\brsix \let\ptbsix=\paseven\fi
         \if\endrb\brseven \let\ptbseven=\paseven\fi
         \if\endrb\breight \let\ptbeight=\paseven\fi
         \if\endrb\brnine \let\ptbnine=\paseven\fi
         \if\endrb\brnull \let\ptbnull=\paseven\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\paseven\fi
         \if\endrb\brtwo \let\ptctwo=\paseven\fi
         \if\endrb\brthree \let\ptcthree=\paseven\fi
         \if\endrb\brfour \let\ptcfour=\paseven\fi
         \if\endrb\brfive \let\ptcfive=\paseven\fi
         \if\endrb\brsix \let\ptcsix=\paseven\fi
         \if\endrb\brseven \let\ptcseven=\paseven\fi
         \if\endrb\breight \let\ptceight=\paseven\fi
         \if\endrb\brnine \let\ptcnine=\paseven\fi
         \if\endrb\brnull \let\ptcnull=\paseven\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\paseven\fi
         \if\endrb\brtwo \let\ptdtwo=\paseven\fi
         \if\endrb\brthree \let\ptdthree=\paseven\fi
         \if\endrb\brfour \let\ptdfour=\paseven\fi
         \if\endrb\brfive \let\ptdfive=\paseven\fi
         \if\endrb\brsix \let\ptdsix=\paseven\fi
         \if\endrb\brseven \let\ptdseven=\paseven\fi
         \if\endrb\breight \let\ptdeight=\paseven\fi
         \if\endrb\brnine \let\ptdnine=\paseven\fi
         \if\endrb\brnull \let\ptdnull=\paseven\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\paseven\fi
         \if\endrb\brtwo \let\ptetwo=\paseven\fi
         \if\endrb\brthree \let\ptethree=\paseven\fi
         \if\endrb\brfour \let\ptefour=\paseven\fi
         \if\endrb\brfive \let\ptefive=\paseven\fi
         \if\endrb\brsix \let\ptesix=\paseven\fi
         \if\endrb\brseven \let\pteseven=\paseven\fi
         \if\endrb\breight \let\pteeight=\paseven\fi
         \if\endrb\brnine \let\ptenine=\paseven\fi
         \if\endrb\brnull \let\ptenull=\paseven\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\paseven\fi
         \if\endrb\brtwo \let\ptftwo=\paseven\fi
         \if\endrb\brthree \let\ptfthree=\paseven\fi
         \if\endrb\brfour \let\ptffour=\paseven\fi
         \if\endrb\brfive \let\ptffive=\paseven\fi
         \if\endrb\brsix \let\ptfsix=\paseven\fi
         \if\endrb\brseven \let\ptfseven=\paseven\fi
         \if\endrb\breight \let\ptfeight=\paseven\fi
         \if\endrb\brnine \let\ptfnine=\paseven\fi
         \if\endrb\brnull \let\ptfnull=\paseven\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\paseven\fi
         \if\endrb\brtwo \let\ptgtwo=\paseven\fi
         \if\endrb\brthree \let\ptgthree=\paseven\fi
         \if\endrb\brfour \let\ptgfour=\paseven\fi
         \if\endrb\brfive \let\ptgfive=\paseven\fi
         \if\endrb\brsix \let\ptgsix=\paseven\fi
         \if\endrb\brseven \let\ptgseven=\paseven\fi
         \if\endrb\breight \let\ptgeight=\paseven\fi
         \if\endrb\brnine \let\ptgnine=\paseven\fi
         \if\endrb\brnull \let\ptgnull=\paseven\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\paseven\fi
         \if\endrb\brtwo \let\pthtwo=\paseven\fi
         \if\endrb\brthree \let\pththree=\paseven\fi
         \if\endrb\brfour \let\pthfour=\paseven\fi
         \if\endrb\brfive \let\pthfive=\paseven\fi
         \if\endrb\brsix \let\pthsix=\paseven\fi
         \if\endrb\brseven \let\pthseven=\paseven\fi
         \if\endrb\breight \let\ptheight=\paseven\fi
         \if\endrb\brnine \let\pthnine=\paseven\fi
         \if\endrb\brnull \let\pthnull=\paseven\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\paseven\fi
         \if\endrb\brtwo \let\ptitwo=\paseven\fi
         \if\endrb\brthree \let\ptithree=\paseven\fi
         \if\endrb\brfour \let\ptifour=\paseven\fi
         \if\endrb\brfive \let\ptifive=\paseven\fi
         \if\endrb\brsix \let\ptisix=\paseven\fi
         \if\endrb\brseven \let\ptiseven=\paseven\fi
         \if\endrb\breight \let\ptieight=\paseven\fi
         \if\endrb\brnine \let\ptinine=\paseven\fi
         \if\endrb\brnull \let\ptinull=\paseven\fi\fi\fi      
   \if\startrb\breight \aeightset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\paeight\fi
         \if\endrb\brtwo \let\ptatwo=\paeight\fi
         \if\endrb\brthree \let\ptathree=\paeight\fi
         \if\endrb\brfour \let\ptafour=\paeight\fi
         \if\endrb\brfive \let\ptafive=\paeight\fi
         \if\endrb\brsix \let\ptasix=\paeight\fi
         \if\endrb\brseven \let\ptaseven=\paeight\fi
         \if\endrb\breight \let\ptaeight=\paeight\fi
         \if\endrb\brnine \let\ptanine=\paeight\fi
         \if\endrb\brnull \let\ptanull=\paeight\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\paeight\fi
         \if\endrb\brtwo \let\ptbtwo=\paeight\fi
         \if\endrb\brthree \let\ptbthree=\paeight\fi
         \if\endrb\brfour \let\ptbfour=\paeight\fi
         \if\endrb\brfive \let\ptbfive=\paeight\fi
         \if\endrb\brsix \let\ptbsix=\paeight\fi
         \if\endrb\brseven \let\ptbseven=\paeight\fi
         \if\endrb\breight \let\ptbeight=\paeight\fi
         \if\endrb\brnine \let\ptbnine=\paeight\fi
         \if\endrb\brnull \let\ptbnull=\paeight\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\paeight\fi
         \if\endrb\brtwo \let\ptctwo=\paeight\fi
         \if\endrb\brthree \let\ptcthree=\paeight\fi
         \if\endrb\brfour \let\ptcfour=\paeight\fi
         \if\endrb\brfive \let\ptcfive=\paeight\fi
         \if\endrb\brsix \let\ptcsix=\paeight\fi
         \if\endrb\brseven \let\ptcseven=\paeight\fi
         \if\endrb\breight \let\ptceight=\paeight\fi
         \if\endrb\brnine \let\ptcnine=\paeight\fi
         \if\endrb\brnull \let\ptcnull=\paeight\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\paeight\fi
         \if\endrb\brtwo \let\ptdtwo=\paeight\fi
         \if\endrb\brthree \let\ptdthree=\paeight\fi
         \if\endrb\brfour \let\ptdfour=\paeight\fi
         \if\endrb\brfive \let\ptdfive=\paeight\fi
         \if\endrb\brsix \let\ptdsix=\paeight\fi
         \if\endrb\brseven \let\ptdseven=\paeight\fi
         \if\endrb\breight \let\ptdeight=\paeight\fi
         \if\endrb\brnine \let\ptdnine=\paeight\fi
         \if\endrb\brnull \let\ptdnull=\paeight\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\paeight\fi
         \if\endrb\brtwo \let\ptetwo=\paeight\fi
         \if\endrb\brthree \let\ptethree=\paeight\fi
         \if\endrb\brfour \let\ptefour=\paeight\fi
         \if\endrb\brfive \let\ptefive=\paeight\fi
         \if\endrb\brsix \let\ptesix=\paeight\fi
         \if\endrb\brseven \let\pteseven=\paeight\fi
         \if\endrb\breight \let\pteeight=\paeight\fi
         \if\endrb\brnine \let\ptenine=\paeight\fi
         \if\endrb\brnull \let\ptenull=\paeight\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\paeight\fi
         \if\endrb\brtwo \let\ptftwo=\paeight\fi
         \if\endrb\brthree \let\ptfthree=\paeight\fi
         \if\endrb\brfour \let\ptffour=\paeight\fi
         \if\endrb\brfive \let\ptffive=\paeight\fi
         \if\endrb\brsix \let\ptfsix=\paeight\fi
         \if\endrb\brseven \let\ptfseven=\paeight\fi
         \if\endrb\breight \let\ptfeight=\paeight\fi
         \if\endrb\brnine \let\ptfnine=\paeight\fi
         \if\endrb\brnull \let\ptfnull=\paeight\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\paeight\fi
         \if\endrb\brtwo \let\ptgtwo=\paeight\fi
         \if\endrb\brthree \let\ptgthree=\paeight\fi
         \if\endrb\brfour \let\ptgfour=\paeight\fi
         \if\endrb\brfive \let\ptgfive=\paeight\fi
         \if\endrb\brsix \let\ptgsix=\paeight\fi
         \if\endrb\brseven \let\ptgseven=\paeight\fi
         \if\endrb\breight \let\ptgeight=\paeight\fi
         \if\endrb\brnine \let\ptgnine=\paeight\fi
         \if\endrb\brnull \let\ptgnull=\paeight\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\paeight\fi
         \if\endrb\brtwo \let\pthtwo=\paeight\fi
         \if\endrb\brthree \let\pththree=\paeight\fi
         \if\endrb\brfour \let\pthfour=\paeight\fi
         \if\endrb\brfive \let\pthfive=\paeight\fi
         \if\endrb\brsix \let\pthsix=\paeight\fi
         \if\endrb\brseven \let\pthseven=\paeight\fi
         \if\endrb\breight \let\ptheight=\paeight\fi
         \if\endrb\brnine \let\pthnine=\paeight\fi
         \if\endrb\brnull \let\pthnull=\paeight\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\paeight\fi
         \if\endrb\brtwo \let\ptitwo=\paeight\fi
         \if\endrb\brthree \let\ptithree=\paeight\fi
         \if\endrb\brfour \let\ptifour=\paeight\fi
         \if\endrb\brfive \let\ptifive=\paeight\fi
         \if\endrb\brsix \let\ptisix=\paeight\fi
         \if\endrb\brseven \let\ptiseven=\paeight\fi
         \if\endrb\breight \let\ptieight=\paeight\fi
         \if\endrb\brnine \let\ptinine=\paeight\fi
         \if\endrb\brnull \let\ptinull=\paeight\fi\fi\fi      
   \if\startrb\brnine \anineset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\panine\fi
         \if\endrb\brtwo \let\ptatwo=\panine\fi
         \if\endrb\brthree \let\ptathree=\panine\fi
         \if\endrb\brfour \let\ptafour=\panine\fi
         \if\endrb\brfive \let\ptafive=\panine\fi
         \if\endrb\brsix \let\ptasix=\panine\fi
         \if\endrb\brseven \let\ptaseven=\panine\fi
         \if\endrb\breight \let\ptaeight=\panine\fi
         \if\endrb\brnine \let\ptanine=\panine\fi
         \if\endrb\brnull \let\ptanull=\panine\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\panine\fi
         \if\endrb\brtwo \let\ptbtwo=\panine\fi
         \if\endrb\brthree \let\ptbthree=\panine\fi
         \if\endrb\brfour \let\ptbfour=\panine\fi
         \if\endrb\brfive \let\ptbfive=\panine\fi
         \if\endrb\brsix \let\ptbsix=\panine\fi
         \if\endrb\brseven \let\ptbseven=\panine\fi
         \if\endrb\breight \let\ptbeight=\panine\fi
         \if\endrb\brnine \let\ptbnine=\panine\fi
         \if\endrb\brnull \let\ptbnull=\panine\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\panine\fi
         \if\endrb\brtwo \let\ptctwo=\panine\fi
         \if\endrb\brthree \let\ptcthree=\panine\fi
         \if\endrb\brfour \let\ptcfour=\panine\fi
         \if\endrb\brfive \let\ptcfive=\panine\fi
         \if\endrb\brsix \let\ptcsix=\panine\fi
         \if\endrb\brseven \let\ptcseven=\panine\fi
         \if\endrb\breight \let\ptceight=\panine\fi
         \if\endrb\brnine \let\ptcnine=\panine\fi
         \if\endrb\brnull \let\ptcnull=\panine\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\panine\fi
         \if\endrb\brtwo \let\ptdtwo=\panine\fi
         \if\endrb\brthree \let\ptdthree=\panine\fi
         \if\endrb\brfour \let\ptdfour=\panine\fi
         \if\endrb\brfive \let\ptdfive=\panine\fi
         \if\endrb\brsix \let\ptdsix=\panine\fi
         \if\endrb\brseven \let\ptdseven=\panine\fi
         \if\endrb\breight \let\ptdeight=\panine\fi
         \if\endrb\brnine \let\ptdnine=\panine\fi
         \if\endrb\brnull \let\ptdnull=\panine\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\panine\fi
         \if\endrb\brtwo \let\ptetwo=\panine\fi
         \if\endrb\brthree \let\ptethree=\panine\fi
         \if\endrb\brfour \let\ptefour=\panine\fi
         \if\endrb\brfive \let\ptefive=\panine\fi
         \if\endrb\brsix \let\ptesix=\panine\fi
         \if\endrb\brseven \let\pteseven=\panine\fi
         \if\endrb\breight \let\pteeight=\panine\fi
         \if\endrb\brnine \let\ptenine=\panine\fi
         \if\endrb\brnull \let\ptenull=\panine\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\panine\fi
         \if\endrb\brtwo \let\ptftwo=\panine\fi
         \if\endrb\brthree \let\ptfthree=\panine\fi
         \if\endrb\brfour \let\ptffour=\panine\fi
         \if\endrb\brfive \let\ptffive=\panine\fi
         \if\endrb\brsix \let\ptfsix=\panine\fi
         \if\endrb\brseven \let\ptfseven=\panine\fi
         \if\endrb\breight \let\ptfeight=\panine\fi
         \if\endrb\brnine \let\ptfnine=\panine\fi
         \if\endrb\brnull \let\ptfnull=\panine\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\panine\fi
         \if\endrb\brtwo \let\ptgtwo=\panine\fi
         \if\endrb\brthree \let\ptgthree=\panine\fi
         \if\endrb\brfour \let\ptgfour=\panine\fi
         \if\endrb\brfive \let\ptgfive=\panine\fi
         \if\endrb\brsix \let\ptgsix=\panine\fi
         \if\endrb\brseven \let\ptgseven=\panine\fi
         \if\endrb\breight \let\ptgeight=\panine\fi
         \if\endrb\brnine \let\ptgnine=\panine\fi
         \if\endrb\brnull \let\ptgnull=\panine\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\panine\fi
         \if\endrb\brtwo \let\pthtwo=\panine\fi
         \if\endrb\brthree \let\pththree=\panine\fi
         \if\endrb\brfour \let\pthfour=\panine\fi
         \if\endrb\brfive \let\pthfive=\panine\fi
         \if\endrb\brsix \let\pthsix=\panine\fi
         \if\endrb\brseven \let\pthseven=\panine\fi
         \if\endrb\breight \let\ptheight=\panine\fi
         \if\endrb\brnine \let\pthnine=\panine\fi
         \if\endrb\brnull \let\pthnull=\panine\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\panine\fi
         \if\endrb\brtwo \let\ptitwo=\panine\fi
         \if\endrb\brthree \let\ptithree=\panine\fi
         \if\endrb\brfour \let\ptifour=\panine\fi
         \if\endrb\brfive \let\ptifive=\panine\fi
         \if\endrb\brsix \let\ptisix=\panine\fi
         \if\endrb\brseven \let\ptiseven=\panine\fi
         \if\endrb\breight \let\ptieight=\panine\fi
         \if\endrb\brnine \let\ptinine=\panine\fi
         \if\endrb\brnull \let\ptinull=\panine\fi\fi\fi      
   \if\startrb\brnull \anullset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\panull\fi
         \if\endrb\brtwo \let\ptatwo=\panull\fi
         \if\endrb\brthree \let\ptathree=\panull\fi
         \if\endrb\brfour \let\ptafour=\panull\fi
         \if\endrb\brfive \let\ptafive=\panull\fi
         \if\endrb\brsix \let\ptasix=\panull\fi
         \if\endrb\brseven \let\ptaseven=\panull\fi
         \if\endrb\breight \let\ptaeight=\panull\fi
         \if\endrb\brnine \let\ptanine=\panull\fi
         \if\endrb\brnull \let\ptanull=\panull\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\panull\fi
         \if\endrb\brtwo \let\ptbtwo=\panull\fi
         \if\endrb\brthree \let\ptbthree=\panull\fi
         \if\endrb\brfour \let\ptbfour=\panull\fi
         \if\endrb\brfive \let\ptbfive=\panull\fi
         \if\endrb\brsix \let\ptbsix=\panull\fi
         \if\endrb\brseven \let\ptbseven=\panull\fi
         \if\endrb\breight \let\ptbeight=\panull\fi
         \if\endrb\brnine \let\ptbnine=\panull\fi
         \if\endrb\brnull \let\ptbnull=\panull\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\panull\fi
         \if\endrb\brtwo \let\ptctwo=\panull\fi
         \if\endrb\brthree \let\ptcthree=\panull\fi
         \if\endrb\brfour \let\ptcfour=\panull\fi
         \if\endrb\brfive \let\ptcfive=\panull\fi
         \if\endrb\brsix \let\ptcsix=\panull\fi
         \if\endrb\brseven \let\ptcseven=\panull\fi
         \if\endrb\breight \let\ptceight=\panull\fi
         \if\endrb\brnine \let\ptcnine=\panull\fi
         \if\endrb\brnull \let\ptcnull=\panull\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\panull\fi
         \if\endrb\brtwo \let\ptdtwo=\panull\fi
         \if\endrb\brthree \let\ptdthree=\panull\fi
         \if\endrb\brfour \let\ptdfour=\panull\fi
         \if\endrb\brfive \let\ptdfive=\panull\fi
         \if\endrb\brsix \let\ptdsix=\panull\fi
         \if\endrb\brseven \let\ptdseven=\panull\fi
         \if\endrb\breight \let\ptdeight=\panull\fi
         \if\endrb\brnine \let\ptdnine=\panull\fi
         \if\endrb\brnull \let\ptdnull=\panull\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\panull\fi
         \if\endrb\brtwo \let\ptetwo=\panull\fi
         \if\endrb\brthree \let\ptethree=\panull\fi
         \if\endrb\brfour \let\ptefour=\panull\fi
         \if\endrb\brfive \let\ptefive=\panull\fi
         \if\endrb\brsix \let\ptesix=\panull\fi
         \if\endrb\brseven \let\pteseven=\panull\fi
         \if\endrb\breight \let\pteeight=\panull\fi
         \if\endrb\brnine \let\ptenine=\panull\fi
         \if\endrb\brnull \let\ptenull=\panull\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\panull\fi
         \if\endrb\brtwo \let\ptftwo=\panull\fi
         \if\endrb\brthree \let\ptfthree=\panull\fi
         \if\endrb\brfour \let\ptffour=\panull\fi
         \if\endrb\brfive \let\ptffive=\panull\fi
         \if\endrb\brsix \let\ptfsix=\panull\fi
         \if\endrb\brseven \let\ptfseven=\panull\fi
         \if\endrb\breight \let\ptfeight=\panull\fi
         \if\endrb\brnine \let\ptfnine=\panull\fi
         \if\endrb\brnull \let\ptfnull=\panull\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\panull\fi
         \if\endrb\brtwo \let\ptgtwo=\panull\fi
         \if\endrb\brthree \let\ptgthree=\panull\fi
         \if\endrb\brfour \let\ptgfour=\panull\fi
         \if\endrb\brfive \let\ptgfive=\panull\fi
         \if\endrb\brsix \let\ptgsix=\panull\fi
         \if\endrb\brseven \let\ptgseven=\panull\fi
         \if\endrb\breight \let\ptgeight=\panull\fi
         \if\endrb\brnine \let\ptgnine=\panull\fi
         \if\endrb\brnull \let\ptgnull=\panull\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\panull\fi
         \if\endrb\brtwo \let\pthtwo=\panull\fi
         \if\endrb\brthree \let\pththree=\panull\fi
         \if\endrb\brfour \let\pthfour=\panull\fi
         \if\endrb\brfive \let\pthfive=\panull\fi
         \if\endrb\brsix \let\pthsix=\panull\fi
         \if\endrb\brseven \let\pthseven=\panull\fi
         \if\endrb\breight \let\ptheight=\panull\fi
         \if\endrb\brnine \let\pthnine=\panull\fi
         \if\endrb\brnull \let\pthnull=\panull\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\panull\fi
         \if\endrb\brtwo \let\ptitwo=\panull\fi
         \if\endrb\brthree \let\ptithree=\panull\fi
         \if\endrb\brfour \let\ptifour=\panull\fi
         \if\endrb\brfive \let\ptifive=\panull\fi
         \if\endrb\brsix \let\ptisix=\panull\fi
         \if\endrb\brseven \let\ptiseven=\panull\fi
         \if\endrb\breight \let\ptieight=\panull\fi
         \if\endrb\brnine \let\ptinine=\panull\fi
         \if\endrb\brnull \let\ptinull=\panull\fi\fi\fi\fi      
\if\startlb\bli
   \if\startrb\brone \boneset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pbone\fi
         \if\endrb\brtwo \let\ptatwo=\pbone\fi
         \if\endrb\brthree \let\ptathree=\pbone\fi
         \if\endrb\brfour \let\ptafour=\pbone\fi
         \if\endrb\brfive \let\ptafive=\pbone\fi
         \if\endrb\brsix \let\ptasix=\pbone\fi
         \if\endrb\brseven \let\ptaseven=\pbone\fi
         \if\endrb\breight \let\ptaeight=\pbone\fi
         \if\endrb\brnine \let\ptanine=\pbone\fi
         \if\endrb\brnull \let\ptanull=\pbone\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pbone\fi
         \if\endrb\brtwo \let\ptbtwo=\pbone\fi
         \if\endrb\brthree \let\ptbthree=\pbone\fi
         \if\endrb\brfour \let\ptbfour=\pbone\fi
         \if\endrb\brfive \let\ptbfive=\pbone\fi
         \if\endrb\brsix \let\ptbsix=\pbone\fi
         \if\endrb\brseven \let\ptbseven=\pbone\fi
         \if\endrb\breight \let\ptbeight=\pbone\fi
         \if\endrb\brnine \let\ptbnine=\pbone\fi
         \if\endrb\brnull \let\ptbnull=\pbone\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pbone\fi
         \if\endrb\brtwo \let\ptctwo=\pbone\fi
         \if\endrb\brthree \let\ptcthree=\pbone\fi
         \if\endrb\brfour \let\ptcfour=\pbone\fi
         \if\endrb\brfive \let\ptcfive=\pbone\fi
         \if\endrb\brsix \let\ptcsix=\pbone\fi
         \if\endrb\brseven \let\ptcseven=\pbone\fi
         \if\endrb\breight \let\ptceight=\pbone\fi
         \if\endrb\brnine \let\ptcnine=\pbone\fi
         \if\endrb\brnull \let\ptcnull=\pbone\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pbone\fi
         \if\endrb\brtwo \let\ptdtwo=\pbone\fi
         \if\endrb\brthree \let\ptdthree=\pbone\fi
         \if\endrb\brfour \let\ptdfour=\pbone\fi
         \if\endrb\brfive \let\ptdfive=\pbone\fi
         \if\endrb\brsix \let\ptdsix=\pbone\fi
         \if\endrb\brseven \let\ptdseven=\pbone\fi
         \if\endrb\breight \let\ptdeight=\pbone\fi
         \if\endrb\brnine \let\ptdnine=\pbone\fi
         \if\endrb\brnull \let\ptdnull=\pbone\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pbone\fi
         \if\endrb\brtwo \let\ptetwo=\pbone\fi
         \if\endrb\brthree \let\ptethree=\pbone\fi
         \if\endrb\brfour \let\ptefour=\pbone\fi
         \if\endrb\brfive \let\ptefive=\pbone\fi
         \if\endrb\brsix \let\ptesix=\pbone\fi
         \if\endrb\brseven \let\pteseven=\pbone\fi
         \if\endrb\breight \let\pteeight=\pbone\fi
         \if\endrb\brnine \let\ptenine=\pbone\fi
         \if\endrb\brnull \let\ptenull=\pbone\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pbone\fi
         \if\endrb\brtwo \let\ptftwo=\pbone\fi
         \if\endrb\brthree \let\ptfthree=\pbone\fi
         \if\endrb\brfour \let\ptffour=\pbone\fi
         \if\endrb\brfive \let\ptffive=\pbone\fi
         \if\endrb\brsix \let\ptfsix=\pbone\fi
         \if\endrb\brseven \let\ptfseven=\pbone\fi
         \if\endrb\breight \let\ptfeight=\pbone\fi
         \if\endrb\brnine \let\ptfnine=\pbone\fi
         \if\endrb\brnull \let\ptfnull=\pbone\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pbone\fi
         \if\endrb\brtwo \let\ptgtwo=\pbone\fi
         \if\endrb\brthree \let\ptgthree=\pbone\fi
         \if\endrb\brfour \let\ptgfour=\pbone\fi
         \if\endrb\brfive \let\ptgfive=\pbone\fi
         \if\endrb\brsix \let\ptgsix=\pbone\fi
         \if\endrb\brseven \let\ptgseven=\pbone\fi
         \if\endrb\breight \let\ptgeight=\pbone\fi
         \if\endrb\brnine \let\ptgnine=\pbone\fi
         \if\endrb\brnull \let\ptgnull=\pbone\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pbone\fi
         \if\endrb\brtwo \let\pthtwo=\pbone\fi
         \if\endrb\brthree \let\pththree=\pbone\fi
         \if\endrb\brfour \let\pthfour=\pbone\fi
         \if\endrb\brfive \let\pthfive=\pbone\fi
         \if\endrb\brsix \let\pthsix=\pbone\fi
         \if\endrb\brseven \let\pthseven=\pbone\fi
         \if\endrb\breight \let\ptheight=\pbone\fi
         \if\endrb\brnine \let\pthnine=\pbone\fi
         \if\endrb\brnull \let\pthnull=\pbone\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pbone\fi
         \if\endrb\brtwo \let\ptitwo=\pbone\fi
         \if\endrb\brthree \let\ptithree=\pbone\fi
         \if\endrb\brfour \let\ptifour=\pbone\fi
         \if\endrb\brfive \let\ptifive=\pbone\fi
         \if\endrb\brsix \let\ptisix=\pbone\fi
         \if\endrb\brseven \let\ptiseven=\pbone\fi
         \if\endrb\breight \let\ptieight=\pbone\fi
         \if\endrb\brnine \let\ptinine=\pbone\fi
         \if\endrb\brnull \let\ptinull=\pbone\fi\fi\fi      
   \if\startrb\brtwo \btwoset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pbtwo\fi
         \if\endrb\brtwo \let\ptatwo=\pbtwo\fi
         \if\endrb\brthree \let\ptathree=\pbtwo\fi
         \if\endrb\brfour \let\ptafour=\pbtwo\fi
         \if\endrb\brfive \let\ptafive=\pbtwo\fi
         \if\endrb\brsix \let\ptasix=\pbtwo\fi
         \if\endrb\brseven \let\ptaseven=\pbtwo\fi
         \if\endrb\breight \let\ptaeight=\pbtwo\fi
         \if\endrb\brnine \let\ptanine=\pbtwo\fi
         \if\endrb\brnull \let\ptanull=\pbtwo\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pbtwo\fi
         \if\endrb\brtwo \let\ptbtwo=\pbtwo\fi
         \if\endrb\brthree \let\ptbthree=\pbtwo\fi
         \if\endrb\brfour \let\ptbfour=\pbtwo\fi
         \if\endrb\brfive \let\ptbfive=\pbtwo\fi
         \if\endrb\brsix \let\ptbsix=\pbtwo\fi
         \if\endrb\brseven \let\ptbseven=\pbtwo\fi
         \if\endrb\breight \let\ptbeight=\pbtwo\fi
         \if\endrb\brnine \let\ptbnine=\pbtwo\fi
         \if\endrb\brnull \let\ptbnull=\pbtwo\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pbtwo\fi
         \if\endrb\brtwo \let\ptctwo=\pbtwo\fi
         \if\endrb\brthree \let\ptcthree=\pbtwo\fi
         \if\endrb\brfour \let\ptcfour=\pbtwo\fi
         \if\endrb\brfive \let\ptcfive=\pbtwo\fi
         \if\endrb\brsix \let\ptcsix=\pbtwo\fi
         \if\endrb\brseven \let\ptcseven=\pbtwo\fi
         \if\endrb\breight \let\ptceight=\pbtwo\fi
         \if\endrb\brnine \let\ptcnine=\pbtwo\fi
         \if\endrb\brnull \let\ptcnull=\pbtwo\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pbtwo\fi
         \if\endrb\brtwo \let\ptdtwo=\pbtwo\fi
         \if\endrb\brthree \let\ptdthree=\pbtwo\fi
         \if\endrb\brfour \let\ptdfour=\pbtwo\fi
         \if\endrb\brfive \let\ptdfive=\pbtwo\fi
         \if\endrb\brsix \let\ptdsix=\pbtwo\fi
         \if\endrb\brseven \let\ptdseven=\pbtwo\fi
         \if\endrb\breight \let\ptdeight=\pbtwo\fi
         \if\endrb\brnine \let\ptdnine=\pbtwo\fi
         \if\endrb\brnull \let\ptdnull=\pbtwo\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pbtwo\fi
         \if\endrb\brtwo \let\ptetwo=\pbtwo\fi
         \if\endrb\brthree \let\ptethree=\pbtwo\fi
         \if\endrb\brfour \let\ptefour=\pbtwo\fi
         \if\endrb\brfive \let\ptefive=\pbtwo\fi
         \if\endrb\brsix \let\ptesix=\pbtwo\fi
         \if\endrb\brseven \let\pteseven=\pbtwo\fi
         \if\endrb\breight \let\pteeight=\pbtwo\fi
         \if\endrb\brnine \let\ptenine=\pbtwo\fi
         \if\endrb\brnull \let\ptenull=\pbtwo\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pbtwo\fi
         \if\endrb\brtwo \let\ptftwo=\pbtwo\fi
         \if\endrb\brthree \let\ptfthree=\pbtwo\fi
         \if\endrb\brfour \let\ptffour=\pbtwo\fi
         \if\endrb\brfive \let\ptffive=\pbtwo\fi
         \if\endrb\brsix \let\ptfsix=\pbtwo\fi
         \if\endrb\brseven \let\ptfseven=\pbtwo\fi
         \if\endrb\breight \let\ptfeight=\pbtwo\fi
         \if\endrb\brnine \let\ptfnine=\pbtwo\fi
         \if\endrb\brnull \let\ptfnull=\pbtwo\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pbtwo\fi
         \if\endrb\brtwo \let\ptgtwo=\pbtwo\fi
         \if\endrb\brthree \let\ptgthree=\pbtwo\fi
         \if\endrb\brfour \let\ptgfour=\pbtwo\fi
         \if\endrb\brfive \let\ptgfive=\pbtwo\fi
         \if\endrb\brsix \let\ptgsix=\pbtwo\fi
         \if\endrb\brseven \let\ptgseven=\pbtwo\fi
         \if\endrb\breight \let\ptgeight=\pbtwo\fi
         \if\endrb\brnine \let\ptgnine=\pbtwo\fi
         \if\endrb\brnull \let\ptgnull=\pbtwo\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pbtwo\fi
         \if\endrb\brtwo \let\pthtwo=\pbtwo\fi
         \if\endrb\brthree \let\pththree=\pbtwo\fi
         \if\endrb\brfour \let\pthfour=\pbtwo\fi
         \if\endrb\brfive \let\pthfive=\pbtwo\fi
         \if\endrb\brsix \let\pthsix=\pbtwo\fi
         \if\endrb\brseven \let\pthseven=\pbtwo\fi
         \if\endrb\breight \let\ptheight=\pbtwo\fi
         \if\endrb\brnine \let\pthnine=\pbtwo\fi
         \if\endrb\brnull \let\pthnull=\pbtwo\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pbtwo\fi
         \if\endrb\brtwo \let\ptitwo=\pbtwo\fi
         \if\endrb\brthree \let\ptithree=\pbtwo\fi
         \if\endrb\brfour \let\ptifour=\pbtwo\fi
         \if\endrb\brfive \let\ptifive=\pbtwo\fi
         \if\endrb\brsix \let\ptisix=\pbtwo\fi
         \if\endrb\brseven \let\ptiseven=\pbtwo\fi
         \if\endrb\breight \let\ptieight=\pbtwo\fi
         \if\endrb\brnine \let\ptinine=\pbtwo\fi
         \if\endrb\brnull \let\ptinull=\pbtwo\fi\fi\fi
   \if\startrb\brthree \bthreeset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pbthree\fi
         \if\endrb\brtwo \let\ptatwo=\pbthree\fi
         \if\endrb\brthree \let\ptathree=\pbthree\fi
         \if\endrb\brfour \let\ptafour=\pbthree\fi
         \if\endrb\brfive \let\ptafive=\pbthree\fi
         \if\endrb\brsix \let\ptasix=\pbthree\fi
         \if\endrb\brseven \let\ptaseven=\pbthree\fi
         \if\endrb\breight \let\ptaeight=\pbthree\fi
         \if\endrb\brnine \let\ptanine=\pbthree\fi
         \if\endrb\brnull \let\ptanull=\pbthree\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pbthree\fi
         \if\endrb\brtwo \let\ptbtwo=\pbthree\fi
         \if\endrb\brthree \let\ptbthree=\pbthree\fi
         \if\endrb\brfour \let\ptbfour=\pbthree\fi
         \if\endrb\brfive \let\ptbfive=\pbthree\fi
         \if\endrb\brsix \let\ptbsix=\pbthree\fi
         \if\endrb\brseven \let\ptbseven=\pbthree\fi
         \if\endrb\breight \let\ptbeight=\pbthree\fi
         \if\endrb\brnine \let\ptbnine=\pbthree\fi
         \if\endrb\brnull \let\ptbnull=\pbthree\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pbthree\fi
         \if\endrb\brtwo \let\ptctwo=\pbthree\fi
         \if\endrb\brthree \let\ptcthree=\pbthree\fi
         \if\endrb\brfour \let\ptcfour=\pbthree\fi
         \if\endrb\brfive \let\ptcfive=\pbthree\fi
         \if\endrb\brsix \let\ptcsix=\pbthree\fi
         \if\endrb\brseven \let\ptcseven=\pbthree\fi
         \if\endrb\breight \let\ptceight=\pbthree\fi
         \if\endrb\brnine \let\ptcnine=\pbthree\fi
         \if\endrb\brnull \let\ptcnull=\pbthree\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pbthree\fi
         \if\endrb\brtwo \let\ptdtwo=\pbthree\fi
         \if\endrb\brthree \let\ptdthree=\pbthree\fi
         \if\endrb\brfour \let\ptdfour=\pbthree\fi
         \if\endrb\brfive \let\ptdfive=\pbthree\fi
         \if\endrb\brsix \let\ptdsix=\pbthree\fi
         \if\endrb\brseven \let\ptdseven=\pbthree\fi
         \if\endrb\breight \let\ptdeight=\pbthree\fi
         \if\endrb\brnine \let\ptdnine=\pbthree\fi
         \if\endrb\brnull \let\ptdnull=\pbthree\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pbthree\fi
         \if\endrb\brtwo \let\ptetwo=\pbthree\fi
         \if\endrb\brthree \let\ptethree=\pbthree\fi
         \if\endrb\brfour \let\ptefour=\pbthree\fi
         \if\endrb\brfive \let\ptefive=\pbthree\fi
         \if\endrb\brsix \let\ptesix=\pbthree\fi
         \if\endrb\brseven \let\pteseven=\pbthree\fi
         \if\endrb\breight \let\pteeight=\pbthree\fi
         \if\endrb\brnine \let\ptenine=\pbthree\fi
         \if\endrb\brnull \let\ptenull=\pbthree\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pbthree\fi
         \if\endrb\brtwo \let\ptftwo=\pbthree\fi
         \if\endrb\brthree \let\ptfthree=\pbthree\fi
         \if\endrb\brfour \let\ptffour=\pbthree\fi
         \if\endrb\brfive \let\ptffive=\pbthree\fi
         \if\endrb\brsix \let\ptfsix=\pbthree\fi
         \if\endrb\brseven \let\ptfseven=\pbthree\fi
         \if\endrb\breight \let\ptfeight=\pbthree\fi
         \if\endrb\brnine \let\ptfnine=\pbthree\fi
         \if\endrb\brnull \let\ptfnull=\pbthree\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pbthree\fi
         \if\endrb\brtwo \let\ptgtwo=\pbthree\fi
         \if\endrb\brthree \let\ptgthree=\pbthree\fi
         \if\endrb\brfour \let\ptgfour=\pbthree\fi
         \if\endrb\brfive \let\ptgfive=\pbthree\fi
         \if\endrb\brsix \let\ptgsix=\pbthree\fi
         \if\endrb\brseven \let\ptgseven=\pbthree\fi
         \if\endrb\breight \let\ptgeight=\pbthree\fi
         \if\endrb\brnine \let\ptgnine=\pbthree\fi
         \if\endrb\brnull \let\ptgnull=\pbthree\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pbthree\fi
         \if\endrb\brtwo \let\pthtwo=\pbthree\fi
         \if\endrb\brthree \let\pththree=\pbthree\fi
         \if\endrb\brfour \let\pthfour=\pbthree\fi
         \if\endrb\brfive \let\pthfive=\pbthree\fi
         \if\endrb\brsix \let\pthsix=\pbthree\fi
         \if\endrb\brseven \let\pthseven=\pbthree\fi
         \if\endrb\breight \let\ptheight=\pbthree\fi
         \if\endrb\brnine \let\pthnine=\pbthree\fi
         \if\endrb\brnull \let\pthnull=\pbthree\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pbthree\fi
         \if\endrb\brtwo \let\ptitwo=\pbthree\fi
         \if\endrb\brthree \let\ptithree=\pbthree\fi
         \if\endrb\brfour \let\ptifour=\pbthree\fi
         \if\endrb\brfive \let\ptifive=\pbthree\fi
         \if\endrb\brsix \let\ptisix=\pbthree\fi
         \if\endrb\brseven \let\ptiseven=\pbthree\fi
         \if\endrb\breight \let\ptieight=\pbthree\fi
         \if\endrb\brnine \let\ptinine=\pbthree\fi
         \if\endrb\brnull \let\ptinull=\pbthree\fi\fi\fi      
   \if\startrb\brfour \bfourset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pbfour\fi
         \if\endrb\brtwo \let\ptatwo=\pbfour\fi
         \if\endrb\brthree \let\ptathree=\pbfour\fi
         \if\endrb\brfour \let\ptafour=\pbfour\fi
         \if\endrb\brfive \let\ptafive=\pbfour\fi
         \if\endrb\brsix \let\ptasix=\pbfour\fi
         \if\endrb\brseven \let\ptaseven=\pbfour\fi
         \if\endrb\breight \let\ptaeight=\pbfour\fi
         \if\endrb\brnine \let\ptanine=\pbfour\fi
         \if\endrb\brnull \let\ptanull=\pbfour\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pbfour\fi
         \if\endrb\brtwo \let\ptbtwo=\pbfour\fi
         \if\endrb\brthree \let\ptbthree=\pbfour\fi
         \if\endrb\brfour \let\ptbfour=\pbfour\fi
         \if\endrb\brfive \let\ptbfive=\pbfour\fi
         \if\endrb\brsix \let\ptbsix=\pbfour\fi
         \if\endrb\brseven \let\ptbseven=\pbfour\fi
         \if\endrb\breight \let\ptbeight=\pbfour\fi
         \if\endrb\brnine \let\ptbnine=\pbfour\fi
         \if\endrb\brnull \let\ptbnull=\pbfour\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pbfour\fi
         \if\endrb\brtwo \let\ptctwo=\pbfour\fi
         \if\endrb\brthree \let\ptcthree=\pbfour\fi
         \if\endrb\brfour \let\ptcfour=\pbfour\fi
         \if\endrb\brfive \let\ptcfive=\pbfour\fi
         \if\endrb\brsix \let\ptcsix=\pbfour\fi
         \if\endrb\brseven \let\ptcseven=\pbfour\fi
         \if\endrb\breight \let\ptceight=\pbfour\fi
         \if\endrb\brnine \let\ptcnine=\pbfour\fi
         \if\endrb\brnull \let\ptcnull=\pbfour\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pbfour\fi
         \if\endrb\brtwo \let\ptdtwo=\pbfour\fi
         \if\endrb\brthree \let\ptdthree=\pbfour\fi
         \if\endrb\brfour \let\ptdfour=\pbfour\fi
         \if\endrb\brfive \let\ptdfive=\pbfour\fi
         \if\endrb\brsix \let\ptdsix=\pbfour\fi
         \if\endrb\brseven \let\ptdseven=\pbfour\fi
         \if\endrb\breight \let\ptdeight=\pbfour\fi
         \if\endrb\brnine \let\ptdnine=\pbfour\fi
         \if\endrb\brnull \let\ptdnull=\pbfour\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pbfour\fi
         \if\endrb\brtwo \let\ptetwo=\pbfour\fi
         \if\endrb\brthree \let\ptethree=\pbfour\fi
         \if\endrb\brfour \let\ptefour=\pbfour\fi
         \if\endrb\brfive \let\ptefive=\pbfour\fi
         \if\endrb\brsix \let\ptesix=\pbfour\fi
         \if\endrb\brseven \let\pteseven=\pbfour\fi
         \if\endrb\breight \let\pteeight=\pbfour\fi
         \if\endrb\brnine \let\ptenine=\pbfour\fi
         \if\endrb\brnull \let\ptenull=\pbfour\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pbfour\fi
         \if\endrb\brtwo \let\ptftwo=\pbfour\fi
         \if\endrb\brthree \let\ptfthree=\pbfour\fi
         \if\endrb\brfour \let\ptffour=\pbfour\fi
         \if\endrb\brfive \let\ptffive=\pbfour\fi
         \if\endrb\brsix \let\ptfsix=\pbfour\fi
         \if\endrb\brseven \let\ptfseven=\pbfour\fi
         \if\endrb\breight \let\ptfeight=\pbfour\fi
         \if\endrb\brnine \let\ptfnine=\pbfour\fi
         \if\endrb\brnull \let\ptfnull=\pbfour\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pbfour\fi
         \if\endrb\brtwo \let\ptgtwo=\pbfour\fi
         \if\endrb\brthree \let\ptgthree=\pbfour\fi
         \if\endrb\brfour \let\ptgfour=\pbfour\fi
         \if\endrb\brfive \let\ptgfive=\pbfour\fi
         \if\endrb\brsix \let\ptgsix=\pbfour\fi
         \if\endrb\brseven \let\ptgseven=\pbfour\fi
         \if\endrb\breight \let\ptgeight=\pbfour\fi
         \if\endrb\brnine \let\ptgnine=\pbfour\fi
         \if\endrb\brnull \let\ptgnull=\pbfour\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pbfour\fi
         \if\endrb\brtwo \let\pthtwo=\pbfour\fi
         \if\endrb\brthree \let\pththree=\pbfour\fi
         \if\endrb\brfour \let\pthfour=\pbfour\fi
         \if\endrb\brfive \let\pthfive=\pbfour\fi
         \if\endrb\brsix \let\pthsix=\pbfour\fi
         \if\endrb\brseven \let\pthseven=\pbfour\fi
         \if\endrb\breight \let\ptheight=\pbfour\fi
         \if\endrb\brnine \let\pthnine=\pbfour\fi
         \if\endrb\brnull \let\pthnull=\pbfour\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pbfour\fi
         \if\endrb\brtwo \let\ptitwo=\pbfour\fi
         \if\endrb\brthree \let\ptithree=\pbfour\fi
         \if\endrb\brfour \let\ptifour=\pbfour\fi
         \if\endrb\brfive \let\ptifive=\pbfour\fi
         \if\endrb\brsix \let\ptisix=\pbfour\fi
         \if\endrb\brseven \let\ptiseven=\pbfour\fi
         \if\endrb\breight \let\ptieight=\pbfour\fi
         \if\endrb\brnine \let\ptinine=\pbfour\fi
         \if\endrb\brnull \let\ptinull=\pbfour\fi\fi\fi      
   \if\startrb\brfive \bfiveset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pbfive\fi
         \if\endrb\brtwo \let\ptatwo=\pbfive\fi
         \if\endrb\brthree \let\ptathree=\pbfive\fi
         \if\endrb\brfour \let\ptafour=\pbfive\fi
         \if\endrb\brfive \let\ptafive=\pbfive\fi
         \if\endrb\brsix \let\ptasix=\pbfive\fi
         \if\endrb\brseven \let\ptaseven=\pbfive\fi
         \if\endrb\breight \let\ptaeight=\pbfive\fi
         \if\endrb\brnine \let\ptanine=\pbfive\fi
         \if\endrb\brnull \let\ptanull=\pbfive\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pbfive\fi
         \if\endrb\brtwo \let\ptbtwo=\pbfive\fi
         \if\endrb\brthree \let\ptbthree=\pbfive\fi
         \if\endrb\brfour \let\ptbfour=\pbfive\fi
         \if\endrb\brfive \let\ptbfive=\pbfive\fi
         \if\endrb\brsix \let\ptbsix=\pbfive\fi
         \if\endrb\brseven \let\ptbseven=\pbfive\fi
         \if\endrb\breight \let\ptbeight=\pbfive\fi
         \if\endrb\brnine \let\ptbnine=\pbfive\fi
         \if\endrb\brnull \let\ptbnull=\pbfive\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pbfive\fi
         \if\endrb\brtwo \let\ptctwo=\pbfive\fi
         \if\endrb\brthree \let\ptcthree=\pbfive\fi
         \if\endrb\brfour \let\ptcfour=\pbfive\fi
         \if\endrb\brfive \let\ptcfive=\pbfive\fi
         \if\endrb\brsix \let\ptcsix=\pbfive\fi
         \if\endrb\brseven \let\ptcseven=\pbfive\fi
         \if\endrb\breight \let\ptceight=\pbfive\fi
         \if\endrb\brnine \let\ptcnine=\pbfive\fi
         \if\endrb\brnull \let\ptcnull=\pbfive\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pbfive\fi
         \if\endrb\brtwo \let\ptdtwo=\pbfive\fi
         \if\endrb\brthree \let\ptdthree=\pbfive\fi
         \if\endrb\brfour \let\ptdfour=\pbfive\fi
         \if\endrb\brfive \let\ptdfive=\pbfive\fi
         \if\endrb\brsix \let\ptdsix=\pbfive\fi
         \if\endrb\brseven \let\ptdseven=\pbfive\fi
         \if\endrb\breight \let\ptdeight=\pbfive\fi
         \if\endrb\brnine \let\ptdnine=\pbfive\fi
         \if\endrb\brnull \let\ptdnull=\pbfive\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pbfive\fi
         \if\endrb\brtwo \let\ptetwo=\pbfive\fi
         \if\endrb\brthree \let\ptethree=\pbfive\fi
         \if\endrb\brfour \let\ptefour=\pbfive\fi
         \if\endrb\brfive \let\ptefive=\pbfive\fi
         \if\endrb\brsix \let\ptesix=\pbfive\fi
         \if\endrb\brseven \let\pteseven=\pbfive\fi
         \if\endrb\breight \let\pteeight=\pbfive\fi
         \if\endrb\brnine \let\ptenine=\pbfive\fi
         \if\endrb\brnull \let\ptenull=\pbfive\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pbfive\fi
         \if\endrb\brtwo \let\ptftwo=\pbfive\fi
         \if\endrb\brthree \let\ptfthree=\pbfive\fi
         \if\endrb\brfour \let\ptffour=\pbfive\fi
         \if\endrb\brfive \let\ptffive=\pbfive\fi
         \if\endrb\brsix \let\ptfsix=\pbfive\fi
         \if\endrb\brseven \let\ptfseven=\pbfive\fi
         \if\endrb\breight \let\ptfeight=\pbfive\fi
         \if\endrb\brnine \let\ptfnine=\pbfive\fi
         \if\endrb\brnull \let\ptfnull=\pbfive\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pbfive\fi
         \if\endrb\brtwo \let\ptgtwo=\pbfive\fi
         \if\endrb\brthree \let\ptgthree=\pbfive\fi
         \if\endrb\brfour \let\ptgfour=\pbfive\fi
         \if\endrb\brfive \let\ptgfive=\pbfive\fi
         \if\endrb\brsix \let\ptgsix=\pbfive\fi
         \if\endrb\brseven \let\ptgseven=\pbfive\fi
         \if\endrb\breight \let\ptgeight=\pbfive\fi
         \if\endrb\brnine \let\ptgnine=\pbfive\fi
         \if\endrb\brnull \let\ptgnull=\pbfive\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pbfive\fi
         \if\endrb\brtwo \let\pthtwo=\pbfive\fi
         \if\endrb\brthree \let\pththree=\pbfive\fi
         \if\endrb\brfour \let\pthfour=\pbfive\fi
         \if\endrb\brfive \let\pthfive=\pbfive\fi
         \if\endrb\brsix \let\pthsix=\pbfive\fi
         \if\endrb\brseven \let\pthseven=\pbfive\fi
         \if\endrb\breight \let\ptheight=\pbfive\fi
         \if\endrb\brnine \let\pthnine=\pbfive\fi
         \if\endrb\brnull \let\pthnull=\pbfive\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pbfive\fi
         \if\endrb\brtwo \let\ptitwo=\pbfive\fi
         \if\endrb\brthree \let\ptithree=\pbfive\fi
         \if\endrb\brfour \let\ptifour=\pbfive\fi
         \if\endrb\brfive \let\ptifive=\pbfive\fi
         \if\endrb\brsix \let\ptisix=\pbfive\fi
         \if\endrb\brseven \let\ptiseven=\pbfive\fi
         \if\endrb\breight \let\ptieight=\pbfive\fi
         \if\endrb\brnine \let\ptinine=\pbfive\fi
         \if\endrb\brnull \let\ptinull=\pbfive\fi\fi\fi   
   \if\startrb\brsix \bsixset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pbsix\fi
         \if\endrb\brtwo \let\ptatwo=\pbsix\fi
         \if\endrb\brthree \let\ptathree=\pbsix\fi
         \if\endrb\brfour \let\ptafour=\pbsix\fi
         \if\endrb\brfive \let\ptafive=\pbsix\fi
         \if\endrb\brsix \let\ptasix=\pbsix\fi
         \if\endrb\brseven \let\ptaseven=\pbsix\fi
         \if\endrb\breight \let\ptaeight=\pbsix\fi
         \if\endrb\brnine \let\ptanine=\pbsix\fi
         \if\endrb\brnull \let\ptanull=\pbsix\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pbsix\fi
         \if\endrb\brtwo \let\ptbtwo=\pbsix\fi
         \if\endrb\brthree \let\ptbthree=\pbsix\fi
         \if\endrb\brfour \let\ptbfour=\pbsix\fi
         \if\endrb\brfive \let\ptbfive=\pbsix\fi
         \if\endrb\brsix \let\ptbsix=\pbsix\fi
         \if\endrb\brseven \let\ptbseven=\pbsix\fi
         \if\endrb\breight \let\ptbeight=\pbsix\fi
         \if\endrb\brnine \let\ptbnine=\pbsix\fi
         \if\endrb\brnull \let\ptbnull=\pbsix\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pbsix\fi
         \if\endrb\brtwo \let\ptctwo=\pbsix\fi
         \if\endrb\brthree \let\ptcthree=\pbsix\fi
         \if\endrb\brfour \let\ptcfour=\pbsix\fi
         \if\endrb\brfive \let\ptcfive=\pbsix\fi
         \if\endrb\brsix \let\ptcsix=\pbsix\fi
         \if\endrb\brseven \let\ptcseven=\pbsix\fi
         \if\endrb\breight \let\ptceight=\pbsix\fi
         \if\endrb\brnine \let\ptcnine=\pbsix\fi
         \if\endrb\brnull \let\ptcnull=\pbsix\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pbsix\fi
         \if\endrb\brtwo \let\ptdtwo=\pbsix\fi
         \if\endrb\brthree \let\ptdthree=\pbsix\fi
         \if\endrb\brfour \let\ptdfour=\pbsix\fi
         \if\endrb\brfive \let\ptdfive=\pbsix\fi
         \if\endrb\brsix \let\ptdsix=\pbsix\fi
         \if\endrb\brseven \let\ptdseven=\pbsix\fi
         \if\endrb\breight \let\ptdeight=\pbsix\fi
         \if\endrb\brnine \let\ptdnine=\pbsix\fi
         \if\endrb\brnull \let\ptdnull=\pbsix\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pbsix\fi
         \if\endrb\brtwo \let\ptetwo=\pbsix\fi
         \if\endrb\brthree \let\ptethree=\pbsix\fi
         \if\endrb\brfour \let\ptefour=\pbsix\fi
         \if\endrb\brfive \let\ptefive=\pbsix\fi
         \if\endrb\brsix \let\ptesix=\pbsix\fi
         \if\endrb\brseven \let\pteseven=\pbsix\fi
         \if\endrb\breight \let\pteeight=\pbsix\fi
         \if\endrb\brnine \let\ptenine=\pbsix\fi
         \if\endrb\brnull \let\ptenull=\pbsix\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pbsix\fi
         \if\endrb\brtwo \let\ptftwo=\pbsix\fi
         \if\endrb\brthree \let\ptfthree=\pbsix\fi
         \if\endrb\brfour \let\ptffour=\pbsix\fi
         \if\endrb\brfive \let\ptffive=\pbsix\fi
         \if\endrb\brsix \let\ptfsix=\pbsix\fi
         \if\endrb\brseven \let\ptfseven=\pbsix\fi
         \if\endrb\breight \let\ptfeight=\pbsix\fi
         \if\endrb\brnine \let\ptfnine=\pbsix\fi
         \if\endrb\brnull \let\ptfnull=\pbsix\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pbsix\fi
         \if\endrb\brtwo \let\ptgtwo=\pbsix\fi
         \if\endrb\brthree \let\ptgthree=\pbsix\fi
         \if\endrb\brfour \let\ptgfour=\pbsix\fi
         \if\endrb\brfive \let\ptgfive=\pbsix\fi
         \if\endrb\brsix \let\ptgsix=\pbsix\fi
         \if\endrb\brseven \let\ptgseven=\pbsix\fi
         \if\endrb\breight \let\ptgeight=\pbsix\fi
         \if\endrb\brnine \let\ptgnine=\pbsix\fi
         \if\endrb\brnull \let\ptgnull=\pbsix\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pbsix\fi
         \if\endrb\brtwo \let\pthtwo=\pbsix\fi
         \if\endrb\brthree \let\pththree=\pbsix\fi
         \if\endrb\brfour \let\pthfour=\pbsix\fi
         \if\endrb\brfive \let\pthfive=\pbsix\fi
         \if\endrb\brsix \let\pthsix=\pbsix\fi
         \if\endrb\brseven \let\pthseven=\pbsix\fi
         \if\endrb\breight \let\ptheight=\pbsix\fi
         \if\endrb\brnine \let\pthnine=\pbsix\fi
         \if\endrb\brnull \let\pthnull=\pbsix\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pbsix\fi
         \if\endrb\brtwo \let\ptitwo=\pbsix\fi
         \if\endrb\brthree \let\ptithree=\pbsix\fi
         \if\endrb\brfour \let\ptifour=\pbsix\fi
         \if\endrb\brfive \let\ptifive=\pbsix\fi
         \if\endrb\brsix \let\ptisix=\pbsix\fi
         \if\endrb\brseven \let\ptiseven=\pbsix\fi
         \if\endrb\breight \let\ptieight=\pbsix\fi
         \if\endrb\brnine \let\ptinine=\pbsix\fi
         \if\endrb\brnull \let\ptinull=\pbsix\fi\fi\fi
   \if\startrb\brseven \bsevenset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pbseven\fi
         \if\endrb\brtwo \let\ptatwo=\pbseven\fi
         \if\endrb\brthree \let\ptathree=\pbseven\fi
         \if\endrb\brfour \let\ptafour=\pbseven\fi
         \if\endrb\brfive \let\ptafive=\pbseven\fi
         \if\endrb\brsix \let\ptasix=\pbseven\fi
         \if\endrb\brseven \let\ptaseven=\pbseven\fi
         \if\endrb\breight \let\ptaeight=\pbseven\fi
         \if\endrb\brnine \let\ptanine=\pbseven\fi
         \if\endrb\brnull \let\ptanull=\pbseven\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pbseven\fi
         \if\endrb\brtwo \let\ptbtwo=\pbseven\fi
         \if\endrb\brthree \let\ptbthree=\pbseven\fi
         \if\endrb\brfour \let\ptbfour=\pbseven\fi
         \if\endrb\brfive \let\ptbfive=\pbseven\fi
         \if\endrb\brsix \let\ptbsix=\pbseven\fi
         \if\endrb\brseven \let\ptbseven=\pbseven\fi
         \if\endrb\breight \let\ptbeight=\pbseven\fi
         \if\endrb\brnine \let\ptbnine=\pbseven\fi
         \if\endrb\brnull \let\ptbnull=\pbseven\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pbseven\fi
         \if\endrb\brtwo \let\ptctwo=\pbseven\fi
         \if\endrb\brthree \let\ptcthree=\pbseven\fi
         \if\endrb\brfour \let\ptcfour=\pbseven\fi
         \if\endrb\brfive \let\ptcfive=\pbseven\fi
         \if\endrb\brsix \let\ptcsix=\pbseven\fi
         \if\endrb\brseven \let\ptcseven=\pbseven\fi
         \if\endrb\breight \let\ptceight=\pbseven\fi
         \if\endrb\brnine \let\ptcnine=\pbseven\fi
         \if\endrb\brnull \let\ptcnull=\pbseven\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pbseven\fi
         \if\endrb\brtwo \let\ptdtwo=\pbseven\fi
         \if\endrb\brthree \let\ptdthree=\pbseven\fi
         \if\endrb\brfour \let\ptdfour=\pbseven\fi
         \if\endrb\brfive \let\ptdfive=\pbseven\fi
         \if\endrb\brsix \let\ptdsix=\pbseven\fi
         \if\endrb\brseven \let\ptdseven=\pbseven\fi
         \if\endrb\breight \let\ptdeight=\pbseven\fi
         \if\endrb\brnine \let\ptdnine=\pbseven\fi
         \if\endrb\brnull \let\ptdnull=\pbseven\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pbseven\fi
         \if\endrb\brtwo \let\ptetwo=\pbseven\fi
         \if\endrb\brthree \let\ptethree=\pbseven\fi
         \if\endrb\brfour \let\ptefour=\pbseven\fi
         \if\endrb\brfive \let\ptefive=\pbseven\fi
         \if\endrb\brsix \let\ptesix=\pbseven\fi
         \if\endrb\brseven \let\pteseven=\pbseven\fi
         \if\endrb\breight \let\pteeight=\pbseven\fi
         \if\endrb\brnine \let\ptenine=\pbseven\fi
         \if\endrb\brnull \let\ptenull=\pbseven\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pbseven\fi
         \if\endrb\brtwo \let\ptftwo=\pbseven\fi
         \if\endrb\brthree \let\ptfthree=\pbseven\fi
         \if\endrb\brfour \let\ptffour=\pbseven\fi
         \if\endrb\brfive \let\ptffive=\pbseven\fi
         \if\endrb\brsix \let\ptfsix=\pbseven\fi
         \if\endrb\brseven \let\ptfseven=\pbseven\fi
         \if\endrb\breight \let\ptfeight=\pbseven\fi
         \if\endrb\brnine \let\ptfnine=\pbseven\fi
         \if\endrb\brnull \let\ptfnull=\pbseven\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pbseven\fi
         \if\endrb\brtwo \let\ptgtwo=\pbseven\fi
         \if\endrb\brthree \let\ptgthree=\pbseven\fi
         \if\endrb\brfour \let\ptgfour=\pbseven\fi
         \if\endrb\brfive \let\ptgfive=\pbseven\fi
         \if\endrb\brsix \let\ptgsix=\pbseven\fi
         \if\endrb\brseven \let\ptgseven=\pbseven\fi
         \if\endrb\breight \let\ptgeight=\pbseven\fi
         \if\endrb\brnine \let\ptgnine=\pbseven\fi
         \if\endrb\brnull \let\ptgnull=\pbseven\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pbseven\fi
         \if\endrb\brtwo \let\pthtwo=\pbseven\fi
         \if\endrb\brthree \let\pththree=\pbseven\fi
         \if\endrb\brfour \let\pthfour=\pbseven\fi
         \if\endrb\brfive \let\pthfive=\pbseven\fi
         \if\endrb\brsix \let\pthsix=\pbseven\fi
         \if\endrb\brseven \let\pthseven=\pbseven\fi
         \if\endrb\breight \let\ptheight=\pbseven\fi
         \if\endrb\brnine \let\pthnine=\pbseven\fi
         \if\endrb\brnull \let\pthnull=\pbseven\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pbseven\fi
         \if\endrb\brtwo \let\ptitwo=\pbseven\fi
         \if\endrb\brthree \let\ptithree=\pbseven\fi
         \if\endrb\brfour \let\ptifour=\pbseven\fi
         \if\endrb\brfive \let\ptifive=\pbseven\fi
         \if\endrb\brsix \let\ptisix=\pbseven\fi
         \if\endrb\brseven \let\ptiseven=\pbseven\fi
         \if\endrb\breight \let\ptieight=\pbseven\fi
         \if\endrb\brnine \let\ptinine=\pbseven\fi
         \if\endrb\brnull \let\ptinull=\pbseven\fi\fi\fi      
   \if\startrb\breight \beightset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pbeight\fi
         \if\endrb\brtwo \let\ptatwo=\pbeight\fi
         \if\endrb\brthree \let\ptathree=\pbeight\fi
         \if\endrb\brfour \let\ptafour=\pbeight\fi
         \if\endrb\brfive \let\ptafive=\pbeight\fi
         \if\endrb\brsix \let\ptasix=\pbeight\fi
         \if\endrb\brseven \let\ptaseven=\pbeight\fi
         \if\endrb\breight \let\ptaeight=\pbeight\fi
         \if\endrb\brnine \let\ptanine=\pbeight\fi
         \if\endrb\brnull \let\ptanull=\pbeight\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pbeight\fi
         \if\endrb\brtwo \let\ptbtwo=\pbeight\fi
         \if\endrb\brthree \let\ptbthree=\pbeight\fi
         \if\endrb\brfour \let\ptbfour=\pbeight\fi
         \if\endrb\brfive \let\ptbfive=\pbeight\fi
         \if\endrb\brsix \let\ptbsix=\pbeight\fi
         \if\endrb\brseven \let\ptbseven=\pbeight\fi
         \if\endrb\breight \let\ptbeight=\pbeight\fi
         \if\endrb\brnine \let\ptbnine=\pbeight\fi
         \if\endrb\brnull \let\ptbnull=\pbeight\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pbeight\fi
         \if\endrb\brtwo \let\ptctwo=\pbeight\fi
         \if\endrb\brthree \let\ptcthree=\pbeight\fi
         \if\endrb\brfour \let\ptcfour=\pbeight\fi
         \if\endrb\brfive \let\ptcfive=\pbeight\fi
         \if\endrb\brsix \let\ptcsix=\pbeight\fi
         \if\endrb\brseven \let\ptcseven=\pbeight\fi
         \if\endrb\breight \let\ptceight=\pbeight\fi
         \if\endrb\brnine \let\ptcnine=\pbeight\fi
         \if\endrb\brnull \let\ptcnull=\pbeight\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pbeight\fi
         \if\endrb\brtwo \let\ptdtwo=\pbeight\fi
         \if\endrb\brthree \let\ptdthree=\pbeight\fi
         \if\endrb\brfour \let\ptdfour=\pbeight\fi
         \if\endrb\brfive \let\ptdfive=\pbeight\fi
         \if\endrb\brsix \let\ptdsix=\pbeight\fi
         \if\endrb\brseven \let\ptdseven=\pbeight\fi
         \if\endrb\breight \let\ptdeight=\pbeight\fi
         \if\endrb\brnine \let\ptdnine=\pbeight\fi
         \if\endrb\brnull \let\ptdnull=\pbeight\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pbeight\fi
         \if\endrb\brtwo \let\ptetwo=\pbeight\fi
         \if\endrb\brthree \let\ptethree=\pbeight\fi
         \if\endrb\brfour \let\ptefour=\pbeight\fi
         \if\endrb\brfive \let\ptefive=\pbeight\fi
         \if\endrb\brsix \let\ptesix=\pbeight\fi
         \if\endrb\brseven \let\pteseven=\pbeight\fi
         \if\endrb\breight \let\pteeight=\pbeight\fi
         \if\endrb\brnine \let\ptenine=\pbeight\fi
         \if\endrb\brnull \let\ptenull=\pbeight\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pbeight\fi
         \if\endrb\brtwo \let\ptftwo=\pbeight\fi
         \if\endrb\brthree \let\ptfthree=\pbeight\fi
         \if\endrb\brfour \let\ptffour=\pbeight\fi
         \if\endrb\brfive \let\ptffive=\pbeight\fi
         \if\endrb\brsix \let\ptfsix=\pbeight\fi
         \if\endrb\brseven \let\ptfseven=\pbeight\fi
         \if\endrb\breight \let\ptfeight=\pbeight\fi
         \if\endrb\brnine \let\ptfnine=\pbeight\fi
         \if\endrb\brnull \let\ptfnull=\pbeight\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pbeight\fi
         \if\endrb\brtwo \let\ptgtwo=\pbeight\fi
         \if\endrb\brthree \let\ptgthree=\pbeight\fi
         \if\endrb\brfour \let\ptgfour=\pbeight\fi
         \if\endrb\brfive \let\ptgfive=\pbeight\fi
         \if\endrb\brsix \let\ptgsix=\pbeight\fi
         \if\endrb\brseven \let\ptgseven=\pbeight\fi
         \if\endrb\breight \let\ptgeight=\pbeight\fi
         \if\endrb\brnine \let\ptgnine=\pbeight\fi
         \if\endrb\brnull \let\ptgnull=\pbeight\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pbeight\fi
         \if\endrb\brtwo \let\pthtwo=\pbeight\fi
         \if\endrb\brthree \let\pththree=\pbeight\fi
         \if\endrb\brfour \let\pthfour=\pbeight\fi
         \if\endrb\brfive \let\pthfive=\pbeight\fi
         \if\endrb\brsix \let\pthsix=\pbeight\fi
         \if\endrb\brseven \let\pthseven=\pbeight\fi
         \if\endrb\breight \let\ptheight=\pbeight\fi
         \if\endrb\brnine \let\pthnine=\pbeight\fi
         \if\endrb\brnull \let\pthnull=\pbeight\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pbeight\fi
         \if\endrb\brtwo \let\ptitwo=\pbeight\fi
         \if\endrb\brthree \let\ptithree=\pbeight\fi
         \if\endrb\brfour \let\ptifour=\pbeight\fi
         \if\endrb\brfive \let\ptifive=\pbeight\fi
         \if\endrb\brsix \let\ptisix=\pbeight\fi
         \if\endrb\brseven \let\ptiseven=\pbeight\fi
         \if\endrb\breight \let\ptieight=\pbeight\fi
         \if\endrb\brnine \let\ptinine=\pbeight\fi
         \if\endrb\brnull \let\ptinull=\pbeight\fi\fi\fi      
   \if\startrb\brnine \bnineset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pbnine\fi
         \if\endrb\brtwo \let\ptatwo=\pbnine\fi
         \if\endrb\brthree \let\ptathree=\pbnine\fi
         \if\endrb\brfour \let\ptafour=\pbnine\fi
         \if\endrb\brfive \let\ptafive=\pbnine\fi
         \if\endrb\brsix \let\ptasix=\pbnine\fi
         \if\endrb\brseven \let\ptaseven=\pbnine\fi
         \if\endrb\breight \let\ptaeight=\pbnine\fi
         \if\endrb\brnine \let\ptanine=\pbnine\fi
         \if\endrb\brnull \let\ptanull=\pbnine\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pbnine\fi
         \if\endrb\brtwo \let\ptbtwo=\pbnine\fi
         \if\endrb\brthree \let\ptbthree=\pbnine\fi
         \if\endrb\brfour \let\ptbfour=\pbnine\fi
         \if\endrb\brfive \let\ptbfive=\pbnine\fi
         \if\endrb\brsix \let\ptbsix=\pbnine\fi
         \if\endrb\brseven \let\ptbseven=\pbnine\fi
         \if\endrb\breight \let\ptbeight=\pbnine\fi
         \if\endrb\brnine \let\ptbnine=\pbnine\fi
         \if\endrb\brnull \let\ptbnull=\pbnine\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pbnine\fi
         \if\endrb\brtwo \let\ptctwo=\pbnine\fi
         \if\endrb\brthree \let\ptcthree=\pbnine\fi
         \if\endrb\brfour \let\ptcfour=\pbnine\fi
         \if\endrb\brfive \let\ptcfive=\pbnine\fi
         \if\endrb\brsix \let\ptcsix=\pbnine\fi
         \if\endrb\brseven \let\ptcseven=\pbnine\fi
         \if\endrb\breight \let\ptceight=\pbnine\fi
         \if\endrb\brnine \let\ptcnine=\pbnine\fi
         \if\endrb\brnull \let\ptcnull=\pbnine\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pbnine\fi
         \if\endrb\brtwo \let\ptdtwo=\pbnine\fi
         \if\endrb\brthree \let\ptdthree=\pbnine\fi
         \if\endrb\brfour \let\ptdfour=\pbnine\fi
         \if\endrb\brfive \let\ptdfive=\pbnine\fi
         \if\endrb\brsix \let\ptdsix=\pbnine\fi
         \if\endrb\brseven \let\ptdseven=\pbnine\fi
         \if\endrb\breight \let\ptdeight=\pbnine\fi
         \if\endrb\brnine \let\ptdnine=\pbnine\fi
         \if\endrb\brnull \let\ptdnull=\pbnine\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pbnine\fi
         \if\endrb\brtwo \let\ptetwo=\pbnine\fi
         \if\endrb\brthree \let\ptethree=\pbnine\fi
         \if\endrb\brfour \let\ptefour=\pbnine\fi
         \if\endrb\brfive \let\ptefive=\pbnine\fi
         \if\endrb\brsix \let\ptesix=\pbnine\fi
         \if\endrb\brseven \let\pteseven=\pbnine\fi
         \if\endrb\breight \let\pteeight=\pbnine\fi
         \if\endrb\brnine \let\ptenine=\pbnine\fi
         \if\endrb\brnull \let\ptenull=\pbnine\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pbnine\fi
         \if\endrb\brtwo \let\ptftwo=\pbnine\fi
         \if\endrb\brthree \let\ptfthree=\pbnine\fi
         \if\endrb\brfour \let\ptffour=\pbnine\fi
         \if\endrb\brfive \let\ptffive=\pbnine\fi
         \if\endrb\brsix \let\ptfsix=\pbnine\fi
         \if\endrb\brseven \let\ptfseven=\pbnine\fi
         \if\endrb\breight \let\ptfeight=\pbnine\fi
         \if\endrb\brnine \let\ptfnine=\pbnine\fi
         \if\endrb\brnull \let\ptfnull=\pbnine\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pbnine\fi
         \if\endrb\brtwo \let\ptgtwo=\pbnine\fi
         \if\endrb\brthree \let\ptgthree=\pbnine\fi
         \if\endrb\brfour \let\ptgfour=\pbnine\fi
         \if\endrb\brfive \let\ptgfive=\pbnine\fi
         \if\endrb\brsix \let\ptgsix=\pbnine\fi
         \if\endrb\brseven \let\ptgseven=\pbnine\fi
         \if\endrb\breight \let\ptgeight=\pbnine\fi
         \if\endrb\brnine \let\ptgnine=\pbnine\fi
         \if\endrb\brnull \let\ptgnull=\pbnine\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pbnine\fi
         \if\endrb\brtwo \let\pthtwo=\pbnine\fi
         \if\endrb\brthree \let\pththree=\pbnine\fi
         \if\endrb\brfour \let\pthfour=\pbnine\fi
         \if\endrb\brfive \let\pthfive=\pbnine\fi
         \if\endrb\brsix \let\pthsix=\pbnine\fi
         \if\endrb\brseven \let\pthseven=\pbnine\fi
         \if\endrb\breight \let\ptheight=\pbnine\fi
         \if\endrb\brnine \let\pthnine=\pbnine\fi
         \if\endrb\brnull \let\pthnull=\pbnine\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pbnine\fi
         \if\endrb\brtwo \let\ptitwo=\pbnine\fi
         \if\endrb\brthree \let\ptithree=\pbnine\fi
         \if\endrb\brfour \let\ptifour=\pbnine\fi
         \if\endrb\brfive \let\ptifive=\pbnine\fi
         \if\endrb\brsix \let\ptisix=\pbnine\fi
         \if\endrb\brseven \let\ptiseven=\pbnine\fi
         \if\endrb\breight \let\ptieight=\pbnine\fi
         \if\endrb\brnine \let\ptinine=\pbnine\fi
         \if\endrb\brnull \let\ptinull=\pbnine\fi\fi\fi      
   \if\startrb\brnull \bnullset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pbnull\fi
         \if\endrb\brtwo \let\ptatwo=\pbnull\fi
         \if\endrb\brthree \let\ptathree=\pbnull\fi
         \if\endrb\brfour \let\ptafour=\pbnull\fi
         \if\endrb\brfive \let\ptafive=\pbnull\fi
         \if\endrb\brsix \let\ptasix=\pbnull\fi
         \if\endrb\brseven \let\ptaseven=\pbnull\fi
         \if\endrb\breight \let\ptaeight=\pbnull\fi
         \if\endrb\brnine \let\ptanine=\pbnull\fi
         \if\endrb\brnull \let\ptanull=\pbnull\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pbnull\fi
         \if\endrb\brtwo \let\ptbtwo=\pbnull\fi
         \if\endrb\brthree \let\ptbthree=\pbnull\fi
         \if\endrb\brfour \let\ptbfour=\pbnull\fi
         \if\endrb\brfive \let\ptbfive=\pbnull\fi
         \if\endrb\brsix \let\ptbsix=\pbnull\fi
         \if\endrb\brseven \let\ptbseven=\pbnull\fi
         \if\endrb\breight \let\ptbeight=\pbnull\fi
         \if\endrb\brnine \let\ptbnine=\pbnull\fi
         \if\endrb\brnull \let\ptbnull=\pbnull\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pbnull\fi
         \if\endrb\brtwo \let\ptctwo=\pbnull\fi
         \if\endrb\brthree \let\ptcthree=\pbnull\fi
         \if\endrb\brfour \let\ptcfour=\pbnull\fi
         \if\endrb\brfive \let\ptcfive=\pbnull\fi
         \if\endrb\brsix \let\ptcsix=\pbnull\fi
         \if\endrb\brseven \let\ptcseven=\pbnull\fi
         \if\endrb\breight \let\ptceight=\pbnull\fi
         \if\endrb\brnine \let\ptcnine=\pbnull\fi
         \if\endrb\brnull \let\ptcnull=\pbnull\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pbnull\fi
         \if\endrb\brtwo \let\ptdtwo=\pbnull\fi
         \if\endrb\brthree \let\ptdthree=\pbnull\fi
         \if\endrb\brfour \let\ptdfour=\pbnull\fi
         \if\endrb\brfive \let\ptdfive=\pbnull\fi
         \if\endrb\brsix \let\ptdsix=\pbnull\fi
         \if\endrb\brseven \let\ptdseven=\pbnull\fi
         \if\endrb\breight \let\ptdeight=\pbnull\fi
         \if\endrb\brnine \let\ptdnine=\pbnull\fi
         \if\endrb\brnull \let\ptdnull=\pbnull\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pbnull\fi
         \if\endrb\brtwo \let\ptetwo=\pbnull\fi
         \if\endrb\brthree \let\ptethree=\pbnull\fi
         \if\endrb\brfour \let\ptefour=\pbnull\fi
         \if\endrb\brfive \let\ptefive=\pbnull\fi
         \if\endrb\brsix \let\ptesix=\pbnull\fi
         \if\endrb\brseven \let\pteseven=\pbnull\fi
         \if\endrb\breight \let\pteeight=\pbnull\fi
         \if\endrb\brnine \let\ptenine=\pbnull\fi
         \if\endrb\brnull \let\ptenull=\pbnull\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pbnull\fi
         \if\endrb\brtwo \let\ptftwo=\pbnull\fi
         \if\endrb\brthree \let\ptfthree=\pbnull\fi
         \if\endrb\brfour \let\ptffour=\pbnull\fi
         \if\endrb\brfive \let\ptffive=\pbnull\fi
         \if\endrb\brsix \let\ptfsix=\pbnull\fi
         \if\endrb\brseven \let\ptfseven=\pbnull\fi
         \if\endrb\breight \let\ptfeight=\pbnull\fi
         \if\endrb\brnine \let\ptfnine=\pbnull\fi
         \if\endrb\brnull \let\ptfnull=\pbnull\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pbnull\fi
         \if\endrb\brtwo \let\ptgtwo=\pbnull\fi
         \if\endrb\brthree \let\ptgthree=\pbnull\fi
         \if\endrb\brfour \let\ptgfour=\pbnull\fi
         \if\endrb\brfive \let\ptgfive=\pbnull\fi
         \if\endrb\brsix \let\ptgsix=\pbnull\fi
         \if\endrb\brseven \let\ptgseven=\pbnull\fi
         \if\endrb\breight \let\ptgeight=\pbnull\fi
         \if\endrb\brnine \let\ptgnine=\pbnull\fi
         \if\endrb\brnull \let\ptgnull=\pbnull\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pbnull\fi
         \if\endrb\brtwo \let\pthtwo=\pbnull\fi
         \if\endrb\brthree \let\pththree=\pbnull\fi
         \if\endrb\brfour \let\pthfour=\pbnull\fi
         \if\endrb\brfive \let\pthfive=\pbnull\fi
         \if\endrb\brsix \let\pthsix=\pbnull\fi
         \if\endrb\brseven \let\pthseven=\pbnull\fi
         \if\endrb\breight \let\ptheight=\pbnull\fi
         \if\endrb\brnine \let\pthnine=\pbnull\fi
         \if\endrb\brnull \let\pthnull=\pbnull\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pbnull\fi
         \if\endrb\brtwo \let\ptitwo=\pbnull\fi
         \if\endrb\brthree \let\ptithree=\pbnull\fi
         \if\endrb\brfour \let\ptifour=\pbnull\fi
         \if\endrb\brfive \let\ptifive=\pbnull\fi
         \if\endrb\brsix \let\ptisix=\pbnull\fi
         \if\endrb\brseven \let\ptiseven=\pbnull\fi
         \if\endrb\breight \let\ptieight=\pbnull\fi
         \if\endrb\brnine \let\ptinine=\pbnull\fi
         \if\endrb\brnull \let\ptinull=\pbnull\fi\fi\fi\fi
\if\startlb\cli
   \if\startrb\brone \coneset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pcone\fi
         \if\endrb\brtwo \let\ptatwo=\pcone\fi
         \if\endrb\brthree \let\ptathree=\pcone\fi
         \if\endrb\brfour \let\ptafour=\pcone\fi
         \if\endrb\brfive \let\ptafive=\pcone\fi
         \if\endrb\brsix \let\ptasix=\pcone\fi
         \if\endrb\brseven \let\ptaseven=\pcone\fi
         \if\endrb\breight \let\ptaeight=\pcone\fi
         \if\endrb\brnine \let\ptanine=\pcone\fi
         \if\endrb\brnull \let\ptanull=\pcone\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pcone\fi
         \if\endrb\brtwo \let\ptbtwo=\pcone\fi
         \if\endrb\brthree \let\ptbthree=\pcone\fi
         \if\endrb\brfour \let\ptbfour=\pcone\fi
         \if\endrb\brfive \let\ptbfive=\pcone\fi
         \if\endrb\brsix \let\ptbsix=\pcone\fi
         \if\endrb\brseven \let\ptbseven=\pcone\fi
         \if\endrb\breight \let\ptbeight=\pcone\fi
         \if\endrb\brnine \let\ptbnine=\pcone\fi
         \if\endrb\brnull \let\ptbnull=\pcone\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pcone\fi
         \if\endrb\brtwo \let\ptctwo=\pcone\fi
         \if\endrb\brthree \let\ptcthree=\pcone\fi
         \if\endrb\brfour \let\ptcfour=\pcone\fi
         \if\endrb\brfive \let\ptcfive=\pcone\fi
         \if\endrb\brsix \let\ptcsix=\pcone\fi
         \if\endrb\brseven \let\ptcseven=\pcone\fi
         \if\endrb\breight \let\ptceight=\pcone\fi
         \if\endrb\brnine \let\ptcnine=\pcone\fi
         \if\endrb\brnull \let\ptcnull=\pcone\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pcone\fi
         \if\endrb\brtwo \let\ptdtwo=\pcone\fi
         \if\endrb\brthree \let\ptdthree=\pcone\fi
         \if\endrb\brfour \let\ptdfour=\pcone\fi
         \if\endrb\brfive \let\ptdfive=\pcone\fi
         \if\endrb\brsix \let\ptdsix=\pcone\fi
         \if\endrb\brseven \let\ptdseven=\pcone\fi
         \if\endrb\breight \let\ptdeight=\pcone\fi
         \if\endrb\brnine \let\ptdnine=\pcone\fi
         \if\endrb\brnull \let\ptdnull=\pcone\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pcone\fi
         \if\endrb\brtwo \let\ptetwo=\pcone\fi
         \if\endrb\brthree \let\ptethree=\pcone\fi
         \if\endrb\brfour \let\ptefour=\pcone\fi
         \if\endrb\brfive \let\ptefive=\pcone\fi
         \if\endrb\brsix \let\ptesix=\pcone\fi
         \if\endrb\brseven \let\pteseven=\pcone\fi
         \if\endrb\breight \let\pteeight=\pcone\fi
         \if\endrb\brnine \let\ptenine=\pcone\fi
         \if\endrb\brnull \let\ptenull=\pcone\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pcone\fi
         \if\endrb\brtwo \let\ptftwo=\pcone\fi
         \if\endrb\brthree \let\ptfthree=\pcone\fi
         \if\endrb\brfour \let\ptffour=\pcone\fi
         \if\endrb\brfive \let\ptffive=\pcone\fi
         \if\endrb\brsix \let\ptfsix=\pcone\fi
         \if\endrb\brseven \let\ptfseven=\pcone\fi
         \if\endrb\breight \let\ptfeight=\pcone\fi
         \if\endrb\brnine \let\ptfnine=\pcone\fi
         \if\endrb\brnull \let\ptfnull=\pcone\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pcone\fi
         \if\endrb\brtwo \let\ptgtwo=\pcone\fi
         \if\endrb\brthree \let\ptgthree=\pcone\fi
         \if\endrb\brfour \let\ptgfour=\pcone\fi
         \if\endrb\brfive \let\ptgfive=\pcone\fi
         \if\endrb\brsix \let\ptgsix=\pcone\fi
         \if\endrb\brseven \let\ptgseven=\pcone\fi
         \if\endrb\breight \let\ptgeight=\pcone\fi
         \if\endrb\brnine \let\ptgnine=\pcone\fi
         \if\endrb\brnull \let\ptgnull=\pcone\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pcone\fi
         \if\endrb\brtwo \let\pthtwo=\pcone\fi
         \if\endrb\brthree \let\pththree=\pcone\fi
         \if\endrb\brfour \let\pthfour=\pcone\fi
         \if\endrb\brfive \let\pthfive=\pcone\fi
         \if\endrb\brsix \let\pthsix=\pcone\fi
         \if\endrb\brseven \let\pthseven=\pcone\fi
         \if\endrb\breight \let\ptheight=\pcone\fi
         \if\endrb\brnine \let\pthnine=\pcone\fi
         \if\endrb\brnull \let\pthnull=\pcone\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pcone\fi
         \if\endrb\brtwo \let\ptitwo=\pcone\fi
         \if\endrb\brthree \let\ptithree=\pcone\fi
         \if\endrb\brfour \let\ptifour=\pcone\fi
         \if\endrb\brfive \let\ptifive=\pcone\fi
         \if\endrb\brsix \let\ptisix=\pcone\fi
         \if\endrb\brseven \let\ptiseven=\pcone\fi
         \if\endrb\breight \let\ptieight=\pcone\fi
         \if\endrb\brnine \let\ptinine=\pcone\fi
         \if\endrb\brnull \let\ptinull=\pcone\fi\fi\fi      
   \if\startrb\brtwo \ctwoset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pctwo\fi
         \if\endrb\brtwo \let\ptatwo=\pctwo\fi
         \if\endrb\brthree \let\ptathree=\pctwo\fi
         \if\endrb\brfour \let\ptafour=\pctwo\fi
         \if\endrb\brfive \let\ptafive=\pctwo\fi
         \if\endrb\brsix \let\ptasix=\pctwo\fi
         \if\endrb\brseven \let\ptaseven=\pctwo\fi
         \if\endrb\breight \let\ptaeight=\pctwo\fi
         \if\endrb\brnine \let\ptanine=\pctwo\fi
         \if\endrb\brnull \let\ptanull=\pctwo\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pctwo\fi
         \if\endrb\brtwo \let\ptbtwo=\pctwo\fi
         \if\endrb\brthree \let\ptbthree=\pctwo\fi
         \if\endrb\brfour \let\ptbfour=\pctwo\fi
         \if\endrb\brfive \let\ptbfive=\pctwo\fi
         \if\endrb\brsix \let\ptbsix=\pctwo\fi
         \if\endrb\brseven \let\ptbseven=\pctwo\fi
         \if\endrb\breight \let\ptbeight=\pctwo\fi
         \if\endrb\brnine \let\ptbnine=\pctwo\fi
         \if\endrb\brnull \let\ptbnull=\pctwo\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pctwo\fi
         \if\endrb\brtwo \let\ptctwo=\pctwo\fi
         \if\endrb\brthree \let\ptcthree=\pctwo\fi
         \if\endrb\brfour \let\ptcfour=\pctwo\fi
         \if\endrb\brfive \let\ptcfive=\pctwo\fi
         \if\endrb\brsix \let\ptcsix=\pctwo\fi
         \if\endrb\brseven \let\ptcseven=\pctwo\fi
         \if\endrb\breight \let\ptceight=\pctwo\fi
         \if\endrb\brnine \let\ptcnine=\pctwo\fi
         \if\endrb\brnull \let\ptcnull=\pctwo\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pctwo\fi
         \if\endrb\brtwo \let\ptdtwo=\pctwo\fi
         \if\endrb\brthree \let\ptdthree=\pctwo\fi
         \if\endrb\brfour \let\ptdfour=\pctwo\fi
         \if\endrb\brfive \let\ptdfive=\pctwo\fi
         \if\endrb\brsix \let\ptdsix=\pctwo\fi
         \if\endrb\brseven \let\ptdseven=\pctwo\fi
         \if\endrb\breight \let\ptdeight=\pctwo\fi
         \if\endrb\brnine \let\ptdnine=\pctwo\fi
         \if\endrb\brnull \let\ptdnull=\pctwo\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pctwo\fi
         \if\endrb\brtwo \let\ptetwo=\pctwo\fi
         \if\endrb\brthree \let\ptethree=\pctwo\fi
         \if\endrb\brfour \let\ptefour=\pctwo\fi
         \if\endrb\brfive \let\ptefive=\pctwo\fi
         \if\endrb\brsix \let\ptesix=\pctwo\fi
         \if\endrb\brseven \let\pteseven=\pctwo\fi
         \if\endrb\breight \let\pteeight=\pctwo\fi
         \if\endrb\brnine \let\ptenine=\pctwo\fi
         \if\endrb\brnull \let\ptenull=\pctwo\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pctwo\fi
         \if\endrb\brtwo \let\ptftwo=\pctwo\fi
         \if\endrb\brthree \let\ptfthree=\pctwo\fi
         \if\endrb\brfour \let\ptffour=\pctwo\fi
         \if\endrb\brfive \let\ptffive=\pctwo\fi
         \if\endrb\brsix \let\ptfsix=\pctwo\fi
         \if\endrb\brseven \let\ptfseven=\pctwo\fi
         \if\endrb\breight \let\ptfeight=\pctwo\fi
         \if\endrb\brnine \let\ptfnine=\pctwo\fi
         \if\endrb\brnull \let\ptfnull=\pctwo\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pctwo\fi
         \if\endrb\brtwo \let\ptgtwo=\pctwo\fi
         \if\endrb\brthree \let\ptgthree=\pctwo\fi
         \if\endrb\brfour \let\ptgfour=\pctwo\fi
         \if\endrb\brfive \let\ptgfive=\pctwo\fi
         \if\endrb\brsix \let\ptgsix=\pctwo\fi
         \if\endrb\brseven \let\ptgseven=\pctwo\fi
         \if\endrb\breight \let\ptgeight=\pctwo\fi
         \if\endrb\brnine \let\ptgnine=\pctwo\fi
         \if\endrb\brnull \let\ptgnull=\pctwo\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pctwo\fi
         \if\endrb\brtwo \let\pthtwo=\pctwo\fi
         \if\endrb\brthree \let\pththree=\pctwo\fi
         \if\endrb\brfour \let\pthfour=\pctwo\fi
         \if\endrb\brfive \let\pthfive=\pctwo\fi
         \if\endrb\brsix \let\pthsix=\pctwo\fi
         \if\endrb\brseven \let\pthseven=\pctwo\fi
         \if\endrb\breight \let\ptheight=\pctwo\fi
         \if\endrb\brnine \let\pthnine=\pctwo\fi
         \if\endrb\brnull \let\pthnull=\pctwo\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pctwo\fi
         \if\endrb\brtwo \let\ptitwo=\pctwo\fi
         \if\endrb\brthree \let\ptithree=\pctwo\fi
         \if\endrb\brfour \let\ptifour=\pctwo\fi
         \if\endrb\brfive \let\ptifive=\pctwo\fi
         \if\endrb\brsix \let\ptisix=\pctwo\fi
         \if\endrb\brseven \let\ptiseven=\pctwo\fi
         \if\endrb\breight \let\ptieight=\pctwo\fi
         \if\endrb\brnine \let\ptinine=\pctwo\fi
         \if\endrb\brnull \let\ptinull=\pctwo\fi\fi\fi
   \if\startrb\brthree \cthreeset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pcthree\fi
         \if\endrb\brtwo \let\ptatwo=\pcthree\fi
         \if\endrb\brthree \let\ptathree=\pcthree\fi
         \if\endrb\brfour \let\ptafour=\pcthree\fi
         \if\endrb\brfive \let\ptafive=\pcthree\fi
         \if\endrb\brsix \let\ptasix=\pcthree\fi
         \if\endrb\brseven \let\ptaseven=\pcthree\fi
         \if\endrb\breight \let\ptaeight=\pcthree\fi
         \if\endrb\brnine \let\ptanine=\pcthree\fi
         \if\endrb\brnull \let\ptanull=\pcthree\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pcthree\fi
         \if\endrb\brtwo \let\ptbtwo=\pcthree\fi
         \if\endrb\brthree \let\ptbthree=\pcthree\fi
         \if\endrb\brfour \let\ptbfour=\pcthree\fi
         \if\endrb\brfive \let\ptbfive=\pcthree\fi
         \if\endrb\brsix \let\ptbsix=\pcthree\fi
         \if\endrb\brseven \let\ptbseven=\pcthree\fi
         \if\endrb\breight \let\ptbeight=\pcthree\fi
         \if\endrb\brnine \let\ptbnine=\pcthree\fi
         \if\endrb\brnull \let\ptbnull=\pcthree\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pcthree\fi
         \if\endrb\brtwo \let\ptctwo=\pcthree\fi
         \if\endrb\brthree \let\ptcthree=\pcthree\fi
         \if\endrb\brfour \let\ptcfour=\pcthree\fi
         \if\endrb\brfive \let\ptcfive=\pcthree\fi
         \if\endrb\brsix \let\ptcsix=\pcthree\fi
         \if\endrb\brseven \let\ptcseven=\pcthree\fi
         \if\endrb\breight \let\ptceight=\pcthree\fi
         \if\endrb\brnine \let\ptcnine=\pcthree\fi
         \if\endrb\brnull \let\ptcnull=\pcthree\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pcthree\fi
         \if\endrb\brtwo \let\ptdtwo=\pcthree\fi
         \if\endrb\brthree \let\ptdthree=\pcthree\fi
         \if\endrb\brfour \let\ptdfour=\pcthree\fi
         \if\endrb\brfive \let\ptdfive=\pcthree\fi
         \if\endrb\brsix \let\ptdsix=\pcthree\fi
         \if\endrb\brseven \let\ptdseven=\pcthree\fi
         \if\endrb\breight \let\ptdeight=\pcthree\fi
         \if\endrb\brnine \let\ptdnine=\pcthree\fi
         \if\endrb\brnull \let\ptdnull=\pcthree\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pcthree\fi
         \if\endrb\brtwo \let\ptetwo=\pcthree\fi
         \if\endrb\brthree \let\ptethree=\pcthree\fi
         \if\endrb\brfour \let\ptefour=\pcthree\fi
         \if\endrb\brfive \let\ptefive=\pcthree\fi
         \if\endrb\brsix \let\ptesix=\pcthree\fi
         \if\endrb\brseven \let\pteseven=\pcthree\fi
         \if\endrb\breight \let\pteeight=\pcthree\fi
         \if\endrb\brnine \let\ptenine=\pcthree\fi
         \if\endrb\brnull \let\ptenull=\pcthree\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pcthree\fi
         \if\endrb\brtwo \let\ptftwo=\pcthree\fi
         \if\endrb\brthree \let\ptfthree=\pcthree\fi
         \if\endrb\brfour \let\ptffour=\pcthree\fi
         \if\endrb\brfive \let\ptffive=\pcthree\fi
         \if\endrb\brsix \let\ptfsix=\pcthree\fi
         \if\endrb\brseven \let\ptfseven=\pcthree\fi
         \if\endrb\breight \let\ptfeight=\pcthree\fi
         \if\endrb\brnine \let\ptfnine=\pcthree\fi
         \if\endrb\brnull \let\ptfnull=\pcthree\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pcthree\fi
         \if\endrb\brtwo \let\ptgtwo=\pcthree\fi
         \if\endrb\brthree \let\ptgthree=\pcthree\fi
         \if\endrb\brfour \let\ptgfour=\pcthree\fi
         \if\endrb\brfive \let\ptgfive=\pcthree\fi
         \if\endrb\brsix \let\ptgsix=\pcthree\fi
         \if\endrb\brseven \let\ptgseven=\pcthree\fi
         \if\endrb\breight \let\ptgeight=\pcthree\fi
         \if\endrb\brnine \let\ptgnine=\pcthree\fi
         \if\endrb\brnull \let\ptgnull=\pcthree\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pcthree\fi
         \if\endrb\brtwo \let\pthtwo=\pcthree\fi
         \if\endrb\brthree \let\pththree=\pcthree\fi
         \if\endrb\brfour \let\pthfour=\pcthree\fi
         \if\endrb\brfive \let\pthfive=\pcthree\fi
         \if\endrb\brsix \let\pthsix=\pcthree\fi
         \if\endrb\brseven \let\pthseven=\pcthree\fi
         \if\endrb\breight \let\ptheight=\pcthree\fi
         \if\endrb\brnine \let\pthnine=\pcthree\fi
         \if\endrb\brnull \let\pthnull=\pcthree\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pcthree\fi
         \if\endrb\brtwo \let\ptitwo=\pcthree\fi
         \if\endrb\brthree \let\ptithree=\pcthree\fi
         \if\endrb\brfour \let\ptifour=\pcthree\fi
         \if\endrb\brfive \let\ptifive=\pcthree\fi
         \if\endrb\brsix \let\ptisix=\pcthree\fi
         \if\endrb\brseven \let\ptiseven=\pcthree\fi
         \if\endrb\breight \let\ptieight=\pcthree\fi
         \if\endrb\brnine \let\ptinine=\pcthree\fi
         \if\endrb\brnull \let\ptinull=\pcthree\fi\fi\fi      
   \if\startrb\brfour \cfourset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pcfour\fi
         \if\endrb\brtwo \let\ptatwo=\pcfour\fi
         \if\endrb\brthree \let\ptathree=\pcfour\fi
         \if\endrb\brfour \let\ptafour=\pcfour\fi
         \if\endrb\brfive \let\ptafive=\pcfour\fi
         \if\endrb\brsix \let\ptasix=\pcfour\fi
         \if\endrb\brseven \let\ptaseven=\pcfour\fi
         \if\endrb\breight \let\ptaeight=\pcfour\fi
         \if\endrb\brnine \let\ptanine=\pcfour\fi
         \if\endrb\brnull \let\ptanull=\pcfour\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pcfour\fi
         \if\endrb\brtwo \let\ptbtwo=\pcfour\fi
         \if\endrb\brthree \let\ptbthree=\pcfour\fi
         \if\endrb\brfour \let\ptbfour=\pcfour\fi
         \if\endrb\brfive \let\ptbfive=\pcfour\fi
         \if\endrb\brsix \let\ptbsix=\pcfour\fi
         \if\endrb\brseven \let\ptbseven=\pcfour\fi
         \if\endrb\breight \let\ptbeight=\pcfour\fi
         \if\endrb\brnine \let\ptbnine=\pcfour\fi
         \if\endrb\brnull \let\ptbnull=\pcfour\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pcfour\fi
         \if\endrb\brtwo \let\ptctwo=\pcfour\fi
         \if\endrb\brthree \let\ptcthree=\pcfour\fi
         \if\endrb\brfour \let\ptcfour=\pcfour\fi
         \if\endrb\brfive \let\ptcfive=\pcfour\fi
         \if\endrb\brsix \let\ptcsix=\pcfour\fi
         \if\endrb\brseven \let\ptcseven=\pcfour\fi
         \if\endrb\breight \let\ptceight=\pcfour\fi
         \if\endrb\brnine \let\ptcnine=\pcfour\fi
         \if\endrb\brnull \let\ptcnull=\pcfour\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pcfour\fi
         \if\endrb\brtwo \let\ptdtwo=\pcfour\fi
         \if\endrb\brthree \let\ptdthree=\pcfour\fi
         \if\endrb\brfour \let\ptdfour=\pcfour\fi
         \if\endrb\brfive \let\ptdfive=\pcfour\fi
         \if\endrb\brsix \let\ptdsix=\pcfour\fi
         \if\endrb\brseven \let\ptdseven=\pcfour\fi
         \if\endrb\breight \let\ptdeight=\pcfour\fi
         \if\endrb\brnine \let\ptdnine=\pcfour\fi
         \if\endrb\brnull \let\ptdnull=\pcfour\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pcfour\fi
         \if\endrb\brtwo \let\ptetwo=\pcfour\fi
         \if\endrb\brthree \let\ptethree=\pcfour\fi
         \if\endrb\brfour \let\ptefour=\pcfour\fi
         \if\endrb\brfive \let\ptefive=\pcfour\fi
         \if\endrb\brsix \let\ptesix=\pcfour\fi
         \if\endrb\brseven \let\pteseven=\pcfour\fi
         \if\endrb\breight \let\pteeight=\pcfour\fi
         \if\endrb\brnine \let\ptenine=\pcfour\fi
         \if\endrb\brnull \let\ptenull=\pcfour\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pcfour\fi
         \if\endrb\brtwo \let\ptftwo=\pcfour\fi
         \if\endrb\brthree \let\ptfthree=\pcfour\fi
         \if\endrb\brfour \let\ptffour=\pcfour\fi
         \if\endrb\brfive \let\ptffive=\pcfour\fi
         \if\endrb\brsix \let\ptfsix=\pcfour\fi
         \if\endrb\brseven \let\ptfseven=\pcfour\fi
         \if\endrb\breight \let\ptfeight=\pcfour\fi
         \if\endrb\brnine \let\ptfnine=\pcfour\fi
         \if\endrb\brnull \let\ptfnull=\pcfour\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pcfour\fi
         \if\endrb\brtwo \let\ptgtwo=\pcfour\fi
         \if\endrb\brthree \let\ptgthree=\pcfour\fi
         \if\endrb\brfour \let\ptgfour=\pcfour\fi
         \if\endrb\brfive \let\ptgfive=\pcfour\fi
         \if\endrb\brsix \let\ptgsix=\pcfour\fi
         \if\endrb\brseven \let\ptgseven=\pcfour\fi
         \if\endrb\breight \let\ptgeight=\pcfour\fi
         \if\endrb\brnine \let\ptgnine=\pcfour\fi
         \if\endrb\brnull \let\ptgnull=\pcfour\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pcfour\fi
         \if\endrb\brtwo \let\pthtwo=\pcfour\fi
         \if\endrb\brthree \let\pththree=\pcfour\fi
         \if\endrb\brfour \let\pthfour=\pcfour\fi
         \if\endrb\brfive \let\pthfive=\pcfour\fi
         \if\endrb\brsix \let\pthsix=\pcfour\fi
         \if\endrb\brseven \let\pthseven=\pcfour\fi
         \if\endrb\breight \let\ptheight=\pcfour\fi
         \if\endrb\brnine \let\pthnine=\pcfour\fi
         \if\endrb\brnull \let\pthnull=\pcfour\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pcfour\fi
         \if\endrb\brtwo \let\ptitwo=\pcfour\fi
         \if\endrb\brthree \let\ptithree=\pcfour\fi
         \if\endrb\brfour \let\ptifour=\pcfour\fi
         \if\endrb\brfive \let\ptifive=\pcfour\fi
         \if\endrb\brsix \let\ptisix=\pcfour\fi
         \if\endrb\brseven \let\ptiseven=\pcfour\fi
         \if\endrb\breight \let\ptieight=\pcfour\fi
         \if\endrb\brnine \let\ptinine=\pcfour\fi
         \if\endrb\brnull \let\ptinull=\pcfour\fi\fi\fi      
   \if\startrb\brfive \cfiveset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pcfive\fi
         \if\endrb\brtwo \let\ptatwo=\pcfive\fi
         \if\endrb\brthree \let\ptathree=\pcfive\fi
         \if\endrb\brfour \let\ptafour=\pcfive\fi
         \if\endrb\brfive \let\ptafive=\pcfive\fi
         \if\endrb\brsix \let\ptasix=\pcfive\fi
         \if\endrb\brseven \let\ptaseven=\pcfive\fi
         \if\endrb\breight \let\ptaeight=\pcfive\fi
         \if\endrb\brnine \let\ptanine=\pcfive\fi
         \if\endrb\brnull \let\ptanull=\pcfive\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pcfive\fi
         \if\endrb\brtwo \let\ptbtwo=\pcfive\fi
         \if\endrb\brthree \let\ptbthree=\pcfive\fi
         \if\endrb\brfour \let\ptbfour=\pcfive\fi
         \if\endrb\brfive \let\ptbfive=\pcfive\fi
         \if\endrb\brsix \let\ptbsix=\pcfive\fi
         \if\endrb\brseven \let\ptbseven=\pcfive\fi
         \if\endrb\breight \let\ptbeight=\pcfive\fi
         \if\endrb\brnine \let\ptbnine=\pcfive\fi
         \if\endrb\brnull \let\ptbnull=\pcfive\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pcfive\fi
         \if\endrb\brtwo \let\ptctwo=\pcfive\fi
         \if\endrb\brthree \let\ptcthree=\pcfive\fi
         \if\endrb\brfour \let\ptcfour=\pcfive\fi
         \if\endrb\brfive \let\ptcfive=\pcfive\fi
         \if\endrb\brsix \let\ptcsix=\pcfive\fi
         \if\endrb\brseven \let\ptcseven=\pcfive\fi
         \if\endrb\breight \let\ptceight=\pcfive\fi
         \if\endrb\brnine \let\ptcnine=\pcfive\fi
         \if\endrb\brnull \let\ptcnull=\pcfive\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pcfive\fi
         \if\endrb\brtwo \let\ptdtwo=\pcfive\fi
         \if\endrb\brthree \let\ptdthree=\pcfive\fi
         \if\endrb\brfour \let\ptdfour=\pcfive\fi
         \if\endrb\brfive \let\ptdfive=\pcfive\fi
         \if\endrb\brsix \let\ptdsix=\pcfive\fi
         \if\endrb\brseven \let\ptdseven=\pcfive\fi
         \if\endrb\breight \let\ptdeight=\pcfive\fi
         \if\endrb\brnine \let\ptdnine=\pcfive\fi
         \if\endrb\brnull \let\ptdnull=\pcfive\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pcfive\fi
         \if\endrb\brtwo \let\ptetwo=\pcfive\fi
         \if\endrb\brthree \let\ptethree=\pcfive\fi
         \if\endrb\brfour \let\ptefour=\pcfive\fi
         \if\endrb\brfive \let\ptefive=\pcfive\fi
         \if\endrb\brsix \let\ptesix=\pcfive\fi
         \if\endrb\brseven \let\pteseven=\pcfive\fi
         \if\endrb\breight \let\pteeight=\pcfive\fi
         \if\endrb\brnine \let\ptenine=\pcfive\fi
         \if\endrb\brnull \let\ptenull=\pcfive\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pcfive\fi
         \if\endrb\brtwo \let\ptftwo=\pcfive\fi
         \if\endrb\brthree \let\ptfthree=\pcfive\fi
         \if\endrb\brfour \let\ptffour=\pcfive\fi
         \if\endrb\brfive \let\ptffive=\pcfive\fi
         \if\endrb\brsix \let\ptfsix=\pcfive\fi
         \if\endrb\brseven \let\ptfseven=\pcfive\fi
         \if\endrb\breight \let\ptfeight=\pcfive\fi
         \if\endrb\brnine \let\ptfnine=\pcfive\fi
         \if\endrb\brnull \let\ptfnull=\pcfive\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pcfive\fi
         \if\endrb\brtwo \let\ptgtwo=\pcfive\fi
         \if\endrb\brthree \let\ptgthree=\pcfive\fi
         \if\endrb\brfour \let\ptgfour=\pcfive\fi
         \if\endrb\brfive \let\ptgfive=\pcfive\fi
         \if\endrb\brsix \let\ptgsix=\pcfive\fi
         \if\endrb\brseven \let\ptgseven=\pcfive\fi
         \if\endrb\breight \let\ptgeight=\pcfive\fi
         \if\endrb\brnine \let\ptgnine=\pcfive\fi
         \if\endrb\brnull \let\ptgnull=\pcfive\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pcfive\fi
         \if\endrb\brtwo \let\pthtwo=\pcfive\fi
         \if\endrb\brthree \let\pththree=\pcfive\fi
         \if\endrb\brfour \let\pthfour=\pcfive\fi
         \if\endrb\brfive \let\pthfive=\pcfive\fi
         \if\endrb\brsix \let\pthsix=\pcfive\fi
         \if\endrb\brseven \let\pthseven=\pcfive\fi
         \if\endrb\breight \let\ptheight=\pcfive\fi
         \if\endrb\brnine \let\pthnine=\pcfive\fi
         \if\endrb\brnull \let\pthnull=\pcfive\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pcfive\fi
         \if\endrb\brtwo \let\ptitwo=\pcfive\fi
         \if\endrb\brthree \let\ptithree=\pcfive\fi
         \if\endrb\brfour \let\ptifour=\pcfive\fi
         \if\endrb\brfive \let\ptifive=\pcfive\fi
         \if\endrb\brsix \let\ptisix=\pcfive\fi
         \if\endrb\brseven \let\ptiseven=\pcfive\fi
         \if\endrb\breight \let\ptieight=\pcfive\fi
         \if\endrb\brnine \let\ptinine=\pcfive\fi
         \if\endrb\brnull \let\ptinull=\pcfive\fi\fi\fi   
   \if\startrb\brsix \csixset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pcsix\fi
         \if\endrb\brtwo \let\ptatwo=\pcsix\fi
         \if\endrb\brthree \let\ptathree=\pcsix\fi
         \if\endrb\brfour \let\ptafour=\pcsix\fi
         \if\endrb\brfive \let\ptafive=\pcsix\fi
         \if\endrb\brsix \let\ptasix=\pcsix\fi
         \if\endrb\brseven \let\ptaseven=\pcsix\fi
         \if\endrb\breight \let\ptaeight=\pcsix\fi
         \if\endrb\brnine \let\ptanine=\pcsix\fi
         \if\endrb\brnull \let\ptanull=\pcsix\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pcsix\fi
         \if\endrb\brtwo \let\ptbtwo=\pcsix\fi
         \if\endrb\brthree \let\ptbthree=\pcsix\fi
         \if\endrb\brfour \let\ptbfour=\pcsix\fi
         \if\endrb\brfive \let\ptbfive=\pcsix\fi
         \if\endrb\brsix \let\ptbsix=\pcsix\fi
         \if\endrb\brseven \let\ptbseven=\pcsix\fi
         \if\endrb\breight \let\ptbeight=\pcsix\fi
         \if\endrb\brnine \let\ptbnine=\pcsix\fi
         \if\endrb\brnull \let\ptbnull=\pcsix\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pcsix\fi
         \if\endrb\brtwo \let\ptctwo=\pcsix\fi
         \if\endrb\brthree \let\ptcthree=\pcsix\fi
         \if\endrb\brfour \let\ptcfour=\pcsix\fi
         \if\endrb\brfive \let\ptcfive=\pcsix\fi
         \if\endrb\brsix \let\ptcsix=\pcsix\fi
         \if\endrb\brseven \let\ptcseven=\pcsix\fi
         \if\endrb\breight \let\ptceight=\pcsix\fi
         \if\endrb\brnine \let\ptcnine=\pcsix\fi
         \if\endrb\brnull \let\ptcnull=\pcsix\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pcsix\fi
         \if\endrb\brtwo \let\ptdtwo=\pcsix\fi
         \if\endrb\brthree \let\ptdthree=\pcsix\fi
         \if\endrb\brfour \let\ptdfour=\pcsix\fi
         \if\endrb\brfive \let\ptdfive=\pcsix\fi
         \if\endrb\brsix \let\ptdsix=\pcsix\fi
         \if\endrb\brseven \let\ptdseven=\pcsix\fi
         \if\endrb\breight \let\ptdeight=\pcsix\fi
         \if\endrb\brnine \let\ptdnine=\pcsix\fi
         \if\endrb\brnull \let\ptdnull=\pcsix\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pcsix\fi
         \if\endrb\brtwo \let\ptetwo=\pcsix\fi
         \if\endrb\brthree \let\ptethree=\pcsix\fi
         \if\endrb\brfour \let\ptefour=\pcsix\fi
         \if\endrb\brfive \let\ptefive=\pcsix\fi
         \if\endrb\brsix \let\ptesix=\pcsix\fi
         \if\endrb\brseven \let\pteseven=\pcsix\fi
         \if\endrb\breight \let\pteeight=\pcsix\fi
         \if\endrb\brnine \let\ptenine=\pcsix\fi
         \if\endrb\brnull \let\ptenull=\pcsix\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pcsix\fi
         \if\endrb\brtwo \let\ptftwo=\pcsix\fi
         \if\endrb\brthree \let\ptfthree=\pcsix\fi
         \if\endrb\brfour \let\ptffour=\pcsix\fi
         \if\endrb\brfive \let\ptffive=\pcsix\fi
         \if\endrb\brsix \let\ptfsix=\pcsix\fi
         \if\endrb\brseven \let\ptfseven=\pcsix\fi
         \if\endrb\breight \let\ptfeight=\pcsix\fi
         \if\endrb\brnine \let\ptfnine=\pcsix\fi
         \if\endrb\brnull \let\ptfnull=\pcsix\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pcsix\fi
         \if\endrb\brtwo \let\ptgtwo=\pcsix\fi
         \if\endrb\brthree \let\ptgthree=\pcsix\fi
         \if\endrb\brfour \let\ptgfour=\pcsix\fi
         \if\endrb\brfive \let\ptgfive=\pcsix\fi
         \if\endrb\brsix \let\ptgsix=\pcsix\fi
         \if\endrb\brseven \let\ptgseven=\pcsix\fi
         \if\endrb\breight \let\ptgeight=\pcsix\fi
         \if\endrb\brnine \let\ptgnine=\pcsix\fi
         \if\endrb\brnull \let\ptgnull=\pcsix\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pcsix\fi
         \if\endrb\brtwo \let\pthtwo=\pcsix\fi
         \if\endrb\brthree \let\pththree=\pcsix\fi
         \if\endrb\brfour \let\pthfour=\pcsix\fi
         \if\endrb\brfive \let\pthfive=\pcsix\fi
         \if\endrb\brsix \let\pthsix=\pcsix\fi
         \if\endrb\brseven \let\pthseven=\pcsix\fi
         \if\endrb\breight \let\ptheight=\pcsix\fi
         \if\endrb\brnine \let\pthnine=\pcsix\fi
         \if\endrb\brnull \let\pthnull=\pcsix\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pcsix\fi
         \if\endrb\brtwo \let\ptitwo=\pcsix\fi
         \if\endrb\brthree \let\ptithree=\pcsix\fi
         \if\endrb\brfour \let\ptifour=\pcsix\fi
         \if\endrb\brfive \let\ptifive=\pcsix\fi
         \if\endrb\brsix \let\ptisix=\pcsix\fi
         \if\endrb\brseven \let\ptiseven=\pcsix\fi
         \if\endrb\breight \let\ptieight=\pcsix\fi
         \if\endrb\brnine \let\ptinine=\pcsix\fi
         \if\endrb\brnull \let\ptinull=\pcsix\fi\fi\fi
   \if\startrb\brseven \csevenset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pcseven\fi
         \if\endrb\brtwo \let\ptatwo=\pcseven\fi
         \if\endrb\brthree \let\ptathree=\pcseven\fi
         \if\endrb\brfour \let\ptafour=\pcseven\fi
         \if\endrb\brfive \let\ptafive=\pcseven\fi
         \if\endrb\brsix \let\ptasix=\pcseven\fi
         \if\endrb\brseven \let\ptaseven=\pcseven\fi
         \if\endrb\breight \let\ptaeight=\pcseven\fi
         \if\endrb\brnine \let\ptanine=\pcseven\fi
         \if\endrb\brnull \let\ptanull=\pcseven\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pcseven\fi
         \if\endrb\brtwo \let\ptbtwo=\pcseven\fi
         \if\endrb\brthree \let\ptbthree=\pcseven\fi
         \if\endrb\brfour \let\ptbfour=\pcseven\fi
         \if\endrb\brfive \let\ptbfive=\pcseven\fi
         \if\endrb\brsix \let\ptbsix=\pcseven\fi
         \if\endrb\brseven \let\ptbseven=\pcseven\fi
         \if\endrb\breight \let\ptbeight=\pcseven\fi
         \if\endrb\brnine \let\ptbnine=\pcseven\fi
         \if\endrb\brnull \let\ptbnull=\pcseven\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pcseven\fi
         \if\endrb\brtwo \let\ptctwo=\pcseven\fi
         \if\endrb\brthree \let\ptcthree=\pcseven\fi
         \if\endrb\brfour \let\ptcfour=\pcseven\fi
         \if\endrb\brfive \let\ptcfive=\pcseven\fi
         \if\endrb\brsix \let\ptcsix=\pcseven\fi
         \if\endrb\brseven \let\ptcseven=\pcseven\fi
         \if\endrb\breight \let\ptceight=\pcseven\fi
         \if\endrb\brnine \let\ptcnine=\pcseven\fi
         \if\endrb\brnull \let\ptcnull=\pcseven\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pcseven\fi
         \if\endrb\brtwo \let\ptdtwo=\pcseven\fi
         \if\endrb\brthree \let\ptdthree=\pcseven\fi
         \if\endrb\brfour \let\ptdfour=\pcseven\fi
         \if\endrb\brfive \let\ptdfive=\pcseven\fi
         \if\endrb\brsix \let\ptdsix=\pcseven\fi
         \if\endrb\brseven \let\ptdseven=\pcseven\fi
         \if\endrb\breight \let\ptdeight=\pcseven\fi
         \if\endrb\brnine \let\ptdnine=\pcseven\fi
         \if\endrb\brnull \let\ptdnull=\pcseven\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pcseven\fi
         \if\endrb\brtwo \let\ptetwo=\pcseven\fi
         \if\endrb\brthree \let\ptethree=\pcseven\fi
         \if\endrb\brfour \let\ptefour=\pcseven\fi
         \if\endrb\brfive \let\ptefive=\pcseven\fi
         \if\endrb\brsix \let\ptesix=\pcseven\fi
         \if\endrb\brseven \let\pteseven=\pcseven\fi
         \if\endrb\breight \let\pteeight=\pcseven\fi
         \if\endrb\brnine \let\ptenine=\pcseven\fi
         \if\endrb\brnull \let\ptenull=\pcseven\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pcseven\fi
         \if\endrb\brtwo \let\ptftwo=\pcseven\fi
         \if\endrb\brthree \let\ptfthree=\pcseven\fi
         \if\endrb\brfour \let\ptffour=\pcseven\fi
         \if\endrb\brfive \let\ptffive=\pcseven\fi
         \if\endrb\brsix \let\ptfsix=\pcseven\fi
         \if\endrb\brseven \let\ptfseven=\pcseven\fi
         \if\endrb\breight \let\ptfeight=\pcseven\fi
         \if\endrb\brnine \let\ptfnine=\pcseven\fi
         \if\endrb\brnull \let\ptfnull=\pcseven\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pcseven\fi
         \if\endrb\brtwo \let\ptgtwo=\pcseven\fi
         \if\endrb\brthree \let\ptgthree=\pcseven\fi
         \if\endrb\brfour \let\ptgfour=\pcseven\fi
         \if\endrb\brfive \let\ptgfive=\pcseven\fi
         \if\endrb\brsix \let\ptgsix=\pcseven\fi
         \if\endrb\brseven \let\ptgseven=\pcseven\fi
         \if\endrb\breight \let\ptgeight=\pcseven\fi
         \if\endrb\brnine \let\ptgnine=\pcseven\fi
         \if\endrb\brnull \let\ptgnull=\pcseven\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pcseven\fi
         \if\endrb\brtwo \let\pthtwo=\pcseven\fi
         \if\endrb\brthree \let\pththree=\pcseven\fi
         \if\endrb\brfour \let\pthfour=\pcseven\fi
         \if\endrb\brfive \let\pthfive=\pcseven\fi
         \if\endrb\brsix \let\pthsix=\pcseven\fi
         \if\endrb\brseven \let\pthseven=\pcseven\fi
         \if\endrb\breight \let\ptheight=\pcseven\fi
         \if\endrb\brnine \let\pthnine=\pcseven\fi
         \if\endrb\brnull \let\pthnull=\pcseven\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pcseven\fi
         \if\endrb\brtwo \let\ptitwo=\pcseven\fi
         \if\endrb\brthree \let\ptithree=\pcseven\fi
         \if\endrb\brfour \let\ptifour=\pcseven\fi
         \if\endrb\brfive \let\ptifive=\pcseven\fi
         \if\endrb\brsix \let\ptisix=\pcseven\fi
         \if\endrb\brseven \let\ptiseven=\pcseven\fi
         \if\endrb\breight \let\ptieight=\pcseven\fi
         \if\endrb\brnine \let\ptinine=\pcseven\fi
         \if\endrb\brnull \let\ptinull=\pcseven\fi\fi\fi      
   \if\startrb\breight \ceightset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pceight\fi
         \if\endrb\brtwo \let\ptatwo=\pceight\fi
         \if\endrb\brthree \let\ptathree=\pceight\fi
         \if\endrb\brfour \let\ptafour=\pceight\fi
         \if\endrb\brfive \let\ptafive=\pceight\fi
         \if\endrb\brsix \let\ptasix=\pceight\fi
         \if\endrb\brseven \let\ptaseven=\pceight\fi
         \if\endrb\breight \let\ptaeight=\pceight\fi
         \if\endrb\brnine \let\ptanine=\pceight\fi
         \if\endrb\brnull \let\ptanull=\pceight\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pceight\fi
         \if\endrb\brtwo \let\ptbtwo=\pceight\fi
         \if\endrb\brthree \let\ptbthree=\pceight\fi
         \if\endrb\brfour \let\ptbfour=\pceight\fi
         \if\endrb\brfive \let\ptbfive=\pceight\fi
         \if\endrb\brsix \let\ptbsix=\pceight\fi
         \if\endrb\brseven \let\ptbseven=\pceight\fi
         \if\endrb\breight \let\ptbeight=\pceight\fi
         \if\endrb\brnine \let\ptbnine=\pceight\fi
         \if\endrb\brnull \let\ptbnull=\pceight\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pceight\fi
         \if\endrb\brtwo \let\ptctwo=\pceight\fi
         \if\endrb\brthree \let\ptcthree=\pceight\fi
         \if\endrb\brfour \let\ptcfour=\pceight\fi
         \if\endrb\brfive \let\ptcfive=\pceight\fi
         \if\endrb\brsix \let\ptcsix=\pceight\fi
         \if\endrb\brseven \let\ptcseven=\pceight\fi
         \if\endrb\breight \let\ptceight=\pceight\fi
         \if\endrb\brnine \let\ptcnine=\pceight\fi
         \if\endrb\brnull \let\ptcnull=\pceight\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pceight\fi
         \if\endrb\brtwo \let\ptdtwo=\pceight\fi
         \if\endrb\brthree \let\ptdthree=\pceight\fi
         \if\endrb\brfour \let\ptdfour=\pceight\fi
         \if\endrb\brfive \let\ptdfive=\pceight\fi
         \if\endrb\brsix \let\ptdsix=\pceight\fi
         \if\endrb\brseven \let\ptdseven=\pceight\fi
         \if\endrb\breight \let\ptdeight=\pceight\fi
         \if\endrb\brnine \let\ptdnine=\pceight\fi
         \if\endrb\brnull \let\ptdnull=\pceight\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pceight\fi
         \if\endrb\brtwo \let\ptetwo=\pceight\fi
         \if\endrb\brthree \let\ptethree=\pceight\fi
         \if\endrb\brfour \let\ptefour=\pceight\fi
         \if\endrb\brfive \let\ptefive=\pceight\fi
         \if\endrb\brsix \let\ptesix=\pceight\fi
         \if\endrb\brseven \let\pteseven=\pceight\fi
         \if\endrb\breight \let\pteeight=\pceight\fi
         \if\endrb\brnine \let\ptenine=\pceight\fi
         \if\endrb\brnull \let\ptenull=\pceight\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pceight\fi
         \if\endrb\brtwo \let\ptftwo=\pceight\fi
         \if\endrb\brthree \let\ptfthree=\pceight\fi
         \if\endrb\brfour \let\ptffour=\pceight\fi
         \if\endrb\brfive \let\ptffive=\pceight\fi
         \if\endrb\brsix \let\ptfsix=\pceight\fi
         \if\endrb\brseven \let\ptfseven=\pceight\fi
         \if\endrb\breight \let\ptfeight=\pceight\fi
         \if\endrb\brnine \let\ptfnine=\pceight\fi
         \if\endrb\brnull \let\ptfnull=\pceight\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pceight\fi
         \if\endrb\brtwo \let\ptgtwo=\pceight\fi
         \if\endrb\brthree \let\ptgthree=\pceight\fi
         \if\endrb\brfour \let\ptgfour=\pceight\fi
         \if\endrb\brfive \let\ptgfive=\pceight\fi
         \if\endrb\brsix \let\ptgsix=\pceight\fi
         \if\endrb\brseven \let\ptgseven=\pceight\fi
         \if\endrb\breight \let\ptgeight=\pceight\fi
         \if\endrb\brnine \let\ptgnine=\pceight\fi
         \if\endrb\brnull \let\ptgnull=\pceight\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pceight\fi
         \if\endrb\brtwo \let\pthtwo=\pceight\fi
         \if\endrb\brthree \let\pththree=\pceight\fi
         \if\endrb\brfour \let\pthfour=\pceight\fi
         \if\endrb\brfive \let\pthfive=\pceight\fi
         \if\endrb\brsix \let\pthsix=\pceight\fi
         \if\endrb\brseven \let\pthseven=\pceight\fi
         \if\endrb\breight \let\ptheight=\pceight\fi
         \if\endrb\brnine \let\pthnine=\pceight\fi
         \if\endrb\brnull \let\pthnull=\pceight\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pceight\fi
         \if\endrb\brtwo \let\ptitwo=\pceight\fi
         \if\endrb\brthree \let\ptithree=\pceight\fi
         \if\endrb\brfour \let\ptifour=\pceight\fi
         \if\endrb\brfive \let\ptifive=\pceight\fi
         \if\endrb\brsix \let\ptisix=\pceight\fi
         \if\endrb\brseven \let\ptiseven=\pceight\fi
         \if\endrb\breight \let\ptieight=\pceight\fi
         \if\endrb\brnine \let\ptinine=\pceight\fi
         \if\endrb\brnull \let\ptinull=\pceight\fi\fi\fi      
   \if\startrb\brnine \cnineset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pcnine\fi
         \if\endrb\brtwo \let\ptatwo=\pcnine\fi
         \if\endrb\brthree \let\ptathree=\pcnine\fi
         \if\endrb\brfour \let\ptafour=\pcnine\fi
         \if\endrb\brfive \let\ptafive=\pcnine\fi
         \if\endrb\brsix \let\ptasix=\pcnine\fi
         \if\endrb\brseven \let\ptaseven=\pcnine\fi
         \if\endrb\breight \let\ptaeight=\pcnine\fi
         \if\endrb\brnine \let\ptanine=\pcnine\fi
         \if\endrb\brnull \let\ptanull=\pcnine\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pcnine\fi
         \if\endrb\brtwo \let\ptbtwo=\pcnine\fi
         \if\endrb\brthree \let\ptbthree=\pcnine\fi
         \if\endrb\brfour \let\ptbfour=\pcnine\fi
         \if\endrb\brfive \let\ptbfive=\pcnine\fi
         \if\endrb\brsix \let\ptbsix=\pcnine\fi
         \if\endrb\brseven \let\ptbseven=\pcnine\fi
         \if\endrb\breight \let\ptbeight=\pcnine\fi
         \if\endrb\brnine \let\ptbnine=\pcnine\fi
         \if\endrb\brnull \let\ptbnull=\pcnine\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pcnine\fi
         \if\endrb\brtwo \let\ptctwo=\pcnine\fi
         \if\endrb\brthree \let\ptcthree=\pcnine\fi
         \if\endrb\brfour \let\ptcfour=\pcnine\fi
         \if\endrb\brfive \let\ptcfive=\pcnine\fi
         \if\endrb\brsix \let\ptcsix=\pcnine\fi
         \if\endrb\brseven \let\ptcseven=\pcnine\fi
         \if\endrb\breight \let\ptceight=\pcnine\fi
         \if\endrb\brnine \let\ptcnine=\pcnine\fi
         \if\endrb\brnull \let\ptcnull=\pcnine\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pcnine\fi
         \if\endrb\brtwo \let\ptdtwo=\pcnine\fi
         \if\endrb\brthree \let\ptdthree=\pcnine\fi
         \if\endrb\brfour \let\ptdfour=\pcnine\fi
         \if\endrb\brfive \let\ptdfive=\pcnine\fi
         \if\endrb\brsix \let\ptdsix=\pcnine\fi
         \if\endrb\brseven \let\ptdseven=\pcnine\fi
         \if\endrb\breight \let\ptdeight=\pcnine\fi
         \if\endrb\brnine \let\ptdnine=\pcnine\fi
         \if\endrb\brnull \let\ptdnull=\pcnine\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pcnine\fi
         \if\endrb\brtwo \let\ptetwo=\pcnine\fi
         \if\endrb\brthree \let\ptethree=\pcnine\fi
         \if\endrb\brfour \let\ptefour=\pcnine\fi
         \if\endrb\brfive \let\ptefive=\pcnine\fi
         \if\endrb\brsix \let\ptesix=\pcnine\fi
         \if\endrb\brseven \let\pteseven=\pcnine\fi
         \if\endrb\breight \let\pteeight=\pcnine\fi
         \if\endrb\brnine \let\ptenine=\pcnine\fi
         \if\endrb\brnull \let\ptenull=\pcnine\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pcnine\fi
         \if\endrb\brtwo \let\ptftwo=\pcnine\fi
         \if\endrb\brthree \let\ptfthree=\pcnine\fi
         \if\endrb\brfour \let\ptffour=\pcnine\fi
         \if\endrb\brfive \let\ptffive=\pcnine\fi
         \if\endrb\brsix \let\ptfsix=\pcnine\fi
         \if\endrb\brseven \let\ptfseven=\pcnine\fi
         \if\endrb\breight \let\ptfeight=\pcnine\fi
         \if\endrb\brnine \let\ptfnine=\pcnine\fi
         \if\endrb\brnull \let\ptfnull=\pcnine\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pcnine\fi
         \if\endrb\brtwo \let\ptgtwo=\pcnine\fi
         \if\endrb\brthree \let\ptgthree=\pcnine\fi
         \if\endrb\brfour \let\ptgfour=\pcnine\fi
         \if\endrb\brfive \let\ptgfive=\pcnine\fi
         \if\endrb\brsix \let\ptgsix=\pcnine\fi
         \if\endrb\brseven \let\ptgseven=\pcnine\fi
         \if\endrb\breight \let\ptgeight=\pcnine\fi
         \if\endrb\brnine \let\ptgnine=\pcnine\fi
         \if\endrb\brnull \let\ptgnull=\pcnine\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pcnine\fi
         \if\endrb\brtwo \let\pthtwo=\pcnine\fi
         \if\endrb\brthree \let\pththree=\pcnine\fi
         \if\endrb\brfour \let\pthfour=\pcnine\fi
         \if\endrb\brfive \let\pthfive=\pcnine\fi
         \if\endrb\brsix \let\pthsix=\pcnine\fi
         \if\endrb\brseven \let\pthseven=\pcnine\fi
         \if\endrb\breight \let\ptheight=\pcnine\fi
         \if\endrb\brnine \let\pthnine=\pcnine\fi
         \if\endrb\brnull \let\pthnull=\pcnine\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pcnine\fi
         \if\endrb\brtwo \let\ptitwo=\pcnine\fi
         \if\endrb\brthree \let\ptithree=\pcnine\fi
         \if\endrb\brfour \let\ptifour=\pcnine\fi
         \if\endrb\brfive \let\ptifive=\pcnine\fi
         \if\endrb\brsix \let\ptisix=\pcnine\fi
         \if\endrb\brseven \let\ptiseven=\pcnine\fi
         \if\endrb\breight \let\ptieight=\pcnine\fi
         \if\endrb\brnine \let\ptinine=\pcnine\fi
         \if\endrb\brnull \let\ptinull=\pcnine\fi\fi\fi      
   \if\startrb\brnull \cnullset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pcnull\fi
         \if\endrb\brtwo \let\ptatwo=\pcnull\fi
         \if\endrb\brthree \let\ptathree=\pcnull\fi
         \if\endrb\brfour \let\ptafour=\pcnull\fi
         \if\endrb\brfive \let\ptafive=\pcnull\fi
         \if\endrb\brsix \let\ptasix=\pcnull\fi
         \if\endrb\brseven \let\ptaseven=\pcnull\fi
         \if\endrb\breight \let\ptaeight=\pcnull\fi
         \if\endrb\brnine \let\ptanine=\pcnull\fi
         \if\endrb\brnull \let\ptanull=\pcnull\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pcnull\fi
         \if\endrb\brtwo \let\ptbtwo=\pcnull\fi
         \if\endrb\brthree \let\ptbthree=\pcnull\fi
         \if\endrb\brfour \let\ptbfour=\pcnull\fi
         \if\endrb\brfive \let\ptbfive=\pcnull\fi
         \if\endrb\brsix \let\ptbsix=\pcnull\fi
         \if\endrb\brseven \let\ptbseven=\pcnull\fi
         \if\endrb\breight \let\ptbeight=\pcnull\fi
         \if\endrb\brnine \let\ptbnine=\pcnull\fi
         \if\endrb\brnull \let\ptbnull=\pcnull\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pcnull\fi
         \if\endrb\brtwo \let\ptctwo=\pcnull\fi
         \if\endrb\brthree \let\ptcthree=\pcnull\fi
         \if\endrb\brfour \let\ptcfour=\pcnull\fi
         \if\endrb\brfive \let\ptcfive=\pcnull\fi
         \if\endrb\brsix \let\ptcsix=\pcnull\fi
         \if\endrb\brseven \let\ptcseven=\pcnull\fi
         \if\endrb\breight \let\ptceight=\pcnull\fi
         \if\endrb\brnine \let\ptcnine=\pcnull\fi
         \if\endrb\brnull \let\ptcnull=\pcnull\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pcnull\fi
         \if\endrb\brtwo \let\ptdtwo=\pcnull\fi
         \if\endrb\brthree \let\ptdthree=\pcnull\fi
         \if\endrb\brfour \let\ptdfour=\pcnull\fi
         \if\endrb\brfive \let\ptdfive=\pcnull\fi
         \if\endrb\brsix \let\ptdsix=\pcnull\fi
         \if\endrb\brseven \let\ptdseven=\pcnull\fi
         \if\endrb\breight \let\ptdeight=\pcnull\fi
         \if\endrb\brnine \let\ptdnine=\pcnull\fi
         \if\endrb\brnull \let\ptdnull=\pcnull\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pcnull\fi
         \if\endrb\brtwo \let\ptetwo=\pcnull\fi
         \if\endrb\brthree \let\ptethree=\pcnull\fi
         \if\endrb\brfour \let\ptefour=\pcnull\fi
         \if\endrb\brfive \let\ptefive=\pcnull\fi
         \if\endrb\brsix \let\ptesix=\pcnull\fi
         \if\endrb\brseven \let\pteseven=\pcnull\fi
         \if\endrb\breight \let\pteeight=\pcnull\fi
         \if\endrb\brnine \let\ptenine=\pcnull\fi
         \if\endrb\brnull \let\ptenull=\pcnull\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pcnull\fi
         \if\endrb\brtwo \let\ptftwo=\pcnull\fi
         \if\endrb\brthree \let\ptfthree=\pcnull\fi
         \if\endrb\brfour \let\ptffour=\pcnull\fi
         \if\endrb\brfive \let\ptffive=\pcnull\fi
         \if\endrb\brsix \let\ptfsix=\pcnull\fi
         \if\endrb\brseven \let\ptfseven=\pcnull\fi
         \if\endrb\breight \let\ptfeight=\pcnull\fi
         \if\endrb\brnine \let\ptfnine=\pcnull\fi
         \if\endrb\brnull \let\ptfnull=\pcnull\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pcnull\fi
         \if\endrb\brtwo \let\ptgtwo=\pcnull\fi
         \if\endrb\brthree \let\ptgthree=\pcnull\fi
         \if\endrb\brfour \let\ptgfour=\pcnull\fi
         \if\endrb\brfive \let\ptgfive=\pcnull\fi
         \if\endrb\brsix \let\ptgsix=\pcnull\fi
         \if\endrb\brseven \let\ptgseven=\pcnull\fi
         \if\endrb\breight \let\ptgeight=\pcnull\fi
         \if\endrb\brnine \let\ptgnine=\pcnull\fi
         \if\endrb\brnull \let\ptgnull=\pcnull\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pcnull\fi
         \if\endrb\brtwo \let\pthtwo=\pcnull\fi
         \if\endrb\brthree \let\pththree=\pcnull\fi
         \if\endrb\brfour \let\pthfour=\pcnull\fi
         \if\endrb\brfive \let\pthfive=\pcnull\fi
         \if\endrb\brsix \let\pthsix=\pcnull\fi
         \if\endrb\brseven \let\pthseven=\pcnull\fi
         \if\endrb\breight \let\ptheight=\pcnull\fi
         \if\endrb\brnine \let\pthnine=\pcnull\fi
         \if\endrb\brnull \let\pthnull=\pcnull\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pcnull\fi
         \if\endrb\brtwo \let\ptitwo=\pcnull\fi
         \if\endrb\brthree \let\ptithree=\pcnull\fi
         \if\endrb\brfour \let\ptifour=\pcnull\fi
         \if\endrb\brfive \let\ptifive=\pcnull\fi
         \if\endrb\brsix \let\ptisix=\pcnull\fi
         \if\endrb\brseven \let\ptiseven=\pcnull\fi
         \if\endrb\breight \let\ptieight=\pcnull\fi
         \if\endrb\brnine \let\ptinine=\pcnull\fi
         \if\endrb\brnull \let\ptinull=\pcnull\fi\fi\fi\fi  
\if\startlb\dli
   \if\startrb\brone \doneset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pdone\fi
         \if\endrb\brtwo \let\ptatwo=\pdone\fi
         \if\endrb\brthree \let\ptathree=\pdone\fi
         \if\endrb\brfour \let\ptafour=\pdone\fi
         \if\endrb\brfive \let\ptafive=\pdone\fi
         \if\endrb\brsix \let\ptasix=\pdone\fi
         \if\endrb\brseven \let\ptaseven=\pdone\fi
         \if\endrb\breight \let\ptaeight=\pdone\fi
         \if\endrb\brnine \let\ptanine=\pdone\fi
         \if\endrb\brnull \let\ptanull=\pdone\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pdone\fi
         \if\endrb\brtwo \let\ptbtwo=\pdone\fi
         \if\endrb\brthree \let\ptbthree=\pdone\fi
         \if\endrb\brfour \let\ptbfour=\pdone\fi
         \if\endrb\brfive \let\ptbfive=\pdone\fi
         \if\endrb\brsix \let\ptbsix=\pdone\fi
         \if\endrb\brseven \let\ptbseven=\pdone\fi
         \if\endrb\breight \let\ptbeight=\pdone\fi
         \if\endrb\brnine \let\ptbnine=\pdone\fi
         \if\endrb\brnull \let\ptbnull=\pdone\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pdone\fi
         \if\endrb\brtwo \let\ptctwo=\pdone\fi
         \if\endrb\brthree \let\ptcthree=\pdone\fi
         \if\endrb\brfour \let\ptcfour=\pdone\fi
         \if\endrb\brfive \let\ptcfive=\pdone\fi
         \if\endrb\brsix \let\ptcsix=\pdone\fi
         \if\endrb\brseven \let\ptcseven=\pdone\fi
         \if\endrb\breight \let\ptceight=\pdone\fi
         \if\endrb\brnine \let\ptcnine=\pdone\fi
         \if\endrb\brnull \let\ptcnull=\pdone\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pdone\fi
         \if\endrb\brtwo \let\ptdtwo=\pdone\fi
         \if\endrb\brthree \let\ptdthree=\pdone\fi
         \if\endrb\brfour \let\ptdfour=\pdone\fi
         \if\endrb\brfive \let\ptdfive=\pdone\fi
         \if\endrb\brsix \let\ptdsix=\pdone\fi
         \if\endrb\brseven \let\ptdseven=\pdone\fi
         \if\endrb\breight \let\ptdeight=\pdone\fi
         \if\endrb\brnine \let\ptdnine=\pdone\fi
         \if\endrb\brnull \let\ptdnull=\pdone\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pdone\fi
         \if\endrb\brtwo \let\ptetwo=\pdone\fi
         \if\endrb\brthree \let\ptethree=\pdone\fi
         \if\endrb\brfour \let\ptefour=\pdone\fi
         \if\endrb\brfive \let\ptefive=\pdone\fi
         \if\endrb\brsix \let\ptesix=\pdone\fi
         \if\endrb\brseven \let\pteseven=\pdone\fi
         \if\endrb\breight \let\pteeight=\pdone\fi
         \if\endrb\brnine \let\ptenine=\pdone\fi
         \if\endrb\brnull \let\ptenull=\pdone\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pdone\fi
         \if\endrb\brtwo \let\ptftwo=\pdone\fi
         \if\endrb\brthree \let\ptfthree=\pdone\fi
         \if\endrb\brfour \let\ptffour=\pdone\fi
         \if\endrb\brfive \let\ptffive=\pdone\fi
         \if\endrb\brsix \let\ptfsix=\pdone\fi
         \if\endrb\brseven \let\ptfseven=\pdone\fi
         \if\endrb\breight \let\ptfeight=\pdone\fi
         \if\endrb\brnine \let\ptfnine=\pdone\fi
         \if\endrb\brnull \let\ptfnull=\pdone\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pdone\fi
         \if\endrb\brtwo \let\ptgtwo=\pdone\fi
         \if\endrb\brthree \let\ptgthree=\pdone\fi
         \if\endrb\brfour \let\ptgfour=\pdone\fi
         \if\endrb\brfive \let\ptgfive=\pdone\fi
         \if\endrb\brsix \let\ptgsix=\pdone\fi
         \if\endrb\brseven \let\ptgseven=\pdone\fi
         \if\endrb\breight \let\ptgeight=\pdone\fi
         \if\endrb\brnine \let\ptgnine=\pdone\fi
         \if\endrb\brnull \let\ptgnull=\pdone\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pdone\fi
         \if\endrb\brtwo \let\pthtwo=\pdone\fi
         \if\endrb\brthree \let\pththree=\pdone\fi
         \if\endrb\brfour \let\pthfour=\pdone\fi
         \if\endrb\brfive \let\pthfive=\pdone\fi
         \if\endrb\brsix \let\pthsix=\pdone\fi
         \if\endrb\brseven \let\pthseven=\pdone\fi
         \if\endrb\breight \let\ptheight=\pdone\fi
         \if\endrb\brnine \let\pthnine=\pdone\fi
         \if\endrb\brnull \let\pthnull=\pdone\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pdone\fi
         \if\endrb\brtwo \let\ptitwo=\pdone\fi
         \if\endrb\brthree \let\ptithree=\pdone\fi
         \if\endrb\brfour \let\ptifour=\pdone\fi
         \if\endrb\brfive \let\ptifive=\pdone\fi
         \if\endrb\brsix \let\ptisix=\pdone\fi
         \if\endrb\brseven \let\ptiseven=\pdone\fi
         \if\endrb\breight \let\ptieight=\pdone\fi
         \if\endrb\brnine \let\ptinine=\pdone\fi
         \if\endrb\brnull \let\ptinull=\pdone\fi\fi\fi      
   \if\startrb\brtwo \dtwoset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pdtwo\fi
         \if\endrb\brtwo \let\ptatwo=\pdtwo\fi
         \if\endrb\brthree \let\ptathree=\pdtwo\fi
         \if\endrb\brfour \let\ptafour=\pdtwo\fi
         \if\endrb\brfive \let\ptafive=\pdtwo\fi
         \if\endrb\brsix \let\ptasix=\pdtwo\fi
         \if\endrb\brseven \let\ptaseven=\pdtwo\fi
         \if\endrb\breight \let\ptaeight=\pdtwo\fi
         \if\endrb\brnine \let\ptanine=\pdtwo\fi
         \if\endrb\brnull \let\ptanull=\pdtwo\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pdtwo\fi
         \if\endrb\brtwo \let\ptbtwo=\pdtwo\fi
         \if\endrb\brthree \let\ptbthree=\pdtwo\fi
         \if\endrb\brfour \let\ptbfour=\pdtwo\fi
         \if\endrb\brfive \let\ptbfive=\pdtwo\fi
         \if\endrb\brsix \let\ptbsix=\pdtwo\fi
         \if\endrb\brseven \let\ptbseven=\pdtwo\fi
         \if\endrb\breight \let\ptbeight=\pdtwo\fi
         \if\endrb\brnine \let\ptbnine=\pdtwo\fi
         \if\endrb\brnull \let\ptbnull=\pdtwo\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pdtwo\fi
         \if\endrb\brtwo \let\ptctwo=\pdtwo\fi
         \if\endrb\brthree \let\ptcthree=\pdtwo\fi
         \if\endrb\brfour \let\ptcfour=\pdtwo\fi
         \if\endrb\brfive \let\ptcfive=\pdtwo\fi
         \if\endrb\brsix \let\ptcsix=\pdtwo\fi
         \if\endrb\brseven \let\ptcseven=\pdtwo\fi
         \if\endrb\breight \let\ptceight=\pdtwo\fi
         \if\endrb\brnine \let\ptcnine=\pdtwo\fi
         \if\endrb\brnull \let\ptcnull=\pdtwo\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pdtwo\fi
         \if\endrb\brtwo \let\ptdtwo=\pdtwo\fi
         \if\endrb\brthree \let\ptdthree=\pdtwo\fi
         \if\endrb\brfour \let\ptdfour=\pdtwo\fi
         \if\endrb\brfive \let\ptdfive=\pdtwo\fi
         \if\endrb\brsix \let\ptdsix=\pdtwo\fi
         \if\endrb\brseven \let\ptdseven=\pdtwo\fi
         \if\endrb\breight \let\ptdeight=\pdtwo\fi
         \if\endrb\brnine \let\ptdnine=\pdtwo\fi
         \if\endrb\brnull \let\ptdnull=\pdtwo\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pdtwo\fi
         \if\endrb\brtwo \let\ptetwo=\pdtwo\fi
         \if\endrb\brthree \let\ptethree=\pdtwo\fi
         \if\endrb\brfour \let\ptefour=\pdtwo\fi
         \if\endrb\brfive \let\ptefive=\pdtwo\fi
         \if\endrb\brsix \let\ptesix=\pdtwo\fi
         \if\endrb\brseven \let\pteseven=\pdtwo\fi
         \if\endrb\breight \let\pteeight=\pdtwo\fi
         \if\endrb\brnine \let\ptenine=\pdtwo\fi
         \if\endrb\brnull \let\ptenull=\pdtwo\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pdtwo\fi
         \if\endrb\brtwo \let\ptftwo=\pdtwo\fi
         \if\endrb\brthree \let\ptfthree=\pdtwo\fi
         \if\endrb\brfour \let\ptffour=\pdtwo\fi
         \if\endrb\brfive \let\ptffive=\pdtwo\fi
         \if\endrb\brsix \let\ptfsix=\pdtwo\fi
         \if\endrb\brseven \let\ptfseven=\pdtwo\fi
         \if\endrb\breight \let\ptfeight=\pdtwo\fi
         \if\endrb\brnine \let\ptfnine=\pdtwo\fi
         \if\endrb\brnull \let\ptfnull=\pdtwo\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pdtwo\fi
         \if\endrb\brtwo \let\ptgtwo=\pdtwo\fi
         \if\endrb\brthree \let\ptgthree=\pdtwo\fi
         \if\endrb\brfour \let\ptgfour=\pdtwo\fi
         \if\endrb\brfive \let\ptgfive=\pdtwo\fi
         \if\endrb\brsix \let\ptgsix=\pdtwo\fi
         \if\endrb\brseven \let\ptgseven=\pdtwo\fi
         \if\endrb\breight \let\ptgeight=\pdtwo\fi
         \if\endrb\brnine \let\ptgnine=\pdtwo\fi
         \if\endrb\brnull \let\ptgnull=\pdtwo\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pdtwo\fi
         \if\endrb\brtwo \let\pthtwo=\pdtwo\fi
         \if\endrb\brthree \let\pththree=\pdtwo\fi
         \if\endrb\brfour \let\pthfour=\pdtwo\fi
         \if\endrb\brfive \let\pthfive=\pdtwo\fi
         \if\endrb\brsix \let\pthsix=\pdtwo\fi
         \if\endrb\brseven \let\pthseven=\pdtwo\fi
         \if\endrb\breight \let\ptheight=\pdtwo\fi
         \if\endrb\brnine \let\pthnine=\pdtwo\fi
         \if\endrb\brnull \let\pthnull=\pdtwo\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pdtwo\fi
         \if\endrb\brtwo \let\ptitwo=\pdtwo\fi
         \if\endrb\brthree \let\ptithree=\pdtwo\fi
         \if\endrb\brfour \let\ptifour=\pdtwo\fi
         \if\endrb\brfive \let\ptifive=\pdtwo\fi
         \if\endrb\brsix \let\ptisix=\pdtwo\fi
         \if\endrb\brseven \let\ptiseven=\pdtwo\fi
         \if\endrb\breight \let\ptieight=\pdtwo\fi
         \if\endrb\brnine \let\ptinine=\pdtwo\fi
         \if\endrb\brnull \let\ptinull=\pdtwo\fi\fi\fi
   \if\startrb\brthree \dthreeset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pdthree\fi
         \if\endrb\brtwo \let\ptatwo=\pdthree\fi
         \if\endrb\brthree \let\ptathree=\pdthree\fi
         \if\endrb\brfour \let\ptafour=\pdthree\fi
         \if\endrb\brfive \let\ptafive=\pdthree\fi
         \if\endrb\brsix \let\ptasix=\pdthree\fi
         \if\endrb\brseven \let\ptaseven=\pdthree\fi
         \if\endrb\breight \let\ptaeight=\pdthree\fi
         \if\endrb\brnine \let\ptanine=\pdthree\fi
         \if\endrb\brnull \let\ptanull=\pdthree\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pdthree\fi
         \if\endrb\brtwo \let\ptbtwo=\pdthree\fi
         \if\endrb\brthree \let\ptbthree=\pdthree\fi
         \if\endrb\brfour \let\ptbfour=\pdthree\fi
         \if\endrb\brfive \let\ptbfive=\pdthree\fi
         \if\endrb\brsix \let\ptbsix=\pdthree\fi
         \if\endrb\brseven \let\ptbseven=\pdthree\fi
         \if\endrb\breight \let\ptbeight=\pdthree\fi
         \if\endrb\brnine \let\ptbnine=\pdthree\fi
         \if\endrb\brnull \let\ptbnull=\pdthree\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pdthree\fi
         \if\endrb\brtwo \let\ptctwo=\pdthree\fi
         \if\endrb\brthree \let\ptcthree=\pdthree\fi
         \if\endrb\brfour \let\ptcfour=\pdthree\fi
         \if\endrb\brfive \let\ptcfive=\pdthree\fi
         \if\endrb\brsix \let\ptcsix=\pdthree\fi
         \if\endrb\brseven \let\ptcseven=\pdthree\fi
         \if\endrb\breight \let\ptceight=\pdthree\fi
         \if\endrb\brnine \let\ptcnine=\pdthree\fi
         \if\endrb\brnull \let\ptcnull=\pdthree\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pdthree\fi
         \if\endrb\brtwo \let\ptdtwo=\pdthree\fi
         \if\endrb\brthree \let\ptdthree=\pdthree\fi
         \if\endrb\brfour \let\ptdfour=\pdthree\fi
         \if\endrb\brfive \let\ptdfive=\pdthree\fi
         \if\endrb\brsix \let\ptdsix=\pdthree\fi
         \if\endrb\brseven \let\ptdseven=\pdthree\fi
         \if\endrb\breight \let\ptdeight=\pdthree\fi
         \if\endrb\brnine \let\ptdnine=\pdthree\fi
         \if\endrb\brnull \let\ptdnull=\pdthree\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pdthree\fi
         \if\endrb\brtwo \let\ptetwo=\pdthree\fi
         \if\endrb\brthree \let\ptethree=\pdthree\fi
         \if\endrb\brfour \let\ptefour=\pdthree\fi
         \if\endrb\brfive \let\ptefive=\pdthree\fi
         \if\endrb\brsix \let\ptesix=\pdthree\fi
         \if\endrb\brseven \let\pteseven=\pdthree\fi
         \if\endrb\breight \let\pteeight=\pdthree\fi
         \if\endrb\brnine \let\ptenine=\pdthree\fi
         \if\endrb\brnull \let\ptenull=\pdthree\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pdthree\fi
         \if\endrb\brtwo \let\ptftwo=\pdthree\fi
         \if\endrb\brthree \let\ptfthree=\pdthree\fi
         \if\endrb\brfour \let\ptffour=\pdthree\fi
         \if\endrb\brfive \let\ptffive=\pdthree\fi
         \if\endrb\brsix \let\ptfsix=\pdthree\fi
         \if\endrb\brseven \let\ptfseven=\pdthree\fi
         \if\endrb\breight \let\ptfeight=\pdthree\fi
         \if\endrb\brnine \let\ptfnine=\pdthree\fi
         \if\endrb\brnull \let\ptfnull=\pdthree\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pdthree\fi
         \if\endrb\brtwo \let\ptgtwo=\pdthree\fi
         \if\endrb\brthree \let\ptgthree=\pdthree\fi
         \if\endrb\brfour \let\ptgfour=\pdthree\fi
         \if\endrb\brfive \let\ptgfive=\pdthree\fi
         \if\endrb\brsix \let\ptgsix=\pdthree\fi
         \if\endrb\brseven \let\ptgseven=\pdthree\fi
         \if\endrb\breight \let\ptgeight=\pdthree\fi
         \if\endrb\brnine \let\ptgnine=\pdthree\fi
         \if\endrb\brnull \let\ptgnull=\pdthree\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pdthree\fi
         \if\endrb\brtwo \let\pthtwo=\pdthree\fi
         \if\endrb\brthree \let\pththree=\pdthree\fi
         \if\endrb\brfour \let\pthfour=\pdthree\fi
         \if\endrb\brfive \let\pthfive=\pdthree\fi
         \if\endrb\brsix \let\pthsix=\pdthree\fi
         \if\endrb\brseven \let\pthseven=\pdthree\fi
         \if\endrb\breight \let\ptheight=\pdthree\fi
         \if\endrb\brnine \let\pthnine=\pdthree\fi
         \if\endrb\brnull \let\pthnull=\pdthree\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pdthree\fi
         \if\endrb\brtwo \let\ptitwo=\pdthree\fi
         \if\endrb\brthree \let\ptithree=\pdthree\fi
         \if\endrb\brfour \let\ptifour=\pdthree\fi
         \if\endrb\brfive \let\ptifive=\pdthree\fi
         \if\endrb\brsix \let\ptisix=\pdthree\fi
         \if\endrb\brseven \let\ptiseven=\pdthree\fi
         \if\endrb\breight \let\ptieight=\pdthree\fi
         \if\endrb\brnine \let\ptinine=\pdthree\fi
         \if\endrb\brnull \let\ptinull=\pdthree\fi\fi\fi      
   \if\startrb\brfour \dfourset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pdfour\fi
         \if\endrb\brtwo \let\ptatwo=\pdfour\fi
         \if\endrb\brthree \let\ptathree=\pdfour\fi
         \if\endrb\brfour \let\ptafour=\pdfour\fi
         \if\endrb\brfive \let\ptafive=\pdfour\fi
         \if\endrb\brsix \let\ptasix=\pdfour\fi
         \if\endrb\brseven \let\ptaseven=\pdfour\fi
         \if\endrb\breight \let\ptaeight=\pdfour\fi
         \if\endrb\brnine \let\ptanine=\pdfour\fi
         \if\endrb\brnull \let\ptanull=\pdfour\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pdfour\fi
         \if\endrb\brtwo \let\ptbtwo=\pdfour\fi
         \if\endrb\brthree \let\ptbthree=\pdfour\fi
         \if\endrb\brfour \let\ptbfour=\pdfour\fi
         \if\endrb\brfive \let\ptbfive=\pdfour\fi
         \if\endrb\brsix \let\ptbsix=\pdfour\fi
         \if\endrb\brseven \let\ptbseven=\pdfour\fi
         \if\endrb\breight \let\ptbeight=\pdfour\fi
         \if\endrb\brnine \let\ptbnine=\pdfour\fi
         \if\endrb\brnull \let\ptbnull=\pdfour\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pdfour\fi
         \if\endrb\brtwo \let\ptctwo=\pdfour\fi
         \if\endrb\brthree \let\ptcthree=\pdfour\fi
         \if\endrb\brfour \let\ptcfour=\pdfour\fi
         \if\endrb\brfive \let\ptcfive=\pdfour\fi
         \if\endrb\brsix \let\ptcsix=\pdfour\fi
         \if\endrb\brseven \let\ptcseven=\pdfour\fi
         \if\endrb\breight \let\ptceight=\pdfour\fi
         \if\endrb\brnine \let\ptcnine=\pdfour\fi
         \if\endrb\brnull \let\ptcnull=\pdfour\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pdfour\fi
         \if\endrb\brtwo \let\ptdtwo=\pdfour\fi
         \if\endrb\brthree \let\ptdthree=\pdfour\fi
         \if\endrb\brfour \let\ptdfour=\pdfour\fi
         \if\endrb\brfive \let\ptdfive=\pdfour\fi
         \if\endrb\brsix \let\ptdsix=\pdfour\fi
         \if\endrb\brseven \let\ptdseven=\pdfour\fi
         \if\endrb\breight \let\ptdeight=\pdfour\fi
         \if\endrb\brnine \let\ptdnine=\pdfour\fi
         \if\endrb\brnull \let\ptdnull=\pdfour\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pdfour\fi
         \if\endrb\brtwo \let\ptetwo=\pdfour\fi
         \if\endrb\brthree \let\ptethree=\pdfour\fi
         \if\endrb\brfour \let\ptefour=\pdfour\fi
         \if\endrb\brfive \let\ptefive=\pdfour\fi
         \if\endrb\brsix \let\ptesix=\pdfour\fi
         \if\endrb\brseven \let\pteseven=\pdfour\fi
         \if\endrb\breight \let\pteeight=\pdfour\fi
         \if\endrb\brnine \let\ptenine=\pdfour\fi
         \if\endrb\brnull \let\ptenull=\pdfour\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pdfour\fi
         \if\endrb\brtwo \let\ptftwo=\pdfour\fi
         \if\endrb\brthree \let\ptfthree=\pdfour\fi
         \if\endrb\brfour \let\ptffour=\pdfour\fi
         \if\endrb\brfive \let\ptffive=\pdfour\fi
         \if\endrb\brsix \let\ptfsix=\pdfour\fi
         \if\endrb\brseven \let\ptfseven=\pdfour\fi
         \if\endrb\breight \let\ptfeight=\pdfour\fi
         \if\endrb\brnine \let\ptfnine=\pdfour\fi
         \if\endrb\brnull \let\ptfnull=\pdfour\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pdfour\fi
         \if\endrb\brtwo \let\ptgtwo=\pdfour\fi
         \if\endrb\brthree \let\ptgthree=\pdfour\fi
         \if\endrb\brfour \let\ptgfour=\pdfour\fi
         \if\endrb\brfive \let\ptgfive=\pdfour\fi
         \if\endrb\brsix \let\ptgsix=\pdfour\fi
         \if\endrb\brseven \let\ptgseven=\pdfour\fi
         \if\endrb\breight \let\ptgeight=\pdfour\fi
         \if\endrb\brnine \let\ptgnine=\pdfour\fi
         \if\endrb\brnull \let\ptgnull=\pdfour\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pdfour\fi
         \if\endrb\brtwo \let\pthtwo=\pdfour\fi
         \if\endrb\brthree \let\pththree=\pdfour\fi
         \if\endrb\brfour \let\pthfour=\pdfour\fi
         \if\endrb\brfive \let\pthfive=\pdfour\fi
         \if\endrb\brsix \let\pthsix=\pdfour\fi
         \if\endrb\brseven \let\pthseven=\pdfour\fi
         \if\endrb\breight \let\ptheight=\pdfour\fi
         \if\endrb\brnine \let\pthnine=\pdfour\fi
         \if\endrb\brnull \let\pthnull=\pdfour\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pdfour\fi
         \if\endrb\brtwo \let\ptitwo=\pdfour\fi
         \if\endrb\brthree \let\ptithree=\pdfour\fi
         \if\endrb\brfour \let\ptifour=\pdfour\fi
         \if\endrb\brfive \let\ptifive=\pdfour\fi
         \if\endrb\brsix \let\ptisix=\pdfour\fi
         \if\endrb\brseven \let\ptiseven=\pdfour\fi
         \if\endrb\breight \let\ptieight=\pdfour\fi
         \if\endrb\brnine \let\ptinine=\pdfour\fi
         \if\endrb\brnull \let\ptinull=\pdfour\fi\fi\fi      
   \if\startrb\brfive \dfiveset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pdfive\fi
         \if\endrb\brtwo \let\ptatwo=\pdfive\fi
         \if\endrb\brthree \let\ptathree=\pdfive\fi
         \if\endrb\brfour \let\ptafour=\pdfive\fi
         \if\endrb\brfive \let\ptafive=\pdfive\fi
         \if\endrb\brsix \let\ptasix=\pdfive\fi
         \if\endrb\brseven \let\ptaseven=\pdfive\fi
         \if\endrb\breight \let\ptaeight=\pdfive\fi
         \if\endrb\brnine \let\ptanine=\pdfive\fi
         \if\endrb\brnull \let\ptanull=\pdfive\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pdfive\fi
         \if\endrb\brtwo \let\ptbtwo=\pdfive\fi
         \if\endrb\brthree \let\ptbthree=\pdfive\fi
         \if\endrb\brfour \let\ptbfour=\pdfive\fi
         \if\endrb\brfive \let\ptbfive=\pdfive\fi
         \if\endrb\brsix \let\ptbsix=\pdfive\fi
         \if\endrb\brseven \let\ptbseven=\pdfive\fi
         \if\endrb\breight \let\ptbeight=\pdfive\fi
         \if\endrb\brnine \let\ptbnine=\pdfive\fi
         \if\endrb\brnull \let\ptbnull=\pdfive\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pdfive\fi
         \if\endrb\brtwo \let\ptctwo=\pdfive\fi
         \if\endrb\brthree \let\ptcthree=\pdfive\fi
         \if\endrb\brfour \let\ptcfour=\pdfive\fi
         \if\endrb\brfive \let\ptcfive=\pdfive\fi
         \if\endrb\brsix \let\ptcsix=\pdfive\fi
         \if\endrb\brseven \let\ptcseven=\pdfive\fi
         \if\endrb\breight \let\ptceight=\pdfive\fi
         \if\endrb\brnine \let\ptcnine=\pdfive\fi
         \if\endrb\brnull \let\ptcnull=\pdfive\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pdfive\fi
         \if\endrb\brtwo \let\ptdtwo=\pdfive\fi
         \if\endrb\brthree \let\ptdthree=\pdfive\fi
         \if\endrb\brfour \let\ptdfour=\pdfive\fi
         \if\endrb\brfive \let\ptdfive=\pdfive\fi
         \if\endrb\brsix \let\ptdsix=\pdfive\fi
         \if\endrb\brseven \let\ptdseven=\pdfive\fi
         \if\endrb\breight \let\ptdeight=\pdfive\fi
         \if\endrb\brnine \let\ptdnine=\pdfive\fi
         \if\endrb\brnull \let\ptdnull=\pdfive\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pdfive\fi
         \if\endrb\brtwo \let\ptetwo=\pdfive\fi
         \if\endrb\brthree \let\ptethree=\pdfive\fi
         \if\endrb\brfour \let\ptefour=\pdfive\fi
         \if\endrb\brfive \let\ptefive=\pdfive\fi
         \if\endrb\brsix \let\ptesix=\pdfive\fi
         \if\endrb\brseven \let\pteseven=\pdfive\fi
         \if\endrb\breight \let\pteeight=\pdfive\fi
         \if\endrb\brnine \let\ptenine=\pdfive\fi
         \if\endrb\brnull \let\ptenull=\pdfive\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pdfive\fi
         \if\endrb\brtwo \let\ptftwo=\pdfive\fi
         \if\endrb\brthree \let\ptfthree=\pdfive\fi
         \if\endrb\brfour \let\ptffour=\pdfive\fi
         \if\endrb\brfive \let\ptffive=\pdfive\fi
         \if\endrb\brsix \let\ptfsix=\pdfive\fi
         \if\endrb\brseven \let\ptfseven=\pdfive\fi
         \if\endrb\breight \let\ptfeight=\pdfive\fi
         \if\endrb\brnine \let\ptfnine=\pdfive\fi
         \if\endrb\brnull \let\ptfnull=\pdfive\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pdfive\fi
         \if\endrb\brtwo \let\ptgtwo=\pdfive\fi
         \if\endrb\brthree \let\ptgthree=\pdfive\fi
         \if\endrb\brfour \let\ptgfour=\pdfive\fi
         \if\endrb\brfive \let\ptgfive=\pdfive\fi
         \if\endrb\brsix \let\ptgsix=\pdfive\fi
         \if\endrb\brseven \let\ptgseven=\pdfive\fi
         \if\endrb\breight \let\ptgeight=\pdfive\fi
         \if\endrb\brnine \let\ptgnine=\pdfive\fi
         \if\endrb\brnull \let\ptgnull=\pdfive\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pdfive\fi
         \if\endrb\brtwo \let\pthtwo=\pdfive\fi
         \if\endrb\brthree \let\pththree=\pdfive\fi
         \if\endrb\brfour \let\pthfour=\pdfive\fi
         \if\endrb\brfive \let\pthfive=\pdfive\fi
         \if\endrb\brsix \let\pthsix=\pdfive\fi
         \if\endrb\brseven \let\pthseven=\pdfive\fi
         \if\endrb\breight \let\ptheight=\pdfive\fi
         \if\endrb\brnine \let\pthnine=\pdfive\fi
         \if\endrb\brnull \let\pthnull=\pdfive\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pdfive\fi
         \if\endrb\brtwo \let\ptitwo=\pdfive\fi
         \if\endrb\brthree \let\ptithree=\pdfive\fi
         \if\endrb\brfour \let\ptifour=\pdfive\fi
         \if\endrb\brfive \let\ptifive=\pdfive\fi
         \if\endrb\brsix \let\ptisix=\pdfive\fi
         \if\endrb\brseven \let\ptiseven=\pdfive\fi
         \if\endrb\breight \let\ptieight=\pdfive\fi
         \if\endrb\brnine \let\ptinine=\pdfive\fi
         \if\endrb\brnull \let\ptinull=\pdfive\fi\fi\fi   
   \if\startrb\brsix \dsixset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pdsix\fi
         \if\endrb\brtwo \let\ptatwo=\pdsix\fi
         \if\endrb\brthree \let\ptathree=\pdsix\fi
         \if\endrb\brfour \let\ptafour=\pdsix\fi
         \if\endrb\brfive \let\ptafive=\pdsix\fi
         \if\endrb\brsix \let\ptasix=\pdsix\fi
         \if\endrb\brseven \let\ptaseven=\pdsix\fi
         \if\endrb\breight \let\ptaeight=\pdsix\fi
         \if\endrb\brnine \let\ptanine=\pdsix\fi
         \if\endrb\brnull \let\ptanull=\pdsix\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pdsix\fi
         \if\endrb\brtwo \let\ptbtwo=\pdsix\fi
         \if\endrb\brthree \let\ptbthree=\pdsix\fi
         \if\endrb\brfour \let\ptbfour=\pdsix\fi
         \if\endrb\brfive \let\ptbfive=\pdsix\fi
         \if\endrb\brsix \let\ptbsix=\pdsix\fi
         \if\endrb\brseven \let\ptbseven=\pdsix\fi
         \if\endrb\breight \let\ptbeight=\pdsix\fi
         \if\endrb\brnine \let\ptbnine=\pdsix\fi
         \if\endrb\brnull \let\ptbnull=\pdsix\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pdsix\fi
         \if\endrb\brtwo \let\ptctwo=\pdsix\fi
         \if\endrb\brthree \let\ptcthree=\pdsix\fi
         \if\endrb\brfour \let\ptcfour=\pdsix\fi
         \if\endrb\brfive \let\ptcfive=\pdsix\fi
         \if\endrb\brsix \let\ptcsix=\pdsix\fi
         \if\endrb\brseven \let\ptcseven=\pdsix\fi
         \if\endrb\breight \let\ptceight=\pdsix\fi
         \if\endrb\brnine \let\ptcnine=\pdsix\fi
         \if\endrb\brnull \let\ptcnull=\pdsix\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pdsix\fi
         \if\endrb\brtwo \let\ptdtwo=\pdsix\fi
         \if\endrb\brthree \let\ptdthree=\pdsix\fi
         \if\endrb\brfour \let\ptdfour=\pdsix\fi
         \if\endrb\brfive \let\ptdfive=\pdsix\fi
         \if\endrb\brsix \let\ptdsix=\pdsix\fi
         \if\endrb\brseven \let\ptdseven=\pdsix\fi
         \if\endrb\breight \let\ptdeight=\pdsix\fi
         \if\endrb\brnine \let\ptdnine=\pdsix\fi
         \if\endrb\brnull \let\ptdnull=\pdsix\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pdsix\fi
         \if\endrb\brtwo \let\ptetwo=\pdsix\fi
         \if\endrb\brthree \let\ptethree=\pdsix\fi
         \if\endrb\brfour \let\ptefour=\pdsix\fi
         \if\endrb\brfive \let\ptefive=\pdsix\fi
         \if\endrb\brsix \let\ptesix=\pdsix\fi
         \if\endrb\brseven \let\pteseven=\pdsix\fi
         \if\endrb\breight \let\pteeight=\pdsix\fi
         \if\endrb\brnine \let\ptenine=\pdsix\fi
         \if\endrb\brnull \let\ptenull=\pdsix\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pdsix\fi
         \if\endrb\brtwo \let\ptftwo=\pdsix\fi
         \if\endrb\brthree \let\ptfthree=\pdsix\fi
         \if\endrb\brfour \let\ptffour=\pdsix\fi
         \if\endrb\brfive \let\ptffive=\pdsix\fi
         \if\endrb\brsix \let\ptfsix=\pdsix\fi
         \if\endrb\brseven \let\ptfseven=\pdsix\fi
         \if\endrb\breight \let\ptfeight=\pdsix\fi
         \if\endrb\brnine \let\ptfnine=\pdsix\fi
         \if\endrb\brnull \let\ptfnull=\pdsix\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pdsix\fi
         \if\endrb\brtwo \let\ptgtwo=\pdsix\fi
         \if\endrb\brthree \let\ptgthree=\pdsix\fi
         \if\endrb\brfour \let\ptgfour=\pdsix\fi
         \if\endrb\brfive \let\ptgfive=\pdsix\fi
         \if\endrb\brsix \let\ptgsix=\pdsix\fi
         \if\endrb\brseven \let\ptgseven=\pdsix\fi
         \if\endrb\breight \let\ptgeight=\pdsix\fi
         \if\endrb\brnine \let\ptgnine=\pdsix\fi
         \if\endrb\brnull \let\ptgnull=\pdsix\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pdsix\fi
         \if\endrb\brtwo \let\pthtwo=\pdsix\fi
         \if\endrb\brthree \let\pththree=\pdsix\fi
         \if\endrb\brfour \let\pthfour=\pdsix\fi
         \if\endrb\brfive \let\pthfive=\pdsix\fi
         \if\endrb\brsix \let\pthsix=\pdsix\fi
         \if\endrb\brseven \let\pthseven=\pdsix\fi
         \if\endrb\breight \let\ptheight=\pdsix\fi
         \if\endrb\brnine \let\pthnine=\pdsix\fi
         \if\endrb\brnull \let\pthnull=\pdsix\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pdsix\fi
         \if\endrb\brtwo \let\ptitwo=\pdsix\fi
         \if\endrb\brthree \let\ptithree=\pdsix\fi
         \if\endrb\brfour \let\ptifour=\pdsix\fi
         \if\endrb\brfive \let\ptifive=\pdsix\fi
         \if\endrb\brsix \let\ptisix=\pdsix\fi
         \if\endrb\brseven \let\ptiseven=\pdsix\fi
         \if\endrb\breight \let\ptieight=\pdsix\fi
         \if\endrb\brnine \let\ptinine=\pdsix\fi
         \if\endrb\brnull \let\ptinull=\pdsix\fi\fi\fi
   \if\startrb\brseven \dsevenset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pdseven\fi
         \if\endrb\brtwo \let\ptatwo=\pdseven\fi
         \if\endrb\brthree \let\ptathree=\pdseven\fi
         \if\endrb\brfour \let\ptafour=\pdseven\fi
         \if\endrb\brfive \let\ptafive=\pdseven\fi
         \if\endrb\brsix \let\ptasix=\pdseven\fi
         \if\endrb\brseven \let\ptaseven=\pdseven\fi
         \if\endrb\breight \let\ptaeight=\pdseven\fi
         \if\endrb\brnine \let\ptanine=\pdseven\fi
         \if\endrb\brnull \let\ptanull=\pdseven\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pdseven\fi
         \if\endrb\brtwo \let\ptbtwo=\pdseven\fi
         \if\endrb\brthree \let\ptbthree=\pdseven\fi
         \if\endrb\brfour \let\ptbfour=\pdseven\fi
         \if\endrb\brfive \let\ptbfive=\pdseven\fi
         \if\endrb\brsix \let\ptbsix=\pdseven\fi
         \if\endrb\brseven \let\ptbseven=\pdseven\fi
         \if\endrb\breight \let\ptbeight=\pdseven\fi
         \if\endrb\brnine \let\ptbnine=\pdseven\fi
         \if\endrb\brnull \let\ptbnull=\pdseven\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pdseven\fi
         \if\endrb\brtwo \let\ptctwo=\pdseven\fi
         \if\endrb\brthree \let\ptcthree=\pdseven\fi
         \if\endrb\brfour \let\ptcfour=\pdseven\fi
         \if\endrb\brfive \let\ptcfive=\pdseven\fi
         \if\endrb\brsix \let\ptcsix=\pdseven\fi
         \if\endrb\brseven \let\ptcseven=\pdseven\fi
         \if\endrb\breight \let\ptceight=\pdseven\fi
         \if\endrb\brnine \let\ptcnine=\pdseven\fi
         \if\endrb\brnull \let\ptcnull=\pdseven\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pdseven\fi
         \if\endrb\brtwo \let\ptdtwo=\pdseven\fi
         \if\endrb\brthree \let\ptdthree=\pdseven\fi
         \if\endrb\brfour \let\ptdfour=\pdseven\fi
         \if\endrb\brfive \let\ptdfive=\pdseven\fi
         \if\endrb\brsix \let\ptdsix=\pdseven\fi
         \if\endrb\brseven \let\ptdseven=\pdseven\fi
         \if\endrb\breight \let\ptdeight=\pdseven\fi
         \if\endrb\brnine \let\ptdnine=\pdseven\fi
         \if\endrb\brnull \let\ptdnull=\pdseven\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pdseven\fi
         \if\endrb\brtwo \let\ptetwo=\pdseven\fi
         \if\endrb\brthree \let\ptethree=\pdseven\fi
         \if\endrb\brfour \let\ptefour=\pdseven\fi
         \if\endrb\brfive \let\ptefive=\pdseven\fi
         \if\endrb\brsix \let\ptesix=\pdseven\fi
         \if\endrb\brseven \let\pteseven=\pdseven\fi
         \if\endrb\breight \let\pteeight=\pdseven\fi
         \if\endrb\brnine \let\ptenine=\pdseven\fi
         \if\endrb\brnull \let\ptenull=\pdseven\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pdseven\fi
         \if\endrb\brtwo \let\ptftwo=\pdseven\fi
         \if\endrb\brthree \let\ptfthree=\pdseven\fi
         \if\endrb\brfour \let\ptffour=\pdseven\fi
         \if\endrb\brfive \let\ptffive=\pdseven\fi
         \if\endrb\brsix \let\ptfsix=\pdseven\fi
         \if\endrb\brseven \let\ptfseven=\pdseven\fi
         \if\endrb\breight \let\ptfeight=\pdseven\fi
         \if\endrb\brnine \let\ptfnine=\pdseven\fi
         \if\endrb\brnull \let\ptfnull=\pdseven\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pdseven\fi
         \if\endrb\brtwo \let\ptgtwo=\pdseven\fi
         \if\endrb\brthree \let\ptgthree=\pdseven\fi
         \if\endrb\brfour \let\ptgfour=\pdseven\fi
         \if\endrb\brfive \let\ptgfive=\pdseven\fi
         \if\endrb\brsix \let\ptgsix=\pdseven\fi
         \if\endrb\brseven \let\ptgseven=\pdseven\fi
         \if\endrb\breight \let\ptgeight=\pdseven\fi
         \if\endrb\brnine \let\ptgnine=\pdseven\fi
         \if\endrb\brnull \let\ptgnull=\pdseven\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pdseven\fi
         \if\endrb\brtwo \let\pthtwo=\pdseven\fi
         \if\endrb\brthree \let\pththree=\pdseven\fi
         \if\endrb\brfour \let\pthfour=\pdseven\fi
         \if\endrb\brfive \let\pthfive=\pdseven\fi
         \if\endrb\brsix \let\pthsix=\pdseven\fi
         \if\endrb\brseven \let\pthseven=\pdseven\fi
         \if\endrb\breight \let\ptheight=\pdseven\fi
         \if\endrb\brnine \let\pthnine=\pdseven\fi
         \if\endrb\brnull \let\pthnull=\pdseven\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pdseven\fi
         \if\endrb\brtwo \let\ptitwo=\pdseven\fi
         \if\endrb\brthree \let\ptithree=\pdseven\fi
         \if\endrb\brfour \let\ptifour=\pdseven\fi
         \if\endrb\brfive \let\ptifive=\pdseven\fi
         \if\endrb\brsix \let\ptisix=\pdseven\fi
         \if\endrb\brseven \let\ptiseven=\pdseven\fi
         \if\endrb\breight \let\ptieight=\pdseven\fi
         \if\endrb\brnine \let\ptinine=\pdseven\fi
         \if\endrb\brnull \let\ptinull=\pdseven\fi\fi\fi      
   \if\startrb\breight \deightset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pdeight\fi
         \if\endrb\brtwo \let\ptatwo=\pdeight\fi
         \if\endrb\brthree \let\ptathree=\pdeight\fi
         \if\endrb\brfour \let\ptafour=\pdeight\fi
         \if\endrb\brfive \let\ptafive=\pdeight\fi
         \if\endrb\brsix \let\ptasix=\pdeight\fi
         \if\endrb\brseven \let\ptaseven=\pdeight\fi
         \if\endrb\breight \let\ptaeight=\pdeight\fi
         \if\endrb\brnine \let\ptanine=\pdeight\fi
         \if\endrb\brnull \let\ptanull=\pdeight\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pdeight\fi
         \if\endrb\brtwo \let\ptbtwo=\pdeight\fi
         \if\endrb\brthree \let\ptbthree=\pdeight\fi
         \if\endrb\brfour \let\ptbfour=\pdeight\fi
         \if\endrb\brfive \let\ptbfive=\pdeight\fi
         \if\endrb\brsix \let\ptbsix=\pdeight\fi
         \if\endrb\brseven \let\ptbseven=\pdeight\fi
         \if\endrb\breight \let\ptbeight=\pdeight\fi
         \if\endrb\brnine \let\ptbnine=\pdeight\fi
         \if\endrb\brnull \let\ptbnull=\pdeight\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pdeight\fi
         \if\endrb\brtwo \let\ptctwo=\pdeight\fi
         \if\endrb\brthree \let\ptcthree=\pdeight\fi
         \if\endrb\brfour \let\ptcfour=\pdeight\fi
         \if\endrb\brfive \let\ptcfive=\pdeight\fi
         \if\endrb\brsix \let\ptcsix=\pdeight\fi
         \if\endrb\brseven \let\ptcseven=\pdeight\fi
         \if\endrb\breight \let\ptceight=\pdeight\fi
         \if\endrb\brnine \let\ptcnine=\pdeight\fi
         \if\endrb\brnull \let\ptcnull=\pdeight\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pdeight\fi
         \if\endrb\brtwo \let\ptdtwo=\pdeight\fi
         \if\endrb\brthree \let\ptdthree=\pdeight\fi
         \if\endrb\brfour \let\ptdfour=\pdeight\fi
         \if\endrb\brfive \let\ptdfive=\pdeight\fi
         \if\endrb\brsix \let\ptdsix=\pdeight\fi
         \if\endrb\brseven \let\ptdseven=\pdeight\fi
         \if\endrb\breight \let\ptdeight=\pdeight\fi
         \if\endrb\brnine \let\ptdnine=\pdeight\fi
         \if\endrb\brnull \let\ptdnull=\pdeight\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pdeight\fi
         \if\endrb\brtwo \let\ptetwo=\pdeight\fi
         \if\endrb\brthree \let\ptethree=\pdeight\fi
         \if\endrb\brfour \let\ptefour=\pdeight\fi
         \if\endrb\brfive \let\ptefive=\pdeight\fi
         \if\endrb\brsix \let\ptesix=\pdeight\fi
         \if\endrb\brseven \let\pteseven=\pdeight\fi
         \if\endrb\breight \let\pteeight=\pdeight\fi
         \if\endrb\brnine \let\ptenine=\pdeight\fi
         \if\endrb\brnull \let\ptenull=\pdeight\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pdeight\fi
         \if\endrb\brtwo \let\ptftwo=\pdeight\fi
         \if\endrb\brthree \let\ptfthree=\pdeight\fi
         \if\endrb\brfour \let\ptffour=\pdeight\fi
         \if\endrb\brfive \let\ptffive=\pdeight\fi
         \if\endrb\brsix \let\ptfsix=\pdeight\fi
         \if\endrb\brseven \let\ptfseven=\pdeight\fi
         \if\endrb\breight \let\ptfeight=\pdeight\fi
         \if\endrb\brnine \let\ptfnine=\pdeight\fi
         \if\endrb\brnull \let\ptfnull=\pdeight\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pdeight\fi
         \if\endrb\brtwo \let\ptgtwo=\pdeight\fi
         \if\endrb\brthree \let\ptgthree=\pdeight\fi
         \if\endrb\brfour \let\ptgfour=\pdeight\fi
         \if\endrb\brfive \let\ptgfive=\pdeight\fi
         \if\endrb\brsix \let\ptgsix=\pdeight\fi
         \if\endrb\brseven \let\ptgseven=\pdeight\fi
         \if\endrb\breight \let\ptgeight=\pdeight\fi
         \if\endrb\brnine \let\ptgnine=\pdeight\fi
         \if\endrb\brnull \let\ptgnull=\pdeight\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pdeight\fi
         \if\endrb\brtwo \let\pthtwo=\pdeight\fi
         \if\endrb\brthree \let\pththree=\pdeight\fi
         \if\endrb\brfour \let\pthfour=\pdeight\fi
         \if\endrb\brfive \let\pthfive=\pdeight\fi
         \if\endrb\brsix \let\pthsix=\pdeight\fi
         \if\endrb\brseven \let\pthseven=\pdeight\fi
         \if\endrb\breight \let\ptheight=\pdeight\fi
         \if\endrb\brnine \let\pthnine=\pdeight\fi
         \if\endrb\brnull \let\pthnull=\pdeight\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pdeight\fi
         \if\endrb\brtwo \let\ptitwo=\pdeight\fi
         \if\endrb\brthree \let\ptithree=\pdeight\fi
         \if\endrb\brfour \let\ptifour=\pdeight\fi
         \if\endrb\brfive \let\ptifive=\pdeight\fi
         \if\endrb\brsix \let\ptisix=\pdeight\fi
         \if\endrb\brseven \let\ptiseven=\pdeight\fi
         \if\endrb\breight \let\ptieight=\pdeight\fi
         \if\endrb\brnine \let\ptinine=\pdeight\fi
         \if\endrb\brnull \let\ptinull=\pdeight\fi\fi\fi      
   \if\startrb\brnine \dnineset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pdnine\fi
         \if\endrb\brtwo \let\ptatwo=\pdnine\fi
         \if\endrb\brthree \let\ptathree=\pdnine\fi
         \if\endrb\brfour \let\ptafour=\pdnine\fi
         \if\endrb\brfive \let\ptafive=\pdnine\fi
         \if\endrb\brsix \let\ptasix=\pdnine\fi
         \if\endrb\brseven \let\ptaseven=\pdnine\fi
         \if\endrb\breight \let\ptaeight=\pdnine\fi
         \if\endrb\brnine \let\ptanine=\pdnine\fi
         \if\endrb\brnull \let\ptanull=\pdnine\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pdnine\fi
         \if\endrb\brtwo \let\ptbtwo=\pdnine\fi
         \if\endrb\brthree \let\ptbthree=\pdnine\fi
         \if\endrb\brfour \let\ptbfour=\pdnine\fi
         \if\endrb\brfive \let\ptbfive=\pdnine\fi
         \if\endrb\brsix \let\ptbsix=\pdnine\fi
         \if\endrb\brseven \let\ptbseven=\pdnine\fi
         \if\endrb\breight \let\ptbeight=\pdnine\fi
         \if\endrb\brnine \let\ptbnine=\pdnine\fi
         \if\endrb\brnull \let\ptbnull=\pdnine\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pdnine\fi
         \if\endrb\brtwo \let\ptctwo=\pdnine\fi
         \if\endrb\brthree \let\ptcthree=\pdnine\fi
         \if\endrb\brfour \let\ptcfour=\pdnine\fi
         \if\endrb\brfive \let\ptcfive=\pdnine\fi
         \if\endrb\brsix \let\ptcsix=\pdnine\fi
         \if\endrb\brseven \let\ptcseven=\pdnine\fi
         \if\endrb\breight \let\ptceight=\pdnine\fi
         \if\endrb\brnine \let\ptcnine=\pdnine\fi
         \if\endrb\brnull \let\ptcnull=\pdnine\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pdnine\fi
         \if\endrb\brtwo \let\ptdtwo=\pdnine\fi
         \if\endrb\brthree \let\ptdthree=\pdnine\fi
         \if\endrb\brfour \let\ptdfour=\pdnine\fi
         \if\endrb\brfive \let\ptdfive=\pdnine\fi
         \if\endrb\brsix \let\ptdsix=\pdnine\fi
         \if\endrb\brseven \let\ptdseven=\pdnine\fi
         \if\endrb\breight \let\ptdeight=\pdnine\fi
         \if\endrb\brnine \let\ptdnine=\pdnine\fi
         \if\endrb\brnull \let\ptdnull=\pdnine\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pdnine\fi
         \if\endrb\brtwo \let\ptetwo=\pdnine\fi
         \if\endrb\brthree \let\ptethree=\pdnine\fi
         \if\endrb\brfour \let\ptefour=\pdnine\fi
         \if\endrb\brfive \let\ptefive=\pdnine\fi
         \if\endrb\brsix \let\ptesix=\pdnine\fi
         \if\endrb\brseven \let\pteseven=\pdnine\fi
         \if\endrb\breight \let\pteeight=\pdnine\fi
         \if\endrb\brnine \let\ptenine=\pdnine\fi
         \if\endrb\brnull \let\ptenull=\pdnine\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pdnine\fi
         \if\endrb\brtwo \let\ptftwo=\pdnine\fi
         \if\endrb\brthree \let\ptfthree=\pdnine\fi
         \if\endrb\brfour \let\ptffour=\pdnine\fi
         \if\endrb\brfive \let\ptffive=\pdnine\fi
         \if\endrb\brsix \let\ptfsix=\pdnine\fi
         \if\endrb\brseven \let\ptfseven=\pdnine\fi
         \if\endrb\breight \let\ptfeight=\pdnine\fi
         \if\endrb\brnine \let\ptfnine=\pdnine\fi
         \if\endrb\brnull \let\ptfnull=\pdnine\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pdnine\fi
         \if\endrb\brtwo \let\ptgtwo=\pdnine\fi
         \if\endrb\brthree \let\ptgthree=\pdnine\fi
         \if\endrb\brfour \let\ptgfour=\pdnine\fi
         \if\endrb\brfive \let\ptgfive=\pdnine\fi
         \if\endrb\brsix \let\ptgsix=\pdnine\fi
         \if\endrb\brseven \let\ptgseven=\pdnine\fi
         \if\endrb\breight \let\ptgeight=\pdnine\fi
         \if\endrb\brnine \let\ptgnine=\pdnine\fi
         \if\endrb\brnull \let\ptgnull=\pdnine\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pdnine\fi
         \if\endrb\brtwo \let\pthtwo=\pdnine\fi
         \if\endrb\brthree \let\pththree=\pdnine\fi
         \if\endrb\brfour \let\pthfour=\pdnine\fi
         \if\endrb\brfive \let\pthfive=\pdnine\fi
         \if\endrb\brsix \let\pthsix=\pdnine\fi
         \if\endrb\brseven \let\pthseven=\pdnine\fi
         \if\endrb\breight \let\ptheight=\pdnine\fi
         \if\endrb\brnine \let\pthnine=\pdnine\fi
         \if\endrb\brnull \let\pthnull=\pdnine\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pdnine\fi
         \if\endrb\brtwo \let\ptitwo=\pdnine\fi
         \if\endrb\brthree \let\ptithree=\pdnine\fi
         \if\endrb\brfour \let\ptifour=\pdnine\fi
         \if\endrb\brfive \let\ptifive=\pdnine\fi
         \if\endrb\brsix \let\ptisix=\pdnine\fi
         \if\endrb\brseven \let\ptiseven=\pdnine\fi
         \if\endrb\breight \let\ptieight=\pdnine\fi
         \if\endrb\brnine \let\ptinine=\pdnine\fi
         \if\endrb\brnull \let\ptinull=\pdnine\fi\fi\fi      
   \if\startrb\brnull \dnullset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pdnull\fi
         \if\endrb\brtwo \let\ptatwo=\pdnull\fi
         \if\endrb\brthree \let\ptathree=\pdnull\fi
         \if\endrb\brfour \let\ptafour=\pdnull\fi
         \if\endrb\brfive \let\ptafive=\pdnull\fi
         \if\endrb\brsix \let\ptasix=\pdnull\fi
         \if\endrb\brseven \let\ptaseven=\pdnull\fi
         \if\endrb\breight \let\ptaeight=\pdnull\fi
         \if\endrb\brnine \let\ptanine=\pdnull\fi
         \if\endrb\brnull \let\ptanull=\pdnull\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pdnull\fi
         \if\endrb\brtwo \let\ptbtwo=\pdnull\fi
         \if\endrb\brthree \let\ptbthree=\pdnull\fi
         \if\endrb\brfour \let\ptbfour=\pdnull\fi
         \if\endrb\brfive \let\ptbfive=\pdnull\fi
         \if\endrb\brsix \let\ptbsix=\pdnull\fi
         \if\endrb\brseven \let\ptbseven=\pdnull\fi
         \if\endrb\breight \let\ptbeight=\pdnull\fi
         \if\endrb\brnine \let\ptbnine=\pdnull\fi
         \if\endrb\brnull \let\ptbnull=\pdnull\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pdnull\fi
         \if\endrb\brtwo \let\ptctwo=\pdnull\fi
         \if\endrb\brthree \let\ptcthree=\pdnull\fi
         \if\endrb\brfour \let\ptcfour=\pdnull\fi
         \if\endrb\brfive \let\ptcfive=\pdnull\fi
         \if\endrb\brsix \let\ptcsix=\pdnull\fi
         \if\endrb\brseven \let\ptcseven=\pdnull\fi
         \if\endrb\breight \let\ptceight=\pdnull\fi
         \if\endrb\brnine \let\ptcnine=\pdnull\fi
         \if\endrb\brnull \let\ptcnull=\pdnull\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pdnull\fi
         \if\endrb\brtwo \let\ptdtwo=\pdnull\fi
         \if\endrb\brthree \let\ptdthree=\pdnull\fi
         \if\endrb\brfour \let\ptdfour=\pdnull\fi
         \if\endrb\brfive \let\ptdfive=\pdnull\fi
         \if\endrb\brsix \let\ptdsix=\pdnull\fi
         \if\endrb\brseven \let\ptdseven=\pdnull\fi
         \if\endrb\breight \let\ptdeight=\pdnull\fi
         \if\endrb\brnine \let\ptdnine=\pdnull\fi
         \if\endrb\brnull \let\ptdnull=\pdnull\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pdnull\fi
         \if\endrb\brtwo \let\ptetwo=\pdnull\fi
         \if\endrb\brthree \let\ptethree=\pdnull\fi
         \if\endrb\brfour \let\ptefour=\pdnull\fi
         \if\endrb\brfive \let\ptefive=\pdnull\fi
         \if\endrb\brsix \let\ptesix=\pdnull\fi
         \if\endrb\brseven \let\pteseven=\pdnull\fi
         \if\endrb\breight \let\pteeight=\pdnull\fi
         \if\endrb\brnine \let\ptenine=\pdnull\fi
         \if\endrb\brnull \let\ptenull=\pdnull\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pdnull\fi
         \if\endrb\brtwo \let\ptftwo=\pdnull\fi
         \if\endrb\brthree \let\ptfthree=\pdnull\fi
         \if\endrb\brfour \let\ptffour=\pdnull\fi
         \if\endrb\brfive \let\ptffive=\pdnull\fi
         \if\endrb\brsix \let\ptfsix=\pdnull\fi
         \if\endrb\brseven \let\ptfseven=\pdnull\fi
         \if\endrb\breight \let\ptfeight=\pdnull\fi
         \if\endrb\brnine \let\ptfnine=\pdnull\fi
         \if\endrb\brnull \let\ptfnull=\pdnull\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pdnull\fi
         \if\endrb\brtwo \let\ptgtwo=\pdnull\fi
         \if\endrb\brthree \let\ptgthree=\pdnull\fi
         \if\endrb\brfour \let\ptgfour=\pdnull\fi
         \if\endrb\brfive \let\ptgfive=\pdnull\fi
         \if\endrb\brsix \let\ptgsix=\pdnull\fi
         \if\endrb\brseven \let\ptgseven=\pdnull\fi
         \if\endrb\breight \let\ptgeight=\pdnull\fi
         \if\endrb\brnine \let\ptgnine=\pdnull\fi
         \if\endrb\brnull \let\ptgnull=\pdnull\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pdnull\fi
         \if\endrb\brtwo \let\pthtwo=\pdnull\fi
         \if\endrb\brthree \let\pththree=\pdnull\fi
         \if\endrb\brfour \let\pthfour=\pdnull\fi
         \if\endrb\brfive \let\pthfive=\pdnull\fi
         \if\endrb\brsix \let\pthsix=\pdnull\fi
         \if\endrb\brseven \let\pthseven=\pdnull\fi
         \if\endrb\breight \let\ptheight=\pdnull\fi
         \if\endrb\brnine \let\pthnine=\pdnull\fi
         \if\endrb\brnull \let\pthnull=\pdnull\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pdnull\fi
         \if\endrb\brtwo \let\ptitwo=\pdnull\fi
         \if\endrb\brthree \let\ptithree=\pdnull\fi
         \if\endrb\brfour \let\ptifour=\pdnull\fi
         \if\endrb\brfive \let\ptifive=\pdnull\fi
         \if\endrb\brsix \let\ptisix=\pdnull\fi
         \if\endrb\brseven \let\ptiseven=\pdnull\fi
         \if\endrb\breight \let\ptieight=\pdnull\fi
         \if\endrb\brnine \let\ptinine=\pdnull\fi
         \if\endrb\brnull \let\ptinull=\pdnull\fi\fi\fi\fi  
\if\startlb\eli
   \if\startrb\brone \eoneset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\peone\fi
         \if\endrb\brtwo \let\ptatwo=\peone\fi
         \if\endrb\brthree \let\ptathree=\peone\fi
         \if\endrb\brfour \let\ptafour=\peone\fi
         \if\endrb\brfive \let\ptafive=\peone\fi
         \if\endrb\brsix \let\ptasix=\peone\fi
         \if\endrb\brseven \let\ptaseven=\peone\fi
         \if\endrb\breight \let\ptaeight=\peone\fi
         \if\endrb\brnine \let\ptanine=\peone\fi
         \if\endrb\brnull \let\ptanull=\peone\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\peone\fi
         \if\endrb\brtwo \let\ptbtwo=\peone\fi
         \if\endrb\brthree \let\ptbthree=\peone\fi
         \if\endrb\brfour \let\ptbfour=\peone\fi
         \if\endrb\brfive \let\ptbfive=\peone\fi
         \if\endrb\brsix \let\ptbsix=\peone\fi
         \if\endrb\brseven \let\ptbseven=\peone\fi
         \if\endrb\breight \let\ptbeight=\peone\fi
         \if\endrb\brnine \let\ptbnine=\peone\fi
         \if\endrb\brnull \let\ptbnull=\peone\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\peone\fi
         \if\endrb\brtwo \let\ptctwo=\peone\fi
         \if\endrb\brthree \let\ptcthree=\peone\fi
         \if\endrb\brfour \let\ptcfour=\peone\fi
         \if\endrb\brfive \let\ptcfive=\peone\fi
         \if\endrb\brsix \let\ptcsix=\peone\fi
         \if\endrb\brseven \let\ptcseven=\peone\fi
         \if\endrb\breight \let\ptceight=\peone\fi
         \if\endrb\brnine \let\ptcnine=\peone\fi
         \if\endrb\brnull \let\ptcnull=\peone\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\peone\fi
         \if\endrb\brtwo \let\ptdtwo=\peone\fi
         \if\endrb\brthree \let\ptdthree=\peone\fi
         \if\endrb\brfour \let\ptdfour=\peone\fi
         \if\endrb\brfive \let\ptdfive=\peone\fi
         \if\endrb\brsix \let\ptdsix=\peone\fi
         \if\endrb\brseven \let\ptdseven=\peone\fi
         \if\endrb\breight \let\ptdeight=\peone\fi
         \if\endrb\brnine \let\ptdnine=\peone\fi
         \if\endrb\brnull \let\ptdnull=\peone\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\peone\fi
         \if\endrb\brtwo \let\ptetwo=\peone\fi
         \if\endrb\brthree \let\ptethree=\peone\fi
         \if\endrb\brfour \let\ptefour=\peone\fi
         \if\endrb\brfive \let\ptefive=\peone\fi
         \if\endrb\brsix \let\ptesix=\peone\fi
         \if\endrb\brseven \let\pteseven=\peone\fi
         \if\endrb\breight \let\pteeight=\peone\fi
         \if\endrb\brnine \let\ptenine=\peone\fi
         \if\endrb\brnull \let\ptenull=\peone\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\peone\fi
         \if\endrb\brtwo \let\ptftwo=\peone\fi
         \if\endrb\brthree \let\ptfthree=\peone\fi
         \if\endrb\brfour \let\ptffour=\peone\fi
         \if\endrb\brfive \let\ptffive=\peone\fi
         \if\endrb\brsix \let\ptfsix=\peone\fi
         \if\endrb\brseven \let\ptfseven=\peone\fi
         \if\endrb\breight \let\ptfeight=\peone\fi
         \if\endrb\brnine \let\ptfnine=\peone\fi
         \if\endrb\brnull \let\ptfnull=\peone\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\peone\fi
         \if\endrb\brtwo \let\ptgtwo=\peone\fi
         \if\endrb\brthree \let\ptgthree=\peone\fi
         \if\endrb\brfour \let\ptgfour=\peone\fi
         \if\endrb\brfive \let\ptgfive=\peone\fi
         \if\endrb\brsix \let\ptgsix=\peone\fi
         \if\endrb\brseven \let\ptgseven=\peone\fi
         \if\endrb\breight \let\ptgeight=\peone\fi
         \if\endrb\brnine \let\ptgnine=\peone\fi
         \if\endrb\brnull \let\ptgnull=\peone\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\peone\fi
         \if\endrb\brtwo \let\pthtwo=\peone\fi
         \if\endrb\brthree \let\pththree=\peone\fi
         \if\endrb\brfour \let\pthfour=\peone\fi
         \if\endrb\brfive \let\pthfive=\peone\fi
         \if\endrb\brsix \let\pthsix=\peone\fi
         \if\endrb\brseven \let\pthseven=\peone\fi
         \if\endrb\breight \let\ptheight=\peone\fi
         \if\endrb\brnine \let\pthnine=\peone\fi
         \if\endrb\brnull \let\pthnull=\peone\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\peone\fi
         \if\endrb\brtwo \let\ptitwo=\peone\fi
         \if\endrb\brthree \let\ptithree=\peone\fi
         \if\endrb\brfour \let\ptifour=\peone\fi
         \if\endrb\brfive \let\ptifive=\peone\fi
         \if\endrb\brsix \let\ptisix=\peone\fi
         \if\endrb\brseven \let\ptiseven=\peone\fi
         \if\endrb\breight \let\ptieight=\peone\fi
         \if\endrb\brnine \let\ptinine=\peone\fi
         \if\endrb\brnull \let\ptinull=\peone\fi\fi\fi      
   \if\startrb\brtwo \etwoset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\petwo\fi
         \if\endrb\brtwo \let\ptatwo=\petwo\fi
         \if\endrb\brthree \let\ptathree=\petwo\fi
         \if\endrb\brfour \let\ptafour=\petwo\fi
         \if\endrb\brfive \let\ptafive=\petwo\fi
         \if\endrb\brsix \let\ptasix=\petwo\fi
         \if\endrb\brseven \let\ptaseven=\petwo\fi
         \if\endrb\breight \let\ptaeight=\petwo\fi
         \if\endrb\brnine \let\ptanine=\petwo\fi
         \if\endrb\brnull \let\ptanull=\petwo\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\petwo\fi
         \if\endrb\brtwo \let\ptbtwo=\petwo\fi
         \if\endrb\brthree \let\ptbthree=\petwo\fi
         \if\endrb\brfour \let\ptbfour=\petwo\fi
         \if\endrb\brfive \let\ptbfive=\petwo\fi
         \if\endrb\brsix \let\ptbsix=\petwo\fi
         \if\endrb\brseven \let\ptbseven=\petwo\fi
         \if\endrb\breight \let\ptbeight=\petwo\fi
         \if\endrb\brnine \let\ptbnine=\petwo\fi
         \if\endrb\brnull \let\ptbnull=\petwo\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\petwo\fi
         \if\endrb\brtwo \let\ptctwo=\petwo\fi
         \if\endrb\brthree \let\ptcthree=\petwo\fi
         \if\endrb\brfour \let\ptcfour=\petwo\fi
         \if\endrb\brfive \let\ptcfive=\petwo\fi
         \if\endrb\brsix \let\ptcsix=\petwo\fi
         \if\endrb\brseven \let\ptcseven=\petwo\fi
         \if\endrb\breight \let\ptceight=\petwo\fi
         \if\endrb\brnine \let\ptcnine=\petwo\fi
         \if\endrb\brnull \let\ptcnull=\petwo\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\petwo\fi
         \if\endrb\brtwo \let\ptdtwo=\petwo\fi
         \if\endrb\brthree \let\ptdthree=\petwo\fi
         \if\endrb\brfour \let\ptdfour=\petwo\fi
         \if\endrb\brfive \let\ptdfive=\petwo\fi
         \if\endrb\brsix \let\ptdsix=\petwo\fi
         \if\endrb\brseven \let\ptdseven=\petwo\fi
         \if\endrb\breight \let\ptdeight=\petwo\fi
         \if\endrb\brnine \let\ptdnine=\petwo\fi
         \if\endrb\brnull \let\ptdnull=\petwo\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\petwo\fi
         \if\endrb\brtwo \let\ptetwo=\petwo\fi
         \if\endrb\brthree \let\ptethree=\petwo\fi
         \if\endrb\brfour \let\ptefour=\petwo\fi
         \if\endrb\brfive \let\ptefive=\petwo\fi
         \if\endrb\brsix \let\ptesix=\petwo\fi
         \if\endrb\brseven \let\pteseven=\petwo\fi
         \if\endrb\breight \let\pteeight=\petwo\fi
         \if\endrb\brnine \let\ptenine=\petwo\fi
         \if\endrb\brnull \let\ptenull=\petwo\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\petwo\fi
         \if\endrb\brtwo \let\ptftwo=\petwo\fi
         \if\endrb\brthree \let\ptfthree=\petwo\fi
         \if\endrb\brfour \let\ptffour=\petwo\fi
         \if\endrb\brfive \let\ptffive=\petwo\fi
         \if\endrb\brsix \let\ptfsix=\petwo\fi
         \if\endrb\brseven \let\ptfseven=\petwo\fi
         \if\endrb\breight \let\ptfeight=\petwo\fi
         \if\endrb\brnine \let\ptfnine=\petwo\fi
         \if\endrb\brnull \let\ptfnull=\petwo\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\petwo\fi
         \if\endrb\brtwo \let\ptgtwo=\petwo\fi
         \if\endrb\brthree \let\ptgthree=\petwo\fi
         \if\endrb\brfour \let\ptgfour=\petwo\fi
         \if\endrb\brfive \let\ptgfive=\petwo\fi
         \if\endrb\brsix \let\ptgsix=\petwo\fi
         \if\endrb\brseven \let\ptgseven=\petwo\fi
         \if\endrb\breight \let\ptgeight=\petwo\fi
         \if\endrb\brnine \let\ptgnine=\petwo\fi
         \if\endrb\brnull \let\ptgnull=\petwo\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\petwo\fi
         \if\endrb\brtwo \let\pthtwo=\petwo\fi
         \if\endrb\brthree \let\pththree=\petwo\fi
         \if\endrb\brfour \let\pthfour=\petwo\fi
         \if\endrb\brfive \let\pthfive=\petwo\fi
         \if\endrb\brsix \let\pthsix=\petwo\fi
         \if\endrb\brseven \let\pthseven=\petwo\fi
         \if\endrb\breight \let\ptheight=\petwo\fi
         \if\endrb\brnine \let\pthnine=\petwo\fi
         \if\endrb\brnull \let\pthnull=\petwo\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\petwo\fi
         \if\endrb\brtwo \let\ptitwo=\petwo\fi
         \if\endrb\brthree \let\ptithree=\petwo\fi
         \if\endrb\brfour \let\ptifour=\petwo\fi
         \if\endrb\brfive \let\ptifive=\petwo\fi
         \if\endrb\brsix \let\ptisix=\petwo\fi
         \if\endrb\brseven \let\ptiseven=\petwo\fi
         \if\endrb\breight \let\ptieight=\petwo\fi
         \if\endrb\brnine \let\ptinine=\petwo\fi
         \if\endrb\brnull \let\ptinull=\petwo\fi\fi\fi
   \if\startrb\brthree \ethreeset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pethree\fi
         \if\endrb\brtwo \let\ptatwo=\pethree\fi
         \if\endrb\brthree \let\ptathree=\pethree\fi
         \if\endrb\brfour \let\ptafour=\pethree\fi
         \if\endrb\brfive \let\ptafive=\pethree\fi
         \if\endrb\brsix \let\ptasix=\pethree\fi
         \if\endrb\brseven \let\ptaseven=\pethree\fi
         \if\endrb\breight \let\ptaeight=\pethree\fi
         \if\endrb\brnine \let\ptanine=\pethree\fi
         \if\endrb\brnull \let\ptanull=\pethree\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pethree\fi
         \if\endrb\brtwo \let\ptbtwo=\pethree\fi
         \if\endrb\brthree \let\ptbthree=\pethree\fi
         \if\endrb\brfour \let\ptbfour=\pethree\fi
         \if\endrb\brfive \let\ptbfive=\pethree\fi
         \if\endrb\brsix \let\ptbsix=\pethree\fi
         \if\endrb\brseven \let\ptbseven=\pethree\fi
         \if\endrb\breight \let\ptbeight=\pethree\fi
         \if\endrb\brnine \let\ptbnine=\pethree\fi
         \if\endrb\brnull \let\ptbnull=\pethree\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pethree\fi
         \if\endrb\brtwo \let\ptctwo=\pethree\fi
         \if\endrb\brthree \let\ptcthree=\pethree\fi
         \if\endrb\brfour \let\ptcfour=\pethree\fi
         \if\endrb\brfive \let\ptcfive=\pethree\fi
         \if\endrb\brsix \let\ptcsix=\pethree\fi
         \if\endrb\brseven \let\ptcseven=\pethree\fi
         \if\endrb\breight \let\ptceight=\pethree\fi
         \if\endrb\brnine \let\ptcnine=\pethree\fi
         \if\endrb\brnull \let\ptcnull=\pethree\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pethree\fi
         \if\endrb\brtwo \let\ptdtwo=\pethree\fi
         \if\endrb\brthree \let\ptdthree=\pethree\fi
         \if\endrb\brfour \let\ptdfour=\pethree\fi
         \if\endrb\brfive \let\ptdfive=\pethree\fi
         \if\endrb\brsix \let\ptdsix=\pethree\fi
         \if\endrb\brseven \let\ptdseven=\pethree\fi
         \if\endrb\breight \let\ptdeight=\pethree\fi
         \if\endrb\brnine \let\ptdnine=\pethree\fi
         \if\endrb\brnull \let\ptdnull=\pethree\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pethree\fi
         \if\endrb\brtwo \let\ptetwo=\pethree\fi
         \if\endrb\brthree \let\ptethree=\pethree\fi
         \if\endrb\brfour \let\ptefour=\pethree\fi
         \if\endrb\brfive \let\ptefive=\pethree\fi
         \if\endrb\brsix \let\ptesix=\pethree\fi
         \if\endrb\brseven \let\pteseven=\pethree\fi
         \if\endrb\breight \let\pteeight=\pethree\fi
         \if\endrb\brnine \let\ptenine=\pethree\fi
         \if\endrb\brnull \let\ptenull=\pethree\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pethree\fi
         \if\endrb\brtwo \let\ptftwo=\pethree\fi
         \if\endrb\brthree \let\ptfthree=\pethree\fi
         \if\endrb\brfour \let\ptffour=\pethree\fi
         \if\endrb\brfive \let\ptffive=\pethree\fi
         \if\endrb\brsix \let\ptfsix=\pethree\fi
         \if\endrb\brseven \let\ptfseven=\pethree\fi
         \if\endrb\breight \let\ptfeight=\pethree\fi
         \if\endrb\brnine \let\ptfnine=\pethree\fi
         \if\endrb\brnull \let\ptfnull=\pethree\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pethree\fi
         \if\endrb\brtwo \let\ptgtwo=\pethree\fi
         \if\endrb\brthree \let\ptgthree=\pethree\fi
         \if\endrb\brfour \let\ptgfour=\pethree\fi
         \if\endrb\brfive \let\ptgfive=\pethree\fi
         \if\endrb\brsix \let\ptgsix=\pethree\fi
         \if\endrb\brseven \let\ptgseven=\pethree\fi
         \if\endrb\breight \let\ptgeight=\pethree\fi
         \if\endrb\brnine \let\ptgnine=\pethree\fi
         \if\endrb\brnull \let\ptgnull=\pethree\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pethree\fi
         \if\endrb\brtwo \let\pthtwo=\pethree\fi
         \if\endrb\brthree \let\pththree=\pethree\fi
         \if\endrb\brfour \let\pthfour=\pethree\fi
         \if\endrb\brfive \let\pthfive=\pethree\fi
         \if\endrb\brsix \let\pthsix=\pethree\fi
         \if\endrb\brseven \let\pthseven=\pethree\fi
         \if\endrb\breight \let\ptheight=\pethree\fi
         \if\endrb\brnine \let\pthnine=\pethree\fi
         \if\endrb\brnull \let\pthnull=\pethree\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pethree\fi
         \if\endrb\brtwo \let\ptitwo=\pethree\fi
         \if\endrb\brthree \let\ptithree=\pethree\fi
         \if\endrb\brfour \let\ptifour=\pethree\fi
         \if\endrb\brfive \let\ptifive=\pethree\fi
         \if\endrb\brsix \let\ptisix=\pethree\fi
         \if\endrb\brseven \let\ptiseven=\pethree\fi
         \if\endrb\breight \let\ptieight=\pethree\fi
         \if\endrb\brnine \let\ptinine=\pethree\fi
         \if\endrb\brnull \let\ptinull=\pethree\fi\fi\fi      
   \if\startrb\brfour \efourset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pefour\fi
         \if\endrb\brtwo \let\ptatwo=\pefour\fi
         \if\endrb\brthree \let\ptathree=\pefour\fi
         \if\endrb\brfour \let\ptafour=\pefour\fi
         \if\endrb\brfive \let\ptafive=\pefour\fi
         \if\endrb\brsix \let\ptasix=\pefour\fi
         \if\endrb\brseven \let\ptaseven=\pefour\fi
         \if\endrb\breight \let\ptaeight=\pefour\fi
         \if\endrb\brnine \let\ptanine=\pefour\fi
         \if\endrb\brnull \let\ptanull=\pefour\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pefour\fi
         \if\endrb\brtwo \let\ptbtwo=\pefour\fi
         \if\endrb\brthree \let\ptbthree=\pefour\fi
         \if\endrb\brfour \let\ptbfour=\pefour\fi
         \if\endrb\brfive \let\ptbfive=\pefour\fi
         \if\endrb\brsix \let\ptbsix=\pefour\fi
         \if\endrb\brseven \let\ptbseven=\pefour\fi
         \if\endrb\breight \let\ptbeight=\pefour\fi
         \if\endrb\brnine \let\ptbnine=\pefour\fi
         \if\endrb\brnull \let\ptbnull=\pefour\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pefour\fi
         \if\endrb\brtwo \let\ptctwo=\pefour\fi
         \if\endrb\brthree \let\ptcthree=\pefour\fi
         \if\endrb\brfour \let\ptcfour=\pefour\fi
         \if\endrb\brfive \let\ptcfive=\pefour\fi
         \if\endrb\brsix \let\ptcsix=\pefour\fi
         \if\endrb\brseven \let\ptcseven=\pefour\fi
         \if\endrb\breight \let\ptceight=\pefour\fi
         \if\endrb\brnine \let\ptcnine=\pefour\fi
         \if\endrb\brnull \let\ptcnull=\pefour\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pefour\fi
         \if\endrb\brtwo \let\ptdtwo=\pefour\fi
         \if\endrb\brthree \let\ptdthree=\pefour\fi
         \if\endrb\brfour \let\ptdfour=\pefour\fi
         \if\endrb\brfive \let\ptdfive=\pefour\fi
         \if\endrb\brsix \let\ptdsix=\pefour\fi
         \if\endrb\brseven \let\ptdseven=\pefour\fi
         \if\endrb\breight \let\ptdeight=\pefour\fi
         \if\endrb\brnine \let\ptdnine=\pefour\fi
         \if\endrb\brnull \let\ptdnull=\pefour\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pefour\fi
         \if\endrb\brtwo \let\ptetwo=\pefour\fi
         \if\endrb\brthree \let\ptethree=\pefour\fi
         \if\endrb\brfour \let\ptefour=\pefour\fi
         \if\endrb\brfive \let\ptefive=\pefour\fi
         \if\endrb\brsix \let\ptesix=\pefour\fi
         \if\endrb\brseven \let\pteseven=\pefour\fi
         \if\endrb\breight \let\pteeight=\pefour\fi
         \if\endrb\brnine \let\ptenine=\pefour\fi
         \if\endrb\brnull \let\ptenull=\pefour\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pefour\fi
         \if\endrb\brtwo \let\ptftwo=\pefour\fi
         \if\endrb\brthree \let\ptfthree=\pefour\fi
         \if\endrb\brfour \let\ptffour=\pefour\fi
         \if\endrb\brfive \let\ptffive=\pefour\fi
         \if\endrb\brsix \let\ptfsix=\pefour\fi
         \if\endrb\brseven \let\ptfseven=\pefour\fi
         \if\endrb\breight \let\ptfeight=\pefour\fi
         \if\endrb\brnine \let\ptfnine=\pefour\fi
         \if\endrb\brnull \let\ptfnull=\pefour\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pefour\fi
         \if\endrb\brtwo \let\ptgtwo=\pefour\fi
         \if\endrb\brthree \let\ptgthree=\pefour\fi
         \if\endrb\brfour \let\ptgfour=\pefour\fi
         \if\endrb\brfive \let\ptgfive=\pefour\fi
         \if\endrb\brsix \let\ptgsix=\pefour\fi
         \if\endrb\brseven \let\ptgseven=\pefour\fi
         \if\endrb\breight \let\ptgeight=\pefour\fi
         \if\endrb\brnine \let\ptgnine=\pefour\fi
         \if\endrb\brnull \let\ptgnull=\pefour\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pefour\fi
         \if\endrb\brtwo \let\pthtwo=\pefour\fi
         \if\endrb\brthree \let\pththree=\pefour\fi
         \if\endrb\brfour \let\pthfour=\pefour\fi
         \if\endrb\brfive \let\pthfive=\pefour\fi
         \if\endrb\brsix \let\pthsix=\pefour\fi
         \if\endrb\brseven \let\pthseven=\pefour\fi
         \if\endrb\breight \let\ptheight=\pefour\fi
         \if\endrb\brnine \let\pthnine=\pefour\fi
         \if\endrb\brnull \let\pthnull=\pefour\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pefour\fi
         \if\endrb\brtwo \let\ptitwo=\pefour\fi
         \if\endrb\brthree \let\ptithree=\pefour\fi
         \if\endrb\brfour \let\ptifour=\pefour\fi
         \if\endrb\brfive \let\ptifive=\pefour\fi
         \if\endrb\brsix \let\ptisix=\pefour\fi
         \if\endrb\brseven \let\ptiseven=\pefour\fi
         \if\endrb\breight \let\ptieight=\pefour\fi
         \if\endrb\brnine \let\ptinine=\pefour\fi
         \if\endrb\brnull \let\ptinull=\pefour\fi\fi\fi      
   \if\startrb\brfive \efiveset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pefive\fi
         \if\endrb\brtwo \let\ptatwo=\pefive\fi
         \if\endrb\brthree \let\ptathree=\pefive\fi
         \if\endrb\brfour \let\ptafour=\pefive\fi
         \if\endrb\brfive \let\ptafive=\pefive\fi
         \if\endrb\brsix \let\ptasix=\pefive\fi
         \if\endrb\brseven \let\ptaseven=\pefive\fi
         \if\endrb\breight \let\ptaeight=\pefive\fi
         \if\endrb\brnine \let\ptanine=\pefive\fi
         \if\endrb\brnull \let\ptanull=\pefive\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pefive\fi
         \if\endrb\brtwo \let\ptbtwo=\pefive\fi
         \if\endrb\brthree \let\ptbthree=\pefive\fi
         \if\endrb\brfour \let\ptbfour=\pefive\fi
         \if\endrb\brfive \let\ptbfive=\pefive\fi
         \if\endrb\brsix \let\ptbsix=\pefive\fi
         \if\endrb\brseven \let\ptbseven=\pefive\fi
         \if\endrb\breight \let\ptbeight=\pefive\fi
         \if\endrb\brnine \let\ptbnine=\pefive\fi
         \if\endrb\brnull \let\ptbnull=\pefive\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pefive\fi
         \if\endrb\brtwo \let\ptctwo=\pefive\fi
         \if\endrb\brthree \let\ptcthree=\pefive\fi
         \if\endrb\brfour \let\ptcfour=\pefive\fi
         \if\endrb\brfive \let\ptcfive=\pefive\fi
         \if\endrb\brsix \let\ptcsix=\pefive\fi
         \if\endrb\brseven \let\ptcseven=\pefive\fi
         \if\endrb\breight \let\ptceight=\pefive\fi
         \if\endrb\brnine \let\ptcnine=\pefive\fi
         \if\endrb\brnull \let\ptcnull=\pefive\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pefive\fi
         \if\endrb\brtwo \let\ptdtwo=\pefive\fi
         \if\endrb\brthree \let\ptdthree=\pefive\fi
         \if\endrb\brfour \let\ptdfour=\pefive\fi
         \if\endrb\brfive \let\ptdfive=\pefive\fi
         \if\endrb\brsix \let\ptdsix=\pefive\fi
         \if\endrb\brseven \let\ptdseven=\pefive\fi
         \if\endrb\breight \let\ptdeight=\pefive\fi
         \if\endrb\brnine \let\ptdnine=\pefive\fi
         \if\endrb\brnull \let\ptdnull=\pefive\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pefive\fi
         \if\endrb\brtwo \let\ptetwo=\pefive\fi
         \if\endrb\brthree \let\ptethree=\pefive\fi
         \if\endrb\brfour \let\ptefour=\pefive\fi
         \if\endrb\brfive \let\ptefive=\pefive\fi
         \if\endrb\brsix \let\ptesix=\pefive\fi
         \if\endrb\brseven \let\pteseven=\pefive\fi
         \if\endrb\breight \let\pteeight=\pefive\fi
         \if\endrb\brnine \let\ptenine=\pefive\fi
         \if\endrb\brnull \let\ptenull=\pefive\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pefive\fi
         \if\endrb\brtwo \let\ptftwo=\pefive\fi
         \if\endrb\brthree \let\ptfthree=\pefive\fi
         \if\endrb\brfour \let\ptffour=\pefive\fi
         \if\endrb\brfive \let\ptffive=\pefive\fi
         \if\endrb\brsix \let\ptfsix=\pefive\fi
         \if\endrb\brseven \let\ptfseven=\pefive\fi
         \if\endrb\breight \let\ptfeight=\pefive\fi
         \if\endrb\brnine \let\ptfnine=\pefive\fi
         \if\endrb\brnull \let\ptfnull=\pefive\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pefive\fi
         \if\endrb\brtwo \let\ptgtwo=\pefive\fi
         \if\endrb\brthree \let\ptgthree=\pefive\fi
         \if\endrb\brfour \let\ptgfour=\pefive\fi
         \if\endrb\brfive \let\ptgfive=\pefive\fi
         \if\endrb\brsix \let\ptgsix=\pefive\fi
         \if\endrb\brseven \let\ptgseven=\pefive\fi
         \if\endrb\breight \let\ptgeight=\pefive\fi
         \if\endrb\brnine \let\ptgnine=\pefive\fi
         \if\endrb\brnull \let\ptgnull=\pefive\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pefive\fi
         \if\endrb\brtwo \let\pthtwo=\pefive\fi
         \if\endrb\brthree \let\pththree=\pefive\fi
         \if\endrb\brfour \let\pthfour=\pefive\fi
         \if\endrb\brfive \let\pthfive=\pefive\fi
         \if\endrb\brsix \let\pthsix=\pefive\fi
         \if\endrb\brseven \let\pthseven=\pefive\fi
         \if\endrb\breight \let\ptheight=\pefive\fi
         \if\endrb\brnine \let\pthnine=\pefive\fi
         \if\endrb\brnull \let\pthnull=\pefive\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pefive\fi
         \if\endrb\brtwo \let\ptitwo=\pefive\fi
         \if\endrb\brthree \let\ptithree=\pefive\fi
         \if\endrb\brfour \let\ptifour=\pefive\fi
         \if\endrb\brfive \let\ptifive=\pefive\fi
         \if\endrb\brsix \let\ptisix=\pefive\fi
         \if\endrb\brseven \let\ptiseven=\pefive\fi
         \if\endrb\breight \let\ptieight=\pefive\fi
         \if\endrb\brnine \let\ptinine=\pefive\fi
         \if\endrb\brnull \let\ptinull=\pefive\fi\fi\fi   
   \if\startrb\brsix \esixset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pesix\fi
         \if\endrb\brtwo \let\ptatwo=\pesix\fi
         \if\endrb\brthree \let\ptathree=\pesix\fi
         \if\endrb\brfour \let\ptafour=\pesix\fi
         \if\endrb\brfive \let\ptafive=\pesix\fi
         \if\endrb\brsix \let\ptasix=\pesix\fi
         \if\endrb\brseven \let\ptaseven=\pesix\fi
         \if\endrb\breight \let\ptaeight=\pesix\fi
         \if\endrb\brnine \let\ptanine=\pesix\fi
         \if\endrb\brnull \let\ptanull=\pesix\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pesix\fi
         \if\endrb\brtwo \let\ptbtwo=\pesix\fi
         \if\endrb\brthree \let\ptbthree=\pesix\fi
         \if\endrb\brfour \let\ptbfour=\pesix\fi
         \if\endrb\brfive \let\ptbfive=\pesix\fi
         \if\endrb\brsix \let\ptbsix=\pesix\fi
         \if\endrb\brseven \let\ptbseven=\pesix\fi
         \if\endrb\breight \let\ptbeight=\pesix\fi
         \if\endrb\brnine \let\ptbnine=\pesix\fi
         \if\endrb\brnull \let\ptbnull=\pesix\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pesix\fi
         \if\endrb\brtwo \let\ptctwo=\pesix\fi
         \if\endrb\brthree \let\ptcthree=\pesix\fi
         \if\endrb\brfour \let\ptcfour=\pesix\fi
         \if\endrb\brfive \let\ptcfive=\pesix\fi
         \if\endrb\brsix \let\ptcsix=\pesix\fi
         \if\endrb\brseven \let\ptcseven=\pesix\fi
         \if\endrb\breight \let\ptceight=\pesix\fi
         \if\endrb\brnine \let\ptcnine=\pesix\fi
         \if\endrb\brnull \let\ptcnull=\pesix\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pesix\fi
         \if\endrb\brtwo \let\ptdtwo=\pesix\fi
         \if\endrb\brthree \let\ptdthree=\pesix\fi
         \if\endrb\brfour \let\ptdfour=\pesix\fi
         \if\endrb\brfive \let\ptdfive=\pesix\fi
         \if\endrb\brsix \let\ptdsix=\pesix\fi
         \if\endrb\brseven \let\ptdseven=\pesix\fi
         \if\endrb\breight \let\ptdeight=\pesix\fi
         \if\endrb\brnine \let\ptdnine=\pesix\fi
         \if\endrb\brnull \let\ptdnull=\pesix\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pesix\fi
         \if\endrb\brtwo \let\ptetwo=\pesix\fi
         \if\endrb\brthree \let\ptethree=\pesix\fi
         \if\endrb\brfour \let\ptefour=\pesix\fi
         \if\endrb\brfive \let\ptefive=\pesix\fi
         \if\endrb\brsix \let\ptesix=\pesix\fi
         \if\endrb\brseven \let\pteseven=\pesix\fi
         \if\endrb\breight \let\pteeight=\pesix\fi
         \if\endrb\brnine \let\ptenine=\pesix\fi
         \if\endrb\brnull \let\ptenull=\pesix\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pesix\fi
         \if\endrb\brtwo \let\ptftwo=\pesix\fi
         \if\endrb\brthree \let\ptfthree=\pesix\fi
         \if\endrb\brfour \let\ptffour=\pesix\fi
         \if\endrb\brfive \let\ptffive=\pesix\fi
         \if\endrb\brsix \let\ptfsix=\pesix\fi
         \if\endrb\brseven \let\ptfseven=\pesix\fi
         \if\endrb\breight \let\ptfeight=\pesix\fi
         \if\endrb\brnine \let\ptfnine=\pesix\fi
         \if\endrb\brnull \let\ptfnull=\pesix\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pesix\fi
         \if\endrb\brtwo \let\ptgtwo=\pesix\fi
         \if\endrb\brthree \let\ptgthree=\pesix\fi
         \if\endrb\brfour \let\ptgfour=\pesix\fi
         \if\endrb\brfive \let\ptgfive=\pesix\fi
         \if\endrb\brsix \let\ptgsix=\pesix\fi
         \if\endrb\brseven \let\ptgseven=\pesix\fi
         \if\endrb\breight \let\ptgeight=\pesix\fi
         \if\endrb\brnine \let\ptgnine=\pesix\fi
         \if\endrb\brnull \let\ptgnull=\pesix\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pesix\fi
         \if\endrb\brtwo \let\pthtwo=\pesix\fi
         \if\endrb\brthree \let\pththree=\pesix\fi
         \if\endrb\brfour \let\pthfour=\pesix\fi
         \if\endrb\brfive \let\pthfive=\pesix\fi
         \if\endrb\brsix \let\pthsix=\pesix\fi
         \if\endrb\brseven \let\pthseven=\pesix\fi
         \if\endrb\breight \let\ptheight=\pesix\fi
         \if\endrb\brnine \let\pthnine=\pesix\fi
         \if\endrb\brnull \let\pthnull=\pesix\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pesix\fi
         \if\endrb\brtwo \let\ptitwo=\pesix\fi
         \if\endrb\brthree \let\ptithree=\pesix\fi
         \if\endrb\brfour \let\ptifour=\pesix\fi
         \if\endrb\brfive \let\ptifive=\pesix\fi
         \if\endrb\brsix \let\ptisix=\pesix\fi
         \if\endrb\brseven \let\ptiseven=\pesix\fi
         \if\endrb\breight \let\ptieight=\pesix\fi
         \if\endrb\brnine \let\ptinine=\pesix\fi
         \if\endrb\brnull \let\ptinull=\pesix\fi\fi\fi
   \if\startrb\brseven \esevenset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\peseven\fi
         \if\endrb\brtwo \let\ptatwo=\peseven\fi
         \if\endrb\brthree \let\ptathree=\peseven\fi
         \if\endrb\brfour \let\ptafour=\peseven\fi
         \if\endrb\brfive \let\ptafive=\peseven\fi
         \if\endrb\brsix \let\ptasix=\peseven\fi
         \if\endrb\brseven \let\ptaseven=\peseven\fi
         \if\endrb\breight \let\ptaeight=\peseven\fi
         \if\endrb\brnine \let\ptanine=\peseven\fi
         \if\endrb\brnull \let\ptanull=\peseven\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\peseven\fi
         \if\endrb\brtwo \let\ptbtwo=\peseven\fi
         \if\endrb\brthree \let\ptbthree=\peseven\fi
         \if\endrb\brfour \let\ptbfour=\peseven\fi
         \if\endrb\brfive \let\ptbfive=\peseven\fi
         \if\endrb\brsix \let\ptbsix=\peseven\fi
         \if\endrb\brseven \let\ptbseven=\peseven\fi
         \if\endrb\breight \let\ptbeight=\peseven\fi
         \if\endrb\brnine \let\ptbnine=\peseven\fi
         \if\endrb\brnull \let\ptbnull=\peseven\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\peseven\fi
         \if\endrb\brtwo \let\ptctwo=\peseven\fi
         \if\endrb\brthree \let\ptcthree=\peseven\fi
         \if\endrb\brfour \let\ptcfour=\peseven\fi
         \if\endrb\brfive \let\ptcfive=\peseven\fi
         \if\endrb\brsix \let\ptcsix=\peseven\fi
         \if\endrb\brseven \let\ptcseven=\peseven\fi
         \if\endrb\breight \let\ptceight=\peseven\fi
         \if\endrb\brnine \let\ptcnine=\peseven\fi
         \if\endrb\brnull \let\ptcnull=\peseven\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\peseven\fi
         \if\endrb\brtwo \let\ptdtwo=\peseven\fi
         \if\endrb\brthree \let\ptdthree=\peseven\fi
         \if\endrb\brfour \let\ptdfour=\peseven\fi
         \if\endrb\brfive \let\ptdfive=\peseven\fi
         \if\endrb\brsix \let\ptdsix=\peseven\fi
         \if\endrb\brseven \let\ptdseven=\peseven\fi
         \if\endrb\breight \let\ptdeight=\peseven\fi
         \if\endrb\brnine \let\ptdnine=\peseven\fi
         \if\endrb\brnull \let\ptdnull=\peseven\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\peseven\fi
         \if\endrb\brtwo \let\ptetwo=\peseven\fi
         \if\endrb\brthree \let\ptethree=\peseven\fi
         \if\endrb\brfour \let\ptefour=\peseven\fi
         \if\endrb\brfive \let\ptefive=\peseven\fi
         \if\endrb\brsix \let\ptesix=\peseven\fi
         \if\endrb\brseven \let\pteseven=\peseven\fi
         \if\endrb\breight \let\pteeight=\peseven\fi
         \if\endrb\brnine \let\ptenine=\peseven\fi
         \if\endrb\brnull \let\ptenull=\peseven\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\peseven\fi
         \if\endrb\brtwo \let\ptftwo=\peseven\fi
         \if\endrb\brthree \let\ptfthree=\peseven\fi
         \if\endrb\brfour \let\ptffour=\peseven\fi
         \if\endrb\brfive \let\ptffive=\peseven\fi
         \if\endrb\brsix \let\ptfsix=\peseven\fi
         \if\endrb\brseven \let\ptfseven=\peseven\fi
         \if\endrb\breight \let\ptfeight=\peseven\fi
         \if\endrb\brnine \let\ptfnine=\peseven\fi
         \if\endrb\brnull \let\ptfnull=\peseven\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\peseven\fi
         \if\endrb\brtwo \let\ptgtwo=\peseven\fi
         \if\endrb\brthree \let\ptgthree=\peseven\fi
         \if\endrb\brfour \let\ptgfour=\peseven\fi
         \if\endrb\brfive \let\ptgfive=\peseven\fi
         \if\endrb\brsix \let\ptgsix=\peseven\fi
         \if\endrb\brseven \let\ptgseven=\peseven\fi
         \if\endrb\breight \let\ptgeight=\peseven\fi
         \if\endrb\brnine \let\ptgnine=\peseven\fi
         \if\endrb\brnull \let\ptgnull=\peseven\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\peseven\fi
         \if\endrb\brtwo \let\pthtwo=\peseven\fi
         \if\endrb\brthree \let\pththree=\peseven\fi
         \if\endrb\brfour \let\pthfour=\peseven\fi
         \if\endrb\brfive \let\pthfive=\peseven\fi
         \if\endrb\brsix \let\pthsix=\peseven\fi
         \if\endrb\brseven \let\pthseven=\peseven\fi
         \if\endrb\breight \let\ptheight=\peseven\fi
         \if\endrb\brnine \let\pthnine=\peseven\fi
         \if\endrb\brnull \let\pthnull=\peseven\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\peseven\fi
         \if\endrb\brtwo \let\ptitwo=\peseven\fi
         \if\endrb\brthree \let\ptithree=\peseven\fi
         \if\endrb\brfour \let\ptifour=\peseven\fi
         \if\endrb\brfive \let\ptifive=\peseven\fi
         \if\endrb\brsix \let\ptisix=\peseven\fi
         \if\endrb\brseven \let\ptiseven=\peseven\fi
         \if\endrb\breight \let\ptieight=\peseven\fi
         \if\endrb\brnine \let\ptinine=\peseven\fi
         \if\endrb\brnull \let\ptinull=\peseven\fi\fi\fi      
   \if\startrb\breight \eeightset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\peeight\fi
         \if\endrb\brtwo \let\ptatwo=\peeight\fi
         \if\endrb\brthree \let\ptathree=\peeight\fi
         \if\endrb\brfour \let\ptafour=\peeight\fi
         \if\endrb\brfive \let\ptafive=\peeight\fi
         \if\endrb\brsix \let\ptasix=\peeight\fi
         \if\endrb\brseven \let\ptaseven=\peeight\fi
         \if\endrb\breight \let\ptaeight=\peeight\fi
         \if\endrb\brnine \let\ptanine=\peeight\fi
         \if\endrb\brnull \let\ptanull=\peeight\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\peeight\fi
         \if\endrb\brtwo \let\ptbtwo=\peeight\fi
         \if\endrb\brthree \let\ptbthree=\peeight\fi
         \if\endrb\brfour \let\ptbfour=\peeight\fi
         \if\endrb\brfive \let\ptbfive=\peeight\fi
         \if\endrb\brsix \let\ptbsix=\peeight\fi
         \if\endrb\brseven \let\ptbseven=\peeight\fi
         \if\endrb\breight \let\ptbeight=\peeight\fi
         \if\endrb\brnine \let\ptbnine=\peeight\fi
         \if\endrb\brnull \let\ptbnull=\peeight\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\peeight\fi
         \if\endrb\brtwo \let\ptctwo=\peeight\fi
         \if\endrb\brthree \let\ptcthree=\peeight\fi
         \if\endrb\brfour \let\ptcfour=\peeight\fi
         \if\endrb\brfive \let\ptcfive=\peeight\fi
         \if\endrb\brsix \let\ptcsix=\peeight\fi
         \if\endrb\brseven \let\ptcseven=\peeight\fi
         \if\endrb\breight \let\ptceight=\peeight\fi
         \if\endrb\brnine \let\ptcnine=\peeight\fi
         \if\endrb\brnull \let\ptcnull=\peeight\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\peeight\fi
         \if\endrb\brtwo \let\ptdtwo=\peeight\fi
         \if\endrb\brthree \let\ptdthree=\peeight\fi
         \if\endrb\brfour \let\ptdfour=\peeight\fi
         \if\endrb\brfive \let\ptdfive=\peeight\fi
         \if\endrb\brsix \let\ptdsix=\peeight\fi
         \if\endrb\brseven \let\ptdseven=\peeight\fi
         \if\endrb\breight \let\ptdeight=\peeight\fi
         \if\endrb\brnine \let\ptdnine=\peeight\fi
         \if\endrb\brnull \let\ptdnull=\peeight\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\peeight\fi
         \if\endrb\brtwo \let\ptetwo=\peeight\fi
         \if\endrb\brthree \let\ptethree=\peeight\fi
         \if\endrb\brfour \let\ptefour=\peeight\fi
         \if\endrb\brfive \let\ptefive=\peeight\fi
         \if\endrb\brsix \let\ptesix=\peeight\fi
         \if\endrb\brseven \let\pteseven=\peeight\fi
         \if\endrb\breight \let\pteeight=\peeight\fi
         \if\endrb\brnine \let\ptenine=\peeight\fi
         \if\endrb\brnull \let\ptenull=\peeight\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\peeight\fi
         \if\endrb\brtwo \let\ptftwo=\peeight\fi
         \if\endrb\brthree \let\ptfthree=\peeight\fi
         \if\endrb\brfour \let\ptffour=\peeight\fi
         \if\endrb\brfive \let\ptffive=\peeight\fi
         \if\endrb\brsix \let\ptfsix=\peeight\fi
         \if\endrb\brseven \let\ptfseven=\peeight\fi
         \if\endrb\breight \let\ptfeight=\peeight\fi
         \if\endrb\brnine \let\ptfnine=\peeight\fi
         \if\endrb\brnull \let\ptfnull=\peeight\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\peeight\fi
         \if\endrb\brtwo \let\ptgtwo=\peeight\fi
         \if\endrb\brthree \let\ptgthree=\peeight\fi
         \if\endrb\brfour \let\ptgfour=\peeight\fi
         \if\endrb\brfive \let\ptgfive=\peeight\fi
         \if\endrb\brsix \let\ptgsix=\peeight\fi
         \if\endrb\brseven \let\ptgseven=\peeight\fi
         \if\endrb\breight \let\ptgeight=\peeight\fi
         \if\endrb\brnine \let\ptgnine=\peeight\fi
         \if\endrb\brnull \let\ptgnull=\peeight\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\peeight\fi
         \if\endrb\brtwo \let\pthtwo=\peeight\fi
         \if\endrb\brthree \let\pththree=\peeight\fi
         \if\endrb\brfour \let\pthfour=\peeight\fi
         \if\endrb\brfive \let\pthfive=\peeight\fi
         \if\endrb\brsix \let\pthsix=\peeight\fi
         \if\endrb\brseven \let\pthseven=\peeight\fi
         \if\endrb\breight \let\ptheight=\peeight\fi
         \if\endrb\brnine \let\pthnine=\peeight\fi
         \if\endrb\brnull \let\pthnull=\peeight\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\peeight\fi
         \if\endrb\brtwo \let\ptitwo=\peeight\fi
         \if\endrb\brthree \let\ptithree=\peeight\fi
         \if\endrb\brfour \let\ptifour=\peeight\fi
         \if\endrb\brfive \let\ptifive=\peeight\fi
         \if\endrb\brsix \let\ptisix=\peeight\fi
         \if\endrb\brseven \let\ptiseven=\peeight\fi
         \if\endrb\breight \let\ptieight=\peeight\fi
         \if\endrb\brnine \let\ptinine=\peeight\fi
         \if\endrb\brnull \let\ptinull=\peeight\fi\fi\fi      
   \if\startrb\brnine \enineset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\penine\fi
         \if\endrb\brtwo \let\ptatwo=\penine\fi
         \if\endrb\brthree \let\ptathree=\penine\fi
         \if\endrb\brfour \let\ptafour=\penine\fi
         \if\endrb\brfive \let\ptafive=\penine\fi
         \if\endrb\brsix \let\ptasix=\penine\fi
         \if\endrb\brseven \let\ptaseven=\penine\fi
         \if\endrb\breight \let\ptaeight=\penine\fi
         \if\endrb\brnine \let\ptanine=\penine\fi
         \if\endrb\brnull \let\ptanull=\penine\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\penine\fi
         \if\endrb\brtwo \let\ptbtwo=\penine\fi
         \if\endrb\brthree \let\ptbthree=\penine\fi
         \if\endrb\brfour \let\ptbfour=\penine\fi
         \if\endrb\brfive \let\ptbfive=\penine\fi
         \if\endrb\brsix \let\ptbsix=\penine\fi
         \if\endrb\brseven \let\ptbseven=\penine\fi
         \if\endrb\breight \let\ptbeight=\penine\fi
         \if\endrb\brnine \let\ptbnine=\penine\fi
         \if\endrb\brnull \let\ptbnull=\penine\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\penine\fi
         \if\endrb\brtwo \let\ptctwo=\penine\fi
         \if\endrb\brthree \let\ptcthree=\penine\fi
         \if\endrb\brfour \let\ptcfour=\penine\fi
         \if\endrb\brfive \let\ptcfive=\penine\fi
         \if\endrb\brsix \let\ptcsix=\penine\fi
         \if\endrb\brseven \let\ptcseven=\penine\fi
         \if\endrb\breight \let\ptceight=\penine\fi
         \if\endrb\brnine \let\ptcnine=\penine\fi
         \if\endrb\brnull \let\ptcnull=\penine\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\penine\fi
         \if\endrb\brtwo \let\ptdtwo=\penine\fi
         \if\endrb\brthree \let\ptdthree=\penine\fi
         \if\endrb\brfour \let\ptdfour=\penine\fi
         \if\endrb\brfive \let\ptdfive=\penine\fi
         \if\endrb\brsix \let\ptdsix=\penine\fi
         \if\endrb\brseven \let\ptdseven=\penine\fi
         \if\endrb\breight \let\ptdeight=\penine\fi
         \if\endrb\brnine \let\ptdnine=\penine\fi
         \if\endrb\brnull \let\ptdnull=\penine\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\penine\fi
         \if\endrb\brtwo \let\ptetwo=\penine\fi
         \if\endrb\brthree \let\ptethree=\penine\fi
         \if\endrb\brfour \let\ptefour=\penine\fi
         \if\endrb\brfive \let\ptefive=\penine\fi
         \if\endrb\brsix \let\ptesix=\penine\fi
         \if\endrb\brseven \let\pteseven=\penine\fi
         \if\endrb\breight \let\pteeight=\penine\fi
         \if\endrb\brnine \let\ptenine=\penine\fi
         \if\endrb\brnull \let\ptenull=\penine\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\penine\fi
         \if\endrb\brtwo \let\ptftwo=\penine\fi
         \if\endrb\brthree \let\ptfthree=\penine\fi
         \if\endrb\brfour \let\ptffour=\penine\fi
         \if\endrb\brfive \let\ptffive=\penine\fi
         \if\endrb\brsix \let\ptfsix=\penine\fi
         \if\endrb\brseven \let\ptfseven=\penine\fi
         \if\endrb\breight \let\ptfeight=\penine\fi
         \if\endrb\brnine \let\ptfnine=\penine\fi
         \if\endrb\brnull \let\ptfnull=\penine\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\penine\fi
         \if\endrb\brtwo \let\ptgtwo=\penine\fi
         \if\endrb\brthree \let\ptgthree=\penine\fi
         \if\endrb\brfour \let\ptgfour=\penine\fi
         \if\endrb\brfive \let\ptgfive=\penine\fi
         \if\endrb\brsix \let\ptgsix=\penine\fi
         \if\endrb\brseven \let\ptgseven=\penine\fi
         \if\endrb\breight \let\ptgeight=\penine\fi
         \if\endrb\brnine \let\ptgnine=\penine\fi
         \if\endrb\brnull \let\ptgnull=\penine\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\penine\fi
         \if\endrb\brtwo \let\pthtwo=\penine\fi
         \if\endrb\brthree \let\pththree=\penine\fi
         \if\endrb\brfour \let\pthfour=\penine\fi
         \if\endrb\brfive \let\pthfive=\penine\fi
         \if\endrb\brsix \let\pthsix=\penine\fi
         \if\endrb\brseven \let\pthseven=\penine\fi
         \if\endrb\breight \let\ptheight=\penine\fi
         \if\endrb\brnine \let\pthnine=\penine\fi
         \if\endrb\brnull \let\pthnull=\penine\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\penine\fi
         \if\endrb\brtwo \let\ptitwo=\penine\fi
         \if\endrb\brthree \let\ptithree=\penine\fi
         \if\endrb\brfour \let\ptifour=\penine\fi
         \if\endrb\brfive \let\ptifive=\penine\fi
         \if\endrb\brsix \let\ptisix=\penine\fi
         \if\endrb\brseven \let\ptiseven=\penine\fi
         \if\endrb\breight \let\ptieight=\penine\fi
         \if\endrb\brnine \let\ptinine=\penine\fi
         \if\endrb\brnull \let\ptinull=\penine\fi\fi\fi      
   \if\startrb\brnull \enullset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\penull\fi
         \if\endrb\brtwo \let\ptatwo=\penull\fi
         \if\endrb\brthree \let\ptathree=\penull\fi
         \if\endrb\brfour \let\ptafour=\penull\fi
         \if\endrb\brfive \let\ptafive=\penull\fi
         \if\endrb\brsix \let\ptasix=\penull\fi
         \if\endrb\brseven \let\ptaseven=\penull\fi
         \if\endrb\breight \let\ptaeight=\penull\fi
         \if\endrb\brnine \let\ptanine=\penull\fi
         \if\endrb\brnull \let\ptanull=\penull\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\penull\fi
         \if\endrb\brtwo \let\ptbtwo=\penull\fi
         \if\endrb\brthree \let\ptbthree=\penull\fi
         \if\endrb\brfour \let\ptbfour=\penull\fi
         \if\endrb\brfive \let\ptbfive=\penull\fi
         \if\endrb\brsix \let\ptbsix=\penull\fi
         \if\endrb\brseven \let\ptbseven=\penull\fi
         \if\endrb\breight \let\ptbeight=\penull\fi
         \if\endrb\brnine \let\ptbnine=\penull\fi
         \if\endrb\brnull \let\ptbnull=\penull\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\penull\fi
         \if\endrb\brtwo \let\ptctwo=\penull\fi
         \if\endrb\brthree \let\ptcthree=\penull\fi
         \if\endrb\brfour \let\ptcfour=\penull\fi
         \if\endrb\brfive \let\ptcfive=\penull\fi
         \if\endrb\brsix \let\ptcsix=\penull\fi
         \if\endrb\brseven \let\ptcseven=\penull\fi
         \if\endrb\breight \let\ptceight=\penull\fi
         \if\endrb\brnine \let\ptcnine=\penull\fi
         \if\endrb\brnull \let\ptcnull=\penull\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\penull\fi
         \if\endrb\brtwo \let\ptdtwo=\penull\fi
         \if\endrb\brthree \let\ptdthree=\penull\fi
         \if\endrb\brfour \let\ptdfour=\penull\fi
         \if\endrb\brfive \let\ptdfive=\penull\fi
         \if\endrb\brsix \let\ptdsix=\penull\fi
         \if\endrb\brseven \let\ptdseven=\penull\fi
         \if\endrb\breight \let\ptdeight=\penull\fi
         \if\endrb\brnine \let\ptdnine=\penull\fi
         \if\endrb\brnull \let\ptdnull=\penull\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\penull\fi
         \if\endrb\brtwo \let\ptetwo=\penull\fi
         \if\endrb\brthree \let\ptethree=\penull\fi
         \if\endrb\brfour \let\ptefour=\penull\fi
         \if\endrb\brfive \let\ptefive=\penull\fi
         \if\endrb\brsix \let\ptesix=\penull\fi
         \if\endrb\brseven \let\pteseven=\penull\fi
         \if\endrb\breight \let\pteeight=\penull\fi
         \if\endrb\brnine \let\ptenine=\penull\fi
         \if\endrb\brnull \let\ptenull=\penull\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\penull\fi
         \if\endrb\brtwo \let\ptftwo=\penull\fi
         \if\endrb\brthree \let\ptfthree=\penull\fi
         \if\endrb\brfour \let\ptffour=\penull\fi
         \if\endrb\brfive \let\ptffive=\penull\fi
         \if\endrb\brsix \let\ptfsix=\penull\fi
         \if\endrb\brseven \let\ptfseven=\penull\fi
         \if\endrb\breight \let\ptfeight=\penull\fi
         \if\endrb\brnine \let\ptfnine=\penull\fi
         \if\endrb\brnull \let\ptfnull=\penull\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\penull\fi
         \if\endrb\brtwo \let\ptgtwo=\penull\fi
         \if\endrb\brthree \let\ptgthree=\penull\fi
         \if\endrb\brfour \let\ptgfour=\penull\fi
         \if\endrb\brfive \let\ptgfive=\penull\fi
         \if\endrb\brsix \let\ptgsix=\penull\fi
         \if\endrb\brseven \let\ptgseven=\penull\fi
         \if\endrb\breight \let\ptgeight=\penull\fi
         \if\endrb\brnine \let\ptgnine=\penull\fi
         \if\endrb\brnull \let\ptgnull=\penull\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\penull\fi
         \if\endrb\brtwo \let\pthtwo=\penull\fi
         \if\endrb\brthree \let\pththree=\penull\fi
         \if\endrb\brfour \let\pthfour=\penull\fi
         \if\endrb\brfive \let\pthfive=\penull\fi
         \if\endrb\brsix \let\pthsix=\penull\fi
         \if\endrb\brseven \let\pthseven=\penull\fi
         \if\endrb\breight \let\ptheight=\penull\fi
         \if\endrb\brnine \let\pthnine=\penull\fi
         \if\endrb\brnull \let\pthnull=\penull\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\penull\fi
         \if\endrb\brtwo \let\ptitwo=\penull\fi
         \if\endrb\brthree \let\ptithree=\penull\fi
         \if\endrb\brfour \let\ptifour=\penull\fi
         \if\endrb\brfive \let\ptifive=\penull\fi
         \if\endrb\brsix \let\ptisix=\penull\fi
         \if\endrb\brseven \let\ptiseven=\penull\fi
         \if\endrb\breight \let\ptieight=\penull\fi
         \if\endrb\brnine \let\ptinine=\penull\fi
         \if\endrb\brnull \let\ptinull=\penull\fi\fi\fi\fi  
\if\startlb\fli
   \if\startrb\brone \foneset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pfone\fi
         \if\endrb\brtwo \let\ptatwo=\pfone\fi
         \if\endrb\brthree \let\ptathree=\pfone\fi
         \if\endrb\brfour \let\ptafour=\pfone\fi
         \if\endrb\brfive \let\ptafive=\pfone\fi
         \if\endrb\brsix \let\ptasix=\pfone\fi
         \if\endrb\brseven \let\ptaseven=\pfone\fi
         \if\endrb\breight \let\ptaeight=\pfone\fi
         \if\endrb\brnine \let\ptanine=\pfone\fi
         \if\endrb\brnull \let\ptanull=\pfone\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pfone\fi
         \if\endrb\brtwo \let\ptbtwo=\pfone\fi
         \if\endrb\brthree \let\ptbthree=\pfone\fi
         \if\endrb\brfour \let\ptbfour=\pfone\fi
         \if\endrb\brfive \let\ptbfive=\pfone\fi
         \if\endrb\brsix \let\ptbsix=\pfone\fi
         \if\endrb\brseven \let\ptbseven=\pfone\fi
         \if\endrb\breight \let\ptbeight=\pfone\fi
         \if\endrb\brnine \let\ptbnine=\pfone\fi
         \if\endrb\brnull \let\ptbnull=\pfone\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pfone\fi
         \if\endrb\brtwo \let\ptctwo=\pfone\fi
         \if\endrb\brthree \let\ptcthree=\pfone\fi
         \if\endrb\brfour \let\ptcfour=\pfone\fi
         \if\endrb\brfive \let\ptcfive=\pfone\fi
         \if\endrb\brsix \let\ptcsix=\pfone\fi
         \if\endrb\brseven \let\ptcseven=\pfone\fi
         \if\endrb\breight \let\ptceight=\pfone\fi
         \if\endrb\brnine \let\ptcnine=\pfone\fi
         \if\endrb\brnull \let\ptcnull=\pfone\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pfone\fi
         \if\endrb\brtwo \let\ptdtwo=\pfone\fi
         \if\endrb\brthree \let\ptdthree=\pfone\fi
         \if\endrb\brfour \let\ptdfour=\pfone\fi
         \if\endrb\brfive \let\ptdfive=\pfone\fi
         \if\endrb\brsix \let\ptdsix=\pfone\fi
         \if\endrb\brseven \let\ptdseven=\pfone\fi
         \if\endrb\breight \let\ptdeight=\pfone\fi
         \if\endrb\brnine \let\ptdnine=\pfone\fi
         \if\endrb\brnull \let\ptdnull=\pfone\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pfone\fi
         \if\endrb\brtwo \let\ptetwo=\pfone\fi
         \if\endrb\brthree \let\ptethree=\pfone\fi
         \if\endrb\brfour \let\ptefour=\pfone\fi
         \if\endrb\brfive \let\ptefive=\pfone\fi
         \if\endrb\brsix \let\ptesix=\pfone\fi
         \if\endrb\brseven \let\pteseven=\pfone\fi
         \if\endrb\breight \let\pteeight=\pfone\fi
         \if\endrb\brnine \let\ptenine=\pfone\fi
         \if\endrb\brnull \let\ptenull=\pfone\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pfone\fi
         \if\endrb\brtwo \let\ptftwo=\pfone\fi
         \if\endrb\brthree \let\ptfthree=\pfone\fi
         \if\endrb\brfour \let\ptffour=\pfone\fi
         \if\endrb\brfive \let\ptffive=\pfone\fi
         \if\endrb\brsix \let\ptfsix=\pfone\fi
         \if\endrb\brseven \let\ptfseven=\pfone\fi
         \if\endrb\breight \let\ptfeight=\pfone\fi
         \if\endrb\brnine \let\ptfnine=\pfone\fi
         \if\endrb\brnull \let\ptfnull=\pfone\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pfone\fi
         \if\endrb\brtwo \let\ptgtwo=\pfone\fi
         \if\endrb\brthree \let\ptgthree=\pfone\fi
         \if\endrb\brfour \let\ptgfour=\pfone\fi
         \if\endrb\brfive \let\ptgfive=\pfone\fi
         \if\endrb\brsix \let\ptgsix=\pfone\fi
         \if\endrb\brseven \let\ptgseven=\pfone\fi
         \if\endrb\breight \let\ptgeight=\pfone\fi
         \if\endrb\brnine \let\ptgnine=\pfone\fi
         \if\endrb\brnull \let\ptgnull=\pfone\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pfone\fi
         \if\endrb\brtwo \let\pthtwo=\pfone\fi
         \if\endrb\brthree \let\pththree=\pfone\fi
         \if\endrb\brfour \let\pthfour=\pfone\fi
         \if\endrb\brfive \let\pthfive=\pfone\fi
         \if\endrb\brsix \let\pthsix=\pfone\fi
         \if\endrb\brseven \let\pthseven=\pfone\fi
         \if\endrb\breight \let\ptheight=\pfone\fi
         \if\endrb\brnine \let\pthnine=\pfone\fi
         \if\endrb\brnull \let\pthnull=\pfone\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pfone\fi
         \if\endrb\brtwo \let\ptitwo=\pfone\fi
         \if\endrb\brthree \let\ptithree=\pfone\fi
         \if\endrb\brfour \let\ptifour=\pfone\fi
         \if\endrb\brfive \let\ptifive=\pfone\fi
         \if\endrb\brsix \let\ptisix=\pfone\fi
         \if\endrb\brseven \let\ptiseven=\pfone\fi
         \if\endrb\breight \let\ptieight=\pfone\fi
         \if\endrb\brnine \let\ptinine=\pfone\fi
         \if\endrb\brnull \let\ptinull=\pfone\fi\fi\fi      
   \if\startrb\brtwo \ftwoset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pftwo\fi
         \if\endrb\brtwo \let\ptatwo=\pftwo\fi
         \if\endrb\brthree \let\ptathree=\pftwo\fi
         \if\endrb\brfour \let\ptafour=\pftwo\fi
         \if\endrb\brfive \let\ptafive=\pftwo\fi
         \if\endrb\brsix \let\ptasix=\pftwo\fi
         \if\endrb\brseven \let\ptaseven=\pftwo\fi
         \if\endrb\breight \let\ptaeight=\pftwo\fi
         \if\endrb\brnine \let\ptanine=\pftwo\fi
         \if\endrb\brnull \let\ptanull=\pftwo\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pftwo\fi
         \if\endrb\brtwo \let\ptbtwo=\pftwo\fi
         \if\endrb\brthree \let\ptbthree=\pftwo\fi
         \if\endrb\brfour \let\ptbfour=\pftwo\fi
         \if\endrb\brfive \let\ptbfive=\pftwo\fi
         \if\endrb\brsix \let\ptbsix=\pftwo\fi
         \if\endrb\brseven \let\ptbseven=\pftwo\fi
         \if\endrb\breight \let\ptbeight=\pftwo\fi
         \if\endrb\brnine \let\ptbnine=\pftwo\fi
         \if\endrb\brnull \let\ptbnull=\pftwo\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pftwo\fi
         \if\endrb\brtwo \let\ptctwo=\pftwo\fi
         \if\endrb\brthree \let\ptcthree=\pftwo\fi
         \if\endrb\brfour \let\ptcfour=\pftwo\fi
         \if\endrb\brfive \let\ptcfive=\pftwo\fi
         \if\endrb\brsix \let\ptcsix=\pftwo\fi
         \if\endrb\brseven \let\ptcseven=\pftwo\fi
         \if\endrb\breight \let\ptceight=\pftwo\fi
         \if\endrb\brnine \let\ptcnine=\pftwo\fi
         \if\endrb\brnull \let\ptcnull=\pftwo\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pftwo\fi
         \if\endrb\brtwo \let\ptdtwo=\pftwo\fi
         \if\endrb\brthree \let\ptdthree=\pftwo\fi
         \if\endrb\brfour \let\ptdfour=\pftwo\fi
         \if\endrb\brfive \let\ptdfive=\pftwo\fi
         \if\endrb\brsix \let\ptdsix=\pftwo\fi
         \if\endrb\brseven \let\ptdseven=\pftwo\fi
         \if\endrb\breight \let\ptdeight=\pftwo\fi
         \if\endrb\brnine \let\ptdnine=\pftwo\fi
         \if\endrb\brnull \let\ptdnull=\pftwo\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pftwo\fi
         \if\endrb\brtwo \let\ptetwo=\pftwo\fi
         \if\endrb\brthree \let\ptethree=\pftwo\fi
         \if\endrb\brfour \let\ptefour=\pftwo\fi
         \if\endrb\brfive \let\ptefive=\pftwo\fi
         \if\endrb\brsix \let\ptesix=\pftwo\fi
         \if\endrb\brseven \let\pteseven=\pftwo\fi
         \if\endrb\breight \let\pteeight=\pftwo\fi
         \if\endrb\brnine \let\ptenine=\pftwo\fi
         \if\endrb\brnull \let\ptenull=\pftwo\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pftwo\fi
         \if\endrb\brtwo \let\ptftwo=\pftwo\fi
         \if\endrb\brthree \let\ptfthree=\pftwo\fi
         \if\endrb\brfour \let\ptffour=\pftwo\fi
         \if\endrb\brfive \let\ptffive=\pftwo\fi
         \if\endrb\brsix \let\ptfsix=\pftwo\fi
         \if\endrb\brseven \let\ptfseven=\pftwo\fi
         \if\endrb\breight \let\ptfeight=\pftwo\fi
         \if\endrb\brnine \let\ptfnine=\pftwo\fi
         \if\endrb\brnull \let\ptfnull=\pftwo\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pftwo\fi
         \if\endrb\brtwo \let\ptgtwo=\pftwo\fi
         \if\endrb\brthree \let\ptgthree=\pftwo\fi
         \if\endrb\brfour \let\ptgfour=\pftwo\fi
         \if\endrb\brfive \let\ptgfive=\pftwo\fi
         \if\endrb\brsix \let\ptgsix=\pftwo\fi
         \if\endrb\brseven \let\ptgseven=\pftwo\fi
         \if\endrb\breight \let\ptgeight=\pftwo\fi
         \if\endrb\brnine \let\ptgnine=\pftwo\fi
         \if\endrb\brnull \let\ptgnull=\pftwo\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pftwo\fi
         \if\endrb\brtwo \let\pthtwo=\pftwo\fi
         \if\endrb\brthree \let\pththree=\pftwo\fi
         \if\endrb\brfour \let\pthfour=\pftwo\fi
         \if\endrb\brfive \let\pthfive=\pftwo\fi
         \if\endrb\brsix \let\pthsix=\pftwo\fi
         \if\endrb\brseven \let\pthseven=\pftwo\fi
         \if\endrb\breight \let\ptheight=\pftwo\fi
         \if\endrb\brnine \let\pthnine=\pftwo\fi
         \if\endrb\brnull \let\pthnull=\pftwo\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pftwo\fi
         \if\endrb\brtwo \let\ptitwo=\pftwo\fi
         \if\endrb\brthree \let\ptithree=\pftwo\fi
         \if\endrb\brfour \let\ptifour=\pftwo\fi
         \if\endrb\brfive \let\ptifive=\pftwo\fi
         \if\endrb\brsix \let\ptisix=\pftwo\fi
         \if\endrb\brseven \let\ptiseven=\pftwo\fi
         \if\endrb\breight \let\ptieight=\pftwo\fi
         \if\endrb\brnine \let\ptinine=\pftwo\fi
         \if\endrb\brnull \let\ptinull=\pftwo\fi\fi\fi
   \if\startrb\brthree \fthreeset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pfthree\fi
         \if\endrb\brtwo \let\ptatwo=\pfthree\fi
         \if\endrb\brthree \let\ptathree=\pfthree\fi
         \if\endrb\brfour \let\ptafour=\pfthree\fi
         \if\endrb\brfive \let\ptafive=\pfthree\fi
         \if\endrb\brsix \let\ptasix=\pfthree\fi
         \if\endrb\brseven \let\ptaseven=\pfthree\fi
         \if\endrb\breight \let\ptaeight=\pfthree\fi
         \if\endrb\brnine \let\ptanine=\pfthree\fi
         \if\endrb\brnull \let\ptanull=\pfthree\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pfthree\fi
         \if\endrb\brtwo \let\ptbtwo=\pfthree\fi
         \if\endrb\brthree \let\ptbthree=\pfthree\fi
         \if\endrb\brfour \let\ptbfour=\pfthree\fi
         \if\endrb\brfive \let\ptbfive=\pfthree\fi
         \if\endrb\brsix \let\ptbsix=\pfthree\fi
         \if\endrb\brseven \let\ptbseven=\pfthree\fi
         \if\endrb\breight \let\ptbeight=\pfthree\fi
         \if\endrb\brnine \let\ptbnine=\pfthree\fi
         \if\endrb\brnull \let\ptbnull=\pfthree\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pfthree\fi
         \if\endrb\brtwo \let\ptctwo=\pfthree\fi
         \if\endrb\brthree \let\ptcthree=\pfthree\fi
         \if\endrb\brfour \let\ptcfour=\pfthree\fi
         \if\endrb\brfive \let\ptcfive=\pfthree\fi
         \if\endrb\brsix \let\ptcsix=\pfthree\fi
         \if\endrb\brseven \let\ptcseven=\pfthree\fi
         \if\endrb\breight \let\ptceight=\pfthree\fi
         \if\endrb\brnine \let\ptcnine=\pfthree\fi
         \if\endrb\brnull \let\ptcnull=\pfthree\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pfthree\fi
         \if\endrb\brtwo \let\ptdtwo=\pfthree\fi
         \if\endrb\brthree \let\ptdthree=\pfthree\fi
         \if\endrb\brfour \let\ptdfour=\pfthree\fi
         \if\endrb\brfive \let\ptdfive=\pfthree\fi
         \if\endrb\brsix \let\ptdsix=\pfthree\fi
         \if\endrb\brseven \let\ptdseven=\pfthree\fi
         \if\endrb\breight \let\ptdeight=\pfthree\fi
         \if\endrb\brnine \let\ptdnine=\pfthree\fi
         \if\endrb\brnull \let\ptdnull=\pfthree\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pfthree\fi
         \if\endrb\brtwo \let\ptetwo=\pfthree\fi
         \if\endrb\brthree \let\ptethree=\pfthree\fi
         \if\endrb\brfour \let\ptefour=\pfthree\fi
         \if\endrb\brfive \let\ptefive=\pfthree\fi
         \if\endrb\brsix \let\ptesix=\pfthree\fi
         \if\endrb\brseven \let\pteseven=\pfthree\fi
         \if\endrb\breight \let\pteeight=\pfthree\fi
         \if\endrb\brnine \let\ptenine=\pfthree\fi
         \if\endrb\brnull \let\ptenull=\pfthree\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pfthree\fi
         \if\endrb\brtwo \let\ptftwo=\pfthree\fi
         \if\endrb\brthree \let\ptfthree=\pfthree\fi
         \if\endrb\brfour \let\ptffour=\pfthree\fi
         \if\endrb\brfive \let\ptffive=\pfthree\fi
         \if\endrb\brsix \let\ptfsix=\pfthree\fi
         \if\endrb\brseven \let\ptfseven=\pfthree\fi
         \if\endrb\breight \let\ptfeight=\pfthree\fi
         \if\endrb\brnine \let\ptfnine=\pfthree\fi
         \if\endrb\brnull \let\ptfnull=\pfthree\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pfthree\fi
         \if\endrb\brtwo \let\ptgtwo=\pfthree\fi
         \if\endrb\brthree \let\ptgthree=\pfthree\fi
         \if\endrb\brfour \let\ptgfour=\pfthree\fi
         \if\endrb\brfive \let\ptgfive=\pfthree\fi
         \if\endrb\brsix \let\ptgsix=\pfthree\fi
         \if\endrb\brseven \let\ptgseven=\pfthree\fi
         \if\endrb\breight \let\ptgeight=\pfthree\fi
         \if\endrb\brnine \let\ptgnine=\pfthree\fi
         \if\endrb\brnull \let\ptgnull=\pfthree\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pfthree\fi
         \if\endrb\brtwo \let\pthtwo=\pfthree\fi
         \if\endrb\brthree \let\pththree=\pfthree\fi
         \if\endrb\brfour \let\pthfour=\pfthree\fi
         \if\endrb\brfive \let\pthfive=\pfthree\fi
         \if\endrb\brsix \let\pthsix=\pfthree\fi
         \if\endrb\brseven \let\pthseven=\pfthree\fi
         \if\endrb\breight \let\ptheight=\pfthree\fi
         \if\endrb\brnine \let\pthnine=\pfthree\fi
         \if\endrb\brnull \let\pthnull=\pfthree\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pfthree\fi
         \if\endrb\brtwo \let\ptitwo=\pfthree\fi
         \if\endrb\brthree \let\ptithree=\pfthree\fi
         \if\endrb\brfour \let\ptifour=\pfthree\fi
         \if\endrb\brfive \let\ptifive=\pfthree\fi
         \if\endrb\brsix \let\ptisix=\pfthree\fi
         \if\endrb\brseven \let\ptiseven=\pfthree\fi
         \if\endrb\breight \let\ptieight=\pfthree\fi
         \if\endrb\brnine \let\ptinine=\pfthree\fi
         \if\endrb\brnull \let\ptinull=\pfthree\fi\fi\fi      
   \if\startrb\brfour \ffourset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pffour\fi
         \if\endrb\brtwo \let\ptatwo=\pffour\fi
         \if\endrb\brthree \let\ptathree=\pffour\fi
         \if\endrb\brfour \let\ptafour=\pffour\fi
         \if\endrb\brfive \let\ptafive=\pffour\fi
         \if\endrb\brsix \let\ptasix=\pffour\fi
         \if\endrb\brseven \let\ptaseven=\pffour\fi
         \if\endrb\breight \let\ptaeight=\pffour\fi
         \if\endrb\brnine \let\ptanine=\pffour\fi
         \if\endrb\brnull \let\ptanull=\pffour\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pffour\fi
         \if\endrb\brtwo \let\ptbtwo=\pffour\fi
         \if\endrb\brthree \let\ptbthree=\pffour\fi
         \if\endrb\brfour \let\ptbfour=\pffour\fi
         \if\endrb\brfive \let\ptbfive=\pffour\fi
         \if\endrb\brsix \let\ptbsix=\pffour\fi
         \if\endrb\brseven \let\ptbseven=\pffour\fi
         \if\endrb\breight \let\ptbeight=\pffour\fi
         \if\endrb\brnine \let\ptbnine=\pffour\fi
         \if\endrb\brnull \let\ptbnull=\pffour\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pffour\fi
         \if\endrb\brtwo \let\ptctwo=\pffour\fi
         \if\endrb\brthree \let\ptcthree=\pffour\fi
         \if\endrb\brfour \let\ptcfour=\pffour\fi
         \if\endrb\brfive \let\ptcfive=\pffour\fi
         \if\endrb\brsix \let\ptcsix=\pffour\fi
         \if\endrb\brseven \let\ptcseven=\pffour\fi
         \if\endrb\breight \let\ptceight=\pffour\fi
         \if\endrb\brnine \let\ptcnine=\pffour\fi
         \if\endrb\brnull \let\ptcnull=\pffour\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pffour\fi
         \if\endrb\brtwo \let\ptdtwo=\pffour\fi
         \if\endrb\brthree \let\ptdthree=\pffour\fi
         \if\endrb\brfour \let\ptdfour=\pffour\fi
         \if\endrb\brfive \let\ptdfive=\pffour\fi
         \if\endrb\brsix \let\ptdsix=\pffour\fi
         \if\endrb\brseven \let\ptdseven=\pffour\fi
         \if\endrb\breight \let\ptdeight=\pffour\fi
         \if\endrb\brnine \let\ptdnine=\pffour\fi
         \if\endrb\brnull \let\ptdnull=\pffour\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pffour\fi
         \if\endrb\brtwo \let\ptetwo=\pffour\fi
         \if\endrb\brthree \let\ptethree=\pffour\fi
         \if\endrb\brfour \let\ptefour=\pffour\fi
         \if\endrb\brfive \let\ptefive=\pffour\fi
         \if\endrb\brsix \let\ptesix=\pffour\fi
         \if\endrb\brseven \let\pteseven=\pffour\fi
         \if\endrb\breight \let\pteeight=\pffour\fi
         \if\endrb\brnine \let\ptenine=\pffour\fi
         \if\endrb\brnull \let\ptenull=\pffour\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pffour\fi
         \if\endrb\brtwo \let\ptftwo=\pffour\fi
         \if\endrb\brthree \let\ptfthree=\pffour\fi
         \if\endrb\brfour \let\ptffour=\pffour\fi
         \if\endrb\brfive \let\ptffive=\pffour\fi
         \if\endrb\brsix \let\ptfsix=\pffour\fi
         \if\endrb\brseven \let\ptfseven=\pffour\fi
         \if\endrb\breight \let\ptfeight=\pffour\fi
         \if\endrb\brnine \let\ptfnine=\pffour\fi
         \if\endrb\brnull \let\ptfnull=\pffour\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pffour\fi
         \if\endrb\brtwo \let\ptgtwo=\pffour\fi
         \if\endrb\brthree \let\ptgthree=\pffour\fi
         \if\endrb\brfour \let\ptgfour=\pffour\fi
         \if\endrb\brfive \let\ptgfive=\pffour\fi
         \if\endrb\brsix \let\ptgsix=\pffour\fi
         \if\endrb\brseven \let\ptgseven=\pffour\fi
         \if\endrb\breight \let\ptgeight=\pffour\fi
         \if\endrb\brnine \let\ptgnine=\pffour\fi
         \if\endrb\brnull \let\ptgnull=\pffour\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pffour\fi
         \if\endrb\brtwo \let\pthtwo=\pffour\fi
         \if\endrb\brthree \let\pththree=\pffour\fi
         \if\endrb\brfour \let\pthfour=\pffour\fi
         \if\endrb\brfive \let\pthfive=\pffour\fi
         \if\endrb\brsix \let\pthsix=\pffour\fi
         \if\endrb\brseven \let\pthseven=\pffour\fi
         \if\endrb\breight \let\ptheight=\pffour\fi
         \if\endrb\brnine \let\pthnine=\pffour\fi
         \if\endrb\brnull \let\pthnull=\pffour\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pffour\fi
         \if\endrb\brtwo \let\ptitwo=\pffour\fi
         \if\endrb\brthree \let\ptithree=\pffour\fi
         \if\endrb\brfour \let\ptifour=\pffour\fi
         \if\endrb\brfive \let\ptifive=\pffour\fi
         \if\endrb\brsix \let\ptisix=\pffour\fi
         \if\endrb\brseven \let\ptiseven=\pffour\fi
         \if\endrb\breight \let\ptieight=\pffour\fi
         \if\endrb\brnine \let\ptinine=\pffour\fi
         \if\endrb\brnull \let\ptinull=\pffour\fi\fi\fi      
   \if\startrb\brfive \ffiveset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pffive\fi
         \if\endrb\brtwo \let\ptatwo=\pffive\fi
         \if\endrb\brthree \let\ptathree=\pffive\fi
         \if\endrb\brfour \let\ptafour=\pffive\fi
         \if\endrb\brfive \let\ptafive=\pffive\fi
         \if\endrb\brsix \let\ptasix=\pffive\fi
         \if\endrb\brseven \let\ptaseven=\pffive\fi
         \if\endrb\breight \let\ptaeight=\pffive\fi
         \if\endrb\brnine \let\ptanine=\pffive\fi
         \if\endrb\brnull \let\ptanull=\pffive\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pffive\fi
         \if\endrb\brtwo \let\ptbtwo=\pffive\fi
         \if\endrb\brthree \let\ptbthree=\pffive\fi
         \if\endrb\brfour \let\ptbfour=\pffive\fi
         \if\endrb\brfive \let\ptbfive=\pffive\fi
         \if\endrb\brsix \let\ptbsix=\pffive\fi
         \if\endrb\brseven \let\ptbseven=\pffive\fi
         \if\endrb\breight \let\ptbeight=\pffive\fi
         \if\endrb\brnine \let\ptbnine=\pffive\fi
         \if\endrb\brnull \let\ptbnull=\pffive\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pffive\fi
         \if\endrb\brtwo \let\ptctwo=\pffive\fi
         \if\endrb\brthree \let\ptcthree=\pffive\fi
         \if\endrb\brfour \let\ptcfour=\pffive\fi
         \if\endrb\brfive \let\ptcfive=\pffive\fi
         \if\endrb\brsix \let\ptcsix=\pffive\fi
         \if\endrb\brseven \let\ptcseven=\pffive\fi
         \if\endrb\breight \let\ptceight=\pffive\fi
         \if\endrb\brnine \let\ptcnine=\pffive\fi
         \if\endrb\brnull \let\ptcnull=\pffive\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pffive\fi
         \if\endrb\brtwo \let\ptdtwo=\pffive\fi
         \if\endrb\brthree \let\ptdthree=\pffive\fi
         \if\endrb\brfour \let\ptdfour=\pffive\fi
         \if\endrb\brfive \let\ptdfive=\pffive\fi
         \if\endrb\brsix \let\ptdsix=\pffive\fi
         \if\endrb\brseven \let\ptdseven=\pffive\fi
         \if\endrb\breight \let\ptdeight=\pffive\fi
         \if\endrb\brnine \let\ptdnine=\pffive\fi
         \if\endrb\brnull \let\ptdnull=\pffive\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pffive\fi
         \if\endrb\brtwo \let\ptetwo=\pffive\fi
         \if\endrb\brthree \let\ptethree=\pffive\fi
         \if\endrb\brfour \let\ptefour=\pffive\fi
         \if\endrb\brfive \let\ptefive=\pffive\fi
         \if\endrb\brsix \let\ptesix=\pffive\fi
         \if\endrb\brseven \let\pteseven=\pffive\fi
         \if\endrb\breight \let\pteeight=\pffive\fi
         \if\endrb\brnine \let\ptenine=\pffive\fi
         \if\endrb\brnull \let\ptenull=\pffive\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pffive\fi
         \if\endrb\brtwo \let\ptftwo=\pffive\fi
         \if\endrb\brthree \let\ptfthree=\pffive\fi
         \if\endrb\brfour \let\ptffour=\pffive\fi
         \if\endrb\brfive \let\ptffive=\pffive\fi
         \if\endrb\brsix \let\ptfsix=\pffive\fi
         \if\endrb\brseven \let\ptfseven=\pffive\fi
         \if\endrb\breight \let\ptfeight=\pffive\fi
         \if\endrb\brnine \let\ptfnine=\pffive\fi
         \if\endrb\brnull \let\ptfnull=\pffive\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pffive\fi
         \if\endrb\brtwo \let\ptgtwo=\pffive\fi
         \if\endrb\brthree \let\ptgthree=\pffive\fi
         \if\endrb\brfour \let\ptgfour=\pffive\fi
         \if\endrb\brfive \let\ptgfive=\pffive\fi
         \if\endrb\brsix \let\ptgsix=\pffive\fi
         \if\endrb\brseven \let\ptgseven=\pffive\fi
         \if\endrb\breight \let\ptgeight=\pffive\fi
         \if\endrb\brnine \let\ptgnine=\pffive\fi
         \if\endrb\brnull \let\ptgnull=\pffive\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pffive\fi
         \if\endrb\brtwo \let\pthtwo=\pffive\fi
         \if\endrb\brthree \let\pththree=\pffive\fi
         \if\endrb\brfour \let\pthfour=\pffive\fi
         \if\endrb\brfive \let\pthfive=\pffive\fi
         \if\endrb\brsix \let\pthsix=\pffive\fi
         \if\endrb\brseven \let\pthseven=\pffive\fi
         \if\endrb\breight \let\ptheight=\pffive\fi
         \if\endrb\brnine \let\pthnine=\pffive\fi
         \if\endrb\brnull \let\pthnull=\pffive\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pffive\fi
         \if\endrb\brtwo \let\ptitwo=\pffive\fi
         \if\endrb\brthree \let\ptithree=\pffive\fi
         \if\endrb\brfour \let\ptifour=\pffive\fi
         \if\endrb\brfive \let\ptifive=\pffive\fi
         \if\endrb\brsix \let\ptisix=\pffive\fi
         \if\endrb\brseven \let\ptiseven=\pffive\fi
         \if\endrb\breight \let\ptieight=\pffive\fi
         \if\endrb\brnine \let\ptinine=\pffive\fi
         \if\endrb\brnull \let\ptinull=\pffive\fi\fi\fi   
   \if\startrb\brsix \fsixset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pfsix\fi
         \if\endrb\brtwo \let\ptatwo=\pfsix\fi
         \if\endrb\brthree \let\ptathree=\pfsix\fi
         \if\endrb\brfour \let\ptafour=\pfsix\fi
         \if\endrb\brfive \let\ptafive=\pfsix\fi
         \if\endrb\brsix \let\ptasix=\pfsix\fi
         \if\endrb\brseven \let\ptaseven=\pfsix\fi
         \if\endrb\breight \let\ptaeight=\pfsix\fi
         \if\endrb\brnine \let\ptanine=\pfsix\fi
         \if\endrb\brnull \let\ptanull=\pfsix\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pfsix\fi
         \if\endrb\brtwo \let\ptbtwo=\pfsix\fi
         \if\endrb\brthree \let\ptbthree=\pfsix\fi
         \if\endrb\brfour \let\ptbfour=\pfsix\fi
         \if\endrb\brfive \let\ptbfive=\pfsix\fi
         \if\endrb\brsix \let\ptbsix=\pfsix\fi
         \if\endrb\brseven \let\ptbseven=\pfsix\fi
         \if\endrb\breight \let\ptbeight=\pfsix\fi
         \if\endrb\brnine \let\ptbnine=\pfsix\fi
         \if\endrb\brnull \let\ptbnull=\pfsix\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pfsix\fi
         \if\endrb\brtwo \let\ptctwo=\pfsix\fi
         \if\endrb\brthree \let\ptcthree=\pfsix\fi
         \if\endrb\brfour \let\ptcfour=\pfsix\fi
         \if\endrb\brfive \let\ptcfive=\pfsix\fi
         \if\endrb\brsix \let\ptcsix=\pfsix\fi
         \if\endrb\brseven \let\ptcseven=\pfsix\fi
         \if\endrb\breight \let\ptceight=\pfsix\fi
         \if\endrb\brnine \let\ptcnine=\pfsix\fi
         \if\endrb\brnull \let\ptcnull=\pfsix\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pfsix\fi
         \if\endrb\brtwo \let\ptdtwo=\pfsix\fi
         \if\endrb\brthree \let\ptdthree=\pfsix\fi
         \if\endrb\brfour \let\ptdfour=\pfsix\fi
         \if\endrb\brfive \let\ptdfive=\pfsix\fi
         \if\endrb\brsix \let\ptdsix=\pfsix\fi
         \if\endrb\brseven \let\ptdseven=\pfsix\fi
         \if\endrb\breight \let\ptdeight=\pfsix\fi
         \if\endrb\brnine \let\ptdnine=\pfsix\fi
         \if\endrb\brnull \let\ptdnull=\pfsix\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pfsix\fi
         \if\endrb\brtwo \let\ptetwo=\pfsix\fi
         \if\endrb\brthree \let\ptethree=\pfsix\fi
         \if\endrb\brfour \let\ptefour=\pfsix\fi
         \if\endrb\brfive \let\ptefive=\pfsix\fi
         \if\endrb\brsix \let\ptesix=\pfsix\fi
         \if\endrb\brseven \let\pteseven=\pfsix\fi
         \if\endrb\breight \let\pteeight=\pfsix\fi
         \if\endrb\brnine \let\ptenine=\pfsix\fi
         \if\endrb\brnull \let\ptenull=\pfsix\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pfsix\fi
         \if\endrb\brtwo \let\ptftwo=\pfsix\fi
         \if\endrb\brthree \let\ptfthree=\pfsix\fi
         \if\endrb\brfour \let\ptffour=\pfsix\fi
         \if\endrb\brfive \let\ptffive=\pfsix\fi
         \if\endrb\brsix \let\ptfsix=\pfsix\fi
         \if\endrb\brseven \let\ptfseven=\pfsix\fi
         \if\endrb\breight \let\ptfeight=\pfsix\fi
         \if\endrb\brnine \let\ptfnine=\pfsix\fi
         \if\endrb\brnull \let\ptfnull=\pfsix\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pfsix\fi
         \if\endrb\brtwo \let\ptgtwo=\pfsix\fi
         \if\endrb\brthree \let\ptgthree=\pfsix\fi
         \if\endrb\brfour \let\ptgfour=\pfsix\fi
         \if\endrb\brfive \let\ptgfive=\pfsix\fi
         \if\endrb\brsix \let\ptgsix=\pfsix\fi
         \if\endrb\brseven \let\ptgseven=\pfsix\fi
         \if\endrb\breight \let\ptgeight=\pfsix\fi
         \if\endrb\brnine \let\ptgnine=\pfsix\fi
         \if\endrb\brnull \let\ptgnull=\pfsix\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pfsix\fi
         \if\endrb\brtwo \let\pthtwo=\pfsix\fi
         \if\endrb\brthree \let\pththree=\pfsix\fi
         \if\endrb\brfour \let\pthfour=\pfsix\fi
         \if\endrb\brfive \let\pthfive=\pfsix\fi
         \if\endrb\brsix \let\pthsix=\pfsix\fi
         \if\endrb\brseven \let\pthseven=\pfsix\fi
         \if\endrb\breight \let\ptheight=\pfsix\fi
         \if\endrb\brnine \let\pthnine=\pfsix\fi
         \if\endrb\brnull \let\pthnull=\pfsix\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pfsix\fi
         \if\endrb\brtwo \let\ptitwo=\pfsix\fi
         \if\endrb\brthree \let\ptithree=\pfsix\fi
         \if\endrb\brfour \let\ptifour=\pfsix\fi
         \if\endrb\brfive \let\ptifive=\pfsix\fi
         \if\endrb\brsix \let\ptisix=\pfsix\fi
         \if\endrb\brseven \let\ptiseven=\pfsix\fi
         \if\endrb\breight \let\ptieight=\pfsix\fi
         \if\endrb\brnine \let\ptinine=\pfsix\fi
         \if\endrb\brnull \let\ptinull=\pfsix\fi\fi\fi
   \if\startrb\brseven \fsevenset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pfseven\fi
         \if\endrb\brtwo \let\ptatwo=\pfseven\fi
         \if\endrb\brthree \let\ptathree=\pfseven\fi
         \if\endrb\brfour \let\ptafour=\pfseven\fi
         \if\endrb\brfive \let\ptafive=\pfseven\fi
         \if\endrb\brsix \let\ptasix=\pfseven\fi
         \if\endrb\brseven \let\ptaseven=\pfseven\fi
         \if\endrb\breight \let\ptaeight=\pfseven\fi
         \if\endrb\brnine \let\ptanine=\pfseven\fi
         \if\endrb\brnull \let\ptanull=\pfseven\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pfseven\fi
         \if\endrb\brtwo \let\ptbtwo=\pfseven\fi
         \if\endrb\brthree \let\ptbthree=\pfseven\fi
         \if\endrb\brfour \let\ptbfour=\pfseven\fi
         \if\endrb\brfive \let\ptbfive=\pfseven\fi
         \if\endrb\brsix \let\ptbsix=\pfseven\fi
         \if\endrb\brseven \let\ptbseven=\pfseven\fi
         \if\endrb\breight \let\ptbeight=\pfseven\fi
         \if\endrb\brnine \let\ptbnine=\pfseven\fi
         \if\endrb\brnull \let\ptbnull=\pfseven\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pfseven\fi
         \if\endrb\brtwo \let\ptctwo=\pfseven\fi
         \if\endrb\brthree \let\ptcthree=\pfseven\fi
         \if\endrb\brfour \let\ptcfour=\pfseven\fi
         \if\endrb\brfive \let\ptcfive=\pfseven\fi
         \if\endrb\brsix \let\ptcsix=\pfseven\fi
         \if\endrb\brseven \let\ptcseven=\pfseven\fi
         \if\endrb\breight \let\ptceight=\pfseven\fi
         \if\endrb\brnine \let\ptcnine=\pfseven\fi
         \if\endrb\brnull \let\ptcnull=\pfseven\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pfseven\fi
         \if\endrb\brtwo \let\ptdtwo=\pfseven\fi
         \if\endrb\brthree \let\ptdthree=\pfseven\fi
         \if\endrb\brfour \let\ptdfour=\pfseven\fi
         \if\endrb\brfive \let\ptdfive=\pfseven\fi
         \if\endrb\brsix \let\ptdsix=\pfseven\fi
         \if\endrb\brseven \let\ptdseven=\pfseven\fi
         \if\endrb\breight \let\ptdeight=\pfseven\fi
         \if\endrb\brnine \let\ptdnine=\pfseven\fi
         \if\endrb\brnull \let\ptdnull=\pfseven\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pfseven\fi
         \if\endrb\brtwo \let\ptetwo=\pfseven\fi
         \if\endrb\brthree \let\ptethree=\pfseven\fi
         \if\endrb\brfour \let\ptefour=\pfseven\fi
         \if\endrb\brfive \let\ptefive=\pfseven\fi
         \if\endrb\brsix \let\ptesix=\pfseven\fi
         \if\endrb\brseven \let\pteseven=\pfseven\fi
         \if\endrb\breight \let\pteeight=\pfseven\fi
         \if\endrb\brnine \let\ptenine=\pfseven\fi
         \if\endrb\brnull \let\ptenull=\pfseven\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pfseven\fi
         \if\endrb\brtwo \let\ptftwo=\pfseven\fi
         \if\endrb\brthree \let\ptfthree=\pfseven\fi
         \if\endrb\brfour \let\ptffour=\pfseven\fi
         \if\endrb\brfive \let\ptffive=\pfseven\fi
         \if\endrb\brsix \let\ptfsix=\pfseven\fi
         \if\endrb\brseven \let\ptfseven=\pfseven\fi
         \if\endrb\breight \let\ptfeight=\pfseven\fi
         \if\endrb\brnine \let\ptfnine=\pfseven\fi
         \if\endrb\brnull \let\ptfnull=\pfseven\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pfseven\fi
         \if\endrb\brtwo \let\ptgtwo=\pfseven\fi
         \if\endrb\brthree \let\ptgthree=\pfseven\fi
         \if\endrb\brfour \let\ptgfour=\pfseven\fi
         \if\endrb\brfive \let\ptgfive=\pfseven\fi
         \if\endrb\brsix \let\ptgsix=\pfseven\fi
         \if\endrb\brseven \let\ptgseven=\pfseven\fi
         \if\endrb\breight \let\ptgeight=\pfseven\fi
         \if\endrb\brnine \let\ptgnine=\pfseven\fi
         \if\endrb\brnull \let\ptgnull=\pfseven\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pfseven\fi
         \if\endrb\brtwo \let\pthtwo=\pfseven\fi
         \if\endrb\brthree \let\pththree=\pfseven\fi
         \if\endrb\brfour \let\pthfour=\pfseven\fi
         \if\endrb\brfive \let\pthfive=\pfseven\fi
         \if\endrb\brsix \let\pthsix=\pfseven\fi
         \if\endrb\brseven \let\pthseven=\pfseven\fi
         \if\endrb\breight \let\ptheight=\pfseven\fi
         \if\endrb\brnine \let\pthnine=\pfseven\fi
         \if\endrb\brnull \let\pthnull=\pfseven\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pfseven\fi
         \if\endrb\brtwo \let\ptitwo=\pfseven\fi
         \if\endrb\brthree \let\ptithree=\pfseven\fi
         \if\endrb\brfour \let\ptifour=\pfseven\fi
         \if\endrb\brfive \let\ptifive=\pfseven\fi
         \if\endrb\brsix \let\ptisix=\pfseven\fi
         \if\endrb\brseven \let\ptiseven=\pfseven\fi
         \if\endrb\breight \let\ptieight=\pfseven\fi
         \if\endrb\brnine \let\ptinine=\pfseven\fi
         \if\endrb\brnull \let\ptinull=\pfseven\fi\fi\fi      
   \if\startrb\breight \feightset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pfeight\fi
         \if\endrb\brtwo \let\ptatwo=\pfeight\fi
         \if\endrb\brthree \let\ptathree=\pfeight\fi
         \if\endrb\brfour \let\ptafour=\pfeight\fi
         \if\endrb\brfive \let\ptafive=\pfeight\fi
         \if\endrb\brsix \let\ptasix=\pfeight\fi
         \if\endrb\brseven \let\ptaseven=\pfeight\fi
         \if\endrb\breight \let\ptaeight=\pfeight\fi
         \if\endrb\brnine \let\ptanine=\pfeight\fi
         \if\endrb\brnull \let\ptanull=\pfeight\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pfeight\fi
         \if\endrb\brtwo \let\ptbtwo=\pfeight\fi
         \if\endrb\brthree \let\ptbthree=\pfeight\fi
         \if\endrb\brfour \let\ptbfour=\pfeight\fi
         \if\endrb\brfive \let\ptbfive=\pfeight\fi
         \if\endrb\brsix \let\ptbsix=\pfeight\fi
         \if\endrb\brseven \let\ptbseven=\pfeight\fi
         \if\endrb\breight \let\ptbeight=\pfeight\fi
         \if\endrb\brnine \let\ptbnine=\pfeight\fi
         \if\endrb\brnull \let\ptbnull=\pfeight\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pfeight\fi
         \if\endrb\brtwo \let\ptctwo=\pfeight\fi
         \if\endrb\brthree \let\ptcthree=\pfeight\fi
         \if\endrb\brfour \let\ptcfour=\pfeight\fi
         \if\endrb\brfive \let\ptcfive=\pfeight\fi
         \if\endrb\brsix \let\ptcsix=\pfeight\fi
         \if\endrb\brseven \let\ptcseven=\pfeight\fi
         \if\endrb\breight \let\ptceight=\pfeight\fi
         \if\endrb\brnine \let\ptcnine=\pfeight\fi
         \if\endrb\brnull \let\ptcnull=\pfeight\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pfeight\fi
         \if\endrb\brtwo \let\ptdtwo=\pfeight\fi
         \if\endrb\brthree \let\ptdthree=\pfeight\fi
         \if\endrb\brfour \let\ptdfour=\pfeight\fi
         \if\endrb\brfive \let\ptdfive=\pfeight\fi
         \if\endrb\brsix \let\ptdsix=\pfeight\fi
         \if\endrb\brseven \let\ptdseven=\pfeight\fi
         \if\endrb\breight \let\ptdeight=\pfeight\fi
         \if\endrb\brnine \let\ptdnine=\pfeight\fi
         \if\endrb\brnull \let\ptdnull=\pfeight\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pfeight\fi
         \if\endrb\brtwo \let\ptetwo=\pfeight\fi
         \if\endrb\brthree \let\ptethree=\pfeight\fi
         \if\endrb\brfour \let\ptefour=\pfeight\fi
         \if\endrb\brfive \let\ptefive=\pfeight\fi
         \if\endrb\brsix \let\ptesix=\pfeight\fi
         \if\endrb\brseven \let\pteseven=\pfeight\fi
         \if\endrb\breight \let\pteeight=\pfeight\fi
         \if\endrb\brnine \let\ptenine=\pfeight\fi
         \if\endrb\brnull \let\ptenull=\pfeight\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pfeight\fi
         \if\endrb\brtwo \let\ptftwo=\pfeight\fi
         \if\endrb\brthree \let\ptfthree=\pfeight\fi
         \if\endrb\brfour \let\ptffour=\pfeight\fi
         \if\endrb\brfive \let\ptffive=\pfeight\fi
         \if\endrb\brsix \let\ptfsix=\pfeight\fi
         \if\endrb\brseven \let\ptfseven=\pfeight\fi
         \if\endrb\breight \let\ptfeight=\pfeight\fi
         \if\endrb\brnine \let\ptfnine=\pfeight\fi
         \if\endrb\brnull \let\ptfnull=\pfeight\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pfeight\fi
         \if\endrb\brtwo \let\ptgtwo=\pfeight\fi
         \if\endrb\brthree \let\ptgthree=\pfeight\fi
         \if\endrb\brfour \let\ptgfour=\pfeight\fi
         \if\endrb\brfive \let\ptgfive=\pfeight\fi
         \if\endrb\brsix \let\ptgsix=\pfeight\fi
         \if\endrb\brseven \let\ptgseven=\pfeight\fi
         \if\endrb\breight \let\ptgeight=\pfeight\fi
         \if\endrb\brnine \let\ptgnine=\pfeight\fi
         \if\endrb\brnull \let\ptgnull=\pfeight\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pfeight\fi
         \if\endrb\brtwo \let\pthtwo=\pfeight\fi
         \if\endrb\brthree \let\pththree=\pfeight\fi
         \if\endrb\brfour \let\pthfour=\pfeight\fi
         \if\endrb\brfive \let\pthfive=\pfeight\fi
         \if\endrb\brsix \let\pthsix=\pfeight\fi
         \if\endrb\brseven \let\pthseven=\pfeight\fi
         \if\endrb\breight \let\ptheight=\pfeight\fi
         \if\endrb\brnine \let\pthnine=\pfeight\fi
         \if\endrb\brnull \let\pthnull=\pfeight\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pfeight\fi
         \if\endrb\brtwo \let\ptitwo=\pfeight\fi
         \if\endrb\brthree \let\ptithree=\pfeight\fi
         \if\endrb\brfour \let\ptifour=\pfeight\fi
         \if\endrb\brfive \let\ptifive=\pfeight\fi
         \if\endrb\brsix \let\ptisix=\pfeight\fi
         \if\endrb\brseven \let\ptiseven=\pfeight\fi
         \if\endrb\breight \let\ptieight=\pfeight\fi
         \if\endrb\brnine \let\ptinine=\pfeight\fi
         \if\endrb\brnull \let\ptinull=\pfeight\fi\fi\fi      
   \if\startrb\brnine \fnineset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pfnine\fi
         \if\endrb\brtwo \let\ptatwo=\pfnine\fi
         \if\endrb\brthree \let\ptathree=\pfnine\fi
         \if\endrb\brfour \let\ptafour=\pfnine\fi
         \if\endrb\brfive \let\ptafive=\pfnine\fi
         \if\endrb\brsix \let\ptasix=\pfnine\fi
         \if\endrb\brseven \let\ptaseven=\pfnine\fi
         \if\endrb\breight \let\ptaeight=\pfnine\fi
         \if\endrb\brnine \let\ptanine=\pfnine\fi
         \if\endrb\brnull \let\ptanull=\pfnine\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pfnine\fi
         \if\endrb\brtwo \let\ptbtwo=\pfnine\fi
         \if\endrb\brthree \let\ptbthree=\pfnine\fi
         \if\endrb\brfour \let\ptbfour=\pfnine\fi
         \if\endrb\brfive \let\ptbfive=\pfnine\fi
         \if\endrb\brsix \let\ptbsix=\pfnine\fi
         \if\endrb\brseven \let\ptbseven=\pfnine\fi
         \if\endrb\breight \let\ptbeight=\pfnine\fi
         \if\endrb\brnine \let\ptbnine=\pfnine\fi
         \if\endrb\brnull \let\ptbnull=\pfnine\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pfnine\fi
         \if\endrb\brtwo \let\ptctwo=\pfnine\fi
         \if\endrb\brthree \let\ptcthree=\pfnine\fi
         \if\endrb\brfour \let\ptcfour=\pfnine\fi
         \if\endrb\brfive \let\ptcfive=\pfnine\fi
         \if\endrb\brsix \let\ptcsix=\pfnine\fi
         \if\endrb\brseven \let\ptcseven=\pfnine\fi
         \if\endrb\breight \let\ptceight=\pfnine\fi
         \if\endrb\brnine \let\ptcnine=\pfnine\fi
         \if\endrb\brnull \let\ptcnull=\pfnine\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pfnine\fi
         \if\endrb\brtwo \let\ptdtwo=\pfnine\fi
         \if\endrb\brthree \let\ptdthree=\pfnine\fi
         \if\endrb\brfour \let\ptdfour=\pfnine\fi
         \if\endrb\brfive \let\ptdfive=\pfnine\fi
         \if\endrb\brsix \let\ptdsix=\pfnine\fi
         \if\endrb\brseven \let\ptdseven=\pfnine\fi
         \if\endrb\breight \let\ptdeight=\pfnine\fi
         \if\endrb\brnine \let\ptdnine=\pfnine\fi
         \if\endrb\brnull \let\ptdnull=\pfnine\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pfnine\fi
         \if\endrb\brtwo \let\ptetwo=\pfnine\fi
         \if\endrb\brthree \let\ptethree=\pfnine\fi
         \if\endrb\brfour \let\ptefour=\pfnine\fi
         \if\endrb\brfive \let\ptefive=\pfnine\fi
         \if\endrb\brsix \let\ptesix=\pfnine\fi
         \if\endrb\brseven \let\pteseven=\pfnine\fi
         \if\endrb\breight \let\pteeight=\pfnine\fi
         \if\endrb\brnine \let\ptenine=\pfnine\fi
         \if\endrb\brnull \let\ptenull=\pfnine\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pfnine\fi
         \if\endrb\brtwo \let\ptftwo=\pfnine\fi
         \if\endrb\brthree \let\ptfthree=\pfnine\fi
         \if\endrb\brfour \let\ptffour=\pfnine\fi
         \if\endrb\brfive \let\ptffive=\pfnine\fi
         \if\endrb\brsix \let\ptfsix=\pfnine\fi
         \if\endrb\brseven \let\ptfseven=\pfnine\fi
         \if\endrb\breight \let\ptfeight=\pfnine\fi
         \if\endrb\brnine \let\ptfnine=\pfnine\fi
         \if\endrb\brnull \let\ptfnull=\pfnine\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pfnine\fi
         \if\endrb\brtwo \let\ptgtwo=\pfnine\fi
         \if\endrb\brthree \let\ptgthree=\pfnine\fi
         \if\endrb\brfour \let\ptgfour=\pfnine\fi
         \if\endrb\brfive \let\ptgfive=\pfnine\fi
         \if\endrb\brsix \let\ptgsix=\pfnine\fi
         \if\endrb\brseven \let\ptgseven=\pfnine\fi
         \if\endrb\breight \let\ptgeight=\pfnine\fi
         \if\endrb\brnine \let\ptgnine=\pfnine\fi
         \if\endrb\brnull \let\ptgnull=\pfnine\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pfnine\fi
         \if\endrb\brtwo \let\pthtwo=\pfnine\fi
         \if\endrb\brthree \let\pththree=\pfnine\fi
         \if\endrb\brfour \let\pthfour=\pfnine\fi
         \if\endrb\brfive \let\pthfive=\pfnine\fi
         \if\endrb\brsix \let\pthsix=\pfnine\fi
         \if\endrb\brseven \let\pthseven=\pfnine\fi
         \if\endrb\breight \let\ptheight=\pfnine\fi
         \if\endrb\brnine \let\pthnine=\pfnine\fi
         \if\endrb\brnull \let\pthnull=\pfnine\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pfnine\fi
         \if\endrb\brtwo \let\ptitwo=\pfnine\fi
         \if\endrb\brthree \let\ptithree=\pfnine\fi
         \if\endrb\brfour \let\ptifour=\pfnine\fi
         \if\endrb\brfive \let\ptifive=\pfnine\fi
         \if\endrb\brsix \let\ptisix=\pfnine\fi
         \if\endrb\brseven \let\ptiseven=\pfnine\fi
         \if\endrb\breight \let\ptieight=\pfnine\fi
         \if\endrb\brnine \let\ptinine=\pfnine\fi
         \if\endrb\brnull \let\ptinull=\pfnine\fi\fi\fi      
   \if\startrb\brnull \fnullset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pfnull\fi
         \if\endrb\brtwo \let\ptatwo=\pfnull\fi
         \if\endrb\brthree \let\ptathree=\pfnull\fi
         \if\endrb\brfour \let\ptafour=\pfnull\fi
         \if\endrb\brfive \let\ptafive=\pfnull\fi
         \if\endrb\brsix \let\ptasix=\pfnull\fi
         \if\endrb\brseven \let\ptaseven=\pfnull\fi
         \if\endrb\breight \let\ptaeight=\pfnull\fi
         \if\endrb\brnine \let\ptanine=\pfnull\fi
         \if\endrb\brnull \let\ptanull=\pfnull\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pfnull\fi
         \if\endrb\brtwo \let\ptbtwo=\pfnull\fi
         \if\endrb\brthree \let\ptbthree=\pfnull\fi
         \if\endrb\brfour \let\ptbfour=\pfnull\fi
         \if\endrb\brfive \let\ptbfive=\pfnull\fi
         \if\endrb\brsix \let\ptbsix=\pfnull\fi
         \if\endrb\brseven \let\ptbseven=\pfnull\fi
         \if\endrb\breight \let\ptbeight=\pfnull\fi
         \if\endrb\brnine \let\ptbnine=\pfnull\fi
         \if\endrb\brnull \let\ptbnull=\pfnull\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pfnull\fi
         \if\endrb\brtwo \let\ptctwo=\pfnull\fi
         \if\endrb\brthree \let\ptcthree=\pfnull\fi
         \if\endrb\brfour \let\ptcfour=\pfnull\fi
         \if\endrb\brfive \let\ptcfive=\pfnull\fi
         \if\endrb\brsix \let\ptcsix=\pfnull\fi
         \if\endrb\brseven \let\ptcseven=\pfnull\fi
         \if\endrb\breight \let\ptceight=\pfnull\fi
         \if\endrb\brnine \let\ptcnine=\pfnull\fi
         \if\endrb\brnull \let\ptcnull=\pfnull\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pfnull\fi
         \if\endrb\brtwo \let\ptdtwo=\pfnull\fi
         \if\endrb\brthree \let\ptdthree=\pfnull\fi
         \if\endrb\brfour \let\ptdfour=\pfnull\fi
         \if\endrb\brfive \let\ptdfive=\pfnull\fi
         \if\endrb\brsix \let\ptdsix=\pfnull\fi
         \if\endrb\brseven \let\ptdseven=\pfnull\fi
         \if\endrb\breight \let\ptdeight=\pfnull\fi
         \if\endrb\brnine \let\ptdnine=\pfnull\fi
         \if\endrb\brnull \let\ptdnull=\pfnull\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pfnull\fi
         \if\endrb\brtwo \let\ptetwo=\pfnull\fi
         \if\endrb\brthree \let\ptethree=\pfnull\fi
         \if\endrb\brfour \let\ptefour=\pfnull\fi
         \if\endrb\brfive \let\ptefive=\pfnull\fi
         \if\endrb\brsix \let\ptesix=\pfnull\fi
         \if\endrb\brseven \let\pteseven=\pfnull\fi
         \if\endrb\breight \let\pteeight=\pfnull\fi
         \if\endrb\brnine \let\ptenine=\pfnull\fi
         \if\endrb\brnull \let\ptenull=\pfnull\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pfnull\fi
         \if\endrb\brtwo \let\ptftwo=\pfnull\fi
         \if\endrb\brthree \let\ptfthree=\pfnull\fi
         \if\endrb\brfour \let\ptffour=\pfnull\fi
         \if\endrb\brfive \let\ptffive=\pfnull\fi
         \if\endrb\brsix \let\ptfsix=\pfnull\fi
         \if\endrb\brseven \let\ptfseven=\pfnull\fi
         \if\endrb\breight \let\ptfeight=\pfnull\fi
         \if\endrb\brnine \let\ptfnine=\pfnull\fi
         \if\endrb\brnull \let\ptfnull=\pfnull\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pfnull\fi
         \if\endrb\brtwo \let\ptgtwo=\pfnull\fi
         \if\endrb\brthree \let\ptgthree=\pfnull\fi
         \if\endrb\brfour \let\ptgfour=\pfnull\fi
         \if\endrb\brfive \let\ptgfive=\pfnull\fi
         \if\endrb\brsix \let\ptgsix=\pfnull\fi
         \if\endrb\brseven \let\ptgseven=\pfnull\fi
         \if\endrb\breight \let\ptgeight=\pfnull\fi
         \if\endrb\brnine \let\ptgnine=\pfnull\fi
         \if\endrb\brnull \let\ptgnull=\pfnull\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pfnull\fi
         \if\endrb\brtwo \let\pthtwo=\pfnull\fi
         \if\endrb\brthree \let\pththree=\pfnull\fi
         \if\endrb\brfour \let\pthfour=\pfnull\fi
         \if\endrb\brfive \let\pthfive=\pfnull\fi
         \if\endrb\brsix \let\pthsix=\pfnull\fi
         \if\endrb\brseven \let\pthseven=\pfnull\fi
         \if\endrb\breight \let\ptheight=\pfnull\fi
         \if\endrb\brnine \let\pthnine=\pfnull\fi
         \if\endrb\brnull \let\pthnull=\pfnull\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pfnull\fi
         \if\endrb\brtwo \let\ptitwo=\pfnull\fi
         \if\endrb\brthree \let\ptithree=\pfnull\fi
         \if\endrb\brfour \let\ptifour=\pfnull\fi
         \if\endrb\brfive \let\ptifive=\pfnull\fi
         \if\endrb\brsix \let\ptisix=\pfnull\fi
         \if\endrb\brseven \let\ptiseven=\pfnull\fi
         \if\endrb\breight \let\ptieight=\pfnull\fi
         \if\endrb\brnine \let\ptinine=\pfnull\fi
         \if\endrb\brnull \let\ptinull=\pfnull\fi\fi\fi\fi
\if\startlb\gli
   \if\startrb\brone \goneset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pgone\fi
         \if\endrb\brtwo \let\ptatwo=\pgone\fi
         \if\endrb\brthree \let\ptathree=\pgone\fi
         \if\endrb\brfour \let\ptafour=\pgone\fi
         \if\endrb\brfive \let\ptafive=\pgone\fi
         \if\endrb\brsix \let\ptasix=\pgone\fi
         \if\endrb\brseven \let\ptaseven=\pgone\fi
         \if\endrb\breight \let\ptaeight=\pgone\fi
         \if\endrb\brnine \let\ptanine=\pgone\fi
         \if\endrb\brnull \let\ptanull=\pgone\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pgone\fi
         \if\endrb\brtwo \let\ptbtwo=\pgone\fi
         \if\endrb\brthree \let\ptbthree=\pgone\fi
         \if\endrb\brfour \let\ptbfour=\pgone\fi
         \if\endrb\brfive \let\ptbfive=\pgone\fi
         \if\endrb\brsix \let\ptbsix=\pgone\fi
         \if\endrb\brseven \let\ptbseven=\pgone\fi
         \if\endrb\breight \let\ptbeight=\pgone\fi
         \if\endrb\brnine \let\ptbnine=\pgone\fi
         \if\endrb\brnull \let\ptbnull=\pgone\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pgone\fi
         \if\endrb\brtwo \let\ptctwo=\pgone\fi
         \if\endrb\brthree \let\ptcthree=\pgone\fi
         \if\endrb\brfour \let\ptcfour=\pgone\fi
         \if\endrb\brfive \let\ptcfive=\pgone\fi
         \if\endrb\brsix \let\ptcsix=\pgone\fi
         \if\endrb\brseven \let\ptcseven=\pgone\fi
         \if\endrb\breight \let\ptceight=\pgone\fi
         \if\endrb\brnine \let\ptcnine=\pgone\fi
         \if\endrb\brnull \let\ptcnull=\pgone\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pgone\fi
         \if\endrb\brtwo \let\ptdtwo=\pgone\fi
         \if\endrb\brthree \let\ptdthree=\pgone\fi
         \if\endrb\brfour \let\ptdfour=\pgone\fi
         \if\endrb\brfive \let\ptdfive=\pgone\fi
         \if\endrb\brsix \let\ptdsix=\pgone\fi
         \if\endrb\brseven \let\ptdseven=\pgone\fi
         \if\endrb\breight \let\ptdeight=\pgone\fi
         \if\endrb\brnine \let\ptdnine=\pgone\fi
         \if\endrb\brnull \let\ptdnull=\pgone\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pgone\fi
         \if\endrb\brtwo \let\ptetwo=\pgone\fi
         \if\endrb\brthree \let\ptethree=\pgone\fi
         \if\endrb\brfour \let\ptefour=\pgone\fi
         \if\endrb\brfive \let\ptefive=\pgone\fi
         \if\endrb\brsix \let\ptesix=\pgone\fi
         \if\endrb\brseven \let\pteseven=\pgone\fi
         \if\endrb\breight \let\pteeight=\pgone\fi
         \if\endrb\brnine \let\ptenine=\pgone\fi
         \if\endrb\brnull \let\ptenull=\pgone\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pgone\fi
         \if\endrb\brtwo \let\ptftwo=\pgone\fi
         \if\endrb\brthree \let\ptfthree=\pgone\fi
         \if\endrb\brfour \let\ptffour=\pgone\fi
         \if\endrb\brfive \let\ptffive=\pgone\fi
         \if\endrb\brsix \let\ptfsix=\pgone\fi
         \if\endrb\brseven \let\ptfseven=\pgone\fi
         \if\endrb\breight \let\ptfeight=\pgone\fi
         \if\endrb\brnine \let\ptfnine=\pgone\fi
         \if\endrb\brnull \let\ptfnull=\pgone\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pgone\fi
         \if\endrb\brtwo \let\ptgtwo=\pgone\fi
         \if\endrb\brthree \let\ptgthree=\pgone\fi
         \if\endrb\brfour \let\ptgfour=\pgone\fi
         \if\endrb\brfive \let\ptgfive=\pgone\fi
         \if\endrb\brsix \let\ptgsix=\pgone\fi
         \if\endrb\brseven \let\ptgseven=\pgone\fi
         \if\endrb\breight \let\ptgeight=\pgone\fi
         \if\endrb\brnine \let\ptgnine=\pgone\fi
         \if\endrb\brnull \let\ptgnull=\pgone\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pgone\fi
         \if\endrb\brtwo \let\pthtwo=\pgone\fi
         \if\endrb\brthree \let\pththree=\pgone\fi
         \if\endrb\brfour \let\pthfour=\pgone\fi
         \if\endrb\brfive \let\pthfive=\pgone\fi
         \if\endrb\brsix \let\pthsix=\pgone\fi
         \if\endrb\brseven \let\pthseven=\pgone\fi
         \if\endrb\breight \let\ptheight=\pgone\fi
         \if\endrb\brnine \let\pthnine=\pgone\fi
         \if\endrb\brnull \let\pthnull=\pgone\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pgone\fi
         \if\endrb\brtwo \let\ptitwo=\pgone\fi
         \if\endrb\brthree \let\ptithree=\pgone\fi
         \if\endrb\brfour \let\ptifour=\pgone\fi
         \if\endrb\brfive \let\ptifive=\pgone\fi
         \if\endrb\brsix \let\ptisix=\pgone\fi
         \if\endrb\brseven \let\ptiseven=\pgone\fi
         \if\endrb\breight \let\ptieight=\pgone\fi
         \if\endrb\brnine \let\ptinine=\pgone\fi
         \if\endrb\brnull \let\ptinull=\pgone\fi\fi\fi      
   \if\startrb\brtwo \gtwoset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pgtwo\fi
         \if\endrb\brtwo \let\ptatwo=\pgtwo\fi
         \if\endrb\brthree \let\ptathree=\pgtwo\fi
         \if\endrb\brfour \let\ptafour=\pgtwo\fi
         \if\endrb\brfive \let\ptafive=\pgtwo\fi
         \if\endrb\brsix \let\ptasix=\pgtwo\fi
         \if\endrb\brseven \let\ptaseven=\pgtwo\fi
         \if\endrb\breight \let\ptaeight=\pgtwo\fi
         \if\endrb\brnine \let\ptanine=\pgtwo\fi
         \if\endrb\brnull \let\ptanull=\pgtwo\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pgtwo\fi
         \if\endrb\brtwo \let\ptbtwo=\pgtwo\fi
         \if\endrb\brthree \let\ptbthree=\pgtwo\fi
         \if\endrb\brfour \let\ptbfour=\pgtwo\fi
         \if\endrb\brfive \let\ptbfive=\pgtwo\fi
         \if\endrb\brsix \let\ptbsix=\pgtwo\fi
         \if\endrb\brseven \let\ptbseven=\pgtwo\fi
         \if\endrb\breight \let\ptbeight=\pgtwo\fi
         \if\endrb\brnine \let\ptbnine=\pgtwo\fi
         \if\endrb\brnull \let\ptbnull=\pgtwo\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pgtwo\fi
         \if\endrb\brtwo \let\ptctwo=\pgtwo\fi
         \if\endrb\brthree \let\ptcthree=\pgtwo\fi
         \if\endrb\brfour \let\ptcfour=\pgtwo\fi
         \if\endrb\brfive \let\ptcfive=\pgtwo\fi
         \if\endrb\brsix \let\ptcsix=\pgtwo\fi
         \if\endrb\brseven \let\ptcseven=\pgtwo\fi
         \if\endrb\breight \let\ptceight=\pgtwo\fi
         \if\endrb\brnine \let\ptcnine=\pgtwo\fi
         \if\endrb\brnull \let\ptcnull=\pgtwo\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pgtwo\fi
         \if\endrb\brtwo \let\ptdtwo=\pgtwo\fi
         \if\endrb\brthree \let\ptdthree=\pgtwo\fi
         \if\endrb\brfour \let\ptdfour=\pgtwo\fi
         \if\endrb\brfive \let\ptdfive=\pgtwo\fi
         \if\endrb\brsix \let\ptdsix=\pgtwo\fi
         \if\endrb\brseven \let\ptdseven=\pgtwo\fi
         \if\endrb\breight \let\ptdeight=\pgtwo\fi
         \if\endrb\brnine \let\ptdnine=\pgtwo\fi
         \if\endrb\brnull \let\ptdnull=\pgtwo\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pgtwo\fi
         \if\endrb\brtwo \let\ptetwo=\pgtwo\fi
         \if\endrb\brthree \let\ptethree=\pgtwo\fi
         \if\endrb\brfour \let\ptefour=\pgtwo\fi
         \if\endrb\brfive \let\ptefive=\pgtwo\fi
         \if\endrb\brsix \let\ptesix=\pgtwo\fi
         \if\endrb\brseven \let\pteseven=\pgtwo\fi
         \if\endrb\breight \let\pteeight=\pgtwo\fi
         \if\endrb\brnine \let\ptenine=\pgtwo\fi
         \if\endrb\brnull \let\ptenull=\pgtwo\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pgtwo\fi
         \if\endrb\brtwo \let\ptftwo=\pgtwo\fi
         \if\endrb\brthree \let\ptfthree=\pgtwo\fi
         \if\endrb\brfour \let\ptffour=\pgtwo\fi
         \if\endrb\brfive \let\ptffive=\pgtwo\fi
         \if\endrb\brsix \let\ptfsix=\pgtwo\fi
         \if\endrb\brseven \let\ptfseven=\pgtwo\fi
         \if\endrb\breight \let\ptfeight=\pgtwo\fi
         \if\endrb\brnine \let\ptfnine=\pgtwo\fi
         \if\endrb\brnull \let\ptfnull=\pgtwo\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pgtwo\fi
         \if\endrb\brtwo \let\ptgtwo=\pgtwo\fi
         \if\endrb\brthree \let\ptgthree=\pgtwo\fi
         \if\endrb\brfour \let\ptgfour=\pgtwo\fi
         \if\endrb\brfive \let\ptgfive=\pgtwo\fi
         \if\endrb\brsix \let\ptgsix=\pgtwo\fi
         \if\endrb\brseven \let\ptgseven=\pgtwo\fi
         \if\endrb\breight \let\ptgeight=\pgtwo\fi
         \if\endrb\brnine \let\ptgnine=\pgtwo\fi
         \if\endrb\brnull \let\ptgnull=\pgtwo\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pgtwo\fi
         \if\endrb\brtwo \let\pthtwo=\pgtwo\fi
         \if\endrb\brthree \let\pththree=\pgtwo\fi
         \if\endrb\brfour \let\pthfour=\pgtwo\fi
         \if\endrb\brfive \let\pthfive=\pgtwo\fi
         \if\endrb\brsix \let\pthsix=\pgtwo\fi
         \if\endrb\brseven \let\pthseven=\pgtwo\fi
         \if\endrb\breight \let\ptheight=\pgtwo\fi
         \if\endrb\brnine \let\pthnine=\pgtwo\fi
         \if\endrb\brnull \let\pthnull=\pgtwo\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pgtwo\fi
         \if\endrb\brtwo \let\ptitwo=\pgtwo\fi
         \if\endrb\brthree \let\ptithree=\pgtwo\fi
         \if\endrb\brfour \let\ptifour=\pgtwo\fi
         \if\endrb\brfive \let\ptifive=\pgtwo\fi
         \if\endrb\brsix \let\ptisix=\pgtwo\fi
         \if\endrb\brseven \let\ptiseven=\pgtwo\fi
         \if\endrb\breight \let\ptieight=\pgtwo\fi
         \if\endrb\brnine \let\ptinine=\pgtwo\fi
         \if\endrb\brnull \let\ptinull=\pgtwo\fi\fi\fi
   \if\startrb\brthree \gthreeset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pgthree\fi
         \if\endrb\brtwo \let\ptatwo=\pgthree\fi
         \if\endrb\brthree \let\ptathree=\pgthree\fi
         \if\endrb\brfour \let\ptafour=\pgthree\fi
         \if\endrb\brfive \let\ptafive=\pgthree\fi
         \if\endrb\brsix \let\ptasix=\pgthree\fi
         \if\endrb\brseven \let\ptaseven=\pgthree\fi
         \if\endrb\breight \let\ptaeight=\pgthree\fi
         \if\endrb\brnine \let\ptanine=\pgthree\fi
         \if\endrb\brnull \let\ptanull=\pgthree\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pgthree\fi
         \if\endrb\brtwo \let\ptbtwo=\pgthree\fi
         \if\endrb\brthree \let\ptbthree=\pgthree\fi
         \if\endrb\brfour \let\ptbfour=\pgthree\fi
         \if\endrb\brfive \let\ptbfive=\pgthree\fi
         \if\endrb\brsix \let\ptbsix=\pgthree\fi
         \if\endrb\brseven \let\ptbseven=\pgthree\fi
         \if\endrb\breight \let\ptbeight=\pgthree\fi
         \if\endrb\brnine \let\ptbnine=\pgthree\fi
         \if\endrb\brnull \let\ptbnull=\pgthree\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pgthree\fi
         \if\endrb\brtwo \let\ptctwo=\pgthree\fi
         \if\endrb\brthree \let\ptcthree=\pgthree\fi
         \if\endrb\brfour \let\ptcfour=\pgthree\fi
         \if\endrb\brfive \let\ptcfive=\pgthree\fi
         \if\endrb\brsix \let\ptcsix=\pgthree\fi
         \if\endrb\brseven \let\ptcseven=\pgthree\fi
         \if\endrb\breight \let\ptceight=\pgthree\fi
         \if\endrb\brnine \let\ptcnine=\pgthree\fi
         \if\endrb\brnull \let\ptcnull=\pgthree\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pgthree\fi
         \if\endrb\brtwo \let\ptdtwo=\pgthree\fi
         \if\endrb\brthree \let\ptdthree=\pgthree\fi
         \if\endrb\brfour \let\ptdfour=\pgthree\fi
         \if\endrb\brfive \let\ptdfive=\pgthree\fi
         \if\endrb\brsix \let\ptdsix=\pgthree\fi
         \if\endrb\brseven \let\ptdseven=\pgthree\fi
         \if\endrb\breight \let\ptdeight=\pgthree\fi
         \if\endrb\brnine \let\ptdnine=\pgthree\fi
         \if\endrb\brnull \let\ptdnull=\pgthree\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pgthree\fi
         \if\endrb\brtwo \let\ptetwo=\pgthree\fi
         \if\endrb\brthree \let\ptethree=\pgthree\fi
         \if\endrb\brfour \let\ptefour=\pgthree\fi
         \if\endrb\brfive \let\ptefive=\pgthree\fi
         \if\endrb\brsix \let\ptesix=\pgthree\fi
         \if\endrb\brseven \let\pteseven=\pgthree\fi
         \if\endrb\breight \let\pteeight=\pgthree\fi
         \if\endrb\brnine \let\ptenine=\pgthree\fi
         \if\endrb\brnull \let\ptenull=\pgthree\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pgthree\fi
         \if\endrb\brtwo \let\ptftwo=\pgthree\fi
         \if\endrb\brthree \let\ptfthree=\pgthree\fi
         \if\endrb\brfour \let\ptffour=\pgthree\fi
         \if\endrb\brfive \let\ptffive=\pgthree\fi
         \if\endrb\brsix \let\ptfsix=\pgthree\fi
         \if\endrb\brseven \let\ptfseven=\pgthree\fi
         \if\endrb\breight \let\ptfeight=\pgthree\fi
         \if\endrb\brnine \let\ptfnine=\pgthree\fi
         \if\endrb\brnull \let\ptfnull=\pgthree\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pgthree\fi
         \if\endrb\brtwo \let\ptgtwo=\pgthree\fi
         \if\endrb\brthree \let\ptgthree=\pgthree\fi
         \if\endrb\brfour \let\ptgfour=\pgthree\fi
         \if\endrb\brfive \let\ptgfive=\pgthree\fi
         \if\endrb\brsix \let\ptgsix=\pgthree\fi
         \if\endrb\brseven \let\ptgseven=\pgthree\fi
         \if\endrb\breight \let\ptgeight=\pgthree\fi
         \if\endrb\brnine \let\ptgnine=\pgthree\fi
         \if\endrb\brnull \let\ptgnull=\pgthree\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pgthree\fi
         \if\endrb\brtwo \let\pthtwo=\pgthree\fi
         \if\endrb\brthree \let\pththree=\pgthree\fi
         \if\endrb\brfour \let\pthfour=\pgthree\fi
         \if\endrb\brfive \let\pthfive=\pgthree\fi
         \if\endrb\brsix \let\pthsix=\pgthree\fi
         \if\endrb\brseven \let\pthseven=\pgthree\fi
         \if\endrb\breight \let\ptheight=\pgthree\fi
         \if\endrb\brnine \let\pthnine=\pgthree\fi
         \if\endrb\brnull \let\pthnull=\pgthree\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pgthree\fi
         \if\endrb\brtwo \let\ptitwo=\pgthree\fi
         \if\endrb\brthree \let\ptithree=\pgthree\fi
         \if\endrb\brfour \let\ptifour=\pgthree\fi
         \if\endrb\brfive \let\ptifive=\pgthree\fi
         \if\endrb\brsix \let\ptisix=\pgthree\fi
         \if\endrb\brseven \let\ptiseven=\pgthree\fi
         \if\endrb\breight \let\ptieight=\pgthree\fi
         \if\endrb\brnine \let\ptinine=\pgthree\fi
         \if\endrb\brnull \let\ptinull=\pgthree\fi\fi\fi      
   \if\startrb\brfour \gfourset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pgfour\fi
         \if\endrb\brtwo \let\ptatwo=\pgfour\fi
         \if\endrb\brthree \let\ptathree=\pgfour\fi
         \if\endrb\brfour \let\ptafour=\pgfour\fi
         \if\endrb\brfive \let\ptafive=\pgfour\fi
         \if\endrb\brsix \let\ptasix=\pgfour\fi
         \if\endrb\brseven \let\ptaseven=\pgfour\fi
         \if\endrb\breight \let\ptaeight=\pgfour\fi
         \if\endrb\brnine \let\ptanine=\pgfour\fi
         \if\endrb\brnull \let\ptanull=\pgfour\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pgfour\fi
         \if\endrb\brtwo \let\ptbtwo=\pgfour\fi
         \if\endrb\brthree \let\ptbthree=\pgfour\fi
         \if\endrb\brfour \let\ptbfour=\pgfour\fi
         \if\endrb\brfive \let\ptbfive=\pgfour\fi
         \if\endrb\brsix \let\ptbsix=\pgfour\fi
         \if\endrb\brseven \let\ptbseven=\pgfour\fi
         \if\endrb\breight \let\ptbeight=\pgfour\fi
         \if\endrb\brnine \let\ptbnine=\pgfour\fi
         \if\endrb\brnull \let\ptbnull=\pgfour\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pgfour\fi
         \if\endrb\brtwo \let\ptctwo=\pgfour\fi
         \if\endrb\brthree \let\ptcthree=\pgfour\fi
         \if\endrb\brfour \let\ptcfour=\pgfour\fi
         \if\endrb\brfive \let\ptcfive=\pgfour\fi
         \if\endrb\brsix \let\ptcsix=\pgfour\fi
         \if\endrb\brseven \let\ptcseven=\pgfour\fi
         \if\endrb\breight \let\ptceight=\pgfour\fi
         \if\endrb\brnine \let\ptcnine=\pgfour\fi
         \if\endrb\brnull \let\ptcnull=\pgfour\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pgfour\fi
         \if\endrb\brtwo \let\ptdtwo=\pgfour\fi
         \if\endrb\brthree \let\ptdthree=\pgfour\fi
         \if\endrb\brfour \let\ptdfour=\pgfour\fi
         \if\endrb\brfive \let\ptdfive=\pgfour\fi
         \if\endrb\brsix \let\ptdsix=\pgfour\fi
         \if\endrb\brseven \let\ptdseven=\pgfour\fi
         \if\endrb\breight \let\ptdeight=\pgfour\fi
         \if\endrb\brnine \let\ptdnine=\pgfour\fi
         \if\endrb\brnull \let\ptdnull=\pgfour\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pgfour\fi
         \if\endrb\brtwo \let\ptetwo=\pgfour\fi
         \if\endrb\brthree \let\ptethree=\pgfour\fi
         \if\endrb\brfour \let\ptefour=\pgfour\fi
         \if\endrb\brfive \let\ptefive=\pgfour\fi
         \if\endrb\brsix \let\ptesix=\pgfour\fi
         \if\endrb\brseven \let\pteseven=\pgfour\fi
         \if\endrb\breight \let\pteeight=\pgfour\fi
         \if\endrb\brnine \let\ptenine=\pgfour\fi
         \if\endrb\brnull \let\ptenull=\pgfour\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pgfour\fi
         \if\endrb\brtwo \let\ptftwo=\pgfour\fi
         \if\endrb\brthree \let\ptfthree=\pgfour\fi
         \if\endrb\brfour \let\ptffour=\pgfour\fi
         \if\endrb\brfive \let\ptffive=\pgfour\fi
         \if\endrb\brsix \let\ptfsix=\pgfour\fi
         \if\endrb\brseven \let\ptfseven=\pgfour\fi
         \if\endrb\breight \let\ptfeight=\pgfour\fi
         \if\endrb\brnine \let\ptfnine=\pgfour\fi
         \if\endrb\brnull \let\ptfnull=\pgfour\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pgfour\fi
         \if\endrb\brtwo \let\ptgtwo=\pgfour\fi
         \if\endrb\brthree \let\ptgthree=\pgfour\fi
         \if\endrb\brfour \let\ptgfour=\pgfour\fi
         \if\endrb\brfive \let\ptgfive=\pgfour\fi
         \if\endrb\brsix \let\ptgsix=\pgfour\fi
         \if\endrb\brseven \let\ptgseven=\pgfour\fi
         \if\endrb\breight \let\ptgeight=\pgfour\fi
         \if\endrb\brnine \let\ptgnine=\pgfour\fi
         \if\endrb\brnull \let\ptgnull=\pgfour\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pgfour\fi
         \if\endrb\brtwo \let\pthtwo=\pgfour\fi
         \if\endrb\brthree \let\pththree=\pgfour\fi
         \if\endrb\brfour \let\pthfour=\pgfour\fi
         \if\endrb\brfive \let\pthfive=\pgfour\fi
         \if\endrb\brsix \let\pthsix=\pgfour\fi
         \if\endrb\brseven \let\pthseven=\pgfour\fi
         \if\endrb\breight \let\ptheight=\pgfour\fi
         \if\endrb\brnine \let\pthnine=\pgfour\fi
         \if\endrb\brnull \let\pthnull=\pgfour\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pgfour\fi
         \if\endrb\brtwo \let\ptitwo=\pgfour\fi
         \if\endrb\brthree \let\ptithree=\pgfour\fi
         \if\endrb\brfour \let\ptifour=\pgfour\fi
         \if\endrb\brfive \let\ptifive=\pgfour\fi
         \if\endrb\brsix \let\ptisix=\pgfour\fi
         \if\endrb\brseven \let\ptiseven=\pgfour\fi
         \if\endrb\breight \let\ptieight=\pgfour\fi
         \if\endrb\brnine \let\ptinine=\pgfour\fi
         \if\endrb\brnull \let\ptinull=\pgfour\fi\fi\fi      
   \if\startrb\brfive \gfiveset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pgfive\fi
         \if\endrb\brtwo \let\ptatwo=\pgfive\fi
         \if\endrb\brthree \let\ptathree=\pgfive\fi
         \if\endrb\brfour \let\ptafour=\pgfive\fi
         \if\endrb\brfive \let\ptafive=\pgfive\fi
         \if\endrb\brsix \let\ptasix=\pgfive\fi
         \if\endrb\brseven \let\ptaseven=\pgfive\fi
         \if\endrb\breight \let\ptaeight=\pgfive\fi
         \if\endrb\brnine \let\ptanine=\pgfive\fi
         \if\endrb\brnull \let\ptanull=\pgfive\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pgfive\fi
         \if\endrb\brtwo \let\ptbtwo=\pgfive\fi
         \if\endrb\brthree \let\ptbthree=\pgfive\fi
         \if\endrb\brfour \let\ptbfour=\pgfive\fi
         \if\endrb\brfive \let\ptbfive=\pgfive\fi
         \if\endrb\brsix \let\ptbsix=\pgfive\fi
         \if\endrb\brseven \let\ptbseven=\pgfive\fi
         \if\endrb\breight \let\ptbeight=\pgfive\fi
         \if\endrb\brnine \let\ptbnine=\pgfive\fi
         \if\endrb\brnull \let\ptbnull=\pgfive\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pgfive\fi
         \if\endrb\brtwo \let\ptctwo=\pgfive\fi
         \if\endrb\brthree \let\ptcthree=\pgfive\fi
         \if\endrb\brfour \let\ptcfour=\pgfive\fi
         \if\endrb\brfive \let\ptcfive=\pgfive\fi
         \if\endrb\brsix \let\ptcsix=\pgfive\fi
         \if\endrb\brseven \let\ptcseven=\pgfive\fi
         \if\endrb\breight \let\ptceight=\pgfive\fi
         \if\endrb\brnine \let\ptcnine=\pgfive\fi
         \if\endrb\brnull \let\ptcnull=\pgfive\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pgfive\fi
         \if\endrb\brtwo \let\ptdtwo=\pgfive\fi
         \if\endrb\brthree \let\ptdthree=\pgfive\fi
         \if\endrb\brfour \let\ptdfour=\pgfive\fi
         \if\endrb\brfive \let\ptdfive=\pgfive\fi
         \if\endrb\brsix \let\ptdsix=\pgfive\fi
         \if\endrb\brseven \let\ptdseven=\pgfive\fi
         \if\endrb\breight \let\ptdeight=\pgfive\fi
         \if\endrb\brnine \let\ptdnine=\pgfive\fi
         \if\endrb\brnull \let\ptdnull=\pgfive\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pgfive\fi
         \if\endrb\brtwo \let\ptetwo=\pgfive\fi
         \if\endrb\brthree \let\ptethree=\pgfive\fi
         \if\endrb\brfour \let\ptefour=\pgfive\fi
         \if\endrb\brfive \let\ptefive=\pgfive\fi
         \if\endrb\brsix \let\ptesix=\pgfive\fi
         \if\endrb\brseven \let\pteseven=\pgfive\fi
         \if\endrb\breight \let\pteeight=\pgfive\fi
         \if\endrb\brnine \let\ptenine=\pgfive\fi
         \if\endrb\brnull \let\ptenull=\pgfive\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pgfive\fi
         \if\endrb\brtwo \let\ptftwo=\pgfive\fi
         \if\endrb\brthree \let\ptfthree=\pgfive\fi
         \if\endrb\brfour \let\ptffour=\pgfive\fi
         \if\endrb\brfive \let\ptffive=\pgfive\fi
         \if\endrb\brsix \let\ptfsix=\pgfive\fi
         \if\endrb\brseven \let\ptfseven=\pgfive\fi
         \if\endrb\breight \let\ptfeight=\pgfive\fi
         \if\endrb\brnine \let\ptfnine=\pgfive\fi
         \if\endrb\brnull \let\ptfnull=\pgfive\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pgfive\fi
         \if\endrb\brtwo \let\ptgtwo=\pgfive\fi
         \if\endrb\brthree \let\ptgthree=\pgfive\fi
         \if\endrb\brfour \let\ptgfour=\pgfive\fi
         \if\endrb\brfive \let\ptgfive=\pgfive\fi
         \if\endrb\brsix \let\ptgsix=\pgfive\fi
         \if\endrb\brseven \let\ptgseven=\pgfive\fi
         \if\endrb\breight \let\ptgeight=\pgfive\fi
         \if\endrb\brnine \let\ptgnine=\pgfive\fi
         \if\endrb\brnull \let\ptgnull=\pgfive\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pgfive\fi
         \if\endrb\brtwo \let\pthtwo=\pgfive\fi
         \if\endrb\brthree \let\pththree=\pgfive\fi
         \if\endrb\brfour \let\pthfour=\pgfive\fi
         \if\endrb\brfive \let\pthfive=\pgfive\fi
         \if\endrb\brsix \let\pthsix=\pgfive\fi
         \if\endrb\brseven \let\pthseven=\pgfive\fi
         \if\endrb\breight \let\ptheight=\pgfive\fi
         \if\endrb\brnine \let\pthnine=\pgfive\fi
         \if\endrb\brnull \let\pthnull=\pgfive\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pgfive\fi
         \if\endrb\brtwo \let\ptitwo=\pgfive\fi
         \if\endrb\brthree \let\ptithree=\pgfive\fi
         \if\endrb\brfour \let\ptifour=\pgfive\fi
         \if\endrb\brfive \let\ptifive=\pgfive\fi
         \if\endrb\brsix \let\ptisix=\pgfive\fi
         \if\endrb\brseven \let\ptiseven=\pgfive\fi
         \if\endrb\breight \let\ptieight=\pgfive\fi
         \if\endrb\brnine \let\ptinine=\pgfive\fi
         \if\endrb\brnull \let\ptinull=\pgfive\fi\fi\fi   
   \if\startrb\brsix \gsixset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pgsix\fi
         \if\endrb\brtwo \let\ptatwo=\pgsix\fi
         \if\endrb\brthree \let\ptathree=\pgsix\fi
         \if\endrb\brfour \let\ptafour=\pgsix\fi
         \if\endrb\brfive \let\ptafive=\pgsix\fi
         \if\endrb\brsix \let\ptasix=\pgsix\fi
         \if\endrb\brseven \let\ptaseven=\pgsix\fi
         \if\endrb\breight \let\ptaeight=\pgsix\fi
         \if\endrb\brnine \let\ptanine=\pgsix\fi
         \if\endrb\brnull \let\ptanull=\pgsix\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pgsix\fi
         \if\endrb\brtwo \let\ptbtwo=\pgsix\fi
         \if\endrb\brthree \let\ptbthree=\pgsix\fi
         \if\endrb\brfour \let\ptbfour=\pgsix\fi
         \if\endrb\brfive \let\ptbfive=\pgsix\fi
         \if\endrb\brsix \let\ptbsix=\pgsix\fi
         \if\endrb\brseven \let\ptbseven=\pgsix\fi
         \if\endrb\breight \let\ptbeight=\pgsix\fi
         \if\endrb\brnine \let\ptbnine=\pgsix\fi
         \if\endrb\brnull \let\ptbnull=\pgsix\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pgsix\fi
         \if\endrb\brtwo \let\ptctwo=\pgsix\fi
         \if\endrb\brthree \let\ptcthree=\pgsix\fi
         \if\endrb\brfour \let\ptcfour=\pgsix\fi
         \if\endrb\brfive \let\ptcfive=\pgsix\fi
         \if\endrb\brsix \let\ptcsix=\pgsix\fi
         \if\endrb\brseven \let\ptcseven=\pgsix\fi
         \if\endrb\breight \let\ptceight=\pgsix\fi
         \if\endrb\brnine \let\ptcnine=\pgsix\fi
         \if\endrb\brnull \let\ptcnull=\pgsix\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pgsix\fi
         \if\endrb\brtwo \let\ptdtwo=\pgsix\fi
         \if\endrb\brthree \let\ptdthree=\pgsix\fi
         \if\endrb\brfour \let\ptdfour=\pgsix\fi
         \if\endrb\brfive \let\ptdfive=\pgsix\fi
         \if\endrb\brsix \let\ptdsix=\pgsix\fi
         \if\endrb\brseven \let\ptdseven=\pgsix\fi
         \if\endrb\breight \let\ptdeight=\pgsix\fi
         \if\endrb\brnine \let\ptdnine=\pgsix\fi
         \if\endrb\brnull \let\ptdnull=\pgsix\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pgsix\fi
         \if\endrb\brtwo \let\ptetwo=\pgsix\fi
         \if\endrb\brthree \let\ptethree=\pgsix\fi
         \if\endrb\brfour \let\ptefour=\pgsix\fi
         \if\endrb\brfive \let\ptefive=\pgsix\fi
         \if\endrb\brsix \let\ptesix=\pgsix\fi
         \if\endrb\brseven \let\pteseven=\pgsix\fi
         \if\endrb\breight \let\pteeight=\pgsix\fi
         \if\endrb\brnine \let\ptenine=\pgsix\fi
         \if\endrb\brnull \let\ptenull=\pgsix\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pgsix\fi
         \if\endrb\brtwo \let\ptftwo=\pgsix\fi
         \if\endrb\brthree \let\ptfthree=\pgsix\fi
         \if\endrb\brfour \let\ptffour=\pgsix\fi
         \if\endrb\brfive \let\ptffive=\pgsix\fi
         \if\endrb\brsix \let\ptfsix=\pgsix\fi
         \if\endrb\brseven \let\ptfseven=\pgsix\fi
         \if\endrb\breight \let\ptfeight=\pgsix\fi
         \if\endrb\brnine \let\ptfnine=\pgsix\fi
         \if\endrb\brnull \let\ptfnull=\pgsix\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pgsix\fi
         \if\endrb\brtwo \let\ptgtwo=\pgsix\fi
         \if\endrb\brthree \let\ptgthree=\pgsix\fi
         \if\endrb\brfour \let\ptgfour=\pgsix\fi
         \if\endrb\brfive \let\ptgfive=\pgsix\fi
         \if\endrb\brsix \let\ptgsix=\pgsix\fi
         \if\endrb\brseven \let\ptgseven=\pgsix\fi
         \if\endrb\breight \let\ptgeight=\pgsix\fi
         \if\endrb\brnine \let\ptgnine=\pgsix\fi
         \if\endrb\brnull \let\ptgnull=\pgsix\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pgsix\fi
         \if\endrb\brtwo \let\pthtwo=\pgsix\fi
         \if\endrb\brthree \let\pththree=\pgsix\fi
         \if\endrb\brfour \let\pthfour=\pgsix\fi
         \if\endrb\brfive \let\pthfive=\pgsix\fi
         \if\endrb\brsix \let\pthsix=\pgsix\fi
         \if\endrb\brseven \let\pthseven=\pgsix\fi
         \if\endrb\breight \let\ptheight=\pgsix\fi
         \if\endrb\brnine \let\pthnine=\pgsix\fi
         \if\endrb\brnull \let\pthnull=\pgsix\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pgsix\fi
         \if\endrb\brtwo \let\ptitwo=\pgsix\fi
         \if\endrb\brthree \let\ptithree=\pgsix\fi
         \if\endrb\brfour \let\ptifour=\pgsix\fi
         \if\endrb\brfive \let\ptifive=\pgsix\fi
         \if\endrb\brsix \let\ptisix=\pgsix\fi
         \if\endrb\brseven \let\ptiseven=\pgsix\fi
         \if\endrb\breight \let\ptieight=\pgsix\fi
         \if\endrb\brnine \let\ptinine=\pgsix\fi
         \if\endrb\brnull \let\ptinull=\pgsix\fi\fi\fi
   \if\startrb\brseven \gsevenset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pgseven\fi
         \if\endrb\brtwo \let\ptatwo=\pgseven\fi
         \if\endrb\brthree \let\ptathree=\pgseven\fi
         \if\endrb\brfour \let\ptafour=\pgseven\fi
         \if\endrb\brfive \let\ptafive=\pgseven\fi
         \if\endrb\brsix \let\ptasix=\pgseven\fi
         \if\endrb\brseven \let\ptaseven=\pgseven\fi
         \if\endrb\breight \let\ptaeight=\pgseven\fi
         \if\endrb\brnine \let\ptanine=\pgseven\fi
         \if\endrb\brnull \let\ptanull=\pgseven\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pgseven\fi
         \if\endrb\brtwo \let\ptbtwo=\pgseven\fi
         \if\endrb\brthree \let\ptbthree=\pgseven\fi
         \if\endrb\brfour \let\ptbfour=\pgseven\fi
         \if\endrb\brfive \let\ptbfive=\pgseven\fi
         \if\endrb\brsix \let\ptbsix=\pgseven\fi
         \if\endrb\brseven \let\ptbseven=\pgseven\fi
         \if\endrb\breight \let\ptbeight=\pgseven\fi
         \if\endrb\brnine \let\ptbnine=\pgseven\fi
         \if\endrb\brnull \let\ptbnull=\pgseven\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pgseven\fi
         \if\endrb\brtwo \let\ptctwo=\pgseven\fi
         \if\endrb\brthree \let\ptcthree=\pgseven\fi
         \if\endrb\brfour \let\ptcfour=\pgseven\fi
         \if\endrb\brfive \let\ptcfive=\pgseven\fi
         \if\endrb\brsix \let\ptcsix=\pgseven\fi
         \if\endrb\brseven \let\ptcseven=\pgseven\fi
         \if\endrb\breight \let\ptceight=\pgseven\fi
         \if\endrb\brnine \let\ptcnine=\pgseven\fi
         \if\endrb\brnull \let\ptcnull=\pgseven\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pgseven\fi
         \if\endrb\brtwo \let\ptdtwo=\pgseven\fi
         \if\endrb\brthree \let\ptdthree=\pgseven\fi
         \if\endrb\brfour \let\ptdfour=\pgseven\fi
         \if\endrb\brfive \let\ptdfive=\pgseven\fi
         \if\endrb\brsix \let\ptdsix=\pgseven\fi
         \if\endrb\brseven \let\ptdseven=\pgseven\fi
         \if\endrb\breight \let\ptdeight=\pgseven\fi
         \if\endrb\brnine \let\ptdnine=\pgseven\fi
         \if\endrb\brnull \let\ptdnull=\pgseven\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pgseven\fi
         \if\endrb\brtwo \let\ptetwo=\pgseven\fi
         \if\endrb\brthree \let\ptethree=\pgseven\fi
         \if\endrb\brfour \let\ptefour=\pgseven\fi
         \if\endrb\brfive \let\ptefive=\pgseven\fi
         \if\endrb\brsix \let\ptesix=\pgseven\fi
         \if\endrb\brseven \let\pteseven=\pgseven\fi
         \if\endrb\breight \let\pteeight=\pgseven\fi
         \if\endrb\brnine \let\ptenine=\pgseven\fi
         \if\endrb\brnull \let\ptenull=\pgseven\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pgseven\fi
         \if\endrb\brtwo \let\ptftwo=\pgseven\fi
         \if\endrb\brthree \let\ptfthree=\pgseven\fi
         \if\endrb\brfour \let\ptffour=\pgseven\fi
         \if\endrb\brfive \let\ptffive=\pgseven\fi
         \if\endrb\brsix \let\ptfsix=\pgseven\fi
         \if\endrb\brseven \let\ptfseven=\pgseven\fi
         \if\endrb\breight \let\ptfeight=\pgseven\fi
         \if\endrb\brnine \let\ptfnine=\pgseven\fi
         \if\endrb\brnull \let\ptfnull=\pgseven\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pgseven\fi
         \if\endrb\brtwo \let\ptgtwo=\pgseven\fi
         \if\endrb\brthree \let\ptgthree=\pgseven\fi
         \if\endrb\brfour \let\ptgfour=\pgseven\fi
         \if\endrb\brfive \let\ptgfive=\pgseven\fi
         \if\endrb\brsix \let\ptgsix=\pgseven\fi
         \if\endrb\brseven \let\ptgseven=\pgseven\fi
         \if\endrb\breight \let\ptgeight=\pgseven\fi
         \if\endrb\brnine \let\ptgnine=\pgseven\fi
         \if\endrb\brnull \let\ptgnull=\pgseven\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pgseven\fi
         \if\endrb\brtwo \let\pthtwo=\pgseven\fi
         \if\endrb\brthree \let\pththree=\pgseven\fi
         \if\endrb\brfour \let\pthfour=\pgseven\fi
         \if\endrb\brfive \let\pthfive=\pgseven\fi
         \if\endrb\brsix \let\pthsix=\pgseven\fi
         \if\endrb\brseven \let\pthseven=\pgseven\fi
         \if\endrb\breight \let\ptheight=\pgseven\fi
         \if\endrb\brnine \let\pthnine=\pgseven\fi
         \if\endrb\brnull \let\pthnull=\pgseven\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pgseven\fi
         \if\endrb\brtwo \let\ptitwo=\pgseven\fi
         \if\endrb\brthree \let\ptithree=\pgseven\fi
         \if\endrb\brfour \let\ptifour=\pgseven\fi
         \if\endrb\brfive \let\ptifive=\pgseven\fi
         \if\endrb\brsix \let\ptisix=\pgseven\fi
         \if\endrb\brseven \let\ptiseven=\pgseven\fi
         \if\endrb\breight \let\ptieight=\pgseven\fi
         \if\endrb\brnine \let\ptinine=\pgseven\fi
         \if\endrb\brnull \let\ptinull=\pgseven\fi\fi\fi      
   \if\startrb\breight \geightset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pgeight\fi
         \if\endrb\brtwo \let\ptatwo=\pgeight\fi
         \if\endrb\brthree \let\ptathree=\pgeight\fi
         \if\endrb\brfour \let\ptafour=\pgeight\fi
         \if\endrb\brfive \let\ptafive=\pgeight\fi
         \if\endrb\brsix \let\ptasix=\pgeight\fi
         \if\endrb\brseven \let\ptaseven=\pgeight\fi
         \if\endrb\breight \let\ptaeight=\pgeight\fi
         \if\endrb\brnine \let\ptanine=\pgeight\fi
         \if\endrb\brnull \let\ptanull=\pgeight\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pgeight\fi
         \if\endrb\brtwo \let\ptbtwo=\pgeight\fi
         \if\endrb\brthree \let\ptbthree=\pgeight\fi
         \if\endrb\brfour \let\ptbfour=\pgeight\fi
         \if\endrb\brfive \let\ptbfive=\pgeight\fi
         \if\endrb\brsix \let\ptbsix=\pgeight\fi
         \if\endrb\brseven \let\ptbseven=\pgeight\fi
         \if\endrb\breight \let\ptbeight=\pgeight\fi
         \if\endrb\brnine \let\ptbnine=\pgeight\fi
         \if\endrb\brnull \let\ptbnull=\pgeight\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pgeight\fi
         \if\endrb\brtwo \let\ptctwo=\pgeight\fi
         \if\endrb\brthree \let\ptcthree=\pgeight\fi
         \if\endrb\brfour \let\ptcfour=\pgeight\fi
         \if\endrb\brfive \let\ptcfive=\pgeight\fi
         \if\endrb\brsix \let\ptcsix=\pgeight\fi
         \if\endrb\brseven \let\ptcseven=\pgeight\fi
         \if\endrb\breight \let\ptceight=\pgeight\fi
         \if\endrb\brnine \let\ptcnine=\pgeight\fi
         \if\endrb\brnull \let\ptcnull=\pgeight\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pgeight\fi
         \if\endrb\brtwo \let\ptdtwo=\pgeight\fi
         \if\endrb\brthree \let\ptdthree=\pgeight\fi
         \if\endrb\brfour \let\ptdfour=\pgeight\fi
         \if\endrb\brfive \let\ptdfive=\pgeight\fi
         \if\endrb\brsix \let\ptdsix=\pgeight\fi
         \if\endrb\brseven \let\ptdseven=\pgeight\fi
         \if\endrb\breight \let\ptdeight=\pgeight\fi
         \if\endrb\brnine \let\ptdnine=\pgeight\fi
         \if\endrb\brnull \let\ptdnull=\pgeight\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pgeight\fi
         \if\endrb\brtwo \let\ptetwo=\pgeight\fi
         \if\endrb\brthree \let\ptethree=\pgeight\fi
         \if\endrb\brfour \let\ptefour=\pgeight\fi
         \if\endrb\brfive \let\ptefive=\pgeight\fi
         \if\endrb\brsix \let\ptesix=\pgeight\fi
         \if\endrb\brseven \let\pteseven=\pgeight\fi
         \if\endrb\breight \let\pteeight=\pgeight\fi
         \if\endrb\brnine \let\ptenine=\pgeight\fi
         \if\endrb\brnull \let\ptenull=\pgeight\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pgeight\fi
         \if\endrb\brtwo \let\ptftwo=\pgeight\fi
         \if\endrb\brthree \let\ptfthree=\pgeight\fi
         \if\endrb\brfour \let\ptffour=\pgeight\fi
         \if\endrb\brfive \let\ptffive=\pgeight\fi
         \if\endrb\brsix \let\ptfsix=\pgeight\fi
         \if\endrb\brseven \let\ptfseven=\pgeight\fi
         \if\endrb\breight \let\ptfeight=\pgeight\fi
         \if\endrb\brnine \let\ptfnine=\pgeight\fi
         \if\endrb\brnull \let\ptfnull=\pgeight\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pgeight\fi
         \if\endrb\brtwo \let\ptgtwo=\pgeight\fi
         \if\endrb\brthree \let\ptgthree=\pgeight\fi
         \if\endrb\brfour \let\ptgfour=\pgeight\fi
         \if\endrb\brfive \let\ptgfive=\pgeight\fi
         \if\endrb\brsix \let\ptgsix=\pgeight\fi
         \if\endrb\brseven \let\ptgseven=\pgeight\fi
         \if\endrb\breight \let\ptgeight=\pgeight\fi
         \if\endrb\brnine \let\ptgnine=\pgeight\fi
         \if\endrb\brnull \let\ptgnull=\pgeight\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pgeight\fi
         \if\endrb\brtwo \let\pthtwo=\pgeight\fi
         \if\endrb\brthree \let\pththree=\pgeight\fi
         \if\endrb\brfour \let\pthfour=\pgeight\fi
         \if\endrb\brfive \let\pthfive=\pgeight\fi
         \if\endrb\brsix \let\pthsix=\pgeight\fi
         \if\endrb\brseven \let\pthseven=\pgeight\fi
         \if\endrb\breight \let\ptheight=\pgeight\fi
         \if\endrb\brnine \let\pthnine=\pgeight\fi
         \if\endrb\brnull \let\pthnull=\pgeight\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pgeight\fi
         \if\endrb\brtwo \let\ptitwo=\pgeight\fi
         \if\endrb\brthree \let\ptithree=\pgeight\fi
         \if\endrb\brfour \let\ptifour=\pgeight\fi
         \if\endrb\brfive \let\ptifive=\pgeight\fi
         \if\endrb\brsix \let\ptisix=\pgeight\fi
         \if\endrb\brseven \let\ptiseven=\pgeight\fi
         \if\endrb\breight \let\ptieight=\pgeight\fi
         \if\endrb\brnine \let\ptinine=\pgeight\fi
         \if\endrb\brnull \let\ptinull=\pgeight\fi\fi\fi      
   \if\startrb\brnine \gnineset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pgnine\fi
         \if\endrb\brtwo \let\ptatwo=\pgnine\fi
         \if\endrb\brthree \let\ptathree=\pgnine\fi
         \if\endrb\brfour \let\ptafour=\pgnine\fi
         \if\endrb\brfive \let\ptafive=\pgnine\fi
         \if\endrb\brsix \let\ptasix=\pgnine\fi
         \if\endrb\brseven \let\ptaseven=\pgnine\fi
         \if\endrb\breight \let\ptaeight=\pgnine\fi
         \if\endrb\brnine \let\ptanine=\pgnine\fi
         \if\endrb\brnull \let\ptanull=\pgnine\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pgnine\fi
         \if\endrb\brtwo \let\ptbtwo=\pgnine\fi
         \if\endrb\brthree \let\ptbthree=\pgnine\fi
         \if\endrb\brfour \let\ptbfour=\pgnine\fi
         \if\endrb\brfive \let\ptbfive=\pgnine\fi
         \if\endrb\brsix \let\ptbsix=\pgnine\fi
         \if\endrb\brseven \let\ptbseven=\pgnine\fi
         \if\endrb\breight \let\ptbeight=\pgnine\fi
         \if\endrb\brnine \let\ptbnine=\pgnine\fi
         \if\endrb\brnull \let\ptbnull=\pgnine\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pgnine\fi
         \if\endrb\brtwo \let\ptctwo=\pgnine\fi
         \if\endrb\brthree \let\ptcthree=\pgnine\fi
         \if\endrb\brfour \let\ptcfour=\pgnine\fi
         \if\endrb\brfive \let\ptcfive=\pgnine\fi
         \if\endrb\brsix \let\ptcsix=\pgnine\fi
         \if\endrb\brseven \let\ptcseven=\pgnine\fi
         \if\endrb\breight \let\ptceight=\pgnine\fi
         \if\endrb\brnine \let\ptcnine=\pgnine\fi
         \if\endrb\brnull \let\ptcnull=\pgnine\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pgnine\fi
         \if\endrb\brtwo \let\ptdtwo=\pgnine\fi
         \if\endrb\brthree \let\ptdthree=\pgnine\fi
         \if\endrb\brfour \let\ptdfour=\pgnine\fi
         \if\endrb\brfive \let\ptdfive=\pgnine\fi
         \if\endrb\brsix \let\ptdsix=\pgnine\fi
         \if\endrb\brseven \let\ptdseven=\pgnine\fi
         \if\endrb\breight \let\ptdeight=\pgnine\fi
         \if\endrb\brnine \let\ptdnine=\pgnine\fi
         \if\endrb\brnull \let\ptdnull=\pgnine\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pgnine\fi
         \if\endrb\brtwo \let\ptetwo=\pgnine\fi
         \if\endrb\brthree \let\ptethree=\pgnine\fi
         \if\endrb\brfour \let\ptefour=\pgnine\fi
         \if\endrb\brfive \let\ptefive=\pgnine\fi
         \if\endrb\brsix \let\ptesix=\pgnine\fi
         \if\endrb\brseven \let\pteseven=\pgnine\fi
         \if\endrb\breight \let\pteeight=\pgnine\fi
         \if\endrb\brnine \let\ptenine=\pgnine\fi
         \if\endrb\brnull \let\ptenull=\pgnine\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pgnine\fi
         \if\endrb\brtwo \let\ptftwo=\pgnine\fi
         \if\endrb\brthree \let\ptfthree=\pgnine\fi
         \if\endrb\brfour \let\ptffour=\pgnine\fi
         \if\endrb\brfive \let\ptffive=\pgnine\fi
         \if\endrb\brsix \let\ptfsix=\pgnine\fi
         \if\endrb\brseven \let\ptfseven=\pgnine\fi
         \if\endrb\breight \let\ptfeight=\pgnine\fi
         \if\endrb\brnine \let\ptfnine=\pgnine\fi
         \if\endrb\brnull \let\ptfnull=\pgnine\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pgnine\fi
         \if\endrb\brtwo \let\ptgtwo=\pgnine\fi
         \if\endrb\brthree \let\ptgthree=\pgnine\fi
         \if\endrb\brfour \let\ptgfour=\pgnine\fi
         \if\endrb\brfive \let\ptgfive=\pgnine\fi
         \if\endrb\brsix \let\ptgsix=\pgnine\fi
         \if\endrb\brseven \let\ptgseven=\pgnine\fi
         \if\endrb\breight \let\ptgeight=\pgnine\fi
         \if\endrb\brnine \let\ptgnine=\pgnine\fi
         \if\endrb\brnull \let\ptgnull=\pgnine\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pgnine\fi
         \if\endrb\brtwo \let\pthtwo=\pgnine\fi
         \if\endrb\brthree \let\pththree=\pgnine\fi
         \if\endrb\brfour \let\pthfour=\pgnine\fi
         \if\endrb\brfive \let\pthfive=\pgnine\fi
         \if\endrb\brsix \let\pthsix=\pgnine\fi
         \if\endrb\brseven \let\pthseven=\pgnine\fi
         \if\endrb\breight \let\ptheight=\pgnine\fi
         \if\endrb\brnine \let\pthnine=\pgnine\fi
         \if\endrb\brnull \let\pthnull=\pgnine\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pgnine\fi
         \if\endrb\brtwo \let\ptitwo=\pgnine\fi
         \if\endrb\brthree \let\ptithree=\pgnine\fi
         \if\endrb\brfour \let\ptifour=\pgnine\fi
         \if\endrb\brfive \let\ptifive=\pgnine\fi
         \if\endrb\brsix \let\ptisix=\pgnine\fi
         \if\endrb\brseven \let\ptiseven=\pgnine\fi
         \if\endrb\breight \let\ptieight=\pgnine\fi
         \if\endrb\brnine \let\ptinine=\pgnine\fi
         \if\endrb\brnull \let\ptinull=\pgnine\fi\fi\fi      
   \if\startrb\brnull \gnullset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pgnull\fi
         \if\endrb\brtwo \let\ptatwo=\pgnull\fi
         \if\endrb\brthree \let\ptathree=\pgnull\fi
         \if\endrb\brfour \let\ptafour=\pgnull\fi
         \if\endrb\brfive \let\ptafive=\pgnull\fi
         \if\endrb\brsix \let\ptasix=\pgnull\fi
         \if\endrb\brseven \let\ptaseven=\pgnull\fi
         \if\endrb\breight \let\ptaeight=\pgnull\fi
         \if\endrb\brnine \let\ptanine=\pgnull\fi
         \if\endrb\brnull \let\ptanull=\pgnull\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pgnull\fi
         \if\endrb\brtwo \let\ptbtwo=\pgnull\fi
         \if\endrb\brthree \let\ptbthree=\pgnull\fi
         \if\endrb\brfour \let\ptbfour=\pgnull\fi
         \if\endrb\brfive \let\ptbfive=\pgnull\fi
         \if\endrb\brsix \let\ptbsix=\pgnull\fi
         \if\endrb\brseven \let\ptbseven=\pgnull\fi
         \if\endrb\breight \let\ptbeight=\pgnull\fi
         \if\endrb\brnine \let\ptbnine=\pgnull\fi
         \if\endrb\brnull \let\ptbnull=\pgnull\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pgnull\fi
         \if\endrb\brtwo \let\ptctwo=\pgnull\fi
         \if\endrb\brthree \let\ptcthree=\pgnull\fi
         \if\endrb\brfour \let\ptcfour=\pgnull\fi
         \if\endrb\brfive \let\ptcfive=\pgnull\fi
         \if\endrb\brsix \let\ptcsix=\pgnull\fi
         \if\endrb\brseven \let\ptcseven=\pgnull\fi
         \if\endrb\breight \let\ptceight=\pgnull\fi
         \if\endrb\brnine \let\ptcnine=\pgnull\fi
         \if\endrb\brnull \let\ptcnull=\pgnull\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pgnull\fi
         \if\endrb\brtwo \let\ptdtwo=\pgnull\fi
         \if\endrb\brthree \let\ptdthree=\pgnull\fi
         \if\endrb\brfour \let\ptdfour=\pgnull\fi
         \if\endrb\brfive \let\ptdfive=\pgnull\fi
         \if\endrb\brsix \let\ptdsix=\pgnull\fi
         \if\endrb\brseven \let\ptdseven=\pgnull\fi
         \if\endrb\breight \let\ptdeight=\pgnull\fi
         \if\endrb\brnine \let\ptdnine=\pgnull\fi
         \if\endrb\brnull \let\ptdnull=\pgnull\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pgnull\fi
         \if\endrb\brtwo \let\ptetwo=\pgnull\fi
         \if\endrb\brthree \let\ptethree=\pgnull\fi
         \if\endrb\brfour \let\ptefour=\pgnull\fi
         \if\endrb\brfive \let\ptefive=\pgnull\fi
         \if\endrb\brsix \let\ptesix=\pgnull\fi
         \if\endrb\brseven \let\pteseven=\pgnull\fi
         \if\endrb\breight \let\pteeight=\pgnull\fi
         \if\endrb\brnine \let\ptenine=\pgnull\fi
         \if\endrb\brnull \let\ptenull=\pgnull\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pgnull\fi
         \if\endrb\brtwo \let\ptftwo=\pgnull\fi
         \if\endrb\brthree \let\ptfthree=\pgnull\fi
         \if\endrb\brfour \let\ptffour=\pgnull\fi
         \if\endrb\brfive \let\ptffive=\pgnull\fi
         \if\endrb\brsix \let\ptfsix=\pgnull\fi
         \if\endrb\brseven \let\ptfseven=\pgnull\fi
         \if\endrb\breight \let\ptfeight=\pgnull\fi
         \if\endrb\brnine \let\ptfnine=\pgnull\fi
         \if\endrb\brnull \let\ptfnull=\pgnull\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pgnull\fi
         \if\endrb\brtwo \let\ptgtwo=\pgnull\fi
         \if\endrb\brthree \let\ptgthree=\pgnull\fi
         \if\endrb\brfour \let\ptgfour=\pgnull\fi
         \if\endrb\brfive \let\ptgfive=\pgnull\fi
         \if\endrb\brsix \let\ptgsix=\pgnull\fi
         \if\endrb\brseven \let\ptgseven=\pgnull\fi
         \if\endrb\breight \let\ptgeight=\pgnull\fi
         \if\endrb\brnine \let\ptgnine=\pgnull\fi
         \if\endrb\brnull \let\ptgnull=\pgnull\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pgnull\fi
         \if\endrb\brtwo \let\pthtwo=\pgnull\fi
         \if\endrb\brthree \let\pththree=\pgnull\fi
         \if\endrb\brfour \let\pthfour=\pgnull\fi
         \if\endrb\brfive \let\pthfive=\pgnull\fi
         \if\endrb\brsix \let\pthsix=\pgnull\fi
         \if\endrb\brseven \let\pthseven=\pgnull\fi
         \if\endrb\breight \let\ptheight=\pgnull\fi
         \if\endrb\brnine \let\pthnine=\pgnull\fi
         \if\endrb\brnull \let\pthnull=\pgnull\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pgnull\fi
         \if\endrb\brtwo \let\ptitwo=\pgnull\fi
         \if\endrb\brthree \let\ptithree=\pgnull\fi
         \if\endrb\brfour \let\ptifour=\pgnull\fi
         \if\endrb\brfive \let\ptifive=\pgnull\fi
         \if\endrb\brsix \let\ptisix=\pgnull\fi
         \if\endrb\brseven \let\ptiseven=\pgnull\fi
         \if\endrb\breight \let\ptieight=\pgnull\fi
         \if\endrb\brnine \let\ptinine=\pgnull\fi
         \if\endrb\brnull \let\ptinull=\pgnull\fi\fi\fi\fi  
\if\startlb\hli
   \if\startrb\brone \honeset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\phone\fi
         \if\endrb\brtwo \let\ptatwo=\phone\fi
         \if\endrb\brthree \let\ptathree=\phone\fi
         \if\endrb\brfour \let\ptafour=\phone\fi
         \if\endrb\brfive \let\ptafive=\phone\fi
         \if\endrb\brsix \let\ptasix=\phone\fi
         \if\endrb\brseven \let\ptaseven=\phone\fi
         \if\endrb\breight \let\ptaeight=\phone\fi
         \if\endrb\brnine \let\ptanine=\phone\fi
         \if\endrb\brnull \let\ptanull=\phone\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\phone\fi
         \if\endrb\brtwo \let\ptbtwo=\phone\fi
         \if\endrb\brthree \let\ptbthree=\phone\fi
         \if\endrb\brfour \let\ptbfour=\phone\fi
         \if\endrb\brfive \let\ptbfive=\phone\fi
         \if\endrb\brsix \let\ptbsix=\phone\fi
         \if\endrb\brseven \let\ptbseven=\phone\fi
         \if\endrb\breight \let\ptbeight=\phone\fi
         \if\endrb\brnine \let\ptbnine=\phone\fi
         \if\endrb\brnull \let\ptbnull=\phone\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\phone\fi
         \if\endrb\brtwo \let\ptctwo=\phone\fi
         \if\endrb\brthree \let\ptcthree=\phone\fi
         \if\endrb\brfour \let\ptcfour=\phone\fi
         \if\endrb\brfive \let\ptcfive=\phone\fi
         \if\endrb\brsix \let\ptcsix=\phone\fi
         \if\endrb\brseven \let\ptcseven=\phone\fi
         \if\endrb\breight \let\ptceight=\phone\fi
         \if\endrb\brnine \let\ptcnine=\phone\fi
         \if\endrb\brnull \let\ptcnull=\phone\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\phone\fi
         \if\endrb\brtwo \let\ptdtwo=\phone\fi
         \if\endrb\brthree \let\ptdthree=\phone\fi
         \if\endrb\brfour \let\ptdfour=\phone\fi
         \if\endrb\brfive \let\ptdfive=\phone\fi
         \if\endrb\brsix \let\ptdsix=\phone\fi
         \if\endrb\brseven \let\ptdseven=\phone\fi
         \if\endrb\breight \let\ptdeight=\phone\fi
         \if\endrb\brnine \let\ptdnine=\phone\fi
         \if\endrb\brnull \let\ptdnull=\phone\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\phone\fi
         \if\endrb\brtwo \let\ptetwo=\phone\fi
         \if\endrb\brthree \let\ptethree=\phone\fi
         \if\endrb\brfour \let\ptefour=\phone\fi
         \if\endrb\brfive \let\ptefive=\phone\fi
         \if\endrb\brsix \let\ptesix=\phone\fi
         \if\endrb\brseven \let\pteseven=\phone\fi
         \if\endrb\breight \let\pteeight=\phone\fi
         \if\endrb\brnine \let\ptenine=\phone\fi
         \if\endrb\brnull \let\ptenull=\phone\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\phone\fi
         \if\endrb\brtwo \let\ptftwo=\phone\fi
         \if\endrb\brthree \let\ptfthree=\phone\fi
         \if\endrb\brfour \let\ptffour=\phone\fi
         \if\endrb\brfive \let\ptffive=\phone\fi
         \if\endrb\brsix \let\ptfsix=\phone\fi
         \if\endrb\brseven \let\ptfseven=\phone\fi
         \if\endrb\breight \let\ptfeight=\phone\fi
         \if\endrb\brnine \let\ptfnine=\phone\fi
         \if\endrb\brnull \let\ptfnull=\phone\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\phone\fi
         \if\endrb\brtwo \let\ptgtwo=\phone\fi
         \if\endrb\brthree \let\ptgthree=\phone\fi
         \if\endrb\brfour \let\ptgfour=\phone\fi
         \if\endrb\brfive \let\ptgfive=\phone\fi
         \if\endrb\brsix \let\ptgsix=\phone\fi
         \if\endrb\brseven \let\ptgseven=\phone\fi
         \if\endrb\breight \let\ptgeight=\phone\fi
         \if\endrb\brnine \let\ptgnine=\phone\fi
         \if\endrb\brnull \let\ptgnull=\phone\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\phone\fi
         \if\endrb\brtwo \let\pthtwo=\phone\fi
         \if\endrb\brthree \let\pththree=\phone\fi
         \if\endrb\brfour \let\pthfour=\phone\fi
         \if\endrb\brfive \let\pthfive=\phone\fi
         \if\endrb\brsix \let\pthsix=\phone\fi
         \if\endrb\brseven \let\pthseven=\phone\fi
         \if\endrb\breight \let\ptheight=\phone\fi
         \if\endrb\brnine \let\pthnine=\phone\fi
         \if\endrb\brnull \let\pthnull=\phone\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\phone\fi
         \if\endrb\brtwo \let\ptitwo=\phone\fi
         \if\endrb\brthree \let\ptithree=\phone\fi
         \if\endrb\brfour \let\ptifour=\phone\fi
         \if\endrb\brfive \let\ptifive=\phone\fi
         \if\endrb\brsix \let\ptisix=\phone\fi
         \if\endrb\brseven \let\ptiseven=\phone\fi
         \if\endrb\breight \let\ptieight=\phone\fi
         \if\endrb\brnine \let\ptinine=\phone\fi
         \if\endrb\brnull \let\ptinull=\phone\fi\fi\fi      
   \if\startrb\brtwo \htwoset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\phtwo\fi
         \if\endrb\brtwo \let\ptatwo=\phtwo\fi
         \if\endrb\brthree \let\ptathree=\phtwo\fi
         \if\endrb\brfour \let\ptafour=\phtwo\fi
         \if\endrb\brfive \let\ptafive=\phtwo\fi
         \if\endrb\brsix \let\ptasix=\phtwo\fi
         \if\endrb\brseven \let\ptaseven=\phtwo\fi
         \if\endrb\breight \let\ptaeight=\phtwo\fi
         \if\endrb\brnine \let\ptanine=\phtwo\fi
         \if\endrb\brnull \let\ptanull=\phtwo\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\phtwo\fi
         \if\endrb\brtwo \let\ptbtwo=\phtwo\fi
         \if\endrb\brthree \let\ptbthree=\phtwo\fi
         \if\endrb\brfour \let\ptbfour=\phtwo\fi
         \if\endrb\brfive \let\ptbfive=\phtwo\fi
         \if\endrb\brsix \let\ptbsix=\phtwo\fi
         \if\endrb\brseven \let\ptbseven=\phtwo\fi
         \if\endrb\breight \let\ptbeight=\phtwo\fi
         \if\endrb\brnine \let\ptbnine=\phtwo\fi
         \if\endrb\brnull \let\ptbnull=\phtwo\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\phtwo\fi
         \if\endrb\brtwo \let\ptctwo=\phtwo\fi
         \if\endrb\brthree \let\ptcthree=\phtwo\fi
         \if\endrb\brfour \let\ptcfour=\phtwo\fi
         \if\endrb\brfive \let\ptcfive=\phtwo\fi
         \if\endrb\brsix \let\ptcsix=\phtwo\fi
         \if\endrb\brseven \let\ptcseven=\phtwo\fi
         \if\endrb\breight \let\ptceight=\phtwo\fi
         \if\endrb\brnine \let\ptcnine=\phtwo\fi
         \if\endrb\brnull \let\ptcnull=\phtwo\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\phtwo\fi
         \if\endrb\brtwo \let\ptdtwo=\phtwo\fi
         \if\endrb\brthree \let\ptdthree=\phtwo\fi
         \if\endrb\brfour \let\ptdfour=\phtwo\fi
         \if\endrb\brfive \let\ptdfive=\phtwo\fi
         \if\endrb\brsix \let\ptdsix=\phtwo\fi
         \if\endrb\brseven \let\ptdseven=\phtwo\fi
         \if\endrb\breight \let\ptdeight=\phtwo\fi
         \if\endrb\brnine \let\ptdnine=\phtwo\fi
         \if\endrb\brnull \let\ptdnull=\phtwo\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\phtwo\fi
         \if\endrb\brtwo \let\ptetwo=\phtwo\fi
         \if\endrb\brthree \let\ptethree=\phtwo\fi
         \if\endrb\brfour \let\ptefour=\phtwo\fi
         \if\endrb\brfive \let\ptefive=\phtwo\fi
         \if\endrb\brsix \let\ptesix=\phtwo\fi
         \if\endrb\brseven \let\pteseven=\phtwo\fi
         \if\endrb\breight \let\pteeight=\phtwo\fi
         \if\endrb\brnine \let\ptenine=\phtwo\fi
         \if\endrb\brnull \let\ptenull=\phtwo\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\phtwo\fi
         \if\endrb\brtwo \let\ptftwo=\phtwo\fi
         \if\endrb\brthree \let\ptfthree=\phtwo\fi
         \if\endrb\brfour \let\ptffour=\phtwo\fi
         \if\endrb\brfive \let\ptffive=\phtwo\fi
         \if\endrb\brsix \let\ptfsix=\phtwo\fi
         \if\endrb\brseven \let\ptfseven=\phtwo\fi
         \if\endrb\breight \let\ptfeight=\phtwo\fi
         \if\endrb\brnine \let\ptfnine=\phtwo\fi
         \if\endrb\brnull \let\ptfnull=\phtwo\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\phtwo\fi
         \if\endrb\brtwo \let\ptgtwo=\phtwo\fi
         \if\endrb\brthree \let\ptgthree=\phtwo\fi
         \if\endrb\brfour \let\ptgfour=\phtwo\fi
         \if\endrb\brfive \let\ptgfive=\phtwo\fi
         \if\endrb\brsix \let\ptgsix=\phtwo\fi
         \if\endrb\brseven \let\ptgseven=\phtwo\fi
         \if\endrb\breight \let\ptgeight=\phtwo\fi
         \if\endrb\brnine \let\ptgnine=\phtwo\fi
         \if\endrb\brnull \let\ptgnull=\phtwo\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\phtwo\fi
         \if\endrb\brtwo \let\pthtwo=\phtwo\fi
         \if\endrb\brthree \let\pththree=\phtwo\fi
         \if\endrb\brfour \let\pthfour=\phtwo\fi
         \if\endrb\brfive \let\pthfive=\phtwo\fi
         \if\endrb\brsix \let\pthsix=\phtwo\fi
         \if\endrb\brseven \let\pthseven=\phtwo\fi
         \if\endrb\breight \let\ptheight=\phtwo\fi
         \if\endrb\brnine \let\pthnine=\phtwo\fi
         \if\endrb\brnull \let\pthnull=\phtwo\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\phtwo\fi
         \if\endrb\brtwo \let\ptitwo=\phtwo\fi
         \if\endrb\brthree \let\ptithree=\phtwo\fi
         \if\endrb\brfour \let\ptifour=\phtwo\fi
         \if\endrb\brfive \let\ptifive=\phtwo\fi
         \if\endrb\brsix \let\ptisix=\phtwo\fi
         \if\endrb\brseven \let\ptiseven=\phtwo\fi
         \if\endrb\breight \let\ptieight=\phtwo\fi
         \if\endrb\brnine \let\ptinine=\phtwo\fi
         \if\endrb\brnull \let\ptinull=\phtwo\fi\fi\fi
   \if\startrb\brthree \hthreeset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\phthree\fi
         \if\endrb\brtwo \let\ptatwo=\phthree\fi
         \if\endrb\brthree \let\ptathree=\phthree\fi
         \if\endrb\brfour \let\ptafour=\phthree\fi
         \if\endrb\brfive \let\ptafive=\phthree\fi
         \if\endrb\brsix \let\ptasix=\phthree\fi
         \if\endrb\brseven \let\ptaseven=\phthree\fi
         \if\endrb\breight \let\ptaeight=\phthree\fi
         \if\endrb\brnine \let\ptanine=\phthree\fi
         \if\endrb\brnull \let\ptanull=\phthree\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\phthree\fi
         \if\endrb\brtwo \let\ptbtwo=\phthree\fi
         \if\endrb\brthree \let\ptbthree=\phthree\fi
         \if\endrb\brfour \let\ptbfour=\phthree\fi
         \if\endrb\brfive \let\ptbfive=\phthree\fi
         \if\endrb\brsix \let\ptbsix=\phthree\fi
         \if\endrb\brseven \let\ptbseven=\phthree\fi
         \if\endrb\breight \let\ptbeight=\phthree\fi
         \if\endrb\brnine \let\ptbnine=\phthree\fi
         \if\endrb\brnull \let\ptbnull=\phthree\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\phthree\fi
         \if\endrb\brtwo \let\ptctwo=\phthree\fi
         \if\endrb\brthree \let\ptcthree=\phthree\fi
         \if\endrb\brfour \let\ptcfour=\phthree\fi
         \if\endrb\brfive \let\ptcfive=\phthree\fi
         \if\endrb\brsix \let\ptcsix=\phthree\fi
         \if\endrb\brseven \let\ptcseven=\phthree\fi
         \if\endrb\breight \let\ptceight=\phthree\fi
         \if\endrb\brnine \let\ptcnine=\phthree\fi
         \if\endrb\brnull \let\ptcnull=\phthree\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\phthree\fi
         \if\endrb\brtwo \let\ptdtwo=\phthree\fi
         \if\endrb\brthree \let\ptdthree=\phthree\fi
         \if\endrb\brfour \let\ptdfour=\phthree\fi
         \if\endrb\brfive \let\ptdfive=\phthree\fi
         \if\endrb\brsix \let\ptdsix=\phthree\fi
         \if\endrb\brseven \let\ptdseven=\phthree\fi
         \if\endrb\breight \let\ptdeight=\phthree\fi
         \if\endrb\brnine \let\ptdnine=\phthree\fi
         \if\endrb\brnull \let\ptdnull=\phthree\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\phthree\fi
         \if\endrb\brtwo \let\ptetwo=\phthree\fi
         \if\endrb\brthree \let\ptethree=\phthree\fi
         \if\endrb\brfour \let\ptefour=\phthree\fi
         \if\endrb\brfive \let\ptefive=\phthree\fi
         \if\endrb\brsix \let\ptesix=\phthree\fi
         \if\endrb\brseven \let\pteseven=\phthree\fi
         \if\endrb\breight \let\pteeight=\phthree\fi
         \if\endrb\brnine \let\ptenine=\phthree\fi
         \if\endrb\brnull \let\ptenull=\phthree\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\phthree\fi
         \if\endrb\brtwo \let\ptftwo=\phthree\fi
         \if\endrb\brthree \let\ptfthree=\phthree\fi
         \if\endrb\brfour \let\ptffour=\phthree\fi
         \if\endrb\brfive \let\ptffive=\phthree\fi
         \if\endrb\brsix \let\ptfsix=\phthree\fi
         \if\endrb\brseven \let\ptfseven=\phthree\fi
         \if\endrb\breight \let\ptfeight=\phthree\fi
         \if\endrb\brnine \let\ptfnine=\phthree\fi
         \if\endrb\brnull \let\ptfnull=\phthree\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\phthree\fi
         \if\endrb\brtwo \let\ptgtwo=\phthree\fi
         \if\endrb\brthree \let\ptgthree=\phthree\fi
         \if\endrb\brfour \let\ptgfour=\phthree\fi
         \if\endrb\brfive \let\ptgfive=\phthree\fi
         \if\endrb\brsix \let\ptgsix=\phthree\fi
         \if\endrb\brseven \let\ptgseven=\phthree\fi
         \if\endrb\breight \let\ptgeight=\phthree\fi
         \if\endrb\brnine \let\ptgnine=\phthree\fi
         \if\endrb\brnull \let\ptgnull=\phthree\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\phthree\fi
         \if\endrb\brtwo \let\pthtwo=\phthree\fi
         \if\endrb\brthree \let\pththree=\phthree\fi
         \if\endrb\brfour \let\pthfour=\phthree\fi
         \if\endrb\brfive \let\pthfive=\phthree\fi
         \if\endrb\brsix \let\pthsix=\phthree\fi
         \if\endrb\brseven \let\pthseven=\phthree\fi
         \if\endrb\breight \let\ptheight=\phthree\fi
         \if\endrb\brnine \let\pthnine=\phthree\fi
         \if\endrb\brnull \let\pthnull=\phthree\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\phthree\fi
         \if\endrb\brtwo \let\ptitwo=\phthree\fi
         \if\endrb\brthree \let\ptithree=\phthree\fi
         \if\endrb\brfour \let\ptifour=\phthree\fi
         \if\endrb\brfive \let\ptifive=\phthree\fi
         \if\endrb\brsix \let\ptisix=\phthree\fi
         \if\endrb\brseven \let\ptiseven=\phthree\fi
         \if\endrb\breight \let\ptieight=\phthree\fi
         \if\endrb\brnine \let\ptinine=\phthree\fi
         \if\endrb\brnull \let\ptinull=\phthree\fi\fi\fi      
   \if\startrb\brfour \hfourset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\phfour\fi
         \if\endrb\brtwo \let\ptatwo=\phfour\fi
         \if\endrb\brthree \let\ptathree=\phfour\fi
         \if\endrb\brfour \let\ptafour=\phfour\fi
         \if\endrb\brfive \let\ptafive=\phfour\fi
         \if\endrb\brsix \let\ptasix=\phfour\fi
         \if\endrb\brseven \let\ptaseven=\phfour\fi
         \if\endrb\breight \let\ptaeight=\phfour\fi
         \if\endrb\brnine \let\ptanine=\phfour\fi
         \if\endrb\brnull \let\ptanull=\phfour\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\phfour\fi
         \if\endrb\brtwo \let\ptbtwo=\phfour\fi
         \if\endrb\brthree \let\ptbthree=\phfour\fi
         \if\endrb\brfour \let\ptbfour=\phfour\fi
         \if\endrb\brfive \let\ptbfive=\phfour\fi
         \if\endrb\brsix \let\ptbsix=\phfour\fi
         \if\endrb\brseven \let\ptbseven=\phfour\fi
         \if\endrb\breight \let\ptbeight=\phfour\fi
         \if\endrb\brnine \let\ptbnine=\phfour\fi
         \if\endrb\brnull \let\ptbnull=\phfour\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\phfour\fi
         \if\endrb\brtwo \let\ptctwo=\phfour\fi
         \if\endrb\brthree \let\ptcthree=\phfour\fi
         \if\endrb\brfour \let\ptcfour=\phfour\fi
         \if\endrb\brfive \let\ptcfive=\phfour\fi
         \if\endrb\brsix \let\ptcsix=\phfour\fi
         \if\endrb\brseven \let\ptcseven=\phfour\fi
         \if\endrb\breight \let\ptceight=\phfour\fi
         \if\endrb\brnine \let\ptcnine=\phfour\fi
         \if\endrb\brnull \let\ptcnull=\phfour\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\phfour\fi
         \if\endrb\brtwo \let\ptdtwo=\phfour\fi
         \if\endrb\brthree \let\ptdthree=\phfour\fi
         \if\endrb\brfour \let\ptdfour=\phfour\fi
         \if\endrb\brfive \let\ptdfive=\phfour\fi
         \if\endrb\brsix \let\ptdsix=\phfour\fi
         \if\endrb\brseven \let\ptdseven=\phfour\fi
         \if\endrb\breight \let\ptdeight=\phfour\fi
         \if\endrb\brnine \let\ptdnine=\phfour\fi
         \if\endrb\brnull \let\ptdnull=\phfour\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\phfour\fi
         \if\endrb\brtwo \let\ptetwo=\phfour\fi
         \if\endrb\brthree \let\ptethree=\phfour\fi
         \if\endrb\brfour \let\ptefour=\phfour\fi
         \if\endrb\brfive \let\ptefive=\phfour\fi
         \if\endrb\brsix \let\ptesix=\phfour\fi
         \if\endrb\brseven \let\pteseven=\phfour\fi
         \if\endrb\breight \let\pteeight=\phfour\fi
         \if\endrb\brnine \let\ptenine=\phfour\fi
         \if\endrb\brnull \let\ptenull=\phfour\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\phfour\fi
         \if\endrb\brtwo \let\ptftwo=\phfour\fi
         \if\endrb\brthree \let\ptfthree=\phfour\fi
         \if\endrb\brfour \let\ptffour=\phfour\fi
         \if\endrb\brfive \let\ptffive=\phfour\fi
         \if\endrb\brsix \let\ptfsix=\phfour\fi
         \if\endrb\brseven \let\ptfseven=\phfour\fi
         \if\endrb\breight \let\ptfeight=\phfour\fi
         \if\endrb\brnine \let\ptfnine=\phfour\fi
         \if\endrb\brnull \let\ptfnull=\phfour\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\phfour\fi
         \if\endrb\brtwo \let\ptgtwo=\phfour\fi
         \if\endrb\brthree \let\ptgthree=\phfour\fi
         \if\endrb\brfour \let\ptgfour=\phfour\fi
         \if\endrb\brfive \let\ptgfive=\phfour\fi
         \if\endrb\brsix \let\ptgsix=\phfour\fi
         \if\endrb\brseven \let\ptgseven=\phfour\fi
         \if\endrb\breight \let\ptgeight=\phfour\fi
         \if\endrb\brnine \let\ptgnine=\phfour\fi
         \if\endrb\brnull \let\ptgnull=\phfour\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\phfour\fi
         \if\endrb\brtwo \let\pthtwo=\phfour\fi
         \if\endrb\brthree \let\pththree=\phfour\fi
         \if\endrb\brfour \let\pthfour=\phfour\fi
         \if\endrb\brfive \let\pthfive=\phfour\fi
         \if\endrb\brsix \let\pthsix=\phfour\fi
         \if\endrb\brseven \let\pthseven=\phfour\fi
         \if\endrb\breight \let\ptheight=\phfour\fi
         \if\endrb\brnine \let\pthnine=\phfour\fi
         \if\endrb\brnull \let\pthnull=\phfour\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\phfour\fi
         \if\endrb\brtwo \let\ptitwo=\phfour\fi
         \if\endrb\brthree \let\ptithree=\phfour\fi
         \if\endrb\brfour \let\ptifour=\phfour\fi
         \if\endrb\brfive \let\ptifive=\phfour\fi
         \if\endrb\brsix \let\ptisix=\phfour\fi
         \if\endrb\brseven \let\ptiseven=\phfour\fi
         \if\endrb\breight \let\ptieight=\phfour\fi
         \if\endrb\brnine \let\ptinine=\phfour\fi
         \if\endrb\brnull \let\ptinull=\phfour\fi\fi\fi      
   \if\startrb\brfive \hfiveset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\phfive\fi
         \if\endrb\brtwo \let\ptatwo=\phfive\fi
         \if\endrb\brthree \let\ptathree=\phfive\fi
         \if\endrb\brfour \let\ptafour=\phfive\fi
         \if\endrb\brfive \let\ptafive=\phfive\fi
         \if\endrb\brsix \let\ptasix=\phfive\fi
         \if\endrb\brseven \let\ptaseven=\phfive\fi
         \if\endrb\breight \let\ptaeight=\phfive\fi
         \if\endrb\brnine \let\ptanine=\phfive\fi
         \if\endrb\brnull \let\ptanull=\phfive\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\phfive\fi
         \if\endrb\brtwo \let\ptbtwo=\phfive\fi
         \if\endrb\brthree \let\ptbthree=\phfive\fi
         \if\endrb\brfour \let\ptbfour=\phfive\fi
         \if\endrb\brfive \let\ptbfive=\phfive\fi
         \if\endrb\brsix \let\ptbsix=\phfive\fi
         \if\endrb\brseven \let\ptbseven=\phfive\fi
         \if\endrb\breight \let\ptbeight=\phfive\fi
         \if\endrb\brnine \let\ptbnine=\phfive\fi
         \if\endrb\brnull \let\ptbnull=\phfive\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\phfive\fi
         \if\endrb\brtwo \let\ptctwo=\phfive\fi
         \if\endrb\brthree \let\ptcthree=\phfive\fi
         \if\endrb\brfour \let\ptcfour=\phfive\fi
         \if\endrb\brfive \let\ptcfive=\phfive\fi
         \if\endrb\brsix \let\ptcsix=\phfive\fi
         \if\endrb\brseven \let\ptcseven=\phfive\fi
         \if\endrb\breight \let\ptceight=\phfive\fi
         \if\endrb\brnine \let\ptcnine=\phfive\fi
         \if\endrb\brnull \let\ptcnull=\phfive\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\phfive\fi
         \if\endrb\brtwo \let\ptdtwo=\phfive\fi
         \if\endrb\brthree \let\ptdthree=\phfive\fi
         \if\endrb\brfour \let\ptdfour=\phfive\fi
         \if\endrb\brfive \let\ptdfive=\phfive\fi
         \if\endrb\brsix \let\ptdsix=\phfive\fi
         \if\endrb\brseven \let\ptdseven=\phfive\fi
         \if\endrb\breight \let\ptdeight=\phfive\fi
         \if\endrb\brnine \let\ptdnine=\phfive\fi
         \if\endrb\brnull \let\ptdnull=\phfive\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\phfive\fi
         \if\endrb\brtwo \let\ptetwo=\phfive\fi
         \if\endrb\brthree \let\ptethree=\phfive\fi
         \if\endrb\brfour \let\ptefour=\phfive\fi
         \if\endrb\brfive \let\ptefive=\phfive\fi
         \if\endrb\brsix \let\ptesix=\phfive\fi
         \if\endrb\brseven \let\pteseven=\phfive\fi
         \if\endrb\breight \let\pteeight=\phfive\fi
         \if\endrb\brnine \let\ptenine=\phfive\fi
         \if\endrb\brnull \let\ptenull=\phfive\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\phfive\fi
         \if\endrb\brtwo \let\ptftwo=\phfive\fi
         \if\endrb\brthree \let\ptfthree=\phfive\fi
         \if\endrb\brfour \let\ptffour=\phfive\fi
         \if\endrb\brfive \let\ptffive=\phfive\fi
         \if\endrb\brsix \let\ptfsix=\phfive\fi
         \if\endrb\brseven \let\ptfseven=\phfive\fi
         \if\endrb\breight \let\ptfeight=\phfive\fi
         \if\endrb\brnine \let\ptfnine=\phfive\fi
         \if\endrb\brnull \let\ptfnull=\phfive\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\phfive\fi
         \if\endrb\brtwo \let\ptgtwo=\phfive\fi
         \if\endrb\brthree \let\ptgthree=\phfive\fi
         \if\endrb\brfour \let\ptgfour=\phfive\fi
         \if\endrb\brfive \let\ptgfive=\phfive\fi
         \if\endrb\brsix \let\ptgsix=\phfive\fi
         \if\endrb\brseven \let\ptgseven=\phfive\fi
         \if\endrb\breight \let\ptgeight=\phfive\fi
         \if\endrb\brnine \let\ptgnine=\phfive\fi
         \if\endrb\brnull \let\ptgnull=\phfive\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\phfive\fi
         \if\endrb\brtwo \let\pthtwo=\phfive\fi
         \if\endrb\brthree \let\pththree=\phfive\fi
         \if\endrb\brfour \let\pthfour=\phfive\fi
         \if\endrb\brfive \let\pthfive=\phfive\fi
         \if\endrb\brsix \let\pthsix=\phfive\fi
         \if\endrb\brseven \let\pthseven=\phfive\fi
         \if\endrb\breight \let\ptheight=\phfive\fi
         \if\endrb\brnine \let\pthnine=\phfive\fi
         \if\endrb\brnull \let\pthnull=\phfive\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\phfive\fi
         \if\endrb\brtwo \let\ptitwo=\phfive\fi
         \if\endrb\brthree \let\ptithree=\phfive\fi
         \if\endrb\brfour \let\ptifour=\phfive\fi
         \if\endrb\brfive \let\ptifive=\phfive\fi
         \if\endrb\brsix \let\ptisix=\phfive\fi
         \if\endrb\brseven \let\ptiseven=\phfive\fi
         \if\endrb\breight \let\ptieight=\phfive\fi
         \if\endrb\brnine \let\ptinine=\phfive\fi
         \if\endrb\brnull \let\ptinull=\phfive\fi\fi\fi   
   \if\startrb\brsix \hsixset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\phsix\fi
         \if\endrb\brtwo \let\ptatwo=\phsix\fi
         \if\endrb\brthree \let\ptathree=\phsix\fi
         \if\endrb\brfour \let\ptafour=\phsix\fi
         \if\endrb\brfive \let\ptafive=\phsix\fi
         \if\endrb\brsix \let\ptasix=\phsix\fi
         \if\endrb\brseven \let\ptaseven=\phsix\fi
         \if\endrb\breight \let\ptaeight=\phsix\fi
         \if\endrb\brnine \let\ptanine=\phsix\fi
         \if\endrb\brnull \let\ptanull=\phsix\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\phsix\fi
         \if\endrb\brtwo \let\ptbtwo=\phsix\fi
         \if\endrb\brthree \let\ptbthree=\phsix\fi
         \if\endrb\brfour \let\ptbfour=\phsix\fi
         \if\endrb\brfive \let\ptbfive=\phsix\fi
         \if\endrb\brsix \let\ptbsix=\phsix\fi
         \if\endrb\brseven \let\ptbseven=\phsix\fi
         \if\endrb\breight \let\ptbeight=\phsix\fi
         \if\endrb\brnine \let\ptbnine=\phsix\fi
         \if\endrb\brnull \let\ptbnull=\phsix\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\phsix\fi
         \if\endrb\brtwo \let\ptctwo=\phsix\fi
         \if\endrb\brthree \let\ptcthree=\phsix\fi
         \if\endrb\brfour \let\ptcfour=\phsix\fi
         \if\endrb\brfive \let\ptcfive=\phsix\fi
         \if\endrb\brsix \let\ptcsix=\phsix\fi
         \if\endrb\brseven \let\ptcseven=\phsix\fi
         \if\endrb\breight \let\ptceight=\phsix\fi
         \if\endrb\brnine \let\ptcnine=\phsix\fi
         \if\endrb\brnull \let\ptcnull=\phsix\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\phsix\fi
         \if\endrb\brtwo \let\ptdtwo=\phsix\fi
         \if\endrb\brthree \let\ptdthree=\phsix\fi
         \if\endrb\brfour \let\ptdfour=\phsix\fi
         \if\endrb\brfive \let\ptdfive=\phsix\fi
         \if\endrb\brsix \let\ptdsix=\phsix\fi
         \if\endrb\brseven \let\ptdseven=\phsix\fi
         \if\endrb\breight \let\ptdeight=\phsix\fi
         \if\endrb\brnine \let\ptdnine=\phsix\fi
         \if\endrb\brnull \let\ptdnull=\phsix\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\phsix\fi
         \if\endrb\brtwo \let\ptetwo=\phsix\fi
         \if\endrb\brthree \let\ptethree=\phsix\fi
         \if\endrb\brfour \let\ptefour=\phsix\fi
         \if\endrb\brfive \let\ptefive=\phsix\fi
         \if\endrb\brsix \let\ptesix=\phsix\fi
         \if\endrb\brseven \let\pteseven=\phsix\fi
         \if\endrb\breight \let\pteeight=\phsix\fi
         \if\endrb\brnine \let\ptenine=\phsix\fi
         \if\endrb\brnull \let\ptenull=\phsix\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\phsix\fi
         \if\endrb\brtwo \let\ptftwo=\phsix\fi
         \if\endrb\brthree \let\ptfthree=\phsix\fi
         \if\endrb\brfour \let\ptffour=\phsix\fi
         \if\endrb\brfive \let\ptffive=\phsix\fi
         \if\endrb\brsix \let\ptfsix=\phsix\fi
         \if\endrb\brseven \let\ptfseven=\phsix\fi
         \if\endrb\breight \let\ptfeight=\phsix\fi
         \if\endrb\brnine \let\ptfnine=\phsix\fi
         \if\endrb\brnull \let\ptfnull=\phsix\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\phsix\fi
         \if\endrb\brtwo \let\ptgtwo=\phsix\fi
         \if\endrb\brthree \let\ptgthree=\phsix\fi
         \if\endrb\brfour \let\ptgfour=\phsix\fi
         \if\endrb\brfive \let\ptgfive=\phsix\fi
         \if\endrb\brsix \let\ptgsix=\phsix\fi
         \if\endrb\brseven \let\ptgseven=\phsix\fi
         \if\endrb\breight \let\ptgeight=\phsix\fi
         \if\endrb\brnine \let\ptgnine=\phsix\fi
         \if\endrb\brnull \let\ptgnull=\phsix\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\phsix\fi
         \if\endrb\brtwo \let\pthtwo=\phsix\fi
         \if\endrb\brthree \let\pththree=\phsix\fi
         \if\endrb\brfour \let\pthfour=\phsix\fi
         \if\endrb\brfive \let\pthfive=\phsix\fi
         \if\endrb\brsix \let\pthsix=\phsix\fi
         \if\endrb\brseven \let\pthseven=\phsix\fi
         \if\endrb\breight \let\ptheight=\phsix\fi
         \if\endrb\brnine \let\pthnine=\phsix\fi
         \if\endrb\brnull \let\pthnull=\phsix\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\phsix\fi
         \if\endrb\brtwo \let\ptitwo=\phsix\fi
         \if\endrb\brthree \let\ptithree=\phsix\fi
         \if\endrb\brfour \let\ptifour=\phsix\fi
         \if\endrb\brfive \let\ptifive=\phsix\fi
         \if\endrb\brsix \let\ptisix=\phsix\fi
         \if\endrb\brseven \let\ptiseven=\phsix\fi
         \if\endrb\breight \let\ptieight=\phsix\fi
         \if\endrb\brnine \let\ptinine=\phsix\fi
         \if\endrb\brnull \let\ptinull=\phsix\fi\fi\fi
   \if\startrb\brseven \hsevenset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\phseven\fi
         \if\endrb\brtwo \let\ptatwo=\phseven\fi
         \if\endrb\brthree \let\ptathree=\phseven\fi
         \if\endrb\brfour \let\ptafour=\phseven\fi
         \if\endrb\brfive \let\ptafive=\phseven\fi
         \if\endrb\brsix \let\ptasix=\phseven\fi
         \if\endrb\brseven \let\ptaseven=\phseven\fi
         \if\endrb\breight \let\ptaeight=\phseven\fi
         \if\endrb\brnine \let\ptanine=\phseven\fi
         \if\endrb\brnull \let\ptanull=\phseven\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\phseven\fi
         \if\endrb\brtwo \let\ptbtwo=\phseven\fi
         \if\endrb\brthree \let\ptbthree=\phseven\fi
         \if\endrb\brfour \let\ptbfour=\phseven\fi
         \if\endrb\brfive \let\ptbfive=\phseven\fi
         \if\endrb\brsix \let\ptbsix=\phseven\fi
         \if\endrb\brseven \let\ptbseven=\phseven\fi
         \if\endrb\breight \let\ptbeight=\phseven\fi
         \if\endrb\brnine \let\ptbnine=\phseven\fi
         \if\endrb\brnull \let\ptbnull=\phseven\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\phseven\fi
         \if\endrb\brtwo \let\ptctwo=\phseven\fi
         \if\endrb\brthree \let\ptcthree=\phseven\fi
         \if\endrb\brfour \let\ptcfour=\phseven\fi
         \if\endrb\brfive \let\ptcfive=\phseven\fi
         \if\endrb\brsix \let\ptcsix=\phseven\fi
         \if\endrb\brseven \let\ptcseven=\phseven\fi
         \if\endrb\breight \let\ptceight=\phseven\fi
         \if\endrb\brnine \let\ptcnine=\phseven\fi
         \if\endrb\brnull \let\ptcnull=\phseven\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\phseven\fi
         \if\endrb\brtwo \let\ptdtwo=\phseven\fi
         \if\endrb\brthree \let\ptdthree=\phseven\fi
         \if\endrb\brfour \let\ptdfour=\phseven\fi
         \if\endrb\brfive \let\ptdfive=\phseven\fi
         \if\endrb\brsix \let\ptdsix=\phseven\fi
         \if\endrb\brseven \let\ptdseven=\phseven\fi
         \if\endrb\breight \let\ptdeight=\phseven\fi
         \if\endrb\brnine \let\ptdnine=\phseven\fi
         \if\endrb\brnull \let\ptdnull=\phseven\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\phseven\fi
         \if\endrb\brtwo \let\ptetwo=\phseven\fi
         \if\endrb\brthree \let\ptethree=\phseven\fi
         \if\endrb\brfour \let\ptefour=\phseven\fi
         \if\endrb\brfive \let\ptefive=\phseven\fi
         \if\endrb\brsix \let\ptesix=\phseven\fi
         \if\endrb\brseven \let\pteseven=\phseven\fi
         \if\endrb\breight \let\pteeight=\phseven\fi
         \if\endrb\brnine \let\ptenine=\phseven\fi
         \if\endrb\brnull \let\ptenull=\phseven\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\phseven\fi
         \if\endrb\brtwo \let\ptftwo=\phseven\fi
         \if\endrb\brthree \let\ptfthree=\phseven\fi
         \if\endrb\brfour \let\ptffour=\phseven\fi
         \if\endrb\brfive \let\ptffive=\phseven\fi
         \if\endrb\brsix \let\ptfsix=\phseven\fi
         \if\endrb\brseven \let\ptfseven=\phseven\fi
         \if\endrb\breight \let\ptfeight=\phseven\fi
         \if\endrb\brnine \let\ptfnine=\phseven\fi
         \if\endrb\brnull \let\ptfnull=\phseven\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\phseven\fi
         \if\endrb\brtwo \let\ptgtwo=\phseven\fi
         \if\endrb\brthree \let\ptgthree=\phseven\fi
         \if\endrb\brfour \let\ptgfour=\phseven\fi
         \if\endrb\brfive \let\ptgfive=\phseven\fi
         \if\endrb\brsix \let\ptgsix=\phseven\fi
         \if\endrb\brseven \let\ptgseven=\phseven\fi
         \if\endrb\breight \let\ptgeight=\phseven\fi
         \if\endrb\brnine \let\ptgnine=\phseven\fi
         \if\endrb\brnull \let\ptgnull=\phseven\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\phseven\fi
         \if\endrb\brtwo \let\pthtwo=\phseven\fi
         \if\endrb\brthree \let\pththree=\phseven\fi
         \if\endrb\brfour \let\pthfour=\phseven\fi
         \if\endrb\brfive \let\pthfive=\phseven\fi
         \if\endrb\brsix \let\pthsix=\phseven\fi
         \if\endrb\brseven \let\pthseven=\phseven\fi
         \if\endrb\breight \let\ptheight=\phseven\fi
         \if\endrb\brnine \let\pthnine=\phseven\fi
         \if\endrb\brnull \let\pthnull=\phseven\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\phseven\fi
         \if\endrb\brtwo \let\ptitwo=\phseven\fi
         \if\endrb\brthree \let\ptithree=\phseven\fi
         \if\endrb\brfour \let\ptifour=\phseven\fi
         \if\endrb\brfive \let\ptifive=\phseven\fi
         \if\endrb\brsix \let\ptisix=\phseven\fi
         \if\endrb\brseven \let\ptiseven=\phseven\fi
         \if\endrb\breight \let\ptieight=\phseven\fi
         \if\endrb\brnine \let\ptinine=\phseven\fi
         \if\endrb\brnull \let\ptinull=\phseven\fi\fi\fi      
   \if\startrb\breight \heightset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pheight\fi
         \if\endrb\brtwo \let\ptatwo=\pheight\fi
         \if\endrb\brthree \let\ptathree=\pheight\fi
         \if\endrb\brfour \let\ptafour=\pheight\fi
         \if\endrb\brfive \let\ptafive=\pheight\fi
         \if\endrb\brsix \let\ptasix=\pheight\fi
         \if\endrb\brseven \let\ptaseven=\pheight\fi
         \if\endrb\breight \let\ptaeight=\pheight\fi
         \if\endrb\brnine \let\ptanine=\pheight\fi
         \if\endrb\brnull \let\ptanull=\pheight\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pheight\fi
         \if\endrb\brtwo \let\ptbtwo=\pheight\fi
         \if\endrb\brthree \let\ptbthree=\pheight\fi
         \if\endrb\brfour \let\ptbfour=\pheight\fi
         \if\endrb\brfive \let\ptbfive=\pheight\fi
         \if\endrb\brsix \let\ptbsix=\pheight\fi
         \if\endrb\brseven \let\ptbseven=\pheight\fi
         \if\endrb\breight \let\ptbeight=\pheight\fi
         \if\endrb\brnine \let\ptbnine=\pheight\fi
         \if\endrb\brnull \let\ptbnull=\pheight\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pheight\fi
         \if\endrb\brtwo \let\ptctwo=\pheight\fi
         \if\endrb\brthree \let\ptcthree=\pheight\fi
         \if\endrb\brfour \let\ptcfour=\pheight\fi
         \if\endrb\brfive \let\ptcfive=\pheight\fi
         \if\endrb\brsix \let\ptcsix=\pheight\fi
         \if\endrb\brseven \let\ptcseven=\pheight\fi
         \if\endrb\breight \let\ptceight=\pheight\fi
         \if\endrb\brnine \let\ptcnine=\pheight\fi
         \if\endrb\brnull \let\ptcnull=\pheight\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pheight\fi
         \if\endrb\brtwo \let\ptdtwo=\pheight\fi
         \if\endrb\brthree \let\ptdthree=\pheight\fi
         \if\endrb\brfour \let\ptdfour=\pheight\fi
         \if\endrb\brfive \let\ptdfive=\pheight\fi
         \if\endrb\brsix \let\ptdsix=\pheight\fi
         \if\endrb\brseven \let\ptdseven=\pheight\fi
         \if\endrb\breight \let\ptdeight=\pheight\fi
         \if\endrb\brnine \let\ptdnine=\pheight\fi
         \if\endrb\brnull \let\ptdnull=\pheight\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pheight\fi
         \if\endrb\brtwo \let\ptetwo=\pheight\fi
         \if\endrb\brthree \let\ptethree=\pheight\fi
         \if\endrb\brfour \let\ptefour=\pheight\fi
         \if\endrb\brfive \let\ptefive=\pheight\fi
         \if\endrb\brsix \let\ptesix=\pheight\fi
         \if\endrb\brseven \let\pteseven=\pheight\fi
         \if\endrb\breight \let\pteeight=\pheight\fi
         \if\endrb\brnine \let\ptenine=\pheight\fi
         \if\endrb\brnull \let\ptenull=\pheight\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pheight\fi
         \if\endrb\brtwo \let\ptftwo=\pheight\fi
         \if\endrb\brthree \let\ptfthree=\pheight\fi
         \if\endrb\brfour \let\ptffour=\pheight\fi
         \if\endrb\brfive \let\ptffive=\pheight\fi
         \if\endrb\brsix \let\ptfsix=\pheight\fi
         \if\endrb\brseven \let\ptfseven=\pheight\fi
         \if\endrb\breight \let\ptfeight=\pheight\fi
         \if\endrb\brnine \let\ptfnine=\pheight\fi
         \if\endrb\brnull \let\ptfnull=\pheight\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pheight\fi
         \if\endrb\brtwo \let\ptgtwo=\pheight\fi
         \if\endrb\brthree \let\ptgthree=\pheight\fi
         \if\endrb\brfour \let\ptgfour=\pheight\fi
         \if\endrb\brfive \let\ptgfive=\pheight\fi
         \if\endrb\brsix \let\ptgsix=\pheight\fi
         \if\endrb\brseven \let\ptgseven=\pheight\fi
         \if\endrb\breight \let\ptgeight=\pheight\fi
         \if\endrb\brnine \let\ptgnine=\pheight\fi
         \if\endrb\brnull \let\ptgnull=\pheight\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pheight\fi
         \if\endrb\brtwo \let\pthtwo=\pheight\fi
         \if\endrb\brthree \let\pththree=\pheight\fi
         \if\endrb\brfour \let\pthfour=\pheight\fi
         \if\endrb\brfive \let\pthfive=\pheight\fi
         \if\endrb\brsix \let\pthsix=\pheight\fi
         \if\endrb\brseven \let\pthseven=\pheight\fi
         \if\endrb\breight \let\ptheight=\pheight\fi
         \if\endrb\brnine \let\pthnine=\pheight\fi
         \if\endrb\brnull \let\pthnull=\pheight\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pheight\fi
         \if\endrb\brtwo \let\ptitwo=\pheight\fi
         \if\endrb\brthree \let\ptithree=\pheight\fi
         \if\endrb\brfour \let\ptifour=\pheight\fi
         \if\endrb\brfive \let\ptifive=\pheight\fi
         \if\endrb\brsix \let\ptisix=\pheight\fi
         \if\endrb\brseven \let\ptiseven=\pheight\fi
         \if\endrb\breight \let\ptieight=\pheight\fi
         \if\endrb\brnine \let\ptinine=\pheight\fi
         \if\endrb\brnull \let\ptinull=\pheight\fi\fi\fi      
   \if\startrb\brnine \hnineset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\phnine\fi
         \if\endrb\brtwo \let\ptatwo=\phnine\fi
         \if\endrb\brthree \let\ptathree=\phnine\fi
         \if\endrb\brfour \let\ptafour=\phnine\fi
         \if\endrb\brfive \let\ptafive=\phnine\fi
         \if\endrb\brsix \let\ptasix=\phnine\fi
         \if\endrb\brseven \let\ptaseven=\phnine\fi
         \if\endrb\breight \let\ptaeight=\phnine\fi
         \if\endrb\brnine \let\ptanine=\phnine\fi
         \if\endrb\brnull \let\ptanull=\phnine\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\phnine\fi
         \if\endrb\brtwo \let\ptbtwo=\phnine\fi
         \if\endrb\brthree \let\ptbthree=\phnine\fi
         \if\endrb\brfour \let\ptbfour=\phnine\fi
         \if\endrb\brfive \let\ptbfive=\phnine\fi
         \if\endrb\brsix \let\ptbsix=\phnine\fi
         \if\endrb\brseven \let\ptbseven=\phnine\fi
         \if\endrb\breight \let\ptbeight=\phnine\fi
         \if\endrb\brnine \let\ptbnine=\phnine\fi
         \if\endrb\brnull \let\ptbnull=\phnine\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\phnine\fi
         \if\endrb\brtwo \let\ptctwo=\phnine\fi
         \if\endrb\brthree \let\ptcthree=\phnine\fi
         \if\endrb\brfour \let\ptcfour=\phnine\fi
         \if\endrb\brfive \let\ptcfive=\phnine\fi
         \if\endrb\brsix \let\ptcsix=\phnine\fi
         \if\endrb\brseven \let\ptcseven=\phnine\fi
         \if\endrb\breight \let\ptceight=\phnine\fi
         \if\endrb\brnine \let\ptcnine=\phnine\fi
         \if\endrb\brnull \let\ptcnull=\phnine\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\phnine\fi
         \if\endrb\brtwo \let\ptdtwo=\phnine\fi
         \if\endrb\brthree \let\ptdthree=\phnine\fi
         \if\endrb\brfour \let\ptdfour=\phnine\fi
         \if\endrb\brfive \let\ptdfive=\phnine\fi
         \if\endrb\brsix \let\ptdsix=\phnine\fi
         \if\endrb\brseven \let\ptdseven=\phnine\fi
         \if\endrb\breight \let\ptdeight=\phnine\fi
         \if\endrb\brnine \let\ptdnine=\phnine\fi
         \if\endrb\brnull \let\ptdnull=\phnine\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\phnine\fi
         \if\endrb\brtwo \let\ptetwo=\phnine\fi
         \if\endrb\brthree \let\ptethree=\phnine\fi
         \if\endrb\brfour \let\ptefour=\phnine\fi
         \if\endrb\brfive \let\ptefive=\phnine\fi
         \if\endrb\brsix \let\ptesix=\phnine\fi
         \if\endrb\brseven \let\pteseven=\phnine\fi
         \if\endrb\breight \let\pteeight=\phnine\fi
         \if\endrb\brnine \let\ptenine=\phnine\fi
         \if\endrb\brnull \let\ptenull=\phnine\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\phnine\fi
         \if\endrb\brtwo \let\ptftwo=\phnine\fi
         \if\endrb\brthree \let\ptfthree=\phnine\fi
         \if\endrb\brfour \let\ptffour=\phnine\fi
         \if\endrb\brfive \let\ptffive=\phnine\fi
         \if\endrb\brsix \let\ptfsix=\phnine\fi
         \if\endrb\brseven \let\ptfseven=\phnine\fi
         \if\endrb\breight \let\ptfeight=\phnine\fi
         \if\endrb\brnine \let\ptfnine=\phnine\fi
         \if\endrb\brnull \let\ptfnull=\phnine\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\phnine\fi
         \if\endrb\brtwo \let\ptgtwo=\phnine\fi
         \if\endrb\brthree \let\ptgthree=\phnine\fi
         \if\endrb\brfour \let\ptgfour=\phnine\fi
         \if\endrb\brfive \let\ptgfive=\phnine\fi
         \if\endrb\brsix \let\ptgsix=\phnine\fi
         \if\endrb\brseven \let\ptgseven=\phnine\fi
         \if\endrb\breight \let\ptgeight=\phnine\fi
         \if\endrb\brnine \let\ptgnine=\phnine\fi
         \if\endrb\brnull \let\ptgnull=\phnine\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\phnine\fi
         \if\endrb\brtwo \let\pthtwo=\phnine\fi
         \if\endrb\brthree \let\pththree=\phnine\fi
         \if\endrb\brfour \let\pthfour=\phnine\fi
         \if\endrb\brfive \let\pthfive=\phnine\fi
         \if\endrb\brsix \let\pthsix=\phnine\fi
         \if\endrb\brseven \let\pthseven=\phnine\fi
         \if\endrb\breight \let\ptheight=\phnine\fi
         \if\endrb\brnine \let\pthnine=\phnine\fi
         \if\endrb\brnull \let\pthnull=\phnine\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\phnine\fi
         \if\endrb\brtwo \let\ptitwo=\phnine\fi
         \if\endrb\brthree \let\ptithree=\phnine\fi
         \if\endrb\brfour \let\ptifour=\phnine\fi
         \if\endrb\brfive \let\ptifive=\phnine\fi
         \if\endrb\brsix \let\ptisix=\phnine\fi
         \if\endrb\brseven \let\ptiseven=\phnine\fi
         \if\endrb\breight \let\ptieight=\phnine\fi
         \if\endrb\brnine \let\ptinine=\phnine\fi
         \if\endrb\brnull \let\ptinull=\phnine\fi\fi\fi      
   \if\startrb\brnull \hnullset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\phnull\fi
         \if\endrb\brtwo \let\ptatwo=\phnull\fi
         \if\endrb\brthree \let\ptathree=\phnull\fi
         \if\endrb\brfour \let\ptafour=\phnull\fi
         \if\endrb\brfive \let\ptafive=\phnull\fi
         \if\endrb\brsix \let\ptasix=\phnull\fi
         \if\endrb\brseven \let\ptaseven=\phnull\fi
         \if\endrb\breight \let\ptaeight=\phnull\fi
         \if\endrb\brnine \let\ptanine=\phnull\fi
         \if\endrb\brnull \let\ptanull=\phnull\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\phnull\fi
         \if\endrb\brtwo \let\ptbtwo=\phnull\fi
         \if\endrb\brthree \let\ptbthree=\phnull\fi
         \if\endrb\brfour \let\ptbfour=\phnull\fi
         \if\endrb\brfive \let\ptbfive=\phnull\fi
         \if\endrb\brsix \let\ptbsix=\phnull\fi
         \if\endrb\brseven \let\ptbseven=\phnull\fi
         \if\endrb\breight \let\ptbeight=\phnull\fi
         \if\endrb\brnine \let\ptbnine=\phnull\fi
         \if\endrb\brnull \let\ptbnull=\phnull\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\phnull\fi
         \if\endrb\brtwo \let\ptctwo=\phnull\fi
         \if\endrb\brthree \let\ptcthree=\phnull\fi
         \if\endrb\brfour \let\ptcfour=\phnull\fi
         \if\endrb\brfive \let\ptcfive=\phnull\fi
         \if\endrb\brsix \let\ptcsix=\phnull\fi
         \if\endrb\brseven \let\ptcseven=\phnull\fi
         \if\endrb\breight \let\ptceight=\phnull\fi
         \if\endrb\brnine \let\ptcnine=\phnull\fi
         \if\endrb\brnull \let\ptcnull=\phnull\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\phnull\fi
         \if\endrb\brtwo \let\ptdtwo=\phnull\fi
         \if\endrb\brthree \let\ptdthree=\phnull\fi
         \if\endrb\brfour \let\ptdfour=\phnull\fi
         \if\endrb\brfive \let\ptdfive=\phnull\fi
         \if\endrb\brsix \let\ptdsix=\phnull\fi
         \if\endrb\brseven \let\ptdseven=\phnull\fi
         \if\endrb\breight \let\ptdeight=\phnull\fi
         \if\endrb\brnine \let\ptdnine=\phnull\fi
         \if\endrb\brnull \let\ptdnull=\phnull\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\phnull\fi
         \if\endrb\brtwo \let\ptetwo=\phnull\fi
         \if\endrb\brthree \let\ptethree=\phnull\fi
         \if\endrb\brfour \let\ptefour=\phnull\fi
         \if\endrb\brfive \let\ptefive=\phnull\fi
         \if\endrb\brsix \let\ptesix=\phnull\fi
         \if\endrb\brseven \let\pteseven=\phnull\fi
         \if\endrb\breight \let\pteeight=\phnull\fi
         \if\endrb\brnine \let\ptenine=\phnull\fi
         \if\endrb\brnull \let\ptenull=\phnull\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\phnull\fi
         \if\endrb\brtwo \let\ptftwo=\phnull\fi
         \if\endrb\brthree \let\ptfthree=\phnull\fi
         \if\endrb\brfour \let\ptffour=\phnull\fi
         \if\endrb\brfive \let\ptffive=\phnull\fi
         \if\endrb\brsix \let\ptfsix=\phnull\fi
         \if\endrb\brseven \let\ptfseven=\phnull\fi
         \if\endrb\breight \let\ptfeight=\phnull\fi
         \if\endrb\brnine \let\ptfnine=\phnull\fi
         \if\endrb\brnull \let\ptfnull=\phnull\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\phnull\fi
         \if\endrb\brtwo \let\ptgtwo=\phnull\fi
         \if\endrb\brthree \let\ptgthree=\phnull\fi
         \if\endrb\brfour \let\ptgfour=\phnull\fi
         \if\endrb\brfive \let\ptgfive=\phnull\fi
         \if\endrb\brsix \let\ptgsix=\phnull\fi
         \if\endrb\brseven \let\ptgseven=\phnull\fi
         \if\endrb\breight \let\ptgeight=\phnull\fi
         \if\endrb\brnine \let\ptgnine=\phnull\fi
         \if\endrb\brnull \let\ptgnull=\phnull\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\phnull\fi
         \if\endrb\brtwo \let\pthtwo=\phnull\fi
         \if\endrb\brthree \let\pththree=\phnull\fi
         \if\endrb\brfour \let\pthfour=\phnull\fi
         \if\endrb\brfive \let\pthfive=\phnull\fi
         \if\endrb\brsix \let\pthsix=\phnull\fi
         \if\endrb\brseven \let\pthseven=\phnull\fi
         \if\endrb\breight \let\ptheight=\phnull\fi
         \if\endrb\brnine \let\pthnine=\phnull\fi
         \if\endrb\brnull \let\pthnull=\phnull\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\phnull\fi
         \if\endrb\brtwo \let\ptitwo=\phnull\fi
         \if\endrb\brthree \let\ptithree=\phnull\fi
         \if\endrb\brfour \let\ptifour=\phnull\fi
         \if\endrb\brfive \let\ptifive=\phnull\fi
         \if\endrb\brsix \let\ptisix=\phnull\fi
         \if\endrb\brseven \let\ptiseven=\phnull\fi
         \if\endrb\breight \let\ptieight=\phnull\fi
         \if\endrb\brnine \let\ptinine=\phnull\fi
         \if\endrb\brnull \let\ptinull=\phnull\fi\fi\fi\fi  
\if\startlb\ili
   \if\startrb\brone \ioneset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pione\fi
         \if\endrb\brtwo \let\ptatwo=\pione\fi
         \if\endrb\brthree \let\ptathree=\pione\fi
         \if\endrb\brfour \let\ptafour=\pione\fi
         \if\endrb\brfive \let\ptafive=\pione\fi
         \if\endrb\brsix \let\ptasix=\pione\fi
         \if\endrb\brseven \let\ptaseven=\pione\fi
         \if\endrb\breight \let\ptaeight=\pione\fi
         \if\endrb\brnine \let\ptanine=\pione\fi
         \if\endrb\brnull \let\ptanull=\pione\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pione\fi
         \if\endrb\brtwo \let\ptbtwo=\pione\fi
         \if\endrb\brthree \let\ptbthree=\pione\fi
         \if\endrb\brfour \let\ptbfour=\pione\fi
         \if\endrb\brfive \let\ptbfive=\pione\fi
         \if\endrb\brsix \let\ptbsix=\pione\fi
         \if\endrb\brseven \let\ptbseven=\pione\fi
         \if\endrb\breight \let\ptbeight=\pione\fi
         \if\endrb\brnine \let\ptbnine=\pione\fi
         \if\endrb\brnull \let\ptbnull=\pione\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pione\fi
         \if\endrb\brtwo \let\ptctwo=\pione\fi
         \if\endrb\brthree \let\ptcthree=\pione\fi
         \if\endrb\brfour \let\ptcfour=\pione\fi
         \if\endrb\brfive \let\ptcfive=\pione\fi
         \if\endrb\brsix \let\ptcsix=\pione\fi
         \if\endrb\brseven \let\ptcseven=\pione\fi
         \if\endrb\breight \let\ptceight=\pione\fi
         \if\endrb\brnine \let\ptcnine=\pione\fi
         \if\endrb\brnull \let\ptcnull=\pione\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pione\fi
         \if\endrb\brtwo \let\ptdtwo=\pione\fi
         \if\endrb\brthree \let\ptdthree=\pione\fi
         \if\endrb\brfour \let\ptdfour=\pione\fi
         \if\endrb\brfive \let\ptdfive=\pione\fi
         \if\endrb\brsix \let\ptdsix=\pione\fi
         \if\endrb\brseven \let\ptdseven=\pione\fi
         \if\endrb\breight \let\ptdeight=\pione\fi
         \if\endrb\brnine \let\ptdnine=\pione\fi
         \if\endrb\brnull \let\ptdnull=\pione\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pione\fi
         \if\endrb\brtwo \let\ptetwo=\pione\fi
         \if\endrb\brthree \let\ptethree=\pione\fi
         \if\endrb\brfour \let\ptefour=\pione\fi
         \if\endrb\brfive \let\ptefive=\pione\fi
         \if\endrb\brsix \let\ptesix=\pione\fi
         \if\endrb\brseven \let\pteseven=\pione\fi
         \if\endrb\breight \let\pteeight=\pione\fi
         \if\endrb\brnine \let\ptenine=\pione\fi
         \if\endrb\brnull \let\ptenull=\pione\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pione\fi
         \if\endrb\brtwo \let\ptftwo=\pione\fi
         \if\endrb\brthree \let\ptfthree=\pione\fi
         \if\endrb\brfour \let\ptffour=\pione\fi
         \if\endrb\brfive \let\ptffive=\pione\fi
         \if\endrb\brsix \let\ptfsix=\pione\fi
         \if\endrb\brseven \let\ptfseven=\pione\fi
         \if\endrb\breight \let\ptfeight=\pione\fi
         \if\endrb\brnine \let\ptfnine=\pione\fi
         \if\endrb\brnull \let\ptfnull=\pione\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pione\fi
         \if\endrb\brtwo \let\ptgtwo=\pione\fi
         \if\endrb\brthree \let\ptgthree=\pione\fi
         \if\endrb\brfour \let\ptgfour=\pione\fi
         \if\endrb\brfive \let\ptgfive=\pione\fi
         \if\endrb\brsix \let\ptgsix=\pione\fi
         \if\endrb\brseven \let\ptgseven=\pione\fi
         \if\endrb\breight \let\ptgeight=\pione\fi
         \if\endrb\brnine \let\ptgnine=\pione\fi
         \if\endrb\brnull \let\ptgnull=\pione\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pione\fi
         \if\endrb\brtwo \let\pthtwo=\pione\fi
         \if\endrb\brthree \let\pththree=\pione\fi
         \if\endrb\brfour \let\pthfour=\pione\fi
         \if\endrb\brfive \let\pthfive=\pione\fi
         \if\endrb\brsix \let\pthsix=\pione\fi
         \if\endrb\brseven \let\pthseven=\pione\fi
         \if\endrb\breight \let\ptheight=\pione\fi
         \if\endrb\brnine \let\pthnine=\pione\fi
         \if\endrb\brnull \let\pthnull=\pione\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pione\fi
         \if\endrb\brtwo \let\ptitwo=\pione\fi
         \if\endrb\brthree \let\ptithree=\pione\fi
         \if\endrb\brfour \let\ptifour=\pione\fi
         \if\endrb\brfive \let\ptifive=\pione\fi
         \if\endrb\brsix \let\ptisix=\pione\fi
         \if\endrb\brseven \let\ptiseven=\pione\fi
         \if\endrb\breight \let\ptieight=\pione\fi
         \if\endrb\brnine \let\ptinine=\pione\fi
         \if\endrb\brnull \let\ptinull=\pione\fi\fi\fi      
   \if\startrb\brtwo \itwoset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pitwo\fi
         \if\endrb\brtwo \let\ptatwo=\pitwo\fi
         \if\endrb\brthree \let\ptathree=\pitwo\fi
         \if\endrb\brfour \let\ptafour=\pitwo\fi
         \if\endrb\brfive \let\ptafive=\pitwo\fi
         \if\endrb\brsix \let\ptasix=\pitwo\fi
         \if\endrb\brseven \let\ptaseven=\pitwo\fi
         \if\endrb\breight \let\ptaeight=\pitwo\fi
         \if\endrb\brnine \let\ptanine=\pitwo\fi
         \if\endrb\brnull \let\ptanull=\pitwo\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pitwo\fi
         \if\endrb\brtwo \let\ptbtwo=\pitwo\fi
         \if\endrb\brthree \let\ptbthree=\pitwo\fi
         \if\endrb\brfour \let\ptbfour=\pitwo\fi
         \if\endrb\brfive \let\ptbfive=\pitwo\fi
         \if\endrb\brsix \let\ptbsix=\pitwo\fi
         \if\endrb\brseven \let\ptbseven=\pitwo\fi
         \if\endrb\breight \let\ptbeight=\pitwo\fi
         \if\endrb\brnine \let\ptbnine=\pitwo\fi
         \if\endrb\brnull \let\ptbnull=\pitwo\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pitwo\fi
         \if\endrb\brtwo \let\ptctwo=\pitwo\fi
         \if\endrb\brthree \let\ptcthree=\pitwo\fi
         \if\endrb\brfour \let\ptcfour=\pitwo\fi
         \if\endrb\brfive \let\ptcfive=\pitwo\fi
         \if\endrb\brsix \let\ptcsix=\pitwo\fi
         \if\endrb\brseven \let\ptcseven=\pitwo\fi
         \if\endrb\breight \let\ptceight=\pitwo\fi
         \if\endrb\brnine \let\ptcnine=\pitwo\fi
         \if\endrb\brnull \let\ptcnull=\pitwo\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pitwo\fi
         \if\endrb\brtwo \let\ptdtwo=\pitwo\fi
         \if\endrb\brthree \let\ptdthree=\pitwo\fi
         \if\endrb\brfour \let\ptdfour=\pitwo\fi
         \if\endrb\brfive \let\ptdfive=\pitwo\fi
         \if\endrb\brsix \let\ptdsix=\pitwo\fi
         \if\endrb\brseven \let\ptdseven=\pitwo\fi
         \if\endrb\breight \let\ptdeight=\pitwo\fi
         \if\endrb\brnine \let\ptdnine=\pitwo\fi
         \if\endrb\brnull \let\ptdnull=\pitwo\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pitwo\fi
         \if\endrb\brtwo \let\ptetwo=\pitwo\fi
         \if\endrb\brthree \let\ptethree=\pitwo\fi
         \if\endrb\brfour \let\ptefour=\pitwo\fi
         \if\endrb\brfive \let\ptefive=\pitwo\fi
         \if\endrb\brsix \let\ptesix=\pitwo\fi
         \if\endrb\brseven \let\pteseven=\pitwo\fi
         \if\endrb\breight \let\pteeight=\pitwo\fi
         \if\endrb\brnine \let\ptenine=\pitwo\fi
         \if\endrb\brnull \let\ptenull=\pitwo\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pitwo\fi
         \if\endrb\brtwo \let\ptftwo=\pitwo\fi
         \if\endrb\brthree \let\ptfthree=\pitwo\fi
         \if\endrb\brfour \let\ptffour=\pitwo\fi
         \if\endrb\brfive \let\ptffive=\pitwo\fi
         \if\endrb\brsix \let\ptfsix=\pitwo\fi
         \if\endrb\brseven \let\ptfseven=\pitwo\fi
         \if\endrb\breight \let\ptfeight=\pitwo\fi
         \if\endrb\brnine \let\ptfnine=\pitwo\fi
         \if\endrb\brnull \let\ptfnull=\pitwo\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pitwo\fi
         \if\endrb\brtwo \let\ptgtwo=\pitwo\fi
         \if\endrb\brthree \let\ptgthree=\pitwo\fi
         \if\endrb\brfour \let\ptgfour=\pitwo\fi
         \if\endrb\brfive \let\ptgfive=\pitwo\fi
         \if\endrb\brsix \let\ptgsix=\pitwo\fi
         \if\endrb\brseven \let\ptgseven=\pitwo\fi
         \if\endrb\breight \let\ptgeight=\pitwo\fi
         \if\endrb\brnine \let\ptgnine=\pitwo\fi
         \if\endrb\brnull \let\ptgnull=\pitwo\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pitwo\fi
         \if\endrb\brtwo \let\pthtwo=\pitwo\fi
         \if\endrb\brthree \let\pththree=\pitwo\fi
         \if\endrb\brfour \let\pthfour=\pitwo\fi
         \if\endrb\brfive \let\pthfive=\pitwo\fi
         \if\endrb\brsix \let\pthsix=\pitwo\fi
         \if\endrb\brseven \let\pthseven=\pitwo\fi
         \if\endrb\breight \let\ptheight=\pitwo\fi
         \if\endrb\brnine \let\pthnine=\pitwo\fi
         \if\endrb\brnull \let\pthnull=\pitwo\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pitwo\fi
         \if\endrb\brtwo \let\ptitwo=\pitwo\fi
         \if\endrb\brthree \let\ptithree=\pitwo\fi
         \if\endrb\brfour \let\ptifour=\pitwo\fi
         \if\endrb\brfive \let\ptifive=\pitwo\fi
         \if\endrb\brsix \let\ptisix=\pitwo\fi
         \if\endrb\brseven \let\ptiseven=\pitwo\fi
         \if\endrb\breight \let\ptieight=\pitwo\fi
         \if\endrb\brnine \let\ptinine=\pitwo\fi
         \if\endrb\brnull \let\ptinull=\pitwo\fi\fi\fi
   \if\startrb\brthree \ithreeset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pithree\fi
         \if\endrb\brtwo \let\ptatwo=\pithree\fi
         \if\endrb\brthree \let\ptathree=\pithree\fi
         \if\endrb\brfour \let\ptafour=\pithree\fi
         \if\endrb\brfive \let\ptafive=\pithree\fi
         \if\endrb\brsix \let\ptasix=\pithree\fi
         \if\endrb\brseven \let\ptaseven=\pithree\fi
         \if\endrb\breight \let\ptaeight=\pithree\fi
         \if\endrb\brnine \let\ptanine=\pithree\fi
         \if\endrb\brnull \let\ptanull=\pithree\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pithree\fi
         \if\endrb\brtwo \let\ptbtwo=\pithree\fi
         \if\endrb\brthree \let\ptbthree=\pithree\fi
         \if\endrb\brfour \let\ptbfour=\pithree\fi
         \if\endrb\brfive \let\ptbfive=\pithree\fi
         \if\endrb\brsix \let\ptbsix=\pithree\fi
         \if\endrb\brseven \let\ptbseven=\pithree\fi
         \if\endrb\breight \let\ptbeight=\pithree\fi
         \if\endrb\brnine \let\ptbnine=\pithree\fi
         \if\endrb\brnull \let\ptbnull=\pithree\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pithree\fi
         \if\endrb\brtwo \let\ptctwo=\pithree\fi
         \if\endrb\brthree \let\ptcthree=\pithree\fi
         \if\endrb\brfour \let\ptcfour=\pithree\fi
         \if\endrb\brfive \let\ptcfive=\pithree\fi
         \if\endrb\brsix \let\ptcsix=\pithree\fi
         \if\endrb\brseven \let\ptcseven=\pithree\fi
         \if\endrb\breight \let\ptceight=\pithree\fi
         \if\endrb\brnine \let\ptcnine=\pithree\fi
         \if\endrb\brnull \let\ptcnull=\pithree\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pithree\fi
         \if\endrb\brtwo \let\ptdtwo=\pithree\fi
         \if\endrb\brthree \let\ptdthree=\pithree\fi
         \if\endrb\brfour \let\ptdfour=\pithree\fi
         \if\endrb\brfive \let\ptdfive=\pithree\fi
         \if\endrb\brsix \let\ptdsix=\pithree\fi
         \if\endrb\brseven \let\ptdseven=\pithree\fi
         \if\endrb\breight \let\ptdeight=\pithree\fi
         \if\endrb\brnine \let\ptdnine=\pithree\fi
         \if\endrb\brnull \let\ptdnull=\pithree\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pithree\fi
         \if\endrb\brtwo \let\ptetwo=\pithree\fi
         \if\endrb\brthree \let\ptethree=\pithree\fi
         \if\endrb\brfour \let\ptefour=\pithree\fi
         \if\endrb\brfive \let\ptefive=\pithree\fi
         \if\endrb\brsix \let\ptesix=\pithree\fi
         \if\endrb\brseven \let\pteseven=\pithree\fi
         \if\endrb\breight \let\pteeight=\pithree\fi
         \if\endrb\brnine \let\ptenine=\pithree\fi
         \if\endrb\brnull \let\ptenull=\pithree\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pithree\fi
         \if\endrb\brtwo \let\ptftwo=\pithree\fi
         \if\endrb\brthree \let\ptfthree=\pithree\fi
         \if\endrb\brfour \let\ptffour=\pithree\fi
         \if\endrb\brfive \let\ptffive=\pithree\fi
         \if\endrb\brsix \let\ptfsix=\pithree\fi
         \if\endrb\brseven \let\ptfseven=\pithree\fi
         \if\endrb\breight \let\ptfeight=\pithree\fi
         \if\endrb\brnine \let\ptfnine=\pithree\fi
         \if\endrb\brnull \let\ptfnull=\pithree\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pithree\fi
         \if\endrb\brtwo \let\ptgtwo=\pithree\fi
         \if\endrb\brthree \let\ptgthree=\pithree\fi
         \if\endrb\brfour \let\ptgfour=\pithree\fi
         \if\endrb\brfive \let\ptgfive=\pithree\fi
         \if\endrb\brsix \let\ptgsix=\pithree\fi
         \if\endrb\brseven \let\ptgseven=\pithree\fi
         \if\endrb\breight \let\ptgeight=\pithree\fi
         \if\endrb\brnine \let\ptgnine=\pithree\fi
         \if\endrb\brnull \let\ptgnull=\pithree\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pithree\fi
         \if\endrb\brtwo \let\pthtwo=\pithree\fi
         \if\endrb\brthree \let\pththree=\pithree\fi
         \if\endrb\brfour \let\pthfour=\pithree\fi
         \if\endrb\brfive \let\pthfive=\pithree\fi
         \if\endrb\brsix \let\pthsix=\pithree\fi
         \if\endrb\brseven \let\pthseven=\pithree\fi
         \if\endrb\breight \let\ptheight=\pithree\fi
         \if\endrb\brnine \let\pthnine=\pithree\fi
         \if\endrb\brnull \let\pthnull=\pithree\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pithree\fi
         \if\endrb\brtwo \let\ptitwo=\pithree\fi
         \if\endrb\brthree \let\ptithree=\pithree\fi
         \if\endrb\brfour \let\ptifour=\pithree\fi
         \if\endrb\brfive \let\ptifive=\pithree\fi
         \if\endrb\brsix \let\ptisix=\pithree\fi
         \if\endrb\brseven \let\ptiseven=\pithree\fi
         \if\endrb\breight \let\ptieight=\pithree\fi
         \if\endrb\brnine \let\ptinine=\pithree\fi
         \if\endrb\brnull \let\ptinull=\pithree\fi\fi\fi      
   \if\startrb\brfour \ifourset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pifour\fi
         \if\endrb\brtwo \let\ptatwo=\pifour\fi
         \if\endrb\brthree \let\ptathree=\pifour\fi
         \if\endrb\brfour \let\ptafour=\pifour\fi
         \if\endrb\brfive \let\ptafive=\pifour\fi
         \if\endrb\brsix \let\ptasix=\pifour\fi
         \if\endrb\brseven \let\ptaseven=\pifour\fi
         \if\endrb\breight \let\ptaeight=\pifour\fi
         \if\endrb\brnine \let\ptanine=\pifour\fi
         \if\endrb\brnull \let\ptanull=\pifour\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pifour\fi
         \if\endrb\brtwo \let\ptbtwo=\pifour\fi
         \if\endrb\brthree \let\ptbthree=\pifour\fi
         \if\endrb\brfour \let\ptbfour=\pifour\fi
         \if\endrb\brfive \let\ptbfive=\pifour\fi
         \if\endrb\brsix \let\ptbsix=\pifour\fi
         \if\endrb\brseven \let\ptbseven=\pifour\fi
         \if\endrb\breight \let\ptbeight=\pifour\fi
         \if\endrb\brnine \let\ptbnine=\pifour\fi
         \if\endrb\brnull \let\ptbnull=\pifour\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pifour\fi
         \if\endrb\brtwo \let\ptctwo=\pifour\fi
         \if\endrb\brthree \let\ptcthree=\pifour\fi
         \if\endrb\brfour \let\ptcfour=\pifour\fi
         \if\endrb\brfive \let\ptcfive=\pifour\fi
         \if\endrb\brsix \let\ptcsix=\pifour\fi
         \if\endrb\brseven \let\ptcseven=\pifour\fi
         \if\endrb\breight \let\ptceight=\pifour\fi
         \if\endrb\brnine \let\ptcnine=\pifour\fi
         \if\endrb\brnull \let\ptcnull=\pifour\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pifour\fi
         \if\endrb\brtwo \let\ptdtwo=\pifour\fi
         \if\endrb\brthree \let\ptdthree=\pifour\fi
         \if\endrb\brfour \let\ptdfour=\pifour\fi
         \if\endrb\brfive \let\ptdfive=\pifour\fi
         \if\endrb\brsix \let\ptdsix=\pifour\fi
         \if\endrb\brseven \let\ptdseven=\pifour\fi
         \if\endrb\breight \let\ptdeight=\pifour\fi
         \if\endrb\brnine \let\ptdnine=\pifour\fi
         \if\endrb\brnull \let\ptdnull=\pifour\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pifour\fi
         \if\endrb\brtwo \let\ptetwo=\pifour\fi
         \if\endrb\brthree \let\ptethree=\pifour\fi
         \if\endrb\brfour \let\ptefour=\pifour\fi
         \if\endrb\brfive \let\ptefive=\pifour\fi
         \if\endrb\brsix \let\ptesix=\pifour\fi
         \if\endrb\brseven \let\pteseven=\pifour\fi
         \if\endrb\breight \let\pteeight=\pifour\fi
         \if\endrb\brnine \let\ptenine=\pifour\fi
         \if\endrb\brnull \let\ptenull=\pifour\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pifour\fi
         \if\endrb\brtwo \let\ptftwo=\pifour\fi
         \if\endrb\brthree \let\ptfthree=\pifour\fi
         \if\endrb\brfour \let\ptffour=\pifour\fi
         \if\endrb\brfive \let\ptffive=\pifour\fi
         \if\endrb\brsix \let\ptfsix=\pifour\fi
         \if\endrb\brseven \let\ptfseven=\pifour\fi
         \if\endrb\breight \let\ptfeight=\pifour\fi
         \if\endrb\brnine \let\ptfnine=\pifour\fi
         \if\endrb\brnull \let\ptfnull=\pifour\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pifour\fi
         \if\endrb\brtwo \let\ptgtwo=\pifour\fi
         \if\endrb\brthree \let\ptgthree=\pifour\fi
         \if\endrb\brfour \let\ptgfour=\pifour\fi
         \if\endrb\brfive \let\ptgfive=\pifour\fi
         \if\endrb\brsix \let\ptgsix=\pifour\fi
         \if\endrb\brseven \let\ptgseven=\pifour\fi
         \if\endrb\breight \let\ptgeight=\pifour\fi
         \if\endrb\brnine \let\ptgnine=\pifour\fi
         \if\endrb\brnull \let\ptgnull=\pifour\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pifour\fi
         \if\endrb\brtwo \let\pthtwo=\pifour\fi
         \if\endrb\brthree \let\pththree=\pifour\fi
         \if\endrb\brfour \let\pthfour=\pifour\fi
         \if\endrb\brfive \let\pthfive=\pifour\fi
         \if\endrb\brsix \let\pthsix=\pifour\fi
         \if\endrb\brseven \let\pthseven=\pifour\fi
         \if\endrb\breight \let\ptheight=\pifour\fi
         \if\endrb\brnine \let\pthnine=\pifour\fi
         \if\endrb\brnull \let\pthnull=\pifour\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pifour\fi
         \if\endrb\brtwo \let\ptitwo=\pifour\fi
         \if\endrb\brthree \let\ptithree=\pifour\fi
         \if\endrb\brfour \let\ptifour=\pifour\fi
         \if\endrb\brfive \let\ptifive=\pifour\fi
         \if\endrb\brsix \let\ptisix=\pifour\fi
         \if\endrb\brseven \let\ptiseven=\pifour\fi
         \if\endrb\breight \let\ptieight=\pifour\fi
         \if\endrb\brnine \let\ptinine=\pifour\fi
         \if\endrb\brnull \let\ptinull=\pifour\fi\fi\fi      
   \if\startrb\brfive \ifiveset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pifive\fi
         \if\endrb\brtwo \let\ptatwo=\pifive\fi
         \if\endrb\brthree \let\ptathree=\pifive\fi
         \if\endrb\brfour \let\ptafour=\pifive\fi
         \if\endrb\brfive \let\ptafive=\pifive\fi
         \if\endrb\brsix \let\ptasix=\pifive\fi
         \if\endrb\brseven \let\ptaseven=\pifive\fi
         \if\endrb\breight \let\ptaeight=\pifive\fi
         \if\endrb\brnine \let\ptanine=\pifive\fi
         \if\endrb\brnull \let\ptanull=\pifive\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pifive\fi
         \if\endrb\brtwo \let\ptbtwo=\pifive\fi
         \if\endrb\brthree \let\ptbthree=\pifive\fi
         \if\endrb\brfour \let\ptbfour=\pifive\fi
         \if\endrb\brfive \let\ptbfive=\pifive\fi
         \if\endrb\brsix \let\ptbsix=\pifive\fi
         \if\endrb\brseven \let\ptbseven=\pifive\fi
         \if\endrb\breight \let\ptbeight=\pifive\fi
         \if\endrb\brnine \let\ptbnine=\pifive\fi
         \if\endrb\brnull \let\ptbnull=\pifive\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pifive\fi
         \if\endrb\brtwo \let\ptctwo=\pifive\fi
         \if\endrb\brthree \let\ptcthree=\pifive\fi
         \if\endrb\brfour \let\ptcfour=\pifive\fi
         \if\endrb\brfive \let\ptcfive=\pifive\fi
         \if\endrb\brsix \let\ptcsix=\pifive\fi
         \if\endrb\brseven \let\ptcseven=\pifive\fi
         \if\endrb\breight \let\ptceight=\pifive\fi
         \if\endrb\brnine \let\ptcnine=\pifive\fi
         \if\endrb\brnull \let\ptcnull=\pifive\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pifive\fi
         \if\endrb\brtwo \let\ptdtwo=\pifive\fi
         \if\endrb\brthree \let\ptdthree=\pifive\fi
         \if\endrb\brfour \let\ptdfour=\pifive\fi
         \if\endrb\brfive \let\ptdfive=\pifive\fi
         \if\endrb\brsix \let\ptdsix=\pifive\fi
         \if\endrb\brseven \let\ptdseven=\pifive\fi
         \if\endrb\breight \let\ptdeight=\pifive\fi
         \if\endrb\brnine \let\ptdnine=\pifive\fi
         \if\endrb\brnull \let\ptdnull=\pifive\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pifive\fi
         \if\endrb\brtwo \let\ptetwo=\pifive\fi
         \if\endrb\brthree \let\ptethree=\pifive\fi
         \if\endrb\brfour \let\ptefour=\pifive\fi
         \if\endrb\brfive \let\ptefive=\pifive\fi
         \if\endrb\brsix \let\ptesix=\pifive\fi
         \if\endrb\brseven \let\pteseven=\pifive\fi
         \if\endrb\breight \let\pteeight=\pifive\fi
         \if\endrb\brnine \let\ptenine=\pifive\fi
         \if\endrb\brnull \let\ptenull=\pifive\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pifive\fi
         \if\endrb\brtwo \let\ptftwo=\pifive\fi
         \if\endrb\brthree \let\ptfthree=\pifive\fi
         \if\endrb\brfour \let\ptffour=\pifive\fi
         \if\endrb\brfive \let\ptffive=\pifive\fi
         \if\endrb\brsix \let\ptfsix=\pifive\fi
         \if\endrb\brseven \let\ptfseven=\pifive\fi
         \if\endrb\breight \let\ptfeight=\pifive\fi
         \if\endrb\brnine \let\ptfnine=\pifive\fi
         \if\endrb\brnull \let\ptfnull=\pifive\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pifive\fi
         \if\endrb\brtwo \let\ptgtwo=\pifive\fi
         \if\endrb\brthree \let\ptgthree=\pifive\fi
         \if\endrb\brfour \let\ptgfour=\pifive\fi
         \if\endrb\brfive \let\ptgfive=\pifive\fi
         \if\endrb\brsix \let\ptgsix=\pifive\fi
         \if\endrb\brseven \let\ptgseven=\pifive\fi
         \if\endrb\breight \let\ptgeight=\pifive\fi
         \if\endrb\brnine \let\ptgnine=\pifive\fi
         \if\endrb\brnull \let\ptgnull=\pifive\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pifive\fi
         \if\endrb\brtwo \let\pthtwo=\pifive\fi
         \if\endrb\brthree \let\pththree=\pifive\fi
         \if\endrb\brfour \let\pthfour=\pifive\fi
         \if\endrb\brfive \let\pthfive=\pifive\fi
         \if\endrb\brsix \let\pthsix=\pifive\fi
         \if\endrb\brseven \let\pthseven=\pifive\fi
         \if\endrb\breight \let\ptheight=\pifive\fi
         \if\endrb\brnine \let\pthnine=\pifive\fi
         \if\endrb\brnull \let\pthnull=\pifive\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pifive\fi
         \if\endrb\brtwo \let\ptitwo=\pifive\fi
         \if\endrb\brthree \let\ptithree=\pifive\fi
         \if\endrb\brfour \let\ptifour=\pifive\fi
         \if\endrb\brfive \let\ptifive=\pifive\fi
         \if\endrb\brsix \let\ptisix=\pifive\fi
         \if\endrb\brseven \let\ptiseven=\pifive\fi
         \if\endrb\breight \let\ptieight=\pifive\fi
         \if\endrb\brnine \let\ptinine=\pifive\fi
         \if\endrb\brnull \let\ptinull=\pifive\fi\fi\fi   
   \if\startrb\brsix \isixset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pisix\fi
         \if\endrb\brtwo \let\ptatwo=\pisix\fi
         \if\endrb\brthree \let\ptathree=\pisix\fi
         \if\endrb\brfour \let\ptafour=\pisix\fi
         \if\endrb\brfive \let\ptafive=\pisix\fi
         \if\endrb\brsix \let\ptasix=\pisix\fi
         \if\endrb\brseven \let\ptaseven=\pisix\fi
         \if\endrb\breight \let\ptaeight=\pisix\fi
         \if\endrb\brnine \let\ptanine=\pisix\fi
         \if\endrb\brnull \let\ptanull=\pisix\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pisix\fi
         \if\endrb\brtwo \let\ptbtwo=\pisix\fi
         \if\endrb\brthree \let\ptbthree=\pisix\fi
         \if\endrb\brfour \let\ptbfour=\pisix\fi
         \if\endrb\brfive \let\ptbfive=\pisix\fi
         \if\endrb\brsix \let\ptbsix=\pisix\fi
         \if\endrb\brseven \let\ptbseven=\pisix\fi
         \if\endrb\breight \let\ptbeight=\pisix\fi
         \if\endrb\brnine \let\ptbnine=\pisix\fi
         \if\endrb\brnull \let\ptbnull=\pisix\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pisix\fi
         \if\endrb\brtwo \let\ptctwo=\pisix\fi
         \if\endrb\brthree \let\ptcthree=\pisix\fi
         \if\endrb\brfour \let\ptcfour=\pisix\fi
         \if\endrb\brfive \let\ptcfive=\pisix\fi
         \if\endrb\brsix \let\ptcsix=\pisix\fi
         \if\endrb\brseven \let\ptcseven=\pisix\fi
         \if\endrb\breight \let\ptceight=\pisix\fi
         \if\endrb\brnine \let\ptcnine=\pisix\fi
         \if\endrb\brnull \let\ptcnull=\pisix\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pisix\fi
         \if\endrb\brtwo \let\ptdtwo=\pisix\fi
         \if\endrb\brthree \let\ptdthree=\pisix\fi
         \if\endrb\brfour \let\ptdfour=\pisix\fi
         \if\endrb\brfive \let\ptdfive=\pisix\fi
         \if\endrb\brsix \let\ptdsix=\pisix\fi
         \if\endrb\brseven \let\ptdseven=\pisix\fi
         \if\endrb\breight \let\ptdeight=\pisix\fi
         \if\endrb\brnine \let\ptdnine=\pisix\fi
         \if\endrb\brnull \let\ptdnull=\pisix\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pisix\fi
         \if\endrb\brtwo \let\ptetwo=\pisix\fi
         \if\endrb\brthree \let\ptethree=\pisix\fi
         \if\endrb\brfour \let\ptefour=\pisix\fi
         \if\endrb\brfive \let\ptefive=\pisix\fi
         \if\endrb\brsix \let\ptesix=\pisix\fi
         \if\endrb\brseven \let\pteseven=\pisix\fi
         \if\endrb\breight \let\pteeight=\pisix\fi
         \if\endrb\brnine \let\ptenine=\pisix\fi
         \if\endrb\brnull \let\ptenull=\pisix\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pisix\fi
         \if\endrb\brtwo \let\ptftwo=\pisix\fi
         \if\endrb\brthree \let\ptfthree=\pisix\fi
         \if\endrb\brfour \let\ptffour=\pisix\fi
         \if\endrb\brfive \let\ptffive=\pisix\fi
         \if\endrb\brsix \let\ptfsix=\pisix\fi
         \if\endrb\brseven \let\ptfseven=\pisix\fi
         \if\endrb\breight \let\ptfeight=\pisix\fi
         \if\endrb\brnine \let\ptfnine=\pisix\fi
         \if\endrb\brnull \let\ptfnull=\pisix\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pisix\fi
         \if\endrb\brtwo \let\ptgtwo=\pisix\fi
         \if\endrb\brthree \let\ptgthree=\pisix\fi
         \if\endrb\brfour \let\ptgfour=\pisix\fi
         \if\endrb\brfive \let\ptgfive=\pisix\fi
         \if\endrb\brsix \let\ptgsix=\pisix\fi
         \if\endrb\brseven \let\ptgseven=\pisix\fi
         \if\endrb\breight \let\ptgeight=\pisix\fi
         \if\endrb\brnine \let\ptgnine=\pisix\fi
         \if\endrb\brnull \let\ptgnull=\pisix\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pisix\fi
         \if\endrb\brtwo \let\pthtwo=\pisix\fi
         \if\endrb\brthree \let\pththree=\pisix\fi
         \if\endrb\brfour \let\pthfour=\pisix\fi
         \if\endrb\brfive \let\pthfive=\pisix\fi
         \if\endrb\brsix \let\pthsix=\pisix\fi
         \if\endrb\brseven \let\pthseven=\pisix\fi
         \if\endrb\breight \let\ptheight=\pisix\fi
         \if\endrb\brnine \let\pthnine=\pisix\fi
         \if\endrb\brnull \let\pthnull=\pisix\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pisix\fi
         \if\endrb\brtwo \let\ptitwo=\pisix\fi
         \if\endrb\brthree \let\ptithree=\pisix\fi
         \if\endrb\brfour \let\ptifour=\pisix\fi
         \if\endrb\brfive \let\ptifive=\pisix\fi
         \if\endrb\brsix \let\ptisix=\pisix\fi
         \if\endrb\brseven \let\ptiseven=\pisix\fi
         \if\endrb\breight \let\ptieight=\pisix\fi
         \if\endrb\brnine \let\ptinine=\pisix\fi
         \if\endrb\brnull \let\ptinull=\pisix\fi\fi\fi
   \if\startrb\brseven \isevenset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\piseven\fi
         \if\endrb\brtwo \let\ptatwo=\piseven\fi
         \if\endrb\brthree \let\ptathree=\piseven\fi
         \if\endrb\brfour \let\ptafour=\piseven\fi
         \if\endrb\brfive \let\ptafive=\piseven\fi
         \if\endrb\brsix \let\ptasix=\piseven\fi
         \if\endrb\brseven \let\ptaseven=\piseven\fi
         \if\endrb\breight \let\ptaeight=\piseven\fi
         \if\endrb\brnine \let\ptanine=\piseven\fi
         \if\endrb\brnull \let\ptanull=\piseven\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\piseven\fi
         \if\endrb\brtwo \let\ptbtwo=\piseven\fi
         \if\endrb\brthree \let\ptbthree=\piseven\fi
         \if\endrb\brfour \let\ptbfour=\piseven\fi
         \if\endrb\brfive \let\ptbfive=\piseven\fi
         \if\endrb\brsix \let\ptbsix=\piseven\fi
         \if\endrb\brseven \let\ptbseven=\piseven\fi
         \if\endrb\breight \let\ptbeight=\piseven\fi
         \if\endrb\brnine \let\ptbnine=\piseven\fi
         \if\endrb\brnull \let\ptbnull=\piseven\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\piseven\fi
         \if\endrb\brtwo \let\ptctwo=\piseven\fi
         \if\endrb\brthree \let\ptcthree=\piseven\fi
         \if\endrb\brfour \let\ptcfour=\piseven\fi
         \if\endrb\brfive \let\ptcfive=\piseven\fi
         \if\endrb\brsix \let\ptcsix=\piseven\fi
         \if\endrb\brseven \let\ptcseven=\piseven\fi
         \if\endrb\breight \let\ptceight=\piseven\fi
         \if\endrb\brnine \let\ptcnine=\piseven\fi
         \if\endrb\brnull \let\ptcnull=\piseven\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\piseven\fi
         \if\endrb\brtwo \let\ptdtwo=\piseven\fi
         \if\endrb\brthree \let\ptdthree=\piseven\fi
         \if\endrb\brfour \let\ptdfour=\piseven\fi
         \if\endrb\brfive \let\ptdfive=\piseven\fi
         \if\endrb\brsix \let\ptdsix=\piseven\fi
         \if\endrb\brseven \let\ptdseven=\piseven\fi
         \if\endrb\breight \let\ptdeight=\piseven\fi
         \if\endrb\brnine \let\ptdnine=\piseven\fi
         \if\endrb\brnull \let\ptdnull=\piseven\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\piseven\fi
         \if\endrb\brtwo \let\ptetwo=\piseven\fi
         \if\endrb\brthree \let\ptethree=\piseven\fi
         \if\endrb\brfour \let\ptefour=\piseven\fi
         \if\endrb\brfive \let\ptefive=\piseven\fi
         \if\endrb\brsix \let\ptesix=\piseven\fi
         \if\endrb\brseven \let\pteseven=\piseven\fi
         \if\endrb\breight \let\pteeight=\piseven\fi
         \if\endrb\brnine \let\ptenine=\piseven\fi
         \if\endrb\brnull \let\ptenull=\piseven\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\piseven\fi
         \if\endrb\brtwo \let\ptftwo=\piseven\fi
         \if\endrb\brthree \let\ptfthree=\piseven\fi
         \if\endrb\brfour \let\ptffour=\piseven\fi
         \if\endrb\brfive \let\ptffive=\piseven\fi
         \if\endrb\brsix \let\ptfsix=\piseven\fi
         \if\endrb\brseven \let\ptfseven=\piseven\fi
         \if\endrb\breight \let\ptfeight=\piseven\fi
         \if\endrb\brnine \let\ptfnine=\piseven\fi
         \if\endrb\brnull \let\ptfnull=\piseven\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\piseven\fi
         \if\endrb\brtwo \let\ptgtwo=\piseven\fi
         \if\endrb\brthree \let\ptgthree=\piseven\fi
         \if\endrb\brfour \let\ptgfour=\piseven\fi
         \if\endrb\brfive \let\ptgfive=\piseven\fi
         \if\endrb\brsix \let\ptgsix=\piseven\fi
         \if\endrb\brseven \let\ptgseven=\piseven\fi
         \if\endrb\breight \let\ptgeight=\piseven\fi
         \if\endrb\brnine \let\ptgnine=\piseven\fi
         \if\endrb\brnull \let\ptgnull=\piseven\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\piseven\fi
         \if\endrb\brtwo \let\pthtwo=\piseven\fi
         \if\endrb\brthree \let\pththree=\piseven\fi
         \if\endrb\brfour \let\pthfour=\piseven\fi
         \if\endrb\brfive \let\pthfive=\piseven\fi
         \if\endrb\brsix \let\pthsix=\piseven\fi
         \if\endrb\brseven \let\pthseven=\piseven\fi
         \if\endrb\breight \let\ptheight=\piseven\fi
         \if\endrb\brnine \let\pthnine=\piseven\fi
         \if\endrb\brnull \let\pthnull=\piseven\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\piseven\fi
         \if\endrb\brtwo \let\ptitwo=\piseven\fi
         \if\endrb\brthree \let\ptithree=\piseven\fi
         \if\endrb\brfour \let\ptifour=\piseven\fi
         \if\endrb\brfive \let\ptifive=\piseven\fi
         \if\endrb\brsix \let\ptisix=\piseven\fi
         \if\endrb\brseven \let\ptiseven=\piseven\fi
         \if\endrb\breight \let\ptieight=\piseven\fi
         \if\endrb\brnine \let\ptinine=\piseven\fi
         \if\endrb\brnull \let\ptinull=\piseven\fi\fi\fi      
   \if\startrb\breight \ieightset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pieight\fi
         \if\endrb\brtwo \let\ptatwo=\pieight\fi
         \if\endrb\brthree \let\ptathree=\pieight\fi
         \if\endrb\brfour \let\ptafour=\pieight\fi
         \if\endrb\brfive \let\ptafive=\pieight\fi
         \if\endrb\brsix \let\ptasix=\pieight\fi
         \if\endrb\brseven \let\ptaseven=\pieight\fi
         \if\endrb\breight \let\ptaeight=\pieight\fi
         \if\endrb\brnine \let\ptanine=\pieight\fi
         \if\endrb\brnull \let\ptanull=\pieight\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pieight\fi
         \if\endrb\brtwo \let\ptbtwo=\pieight\fi
         \if\endrb\brthree \let\ptbthree=\pieight\fi
         \if\endrb\brfour \let\ptbfour=\pieight\fi
         \if\endrb\brfive \let\ptbfive=\pieight\fi
         \if\endrb\brsix \let\ptbsix=\pieight\fi
         \if\endrb\brseven \let\ptbseven=\pieight\fi
         \if\endrb\breight \let\ptbeight=\pieight\fi
         \if\endrb\brnine \let\ptbnine=\pieight\fi
         \if\endrb\brnull \let\ptbnull=\pieight\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pieight\fi
         \if\endrb\brtwo \let\ptctwo=\pieight\fi
         \if\endrb\brthree \let\ptcthree=\pieight\fi
         \if\endrb\brfour \let\ptcfour=\pieight\fi
         \if\endrb\brfive \let\ptcfive=\pieight\fi
         \if\endrb\brsix \let\ptcsix=\pieight\fi
         \if\endrb\brseven \let\ptcseven=\pieight\fi
         \if\endrb\breight \let\ptceight=\pieight\fi
         \if\endrb\brnine \let\ptcnine=\pieight\fi
         \if\endrb\brnull \let\ptcnull=\pieight\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pieight\fi
         \if\endrb\brtwo \let\ptdtwo=\pieight\fi
         \if\endrb\brthree \let\ptdthree=\pieight\fi
         \if\endrb\brfour \let\ptdfour=\pieight\fi
         \if\endrb\brfive \let\ptdfive=\pieight\fi
         \if\endrb\brsix \let\ptdsix=\pieight\fi
         \if\endrb\brseven \let\ptdseven=\pieight\fi
         \if\endrb\breight \let\ptdeight=\pieight\fi
         \if\endrb\brnine \let\ptdnine=\pieight\fi
         \if\endrb\brnull \let\ptdnull=\pieight\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pieight\fi
         \if\endrb\brtwo \let\ptetwo=\pieight\fi
         \if\endrb\brthree \let\ptethree=\pieight\fi
         \if\endrb\brfour \let\ptefour=\pieight\fi
         \if\endrb\brfive \let\ptefive=\pieight\fi
         \if\endrb\brsix \let\ptesix=\pieight\fi
         \if\endrb\brseven \let\pteseven=\pieight\fi
         \if\endrb\breight \let\pteeight=\pieight\fi
         \if\endrb\brnine \let\ptenine=\pieight\fi
         \if\endrb\brnull \let\ptenull=\pieight\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pieight\fi
         \if\endrb\brtwo \let\ptftwo=\pieight\fi
         \if\endrb\brthree \let\ptfthree=\pieight\fi
         \if\endrb\brfour \let\ptffour=\pieight\fi
         \if\endrb\brfive \let\ptffive=\pieight\fi
         \if\endrb\brsix \let\ptfsix=\pieight\fi
         \if\endrb\brseven \let\ptfseven=\pieight\fi
         \if\endrb\breight \let\ptfeight=\pieight\fi
         \if\endrb\brnine \let\ptfnine=\pieight\fi
         \if\endrb\brnull \let\ptfnull=\pieight\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pieight\fi
         \if\endrb\brtwo \let\ptgtwo=\pieight\fi
         \if\endrb\brthree \let\ptgthree=\pieight\fi
         \if\endrb\brfour \let\ptgfour=\pieight\fi
         \if\endrb\brfive \let\ptgfive=\pieight\fi
         \if\endrb\brsix \let\ptgsix=\pieight\fi
         \if\endrb\brseven \let\ptgseven=\pieight\fi
         \if\endrb\breight \let\ptgeight=\pieight\fi
         \if\endrb\brnine \let\ptgnine=\pieight\fi
         \if\endrb\brnull \let\ptgnull=\pieight\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pieight\fi
         \if\endrb\brtwo \let\pthtwo=\pieight\fi
         \if\endrb\brthree \let\pththree=\pieight\fi
         \if\endrb\brfour \let\pthfour=\pieight\fi
         \if\endrb\brfive \let\pthfive=\pieight\fi
         \if\endrb\brsix \let\pthsix=\pieight\fi
         \if\endrb\brseven \let\pthseven=\pieight\fi
         \if\endrb\breight \let\ptheight=\pieight\fi
         \if\endrb\brnine \let\pthnine=\pieight\fi
         \if\endrb\brnull \let\pthnull=\pieight\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pieight\fi
         \if\endrb\brtwo \let\ptitwo=\pieight\fi
         \if\endrb\brthree \let\ptithree=\pieight\fi
         \if\endrb\brfour \let\ptifour=\pieight\fi
         \if\endrb\brfive \let\ptifive=\pieight\fi
         \if\endrb\brsix \let\ptisix=\pieight\fi
         \if\endrb\brseven \let\ptiseven=\pieight\fi
         \if\endrb\breight \let\ptieight=\pieight\fi
         \if\endrb\brnine \let\ptinine=\pieight\fi
         \if\endrb\brnull \let\ptinull=\pieight\fi\fi\fi      
   \if\startrb\brnine \inineset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pinine\fi
         \if\endrb\brtwo \let\ptatwo=\pinine\fi
         \if\endrb\brthree \let\ptathree=\pinine\fi
         \if\endrb\brfour \let\ptafour=\pinine\fi
         \if\endrb\brfive \let\ptafive=\pinine\fi
         \if\endrb\brsix \let\ptasix=\pinine\fi
         \if\endrb\brseven \let\ptaseven=\pinine\fi
         \if\endrb\breight \let\ptaeight=\pinine\fi
         \if\endrb\brnine \let\ptanine=\pinine\fi
         \if\endrb\brnull \let\ptanull=\pinine\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pinine\fi
         \if\endrb\brtwo \let\ptbtwo=\pinine\fi
         \if\endrb\brthree \let\ptbthree=\pinine\fi
         \if\endrb\brfour \let\ptbfour=\pinine\fi
         \if\endrb\brfive \let\ptbfive=\pinine\fi
         \if\endrb\brsix \let\ptbsix=\pinine\fi
         \if\endrb\brseven \let\ptbseven=\pinine\fi
         \if\endrb\breight \let\ptbeight=\pinine\fi
         \if\endrb\brnine \let\ptbnine=\pinine\fi
         \if\endrb\brnull \let\ptbnull=\pinine\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pinine\fi
         \if\endrb\brtwo \let\ptctwo=\pinine\fi
         \if\endrb\brthree \let\ptcthree=\pinine\fi
         \if\endrb\brfour \let\ptcfour=\pinine\fi
         \if\endrb\brfive \let\ptcfive=\pinine\fi
         \if\endrb\brsix \let\ptcsix=\pinine\fi
         \if\endrb\brseven \let\ptcseven=\pinine\fi
         \if\endrb\breight \let\ptceight=\pinine\fi
         \if\endrb\brnine \let\ptcnine=\pinine\fi
         \if\endrb\brnull \let\ptcnull=\pinine\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pinine\fi
         \if\endrb\brtwo \let\ptdtwo=\pinine\fi
         \if\endrb\brthree \let\ptdthree=\pinine\fi
         \if\endrb\brfour \let\ptdfour=\pinine\fi
         \if\endrb\brfive \let\ptdfive=\pinine\fi
         \if\endrb\brsix \let\ptdsix=\pinine\fi
         \if\endrb\brseven \let\ptdseven=\pinine\fi
         \if\endrb\breight \let\ptdeight=\pinine\fi
         \if\endrb\brnine \let\ptdnine=\pinine\fi
         \if\endrb\brnull \let\ptdnull=\pinine\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pinine\fi
         \if\endrb\brtwo \let\ptetwo=\pinine\fi
         \if\endrb\brthree \let\ptethree=\pinine\fi
         \if\endrb\brfour \let\ptefour=\pinine\fi
         \if\endrb\brfive \let\ptefive=\pinine\fi
         \if\endrb\brsix \let\ptesix=\pinine\fi
         \if\endrb\brseven \let\pteseven=\pinine\fi
         \if\endrb\breight \let\pteeight=\pinine\fi
         \if\endrb\brnine \let\ptenine=\pinine\fi
         \if\endrb\brnull \let\ptenull=\pinine\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pinine\fi
         \if\endrb\brtwo \let\ptftwo=\pinine\fi
         \if\endrb\brthree \let\ptfthree=\pinine\fi
         \if\endrb\brfour \let\ptffour=\pinine\fi
         \if\endrb\brfive \let\ptffive=\pinine\fi
         \if\endrb\brsix \let\ptfsix=\pinine\fi
         \if\endrb\brseven \let\ptfseven=\pinine\fi
         \if\endrb\breight \let\ptfeight=\pinine\fi
         \if\endrb\brnine \let\ptfnine=\pinine\fi
         \if\endrb\brnull \let\ptfnull=\pinine\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pinine\fi
         \if\endrb\brtwo \let\ptgtwo=\pinine\fi
         \if\endrb\brthree \let\ptgthree=\pinine\fi
         \if\endrb\brfour \let\ptgfour=\pinine\fi
         \if\endrb\brfive \let\ptgfive=\pinine\fi
         \if\endrb\brsix \let\ptgsix=\pinine\fi
         \if\endrb\brseven \let\ptgseven=\pinine\fi
         \if\endrb\breight \let\ptgeight=\pinine\fi
         \if\endrb\brnine \let\ptgnine=\pinine\fi
         \if\endrb\brnull \let\ptgnull=\pinine\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pinine\fi
         \if\endrb\brtwo \let\pthtwo=\pinine\fi
         \if\endrb\brthree \let\pththree=\pinine\fi
         \if\endrb\brfour \let\pthfour=\pinine\fi
         \if\endrb\brfive \let\pthfive=\pinine\fi
         \if\endrb\brsix \let\pthsix=\pinine\fi
         \if\endrb\brseven \let\pthseven=\pinine\fi
         \if\endrb\breight \let\ptheight=\pinine\fi
         \if\endrb\brnine \let\pthnine=\pinine\fi
         \if\endrb\brnull \let\pthnull=\pinine\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pinine\fi
         \if\endrb\brtwo \let\ptitwo=\pinine\fi
         \if\endrb\brthree \let\ptithree=\pinine\fi
         \if\endrb\brfour \let\ptifour=\pinine\fi
         \if\endrb\brfive \let\ptifive=\pinine\fi
         \if\endrb\brsix \let\ptisix=\pinine\fi
         \if\endrb\brseven \let\ptiseven=\pinine\fi
         \if\endrb\breight \let\ptieight=\pinine\fi
         \if\endrb\brnine \let\ptinine=\pinine\fi
         \if\endrb\brnull \let\ptinull=\pinine\fi\fi\fi      
   \if\startrb\brnull \inullset=0 
      \if\endlb\ali
         \if\endrb\brone \let\ptaone=\pinull\fi
         \if\endrb\brtwo \let\ptatwo=\pinull\fi
         \if\endrb\brthree \let\ptathree=\pinull\fi
         \if\endrb\brfour \let\ptafour=\pinull\fi
         \if\endrb\brfive \let\ptafive=\pinull\fi
         \if\endrb\brsix \let\ptasix=\pinull\fi
         \if\endrb\brseven \let\ptaseven=\pinull\fi
         \if\endrb\breight \let\ptaeight=\pinull\fi
         \if\endrb\brnine \let\ptanine=\pinull\fi
         \if\endrb\brnull \let\ptanull=\pinull\fi\fi
      \if\endlb\bli
         \if\endrb\brone \let\ptbone=\pinull\fi
         \if\endrb\brtwo \let\ptbtwo=\pinull\fi
         \if\endrb\brthree \let\ptbthree=\pinull\fi
         \if\endrb\brfour \let\ptbfour=\pinull\fi
         \if\endrb\brfive \let\ptbfive=\pinull\fi
         \if\endrb\brsix \let\ptbsix=\pinull\fi
         \if\endrb\brseven \let\ptbseven=\pinull\fi
         \if\endrb\breight \let\ptbeight=\pinull\fi
         \if\endrb\brnine \let\ptbnine=\pinull\fi
         \if\endrb\brnull \let\ptbnull=\pinull\fi\fi
      \if\endlb\cli
         \if\endrb\brone \let\ptcone=\pinull\fi
         \if\endrb\brtwo \let\ptctwo=\pinull\fi
         \if\endrb\brthree \let\ptcthree=\pinull\fi
         \if\endrb\brfour \let\ptcfour=\pinull\fi
         \if\endrb\brfive \let\ptcfive=\pinull\fi
         \if\endrb\brsix \let\ptcsix=\pinull\fi
         \if\endrb\brseven \let\ptcseven=\pinull\fi
         \if\endrb\breight \let\ptceight=\pinull\fi
         \if\endrb\brnine \let\ptcnine=\pinull\fi
         \if\endrb\brnull \let\ptcnull=\pinull\fi\fi
      \if\endlb\dli
         \if\endrb\brone \let\ptdone=\pinull\fi
         \if\endrb\brtwo \let\ptdtwo=\pinull\fi
         \if\endrb\brthree \let\ptdthree=\pinull\fi
         \if\endrb\brfour \let\ptdfour=\pinull\fi
         \if\endrb\brfive \let\ptdfive=\pinull\fi
         \if\endrb\brsix \let\ptdsix=\pinull\fi
         \if\endrb\brseven \let\ptdseven=\pinull\fi
         \if\endrb\breight \let\ptdeight=\pinull\fi
         \if\endrb\brnine \let\ptdnine=\pinull\fi
         \if\endrb\brnull \let\ptdnull=\pinull\fi\fi
      \if\endlb\eli
         \if\endrb\brone \let\pteone=\pinull\fi
         \if\endrb\brtwo \let\ptetwo=\pinull\fi
         \if\endrb\brthree \let\ptethree=\pinull\fi
         \if\endrb\brfour \let\ptefour=\pinull\fi
         \if\endrb\brfive \let\ptefive=\pinull\fi
         \if\endrb\brsix \let\ptesix=\pinull\fi
         \if\endrb\brseven \let\pteseven=\pinull\fi
         \if\endrb\breight \let\pteeight=\pinull\fi
         \if\endrb\brnine \let\ptenine=\pinull\fi
         \if\endrb\brnull \let\ptenull=\pinull\fi\fi
      \if\endlb\fli
         \if\endrb\brone \let\ptfone=\pinull\fi
         \if\endrb\brtwo \let\ptftwo=\pinull\fi
         \if\endrb\brthree \let\ptfthree=\pinull\fi
         \if\endrb\brfour \let\ptffour=\pinull\fi
         \if\endrb\brfive \let\ptffive=\pinull\fi
         \if\endrb\brsix \let\ptfsix=\pinull\fi
         \if\endrb\brseven \let\ptfseven=\pinull\fi
         \if\endrb\breight \let\ptfeight=\pinull\fi
         \if\endrb\brnine \let\ptfnine=\pinull\fi
         \if\endrb\brnull \let\ptfnull=\pinull\fi\fi
      \if\endlb\gli
         \if\endrb\brone \let\ptgone=\pinull\fi
         \if\endrb\brtwo \let\ptgtwo=\pinull\fi
         \if\endrb\brthree \let\ptgthree=\pinull\fi
         \if\endrb\brfour \let\ptgfour=\pinull\fi
         \if\endrb\brfive \let\ptgfive=\pinull\fi
         \if\endrb\brsix \let\ptgsix=\pinull\fi
         \if\endrb\brseven \let\ptgseven=\pinull\fi
         \if\endrb\breight \let\ptgeight=\pinull\fi
         \if\endrb\brnine \let\ptgnine=\pinull\fi
         \if\endrb\brnull \let\ptgnull=\pinull\fi\fi
      \if\endlb\hli
         \if\endrb\brone \let\pthone=\pinull\fi
         \if\endrb\brtwo \let\pthtwo=\pinull\fi
         \if\endrb\brthree \let\pththree=\pinull\fi
         \if\endrb\brfour \let\pthfour=\pinull\fi
         \if\endrb\brfive \let\pthfive=\pinull\fi
         \if\endrb\brsix \let\pthsix=\pinull\fi
         \if\endrb\brseven \let\pthseven=\pinull\fi
         \if\endrb\breight \let\ptheight=\pinull\fi
         \if\endrb\brnine \let\pthnine=\pinull\fi
         \if\endrb\brnull \let\pthnull=\pinull\fi\fi          
      \if\endlb\ili
         \if\endrb\brone \let\ptione=\pinull\fi
         \if\endrb\brtwo \let\ptitwo=\pinull\fi
         \if\endrb\brthree \let\ptithree=\pinull\fi
         \if\endrb\brfour \let\ptifour=\pinull\fi
         \if\endrb\brfive \let\ptifive=\pinull\fi
         \if\endrb\brsix \let\ptisix=\pinull\fi
         \if\endrb\brseven \let\ptiseven=\pinull\fi
         \if\endrb\breight \let\ptieight=\pinull\fi
         \if\endrb\brnine \let\ptinine=\pinull\fi
         \if\endrb\brnull \let\ptinull=\pinull\fi\fi\fi\fi          

%endpositions for red and black
\if\endlr\ali
   \if\endrr\brone \aoneset=1 \let\paone=\ptaone\fi
   \if\endrr\brtwo \atwoset=1 \let\patwo=\ptatwo\fi
   \if\endrr\brthree \athreeset=1 \let\pathree=\ptathree\fi
   \if\endrr\brfour \afourset=1 \let\pafour=\ptafour\fi
   \if\endrr\brfive \afiveset=1 \let\pafive=\ptafive\fi 
   \if\endrr\brsix \asixset=1 \let\pasix=\ptasix\fi
   \if\endrr\brseven \asevenset=1 \let\paseven=\ptaseven\fi
   \if\endrr\breight \aeightset=1 \let\paeight=\ptaeight\fi
   \if\endrr\brnine \anineset=1 \let\panine=\ptanine\fi
   \if\endrr\brnull \anullset=1 \let\panull=\ptanull\fi\fi
\if\endlr\bli
   \if\endrr\brone \boneset=1 \let\pbone=\ptbone\fi
   \if\endrr\brtwo \btwoset=1 \let\pbtwo=\ptbtwo\fi
   \if\endrr\brthree \bthreeset=1 \let\pbthree=\ptbthree\fi
   \if\endrr\brfour \bfourset=1 \let\pbfour=\ptbfour\fi
   \if\endrr\brfive \bfiveset=1 \let\pbfive=\ptbfive\fi 
   \if\endrr\brsix \bsixset=1 \let\pbsix=\ptbsix\fi
   \if\endrr\brseven \bsevenset=1 \let\pbseven=\ptbseven\fi
   \if\endrr\breight \beightset=1 \let\pbeight=\ptbeight\fi
   \if\endrr\brnine \bnineset=1 \let\pbnine=\ptbnine\fi
   \if\endrr\brnull \bnullset=1 \let\pbnull=\ptbnull\fi\fi
\if\endlr\cli
   \if\endrr\brone \coneset=1 \let\pcone=\ptcone\fi
   \if\endrr\brtwo \ctwoset=1 \let\pctwo=\ptctwo\fi
   \if\endrr\brthree \cthreeset=1 \let\pcthree=\ptcthree\fi
   \if\endrr\brfour \cfourset=1 \let\pcfour=\ptcfour\fi
   \if\endrr\brfive \cfiveset=1 \let\pcfive=\ptcfive\fi 
   \if\endrr\brsix \csixset=1 \let\pcsix=\ptcsix\fi
   \if\endrr\brseven \csevenset=1 \let\pcseven=\ptcseven\fi
   \if\endrr\breight \ceightset=1 \let\pceight=\ptceight\fi
   \if\endrr\brnine \cnineset=1 \let\pcnine=\ptcnine\fi
   \if\endrr\brnull \cnullset=1 \let\pcnull=\ptcnull\fi\fi
\if\endlr\dli
   \if\endrr\brone \doneset=1 \let\pdone=\ptdone\fi
   \if\endrr\brtwo \dtwoset=1 \let\pdtwo=\ptdtwo\fi
   \if\endrr\brthree \dthreeset=1 \let\pdthree=\ptdthree\fi
   \if\endrr\brfour \dfourset=1 \let\pdfour=\ptdfour\fi
   \if\endrr\brfive \dfiveset=1 \let\pdfive=\ptdfive\fi 
   \if\endrr\brsix \dsixset=1 \let\pdsix=\ptdsix\fi
   \if\endrr\brseven \dsevenset=1 \let\pdseven=\ptdseven\fi
   \if\endrr\breight \deightset=1 \let\pdeight=\ptdeight\fi
   \if\endrr\brnine \dnineset=1 \let\pdnine=\ptdnine\fi
   \if\endrr\brnull \dnullset=1 \let\pdnull=\ptdnull\fi\fi
\if\endlr\eli
   \if\endrr\brone \eoneset=1 \let\peone=\pteone\fi
   \if\endrr\brtwo \etwoset=1 \let\petwo=\ptetwo\fi
   \if\endrr\brthree \ethreeset=1 \let\pethree=\ptethree\fi
   \if\endrr\brfour \efourset=1 \let\pefour=\ptefour\fi
   \if\endrr\brfive \efiveset=1 \let\pefive=\ptefive\fi 
   \if\endrr\brsix \esixset=1 \let\pesix=\ptesix\fi
   \if\endrr\brseven \esevenset=1 \let\peseven=\pteseven\fi
   \if\endrr\breight \eeightset=1 \let\peeight=\pteeight\fi
   \if\endrr\brnine \enineset=1 \let\penine=\ptenine\fi
   \if\endrr\brnull \enullset=1 \let\penull=\ptenull\fi\fi
\if\endlr\fli
   \if\endrr\brone \foneset=1 \let\pfone=\ptfone\fi
   \if\endrr\brtwo \ftwoset=1 \let\pftwo=\ptftwo\fi
   \if\endrr\brthree \fthreeset=1 \let\pfthree=\ptfthree\fi
   \if\endrr\brfour \ffourset=1 \let\pffour=\ptffour\fi
   \if\endrr\brfive \ffiveset=1 \let\pffive=\ptffive\fi 
   \if\endrr\brsix \fsixset=1 \let\pfsix=\ptfsix\fi
   \if\endrr\brseven \fsevenset=1 \let\pfseven=\ptfseven\fi
   \if\endrr\breight \feightset=1 \let\pfeight=\ptfeight\fi
   \if\endrr\brnine \fnineset=1 \let\pfnine=\ptfnine\fi
   \if\endrr\brnull \fnullset=1 \let\pfnull=\ptfnull\fi\fi
\if\endlr\gli
   \if\endrr\brone \goneset=1 \let\pgone=\ptgone\fi
   \if\endrr\brtwo \gtwoset=1 \let\pgtwo=\ptgtwo\fi
   \if\endrr\brthree \gthreeset=1 \let\pgthree=\ptgthree\fi
   \if\endrr\brfour \gfourset=1 \let\pgfour=\ptgfour\fi
   \if\endrr\brfive \gfiveset=1 \let\pgfive=\ptgfive\fi 
   \if\endrr\brsix \gsixset=1 \let\pgsix=\ptgsix\fi
   \if\endrr\brseven \gsevenset=1 \let\pgseven=\ptgseven\fi
   \if\endrr\breight \geightset=1 \let\pgeight=\ptgeight\fi
   \if\endrr\brnine \gnineset=1 \let\pgnine=\ptgnine\fi
   \if\endrr\brnull \gnullset=1 \let\pgnull=\ptgnull\fi\fi
\if\endlr\hli
   \if\endrr\brone \honeset=1 \let\phone=\pthone\fi
   \if\endrr\brtwo \htwoset=1 \let\phtwo=\pthtwo\fi
   \if\endrr\brthree \hthreeset=1 \let\phthree=\pththree\fi
   \if\endrr\brfour \hfourset=1 \let\phfour=\pthfour\fi
   \if\endrr\brfive \hfiveset=1 \let\phfive=\pthfive\fi 
   \if\endrr\brsix \hsixset=1 \let\phsix=\pthsix\fi
   \if\endrr\brseven \hsevenset=1 \let\phseven=\pthseven\fi
   \if\endrr\breight \heightset=1 \let\pheight=\ptheight\fi
   \if\endrr\brnine \hnineset=1 \let\phnine=\pthnine\fi
   \if\endrr\brnull \hnullset=1 \let\phnull=\pthnull\fi\fi
\if\endlr\ili
   \if\endrr\brone \ioneset=1 \let\pione=\ptione\fi
   \if\endrr\brtwo \itwoset=1 \let\pitwo=\ptitwo\fi
   \if\endrr\brthree \ithreeset=1 \let\pithree=\ptithree\fi
   \if\endrr\brfour \ifourset=1 \let\pifour=\ptifour\fi
   \if\endrr\brfive \ifiveset=1 \let\pifive=\ptifive\fi 
   \if\endrr\brsix \isixset=1 \let\pisix=\ptisix\fi
   \if\endrr\brseven \isevenset=1 \let\piseven=\ptiseven\fi
   \if\endrr\breight \ieightset=1 \let\pieight=\ptieight\fi
   \if\endrr\brnine \inineset=1 \let\pinine=\ptinine\fi
   \if\endrr\brnull \inullset=1 \let\pinull=\ptinull\fi\fi

\if\endlb\ali
   \if\endrb\brone \aoneset=1 \let\paone=\ptaone\fi
   \if\endrb\brtwo \atwoset=1 \let\patwo=\ptatwo\fi
   \if\endrb\brthree \athreeset=1 \let\pathree=\ptathree\fi
   \if\endrb\brfour \afourset=1 \let\pafour=\ptafour\fi
   \if\endrb\brfive \afiveset=1 \let\pafive=\ptafive\fi 
   \if\endrb\brsix \asixset=1 \let\pasix=\ptasix\fi
   \if\endrb\brseven \asevenset=1 \let\paseven=\ptaseven\fi
   \if\endrb\breight \aeightset=1 \let\paeight=\ptaeight\fi
   \if\endrb\brnine \anineset=1 \let\panine=\ptanine\fi
   \if\endrb\brnull \anullset=1 \let\panull=\ptanull\fi\fi
\if\endlb\bli
   \if\endrb\brone \boneset=1 \let\pbone=\ptbone\fi
   \if\endrb\brtwo \btwoset=1 \let\pbtwo=\ptbtwo\fi
   \if\endrb\brthree \bthreeset=1 \let\pbthree=\ptbthree\fi
   \if\endrb\brfour \bfourset=1 \let\pbfour=\ptbfour\fi
   \if\endrb\brfive \bfiveset=1 \let\pbfive=\ptbfive\fi 
   \if\endrb\brsix \bsixset=1 \let\pbsix=\ptbsix\fi
   \if\endrb\brseven \bsevenset=1 \let\pbseven=\ptbseven\fi
   \if\endrb\breight \beightset=1 \let\pbeight=\ptbeight\fi
   \if\endrb\brnine \bnineset=1 \let\pbnine=\ptbnine\fi
   \if\endrb\brnull \bnullset=1 \let\pbnull=\ptbnull\fi\fi
\if\endlb\cli
   \if\endrb\brone \coneset=1 \let\pcone=\ptcone\fi
   \if\endrb\brtwo \ctwoset=1 \let\pctwo=\ptctwo\fi
   \if\endrb\brthree \cthreeset=1 \let\pcthree=\ptcthree\fi
   \if\endrb\brfour \cfourset=1 \let\pcfour=\ptcfour\fi
   \if\endrb\brfive \cfiveset=1 \let\pcfive=\ptcfive\fi 
   \if\endrb\brsix \csixset=1 \let\pcsix=\ptcsix\fi
   \if\endrb\brseven \csevenset=1 \let\pcseven=\ptcseven\fi
   \if\endrb\breight \ceightset=1 \let\pceight=\ptceight\fi
   \if\endrb\brnine \cnineset=1 \let\pcnine=\ptcnine\fi
   \if\endrb\brnull \cnullset=1 \let\pcnull=\ptcnull\fi\fi
\if\endlb\dli
   \if\endrb\brone \doneset=1 \let\pdone=\ptdone\fi
   \if\endrb\brtwo \dtwoset=1 \let\pdtwo=\ptdtwo\fi
   \if\endrb\brthree \dthreeset=1 \let\pdthree=\ptdthree\fi
   \if\endrb\brfour \dfourset=1 \let\pdfour=\ptdfour\fi
   \if\endrb\brfive \dfiveset=1 \let\pdfive=\ptdfive\fi 
   \if\endrb\brsix \dsixset=1 \let\pdsix=\ptdsix\fi
   \if\endrb\brseven \dsevenset=1 \let\pdseven=\ptdseven\fi
   \if\endrb\breight \deightset=1 \let\pdeight=\ptdeight\fi
   \if\endrb\brnine \dnineset=1 \let\pdnine=\ptdnine\fi
   \if\endrb\brnull \dnullset=1 \let\pdnull=\ptdnull\fi\fi
\if\endlb\eli
   \if\endrb\brone \eoneset=1 \let\peone=\pteone\fi
   \if\endrb\brtwo \etwoset=1 \let\petwo=\ptetwo\fi
   \if\endrb\brthree \ethreeset=1 \let\pethree=\ptethree\fi
   \if\endrb\brfour \efourset=1 \let\pefour=\ptefour\fi
   \if\endrb\brfive \efiveset=1 \let\pefive=\ptefive\fi 
   \if\endrb\brsix \esixset=1 \let\pesix=\ptesix\fi
   \if\endrb\brseven \esevenset=1 \let\peseven=\pteseven\fi
   \if\endrb\breight \eeightset=1 \let\peeight=\pteeight\fi
   \if\endrb\brnine \enineset=1 \let\penine=\ptenine\fi
   \if\endrb\brnull \enullset=1 \let\penull=\ptenull\fi\fi
\if\endlb\fli
   \if\endrb\brone \foneset=1 \let\pfone=\ptfone\fi
   \if\endrb\brtwo \ftwoset=1 \let\pftwo=\ptftwo\fi
   \if\endrb\brthree \fthreeset=1 \let\pfthree=\ptfthree\fi
   \if\endrb\brfour \ffourset=1 \let\pffour=\ptffour\fi
   \if\endrb\brfive \ffiveset=1 \let\pffive=\ptffive\fi 
   \if\endrb\brsix \fsixset=1 \let\pfsix=\ptfsix\fi
   \if\endrb\brseven \fsevenset=1 \let\pfseven=\ptfseven\fi
   \if\endrb\breight \feightset=1 \let\pfeight=\ptfeight\fi
   \if\endrb\brnine \fnineset=1 \let\pfnine=\ptfnine\fi
   \if\endrb\brnull \fnullset=1 \let\pfnull=\ptfnull\fi\fi
\if\endlb\gli
   \if\endrb\brone \goneset=1 \let\pgone=\ptgone\fi
   \if\endrb\brtwo \gtwoset=1 \let\pgtwo=\ptgtwo\fi
   \if\endrb\brthree \gthreeset=1 \let\pgthree=\ptgthree\fi
   \if\endrb\brfour \gfourset=1 \let\pgfour=\ptgfour\fi
   \if\endrb\brfive \gfiveset=1 \let\pgfive=\ptgfive\fi 
   \if\endrb\brsix \gsixset=1 \let\pgsix=\ptgsix\fi
   \if\endrb\brseven \gsevenset=1 \let\pgseven=\ptgseven\fi
   \if\endrb\breight \geightset=1 \let\pgeight=\ptgeight\fi
   \if\endrb\brnine \gnineset=1 \let\pgnine=\ptgnine\fi
   \if\endrb\brnull \gnullset=1 \let\pgnull=\ptgnull\fi\fi
\if\endlb\hli
   \if\endrb\brone \honeset=1 \let\phone=\pthone\fi
   \if\endrb\brtwo \htwoset=1 \let\phtwo=\pthtwo\fi
   \if\endrb\brthree \hthreeset=1 \let\phthree=\pththree\fi
   \if\endrb\brfour \hfourset=1 \let\phfour=\pthfour\fi
   \if\endrb\brfive \hfiveset=1 \let\phfive=\pthfive\fi 
   \if\endrb\brsix \hsixset=1 \let\phsix=\pthsix\fi
   \if\endrb\brseven \hsevenset=1 \let\phseven=\pthseven\fi
   \if\endrb\breight \heightset=1 \let\pheight=\ptheight\fi
   \if\endrb\brnine \hnineset=1 \let\phnine=\pthnine\fi
   \if\endrb\brnull \hnullset=1 \let\phnull=\pthnull\fi\fi
\if\endlb\ili
   \if\endrb\brone \ioneset=1 \let\pione=\ptione\fi
   \if\endrb\brtwo \itwoset=1 \let\pitwo=\ptitwo\fi
   \if\endrb\brthree \ithreeset=1 \let\pithree=\ptithree\fi
   \if\endrb\brfour \ifourset=1 \let\pifour=\ptifour\fi
   \if\endrb\brfive \ifiveset=1 \let\pifive=\ptifive\fi 
   \if\endrb\brsix \isixset=1 \let\pisix=\ptisix\fi
   \if\endrb\brseven \isevenset=1 \let\piseven=\ptiseven\fi
   \if\endrb\breight \ieightset=1 \let\pieight=\ptieight\fi
   \if\endrb\brnine \inineset=1 \let\pinine=\ptinine\fi
   \if\endrb\brnull \inullset=1 \let\pinull=\ptinull\fi\fi
}


%input of a position and show board
\newcount\aoneset \newcount\atwoset \newcount\athreeset \newcount\afourset \newcount\afiveset \newcount\asixset \newcount\asevenset \newcount\aeightset \newcount\anineset \newcount\anullset
\newcount\boneset \newcount\btwoset \newcount\bthreeset \newcount\bfourset \newcount\bfiveset \newcount\bsixset \newcount\bsevenset \newcount\beightset \newcount\bnineset \newcount\bnullset
\newcount\coneset \newcount\ctwoset \newcount\cthreeset \newcount\cfourset \newcount\cfiveset \newcount\csixset \newcount\csevenset \newcount\ceightset \newcount\cnineset \newcount\cnullset
\newcount\doneset \newcount\dtwoset \newcount\dthreeset \newcount\dfourset \newcount\dfiveset \newcount\dsixset \newcount\dsevenset \newcount\deightset \newcount\dnineset \newcount\dnullset
\newcount\eoneset \newcount\etwoset \newcount\ethreeset \newcount\efourset \newcount\efiveset \newcount\esixset \newcount\esevenset \newcount\eeightset \newcount\enineset \newcount\enullset
\newcount\foneset \newcount\ftwoset \newcount\fthreeset \newcount\ffourset \newcount\ffiveset \newcount\fsixset \newcount\fsevenset \newcount\feightset \newcount\fnineset \newcount\fnullset
\newcount\goneset \newcount\gtwoset \newcount\gthreeset \newcount\gfourset \newcount\gfiveset \newcount\gsixset \newcount\gsevenset \newcount\geightset \newcount\gnineset \newcount\gnullset
\newcount\honeset \newcount\htwoset \newcount\hthreeset \newcount\hfourset \newcount\hfiveset \newcount\hsixset \newcount\hsevenset \newcount\heightset \newcount\hnineset \newcount\hnullset
\newcount\ioneset \newcount\itwoset \newcount\ithreeset \newcount\ifourset \newcount\ifiveset \newcount\isixset \newcount\isevenset \newcount\ieightset \newcount\inineset \newcount\inullset

\def\ali{a} \def\bli{b} \def\cli{c} \def\dli{d} \def\eli{e} \def\fli{f} \def\gli{g} \def\hli{h} \def\ili{i}
\def\brone{1} \def\brtwo{2} \def\brthree{3} \def\brfour{4} \def\brfive{5} \def\brsix{6} \def\brseven{7} \def\breight{8} \def\brnine{9} \def\brnull{0}


%definitions for piece by piece input of a position 
\def\piece #1#2#3{

\def\brow{#3}
\def\bline{#2}
   \if\bline\ali 
      \if\brow\brone \aoneset=1 \def\pts{#1} 
         \if\pts\redking \def\paone{F}\fi
         \if\pts\blackking \def\paone{f}\fi
         \if\pts\redchariot \def\paone{W}\fi
         \if\pts\blackchariot \def\paone{w}\fi
         \if\pts\redcannon \def\paone{K}\fi
         \if\pts\blackcannon \def\paone{k}\fi
         \if\pts\redhorse \def\paone{P}\fi
         \if\pts\blackhorse \def\paone{p}\fi
         \if\pts\redelephant \def\paone{E}\fi
         \if\pts\blackelephant \def\paone{e}\fi
         \if\pts\redguard \def\paone{M}\fi
         \if\pts\blackguard \def\paone{m}\fi 
         \if\pts\redpawn \def\paone{S}\fi
         \if\pts\blackpawn \def\paone{s}\fi\fi
      \if\brow\brtwo \atwoset=1 \def\pts{#1}
         \if\pts\redking \def\patwo{F}\fi
         \if\pts\blackking \def\patwo{f}\fi
         \if\pts\redchariot \def\patwo{W}\fi
         \if\pts\blackchariot \def\patwo{w}\fi
         \if\pts\redcannon \def\patwo{K}\fi
         \if\pts\blackcannon \def\patwo{k}\fi
         \if\pts\redhorse \def\patwo{P}\fi
         \if\pts\blackhorse \def\patwo{p}\fi
         \if\pts\redelephant \def\patwo{E}\fi
         \if\pts\blackelephant \def\patwo{e}\fi
         \if\pts\redguard \def\patwo{M}\fi
         \if\pts\blackguard \def\patwo{m}\fi 
         \if\pts\redpawn \def\patwo{S}\fi
         \if\pts\blackpawn \def\patwo{s}\fi\fi
      \if\brow\brthree \athreeset=1 \def\pts{#1}
         \if\pts\redking \def\pathree{F}\fi
         \if\pts\blackking \def\pathree{f}\fi
         \if\pts\redchariot \def\pathree{W}\fi
         \if\pts\blackchariot \def\pathree{w}\fi
         \if\pts\redcannon \def\pathree{K}\fi
         \if\pts\blackcannon \def\pathree{k}\fi
         \if\pts\redhorse \def\pathree{P}\fi
         \if\pts\blackhorse \def\pathree{p}\fi
         \if\pts\redelephant \def\pathree{E}\fi
         \if\pts\blackelephant \def\pathree{e}\fi
         \if\pts\redguard \def\pathree{M}\fi
         \if\pts\blackguard \def\pathree{m}\fi 
         \if\pts\redpawn \def\pathree{S}\fi
         \if\pts\blackpawn \def\pathree{s}\fi\fi
      \if\brow\brfour \afourset=1 \def\pts{#1}
         \if\pts\redking \def\pafour{F}\fi
         \if\pts\blackking \def\pafour{f}\fi
         \if\pts\redchariot \def\pafour{W}\fi
         \if\pts\blackchariot \def\pafour{w}\fi
         \if\pts\redcannon \def\pafour{K}\fi
         \if\pts\blackcannon \def\pafour{k}\fi
         \if\pts\redhorse \def\pafour{P}\fi
         \if\pts\blackhorse \def\pafour{p}\fi
         \if\pts\redelephant \def\pafour{E}\fi
         \if\pts\blackelephant \def\pafour{e}\fi
         \if\pts\redguard \def\pafour{M}\fi
         \if\pts\blackguard \def\pafour{m}\fi 
         \if\pts\redpawn \def\pafour{S}\fi
         \if\pts\blackpawn \def\pafour{s}\fi\fi
      \if\brow\brfive \afiveset=1 \def\pts{#1}
         \if\pts\redking \def\pafive{F}\fi
         \if\pts\blackking \def\pafive{f}\fi
         \if\pts\redchariot \def\pafive{W}\fi
         \if\pts\blackchariot \def\pafive{w}\fi
         \if\pts\redcannon \def\pafive{K}\fi
         \if\pts\blackcannon \def\pafive{k}\fi
         \if\pts\redhorse \def\pafive{P}\fi
         \if\pts\blackhorse \def\pafive{p}\fi
         \if\pts\redelephant \def\pafive{E}\fi
         \if\pts\blackelephant \def\pafive{e}\fi
         \if\pts\redguard \def\pafive{M}\fi
         \if\pts\blackguard \def\pafive{m}\fi 
         \if\pts\redpawn \def\pafive{S}\fi
         \if\pts\blackpawn \def\pafive{s}\fi\fi
      \if\brow\brsix \asixset=1 \def\pts{#1}
         \if\pts\redking \def\pasix{F}\fi
         \if\pts\blackking \def\pasix{f}\fi
         \if\pts\redchariot \def\pasix{W}\fi
         \if\pts\blackchariot \def\pasix{w}\fi
         \if\pts\redcannon \def\pasix{K}\fi
         \if\pts\blackcannon \def\pasix{k}\fi
         \if\pts\redhorse \def\pasix{P}\fi
         \if\pts\blackhorse \def\pasix{p}\fi
         \if\pts\redelephant \def\pasix{E}\fi
         \if\pts\blackelephant \def\pasix{e}\fi
         \if\pts\redguard \def\pasix{M}\fi
         \if\pts\blackguard \def\pasix{m}\fi 
         \if\pts\redpawn \def\pasix{S}\fi
         \if\pts\blackpawn \def\pasix{s}\fi\fi
      \if\brow\brseven \asevenset=1 \def\pts{#1}
         \if\pts\redking \def\paseven{F}\fi
         \if\pts\blackking \def\paseven{f}\fi
         \if\pts\redchariot \def\paseven{W}\fi
         \if\pts\blackchariot \def\paseven{w}\fi
         \if\pts\redcannon \def\paseven{K}\fi
         \if\pts\blackcannon \def\paseven{k}\fi
         \if\pts\redhorse \def\paseven{P}\fi
         \if\pts\blackhorse \def\paseven{p}\fi
         \if\pts\redelephant \def\paseven{E}\fi
         \if\pts\blackelephant \def\paseven{e}\fi
         \if\pts\redguard \def\paseven{M}\fi
         \if\pts\blackguard \def\paseven{m}\fi 
         \if\pts\redpawn \def\paseven{S}\fi
         \if\pts\blackpawn \def\paseven{s}\fi\fi
      \if\brow\breight \aeightset=1 \def\pts{#1}
         \if\pts\redking \def\paeight{F}\fi
         \if\pts\blackking \def\paeight{f}\fi
         \if\pts\redchariot \def\paeight{W}\fi
         \if\pts\blackchariot \def\paeight{w}\fi
         \if\pts\redcannon \def\paeight{K}\fi
         \if\pts\blackcannon \def\paeight{k}\fi
         \if\pts\redhorse \def\paeight{P}\fi
         \if\pts\blackhorse \def\paeight{p}\fi
         \if\pts\redelephant \def\paeight{E}\fi
         \if\pts\blackelephant \def\paeight{e}\fi
         \if\pts\redguard \def\paeight{M}\fi
         \if\pts\blackguard \def\paeight{m}\fi 
         \if\pts\redpawn \def\paeight{S}\fi
         \if\pts\blackpawn \def\paeight{s}\fi\fi
      \if\brow\brnine \anineset=1 \def\pts{#1}
         \if\pts\redking \def\panine{F}\fi
         \if\pts\blackking \def\panine{f}\fi
         \if\pts\redchariot \def\panine{W}\fi
         \if\pts\blackchariot \def\panine{w}\fi
         \if\pts\redcannon \def\panine{K}\fi
         \if\pts\blackcannon \def\panine{k}\fi
         \if\pts\redhorse \def\panine{P}\fi
         \if\pts\blackhorse \def\panine{p}\fi
         \if\pts\redelephant \def\panine{E}\fi
         \if\pts\blackelephant \def\panine{e}\fi
         \if\pts\redguard \def\panine{M}\fi
         \if\pts\blackguard \def\panine{m}\fi 
         \if\pts\redpawn \def\panine{S}\fi
         \if\pts\blackpawn \def\panine{s}\fi\fi
      \if\brow\brnull \anullset=1 \def\pts{#1}
         \if\pts\redking \def\panull{F}\fi
         \if\pts\blackking \def\panull{f}\fi
         \if\pts\redchariot \def\panull{W}\fi
         \if\pts\blackchariot \def\panull{w}\fi
         \if\pts\redcannon \def\panull{K}\fi
         \if\pts\blackcannon \def\panull{k}\fi
         \if\pts\redhorse \def\panull{P}\fi
         \if\pts\blackhorse \def\panull{p}\fi
         \if\pts\redelephant \def\panull{E}\fi
         \if\pts\blackelephant \def\panull{e}\fi
         \if\pts\redguard \def\panull{M}\fi
         \if\pts\blackguard \def\panull{m}\fi 
         \if\pts\redpawn \def\panull{S}\fi
         \if\pts\blackpawn \def\panull{s}\fi\fi\fi
   \if\bline\bli 
      \if\brow\brone \boneset=1 \def\pts{#1} 
         \if\pts\redking \def\pbone{F}\fi
         \if\pts\blackking \def\pbone{f}\fi
         \if\pts\redchariot \def\pbone{W}\fi
         \if\pts\blackchariot \def\pbone{w}\fi
         \if\pts\redcannon \def\pbone{K}\fi
         \if\pts\blackcannon \def\pbone{k}\fi
         \if\pts\redhorse \def\pbone{P}\fi
         \if\pts\blackhorse \def\pbone{p}\fi
         \if\pts\redelephant \def\pbone{E}\fi
         \if\pts\blackelephant \def\pbone{e}\fi
         \if\pts\redguard \def\pbone{M}\fi
         \if\pts\blackguard \def\pbone{m}\fi 
         \if\pts\redpawn \def\pbone{S}\fi
         \if\pts\blackpawn \def\pbone{s}\fi\fi
      \if\brow\brtwo \btwoset=1 \def\pts{#1}
         \if\pts\redking \def\pbtwo{F}\fi
         \if\pts\blackking \def\pbtwo{f}\fi
         \if\pts\redchariot \def\pbtwo{W}\fi
         \if\pts\blackchariot \def\pbtwo{w}\fi
         \if\pts\redcannon \def\pbtwo{K}\fi
         \if\pts\blackcannon \def\pbtwo{k}\fi
         \if\pts\redhorse \def\pbtwo{P}\fi
         \if\pts\blackhorse \def\pbtwo{p}\fi
         \if\pts\redelephant \def\pbtwo{E}\fi
         \if\pts\blackelephant \def\pbtwo{e}\fi
         \if\pts\redguard \def\pbtwo{M}\fi
         \if\pts\blackguard \def\pbtwo{m}\fi 
         \if\pts\redpawn \def\pbtwo{S}\fi
         \if\pts\blackpawn \def\pbtwo{s}\fi\fi
      \if\brow\brthree \bthreeset=1 \def\pts{#1}
         \if\pts\redking \def\pbthree{F}\fi
         \if\pts\blackking \def\pbthree{f}\fi
         \if\pts\redchariot \def\pbthree{W}\fi
         \if\pts\blackchariot \def\pbthree{w}\fi
         \if\pts\redcannon \def\pbthree{K}\fi
         \if\pts\blackcannon \def\pbthree{k}\fi
         \if\pts\redhorse \def\pbthree{P}\fi
         \if\pts\blackhorse \def\pbthree{p}\fi
         \if\pts\redelephant \def\pbthree{E}\fi
         \if\pts\blackelephant \def\pbthree{e}\fi
         \if\pts\redguard \def\pbthree{M}\fi
         \if\pts\blackguard \def\pbthree{m}\fi 
         \if\pts\redpawn \def\pbthree{S}\fi
         \if\pts\blackpawn \def\pbthree{s}\fi\fi
      \if\brow\brfour \bfourset=1 \def\pts{#1}
         \if\pts\redking \def\pbfour{F}\fi
         \if\pts\blackking \def\pbfour{f}\fi
         \if\pts\redchariot \def\pbfour{W}\fi
         \if\pts\blackchariot \def\pbfour{w}\fi
         \if\pts\redcannon \def\pbfour{K}\fi
         \if\pts\blackcannon \def\pbfour{k}\fi
         \if\pts\redhorse \def\pbfour{P}\fi
         \if\pts\blackhorse \def\pbfour{p}\fi
         \if\pts\redelephant \def\pbfour{E}\fi
         \if\pts\blackelephant \def\pbfour{e}\fi
         \if\pts\redguard \def\pbfour{M}\fi
         \if\pts\blackguard \def\pbfour{m}\fi 
         \if\pts\redpawn \def\pbfour{S}\fi
         \if\pts\blackpawn \def\pbfour{s}\fi\fi
      \if\brow\brfive \bfiveset=1 \def\pts{#1}
         \if\pts\redking \def\pbfive{F}\fi
         \if\pts\blackking \def\pbfive{f}\fi
         \if\pts\redchariot \def\pbfive{W}\fi
         \if\pts\blackchariot \def\pbfive{w}\fi
         \if\pts\redcannon \def\pbfive{K}\fi
         \if\pts\blackcannon \def\pbfive{k}\fi
         \if\pts\redhorse \def\pbfive{P}\fi
         \if\pts\blackhorse \def\pbfive{p}\fi
         \if\pts\redelephant \def\pbfive{E}\fi
         \if\pts\blackelephant \def\pbfive{e}\fi
         \if\pts\redguard \def\pbfive{M}\fi
         \if\pts\blackguard \def\pbfive{m}\fi 
         \if\pts\redpawn \def\pbfive{S}\fi
         \if\pts\blackpawn \def\pbfive{s}\fi\fi
      \if\brow\brsix \bsixset=1 \def\pts{#1}
         \if\pts\redking \def\pbsix{F}\fi
         \if\pts\blackking \def\pbsix{f}\fi
         \if\pts\redchariot \def\pbsix{W}\fi
         \if\pts\blackchariot \def\pbsix{w}\fi
         \if\pts\redcannon \def\pbsix{K}\fi
         \if\pts\blackcannon \def\pbsix{k}\fi
         \if\pts\redhorse \def\pbsix{P}\fi
         \if\pts\blackhorse \def\pbsix{p}\fi
         \if\pts\redelephant \def\pbsix{E}\fi
         \if\pts\blackelephant \def\pbsix{e}\fi
         \if\pts\redguard \def\pbsix{M}\fi
         \if\pts\blackguard \def\pbsix{m}\fi 
         \if\pts\redpawn \def\pbsix{S}\fi
         \if\pts\blackpawn \def\pbsix{s}\fi\fi
      \if\brow\brseven \bsevenset=1 \def\pts{#1}
         \if\pts\redking \def\pbseven{F}\fi
         \if\pts\blackking \def\pbseven{f}\fi
         \if\pts\redchariot \def\pbseven{W}\fi
         \if\pts\blackchariot \def\pbseven{w}\fi
         \if\pts\redcannon \def\pbseven{K}\fi
         \if\pts\blackcannon \def\pbseven{k}\fi
         \if\pts\redhorse \def\pbseven{P}\fi
         \if\pts\blackhorse \def\pbseven{p}\fi
         \if\pts\redelephant \def\pbseven{E}\fi
         \if\pts\blackelephant \def\pbseven{e}\fi
         \if\pts\redguard \def\pbseven{M}\fi
         \if\pts\blackguard \def\pbseven{m}\fi 
         \if\pts\redpawn \def\pbseven{S}\fi
         \if\pts\blackpawn \def\pbseven{s}\fi\fi
      \if\brow\breight \beightset=1 \def\pts{#1}
         \if\pts\redking \def\pbeight{F}\fi
         \if\pts\blackking \def\pbeight{f}\fi
         \if\pts\redchariot \def\pbeight{W}\fi
         \if\pts\blackchariot \def\pbeight{w}\fi
         \if\pts\redcannon \def\pbeight{K}\fi
         \if\pts\blackcannon \def\pbeight{k}\fi
         \if\pts\redhorse \def\pbeight{P}\fi
         \if\pts\blackhorse \def\pbeight{p}\fi
         \if\pts\redelephant \def\pbeight{E}\fi
         \if\pts\blackelephant \def\pbeight{e}\fi
         \if\pts\redguard \def\pbeight{M}\fi
         \if\pts\blackguard \def\pbeight{m}\fi 
         \if\pts\redpawn \def\pbeight{S}\fi
         \if\pts\blackpawn \def\pbeight{s}\fi\fi
      \if\brow\brnine \bnineset=1 \def\pts{#1}
         \if\pts\redking \def\pbnine{F}\fi
         \if\pts\blackking \def\pbnine{f}\fi
         \if\pts\redchariot \def\pbnine{W}\fi
         \if\pts\blackchariot \def\pbnine{w}\fi
         \if\pts\redcannon \def\pbnine{K}\fi
         \if\pts\blackcannon \def\pbnine{k}\fi
         \if\pts\redhorse \def\pbnine{P}\fi
         \if\pts\blackhorse \def\pbnine{p}\fi
         \if\pts\redelephant \def\pbnine{E}\fi
         \if\pts\blackelephant \def\pbnine{e}\fi
         \if\pts\redguard \def\pbnine{M}\fi
         \if\pts\blackguard \def\pbnine{m}\fi 
         \if\pts\redpawn \def\pbnine{S}\fi
         \if\pts\blackpawn \def\pbnine{s}\fi\fi
      \if\brow\brnull \bnullset=1 \def\pts{#1}
         \if\pts\redking \def\pbnull{F}\fi
         \if\pts\blackking \def\pbnull{f}\fi
         \if\pts\redchariot \def\pbnull{W}\fi
         \if\pts\blackchariot \def\pbnull{w}\fi
         \if\pts\redcannon \def\pbnull{K}\fi
         \if\pts\blackcannon \def\pbnull{k}\fi
         \if\pts\redhorse \def\pbnull{P}\fi
         \if\pts\blackhorse \def\pbnull{p}\fi
         \if\pts\redelephant \def\pbnull{E}\fi
         \if\pts\blackelephant \def\pbnull{e}\fi
         \if\pts\redguard \def\pbnull{M}\fi
         \if\pts\blackguard \def\pbnull{m}\fi 
         \if\pts\redpawn \def\pbnull{S}\fi
         \if\pts\blackpawn \def\pbnull{s}\fi\fi\fi
   \if\bline\cli 
      \if\brow\brone \coneset=1 \def\pts{#1} 
         \if\pts\redking \def\pcone{F}\fi
         \if\pts\blackking \def\pcone{f}\fi
         \if\pts\redchariot \def\pcone{W}\fi
         \if\pts\blackchariot \def\pcone{w}\fi
         \if\pts\redcannon \def\pcone{K}\fi
         \if\pts\blackcannon \def\pcone{k}\fi
         \if\pts\redhorse \def\pcone{P}\fi
         \if\pts\blackhorse \def\pcone{p}\fi
         \if\pts\redelephant \def\pcone{E}\fi
         \if\pts\blackelephant \def\pcone{e}\fi
         \if\pts\redguard \def\pcone{M}\fi
         \if\pts\blackguard \def\pcone{m}\fi 
         \if\pts\redpawn \def\pcone{S}\fi
         \if\pts\blackpawn \def\pcone{s}\fi\fi
      \if\brow\brtwo \ctwoset=1 \def\pts{#1}
         \if\pts\redking \def\pctwo{F}\fi
         \if\pts\blackking \def\pctwo{f}\fi
         \if\pts\redchariot \def\pctwo{W}\fi
         \if\pts\blackchariot \def\pctwo{w}\fi
         \if\pts\redcannon \def\pctwo{K}\fi
         \if\pts\blackcannon \def\pctwo{k}\fi
         \if\pts\redhorse \def\pctwo{P}\fi
         \if\pts\blackhorse \def\pctwo{p}\fi
         \if\pts\redelephant \def\pctwo{E}\fi
         \if\pts\blackelephant \def\pctwo{e}\fi
         \if\pts\redguard \def\pctwo{M}\fi
         \if\pts\blackguard \def\pctwo{m}\fi 
         \if\pts\redpawn \def\pctwo{S}\fi
         \if\pts\blackpawn \def\pctwo{s}\fi\fi
      \if\brow\brthree \cthreeset=1 \def\pts{#1}
         \if\pts\redking \def\pcthree{F}\fi
         \if\pts\blackking \def\pcthree{f}\fi
         \if\pts\redchariot \def\pcthree{W}\fi
         \if\pts\blackchariot \def\pcthree{w}\fi
         \if\pts\redcannon \def\pcthree{K}\fi
         \if\pts\blackcannon \def\pcthree{k}\fi
         \if\pts\redhorse \def\pcthree{P}\fi
         \if\pts\blackhorse \def\pcthree{p}\fi
         \if\pts\redelephant \def\pcthree{E}\fi
         \if\pts\blackelephant \def\pcthree{e}\fi
         \if\pts\redguard \def\pcthree{M}\fi
         \if\pts\blackguard \def\pcthree{m}\fi 
         \if\pts\redpawn \def\pcthree{S}\fi
         \if\pts\blackpawn \def\pcthree{s}\fi\fi
      \if\brow\brfour \cfourset=1 \def\pts{#1}
         \if\pts\redking \def\pcfour{F}\fi
         \if\pts\blackking \def\pcfour{f}\fi
         \if\pts\redchariot \def\pcfour{W}\fi
         \if\pts\blackchariot \def\pcfour{w}\fi
         \if\pts\redcannon \def\pcfour{K}\fi
         \if\pts\blackcannon \def\pcfour{k}\fi
         \if\pts\redhorse \def\pcfour{P}\fi
         \if\pts\blackhorse \def\pcfour{p}\fi
         \if\pts\redelephant \def\pcfour{E}\fi
         \if\pts\blackelephant \def\pcfour{e}\fi
         \if\pts\redguard \def\pcfour{M}\fi
         \if\pts\blackguard \def\pcfour{m}\fi 
         \if\pts\redpawn \def\pcfour{S}\fi
         \if\pts\blackpawn \def\pcfour{s}\fi\fi
      \if\brow\brfive \cfiveset=1 \def\pts{#1}
         \if\pts\redking \def\pcfive{F}\fi
         \if\pts\blackking \def\pcfive{f}\fi
         \if\pts\redchariot \def\pcfive{W}\fi
         \if\pts\blackchariot \def\pcfive{w}\fi
         \if\pts\redcannon \def\pcfive{K}\fi
         \if\pts\blackcannon \def\pcfive{k}\fi
         \if\pts\redhorse \def\pcfive{P}\fi
         \if\pts\blackhorse \def\pcfive{p}\fi
         \if\pts\redelephant \def\pcfive{E}\fi
         \if\pts\blackelephant \def\pcfive{e}\fi
         \if\pts\redguard \def\pcfive{M}\fi
         \if\pts\blackguard \def\pcfive{m}\fi 
         \if\pts\redpawn \def\pcfive{S}\fi
         \if\pts\blackpawn \def\pcfive{s}\fi\fi
      \if\brow\brsix \csixset=1 \def\pts{#1}
         \if\pts\redking \def\pcsix{F}\fi
         \if\pts\blackking \def\pcsix{f}\fi
         \if\pts\redchariot \def\pcsix{W}\fi
         \if\pts\blackchariot \def\pcsix{w}\fi
         \if\pts\redcannon \def\pcsix{K}\fi
         \if\pts\blackcannon \def\pcsix{k}\fi
         \if\pts\redhorse \def\pcsix{P}\fi
         \if\pts\blackhorse \def\pcsix{p}\fi
         \if\pts\redelephant \def\pcsix{E}\fi
         \if\pts\blackelephant \def\pcsix{e}\fi
         \if\pts\redguard \def\pcsix{M}\fi
         \if\pts\blackguard \def\pcsix{m}\fi 
         \if\pts\redpawn \def\pcsix{S}\fi
         \if\pts\blackpawn \def\pcsix{s}\fi\fi
      \if\brow\brseven \csevenset=1 \def\pts{#1}
         \if\pts\redking \def\pcseven{F}\fi
         \if\pts\blackking \def\pcseven{f}\fi
         \if\pts\redchariot \def\pcseven{W}\fi
         \if\pts\blackchariot \def\pcseven{w}\fi
         \if\pts\redcannon \def\pcseven{K}\fi
         \if\pts\blackcannon \def\pcseven{k}\fi
         \if\pts\redhorse \def\pcseven{P}\fi
         \if\pts\blackhorse \def\pcseven{p}\fi
         \if\pts\redelephant \def\pcseven{E}\fi
         \if\pts\blackelephant \def\pcseven{e}\fi
         \if\pts\redguard \def\pcseven{M}\fi
         \if\pts\blackguard \def\pcseven{m}\fi 
         \if\pts\redpawn \def\pcseven{S}\fi
         \if\pts\blackpawn \def\pcseven{s}\fi\fi
      \if\brow\breight \ceightset=1 \def\pts{#1}
         \if\pts\redking \def\pceight{F}\fi
         \if\pts\blackking \def\pceight{f}\fi
         \if\pts\redchariot \def\pceight{W}\fi
         \if\pts\blackchariot \def\pceight{w}\fi
         \if\pts\redcannon \def\pceight{K}\fi
         \if\pts\blackcannon \def\pceight{k}\fi
         \if\pts\redhorse \def\pceight{P}\fi
         \if\pts\blackhorse \def\pceight{p}\fi
         \if\pts\redelephant \def\pceight{E}\fi
         \if\pts\blackelephant \def\pceight{e}\fi
         \if\pts\redguard \def\pceight{M}\fi
         \if\pts\blackguard \def\pceight{m}\fi 
         \if\pts\redpawn \def\pceight{S}\fi
         \if\pts\blackpawn \def\pceight{s}\fi\fi
      \if\brow\brnine \cnineset=1 \def\pts{#1}
         \if\pts\redking \def\pcnine{F}\fi
         \if\pts\blackking \def\pcnine{f}\fi
         \if\pts\redchariot \def\pcnine{W}\fi
         \if\pts\blackchariot \def\pcnine{w}\fi
         \if\pts\redcannon \def\pcnine{K}\fi
         \if\pts\blackcannon \def\pcnine{k}\fi
         \if\pts\redhorse \def\pcnine{P}\fi
         \if\pts\blackhorse \def\pcnine{p}\fi
         \if\pts\redelephant \def\pcnine{E}\fi
         \if\pts\blackelephant \def\pcnine{e}\fi
         \if\pts\redguard \def\pcnine{M}\fi
         \if\pts\blackguard \def\pcnine{m}\fi 
         \if\pts\redpawn \def\pcnine{S}\fi
         \if\pts\blackpawn \def\pcnine{s}\fi\fi
      \if\brow\brnull \cnullset=1 \def\pts{#1}
         \if\pts\redking \def\pcnull{F}\fi
         \if\pts\blackking \def\pcnull{f}\fi
         \if\pts\redchariot \def\pcnull{W}\fi
         \if\pts\blackchariot \def\pcnull{w}\fi
         \if\pts\redcannon \def\pcnull{K}\fi
         \if\pts\blackcannon \def\pcnull{k}\fi
         \if\pts\redhorse \def\pcnull{P}\fi
         \if\pts\blackhorse \def\pcnull{p}\fi
         \if\pts\redelephant \def\pcnull{E}\fi
         \if\pts\blackelephant \def\pcnull{e}\fi
         \if\pts\redguard \def\pcnull{M}\fi
         \if\pts\blackguard \def\pcnull{m}\fi 
         \if\pts\redpawn \def\pcnull{S}\fi
         \if\pts\blackpawn \def\pcnull{s}\fi\fi\fi
   \if\bline\dli 
      \if\brow\brone \doneset=1 \def\pts{#1} 
         \if\pts\redking \def\pdone{F}\fi
         \if\pts\blackking \def\pdone{f}\fi
         \if\pts\redchariot \def\pdone{W}\fi
         \if\pts\blackchariot \def\pdone{w}\fi
         \if\pts\redcannon \def\pdone{K}\fi
         \if\pts\blackcannon \def\pdone{k}\fi
         \if\pts\redhorse \def\pdone{P}\fi
         \if\pts\blackhorse \def\pdone{p}\fi
         \if\pts\redelephant \def\pdone{E}\fi
         \if\pts\blackelephant \def\pdone{e}\fi
         \if\pts\redguard \def\pdone{M}\fi
         \if\pts\blackguard \def\pdone{m}\fi 
         \if\pts\redpawn \def\pdone{S}\fi
         \if\pts\blackpawn \def\pdone{s}\fi\fi
      \if\brow\brtwo \dtwoset=1 \def\pts{#1}
         \if\pts\redking \def\pdtwo{F}\fi
         \if\pts\blackking \def\pdtwo{f}\fi
         \if\pts\redchariot \def\pdtwo{W}\fi
         \if\pts\blackchariot \def\pdtwo{w}\fi
         \if\pts\redcannon \def\pdtwo{K}\fi
         \if\pts\blackcannon \def\pdtwo{k}\fi
         \if\pts\redhorse \def\pdtwo{P}\fi
         \if\pts\blackhorse \def\pdtwo{p}\fi
         \if\pts\redelephant \def\pdtwo{E}\fi
         \if\pts\blackelephant \def\pdtwo{e}\fi
         \if\pts\redguard \def\pdtwo{M}\fi
         \if\pts\blackguard \def\pdtwo{m}\fi 
         \if\pts\redpawn \def\pdtwo{S}\fi
         \if\pts\blackpawn \def\pdtwo{s}\fi\fi
      \if\brow\brthree \dthreeset=1 \def\pts{#1}
         \if\pts\redking \def\pdthree{F}\fi
         \if\pts\blackking \def\pdthree{f}\fi
         \if\pts\redchariot \def\pdthree{W}\fi
         \if\pts\blackchariot \def\pdthree{w}\fi
         \if\pts\redcannon \def\pdthree{K}\fi
         \if\pts\blackcannon \def\pdthree{k}\fi
         \if\pts\redhorse \def\pdthree{P}\fi
         \if\pts\blackhorse \def\pdthree{p}\fi
         \if\pts\redelephant \def\pdthree{E}\fi
         \if\pts\blackelephant \def\pdthree{e}\fi
         \if\pts\redguard \def\pdthree{M}\fi
         \if\pts\blackguard \def\pdthree{m}\fi 
         \if\pts\redpawn \def\pdthree{S}\fi
         \if\pts\blackpawn \def\pdthree{s}\fi\fi
      \if\brow\brfour \dfourset=1 \def\pts{#1}
         \if\pts\redking \def\pdfour{F}\fi
         \if\pts\blackking \def\pdfour{f}\fi
         \if\pts\redchariot \def\pdfour{W}\fi
         \if\pts\blackchariot \def\pdfour{w}\fi
         \if\pts\redcannon \def\pdfour{K}\fi
         \if\pts\blackcannon \def\pdfour{k}\fi
         \if\pts\redhorse \def\pdfour{P}\fi
         \if\pts\blackhorse \def\pdfour{p}\fi
         \if\pts\redelephant \def\pdfour{E}\fi
         \if\pts\blackelephant \def\pdfour{e}\fi
         \if\pts\redguard \def\pdfour{M}\fi
         \if\pts\blackguard \def\pdfour{m}\fi 
         \if\pts\redpawn \def\pdfour{S}\fi
         \if\pts\blackpawn \def\pdfour{s}\fi\fi
      \if\brow\brfive \dfiveset=1 \def\pts{#1}
         \if\pts\redking \def\pdfive{F}\fi
         \if\pts\blackking \def\pdfive{f}\fi
         \if\pts\redchariot \def\pdfive{W}\fi
         \if\pts\blackchariot \def\pdfive{w}\fi
         \if\pts\redcannon \def\pdfive{K}\fi
         \if\pts\blackcannon \def\pdfive{k}\fi
         \if\pts\redhorse \def\pdfive{P}\fi
         \if\pts\blackhorse \def\pdfive{p}\fi
         \if\pts\redelephant \def\pdfive{E}\fi
         \if\pts\blackelephant \def\pdfive{e}\fi
         \if\pts\redguard \def\pdfive{M}\fi
         \if\pts\blackguard \def\pdfive{m}\fi 
         \if\pts\redpawn \def\pdfive{S}\fi
         \if\pts\blackpawn \def\pdfive{s}\fi\fi
      \if\brow\brsix \dsixset=1 \def\pts{#1}
         \if\pts\redking \def\pdsix{F}\fi
         \if\pts\blackking \def\pdsix{f}\fi
         \if\pts\redchariot \def\pdsix{W}\fi
         \if\pts\blackchariot \def\pdsix{w}\fi
         \if\pts\redcannon \def\pdsix{K}\fi
         \if\pts\blackcannon \def\pdsix{k}\fi
         \if\pts\redhorse \def\pdsix{P}\fi
         \if\pts\blackhorse \def\pdsix{p}\fi
         \if\pts\redelephant \def\pdsix{E}\fi
         \if\pts\blackelephant \def\pdsix{e}\fi
         \if\pts\redguard \def\pdsix{M}\fi
         \if\pts\blackguard \def\pdsix{m}\fi 
         \if\pts\redpawn \def\pdsix{S}\fi
         \if\pts\blackpawn \def\pdsix{s}\fi\fi
      \if\brow\brseven \dsevenset=1 \def\pts{#1}
         \if\pts\redking \def\pdseven{F}\fi
         \if\pts\blackking \def\pdseven{f}\fi
         \if\pts\redchariot \def\pdseven{W}\fi
         \if\pts\blackchariot \def\pdseven{w}\fi
         \if\pts\redcannon \def\pdseven{K}\fi
         \if\pts\blackcannon \def\pdseven{k}\fi
         \if\pts\redhorse \def\pdseven{P}\fi
         \if\pts\blackhorse \def\pdseven{p}\fi
         \if\pts\redelephant \def\pdseven{E}\fi
         \if\pts\blackelephant \def\pdseven{e}\fi
         \if\pts\redguard \def\pdseven{M}\fi
         \if\pts\blackguard \def\pdseven{m}\fi 
         \if\pts\redpawn \def\pdseven{S}\fi
         \if\pts\blackpawn \def\pdseven{s}\fi\fi
      \if\brow\breight \deightset=1 \def\pts{#1}
         \if\pts\redking \def\pdeight{F}\fi
         \if\pts\blackking \def\pdeight{f}\fi
         \if\pts\redchariot \def\pdeight{W}\fi
         \if\pts\blackchariot \def\pdeight{w}\fi
         \if\pts\redcannon \def\pdeight{K}\fi
         \if\pts\blackcannon \def\pdeight{k}\fi
         \if\pts\redhorse \def\pdeight{P}\fi
         \if\pts\blackhorse \def\pdeight{p}\fi
         \if\pts\redelephant \def\pdeight{E}\fi
         \if\pts\blackelephant \def\pdeight{e}\fi
         \if\pts\redguard \def\pdeight{M}\fi
         \if\pts\blackguard \def\pdeight{m}\fi 
         \if\pts\redpawn \def\pdeight{S}\fi
         \if\pts\blackpawn \def\pdeight{s}\fi\fi
      \if\brow\brnine \dnineset=1 \def\pts{#1}
         \if\pts\redking \def\pdnine{F}\fi
         \if\pts\blackking \def\pdnine{f}\fi
         \if\pts\redchariot \def\pdnine{W}\fi
         \if\pts\blackchariot \def\pdnine{w}\fi
         \if\pts\redcannon \def\pdnine{K}\fi
         \if\pts\blackcannon \def\pdnine{k}\fi
         \if\pts\redhorse \def\pdnine{P}\fi
         \if\pts\blackhorse \def\pdnine{p}\fi
         \if\pts\redelephant \def\pdnine{E}\fi
         \if\pts\blackelephant \def\pdnine{e}\fi
         \if\pts\redguard \def\pdnine{M}\fi
         \if\pts\blackguard \def\pdnine{m}\fi 
         \if\pts\redpawn \def\pdnine{S}\fi
         \if\pts\blackpawn \def\pdnine{s}\fi\fi
      \if\brow\brnull \dnullset=1 \def\pts{#1}
         \if\pts\redking \def\pdnull{F}\fi
         \if\pts\blackking \def\pdnull{f}\fi
         \if\pts\redchariot \def\pdnull{W}\fi
         \if\pts\blackchariot \def\pdnull{w}\fi
         \if\pts\redcannon \def\pdnull{K}\fi
         \if\pts\blackcannon \def\pdnull{k}\fi
         \if\pts\redhorse \def\pdnull{P}\fi
         \if\pts\blackhorse \def\pdnull{p}\fi
         \if\pts\redelephant \def\pdnull{E}\fi
         \if\pts\blackelephant \def\pdnull{e}\fi
         \if\pts\redguard \def\pdnull{M}\fi
         \if\pts\blackguard \def\pdnull{m}\fi 
         \if\pts\redpawn \def\pdnull{S}\fi
         \if\pts\blackpawn \def\pdnull{s}\fi\fi\fi
   \if\bline\eli 
      \if\brow\brone \eoneset=1 \def\pts{#1} 
         \if\pts\redking \def\peone{F}\fi
         \if\pts\blackking \def\peone{f}\fi
         \if\pts\redchariot \def\peone{W}\fi
         \if\pts\blackchariot \def\peone{w}\fi
         \if\pts\redcannon \def\peone{K}\fi
         \if\pts\blackcannon \def\peone{k}\fi
         \if\pts\redhorse \def\peone{P}\fi
         \if\pts\blackhorse \def\peone{p}\fi
         \if\pts\redelephant \def\peone{E}\fi
         \if\pts\blackelephant \def\peone{e}\fi
         \if\pts\redguard \def\peone{M}\fi
         \if\pts\blackguard \def\peone{m}\fi 
         \if\pts\redpawn \def\peone{S}\fi
         \if\pts\blackpawn \def\peone{s}\fi\fi
      \if\brow\brtwo \etwoset=1 \def\pts{#1}
         \if\pts\redking \def\petwo{F}\fi
         \if\pts\blackking \def\petwo{f}\fi
         \if\pts\redchariot \def\petwo{W}\fi
         \if\pts\blackchariot \def\petwo{w}\fi
         \if\pts\redcannon \def\petwo{K}\fi
         \if\pts\blackcannon \def\petwo{k}\fi
         \if\pts\redhorse \def\petwo{P}\fi
         \if\pts\blackhorse \def\petwo{p}\fi
         \if\pts\redelephant \def\petwo{E}\fi
         \if\pts\blackelephant \def\petwo{e}\fi
         \if\pts\redguard \def\petwo{M}\fi
         \if\pts\blackguard \def\petwo{m}\fi 
         \if\pts\redpawn \def\petwo{S}\fi
         \if\pts\blackpawn \def\petwo{s}\fi\fi
      \if\brow\brthree \ethreeset=1 \def\pts{#1}
         \if\pts\redking \def\pethree{F}\fi
         \if\pts\blackking \def\pethree{f}\fi
         \if\pts\redchariot \def\pethree{W}\fi
         \if\pts\blackchariot \def\pethree{w}\fi
         \if\pts\redcannon \def\pethree{K}\fi
         \if\pts\blackcannon \def\pethree{k}\fi
         \if\pts\redhorse \def\pethree{P}\fi
         \if\pts\blackhorse \def\pethree{p}\fi
         \if\pts\redelephant \def\pethree{E}\fi
         \if\pts\blackelephant \def\pethree{e}\fi
         \if\pts\redguard \def\pethree{M}\fi
         \if\pts\blackguard \def\pethree{m}\fi 
         \if\pts\redpawn \def\pethree{S}\fi
         \if\pts\blackpawn \def\pethree{s}\fi\fi
      \if\brow\brfour \efourset=1 \def\pts{#1}
         \if\pts\redking \def\pefour{F}\fi
         \if\pts\blackking \def\pefour{f}\fi
         \if\pts\redchariot \def\pefour{W}\fi
         \if\pts\blackchariot \def\pefour{w}\fi
         \if\pts\redcannon \def\pefour{K}\fi
         \if\pts\blackcannon \def\pefour{k}\fi
         \if\pts\redhorse \def\pefour{P}\fi
         \if\pts\blackhorse \def\pefour{p}\fi
         \if\pts\redelephant \def\pefour{E}\fi
         \if\pts\blackelephant \def\pefour{e}\fi
         \if\pts\redguard \def\pefour{M}\fi
         \if\pts\blackguard \def\pefour{m}\fi 
         \if\pts\redpawn \def\pefour{S}\fi
         \if\pts\blackpawn \def\pefour{s}\fi\fi
      \if\brow\brfive \efiveset=1 \def\pts{#1}
         \if\pts\redking \def\pefive{F}\fi
         \if\pts\blackking \def\pefive{f}\fi
         \if\pts\redchariot \def\pefive{W}\fi
         \if\pts\blackchariot \def\pefive{w}\fi
         \if\pts\redcannon \def\pefive{K}\fi
         \if\pts\blackcannon \def\pefive{k}\fi
         \if\pts\redhorse \def\pefive{P}\fi
         \if\pts\blackhorse \def\pefive{p}\fi
         \if\pts\redelephant \def\pefive{E}\fi
         \if\pts\blackelephant \def\pefive{e}\fi
         \if\pts\redguard \def\pefive{M}\fi
         \if\pts\blackguard \def\pefive{m}\fi 
         \if\pts\redpawn \def\pefive{S}\fi
         \if\pts\blackpawn \def\pefive{s}\fi\fi
      \if\brow\brsix \esixset=1 \def\pts{#1}
         \if\pts\redking \def\pesix{F}\fi
         \if\pts\blackking \def\pesix{f}\fi
         \if\pts\redchariot \def\pesix{W}\fi
         \if\pts\blackchariot \def\pesix{w}\fi
         \if\pts\redcannon \def\pesix{K}\fi
         \if\pts\blackcannon \def\pesix{k}\fi
         \if\pts\redhorse \def\pesix{P}\fi
         \if\pts\blackhorse \def\pesix{p}\fi
         \if\pts\redelephant \def\pesix{E}\fi
         \if\pts\blackelephant \def\pesix{e}\fi
         \if\pts\redguard \def\pesix{M}\fi
         \if\pts\blackguard \def\pesix{m}\fi 
         \if\pts\redpawn \def\pesix{S}\fi
         \if\pts\blackpawn \def\pesix{s}\fi\fi
      \if\brow\brseven \esevenset=1 \def\pts{#1}
         \if\pts\redking \def\peseven{F}\fi
         \if\pts\blackking \def\peseven{f}\fi
         \if\pts\redchariot \def\peseven{W}\fi
         \if\pts\blackchariot \def\peseven{w}\fi
         \if\pts\redcannon \def\peseven{K}\fi
         \if\pts\blackcannon \def\peseven{k}\fi
         \if\pts\redhorse \def\peseven{P}\fi
         \if\pts\blackhorse \def\peseven{p}\fi
         \if\pts\redelephant \def\peseven{E}\fi
         \if\pts\blackelephant \def\peseven{e}\fi
         \if\pts\redguard \def\peseven{M}\fi
         \if\pts\blackguard \def\peseven{m}\fi 
         \if\pts\redpawn \def\peseven{S}\fi
         \if\pts\blackpawn \def\peseven{s}\fi\fi
      \if\brow\breight \eeightset=1 \def\pts{#1}
         \if\pts\redking \def\peeight{F}\fi
         \if\pts\blackking \def\peeight{f}\fi
         \if\pts\redchariot \def\peeight{W}\fi
         \if\pts\blackchariot \def\peeight{w}\fi
         \if\pts\redcannon \def\peeight{K}\fi
         \if\pts\blackcannon \def\peeight{k}\fi
         \if\pts\redhorse \def\peeight{P}\fi
         \if\pts\blackhorse \def\peeight{p}\fi
         \if\pts\redelephant \def\peeight{E}\fi
         \if\pts\blackelephant \def\peeight{e}\fi
         \if\pts\redguard \def\peeight{M}\fi
         \if\pts\blackguard \def\peeight{m}\fi 
         \if\pts\redpawn \def\peeight{S}\fi
         \if\pts\blackpawn \def\peeight{s}\fi\fi
      \if\brow\brnine \enineset=1 \def\pts{#1}
         \if\pts\redking \def\penine{F}\fi
         \if\pts\blackking \def\penine{f}\fi
         \if\pts\redchariot \def\penine{W}\fi
         \if\pts\blackchariot \def\penine{w}\fi
         \if\pts\redcannon \def\penine{K}\fi
         \if\pts\blackcannon \def\penine{k}\fi
         \if\pts\redhorse \def\penine{P}\fi
         \if\pts\blackhorse \def\penine{p}\fi
         \if\pts\redelephant \def\penine{E}\fi
         \if\pts\blackelephant \def\penine{e}\fi
         \if\pts\redguard \def\penine{M}\fi
         \if\pts\blackguard \def\penine{m}\fi 
         \if\pts\redpawn \def\penine{S}\fi
         \if\pts\blackpawn \def\penine{s}\fi\fi
      \if\brow\brnull \enullset=1 \def\pts{#1}
         \if\pts\redking \def\penull{F}\fi
         \if\pts\blackking \def\penull{f}\fi
         \if\pts\redchariot \def\penull{W}\fi
         \if\pts\blackchariot \def\penull{w}\fi
         \if\pts\redcannon \def\penull{K}\fi
         \if\pts\blackcannon \def\penull{k}\fi
         \if\pts\redhorse \def\penull{P}\fi
         \if\pts\blackhorse \def\penull{p}\fi
         \if\pts\redelephant \def\penull{E}\fi
         \if\pts\blackelephant \def\penull{e}\fi
         \if\pts\redguard \def\penull{M}\fi
         \if\pts\blackguard \def\penull{m}\fi 
         \if\pts\redpawn \def\penull{S}\fi
         \if\pts\blackpawn \def\penull{s}\fi\fi\fi
   \if\bline\fli 
      \if\brow\brone \foneset=1 \def\pts{#1} 
         \if\pts\redking \def\pfone{F}\fi
         \if\pts\blackking \def\pfone{f}\fi
         \if\pts\redchariot \def\pfone{W}\fi
         \if\pts\blackchariot \def\pfone{w}\fi
         \if\pts\redcannon \def\pfone{K}\fi
         \if\pts\blackcannon \def\pfone{k}\fi
         \if\pts\redhorse \def\pfone{P}\fi
         \if\pts\blackhorse \def\pfone{p}\fi
         \if\pts\redelephant \def\pfone{E}\fi
         \if\pts\blackelephant \def\pfone{e}\fi
         \if\pts\redguard \def\pfone{M}\fi
         \if\pts\blackguard \def\pfone{m}\fi 
         \if\pts\redpawn \def\pfone{S}\fi
         \if\pts\blackpawn \def\pfone{s}\fi\fi
      \if\brow\brtwo \ftwoset=1 \def\pts{#1}
         \if\pts\redking \def\pftwo{F}\fi
         \if\pts\blackking \def\pftwo{f}\fi
         \if\pts\redchariot \def\pftwo{W}\fi
         \if\pts\blackchariot \def\pftwo{w}\fi
         \if\pts\redcannon \def\pftwo{K}\fi
         \if\pts\blackcannon \def\pftwo{k}\fi
         \if\pts\redhorse \def\pftwo{P}\fi
         \if\pts\blackhorse \def\pftwo{p}\fi
         \if\pts\redelephant \def\pftwo{E}\fi
         \if\pts\blackelephant \def\pftwo{e}\fi
         \if\pts\redguard \def\pftwo{M}\fi
         \if\pts\blackguard \def\pftwo{m}\fi 
         \if\pts\redpawn \def\pftwo{S}\fi
         \if\pts\blackpawn \def\pftwo{s}\fi\fi
      \if\brow\brthree \fthreeset=1 \def\pts{#1}
         \if\pts\redking \def\pfthree{F}\fi
         \if\pts\blackking \def\pfthree{f}\fi
         \if\pts\redchariot \def\pfthree{W}\fi
         \if\pts\blackchariot \def\pfthree{w}\fi
         \if\pts\redcannon \def\pfthree{K}\fi
         \if\pts\blackcannon \def\pfthree{k}\fi
         \if\pts\redhorse \def\pfthree{P}\fi
         \if\pts\blackhorse \def\pfthree{p}\fi
         \if\pts\redelephant \def\pfthree{E}\fi
         \if\pts\blackelephant \def\pfthree{e}\fi
         \if\pts\redguard \def\pfthree{M}\fi
         \if\pts\blackguard \def\pfthree{m}\fi 
         \if\pts\redpawn \def\pfthree{S}\fi
         \if\pts\blackpawn \def\pfthree{s}\fi\fi
      \if\brow\brfour \ffourset=1 \def\pts{#1}
         \if\pts\redking \def\pffour{F}\fi
         \if\pts\blackking \def\pffour{f}\fi
         \if\pts\redchariot \def\pffour{W}\fi
         \if\pts\blackchariot \def\pffour{w}\fi
         \if\pts\redcannon \def\pffour{K}\fi
         \if\pts\blackcannon \def\pffour{k}\fi
         \if\pts\redhorse \def\pffour{P}\fi
         \if\pts\blackhorse \def\pffour{p}\fi
         \if\pts\redelephant \def\pffour{E}\fi
         \if\pts\blackelephant \def\pffour{e}\fi
         \if\pts\redguard \def\pffour{M}\fi
         \if\pts\blackguard \def\pffour{m}\fi 
         \if\pts\redpawn \def\pffour{S}\fi
         \if\pts\blackpawn \def\pffour{s}\fi\fi
      \if\brow\brfive \ffiveset=1 \def\pts{#1}
         \if\pts\redking \def\pffive{F}\fi
         \if\pts\blackking \def\pffive{f}\fi
         \if\pts\redchariot \def\pffive{W}\fi
         \if\pts\blackchariot \def\pffive{w}\fi
         \if\pts\redcannon \def\pffive{K}\fi
         \if\pts\blackcannon \def\pffive{k}\fi
         \if\pts\redhorse \def\pffive{P}\fi
         \if\pts\blackhorse \def\pffive{p}\fi
         \if\pts\redelephant \def\pffive{E}\fi
         \if\pts\blackelephant \def\pffive{e}\fi
         \if\pts\redguard \def\pffive{M}\fi
         \if\pts\blackguard \def\pffive{m}\fi 
         \if\pts\redpawn \def\pffive{S}\fi
         \if\pts\blackpawn \def\pffive{s}\fi\fi
      \if\brow\brsix \fsixset=1 \def\pts{#1}
         \if\pts\redking \def\pfsix{F}\fi
         \if\pts\blackking \def\pfsix{f}\fi
         \if\pts\redchariot \def\pfsix{W}\fi
         \if\pts\blackchariot \def\pfsix{w}\fi
         \if\pts\redcannon \def\pfsix{K}\fi
         \if\pts\blackcannon \def\pfsix{k}\fi
         \if\pts\redhorse \def\pfsix{P}\fi
         \if\pts\blackhorse \def\pfsix{p}\fi
         \if\pts\redelephant \def\pfsix{E}\fi
         \if\pts\blackelephant \def\pfsix{e}\fi
         \if\pts\redguard \def\pfsix{M}\fi
         \if\pts\blackguard \def\pfsix{m}\fi 
         \if\pts\redpawn \def\pfsix{S}\fi
         \if\pts\blackpawn \def\pfsix{s}\fi\fi
      \if\brow\brseven \fsevenset=1 \def\pts{#1}
         \if\pts\redking \def\pfseven{F}\fi
         \if\pts\blackking \def\pfseven{f}\fi
         \if\pts\redchariot \def\pfseven{W}\fi
         \if\pts\blackchariot \def\pfseven{w}\fi
         \if\pts\redcannon \def\pfseven{K}\fi
         \if\pts\blackcannon \def\pfseven{k}\fi
         \if\pts\redhorse \def\pfseven{P}\fi
         \if\pts\blackhorse \def\pfseven{p}\fi
         \if\pts\redelephant \def\pfseven{E}\fi
         \if\pts\blackelephant \def\pfseven{e}\fi
         \if\pts\redguard \def\pfseven{M}\fi
         \if\pts\blackguard \def\pfseven{m}\fi 
         \if\pts\redpawn \def\pfseven{S}\fi
         \if\pts\blackpawn \def\pfseven{s}\fi\fi
      \if\brow\breight \feightset=1 \def\pts{#1}
         \if\pts\redking \def\pfeight{F}\fi
         \if\pts\blackking \def\pfeight{f}\fi
         \if\pts\redchariot \def\pfeight{W}\fi
         \if\pts\blackchariot \def\pfeight{w}\fi
         \if\pts\redcannon \def\pfeight{K}\fi
         \if\pts\blackcannon \def\pfeight{k}\fi
         \if\pts\redhorse \def\pfeight{P}\fi
         \if\pts\blackhorse \def\pfeight{p}\fi
         \if\pts\redelephant \def\pfeight{E}\fi
         \if\pts\blackelephant \def\pfeight{e}\fi
         \if\pts\redguard \def\pfeight{M}\fi
         \if\pts\blackguard \def\pfeight{m}\fi 
         \if\pts\redpawn \def\pfeight{S}\fi
         \if\pts\blackpawn \def\pfeight{s}\fi\fi
      \if\brow\brnine \fnineset=1 \def\pts{#1}
         \if\pts\redking \def\pfnine{F}\fi
         \if\pts\blackking \def\pfnine{f}\fi
         \if\pts\redchariot \def\pfnine{W}\fi
         \if\pts\blackchariot \def\pfnine{w}\fi
         \if\pts\redcannon \def\pfnine{K}\fi
         \if\pts\blackcannon \def\pfnine{k}\fi
         \if\pts\redhorse \def\pfnine{P}\fi
         \if\pts\blackhorse \def\pfnine{p}\fi
         \if\pts\redelephant \def\pfnine{E}\fi
         \if\pts\blackelephant \def\pfnine{e}\fi
         \if\pts\redguard \def\pfnine{M}\fi
         \if\pts\blackguard \def\pfnine{m}\fi 
         \if\pts\redpawn \def\pfnine{S}\fi
         \if\pts\blackpawn \def\pfnine{s}\fi\fi
      \if\brow\brnull \fnullset=1 \def\pts{#1}
         \if\pts\redking \def\pfnull{F}\fi
         \if\pts\blackking \def\pfnull{f}\fi
         \if\pts\redchariot \def\pfnull{W}\fi
         \if\pts\blackchariot \def\pfnull{w}\fi
         \if\pts\redcannon \def\pfnull{K}\fi
         \if\pts\blackcannon \def\pfnull{k}\fi
         \if\pts\redhorse \def\pfnull{P}\fi
         \if\pts\blackhorse \def\pfnull{p}\fi
         \if\pts\redelephant \def\pfnull{E}\fi
         \if\pts\blackelephant \def\pfnull{e}\fi
         \if\pts\redguard \def\pfnull{M}\fi
         \if\pts\blackguard \def\pfnull{m}\fi 
         \if\pts\redpawn \def\pfnull{S}\fi
         \if\pts\blackpawn \def\pfnull{s}\fi\fi\fi
   \if\bline\gli 
      \if\brow\brone \goneset=1 \def\pts{#1} 
         \if\pts\redking \def\pgone{F}\fi
         \if\pts\blackking \def\pgone{f}\fi
         \if\pts\redchariot \def\pgone{W}\fi
         \if\pts\blackchariot \def\pgone{w}\fi
         \if\pts\redcannon \def\pgone{K}\fi
         \if\pts\blackcannon \def\pgone{k}\fi
         \if\pts\redhorse \def\pgone{P}\fi
         \if\pts\blackhorse \def\pgone{p}\fi
         \if\pts\redelephant \def\pgone{E}\fi
         \if\pts\blackelephant \def\pgone{e}\fi
         \if\pts\redguard \def\pgone{M}\fi
         \if\pts\blackguard \def\pgone{m}\fi 
         \if\pts\redpawn \def\pgone{S}\fi
         \if\pts\blackpawn \def\pgone{s}\fi\fi
      \if\brow\brtwo \gtwoset=1 \def\pts{#1}
         \if\pts\redking \def\pgtwo{F}\fi
         \if\pts\blackking \def\pgtwo{f}\fi
         \if\pts\redchariot \def\pgtwo{W}\fi
         \if\pts\blackchariot \def\pgtwo{w}\fi
         \if\pts\redcannon \def\pgtwo{K}\fi
         \if\pts\blackcannon \def\pgtwo{k}\fi
         \if\pts\redhorse \def\pgtwo{P}\fi
         \if\pts\blackhorse \def\pgtwo{p}\fi
         \if\pts\redelephant \def\pgtwo{E}\fi
         \if\pts\blackelephant \def\pgtwo{e}\fi
         \if\pts\redguard \def\pgtwo{M}\fi
         \if\pts\blackguard \def\pgtwo{m}\fi 
         \if\pts\redpawn \def\pgtwo{S}\fi
         \if\pts\blackpawn \def\pgtwo{s}\fi\fi
      \if\brow\brthree \gthreeset=1 \def\pts{#1}
         \if\pts\redking \def\pgthree{F}\fi
         \if\pts\blackking \def\pgthree{f}\fi
         \if\pts\redchariot \def\pgthree{W}\fi
         \if\pts\blackchariot \def\pgthree{w}\fi
         \if\pts\redcannon \def\pgthree{K}\fi
         \if\pts\blackcannon \def\pgthree{k}\fi
         \if\pts\redhorse \def\pgthree{P}\fi
         \if\pts\blackhorse \def\pgthree{p}\fi
         \if\pts\redelephant \def\pgthree{E}\fi
         \if\pts\blackelephant \def\pgthree{e}\fi
         \if\pts\redguard \def\pgthree{M}\fi
         \if\pts\blackguard \def\pgthree{m}\fi 
         \if\pts\redpawn \def\pgthree{S}\fi
         \if\pts\blackpawn \def\pgthree{s}\fi\fi
      \if\brow\brfour \gfourset=1 \def\pts{#1}
         \if\pts\redking \def\pgfour{F}\fi
         \if\pts\blackking \def\pgfour{f}\fi
         \if\pts\redchariot \def\pgfour{W}\fi
         \if\pts\blackchariot \def\pgfour{w}\fi
         \if\pts\redcannon \def\pgfour{K}\fi
         \if\pts\blackcannon \def\pgfour{k}\fi
         \if\pts\redhorse \def\pgfour{P}\fi
         \if\pts\blackhorse \def\pgfour{p}\fi
         \if\pts\redelephant \def\pgfour{E}\fi
         \if\pts\blackelephant \def\pgfour{e}\fi
         \if\pts\redguard \def\pgfour{M}\fi
         \if\pts\blackguard \def\pgfour{m}\fi 
         \if\pts\redpawn \def\pgfour{S}\fi
         \if\pts\blackpawn \def\pgfour{s}\fi\fi
      \if\brow\brfive \gfiveset=1 \def\pts{#1}
         \if\pts\redking \def\pgfive{F}\fi
         \if\pts\blackking \def\pgfive{f}\fi
         \if\pts\redchariot \def\pgfive{W}\fi
         \if\pts\blackchariot \def\pgfive{w}\fi
         \if\pts\redcannon \def\pgfive{K}\fi
         \if\pts\blackcannon \def\pgfive{k}\fi
         \if\pts\redhorse \def\pgfive{P}\fi
         \if\pts\blackhorse \def\pgfive{p}\fi
         \if\pts\redelephant \def\pgfive{E}\fi
         \if\pts\blackelephant \def\pgfive{e}\fi
         \if\pts\redguard \def\pgfive{M}\fi
         \if\pts\blackguard \def\pgfive{m}\fi 
         \if\pts\redpawn \def\pgfive{S}\fi
         \if\pts\blackpawn \def\pgfive{s}\fi\fi
      \if\brow\brsix \gsixset=1 \def\pts{#1}
         \if\pts\redking \def\pgsix{F}\fi
         \if\pts\blackking \def\pgsix{f}\fi
         \if\pts\redchariot \def\pgsix{W}\fi
         \if\pts\blackchariot \def\pgsix{w}\fi
         \if\pts\redcannon \def\pgsix{K}\fi
         \if\pts\blackcannon \def\pgsix{k}\fi
         \if\pts\redhorse \def\pgsix{P}\fi
         \if\pts\blackhorse \def\pgsix{p}\fi
         \if\pts\redelephant \def\pgsix{E}\fi
         \if\pts\blackelephant \def\pgsix{e}\fi
         \if\pts\redguard \def\pgsix{M}\fi
         \if\pts\blackguard \def\pgsix{m}\fi 
         \if\pts\redpawn \def\pgsix{S}\fi
         \if\pts\blackpawn \def\pgsix{s}\fi\fi
      \if\brow\brseven \gsevenset=1 \def\pts{#1}
         \if\pts\redking \def\pgseven{F}\fi
         \if\pts\blackking \def\pgseven{f}\fi
         \if\pts\redchariot \def\pgseven{W}\fi
         \if\pts\blackchariot \def\pgseven{w}\fi
         \if\pts\redcannon \def\pgseven{K}\fi
         \if\pts\blackcannon \def\pgseven{k}\fi
         \if\pts\redhorse \def\pgseven{P}\fi
         \if\pts\blackhorse \def\pgseven{p}\fi
         \if\pts\redelephant \def\pgseven{E}\fi
         \if\pts\blackelephant \def\pgseven{e}\fi
         \if\pts\redguard \def\pgseven{M}\fi
         \if\pts\blackguard \def\pgseven{m}\fi 
         \if\pts\redpawn \def\pgseven{S}\fi
         \if\pts\blackpawn \def\pgseven{s}\fi\fi
      \if\brow\breight \geightset=1 \def\pts{#1}
         \if\pts\redking \def\pgeight{F}\fi
         \if\pts\blackking \def\pgeight{f}\fi
         \if\pts\redchariot \def\pgeight{W}\fi
         \if\pts\blackchariot \def\pgeight{w}\fi
         \if\pts\redcannon \def\pgeight{K}\fi
         \if\pts\blackcannon \def\pgeight{k}\fi
         \if\pts\redhorse \def\pgeight{P}\fi
         \if\pts\blackhorse \def\pgeight{p}\fi
         \if\pts\redelephant \def\pgeight{E}\fi
         \if\pts\blackelephant \def\pgeight{e}\fi
         \if\pts\redguard \def\pgeight{M}\fi
         \if\pts\blackguard \def\pgeight{m}\fi 
         \if\pts\redpawn \def\pgeight{S}\fi
         \if\pts\blackpawn \def\pgeight{s}\fi\fi
      \if\brow\brnine \gnineset=1 \def\pts{#1}
         \if\pts\redking \def\pgnine{F}\fi
         \if\pts\blackking \def\pgnine{f}\fi
         \if\pts\redchariot \def\pgnine{W}\fi
         \if\pts\blackchariot \def\pgnine{w}\fi
         \if\pts\redcannon \def\pgnine{K}\fi
         \if\pts\blackcannon \def\pgnine{k}\fi
         \if\pts\redhorse \def\pgnine{P}\fi
         \if\pts\blackhorse \def\pgnine{p}\fi
         \if\pts\redelephant \def\pgnine{E}\fi
         \if\pts\blackelephant \def\pgnine{e}\fi
         \if\pts\redguard \def\pgnine{M}\fi
         \if\pts\blackguard \def\pgnine{m}\fi 
         \if\pts\redpawn \def\pgnine{S}\fi
         \if\pts\blackpawn \def\pgnine{s}\fi\fi
      \if\brow\brnull \gnullset=1 \def\pts{#1}
         \if\pts\redking \def\pgnull{F}\fi
         \if\pts\blackking \def\pgnull{f}\fi
         \if\pts\redchariot \def\pgnull{W}\fi
         \if\pts\blackchariot \def\pgnull{w}\fi
         \if\pts\redcannon \def\pgnull{K}\fi
         \if\pts\blackcannon \def\pgnull{k}\fi
         \if\pts\redhorse \def\pgnull{P}\fi
         \if\pts\blackhorse \def\pgnull{p}\fi
         \if\pts\redelephant \def\pgnull{E}\fi
         \if\pts\blackelephant \def\pgnull{e}\fi
         \if\pts\redguard \def\pgnull{M}\fi
         \if\pts\blackguard \def\pgnull{m}\fi 
         \if\pts\redpawn \def\pgnull{S}\fi
         \if\pts\blackpawn \def\pgnull{s}\fi\fi\fi
   \if\bline\hli 
      \if\brow\brone \honeset=1 \def\pts{#1} 
         \if\pts\redking \def\phone{F}\fi
         \if\pts\blackking \def\phone{f}\fi
         \if\pts\redchariot \def\phone{W}\fi
         \if\pts\blackchariot \def\phone{w}\fi
         \if\pts\redcannon \def\phone{K}\fi
         \if\pts\blackcannon \def\phone{k}\fi
         \if\pts\redhorse \def\phone{P}\fi
         \if\pts\blackhorse \def\phone{p}\fi
         \if\pts\redelephant \def\phone{E}\fi
         \if\pts\blackelephant \def\phone{e}\fi
         \if\pts\redguard \def\phone{M}\fi
         \if\pts\blackguard \def\phone{m}\fi 
         \if\pts\redpawn \def\phone{S}\fi
         \if\pts\blackpawn \def\phone{s}\fi\fi
      \if\brow\brtwo \htwoset=1 \def\pts{#1}
         \if\pts\redking \def\phtwo{F}\fi
         \if\pts\blackking \def\phtwo{f}\fi
         \if\pts\redchariot \def\phtwo{W}\fi
         \if\pts\blackchariot \def\phtwo{w}\fi
         \if\pts\redcannon \def\phtwo{K}\fi
         \if\pts\blackcannon \def\phtwo{k}\fi
         \if\pts\redhorse \def\phtwo{P}\fi
         \if\pts\blackhorse \def\phtwo{p}\fi
         \if\pts\redelephant \def\phtwo{E}\fi
         \if\pts\blackelephant \def\phtwo{e}\fi
         \if\pts\redguard \def\phtwo{M}\fi
         \if\pts\blackguard \def\phtwo{m}\fi 
         \if\pts\redpawn \def\phtwo{S}\fi
         \if\pts\blackpawn \def\phtwo{s}\fi\fi
      \if\brow\brthree \hthreeset=1 \def\pts{#1}
         \if\pts\redking \def\phthree{F}\fi
         \if\pts\blackking \def\phthree{f}\fi
         \if\pts\redchariot \def\phthree{W}\fi
         \if\pts\blackchariot \def\phthree{w}\fi
         \if\pts\redcannon \def\phthree{K}\fi
         \if\pts\blackcannon \def\phthree{k}\fi
         \if\pts\redhorse \def\phthree{P}\fi
         \if\pts\blackhorse \def\phthree{p}\fi
         \if\pts\redelephant \def\phthree{E}\fi
         \if\pts\blackelephant \def\phthree{e}\fi
         \if\pts\redguard \def\phthree{M}\fi
         \if\pts\blackguard \def\phthree{m}\fi 
         \if\pts\redpawn \def\phthree{S}\fi
         \if\pts\blackpawn \def\phthree{s}\fi\fi
      \if\brow\brfour \hfourset=1 \def\pts{#1}
         \if\pts\redking \def\phfour{F}\fi
         \if\pts\blackking \def\phfour{f}\fi
         \if\pts\redchariot \def\phfour{W}\fi
         \if\pts\blackchariot \def\phfour{w}\fi
         \if\pts\redcannon \def\phfour{K}\fi
         \if\pts\blackcannon \def\phfour{k}\fi
         \if\pts\redhorse \def\phfour{P}\fi
         \if\pts\blackhorse \def\phfour{p}\fi
         \if\pts\redelephant \def\phfour{E}\fi
         \if\pts\blackelephant \def\phfour{e}\fi
         \if\pts\redguard \def\phfour{M}\fi
         \if\pts\blackguard \def\phfour{m}\fi 
         \if\pts\redpawn \def\phfour{S}\fi
         \if\pts\blackpawn \def\phfour{s}\fi\fi
      \if\brow\brfive \hfiveset=1 \def\pts{#1}
         \if\pts\redking \def\phfive{F}\fi
         \if\pts\blackking \def\phfive{f}\fi
         \if\pts\redchariot \def\phfive{W}\fi
         \if\pts\blackchariot \def\phfive{w}\fi
         \if\pts\redcannon \def\phfive{K}\fi
         \if\pts\blackcannon \def\phfive{k}\fi
         \if\pts\redhorse \def\phfive{P}\fi
         \if\pts\blackhorse \def\phfive{p}\fi
         \if\pts\redelephant \def\phfive{E}\fi
         \if\pts\blackelephant \def\phfive{e}\fi
         \if\pts\redguard \def\phfive{M}\fi
         \if\pts\blackguard \def\phfive{m}\fi 
         \if\pts\redpawn \def\phfive{S}\fi
         \if\pts\blackpawn \def\phfive{s}\fi\fi
      \if\brow\brsix \hsixset=1 \def\pts{#1}
         \if\pts\redking \def\phsix{F}\fi
         \if\pts\blackking \def\phsix{f}\fi
         \if\pts\redchariot \def\phsix{W}\fi
         \if\pts\blackchariot \def\phsix{w}\fi
         \if\pts\redcannon \def\phsix{K}\fi
         \if\pts\blackcannon \def\phsix{k}\fi
         \if\pts\redhorse \def\phsix{P}\fi
         \if\pts\blackhorse \def\phsix{p}\fi
         \if\pts\redelephant \def\phsix{E}\fi
         \if\pts\blackelephant \def\phsix{e}\fi
         \if\pts\redguard \def\phsix{M}\fi
         \if\pts\blackguard \def\phsix{m}\fi 
         \if\pts\redpawn \def\phsix{S}\fi
         \if\pts\blackpawn \def\phsix{s}\fi\fi
      \if\brow\brseven \hsevenset=1 \def\pts{#1}
         \if\pts\redking \def\phseven{F}\fi
         \if\pts\blackking \def\phseven{f}\fi
         \if\pts\redchariot \def\phseven{W}\fi
         \if\pts\blackchariot \def\phseven{w}\fi
         \if\pts\redcannon \def\phseven{K}\fi
         \if\pts\blackcannon \def\phseven{k}\fi
         \if\pts\redhorse \def\phseven{P}\fi
         \if\pts\blackhorse \def\phseven{p}\fi
         \if\pts\redelephant \def\phseven{E}\fi
         \if\pts\blackelephant \def\phseven{e}\fi
         \if\pts\redguard \def\phseven{M}\fi
         \if\pts\blackguard \def\phseven{m}\fi 
         \if\pts\redpawn \def\phseven{S}\fi
         \if\pts\blackpawn \def\phseven{s}\fi\fi
      \if\brow\breight \heightset=1 \def\pts{#1}
         \if\pts\redking \def\pheight{F}\fi
         \if\pts\blackking \def\pheight{f}\fi
         \if\pts\redchariot \def\pheight{W}\fi
         \if\pts\blackchariot \def\pheight{w}\fi
         \if\pts\redcannon \def\pheight{K}\fi
         \if\pts\blackcannon \def\pheight{k}\fi
         \if\pts\redhorse \def\pheight{P}\fi
         \if\pts\blackhorse \def\pheight{p}\fi
         \if\pts\redelephant \def\pheight{E}\fi
         \if\pts\blackelephant \def\pheight{e}\fi
         \if\pts\redguard \def\pheight{M}\fi
         \if\pts\blackguard \def\pheight{m}\fi 
         \if\pts\redpawn \def\pheight{S}\fi
         \if\pts\blackpawn \def\pheight{s}\fi\fi
      \if\brow\brnine \hnineset=1 \def\pts{#1}
         \if\pts\redking \def\phnine{F}\fi
         \if\pts\blackking \def\phnine{f}\fi
         \if\pts\redchariot \def\phnine{W}\fi
         \if\pts\blackchariot \def\phnine{w}\fi
         \if\pts\redcannon \def\phnine{K}\fi
         \if\pts\blackcannon \def\phnine{k}\fi
         \if\pts\redhorse \def\phnine{P}\fi
         \if\pts\blackhorse \def\phnine{p}\fi
         \if\pts\redelephant \def\phnine{E}\fi
         \if\pts\blackelephant \def\phnine{e}\fi
         \if\pts\redguard \def\phnine{M}\fi
         \if\pts\blackguard \def\phnine{m}\fi 
         \if\pts\redpawn \def\phnine{S}\fi
         \if\pts\blackpawn \def\phnine{s}\fi\fi
      \if\brow\brnull \hnullset=1 \def\pts{#1}
         \if\pts\redking \def\phnull{F}\fi
         \if\pts\blackking \def\phnull{f}\fi
         \if\pts\redchariot \def\phnull{W}\fi
         \if\pts\blackchariot \def\phnull{w}\fi
         \if\pts\redcannon \def\phnull{K}\fi
         \if\pts\blackcannon \def\phnull{k}\fi
         \if\pts\redhorse \def\phnull{P}\fi
         \if\pts\blackhorse \def\phnull{p}\fi
         \if\pts\redelephant \def\phnull{E}\fi
         \if\pts\blackelephant \def\phnull{e}\fi
         \if\pts\redguard \def\phnull{M}\fi
         \if\pts\blackguard \def\phnull{m}\fi 
         \if\pts\redpawn \def\phnull{S}\fi
         \if\pts\blackpawn \def\phnull{s}\fi\fi\fi
   \if\bline\ili 
      \if\brow\brone \ioneset=1 \def\pts{#1} 
         \if\pts\redking \def\pione{F}\fi
         \if\pts\blackking \def\pione{f}\fi
         \if\pts\redchariot \def\pione{W}\fi
         \if\pts\blackchariot \def\pione{w}\fi
         \if\pts\redcannon \def\pione{K}\fi
         \if\pts\blackcannon \def\pione{k}\fi
         \if\pts\redhorse \def\pione{P}\fi
         \if\pts\blackhorse \def\pione{p}\fi
         \if\pts\redelephant \def\pione{E}\fi
         \if\pts\blackelephant \def\pione{e}\fi
         \if\pts\redguard \def\pione{M}\fi
         \if\pts\blackguard \def\pione{m}\fi 
         \if\pts\redpawn \def\pione{S}\fi
         \if\pts\blackpawn \def\pione{s}\fi\fi
      \if\brow\brtwo \itwoset=1 \def\pts{#1}
         \if\pts\redking \def\pitwo{F}\fi
         \if\pts\blackking \def\pitwo{f}\fi
         \if\pts\redchariot \def\pitwo{W}\fi
         \if\pts\blackchariot \def\pitwo{w}\fi
         \if\pts\redcannon \def\pitwo{K}\fi
         \if\pts\blackcannon \def\pitwo{k}\fi
         \if\pts\redhorse \def\pitwo{P}\fi
         \if\pts\blackhorse \def\pitwo{p}\fi
         \if\pts\redelephant \def\pitwo{E}\fi
         \if\pts\blackelephant \def\pitwo{e}\fi
         \if\pts\redguard \def\pitwo{M}\fi
         \if\pts\blackguard \def\pitwo{m}\fi 
         \if\pts\redpawn \def\pitwo{S}\fi
         \if\pts\blackpawn \def\pitwo{s}\fi\fi
      \if\brow\brthree \ithreeset=1 \def\pts{#1}
         \if\pts\redking \def\pithree{F}\fi
         \if\pts\blackking \def\pithree{f}\fi
         \if\pts\redchariot \def\pithree{W}\fi
         \if\pts\blackchariot \def\pithree{w}\fi
         \if\pts\redcannon \def\pithree{K}\fi
         \if\pts\blackcannon \def\pithree{k}\fi
         \if\pts\redhorse \def\pithree{P}\fi
         \if\pts\blackhorse \def\pithree{p}\fi
         \if\pts\redelephant \def\pithree{E}\fi
         \if\pts\blackelephant \def\pithree{e}\fi
         \if\pts\redguard \def\pithree{M}\fi
         \if\pts\blackguard \def\pithree{m}\fi 
         \if\pts\redpawn \def\pithree{S}\fi
         \if\pts\blackpawn \def\pithree{s}\fi\fi
      \if\brow\brfour \ifourset=1 \def\pts{#1}
         \if\pts\redking \def\pifour{F}\fi
         \if\pts\blackking \def\pifour{f}\fi
         \if\pts\redchariot \def\pifour{W}\fi
         \if\pts\blackchariot \def\pifour{w}\fi
         \if\pts\redcannon \def\pifour{K}\fi
         \if\pts\blackcannon \def\pifour{k}\fi
         \if\pts\redhorse \def\pifour{P}\fi
         \if\pts\blackhorse \def\pifour{p}\fi
         \if\pts\redelephant \def\pifour{E}\fi
         \if\pts\blackelephant \def\pifour{e}\fi
         \if\pts\redguard \def\pifour{M}\fi
         \if\pts\blackguard \def\pifour{m}\fi 
         \if\pts\redpawn \def\pifour{S}\fi
         \if\pts\blackpawn \def\pifour{s}\fi\fi
      \if\brow\brfive \ifiveset=1 \def\pts{#1}
         \if\pts\redking \def\pifive{F}\fi
         \if\pts\blackking \def\pifive{f}\fi
         \if\pts\redchariot \def\pifive{W}\fi
         \if\pts\blackchariot \def\pifive{w}\fi
         \if\pts\redcannon \def\pifive{K}\fi
         \if\pts\blackcannon \def\pifive{k}\fi
         \if\pts\redhorse \def\pifive{P}\fi
         \if\pts\blackhorse \def\pifive{p}\fi
         \if\pts\redelephant \def\pifive{E}\fi
         \if\pts\blackelephant \def\pifive{e}\fi
         \if\pts\redguard \def\pifive{M}\fi
         \if\pts\blackguard \def\pifive{m}\fi 
         \if\pts\redpawn \def\pifive{S}\fi
         \if\pts\blackpawn \def\pifive{s}\fi\fi
      \if\brow\brsix \isixset=1 \def\pts{#1}
         \if\pts\redking \def\pisix{F}\fi
         \if\pts\blackking \def\pisix{f}\fi
         \if\pts\redchariot \def\pisix{W}\fi
         \if\pts\blackchariot \def\pisix{w}\fi
         \if\pts\redcannon \def\pisix{K}\fi
         \if\pts\blackcannon \def\pisix{k}\fi
         \if\pts\redhorse \def\pisix{P}\fi
         \if\pts\blackhorse \def\pisix{p}\fi
         \if\pts\redelephant \def\pisix{E}\fi
         \if\pts\blackelephant \def\pisix{e}\fi
         \if\pts\redguard \def\pisix{M}\fi
         \if\pts\blackguard \def\pisix{m}\fi 
         \if\pts\redpawn \def\pisix{S}\fi
         \if\pts\blackpawn \def\pisix{s}\fi\fi
      \if\brow\brseven \isevenset=1 \def\pts{#1}
         \if\pts\redking \def\piseven{F}\fi
         \if\pts\blackking \def\piseven{f}\fi
         \if\pts\redchariot \def\piseven{W}\fi
         \if\pts\blackchariot \def\piseven{w}\fi
         \if\pts\redcannon \def\piseven{K}\fi
         \if\pts\blackcannon \def\piseven{k}\fi
         \if\pts\redhorse \def\piseven{P}\fi
         \if\pts\blackhorse \def\piseven{p}\fi
         \if\pts\redelephant \def\piseven{E}\fi
         \if\pts\blackelephant \def\piseven{e}\fi
         \if\pts\redguard \def\piseven{M}\fi
         \if\pts\blackguard \def\piseven{m}\fi 
         \if\pts\redpawn \def\piseven{S}\fi
         \if\pts\blackpawn \def\piseven{s}\fi\fi
      \if\brow\breight \ieightset=1 \def\pts{#1}
         \if\pts\redking \def\pieight{F}\fi
         \if\pts\blackking \def\pieight{f}\fi
         \if\pts\redchariot \def\pieight{W}\fi
         \if\pts\blackchariot \def\pieight{w}\fi
         \if\pts\redcannon \def\pieight{K}\fi
         \if\pts\blackcannon \def\pieight{k}\fi
         \if\pts\redhorse \def\pieight{P}\fi
         \if\pts\blackhorse \def\pieight{p}\fi
         \if\pts\redelephant \def\pieight{E}\fi
         \if\pts\blackelephant \def\pieight{e}\fi
         \if\pts\redguard \def\pieight{M}\fi
         \if\pts\blackguard \def\pieight{m}\fi 
         \if\pts\redpawn \def\pieight{S}\fi
         \if\pts\blackpawn \def\pieight{s}\fi\fi
      \if\brow\brnine \inineset=1 \def\pts{#1}
         \if\pts\redking \def\pinine{F}\fi
         \if\pts\blackking \def\pinine{f}\fi
         \if\pts\redchariot \def\pinine{W}\fi
         \if\pts\blackchariot \def\pinine{w}\fi
         \if\pts\redcannon \def\pinine{K}\fi
         \if\pts\blackcannon \def\pinine{k}\fi
         \if\pts\redhorse \def\pinine{P}\fi
         \if\pts\blackhorse \def\pinine{p}\fi
         \if\pts\redelephant \def\pinine{E}\fi
         \if\pts\blackelephant \def\pinine{e}\fi
         \if\pts\redguard \def\pinine{M}\fi
         \if\pts\blackguard \def\pinine{m}\fi 
         \if\pts\redpawn \def\pinine{S}\fi
         \if\pts\blackpawn \def\pinine{s}\fi\fi
      \if\brow\brnull \inullset=1 \def\pts{#1}
         \if\pts\redking \def\pinull{F}\fi
         \if\pts\blackking \def\pinull{f}\fi
         \if\pts\redchariot \def\pinull{W}\fi
         \if\pts\blackchariot \def\pinull{w}\fi
         \if\pts\redcannon \def\pinull{K}\fi
         \if\pts\blackcannon \def\pinull{k}\fi
         \if\pts\redhorse \def\pinull{P}\fi
         \if\pts\blackhorse \def\pinull{p}\fi
         \if\pts\redelephant \def\pinull{E}\fi
         \if\pts\blackelephant \def\pinull{e}\fi
         \if\pts\redguard \def\pinull{M}\fi
         \if\pts\blackguard \def\pinull{m}\fi 
         \if\pts\redpawn \def\pinull{S}\fi
         \if\pts\blackpawn \def\pinull{s}\fi\fi\fi
}

%definitions for additional signs
\def\legal{L}
\def\illegal{U}
\def\blackp{B}
\def\redp{R}


\def\addsign #1#2#3{

\def\addbrow{#3}
\def\addbline{#2}
   \if\addbline\ali 
      \if\addbrow\brone \aoneset=2 \def\addsts{#1} 
         \if\addsts\legal \def\paone{L}\fi
         \if\addsts\illegal \def\paone{U}\fi 
         \if\addsts\redp \def\paone{R}\fi
         \if\addsts\blackp \def\paone{B}\fi\fi
      \if\addbrow\brtwo \atwoset=2 \def\addsts{#1} 
         \if\addsts\legal \def\patwo{L}\fi
         \if\addsts\illegal \def\patwo{U}\fi 
         \if\addsts\redp \def\patwo{R}\fi
         \if\addsts\blackp \def\patwo{B}\fi\fi
      \if\addbrow\brthree \athreeset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pathree{L}\fi
         \if\addsts\illegal \def\pathree{U}\fi 
         \if\addsts\redp \def\pathree{R}\fi
         \if\addsts\blackp \def\pathree{B}\fi\fi     
      \if\addbrow\brfour \afourset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pafour{L}\fi
         \if\addsts\illegal \def\pafour{U}\fi 
         \if\addsts\redp \def\pafour{R}\fi
         \if\addsts\blackp \def\pafour{B}\fi\fi
      \if\addbrow\brfive \afiveset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pafive{L}\fi
         \if\addsts\illegal \def\pafive{U}\fi 
         \if\addsts\redp \def\pafive{R}\fi
         \if\addsts\blackp \def\pafive{B}\fi\fi
      \if\addbrow\brsix \asixset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pasix{L}\fi
         \if\addsts\illegal \def\pasix{U}\fi 
         \if\addsts\redp \def\pasix{R}\fi
         \if\addsts\blackp \def\pasix{B}\fi\fi
      \if\addbrow\brseven \asevenset=2 \def\addsts{#1} 
         \if\addsts\legal \def\paseven{L}\fi
         \if\addsts\illegal \def\paseven{U}\fi 
         \if\addsts\redp \def\paseven{R}\fi
         \if\addsts\blackp \def\paseven{B}\fi\fi
      \if\addbrow\breight \aeightset=2 \def\addsts{#1} 
         \if\addsts\legal \def\paeight{L}\fi
         \if\addsts\illegal \def\paeight{U}\fi 
         \if\addsts\redp \def\paeight{R}\fi
         \if\addsts\blackp \def\paeight{B}\fi\fi
      \if\addbrow\brnine \anineset=2 \def\addsts{#1} 
         \if\addsts\legal \def\panine{L}\fi
         \if\addsts\illegal \def\panine{U}\fi 
         \if\addsts\redp \def\panine{R}\fi
         \if\addsts\blackp \def\panine{B}\fi\fi
      \if\addbrow\brnull \anullset=2 \def\addsts{#1} 
         \if\addsts\legal \def\panull{L}\fi
         \if\addsts\illegal \def\panull{U}\fi 
         \if\addsts\redp \def\panull{R}\fi
         \if\addsts\blackp \def\panull{B}\fi\fi\fi  

   \if\addbline\bli 
      \if\addbrow\brone \boneset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pbone{L}\fi
         \if\addsts\illegal \def\pbone{U}\fi 
         \if\addsts\redp \def\pbone{R}\fi
         \if\addsts\blackp \def\pbone{B}\fi\fi
      \if\addbrow\brtwo \btwoset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pbtwo{L}\fi
         \if\addsts\illegal \def\pbtwo{U}\fi 
         \if\addsts\redp \def\pbtwo{R}\fi
         \if\addsts\blackp \def\pbtwo{B}\fi\fi
      \if\addbrow\brthree \bthreeset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pbthree{L}\fi
         \if\addsts\illegal \def\pbthree{U}\fi 
         \if\addsts\redp \def\pbthree{R}\fi
         \if\addsts\blackp \def\pbthree{B}\fi\fi     
      \if\addbrow\brfour \bfourset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pbfour{L}\fi
         \if\addsts\illegal \def\pbfour{U}\fi 
         \if\addsts\redp \def\pbfour{R}\fi
         \if\addsts\blackp \def\pbfour{B}\fi\fi
      \if\addbrow\brfive \bfiveset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pbfive{L}\fi
         \if\addsts\illegal \def\pbfive{U}\fi 
         \if\addsts\redp \def\pbfive{R}\fi
         \if\addsts\blackp \def\pbfive{B}\fi\fi
      \if\addbrow\brsix \bsixset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pbsix{L}\fi
         \if\addsts\illegal \def\pbsix{U}\fi 
         \if\addsts\redp \def\pbsix{R}\fi
         \if\addsts\blackp \def\pbsix{B}\fi\fi
      \if\addbrow\brseven \bsevenset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pbseven{L}\fi
         \if\addsts\illegal \def\pbseven{U}\fi 
         \if\addsts\redp \def\pbseven{R}\fi
         \if\addsts\blackp \def\pbseven{B}\fi\fi
      \if\addbrow\breight \beightset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pbeight{L}\fi
         \if\addsts\illegal \def\pbeight{U}\fi 
         \if\addsts\redp \def\pbeight{R}\fi
         \if\addsts\blackp \def\pbeight{B}\fi\fi
      \if\addbrow\brnine \bnineset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pbnine{L}\fi
         \if\addsts\illegal \def\pbnine{U}\fi 
         \if\addsts\redp \def\pbnine{R}\fi
         \if\addsts\blackp \def\pbnine{B}\fi\fi
      \if\addbrow\brnull \bnullset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pbnull{L}\fi
         \if\addsts\illegal \def\pbnull{U}\fi 
         \if\addsts\redp \def\pbnull{R}\fi
         \if\addsts\blackp \def\pbnull{B}\fi\fi\fi  

   
   \if\addbline\cli 
      \if\addbrow\brone \coneset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pcone{L}\fi
         \if\addsts\illegal \def\pcone{U}\fi 
         \if\addsts\redp \def\pcone{R}\fi
         \if\addsts\blackp \def\pcone{B}\fi\fi
      \if\addbrow\brtwo \ctwoset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pctwo{L}\fi
         \if\addsts\illegal \def\pctwo{U}\fi 
         \if\addsts\redp \def\pctwo{R}\fi
         \if\addsts\blackp \def\pctwo{B}\fi\fi
      \if\addbrow\brthree \cthreeset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pcthree{L}\fi
         \if\addsts\illegal \def\pcthree{U}\fi 
         \if\addsts\redp \def\pcthree{R}\fi
         \if\addsts\blackp \def\pcthree{B}\fi\fi     
      \if\addbrow\brfour \cfourset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pcfour{L}\fi
         \if\addsts\illegal \def\pcfour{U}\fi 
         \if\addsts\redp \def\pcfour{R}\fi
         \if\addsts\blackp \def\pcfour{B}\fi\fi
      \if\addbrow\brfive \cfiveset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pcfive{L}\fi
         \if\addsts\illegal \def\pcfive{U}\fi 
         \if\addsts\redp \def\pcfive{R}\fi
         \if\addsts\blackp \def\pcfive{B}\fi\fi
      \if\addbrow\brsix \csixset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pcsix{L}\fi
         \if\addsts\illegal \def\pcsix{U}\fi 
         \if\addsts\redp \def\pcsix{R}\fi
         \if\addsts\blackp \def\pcsix{B}\fi\fi
      \if\addbrow\brseven \csevenset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pcseven{L}\fi
         \if\addsts\illegal \def\pcseven{U}\fi 
         \if\addsts\redp \def\pcseven{R}\fi
         \if\addsts\blackp \def\pcseven{B}\fi\fi
      \if\addbrow\breight \ceightset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pceight{L}\fi
         \if\addsts\illegal \def\pceight{U}\fi 
         \if\addsts\redp \def\pceight{R}\fi
         \if\addsts\blackp \def\pceight{B}\fi\fi
      \if\addbrow\brnine \cnineset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pcnine{L}\fi
         \if\addsts\illegal \def\pcnine{U}\fi 
         \if\addsts\redp \def\pcnine{R}\fi
         \if\addsts\blackp \def\pcnine{B}\fi\fi
      \if\addbrow\brnull \cnullset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pcnull{L}\fi
         \if\addsts\illegal \def\pcnull{U}\fi 
         \if\addsts\redp \def\pcnull{R}\fi
         \if\addsts\blackp \def\pcnull{B}\fi\fi\fi  

   \if\addbline\dli 
      \if\addbrow\brone \doneset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pdone{L}\fi
         \if\addsts\illegal \def\pdone{U}\fi 
         \if\addsts\redp \def\pdone{R}\fi
         \if\addsts\blackp \def\pdone{B}\fi\fi
      \if\addbrow\brtwo \dtwoset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pdtwo{L}\fi
         \if\addsts\illegal \def\pdtwo{U}\fi 
         \if\addsts\redp \def\pdtwo{R}\fi
         \if\addsts\blackp \def\pdtwo{B}\fi\fi
      \if\addbrow\brthree \dthreeset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pdthree{L}\fi
         \if\addsts\illegal \def\pdthree{U}\fi 
         \if\addsts\redp \def\pdthree{R}\fi
         \if\addsts\blackp \def\pdthree{B}\fi\fi     
      \if\addbrow\brfour \dfourset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pdfour{L}\fi
         \if\addsts\illegal \def\pdfour{U}\fi 
         \if\addsts\redp \def\pdfour{R}\fi
         \if\addsts\blackp \def\pdfour{B}\fi\fi
      \if\addbrow\brfive \dfiveset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pdfive{L}\fi
         \if\addsts\illegal \def\pdfive{U}\fi 
         \if\addsts\redp \def\pdfive{R}\fi
         \if\addsts\blackp \def\pdfive{B}\fi\fi
      \if\addbrow\brsix \dsixset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pdsix{L}\fi
         \if\addsts\illegal \def\pdsix{U}\fi 
         \if\addsts\redp \def\pdsix{R}\fi
         \if\addsts\blackp \def\pdsix{B}\fi\fi
      \if\addbrow\brseven \dsevenset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pdseven{L}\fi
         \if\addsts\illegal \def\pdseven{U}\fi 
         \if\addsts\redp \def\pdseven{R}\fi
         \if\addsts\blackp \def\pdseven{B}\fi\fi
      \if\addbrow\breight \deightset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pdeight{L}\fi
         \if\addsts\illegal \def\pdeight{U}\fi 
         \if\addsts\redp \def\pdeight{R}\fi
         \if\addsts\blackp \def\pdeight{B}\fi\fi
      \if\addbrow\brnine \dnineset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pdnine{L}\fi
         \if\addsts\illegal \def\pdnine{U}\fi 
         \if\addsts\redp \def\pdnine{R}\fi
         \if\addsts\blackp \def\pdnine{B}\fi\fi
      \if\addbrow\brnull \dnullset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pdnull{L}\fi
         \if\addsts\illegal \def\pdnull{U}\fi 
         \if\addsts\redp \def\pdnull{R}\fi
         \if\addsts\blackp \def\pdnull{B}\fi\fi\fi  

   \if\addbline\eli 
      \if\addbrow\brone \eoneset=2 \def\addsts{#1} 
         \if\addsts\legal \def\peone{L}\fi
         \if\addsts\illegal \def\peone{U}\fi 
         \if\addsts\redp \def\peone{R}\fi
         \if\addsts\blackp \def\peone{B}\fi\fi
      \if\addbrow\brtwo \etwoset=2 \def\addsts{#1} 
         \if\addsts\legal \def\petwo{L}\fi
         \if\addsts\illegal \def\petwo{U}\fi 
         \if\addsts\redp \def\petwo{R}\fi
         \if\addsts\blackp \def\petwo{B}\fi\fi
      \if\addbrow\brthree \ethreeset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pethree{L}\fi
         \if\addsts\illegal \def\pethree{U}\fi 
         \if\addsts\redp \def\pethree{R}\fi
         \if\addsts\blackp \def\pethree{B}\fi\fi     
      \if\addbrow\brfour \efourset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pefour{L}\fi
         \if\addsts\illegal \def\pefour{U}\fi 
         \if\addsts\redp \def\pefour{R}\fi
         \if\addsts\blackp \def\pefour{B}\fi\fi
      \if\addbrow\brfive \efiveset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pefive{L}\fi
         \if\addsts\illegal \def\pefive{U}\fi 
         \if\addsts\redp \def\pefive{R}\fi
         \if\addsts\blackp \def\pefive{B}\fi\fi
      \if\addbrow\brsix \esixset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pesix{L}\fi
         \if\addsts\illegal \def\pesix{U}\fi 
         \if\addsts\redp \def\pesix{R}\fi
         \if\addsts\blackp \def\pesix{B}\fi\fi
      \if\addbrow\brseven \esevenset=2 \def\addsts{#1} 
         \if\addsts\legal \def\peseven{L}\fi
         \if\addsts\illegal \def\peseven{U}\fi 
         \if\addsts\redp \def\peseven{R}\fi
         \if\addsts\blackp \def\peseven{B}\fi\fi
      \if\addbrow\breight \eeightset=2 \def\addsts{#1} 
         \if\addsts\legal \def\peeight{L}\fi
         \if\addsts\illegal \def\peeight{U}\fi 
         \if\addsts\redp \def\peeight{R}\fi
         \if\addsts\blackp \def\peeight{B}\fi\fi
      \if\addbrow\brnine \enineset=2 \def\addsts{#1} 
         \if\addsts\legal \def\penine{L}\fi
         \if\addsts\illegal \def\penine{U}\fi 
         \if\addsts\redp \def\penine{R}\fi
         \if\addsts\blackp \def\penine{B}\fi\fi
      \if\addbrow\brnull \enullset=2 \def\addsts{#1} 
         \if\addsts\legal \def\penull{L}\fi
         \if\addsts\illegal \def\penull{U}\fi 
         \if\addsts\redp \def\penull{R}\fi
         \if\addsts\blackp \def\penull{B}\fi\fi\fi  

   \if\addbline\fli 
      \if\addbrow\brone \foneset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pfone{L}\fi
         \if\addsts\illegal \def\pfone{U}\fi 
         \if\addsts\redp \def\pfone{R}\fi
         \if\addsts\blackp \def\pfone{B}\fi\fi
      \if\addbrow\brtwo \ftwoset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pftwo{L}\fi
         \if\addsts\illegal \def\pftwo{U}\fi 
         \if\addsts\redp \def\pftwo{R}\fi
         \if\addsts\blackp \def\pftwo{B}\fi\fi
      \if\addbrow\brthree \fthreeset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pfthree{L}\fi
         \if\addsts\illegal \def\pfthree{U}\fi 
         \if\addsts\redp \def\pfthree{R}\fi
         \if\addsts\blackp \def\pfthree{B}\fi\fi     
      \if\addbrow\brfour \ffourset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pffour{L}\fi
         \if\addsts\illegal \def\pffour{U}\fi 
         \if\addsts\redp \def\pffour{R}\fi
         \if\addsts\blackp \def\pffour{B}\fi\fi
      \if\addbrow\brfive \ffiveset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pffive{L}\fi
         \if\addsts\illegal \def\pffive{U}\fi 
         \if\addsts\redp \def\pffive{R}\fi
         \if\addsts\blackp \def\pffive{B}\fi\fi
      \if\addbrow\brsix \fsixset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pfsix{L}\fi
         \if\addsts\illegal \def\pfsix{U}\fi 
         \if\addsts\redp \def\pfsix{R}\fi
         \if\addsts\blackp \def\pfsix{B}\fi\fi
      \if\addbrow\brseven \fsevenset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pfseven{L}\fi
         \if\addsts\illegal \def\pfseven{U}\fi 
         \if\addsts\redp \def\pfseven{R}\fi
         \if\addsts\blackp \def\pfseven{B}\fi\fi
      \if\addbrow\breight \feightset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pfeight{L}\fi
         \if\addsts\illegal \def\pfeight{U}\fi 
         \if\addsts\redp \def\pfeight{R}\fi
         \if\addsts\blackp \def\pfeight{B}\fi\fi
      \if\addbrow\brnine \fnineset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pfnine{L}\fi
         \if\addsts\illegal \def\pfnine{U}\fi 
         \if\addsts\redp \def\pfnine{R}\fi
         \if\addsts\blackp \def\pfnine{B}\fi\fi
      \if\addbrow\brnull \fnullset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pfnull{L}\fi
         \if\addsts\illegal \def\pfnull{U}\fi 
         \if\addsts\redp \def\pfnull{R}\fi
         \if\addsts\blackp \def\pfnull{B}\fi\fi\fi  

   \if\addbline\gli 
      \if\addbrow\brone \goneset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pgone{L}\fi
         \if\addsts\illegal \def\pgone{U}\fi 
         \if\addsts\redp \def\pgone{R}\fi
         \if\addsts\blackp \def\pgone{B}\fi\fi
      \if\addbrow\brtwo \gtwoset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pgtwo{L}\fi
         \if\addsts\illegal \def\pgtwo{U}\fi 
         \if\addsts\redp \def\pgtwo{R}\fi
         \if\addsts\blackp \def\pgtwo{B}\fi\fi
      \if\addbrow\brthree \gthreeset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pgthree{L}\fi
         \if\addsts\illegal \def\pgthree{U}\fi 
         \if\addsts\redp \def\pgthree{R}\fi
         \if\addsts\blackp \def\pgthree{B}\fi\fi     
      \if\addbrow\brfour \gfourset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pgfour{L}\fi
         \if\addsts\illegal \def\pgfour{U}\fi 
         \if\addsts\redp \def\pgfour{R}\fi
         \if\addsts\blackp \def\pgfour{B}\fi\fi
      \if\addbrow\brfive \gfiveset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pgfive{L}\fi
         \if\addsts\illegal \def\pgfive{U}\fi 
         \if\addsts\redp \def\pgfive{R}\fi
         \if\addsts\blackp \def\pgfive{B}\fi\fi
      \if\addbrow\brsix \gsixset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pgsix{L}\fi
         \if\addsts\illegal \def\pgsix{U}\fi 
         \if\addsts\redp \def\pgsix{R}\fi
         \if\addsts\blackp \def\pgsix{B}\fi\fi
      \if\addbrow\brseven \gsevenset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pgseven{L}\fi
         \if\addsts\illegal \def\pgseven{U}\fi 
         \if\addsts\redp \def\pgseven{R}\fi
         \if\addsts\blackp \def\pgseven{B}\fi\fi
      \if\addbrow\breight \geightset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pgeight{L}\fi
         \if\addsts\illegal \def\pgeight{U}\fi 
         \if\addsts\redp \def\pgeight{R}\fi
         \if\addsts\blackp \def\pgeight{B}\fi\fi
      \if\addbrow\brnine \gnineset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pgnine{L}\fi
         \if\addsts\illegal \def\pgnine{U}\fi 
         \if\addsts\redp \def\pgnine{R}\fi
         \if\addsts\blackp \def\pgnine{B}\fi\fi
      \if\addbrow\brnull \gnullset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pgnull{L}\fi
         \if\addsts\illegal \def\pgnull{U}\fi 
         \if\addsts\redp \def\pgnull{R}\fi
         \if\addsts\blackp \def\pgnull{B}\fi\fi\fi  

   \if\addbline\hli 
      \if\addbrow\brone \honeset=2 \def\addsts{#1} 
         \if\addsts\legal \def\phone{L}\fi
         \if\addsts\illegal \def\phone{U}\fi 
         \if\addsts\redp \def\phone{R}\fi
         \if\addsts\blackp \def\phone{B}\fi\fi
      \if\addbrow\brtwo \htwoset=2 \def\addsts{#1} 
         \if\addsts\legal \def\phtwo{L}\fi
         \if\addsts\illegal \def\phtwo{U}\fi 
         \if\addsts\redp \def\phtwo{R}\fi
         \if\addsts\blackp \def\phtwo{B}\fi\fi
      \if\addbrow\brthree \hthreeset=2 \def\addsts{#1} 
         \if\addsts\legal \def\phthree{L}\fi
         \if\addsts\illegal \def\phthree{U}\fi 
         \if\addsts\redp \def\phthree{R}\fi
         \if\addsts\blackp \def\phthree{B}\fi\fi     
      \if\addbrow\brfour \hfourset=2 \def\addsts{#1} 
         \if\addsts\legal \def\phfour{L}\fi
         \if\addsts\illegal \def\phfour{U}\fi 
         \if\addsts\redp \def\phfour{R}\fi
         \if\addsts\blackp \def\phfour{B}\fi\fi
      \if\addbrow\brfive \hfiveset=2 \def\addsts{#1} 
         \if\addsts\legal \def\phfive{L}\fi
         \if\addsts\illegal \def\phfive{U}\fi 
         \if\addsts\redp \def\phfive{R}\fi
         \if\addsts\blackp \def\phfive{B}\fi\fi
      \if\addbrow\brsix \hsixset=2 \def\addsts{#1} 
         \if\addsts\legal \def\phsix{L}\fi
         \if\addsts\illegal \def\phsix{U}\fi 
         \if\addsts\redp \def\phsix{R}\fi
         \if\addsts\blackp \def\phsix{B}\fi\fi
      \if\addbrow\brseven \hsevenset=2 \def\addsts{#1} 
         \if\addsts\legal \def\phseven{L}\fi
         \if\addsts\illegal \def\phseven{U}\fi 
         \if\addsts\redp \def\phseven{R}\fi
         \if\addsts\blackp \def\phseven{B}\fi\fi
      \if\addbrow\breight \heightset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pheight{L}\fi
         \if\addsts\illegal \def\pheight{U}\fi 
         \if\addsts\redp \def\pheight{R}\fi
         \if\addsts\blackp \def\pheight{B}\fi\fi
      \if\addbrow\brnine \hnineset=2 \def\addsts{#1} 
         \if\addsts\legal \def\phnine{L}\fi
         \if\addsts\illegal \def\phnine{U}\fi 
         \if\addsts\redp \def\phnine{R}\fi
         \if\addsts\blackp \def\phnine{B}\fi\fi
      \if\addbrow\brnull \hnullset=2 \def\addsts{#1} 
         \if\addsts\legal \def\phnull{L}\fi
         \if\addsts\illegal \def\phnull{U}\fi 
         \if\addsts\redp \def\phnull{R}\fi
         \if\addsts\blackp \def\phnull{B}\fi\fi\fi  

   \if\addbline\ili 
      \if\addbrow\brone \ioneset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pione{L}\fi
         \if\addsts\illegal \def\pione{U}\fi 
         \if\addsts\redp \def\pione{R}\fi
         \if\addsts\blackp \def\pione{B}\fi\fi
      \if\addbrow\brtwo \itwoset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pitwo{L}\fi
         \if\addsts\illegal \def\pitwo{U}\fi 
         \if\addsts\redp \def\pitwo{R}\fi
         \if\addsts\blackp \def\pitwo{B}\fi\fi
      \if\addbrow\brthree \ithreeset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pithree{L}\fi
         \if\addsts\illegal \def\pithree{U}\fi 
         \if\addsts\redp \def\pithree{R}\fi
         \if\addsts\blackp \def\pithree{B}\fi\fi     
      \if\addbrow\brfour \ifourset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pifour{L}\fi
         \if\addsts\illegal \def\pifour{U}\fi 
         \if\addsts\redp \def\pifour{R}\fi
         \if\addsts\blackp \def\pifour{B}\fi\fi
      \if\addbrow\brfive \ifiveset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pifive{L}\fi
         \if\addsts\illegal \def\pifive{U}\fi 
         \if\addsts\redp \def\pifive{R}\fi
         \if\addsts\blackp \def\pifive{B}\fi\fi
      \if\addbrow\brsix \isixset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pisix{L}\fi
         \if\addsts\illegal \def\pisix{U}\fi 
         \if\addsts\redp \def\pisix{R}\fi
         \if\addsts\blackp \def\pisix{B}\fi\fi
      \if\addbrow\brseven \isevenset=2 \def\addsts{#1} 
         \if\addsts\legal \def\piseven{L}\fi
         \if\addsts\illegal \def\piseven{U}\fi 
         \if\addsts\redp \def\piseven{R}\fi
         \if\addsts\blackp \def\piseven{B}\fi\fi
      \if\addbrow\breight \ieightset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pieight{L}\fi
         \if\addsts\illegal \def\pieight{U}\fi 
         \if\addsts\redp \def\pieight{R}\fi
         \if\addsts\blackp \def\pieight{B}\fi\fi
      \if\addbrow\brnine \inineset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pinine{L}\fi
         \if\addsts\illegal \def\pinine{U}\fi 
         \if\addsts\redp \def\pinine{R}\fi
         \if\addsts\blackp \def\pinine{B}\fi\fi
      \if\addbrow\brnull \inullset=2 \def\addsts{#1} 
         \if\addsts\legal \def\pinull{L}\fi
         \if\addsts\illegal \def\pinull{U}\fi 
         \if\addsts\redp \def\pinull{R}\fi
         \if\addsts\blackp \def\pinull{B}\fi\fi\fi  

}



%define the startposition of a game
\def\newgame{
\aoneset=1 \atwoset=0 \athreeset=0 \afourset=1 \afiveset=0 \asixset=0 \asevenset=1 \aeightset=0 \anineset=0 \anullset=1
\boneset=1 \btwoset=0 \bthreeset=1 \bfourset=0 \bfiveset=0 \bsixset=0 \bsevenset=0 \beightset=1 \bnineset=0 \bnullset=1
\coneset=1 \ctwoset=0 \cthreeset=0 \cfourset=1 \cfiveset=0 \csixset=0 \csevenset=1 \ceightset=0 \cnineset=0 \cnullset=1
\doneset=1 \dtwoset=0 \dthreeset=0 \dfourset=0 \dfiveset=0 \dsixset=0 \dsevenset=0 \deightset=0 \dnineset=0 \dnullset=1
\eoneset=1 \etwoset=0 \ethreeset=0 \efourset=1 \efiveset=0 \esixset=0 \esevenset=1 \eeightset=0 \enineset=0 \enullset=1
\foneset=1 \ftwoset=0 \fthreeset=0 \ffourset=0 \ffiveset=0 \fsixset=0 \fsevenset=0 \feightset=0 \fnineset=0 \fnullset=1
\goneset=1 \gtwoset=0 \gthreeset=0 \gfourset=1 \gfiveset=0 \gsixset=0 \gsevenset=1 \geightset=0 \gnineset=0 \gnullset=1
\honeset=1 \htwoset=0 \hthreeset=1 \hfourset=0 \hfiveset=0 \hsixset=0 \hsevenset=0 \heightset=1 \hnineset=0 \hnullset=1
\ioneset=1 \itwoset=0 \ithreeset=0 \ifourset=1 \ifiveset=0 \isixset=0 \isevenset=1 \ieightset=0 \inineset=0 \inullset=1

\def\paone{W} \def\pbone{P} \def\pcone{E} \def\pdone{M} \def\peone{F} \def\pfone{M} \def\pgone{E} \def\phone{P} \def\pione{W}
\def\pbthree{K} \def\phthree{K}
\def\pafour{S} \def\pcfour{S} \def\pefour{S} \def\pgfour{S} \def\pifour{S}

\def\panull{w} \def\pbnull{p} \def\pcnull{e} \def\pdnull{m} \def\penull{f} \def\pfnull{m} \def\pgnull{e} \def\phnull{p} \def\pinull{w}
\def\pbeight{k} \def\pheight{k}
\def\paseven{s} \def\pcseven{s} \def\peseven{s} \def\pgseven{s} \def\piseven{s}

\movecount=0
}

%reset the board to an empty one 
\def\resetboard{
\aoneset=0 \atwoset=0 \athreeset=0 \afourset=0 \afiveset=0 \asixset=0 \asevenset=0 \aeightset=0 \anineset=0 \anullset=0
\boneset=0 \btwoset=0 \bthreeset=0 \bfourset=0 \bfiveset=0 \bsixset=0 \bsevenset=0 \beightset=0 \bnineset=0 \bnullset=0
\coneset=0 \ctwoset=0 \cthreeset=0 \cfourset=0 \cfiveset=0 \csixset=0 \csevenset=0 \ceightset=0 \cnineset=0 \cnullset=0
\doneset=0 \dtwoset=0 \dthreeset=0 \dfourset=0 \dfiveset=0 \dsixset=0 \dsevenset=0 \deightset=0 \dnineset=0 \dnullset=0
\eoneset=0 \etwoset=0 \ethreeset=0 \efourset=0 \efiveset=0 \esixset=0 \esevenset=0 \eeightset=0 \enineset=0 \enullset=0
\foneset=0 \ftwoset=0 \fthreeset=0 \ffourset=0 \ffiveset=0 \fsixset=0 \fsevenset=0 \feightset=0 \fnineset=0 \fnullset=0
\goneset=0 \gtwoset=0 \gthreeset=0 \gfourset=0 \gfiveset=0 \gsixset=0 \gsevenset=0 \geightset=0 \gnineset=0 \gnullset=0
\honeset=0 \htwoset=0 \hthreeset=0 \hfourset=0 \hfiveset=0 \hsixset=0 \hsevenset=0 \heightset=0 \hnineset=0 \hnullset=0
\ioneset=0 \itwoset=0 \ithreeset=0 \ifourset=0 \ifiveset=0 \isixset=0 \isevenset=0 \ieightset=0 \inineset=0 \inullset=0
}

%show the board
\newfont{\xqpieces}{xqnormal}
\newfont{\additionalsigns}{xqaddsignsnormal}
\newfont{\additionallargesigns}{xqaddsignslarge}
\newcounter{piecex}\newcounter{piecey}

\newcommand{\element}[3]
{
\setcounter{piecex}{#1}\addtocounter{piecex}{-1}%
\setcounter{piecey}{#2}\addtocounter{piecey}{-1}%
\put(\value{piecex},\value{piecey})%
{\setbox0=\hbox{\xqpieces #3}\kern-0.31\wd0\box0}%
}

\newcommand{\additionalelement}[3]
{
\setcounter{piecex}{#1}\addtocounter{piecex}{-1}%
\setcounter{piecey}{#2}\addtocounter{piecey}{-1}%
\put(\value{piecex},\value{piecey})%
{\setbox0=\hbox{\additionalsigns #3}\kern-0.31\wd0\box0}%
}

\newcommand{\boardlines}[3]
{
\setcounter{piecex}{#1}\addtocounter{piecex}{-1}%
\setcounter{piecey}{#2}\addtocounter{piecey}{-1}%
\put(\value{piecex},\value{piecey})%
{\setbox0=\hbox{#3}\kern0.19\wd0\box0}%
}

\newcommand{\boardrows}[3]
{
\setcounter{piecex}{#1}\addtocounter{piecex}{-1}%
\setcounter{piecey}{#2}\addtocounter{piecey}{-1}%
\put(\value{piecex},\value{piecey})%
{\setbox0=\hbox{#3}\kern0.07\wd0\box0}%
}



\def\showboard{
\setlength{\unitlength}{0.693cm}%
\begin{center}
\begin{picture}(8.9,11)

%set the pieces 
\ifnum\aoneset=1%
\element{1}{2}{\paone}\fi
\ifnum\boneset=1%
\element{2}{2}{\pbone}\fi
\ifnum\coneset=1%
\element{3}{2}{\pcone}\fi
\ifnum\doneset=1% 
\element{4}{2}{\pdone}\fi
\ifnum\eoneset=1%
\element{5}{2}{\peone}\fi
\ifnum\foneset=1%
\element{6}{2}{\pfone}\fi
\ifnum\goneset=1%
\element{7}{2}{\pgone}\fi
\ifnum\honeset=1% 
\element{8}{2}{\phone}\fi
\ifnum\ioneset=1%
\element{9}{2}{\pione}\fi

\ifnum\atwoset=1%
\element{1}{3}{\patwo}\fi
\ifnum\btwoset=1%
\element{2}{3}{\pbtwo}\fi
\ifnum\ctwoset=1%
\element{3}{3}{\pctwo}\fi
\ifnum\dtwoset=1%
\element{4}{3}{\pdtwo}\fi
\ifnum\etwoset=1% 
\element{5}{3}{\petwo}\fi
\ifnum\ftwoset=1% 
\element{6}{3}{\pftwo}\fi
\ifnum\gtwoset=1% 
\element{7}{3}{\pgtwo}\fi
\ifnum\htwoset=1% 
\element{8}{3}{\phtwo}\fi
\ifnum\itwoset=1% 
\element{9}{3}{\pitwo}\fi

\ifnum\athreeset=1% 
\element{1}{4}{\pathree}\fi
\ifnum\bthreeset=1% 
\element{2}{4}{\pbthree}\fi
\ifnum\cthreeset=1% 
\element{3}{4}{\pcthree}\fi
\ifnum\dthreeset=1% 
\element{4}{4}{\pdthree}\fi
\ifnum\ethreeset=1% 
\element{5}{4}{\pethree}\fi
\ifnum\fthreeset=1% 
\element{6}{4}{\pfthree}\fi
\ifnum\gthreeset=1% 
\element{7}{4}{\pgthree}\fi
\ifnum\hthreeset=1% 
\element{8}{4}{\phthree}\fi
\ifnum\ithreeset=1% 
\element{9}{4}{\pithree}\fi

\ifnum\afourset=1% 
\element{1}{5}{\pafour}\fi
\ifnum\bfourset=1% 
\element{2}{5}{\pbfour}\fi
\ifnum\cfourset=1% 
\element{3}{5}{\pcfour}\fi
\ifnum\dfourset=1% 
\element{4}{5}{\pdfour}\fi
\ifnum\efourset=1% 
\element{5}{5}{\pefour}\fi
\ifnum\ffourset=1% 
\element{6}{5}{\pffour}\fi
\ifnum\gfourset=1% 
\element{7}{5}{\pgfour}\fi
\ifnum\hfourset=1% 
\element{8}{5}{\phfour}\fi
\ifnum\ifourset=1% 
\element{9}{5}{\pifour}\fi

\ifnum\afiveset=1% 
\element{1}{6}{\pafive}\fi
\ifnum\bfiveset=1% 
\element{2}{6}{\pbfive}\fi
\ifnum\cfiveset=1% 
\element{3}{6}{\pcfive}\fi
\ifnum\dfiveset=1% 
\element{4}{6}{\pdfive}\fi
\ifnum\efiveset=1% 
\element{5}{6}{\pefive}\fi
\ifnum\ffiveset=1% 
\element{6}{6}{\pffive}\fi
\ifnum\gfiveset=1% 
\element{7}{6}{\pgfive}\fi
\ifnum\hfiveset=1% 
\element{8}{6}{\phfive}\fi
\ifnum\ifiveset=1% 
\element{9}{6}{\pifive}\fi

\ifnum\asixset=1% 
\element{1}{7}{\pasix}\fi
\ifnum\bsixset=1% 
\element{2}{7}{\pbsix}\fi
\ifnum\csixset=1% 
\element{3}{7}{\pcsix}\fi
\ifnum\dsixset=1% 
\element{4}{7}{\pdsix}\fi
\ifnum\esixset=1% 
\element{5}{7}{\pesix}\fi
\ifnum\fsixset=1% 
\element{6}{7}{\pfsix}\fi
\ifnum\gsixset=1% 
\element{7}{7}{\pgsix}\fi
\ifnum\hsixset=1% 
\element{8}{7}{\phsix}\fi
\ifnum\isixset=1% 
\element{9}{7}{\pisix}\fi

\ifnum\asevenset=1% 
\element{1}{8}{\paseven}\fi
\ifnum\bsevenset=1% 
\element{2}{8}{\pbseven}\fi
\ifnum\csevenset=1% 
\element{3}{8}{\pcseven}\fi
\ifnum\dsevenset=1% 
\element{4}{8}{\pdseven}\fi
\ifnum\esevenset=1% 
\element{5}{8}{\peseven}\fi
\ifnum\fsevenset=1% 
\element{6}{8}{\pfseven}\fi
\ifnum\gsevenset=1% 
\element{7}{8}{\pgseven}\fi
\ifnum\hsevenset=1% 
\element{8}{8}{\phseven}\fi
\ifnum\isevenset=1% 
\element{9}{8}{\piseven}\fi

\ifnum\aeightset=1% 
\element{1}{9}{\paeight}\fi
\ifnum\beightset=1% 
\element{2}{9}{\pbeight}\fi
\ifnum\ceightset=1% 
\element{3}{9}{\pceight}\fi
\ifnum\deightset=1% 
\element{4}{9}{\pdeight}\fi
\ifnum\eeightset=1% 
\element{5}{9}{\peeight}\fi
\ifnum\feightset=1% 
\element{6}{9}{\pfeight}\fi
\ifnum\geightset=1% 
\element{7}{9}{\pgeight}\fi
\ifnum\heightset=1% 
\element{8}{9}{\pheight}\fi
\ifnum\ieightset=1% 
\element{9}{9}{\pieight}\fi

\ifnum\anineset=1% 
\element{1}{10}{\panine}\fi
\ifnum\bnineset=1% 
\element{2}{10}{\pbnine}\fi
\ifnum\cnineset=1% 
\element{3}{10}{\pcnine}\fi
\ifnum\dnineset=1% 
\element{4}{10}{\pdnine}\fi
\ifnum\enineset=1% 
\element{5}{10}{\penine}\fi
\ifnum\fnineset=1% 
\element{6}{10}{\pfnine}\fi
\ifnum\gnineset=1% 
\element{7}{10}{\pgnine}\fi
\ifnum\hnineset=1% 
\element{8}{10}{\phnine}\fi
\ifnum\inineset=1% 
\element{9}{10}{\pinine}\fi

\ifnum\anullset=1% 
\element{1}{11}{\panull}\fi
\ifnum\bnullset=1% 
\element{2}{11}{\pbnull}\fi
\ifnum\cnullset=1% 
\element{3}{11}{\pcnull}\fi
\ifnum\dnullset=1% 
\element{4}{11}{\pdnull}\fi
\ifnum\enullset=1% 
\element{5}{11}{\penull}\fi
\ifnum\fnullset=1% 
\element{6}{11}{\pfnull}\fi
\ifnum\gnullset=1% 
\element{7}{11}{\pgnull}\fi
\ifnum\hnullset=1% 
\element{8}{11}{\phnull}\fi
\ifnum\inullset=1% 
\element{9}{11}{\pinull}\fi

%set the additional signs 
\ifnum\aoneset=2%
\additionalelement{1}{2}{\paone}\fi
\ifnum\boneset=2%
\additionalelement{2}{2}{\pbone}\fi
\ifnum\coneset=2%
\additionalelement{3}{2}{\pcone}\fi
\ifnum\doneset=2% 
\additionalelement{4}{2}{\pdone}\fi
\ifnum\eoneset=2%
\additionalelement{5}{2}{\peone}\fi
\ifnum\foneset=2%
\additionalelement{6}{2}{\pfone}\fi
\ifnum\goneset=2%
\additionalelement{7}{2}{\pgone}\fi
\ifnum\honeset=2% 
\additionalelement{8}{2}{\phone}\fi
\ifnum\ioneset=2%
\additionalelement{9}{2}{\pione}\fi

\ifnum\atwoset=2%
\additionalelement{1}{3}{\patwo}\fi
\ifnum\btwoset=2%
\additionalelement{2}{3}{\pbtwo}\fi
\ifnum\ctwoset=2%
\additionalelement{3}{3}{\pctwo}\fi
\ifnum\dtwoset=2%
\additionalelement{4}{3}{\pdtwo}\fi
\ifnum\etwoset=2% 
\additionalelement{5}{3}{\petwo}\fi
\ifnum\ftwoset=2% 
\additionalelement{6}{3}{\pftwo}\fi
\ifnum\gtwoset=2% 
\additionalelement{7}{3}{\pgtwo}\fi
\ifnum\htwoset=2% 
\additionalelement{8}{3}{\phtwo}\fi
\ifnum\itwoset=2% 
\additionalelement{9}{3}{\pitwo}\fi

\ifnum\athreeset=2% 
\additionalelement{1}{4}{\pathree}\fi
\ifnum\bthreeset=2% 
\additionalelement{2}{4}{\pbthree}\fi
\ifnum\cthreeset=2% 
\additionalelement{3}{4}{\pcthree}\fi
\ifnum\dthreeset=2% 
\additionalelement{4}{4}{\pdthree}\fi
\ifnum\ethreeset=2% 
\additionalelement{5}{4}{\pethree}\fi
\ifnum\fthreeset=2% 
\additionalelement{6}{4}{\pfthree}\fi
\ifnum\gthreeset=2% 
\additionalelement{7}{4}{\pgthree}\fi
\ifnum\hthreeset=2% 
\additionalelement{8}{4}{\phthree}\fi
\ifnum\ithreeset=2% 
\additionalelement{9}{4}{\pithree}\fi

\ifnum\afourset=2% 
\additionalelement{1}{5}{\pafour}\fi
\ifnum\bfourset=2% 
\additionalelement{2}{5}{\pbfour}\fi
\ifnum\cfourset=2% 
\additionalelement{3}{5}{\pcfour}\fi
\ifnum\dfourset=2% 
\additionalelement{4}{5}{\pdfour}\fi
\ifnum\efourset=2% 
\additionalelement{5}{5}{\pefour}\fi
\ifnum\ffourset=2% 
\additionalelement{6}{5}{\pffour}\fi
\ifnum\gfourset=2% 
\additionalelement{7}{5}{\pgfour}\fi
\ifnum\hfourset=2% 
\additionalelement{8}{5}{\phfour}\fi
\ifnum\ifourset=2% 
\additionalelement{9}{5}{\pifour}\fi

\ifnum\afiveset=2% 
\additionalelement{1}{6}{\pafive}\fi
\ifnum\bfiveset=2% 
\additionalelement{2}{6}{\pbfive}\fi
\ifnum\cfiveset=2% 
\additionalelement{3}{6}{\pcfive}\fi
\ifnum\dfiveset=2% 
\additionalelement{4}{6}{\pdfive}\fi
\ifnum\efiveset=2% 
\additionalelement{5}{6}{\pefive}\fi
\ifnum\ffiveset=2% 
\additionalelement{6}{6}{\pffive}\fi
\ifnum\gfiveset=2% 
\additionalelement{7}{6}{\pgfive}\fi
\ifnum\hfiveset=2% 
\additionalelement{8}{6}{\phfive}\fi
\ifnum\ifiveset=2% 
\additionalelement{9}{6}{\pifive}\fi

\ifnum\asixset=2% 
\additionalelement{1}{7}{\pasix}\fi
\ifnum\bsixset=2% 
\additionalelement{2}{7}{\pbsix}\fi
\ifnum\csixset=2% 
\additionalelement{3}{7}{\pcsix}\fi
\ifnum\dsixset=2% 
\additionalelement{4}{7}{\pdsix}\fi
\ifnum\esixset=2% 
\additionalelement{5}{7}{\pesix}\fi
\ifnum\fsixset=2% 
\additionalelement{6}{7}{\pfsix}\fi
\ifnum\gsixset=2% 
\additionalelement{7}{7}{\pgsix}\fi
\ifnum\hsixset=2% 
\additionalelement{8}{7}{\phsix}\fi
\ifnum\isixset=2% 
\additionalelement{9}{7}{\pisix}\fi

\ifnum\asevenset=2% 
\additionalelement{1}{8}{\paseven}\fi
\ifnum\bsevenset=2% 
\additionalelement{2}{8}{\pbseven}\fi
\ifnum\csevenset=2% 
\additionalelement{3}{8}{\pcseven}\fi
\ifnum\dsevenset=2% 
\additionalelement{4}{8}{\pdseven}\fi
\ifnum\esevenset=2% 
\additionalelement{5}{8}{\peseven}\fi
\ifnum\fsevenset=2% 
\additionalelement{6}{8}{\pfseven}\fi
\ifnum\gsevenset=2% 
\additionalelement{7}{8}{\pgseven}\fi
\ifnum\hsevenset=2% 
\additionalelement{8}{8}{\phseven}\fi
\ifnum\isevenset=2% 
\additionalelement{9}{8}{\piseven}\fi

\ifnum\aeightset=2% 
\additionalelement{1}{9}{\paeight}\fi
\ifnum\beightset=2% 
\additionalelement{2}{9}{\pbeight}\fi
\ifnum\ceightset=2% 
\additionalelement{3}{9}{\pceight}\fi
\ifnum\deightset=2% 
\additionalelement{4}{9}{\pdeight}\fi
\ifnum\eeightset=2% 
\additionalelement{5}{9}{\peeight}\fi
\ifnum\feightset=2% 
\additionalelement{6}{9}{\pfeight}\fi
\ifnum\geightset=2% 
\additionalelement{7}{9}{\pgeight}\fi
\ifnum\heightset=2% 
\additionalelement{8}{9}{\pheight}\fi
\ifnum\ieightset=2% 
\additionalelement{9}{9}{\pieight}\fi

\ifnum\anineset=2% 
\additionalelement{1}{10}{\panine}\fi
\ifnum\bnineset=2% 
\additionalelement{2}{10}{\pbnine}\fi
\ifnum\cnineset=2% 
\additionalelement{3}{10}{\pcnine}\fi
\ifnum\dnineset=2% 
\additionalelement{4}{10}{\pdnine}\fi
\ifnum\enineset=2% 
\additionalelement{5}{10}{\penine}\fi
\ifnum\fnineset=2% 
\additionalelement{6}{10}{\pfnine}\fi
\ifnum\gnineset=2% 
\additionalelement{7}{10}{\pgnine}\fi
\ifnum\hnineset=2% 
\additionalelement{8}{10}{\phnine}\fi
\ifnum\inineset=2% 
\additionalelement{9}{10}{\pinine}\fi

\ifnum\anullset=2% 
\additionalelement{1}{11}{\panull}\fi
\ifnum\bnullset=2% 
\additionalelement{2}{11}{\pbnull}\fi
\ifnum\cnullset=2% 
\additionalelement{3}{11}{\pcnull}\fi
\ifnum\dnullset=2% 
\additionalelement{4}{11}{\pdnull}\fi
\ifnum\enullset=2% 
\additionalelement{5}{11}{\penull}\fi
\ifnum\fnullset=2% 
\additionalelement{6}{11}{\pfnull}\fi
\ifnum\gnullset=2% 
\additionalelement{7}{11}{\pgnull}\fi
\ifnum\hnullset=2% 
\additionalelement{8}{11}{\phnull}\fi
\ifnum\inullset=2% 
\additionalelement{9}{11}{\pinull}\fi


%set the empty "squares"
\ifnum\aoneset<1%
\element{1}{2}{9}\fi
\ifnum\boneset<1%
\element{2}{2}{7}\fi
\ifnum\coneset<1%
\element{3}{2}{7}\fi
\ifnum\doneset<1% 
\element{4}{2}{J}\fi
\ifnum\eoneset<1%
\element{5}{2}{7}\fi
\ifnum\foneset<1%
\element{6}{2}{N}\fi
\ifnum\goneset<1%
\element{7}{2}{7}\fi
\ifnum\honeset<1% 
\element{8}{2}{7}\fi
\ifnum\ioneset<1%
\element{9}{2}{B}\fi

\ifnum\atwoset<1%
\element{1}{3}{3}\fi
\ifnum\btwoset<1%
\element{2}{3}{4}\fi
\ifnum\ctwoset<1%
\element{3}{3}{4}\fi
\ifnum\dtwoset<1%
\element{4}{3}{4}\fi
\ifnum\etwoset<1% 
\element{5}{3}{C}\fi
\ifnum\ftwoset<1% 
\element{6}{3}{4}\fi
\ifnum\gtwoset<1% 
\element{7}{3}{4}\fi
\ifnum\htwoset<1% 
\element{8}{3}{4}\fi
\ifnum\itwoset<1% 
\element{9}{3}{5}\fi

\ifnum\athreeset<1% 
\element{1}{4}{3}\fi
\ifnum\bthreeset<1% 
\element{2}{4}{1}\fi
\ifnum\cthreeset<1% 
\element{3}{4}{4}\fi
\ifnum\dthreeset<1% 
\element{4}{4}{G}\fi
\ifnum\ethreeset<1% 
\element{5}{4}{4}\fi
\ifnum\fthreeset<1% 
\element{6}{4}{D}\fi
\ifnum\gthreeset<1% 
\element{7}{4}{4}\fi
\ifnum\hthreeset<1% 
\element{8}{4}{1}\fi
\ifnum\ithreeset<1% 
\element{9}{4}{5}\fi

\ifnum\afourset<1% 
\element{1}{5}{0}\fi
\ifnum\bfourset<1% 
\element{2}{5}{4}\fi
\ifnum\cfourset<1% 
\element{3}{5}{1}\fi
\ifnum\dfourset<1% 
\element{4}{5}{4}\fi
\ifnum\efourset<1% 
\element{5}{5}{1}\fi
\ifnum\ffourset<1% 
\element{6}{5}{4}\fi
\ifnum\gfourset<1% 
\element{7}{5}{1}\fi
\ifnum\hfourset<1% 
\element{8}{5}{4}\fi
\ifnum\ifourset<1% 
\element{9}{5}{2}\fi

\ifnum\afiveset<1% 
\element{1}{6}{3}\fi
\ifnum\bfiveset<1% 
\element{2}{6}{6}\fi
\ifnum\cfiveset<1% 
\element{3}{6}{6}\fi
\ifnum\dfiveset<1% 
\element{4}{6}{6}\fi
\ifnum\efiveset<1% 
\element{5}{6}{6}\fi
\ifnum\ffiveset<1% 
\element{6}{6}{6}\fi
\ifnum\gfiveset<1% 
\element{7}{6}{6}\fi
\ifnum\hfiveset<1% 
\element{8}{6}{6}\fi
\ifnum\ifiveset<1% 
\element{9}{6}{5}\fi

\ifnum\asixset<1% 
\element{1}{7}{3}\fi
\ifnum\bsixset<1% 
\element{2}{7}{7}\fi
\ifnum\csixset<1% 
\element{3}{7}{7}\fi
\ifnum\dsixset<1% 
\element{4}{7}{7}\fi
\ifnum\esixset<1% 
\element{5}{7}{7}\fi
\ifnum\fsixset<1% 
\element{6}{7}{7}\fi
\ifnum\gsixset<1% 
\element{7}{7}{7}\fi
\ifnum\hsixset<1% 
\element{8}{7}{7}\fi
\ifnum\isixset<1% 
\element{9}{7}{5}\fi

\ifnum\asevenset<1% 
\element{1}{8}{0}\fi
\ifnum\bsevenset<1% 
\element{2}{8}{4}\fi
\ifnum\csevenset<1% 
\element{3}{8}{1}\fi
\ifnum\dsevenset<1% 
\element{4}{8}{4}\fi
\ifnum\esevenset<1% 
\element{5}{8}{1}\fi
\ifnum\fsevenset<1% 
\element{6}{8}{4}\fi
\ifnum\gsevenset<1% 
\element{7}{8}{1}\fi
\ifnum\hsevenset<1% 
\element{8}{8}{4}\fi
\ifnum\isevenset<1% 
\element{9}{8}{2}\fi

\ifnum\aeightset<1% 
\element{1}{9}{3}\fi
\ifnum\beightset<1% 
\element{2}{9}{1}\fi
\ifnum\ceightset<1% 
\element{3}{9}{4}\fi
\ifnum\deightset<1% 
\element{4}{9}{H}\fi
\ifnum\eeightset<1% 
\element{5}{9}{4}\fi
\ifnum\feightset<1% 
\element{6}{9}{I}\fi
\ifnum\geightset<1% 
\element{7}{9}{4}\fi
\ifnum\heightset<1% 
\element{8}{9}{1}\fi
\ifnum\ieightset<1% 
\element{9}{9}{5}\fi

\ifnum\anineset<1% 
\element{1}{10}{3}\fi
\ifnum\bnineset<1% 
\element{2}{10}{4}\fi
\ifnum\cnineset<1% 
\element{3}{10}{4}\fi
\ifnum\dnineset<1% 
\element{4}{10}{4}\fi
\ifnum\enineset<1% 
\element{5}{10}{C}\fi
\ifnum\fnineset<1% 
\element{6}{10}{4}\fi
\ifnum\gnineset<1% 
\element{7}{10}{4}\fi
\ifnum\hnineset<1% 
\element{8}{10}{4}\fi
\ifnum\inineset<1% 
\element{9}{10}{5}\fi

\ifnum\anullset<1% 
\element{1}{11}{8}\fi
\ifnum\bnullset<1% 
\element{2}{11}{6}\fi
\ifnum\cnullset<1% 
\element{3}{11}{6}\fi
\ifnum\dnullset<1% 
\element{4}{11}{O}\fi
\ifnum\enullset<1% 
\element{5}{11}{6}\fi
\ifnum\fnullset<1% 
\element{6}{11}{Q}\fi
\ifnum\gnullset<1% 
\element{7}{11}{6}\fi
\ifnum\hnullset<1% 
\element{8}{11}{6}\fi
\ifnum\inullset<1% 
\element{9}{11}{A}\fi

%notation
\boardlines{1}{1}{\large{\texttt{a}}}\boardlines{2}{1}{\large{\texttt{b}}}\boardlines{3}{1}{\large{\texttt{c}}}\boardlines{4}{1}{\large{\texttt{d}}}\boardlines{5}{1}{\large{\texttt{e}}}\boardlines{6}{1}{\large{\texttt{f}}}\boardlines{7}{1}{\large{\texttt{g}}}\boardlines{8}{1}{\large{\texttt{h}}}\boardlines{9}{1}{\large{\texttt{i}}}

\boardrows{10}{2}{\large{\texttt{1}}}\boardrows{10}{3}{\large{\texttt{2}}}\boardrows{10}{4}{\large{\texttt{3}}}\boardrows{10}{5}{\large{\texttt{4}}}\boardrows{10}{6}{\large{\texttt{5}}}\boardrows{10}{7}{\large{\texttt{6}}}\boardrows{10}{8}{\large{\texttt{7}}}\boardrows{10}{9}{\large{\texttt{8}}}\boardrows{10}{10}{\large{\texttt{9}}}\boardrows{10}{11}{\large{\texttt{0}}}

\end{picture}
\end{center}
}

%show the board in large size
\newfont{\largexqpieces}{xqlarge}
\newcounter{largepiecex}\newcounter{largepiecey}

\newcommand{\largeelement}[3]
{
\setcounter{largepiecex}{#1}\addtocounter{largepiecex}{-1}%
\setcounter{largepiecey}{#2}\addtocounter{largepiecey}{-1}%
\put(\value{largepiecex},\value{largepiecey})%
{\setbox0=\hbox{\largexqpieces #3}\kern-0.67\wd0\box0}%
}

\newcommand{\additionallargeelement}[3]
{
\setcounter{piecex}{#1}\addtocounter{piecex}{-1}%
\setcounter{piecey}{#2}\addtocounter{piecey}{-1}%
\put(\value{piecex},\value{piecey})%
{\setbox0=\hbox{\additionallargesigns #3}\kern-0.31\wd0\box0}%
}


\newcommand{\largeboardlines}[3]
{
\setcounter{largepiecex}{#1}\addtocounter{largepiecex}{-1}%
\setcounter{largepiecey}{#2}\addtocounter{largepiecey}{-1}%
\put(\value{largepiecex},\value{largepiecey})%
{\setbox0=\hbox{\largexqpieces #3}\kern-0.87\wd0\box0}%
}

\newcommand{\largeboardrows}[3]
{
\setcounter{largepiecex}{#1}\addtocounter{largepiecex}{-1}%
\setcounter{largepiecey}{#2}\addtocounter{largepiecey}{-1}%
\put(\value{largepiecex},\value{largepiecey})%
{\setbox0=\hbox{\largexqpieces #3}\kern-0.43\wd0\box0}%
}


\def\showlargeboard{
\setlength{\unitlength}{1.1088cm}%
\begin{center}
\begin{picture}(8.9,11)

%set the pieces 
\ifnum\aoneset=1%
\largeelement{1}{2}{\paone}\fi
\ifnum\boneset=1%
\largeelement{2}{2}{\pbone}\fi
\ifnum\coneset=1%
\largeelement{3}{2}{\pcone}\fi
\ifnum\doneset=1% 
\largeelement{4}{2}{\pdone}\fi
\ifnum\eoneset=1%
\largeelement{5}{2}{\peone}\fi
\ifnum\foneset=1%
\largeelement{6}{2}{\pfone}\fi
\ifnum\goneset=1%
\largeelement{7}{2}{\pgone}\fi
\ifnum\honeset=1% 
\largeelement{8}{2}{\phone}\fi
\ifnum\ioneset=1%
\largeelement{9}{2}{\pione}\fi

\ifnum\atwoset=1%
\largeelement{1}{3}{\patwo}\fi
\ifnum\btwoset=1%
\largeelement{2}{3}{\pbtwo}\fi
\ifnum\ctwoset=1%
\largeelement{3}{3}{\pctwo}\fi
\ifnum\dtwoset=1%
\largeelement{4}{3}{\pdtwo}\fi
\ifnum\etwoset=1% 
\largeelement{5}{3}{\petwo}\fi
\ifnum\ftwoset=1% 
\largeelement{6}{3}{\pftwo}\fi
\ifnum\gtwoset=1% 
\largeelement{7}{3}{\pgtwo}\fi
\ifnum\htwoset=1% 
\largeelement{8}{3}{\phtwo}\fi
\ifnum\itwoset=1% 
\largeelement{9}{3}{\pitwo}\fi

\ifnum\athreeset=1% 
\largeelement{1}{4}{\pathree}\fi
\ifnum\bthreeset=1% 
\largeelement{2}{4}{\pbthree}\fi
\ifnum\cthreeset=1% 
\largeelement{3}{4}{\pcthree}\fi
\ifnum\dthreeset=1% 
\largeelement{4}{4}{\pdthree}\fi
\ifnum\ethreeset=1% 
\largeelement{5}{4}{\pethree}\fi
\ifnum\fthreeset=1% 
\largeelement{6}{4}{\pfthree}\fi
\ifnum\gthreeset=1% 
\largeelement{7}{4}{\pgthree}\fi
\ifnum\hthreeset=1% 
\largeelement{8}{4}{\phthree}\fi
\ifnum\ithreeset=1% 
\largeelement{9}{4}{\pithree}\fi

\ifnum\afourset=1% 
\largeelement{1}{5}{\pafour}\fi
\ifnum\bfourset=1% 
\largeelement{2}{5}{\pbfour}\fi
\ifnum\cfourset=1% 
\largeelement{3}{5}{\pcfour}\fi
\ifnum\dfourset=1% 
\largeelement{4}{5}{\pdfour}\fi
\ifnum\efourset=1% 
\largeelement{5}{5}{\pefour}\fi
\ifnum\ffourset=1% 
\largeelement{6}{5}{\pffour}\fi
\ifnum\gfourset=1% 
\largeelement{7}{5}{\pgfour}\fi
\ifnum\hfourset=1% 
\largeelement{8}{5}{\phfour}\fi
\ifnum\ifourset=1% 
\largeelement{9}{5}{\pifour}\fi

\ifnum\afiveset=1% 
\largeelement{1}{6}{\pafive}\fi
\ifnum\bfiveset=1% 
\largeelement{2}{6}{\pbfive}\fi
\ifnum\cfiveset=1% 
\largeelement{3}{6}{\pcfive}\fi
\ifnum\dfiveset=1% 
\largeelement{4}{6}{\pdfive}\fi
\ifnum\efiveset=1% 
\largeelement{5}{6}{\pefive}\fi
\ifnum\ffiveset=1% 
\largeelement{6}{6}{\pffive}\fi
\ifnum\gfiveset=1% 
\largeelement{7}{6}{\pgfive}\fi
\ifnum\hfiveset=1% 
\largeelement{8}{6}{\phfive}\fi
\ifnum\ifiveset=1% 
\largeelement{9}{6}{\pifive}\fi

\ifnum\asixset=1% 
\largeelement{1}{7}{\pasix}\fi
\ifnum\bsixset=1% 
\largeelement{2}{7}{\pbsix}\fi
\ifnum\csixset=1% 
\largeelement{3}{7}{\pcsix}\fi
\ifnum\dsixset=1% 
\largeelement{4}{7}{\pdsix}\fi
\ifnum\esixset=1% 
\largeelement{5}{7}{\pesix}\fi
\ifnum\fsixset=1% 
\largeelement{6}{7}{\pfsix}\fi
\ifnum\gsixset=1% 
\largeelement{7}{7}{\pgsix}\fi
\ifnum\hsixset=1% 
\largeelement{8}{7}{\phsix}\fi
\ifnum\isixset=1% 
\largeelement{9}{7}{\pisix}\fi

\ifnum\asevenset=1% 
\largeelement{1}{8}{\paseven}\fi
\ifnum\bsevenset=1% 
\largeelement{2}{8}{\pbseven}\fi
\ifnum\csevenset=1% 
\largeelement{3}{8}{\pcseven}\fi
\ifnum\dsevenset=1% 
\largeelement{4}{8}{\pdseven}\fi
\ifnum\esevenset=1% 
\largeelement{5}{8}{\peseven}\fi
\ifnum\fsevenset=1% 
\largeelement{6}{8}{\pfseven}\fi
\ifnum\gsevenset=1% 
\largeelement{7}{8}{\pgseven}\fi
\ifnum\hsevenset=1% 
\largeelement{8}{8}{\phseven}\fi
\ifnum\isevenset=1% 
\largeelement{9}{8}{\piseven}\fi

\ifnum\aeightset=1% 
\largeelement{1}{9}{\paeight}\fi
\ifnum\beightset=1% 
\largeelement{2}{9}{\pbeight}\fi
\ifnum\ceightset=1% 
\largeelement{3}{9}{\pceight}\fi
\ifnum\deightset=1% 
\largeelement{4}{9}{\pdeight}\fi
\ifnum\eeightset=1% 
\largeelement{5}{9}{\peeight}\fi
\ifnum\feightset=1% 
\largeelement{6}{9}{\pfeight}\fi
\ifnum\geightset=1% 
\largeelement{7}{9}{\pgeight}\fi
\ifnum\heightset=1% 
\largeelement{8}{9}{\pheight}\fi
\ifnum\ieightset=1% 
\largeelement{9}{9}{\pieight}\fi

\ifnum\anineset=1% 
\largeelement{1}{10}{\panine}\fi
\ifnum\bnineset=1% 
\largeelement{2}{10}{\pbnine}\fi
\ifnum\cnineset=1% 
\largeelement{3}{10}{\pcnine}\fi
\ifnum\dnineset=1% 
\largeelement{4}{10}{\pdnine}\fi
\ifnum\enineset=1% 
\largeelement{5}{10}{\penine}\fi
\ifnum\fnineset=1% 
\largeelement{6}{10}{\pfnine}\fi
\ifnum\gnineset=1% 
\largeelement{7}{10}{\pgnine}\fi
\ifnum\hnineset=1% 
\largeelement{8}{10}{\phnine}\fi
\ifnum\inineset=1% 
\largeelement{9}{10}{\pinine}\fi

\ifnum\anullset=1% 
\largeelement{1}{11}{\panull}\fi
\ifnum\bnullset=1% 
\largeelement{2}{11}{\pbnull}\fi
\ifnum\cnullset=1% 
\largeelement{3}{11}{\pcnull}\fi
\ifnum\dnullset=1% 
\largeelement{4}{11}{\pdnull}\fi
\ifnum\enullset=1% 
\largeelement{5}{11}{\penull}\fi
\ifnum\fnullset=1% 
\largeelement{6}{11}{\pfnull}\fi
\ifnum\gnullset=1% 
\largeelement{7}{11}{\pgnull}\fi
\ifnum\hnullset=1% 
\largeelement{8}{11}{\phnull}\fi
\ifnum\inullset=1% 
\largeelement{9}{11}{\pinull}\fi

%set the additional signs 
\ifnum\aoneset=2%
\additionallargeelement{1}{2}{\paone}\fi
\ifnum\boneset=2%
\additionallargeelement{2}{2}{\pbone}\fi
\ifnum\coneset=2%
\additionallargeelement{3}{2}{\pcone}\fi
\ifnum\doneset=2% 
\additionallargeelement{4}{2}{\pdone}\fi
\ifnum\eoneset=2%
\additionallargeelement{5}{2}{\peone}\fi
\ifnum\foneset=2%
\additionallargeelement{6}{2}{\pfone}\fi
\ifnum\goneset=2%
\additionallargeelement{7}{2}{\pgone}\fi
\ifnum\honeset=2% 
\additionallargeelement{8}{2}{\phone}\fi
\ifnum\ioneset=2%
\additionallargeelement{9}{2}{\pione}\fi

\ifnum\atwoset=2%
\additionallargeelement{1}{3}{\patwo}\fi
\ifnum\btwoset=2%
\additionallargeelement{2}{3}{\pbtwo}\fi
\ifnum\ctwoset=2%
\additionallargeelement{3}{3}{\pctwo}\fi
\ifnum\dtwoset=2%
\additionallargeelement{4}{3}{\pdtwo}\fi
\ifnum\etwoset=2% 
\additionallargeelement{5}{3}{\petwo}\fi
\ifnum\ftwoset=2% 
\additionallargeelement{6}{3}{\pftwo}\fi
\ifnum\gtwoset=2% 
\additionallargeelement{7}{3}{\pgtwo}\fi
\ifnum\htwoset=2% 
\additionallargeelement{8}{3}{\phtwo}\fi
\ifnum\itwoset=2% 
\additionallargeelement{9}{3}{\pitwo}\fi

\ifnum\athreeset=2% 
\additionallargeelement{1}{4}{\pathree}\fi
\ifnum\bthreeset=2% 
\additionallargeelement{2}{4}{\pbthree}\fi
\ifnum\cthreeset=2% 
\additionallargeelement{3}{4}{\pcthree}\fi
\ifnum\dthreeset=2% 
\additionallargeelement{4}{4}{\pdthree}\fi
\ifnum\ethreeset=2% 
\additionallargeelement{5}{4}{\pethree}\fi
\ifnum\fthreeset=2% 
\additionallargeelement{6}{4}{\pfthree}\fi
\ifnum\gthreeset=2% 
\additionallargeelement{7}{4}{\pgthree}\fi
\ifnum\hthreeset=2% 
\additionallargeelement{8}{4}{\phthree}\fi
\ifnum\ithreeset=2% 
\additionallargeelement{9}{4}{\pithree}\fi

\ifnum\afourset=2% 
\additionallargeelement{1}{5}{\pafour}\fi
\ifnum\bfourset=2% 
\additionallargeelement{2}{5}{\pbfour}\fi
\ifnum\cfourset=2% 
\additionallargeelement{3}{5}{\pcfour}\fi
\ifnum\dfourset=2% 
\additionallargeelement{4}{5}{\pdfour}\fi
\ifnum\efourset=2% 
\additionallargeelement{5}{5}{\pefour}\fi
\ifnum\ffourset=2% 
\additionallargeelement{6}{5}{\pffour}\fi
\ifnum\gfourset=2% 
\additionallargeelement{7}{5}{\pgfour}\fi
\ifnum\hfourset=2% 
\additionallargeelement{8}{5}{\phfour}\fi
\ifnum\ifourset=2% 
\additionallargeelement{9}{5}{\pifour}\fi

\ifnum\afiveset=2% 
\additionallargeelement{1}{6}{\pafive}\fi
\ifnum\bfiveset=2% 
\additionallargeelement{2}{6}{\pbfive}\fi
\ifnum\cfiveset=2% 
\additionallargeelement{3}{6}{\pcfive}\fi
\ifnum\dfiveset=2% 
\additionallargeelement{4}{6}{\pdfive}\fi
\ifnum\efiveset=2% 
\additionallargeelement{5}{6}{\pefive}\fi
\ifnum\ffiveset=2% 
\additionallargeelement{6}{6}{\pffive}\fi
\ifnum\gfiveset=2% 
\additionallargeelement{7}{6}{\pgfive}\fi
\ifnum\hfiveset=2% 
\additionallargeelement{8}{6}{\phfive}\fi
\ifnum\ifiveset=2% 
\additionallargeelement{9}{6}{\pifive}\fi

\ifnum\asixset=2% 
\additionallargeelement{1}{7}{\pasix}\fi
\ifnum\bsixset=2% 
\additionallargeelement{2}{7}{\pbsix}\fi
\ifnum\csixset=2% 
\additionallargeelement{3}{7}{\pcsix}\fi
\ifnum\dsixset=2% 
\additionallargeelement{4}{7}{\pdsix}\fi
\ifnum\esixset=2% 
\additionallargeelement{5}{7}{\pesix}\fi
\ifnum\fsixset=2% 
\additionallargeelement{6}{7}{\pfsix}\fi
\ifnum\gsixset=2% 
\additionallargeelement{7}{7}{\pgsix}\fi
\ifnum\hsixset=2% 
\additionallargeelement{8}{7}{\phsix}\fi
\ifnum\isixset=2% 
\additionallargeelement{9}{7}{\pisix}\fi

\ifnum\asevenset=2% 
\additionallargeelement{1}{8}{\paseven}\fi
\ifnum\bsevenset=2% 
\additionallargeelement{2}{8}{\pbseven}\fi
\ifnum\csevenset=2% 
\additionallargeelement{3}{8}{\pcseven}\fi
\ifnum\dsevenset=2% 
\additionallargeelement{4}{8}{\pdseven}\fi
\ifnum\esevenset=2% 
\additionallargeelement{5}{8}{\peseven}\fi
\ifnum\fsevenset=2% 
\additionallargeelement{6}{8}{\pfseven}\fi
\ifnum\gsevenset=2% 
\additionallargeelement{7}{8}{\pgseven}\fi
\ifnum\hsevenset=2% 
\additionallargeelement{8}{8}{\phseven}\fi
\ifnum\isevenset=2% 
\additionallargeelement{9}{8}{\piseven}\fi

\ifnum\aeightset=2% 
\additionallargeelement{1}{9}{\paeight}\fi
\ifnum\beightset=2% 
\additionallargeelement{2}{9}{\pbeight}\fi
\ifnum\ceightset=2% 
\additionallargeelement{3}{9}{\pceight}\fi
\ifnum\deightset=2% 
\additionallargeelement{4}{9}{\pdeight}\fi
\ifnum\eeightset=2% 
\additionallargeelement{5}{9}{\peeight}\fi
\ifnum\feightset=2% 
\additionallargeelement{6}{9}{\pfeight}\fi
\ifnum\geightset=2% 
\additionallargeelement{7}{9}{\pgeight}\fi
\ifnum\heightset=2% 
\additionallargeelement{8}{9}{\pheight}\fi
\ifnum\ieightset=2% 
\additionallargeelement{9}{9}{\pieight}\fi

\ifnum\anineset=2% 
\additionallargeelement{1}{10}{\panine}\fi
\ifnum\bnineset=2% 
\additionallargeelement{2}{10}{\pbnine}\fi
\ifnum\cnineset=2% 
\additionallargeelement{3}{10}{\pcnine}\fi
\ifnum\dnineset=2% 
\additionallargeelement{4}{10}{\pdnine}\fi
\ifnum\enineset=2% 
\additionallargeelement{5}{10}{\penine}\fi
\ifnum\fnineset=2% 
\additionallargeelement{6}{10}{\pfnine}\fi
\ifnum\gnineset=2% 
\additionallargeelement{7}{10}{\pgnine}\fi
\ifnum\hnineset=2% 
\additionallargeelement{8}{10}{\phnine}\fi
\ifnum\inineset=2% 
\additionallargeelement{9}{10}{\pinine}\fi

\ifnum\anullset=2% 
\additionallargeelement{1}{11}{\panull}\fi
\ifnum\bnullset=2% 
\additionallargeelement{2}{11}{\pbnull}\fi
\ifnum\cnullset=2% 
\additionallargeelement{3}{11}{\pcnull}\fi
\ifnum\dnullset=2% 
\additionallargeelement{4}{11}{\pdnull}\fi
\ifnum\enullset=2% 
\additionallargeelement{5}{11}{\penull}\fi
\ifnum\fnullset=2% 
\additionallargeelement{6}{11}{\pfnull}\fi
\ifnum\gnullset=2% 
\additionallargeelement{7}{11}{\pgnull}\fi
\ifnum\hnullset=2% 
\additionallargeelement{8}{11}{\phnull}\fi
\ifnum\inullset=2% 
\additionallargeelement{9}{11}{\pinull}\fi



%set the empty "squares"
\ifnum\aoneset<1%
\largeelement{1}{2}{9}\fi
\ifnum\boneset<1%
\largeelement{2}{2}{7}\fi
\ifnum\coneset<1%
\largeelement{3}{2}{7}\fi
\ifnum\doneset<1% 
\largeelement{4}{2}{J}\fi
\ifnum\eoneset<1%
\largeelement{5}{2}{7}\fi
\ifnum\foneset<1%
\largeelement{6}{2}{N}\fi
\ifnum\goneset<1%
\largeelement{7}{2}{7}\fi
\ifnum\honeset<1% 
\largeelement{8}{2}{7}\fi
\ifnum\ioneset<1%
\largeelement{9}{2}{B}\fi

\ifnum\atwoset<1%
\largeelement{1}{3}{3}\fi
\ifnum\btwoset<1%
\largeelement{2}{3}{4}\fi
\ifnum\ctwoset<1%
\largeelement{3}{3}{4}\fi
\ifnum\dtwoset<1%
\largeelement{4}{3}{4}\fi
\ifnum\etwoset<1% 
\largeelement{5}{3}{C}\fi
\ifnum\ftwoset<1% 
\largeelement{6}{3}{4}\fi
\ifnum\gtwoset<1% 
\largeelement{7}{3}{4}\fi
\ifnum\htwoset<1% 
\largeelement{8}{3}{4}\fi
\ifnum\itwoset<1% 
\largeelement{9}{3}{5}\fi

\ifnum\athreeset<1% 
\largeelement{1}{4}{3}\fi
\ifnum\bthreeset<1% 
\largeelement{2}{4}{1}\fi
\ifnum\cthreeset<1% 
\largeelement{3}{4}{4}\fi
\ifnum\dthreeset<1% 
\largeelement{4}{4}{G}\fi
\ifnum\ethreeset<1% 
\largeelement{5}{4}{4}\fi
\ifnum\fthreeset<1% 
\largeelement{6}{4}{D}\fi
\ifnum\gthreeset<1% 
\largeelement{7}{4}{4}\fi
\ifnum\hthreeset<1% 
\largeelement{8}{4}{1}\fi
\ifnum\ithreeset<1% 
\largeelement{9}{4}{5}\fi

\ifnum\afourset<1% 
\largeelement{1}{5}{0}\fi
\ifnum\bfourset<1% 
\largeelement{2}{5}{4}\fi
\ifnum\cfourset<1% 
\largeelement{3}{5}{1}\fi
\ifnum\dfourset<1% 
\largeelement{4}{5}{4}\fi
\ifnum\efourset<1% 
\largeelement{5}{5}{1}\fi
\ifnum\ffourset<1% 
\largeelement{6}{5}{4}\fi
\ifnum\gfourset<1% 
\largeelement{7}{5}{1}\fi
\ifnum\hfourset<1% 
\largeelement{8}{5}{4}\fi
\ifnum\ifourset<1% 
\largeelement{9}{5}{2}\fi

\ifnum\afiveset<1% 
\largeelement{1}{6}{3}\fi
\ifnum\bfiveset<1% 
\largeelement{2}{6}{6}\fi
\ifnum\cfiveset<1% 
\largeelement{3}{6}{6}\fi
\ifnum\dfiveset<1% 
\largeelement{4}{6}{6}\fi
\ifnum\efiveset<1% 
\largeelement{5}{6}{6}\fi
\ifnum\ffiveset<1% 
\largeelement{6}{6}{6}\fi
\ifnum\gfiveset<1% 
\largeelement{7}{6}{6}\fi
\ifnum\hfiveset<1% 
\largeelement{8}{6}{6}\fi
\ifnum\ifiveset<1% 
\largeelement{9}{6}{5}\fi

\ifnum\asixset<1% 
\largeelement{1}{7}{3}\fi
\ifnum\bsixset<1% 
\largeelement{2}{7}{7}\fi
\ifnum\csixset<1% 
\largeelement{3}{7}{7}\fi
\ifnum\dsixset<1% 
\largeelement{4}{7}{7}\fi
\ifnum\esixset<1% 
\largeelement{5}{7}{7}\fi
\ifnum\fsixset<1% 
\largeelement{6}{7}{7}\fi
\ifnum\gsixset<1% 
\largeelement{7}{7}{7}\fi
\ifnum\hsixset<1% 
\largeelement{8}{7}{7}\fi
\ifnum\isixset<1% 
\largeelement{9}{7}{5}\fi

\ifnum\asevenset<1% 
\largeelement{1}{8}{0}\fi
\ifnum\bsevenset<1% 
\largeelement{2}{8}{4}\fi
\ifnum\csevenset<1% 
\largeelement{3}{8}{1}\fi
\ifnum\dsevenset<1% 
\largeelement{4}{8}{4}\fi
\ifnum\esevenset<1% 
\largeelement{5}{8}{1}\fi
\ifnum\fsevenset<1% 
\largeelement{6}{8}{4}\fi
\ifnum\gsevenset<1% 
\largeelement{7}{8}{1}\fi
\ifnum\hsevenset<1% 
\largeelement{8}{8}{4}\fi
\ifnum\isevenset<1% 
\largeelement{9}{8}{2}\fi

\ifnum\aeightset<1% 
\largeelement{1}{9}{3}\fi
\ifnum\beightset<1% 
\largeelement{2}{9}{1}\fi
\ifnum\ceightset<1% 
\largeelement{3}{9}{4}\fi
\ifnum\deightset<1% 
\largeelement{4}{9}{H}\fi
\ifnum\eeightset<1% 
\largeelement{5}{9}{4}\fi
\ifnum\feightset<1% 
\largeelement{6}{9}{I}\fi
\ifnum\geightset<1% 
\largeelement{7}{9}{4}\fi
\ifnum\heightset<1% 
\largeelement{8}{9}{1}\fi
\ifnum\ieightset<1% 
\largeelement{9}{9}{5}\fi

\ifnum\anineset<1% 
\largeelement{1}{10}{3}\fi
\ifnum\bnineset<1% 
\largeelement{2}{10}{4}\fi
\ifnum\cnineset<1% 
\largeelement{3}{10}{4}\fi
\ifnum\dnineset<1% 
\largeelement{4}{10}{4}\fi
\ifnum\enineset<1% 
\largeelement{5}{10}{C}\fi
\ifnum\fnineset<1% 
\largeelement{6}{10}{4}\fi
\ifnum\gnineset<1% 
\largeelement{7}{10}{4}\fi
\ifnum\hnineset<1% 
\largeelement{8}{10}{4}\fi
\ifnum\inineset<1% 
\largeelement{9}{10}{5}\fi

\ifnum\anullset<1% 
\largeelement{1}{11}{8}\fi
\ifnum\bnullset<1% 
\largeelement{2}{11}{6}\fi
\ifnum\cnullset<1% 
\largeelement{3}{11}{6}\fi
\ifnum\dnullset<1% 
\largeelement{4}{11}{O}\fi
\ifnum\enullset<1% 
\largeelement{5}{11}{6}\fi
\ifnum\fnullset<1% 
\largeelement{6}{11}{Q}\fi
\ifnum\gnullset<1% 
\largeelement{7}{11}{6}\fi
\ifnum\hnullset<1% 
\largeelement{8}{11}{6}\fi
\ifnum\inullset<1% 
\largeelement{9}{11}{A}\fi

%notation

\largeboardlines{1}{1}{\huge{\texttt{a}}}\largeboardlines{2}{1}{\huge{\texttt{b}}}\largeboardlines{3}{1}{\huge{\texttt{c}}}\largeboardlines{4}{1}{\huge{\texttt{d}}}\largeboardlines{5}{1}{\huge{\texttt{e}}}\largeboardlines{6}{1}{\huge{\texttt{f}}}\largeboardlines{7}{1}{\huge{\texttt{g}}}\largeboardlines{8}{1}{\huge{\texttt{h}}}\largeboardlines{9}{1}{\huge{\texttt{i}}}

\largeboardrows{10}{2}{\huge{\texttt{1}}}\largeboardrows{10}{3}{\huge{\texttt{2}}}\largeboardrows{10}{4}{\huge{\texttt{3}}}\largeboardrows{10}{5}{\huge{\texttt{4}}}\largeboardrows{10}{6}{\huge{\texttt{5}}}\largeboardrows{10}{7}{\huge{\texttt{6}}}\largeboardrows{10}{8}{\huge{\texttt{7}}}\largeboardrows{10}{9}{\huge{\texttt{8}}}\largeboardrows{10}{10}{\huge{\texttt{9}}}\largeboardrows{10}{11}{\huge{\texttt{0}}}

\end{picture}
\end{center}
}


%show the board

\newfont{\europieces}{xqwestnormal}

\newcommand{\euroelement}[3]
{
\setcounter{piecex}{#1}\addtocounter{piecex}{-1}%
\setcounter{piecey}{#2}\addtocounter{piecey}{-1}%
\put(\value{piecex},\value{piecey})%
{\setbox0=\hbox{\europieces #3}\kern-0.31\wd0\box0}%
}



\def\showwesternboard{
\setlength{\unitlength}{0.693cm}%
\begin{center}
\begin{picture}(8.9,11)

%set the pieces 
\ifnum\aoneset=1%
\euroelement{1}{2}{\paone}\fi
\ifnum\boneset=1%
\euroelement{2}{2}{\pbone}\fi
\ifnum\coneset=1%
\euroelement{3}{2}{\pcone}\fi
\ifnum\doneset=1% 
\euroelement{4}{2}{\pdone}\fi
\ifnum\eoneset=1%
\euroelement{5}{2}{\peone}\fi
\ifnum\foneset=1%
\euroelement{6}{2}{\pfone}\fi
\ifnum\goneset=1%
\euroelement{7}{2}{\pgone}\fi
\ifnum\honeset=1% 
\euroelement{8}{2}{\phone}\fi
\ifnum\ioneset=1%
\euroelement{9}{2}{\pione}\fi

\ifnum\atwoset=1%
\euroelement{1}{3}{\patwo}\fi
\ifnum\btwoset=1%
\euroelement{2}{3}{\pbtwo}\fi
\ifnum\ctwoset=1%
\euroelement{3}{3}{\pctwo}\fi
\ifnum\dtwoset=1%
\euroelement{4}{3}{\pdtwo}\fi
\ifnum\etwoset=1% 
\euroelement{5}{3}{\petwo}\fi
\ifnum\ftwoset=1% 
\euroelement{6}{3}{\pftwo}\fi
\ifnum\gtwoset=1% 
\euroelement{7}{3}{\pgtwo}\fi
\ifnum\htwoset=1% 
\euroelement{8}{3}{\phtwo}\fi
\ifnum\itwoset=1% 
\euroelement{9}{3}{\pitwo}\fi

\ifnum\athreeset=1% 
\euroelement{1}{4}{\pathree}\fi
\ifnum\bthreeset=1% 
\euroelement{2}{4}{\pbthree}\fi
\ifnum\cthreeset=1% 
\euroelement{3}{4}{\pcthree}\fi
\ifnum\dthreeset=1% 
\euroelement{4}{4}{\pdthree}\fi
\ifnum\ethreeset=1% 
\euroelement{5}{4}{\pethree}\fi
\ifnum\fthreeset=1% 
\euroelement{6}{4}{\pfthree}\fi
\ifnum\gthreeset=1% 
\euroelement{7}{4}{\pgthree}\fi
\ifnum\hthreeset=1% 
\euroelement{8}{4}{\phthree}\fi
\ifnum\ithreeset=1% 
\euroelement{9}{4}{\pithree}\fi

\ifnum\afourset=1% 
\euroelement{1}{5}{\pafour}\fi
\ifnum\bfourset=1% 
\euroelement{2}{5}{\pbfour}\fi
\ifnum\cfourset=1% 
\euroelement{3}{5}{\pcfour}\fi
\ifnum\dfourset=1% 
\euroelement{4}{5}{\pdfour}\fi
\ifnum\efourset=1% 
\euroelement{5}{5}{\pefour}\fi
\ifnum\ffourset=1% 
\euroelement{6}{5}{\pffour}\fi
\ifnum\gfourset=1% 
\euroelement{7}{5}{\pgfour}\fi
\ifnum\hfourset=1% 
\euroelement{8}{5}{\phfour}\fi
\ifnum\ifourset=1% 
\euroelement{9}{5}{\pifour}\fi

\ifnum\afiveset=1% 
\euroelement{1}{6}{\pafive}\fi
\ifnum\bfiveset=1% 
\euroelement{2}{6}{\pbfive}\fi
\ifnum\cfiveset=1% 
\euroelement{3}{6}{\pcfive}\fi
\ifnum\dfiveset=1% 
\euroelement{4}{6}{\pdfive}\fi
\ifnum\efiveset=1% 
\euroelement{5}{6}{\pefive}\fi
\ifnum\ffiveset=1% 
\euroelement{6}{6}{\pffive}\fi
\ifnum\gfiveset=1% 
\euroelement{7}{6}{\pgfive}\fi
\ifnum\hfiveset=1% 
\euroelement{8}{6}{\phfive}\fi
\ifnum\ifiveset=1% 
\euroelement{9}{6}{\pifive}\fi

\ifnum\asixset=1% 
\euroelement{1}{7}{\pasix}\fi
\ifnum\bsixset=1% 
\euroelement{2}{7}{\pbsix}\fi
\ifnum\csixset=1% 
\euroelement{3}{7}{\pcsix}\fi
\ifnum\dsixset=1% 
\euroelement{4}{7}{\pdsix}\fi
\ifnum\esixset=1% 
\euroelement{5}{7}{\pesix}\fi
\ifnum\fsixset=1% 
\euroelement{6}{7}{\pfsix}\fi
\ifnum\gsixset=1% 
\euroelement{7}{7}{\pgsix}\fi
\ifnum\hsixset=1% 
\euroelement{8}{7}{\phsix}\fi
\ifnum\isixset=1% 
\euroelement{9}{7}{\pisix}\fi

\ifnum\asevenset=1% 
\euroelement{1}{8}{\paseven}\fi
\ifnum\bsevenset=1% 
\euroelement{2}{8}{\pbseven}\fi
\ifnum\csevenset=1% 
\euroelement{3}{8}{\pcseven}\fi
\ifnum\dsevenset=1% 
\euroelement{4}{8}{\pdseven}\fi
\ifnum\esevenset=1% 
\euroelement{5}{8}{\peseven}\fi
\ifnum\fsevenset=1% 
\euroelement{6}{8}{\pfseven}\fi
\ifnum\gsevenset=1% 
\euroelement{7}{8}{\pgseven}\fi
\ifnum\hsevenset=1% 
\euroelement{8}{8}{\phseven}\fi
\ifnum\isevenset=1% 
\euroelement{9}{8}{\piseven}\fi

\ifnum\aeightset=1% 
\euroelement{1}{9}{\paeight}\fi
\ifnum\beightset=1% 
\euroelement{2}{9}{\pbeight}\fi
\ifnum\ceightset=1% 
\euroelement{3}{9}{\pceight}\fi
\ifnum\deightset=1% 
\euroelement{4}{9}{\pdeight}\fi
\ifnum\eeightset=1% 
\euroelement{5}{9}{\peeight}\fi
\ifnum\feightset=1% 
\euroelement{6}{9}{\pfeight}\fi
\ifnum\geightset=1% 
\euroelement{7}{9}{\pgeight}\fi
\ifnum\heightset=1% 
\euroelement{8}{9}{\pheight}\fi
\ifnum\ieightset=1% 
\euroelement{9}{9}{\pieight}\fi

\ifnum\anineset=1% 
\euroelement{1}{10}{\panine}\fi
\ifnum\bnineset=1% 
\euroelement{2}{10}{\pbnine}\fi
\ifnum\cnineset=1% 
\euroelement{3}{10}{\pcnine}\fi
\ifnum\dnineset=1% 
\euroelement{4}{10}{\pdnine}\fi
\ifnum\enineset=1% 
\euroelement{5}{10}{\penine}\fi
\ifnum\fnineset=1% 
\euroelement{6}{10}{\pfnine}\fi
\ifnum\gnineset=1% 
\euroelement{7}{10}{\pgnine}\fi
\ifnum\hnineset=1% 
\euroelement{8}{10}{\phnine}\fi
\ifnum\inineset=1% 
\euroelement{9}{10}{\pinine}\fi

\ifnum\anullset=1% 
\euroelement{1}{11}{\panull}\fi
\ifnum\bnullset=1% 
\euroelement{2}{11}{\pbnull}\fi
\ifnum\cnullset=1% 
\euroelement{3}{11}{\pcnull}\fi
\ifnum\dnullset=1% 
\euroelement{4}{11}{\pdnull}\fi
\ifnum\enullset=1% 
\euroelement{5}{11}{\penull}\fi
\ifnum\fnullset=1% 
\euroelement{6}{11}{\pfnull}\fi
\ifnum\gnullset=1% 
\euroelement{7}{11}{\pgnull}\fi
\ifnum\hnullset=1% 
\euroelement{8}{11}{\phnull}\fi
\ifnum\inullset=1% 
\euroelement{9}{11}{\pinull}\fi

%set the additional signs 
\ifnum\aoneset=2%
\additionalelement{1}{2}{\paone}\fi
\ifnum\boneset=2%
\additionalelement{2}{2}{\pbone}\fi
\ifnum\coneset=2%
\additionalelement{3}{2}{\pcone}\fi
\ifnum\doneset=2% 
\additionalelement{4}{2}{\pdone}\fi
\ifnum\eoneset=2%
\additionalelement{5}{2}{\peone}\fi
\ifnum\foneset=2%
\additionalelement{6}{2}{\pfone}\fi
\ifnum\goneset=2%
\additionalelement{7}{2}{\pgone}\fi
\ifnum\honeset=2% 
\additionalelement{8}{2}{\phone}\fi
\ifnum\ioneset=2%
\additionalelement{9}{2}{\pione}\fi

\ifnum\atwoset=2%
\additionalelement{1}{3}{\patwo}\fi
\ifnum\btwoset=2%
\additionalelement{2}{3}{\pbtwo}\fi
\ifnum\ctwoset=2%
\additionalelement{3}{3}{\pctwo}\fi
\ifnum\dtwoset=2%
\additionalelement{4}{3}{\pdtwo}\fi
\ifnum\etwoset=2% 
\additionalelement{5}{3}{\petwo}\fi
\ifnum\ftwoset=2% 
\additionalelement{6}{3}{\pftwo}\fi
\ifnum\gtwoset=2% 
\additionalelement{7}{3}{\pgtwo}\fi
\ifnum\htwoset=2% 
\additionalelement{8}{3}{\phtwo}\fi
\ifnum\itwoset=2% 
\additionalelement{9}{3}{\pitwo}\fi

\ifnum\athreeset=2% 
\additionalelement{1}{4}{\pathree}\fi
\ifnum\bthreeset=2% 
\additionalelement{2}{4}{\pbthree}\fi
\ifnum\cthreeset=2% 
\additionalelement{3}{4}{\pcthree}\fi
\ifnum\dthreeset=2% 
\additionalelement{4}{4}{\pdthree}\fi
\ifnum\ethreeset=2% 
\additionalelement{5}{4}{\pethree}\fi
\ifnum\fthreeset=2% 
\additionalelement{6}{4}{\pfthree}\fi
\ifnum\gthreeset=2% 
\additionalelement{7}{4}{\pgthree}\fi
\ifnum\hthreeset=2% 
\additionalelement{8}{4}{\phthree}\fi
\ifnum\ithreeset=2% 
\additionalelement{9}{4}{\pithree}\fi

\ifnum\afourset=2% 
\additionalelement{1}{5}{\pafour}\fi
\ifnum\bfourset=2% 
\additionalelement{2}{5}{\pbfour}\fi
\ifnum\cfourset=2% 
\additionalelement{3}{5}{\pcfour}\fi
\ifnum\dfourset=2% 
\additionalelement{4}{5}{\pdfour}\fi
\ifnum\efourset=2% 
\additionalelement{5}{5}{\pefour}\fi
\ifnum\ffourset=2% 
\additionalelement{6}{5}{\pffour}\fi
\ifnum\gfourset=2% 
\additionalelement{7}{5}{\pgfour}\fi
\ifnum\hfourset=2% 
\additionalelement{8}{5}{\phfour}\fi
\ifnum\ifourset=2% 
\additionalelement{9}{5}{\pifour}\fi

\ifnum\afiveset=2% 
\additionalelement{1}{6}{\pafive}\fi
\ifnum\bfiveset=2% 
\additionalelement{2}{6}{\pbfive}\fi
\ifnum\cfiveset=2% 
\additionalelement{3}{6}{\pcfive}\fi
\ifnum\dfiveset=2% 
\additionalelement{4}{6}{\pdfive}\fi
\ifnum\efiveset=2% 
\additionalelement{5}{6}{\pefive}\fi
\ifnum\ffiveset=2% 
\additionalelement{6}{6}{\pffive}\fi
\ifnum\gfiveset=2% 
\additionalelement{7}{6}{\pgfive}\fi
\ifnum\hfiveset=2% 
\additionalelement{8}{6}{\phfive}\fi
\ifnum\ifiveset=2% 
\additionalelement{9}{6}{\pifive}\fi

\ifnum\asixset=2% 
\additionalelement{1}{7}{\pasix}\fi
\ifnum\bsixset=2% 
\additionalelement{2}{7}{\pbsix}\fi
\ifnum\csixset=2% 
\additionalelement{3}{7}{\pcsix}\fi
\ifnum\dsixset=2% 
\additionalelement{4}{7}{\pdsix}\fi
\ifnum\esixset=2% 
\additionalelement{5}{7}{\pesix}\fi
\ifnum\fsixset=2% 
\additionalelement{6}{7}{\pfsix}\fi
\ifnum\gsixset=2% 
\additionalelement{7}{7}{\pgsix}\fi
\ifnum\hsixset=2% 
\additionalelement{8}{7}{\phsix}\fi
\ifnum\isixset=2% 
\additionalelement{9}{7}{\pisix}\fi

\ifnum\asevenset=2% 
\additionalelement{1}{8}{\paseven}\fi
\ifnum\bsevenset=2% 
\additionalelement{2}{8}{\pbseven}\fi
\ifnum\csevenset=2% 
\additionalelement{3}{8}{\pcseven}\fi
\ifnum\dsevenset=2% 
\additionalelement{4}{8}{\pdseven}\fi
\ifnum\esevenset=2% 
\additionalelement{5}{8}{\peseven}\fi
\ifnum\fsevenset=2% 
\additionalelement{6}{8}{\pfseven}\fi
\ifnum\gsevenset=2% 
\additionalelement{7}{8}{\pgseven}\fi
\ifnum\hsevenset=2% 
\additionalelement{8}{8}{\phseven}\fi
\ifnum\isevenset=2% 
\additionalelement{9}{8}{\piseven}\fi

\ifnum\aeightset=2% 
\additionalelement{1}{9}{\paeight}\fi
\ifnum\beightset=2% 
\additionalelement{2}{9}{\pbeight}\fi
\ifnum\ceightset=2% 
\additionalelement{3}{9}{\pceight}\fi
\ifnum\deightset=2% 
\additionalelement{4}{9}{\pdeight}\fi
\ifnum\eeightset=2% 
\additionalelement{5}{9}{\peeight}\fi
\ifnum\feightset=2% 
\additionalelement{6}{9}{\pfeight}\fi
\ifnum\geightset=2% 
\additionalelement{7}{9}{\pgeight}\fi
\ifnum\heightset=2% 
\additionalelement{8}{9}{\pheight}\fi
\ifnum\ieightset=2% 
\additionalelement{9}{9}{\pieight}\fi

\ifnum\anineset=2% 
\additionalelement{1}{10}{\panine}\fi
\ifnum\bnineset=2% 
\additionalelement{2}{10}{\pbnine}\fi
\ifnum\cnineset=2% 
\additionalelement{3}{10}{\pcnine}\fi
\ifnum\dnineset=2% 
\additionalelement{4}{10}{\pdnine}\fi
\ifnum\enineset=2% 
\additionalelement{5}{10}{\penine}\fi
\ifnum\fnineset=2% 
\additionalelement{6}{10}{\pfnine}\fi
\ifnum\gnineset=2% 
\additionalelement{7}{10}{\pgnine}\fi
\ifnum\hnineset=2% 
\additionalelement{8}{10}{\phnine}\fi
\ifnum\inineset=2% 
\additionalelement{9}{10}{\pinine}\fi

\ifnum\anullset=2% 
\additionalelement{1}{11}{\panull}\fi
\ifnum\bnullset=2% 
\additionalelement{2}{11}{\pbnull}\fi
\ifnum\cnullset=2% 
\additionalelement{3}{11}{\pcnull}\fi
\ifnum\dnullset=2% 
\additionalelement{4}{11}{\pdnull}\fi
\ifnum\enullset=2% 
\additionalelement{5}{11}{\penull}\fi
\ifnum\fnullset=2% 
\additionalelement{6}{11}{\pfnull}\fi
\ifnum\gnullset=2% 
\additionalelement{7}{11}{\pgnull}\fi
\ifnum\hnullset=2% 
\additionalelement{8}{11}{\phnull}\fi
\ifnum\inullset=2% 
\additionalelement{9}{11}{\pinull}\fi


%set the empty "squares"
\ifnum\aoneset<1%
\element{1}{2}{9}\fi
\ifnum\boneset<1%
\element{2}{2}{7}\fi
\ifnum\coneset<1%
\element{3}{2}{7}\fi
\ifnum\doneset<1% 
\element{4}{2}{J}\fi
\ifnum\eoneset<1%
\element{5}{2}{7}\fi
\ifnum\foneset<1%
\element{6}{2}{N}\fi
\ifnum\goneset<1%
\element{7}{2}{7}\fi
\ifnum\honeset<1% 
\element{8}{2}{7}\fi
\ifnum\ioneset<1%
\element{9}{2}{B}\fi

\ifnum\atwoset<1%
\element{1}{3}{3}\fi
\ifnum\btwoset<1%
\element{2}{3}{4}\fi
\ifnum\ctwoset<1%
\element{3}{3}{4}\fi
\ifnum\dtwoset<1%
\element{4}{3}{4}\fi
\ifnum\etwoset<1% 
\element{5}{3}{C}\fi
\ifnum\ftwoset<1% 
\element{6}{3}{4}\fi
\ifnum\gtwoset<1% 
\element{7}{3}{4}\fi
\ifnum\htwoset<1% 
\element{8}{3}{4}\fi
\ifnum\itwoset<1% 
\element{9}{3}{5}\fi

\ifnum\athreeset<1% 
\element{1}{4}{3}\fi
\ifnum\bthreeset<1% 
\element{2}{4}{1}\fi
\ifnum\cthreeset<1% 
\element{3}{4}{4}\fi
\ifnum\dthreeset<1% 
\element{4}{4}{G}\fi
\ifnum\ethreeset<1% 
\element{5}{4}{4}\fi
\ifnum\fthreeset<1% 
\element{6}{4}{D}\fi
\ifnum\gthreeset<1% 
\element{7}{4}{4}\fi
\ifnum\hthreeset<1% 
\element{8}{4}{1}\fi
\ifnum\ithreeset<1% 
\element{9}{4}{5}\fi

\ifnum\afourset<1% 
\element{1}{5}{0}\fi
\ifnum\bfourset<1% 
\element{2}{5}{4}\fi
\ifnum\cfourset<1% 
\element{3}{5}{1}\fi
\ifnum\dfourset<1% 
\element{4}{5}{4}\fi
\ifnum\efourset<1% 
\element{5}{5}{1}\fi
\ifnum\ffourset<1% 
\element{6}{5}{4}\fi
\ifnum\gfourset<1% 
\element{7}{5}{1}\fi
\ifnum\hfourset<1% 
\element{8}{5}{4}\fi
\ifnum\ifourset<1% 
\element{9}{5}{2}\fi

\ifnum\afiveset<1% 
\element{1}{6}{3}\fi
\ifnum\bfiveset<1% 
\element{2}{6}{6}\fi
\ifnum\cfiveset<1% 
\element{3}{6}{6}\fi
\ifnum\dfiveset<1% 
\element{4}{6}{6}\fi
\ifnum\efiveset<1% 
\element{5}{6}{6}\fi
\ifnum\ffiveset<1% 
\element{6}{6}{6}\fi
\ifnum\gfiveset<1% 
\element{7}{6}{6}\fi
\ifnum\hfiveset<1% 
\element{8}{6}{6}\fi
\ifnum\ifiveset<1% 
\element{9}{6}{5}\fi

\ifnum\asixset<1% 
\element{1}{7}{3}\fi
\ifnum\bsixset<1% 
\element{2}{7}{7}\fi
\ifnum\csixset<1% 
\element{3}{7}{7}\fi
\ifnum\dsixset<1% 
\element{4}{7}{7}\fi
\ifnum\esixset<1% 
\element{5}{7}{7}\fi
\ifnum\fsixset<1% 
\element{6}{7}{7}\fi
\ifnum\gsixset<1% 
\element{7}{7}{7}\fi
\ifnum\hsixset<1% 
\element{8}{7}{7}\fi
\ifnum\isixset<1% 
\element{9}{7}{5}\fi

\ifnum\asevenset<1% 
\element{1}{8}{0}\fi
\ifnum\bsevenset<1% 
\element{2}{8}{4}\fi
\ifnum\csevenset<1% 
\element{3}{8}{1}\fi
\ifnum\dsevenset<1% 
\element{4}{8}{4}\fi
\ifnum\esevenset<1% 
\element{5}{8}{1}\fi
\ifnum\fsevenset<1% 
\element{6}{8}{4}\fi
\ifnum\gsevenset<1% 
\element{7}{8}{1}\fi
\ifnum\hsevenset<1% 
\element{8}{8}{4}\fi
\ifnum\isevenset<1% 
\element{9}{8}{2}\fi

\ifnum\aeightset<1% 
\element{1}{9}{3}\fi
\ifnum\beightset<1% 
\element{2}{9}{1}\fi
\ifnum\ceightset<1% 
\element{3}{9}{4}\fi
\ifnum\deightset<1% 
\element{4}{9}{H}\fi
\ifnum\eeightset<1% 
\element{5}{9}{4}\fi
\ifnum\feightset<1% 
\element{6}{9}{I}\fi
\ifnum\geightset<1% 
\element{7}{9}{4}\fi
\ifnum\heightset<1% 
\element{8}{9}{1}\fi
\ifnum\ieightset<1% 
\element{9}{9}{5}\fi

\ifnum\anineset<1% 
\element{1}{10}{3}\fi
\ifnum\bnineset<1% 
\element{2}{10}{4}\fi
\ifnum\cnineset<1% 
\element{3}{10}{4}\fi
\ifnum\dnineset<1% 
\element{4}{10}{4}\fi
\ifnum\enineset<1% 
\element{5}{10}{C}\fi
\ifnum\fnineset<1% 
\element{6}{10}{4}\fi
\ifnum\gnineset<1% 
\element{7}{10}{4}\fi
\ifnum\hnineset<1% 
\element{8}{10}{4}\fi
\ifnum\inineset<1% 
\element{9}{10}{5}\fi

\ifnum\anullset<1% 
\element{1}{11}{8}\fi
\ifnum\bnullset<1% 
\element{2}{11}{6}\fi
\ifnum\cnullset<1% 
\element{3}{11}{6}\fi
\ifnum\dnullset<1% 
\element{4}{11}{O}\fi
\ifnum\enullset<1% 
\element{5}{11}{6}\fi
\ifnum\fnullset<1% 
\element{6}{11}{Q}\fi
\ifnum\gnullset<1% 
\element{7}{11}{6}\fi
\ifnum\hnullset<1% 
\element{8}{11}{6}\fi
\ifnum\inullset<1% 
\element{9}{11}{A}\fi

%notation
\boardlines{1}{1}{\large{\texttt{a}}}\boardlines{2}{1}{\large{\texttt{b}}}\boardlines{3}{1}{\large{\texttt{c}}}\boardlines{4}{1}{\large{\texttt{d}}}\boardlines{5}{1}{\large{\texttt{e}}}\boardlines{6}{1}{\large{\texttt{f}}}\boardlines{7}{1}{\large{\texttt{g}}}\boardlines{8}{1}{\large{\texttt{h}}}\boardlines{9}{1}{\large{\texttt{i}}}

\boardrows{10}{2}{\large{\texttt{1}}}\boardrows{10}{3}{\large{\texttt{2}}}\boardrows{10}{4}{\large{\texttt{3}}}\boardrows{10}{5}{\large{\texttt{4}}}\boardrows{10}{6}{\large{\texttt{5}}}\boardrows{10}{7}{\large{\texttt{6}}}\boardrows{10}{8}{\large{\texttt{7}}}\boardrows{10}{9}{\large{\texttt{8}}}\boardrows{10}{10}{\large{\texttt{9}}}\boardrows{10}{11}{\large{\texttt{0}}}

\end{picture}
\end{center}
}


\newfont{\largeeuroxqpieces}{xqwestlarge}

\newcommand{\largeeuroelement}[3]
{
\setcounter{largepiecex}{#1}\addtocounter{largepiecex}{-1}%
\setcounter{largepiecey}{#2}\addtocounter{largepiecey}{-1}%
\put(\value{largepiecex},\value{largepiecey})%
{\setbox0=\hbox{\largeeuroxqpieces #3}\kern-0.67\wd0\box0}%
}



\def\showlargewesternboard{
\setlength{\unitlength}{1.1088cm}%
\begin{center}
\begin{picture}(8.9,11)

%set the pieces 
\ifnum\aoneset=1%
\largeeuroelement{1}{2}{\paone}\fi
\ifnum\boneset=1%
\largeeuroelement{2}{2}{\pbone}\fi
\ifnum\coneset=1%
\largeeuroelement{3}{2}{\pcone}\fi
\ifnum\doneset=1% 
\largeeuroelement{4}{2}{\pdone}\fi
\ifnum\eoneset=1%
\largeeuroelement{5}{2}{\peone}\fi
\ifnum\foneset=1%
\largeeuroelement{6}{2}{\pfone}\fi
\ifnum\goneset=1%
\largeeuroelement{7}{2}{\pgone}\fi
\ifnum\honeset=1% 
\largeeuroelement{8}{2}{\phone}\fi
\ifnum\ioneset=1%
\largeeuroelement{9}{2}{\pione}\fi

\ifnum\atwoset=1%
\largeeuroelement{1}{3}{\patwo}\fi
\ifnum\btwoset=1%
\largeeuroelement{2}{3}{\pbtwo}\fi
\ifnum\ctwoset=1%
\largeeuroelement{3}{3}{\pctwo}\fi
\ifnum\dtwoset=1%
\largeeuroelement{4}{3}{\pdtwo}\fi
\ifnum\etwoset=1% 
\largeeuroelement{5}{3}{\petwo}\fi
\ifnum\ftwoset=1% 
\largeeuroelement{6}{3}{\pftwo}\fi
\ifnum\gtwoset=1% 
\largeeuroelement{7}{3}{\pgtwo}\fi
\ifnum\htwoset=1% 
\largeeuroelement{8}{3}{\phtwo}\fi
\ifnum\itwoset=1% 
\largeeuroelement{9}{3}{\pitwo}\fi

\ifnum\athreeset=1% 
\largeeuroelement{1}{4}{\pathree}\fi
\ifnum\bthreeset=1% 
\largeeuroelement{2}{4}{\pbthree}\fi
\ifnum\cthreeset=1% 
\largeeuroelement{3}{4}{\pcthree}\fi
\ifnum\dthreeset=1% 
\largeeuroelement{4}{4}{\pdthree}\fi
\ifnum\ethreeset=1% 
\largeeuroelement{5}{4}{\pethree}\fi
\ifnum\fthreeset=1% 
\largeeuroelement{6}{4}{\pfthree}\fi
\ifnum\gthreeset=1% 
\largeeuroelement{7}{4}{\pgthree}\fi
\ifnum\hthreeset=1% 
\largeeuroelement{8}{4}{\phthree}\fi
\ifnum\ithreeset=1% 
\largeeuroelement{9}{4}{\pithree}\fi

\ifnum\afourset=1% 
\largeeuroelement{1}{5}{\pafour}\fi
\ifnum\bfourset=1% 
\largeeuroelement{2}{5}{\pbfour}\fi
\ifnum\cfourset=1% 
\largeeuroelement{3}{5}{\pcfour}\fi
\ifnum\dfourset=1% 
\largeeuroelement{4}{5}{\pdfour}\fi
\ifnum\efourset=1% 
\largeeuroelement{5}{5}{\pefour}\fi
\ifnum\ffourset=1% 
\largeeuroelement{6}{5}{\pffour}\fi
\ifnum\gfourset=1% 
\largeeuroelement{7}{5}{\pgfour}\fi
\ifnum\hfourset=1% 
\largeeuroelement{8}{5}{\phfour}\fi
\ifnum\ifourset=1% 
\largeeuroelement{9}{5}{\pifour}\fi

\ifnum\afiveset=1% 
\largeeuroelement{1}{6}{\pafive}\fi
\ifnum\bfiveset=1% 
\largeeuroelement{2}{6}{\pbfive}\fi
\ifnum\cfiveset=1% 
\largeeuroelement{3}{6}{\pcfive}\fi
\ifnum\dfiveset=1% 
\largeeuroelement{4}{6}{\pdfive}\fi
\ifnum\efiveset=1% 
\largeeuroelement{5}{6}{\pefive}\fi
\ifnum\ffiveset=1% 
\largeeuroelement{6}{6}{\pffive}\fi
\ifnum\gfiveset=1% 
\largeeuroelement{7}{6}{\pgfive}\fi
\ifnum\hfiveset=1% 
\largeeuroelement{8}{6}{\phfive}\fi
\ifnum\ifiveset=1% 
\largeeuroelement{9}{6}{\pifive}\fi

\ifnum\asixset=1% 
\largeeuroelement{1}{7}{\pasix}\fi
\ifnum\bsixset=1% 
\largeeuroelement{2}{7}{\pbsix}\fi
\ifnum\csixset=1% 
\largeeuroelement{3}{7}{\pcsix}\fi
\ifnum\dsixset=1% 
\largeeuroelement{4}{7}{\pdsix}\fi
\ifnum\esixset=1% 
\largeeuroelement{5}{7}{\pesix}\fi
\ifnum\fsixset=1% 
\largeeuroelement{6}{7}{\pfsix}\fi
\ifnum\gsixset=1% 
\largeeuroelement{7}{7}{\pgsix}\fi
\ifnum\hsixset=1% 
\largeeuroelement{8}{7}{\phsix}\fi
\ifnum\isixset=1% 
\largeeuroelement{9}{7}{\pisix}\fi

\ifnum\asevenset=1% 
\largeeuroelement{1}{8}{\paseven}\fi
\ifnum\bsevenset=1% 
\largeeuroelement{2}{8}{\pbseven}\fi
\ifnum\csevenset=1% 
\largeeuroelement{3}{8}{\pcseven}\fi
\ifnum\dsevenset=1% 
\largeeuroelement{4}{8}{\pdseven}\fi
\ifnum\esevenset=1% 
\largeeuroelement{5}{8}{\peseven}\fi
\ifnum\fsevenset=1% 
\largeeuroelement{6}{8}{\pfseven}\fi
\ifnum\gsevenset=1% 
\largeeuroelement{7}{8}{\pgseven}\fi
\ifnum\hsevenset=1% 
\largeeuroelement{8}{8}{\phseven}\fi
\ifnum\isevenset=1% 
\largeeuroelement{9}{8}{\piseven}\fi

\ifnum\aeightset=1% 
\largeeuroelement{1}{9}{\paeight}\fi
\ifnum\beightset=1% 
\largeeuroelement{2}{9}{\pbeight}\fi
\ifnum\ceightset=1% 
\largeeuroelement{3}{9}{\pceight}\fi
\ifnum\deightset=1% 
\largeeuroelement{4}{9}{\pdeight}\fi
\ifnum\eeightset=1% 
\largeeuroelement{5}{9}{\peeight}\fi
\ifnum\feightset=1% 
\largeeuroelement{6}{9}{\pfeight}\fi
\ifnum\geightset=1% 
\largeeuroelement{7}{9}{\pgeight}\fi
\ifnum\heightset=1% 
\largeeuroelement{8}{9}{\pheight}\fi
\ifnum\ieightset=1% 
\largeeuroelement{9}{9}{\pieight}\fi

\ifnum\anineset=1% 
\largeeuroelement{1}{10}{\panine}\fi
\ifnum\bnineset=1% 
\largeeuroelement{2}{10}{\pbnine}\fi
\ifnum\cnineset=1% 
\largeeuroelement{3}{10}{\pcnine}\fi
\ifnum\dnineset=1% 
\largeeuroelement{4}{10}{\pdnine}\fi
\ifnum\enineset=1% 
\largeeuroelement{5}{10}{\penine}\fi
\ifnum\fnineset=1% 
\largeeuroelement{6}{10}{\pfnine}\fi
\ifnum\gnineset=1% 
\largeeuroelement{7}{10}{\pgnine}\fi
\ifnum\hnineset=1% 
\largeeuroelement{8}{10}{\phnine}\fi
\ifnum\inineset=1% 
\largeeuroelement{9}{10}{\pinine}\fi

\ifnum\anullset=1% 
\largeeuroelement{1}{11}{\panull}\fi
\ifnum\bnullset=1% 
\largeeuroelement{2}{11}{\pbnull}\fi
\ifnum\cnullset=1% 
\largeeuroelement{3}{11}{\pcnull}\fi
\ifnum\dnullset=1% 
\largeeuroelement{4}{11}{\pdnull}\fi
\ifnum\enullset=1% 
\largeeuroelement{5}{11}{\penull}\fi
\ifnum\fnullset=1% 
\largeeuroelement{6}{11}{\pfnull}\fi
\ifnum\gnullset=1% 
\largeeuroelement{7}{11}{\pgnull}\fi
\ifnum\hnullset=1% 
\largeeuroelement{8}{11}{\phnull}\fi
\ifnum\inullset=1% 
\largeeuroelement{9}{11}{\pinull}\fi

%set the additional signs 
\ifnum\aoneset=2%
\additionallargeelement{1}{2}{\paone}\fi
\ifnum\boneset=2%
\additionallargeelement{2}{2}{\pbone}\fi
\ifnum\coneset=2%
\additionallargeelement{3}{2}{\pcone}\fi
\ifnum\doneset=2% 
\additionallargeelement{4}{2}{\pdone}\fi
\ifnum\eoneset=2%
\additionallargeelement{5}{2}{\peone}\fi
\ifnum\foneset=2%
\additionallargeelement{6}{2}{\pfone}\fi
\ifnum\goneset=2%
\additionallargeelement{7}{2}{\pgone}\fi
\ifnum\honeset=2% 
\additionallargeelement{8}{2}{\phone}\fi
\ifnum\ioneset=2%
\additionallargeelement{9}{2}{\pione}\fi

\ifnum\atwoset=2%
\additionallargeelement{1}{3}{\patwo}\fi
\ifnum\btwoset=2%
\additionallargeelement{2}{3}{\pbtwo}\fi
\ifnum\ctwoset=2%
\additionallargeelement{3}{3}{\pctwo}\fi
\ifnum\dtwoset=2%
\additionallargeelement{4}{3}{\pdtwo}\fi
\ifnum\etwoset=2% 
\additionallargeelement{5}{3}{\petwo}\fi
\ifnum\ftwoset=2% 
\additionallargeelement{6}{3}{\pftwo}\fi
\ifnum\gtwoset=2% 
\additionallargeelement{7}{3}{\pgtwo}\fi
\ifnum\htwoset=2% 
\additionallargeelement{8}{3}{\phtwo}\fi
\ifnum\itwoset=2% 
\additionallargeelement{9}{3}{\pitwo}\fi

\ifnum\athreeset=2% 
\additionallargeelement{1}{4}{\pathree}\fi
\ifnum\bthreeset=2% 
\additionallargeelement{2}{4}{\pbthree}\fi
\ifnum\cthreeset=2% 
\additionallargeelement{3}{4}{\pcthree}\fi
\ifnum\dthreeset=2% 
\additionallargeelement{4}{4}{\pdthree}\fi
\ifnum\ethreeset=2% 
\additionallargeelement{5}{4}{\pethree}\fi
\ifnum\fthreeset=2% 
\additionallargeelement{6}{4}{\pfthree}\fi
\ifnum\gthreeset=2% 
\additionallargeelement{7}{4}{\pgthree}\fi
\ifnum\hthreeset=2% 
\additionallargeelement{8}{4}{\phthree}\fi
\ifnum\ithreeset=2% 
\additionallargeelement{9}{4}{\pithree}\fi

\ifnum\afourset=2% 
\additionallargeelement{1}{5}{\pafour}\fi
\ifnum\bfourset=2% 
\additionallargeelement{2}{5}{\pbfour}\fi
\ifnum\cfourset=2% 
\additionallargeelement{3}{5}{\pcfour}\fi
\ifnum\dfourset=2% 
\additionallargeelement{4}{5}{\pdfour}\fi
\ifnum\efourset=2% 
\additionallargeelement{5}{5}{\pefour}\fi
\ifnum\ffourset=2% 
\additionallargeelement{6}{5}{\pffour}\fi
\ifnum\gfourset=2% 
\additionallargeelement{7}{5}{\pgfour}\fi
\ifnum\hfourset=2% 
\additionallargeelement{8}{5}{\phfour}\fi
\ifnum\ifourset=2% 
\additionallargeelement{9}{5}{\pifour}\fi

\ifnum\afiveset=2% 
\additionallargeelement{1}{6}{\pafive}\fi
\ifnum\bfiveset=2% 
\additionallargeelement{2}{6}{\pbfive}\fi
\ifnum\cfiveset=2% 
\additionallargeelement{3}{6}{\pcfive}\fi
\ifnum\dfiveset=2% 
\additionallargeelement{4}{6}{\pdfive}\fi
\ifnum\efiveset=2% 
\additionallargeelement{5}{6}{\pefive}\fi
\ifnum\ffiveset=2% 
\additionallargeelement{6}{6}{\pffive}\fi
\ifnum\gfiveset=2% 
\additionallargeelement{7}{6}{\pgfive}\fi
\ifnum\hfiveset=2% 
\additionallargeelement{8}{6}{\phfive}\fi
\ifnum\ifiveset=2% 
\additionallargeelement{9}{6}{\pifive}\fi

\ifnum\asixset=2% 
\additionallargeelement{1}{7}{\pasix}\fi
\ifnum\bsixset=2% 
\additionallargeelement{2}{7}{\pbsix}\fi
\ifnum\csixset=2% 
\additionallargeelement{3}{7}{\pcsix}\fi
\ifnum\dsixset=2% 
\additionallargeelement{4}{7}{\pdsix}\fi
\ifnum\esixset=2% 
\additionallargeelement{5}{7}{\pesix}\fi
\ifnum\fsixset=2% 
\additionallargeelement{6}{7}{\pfsix}\fi
\ifnum\gsixset=2% 
\additionallargeelement{7}{7}{\pgsix}\fi
\ifnum\hsixset=2% 
\additionallargeelement{8}{7}{\phsix}\fi
\ifnum\isixset=2% 
\additionallargeelement{9}{7}{\pisix}\fi

\ifnum\asevenset=2% 
\additionallargeelement{1}{8}{\paseven}\fi
\ifnum\bsevenset=2% 
\additionallargeelement{2}{8}{\pbseven}\fi
\ifnum\csevenset=2% 
\additionallargeelement{3}{8}{\pcseven}\fi
\ifnum\dsevenset=2% 
\additionallargeelement{4}{8}{\pdseven}\fi
\ifnum\esevenset=2% 
\additionallargeelement{5}{8}{\peseven}\fi
\ifnum\fsevenset=2% 
\additionallargeelement{6}{8}{\pfseven}\fi
\ifnum\gsevenset=2% 
\additionallargeelement{7}{8}{\pgseven}\fi
\ifnum\hsevenset=2% 
\additionallargeelement{8}{8}{\phseven}\fi
\ifnum\isevenset=2% 
\additionallargeelement{9}{8}{\piseven}\fi

\ifnum\aeightset=2% 
\additionallargeelement{1}{9}{\paeight}\fi
\ifnum\beightset=2% 
\additionallargeelement{2}{9}{\pbeight}\fi
\ifnum\ceightset=2% 
\additionallargeelement{3}{9}{\pceight}\fi
\ifnum\deightset=2% 
\additionallargeelement{4}{9}{\pdeight}\fi
\ifnum\eeightset=2% 
\additionallargeelement{5}{9}{\peeight}\fi
\ifnum\feightset=2% 
\additionallargeelement{6}{9}{\pfeight}\fi
\ifnum\geightset=2% 
\additionallargeelement{7}{9}{\pgeight}\fi
\ifnum\heightset=2% 
\additionallargeelement{8}{9}{\pheight}\fi
\ifnum\ieightset=2% 
\additionallargeelement{9}{9}{\pieight}\fi

\ifnum\anineset=2% 
\additionallargeelement{1}{10}{\panine}\fi
\ifnum\bnineset=2% 
\additionallargeelement{2}{10}{\pbnine}\fi
\ifnum\cnineset=2% 
\additionallargeelement{3}{10}{\pcnine}\fi
\ifnum\dnineset=2% 
\additionallargeelement{4}{10}{\pdnine}\fi
\ifnum\enineset=2% 
\additionallargeelement{5}{10}{\penine}\fi
\ifnum\fnineset=2% 
\additionallargeelement{6}{10}{\pfnine}\fi
\ifnum\gnineset=2% 
\additionallargeelement{7}{10}{\pgnine}\fi
\ifnum\hnineset=2% 
\additionallargeelement{8}{10}{\phnine}\fi
\ifnum\inineset=2% 
\additionallargeelement{9}{10}{\pinine}\fi

\ifnum\anullset=2% 
\additionallargeelement{1}{11}{\panull}\fi
\ifnum\bnullset=2% 
\additionallargeelement{2}{11}{\pbnull}\fi
\ifnum\cnullset=2% 
\additionallargeelement{3}{11}{\pcnull}\fi
\ifnum\dnullset=2% 
\additionallargeelement{4}{11}{\pdnull}\fi
\ifnum\enullset=2% 
\additionallargeelement{5}{11}{\penull}\fi
\ifnum\fnullset=2% 
\additionallargeelement{6}{11}{\pfnull}\fi
\ifnum\gnullset=2% 
\additionallargeelement{7}{11}{\pgnull}\fi
\ifnum\hnullset=2% 
\additionallargeelement{8}{11}{\phnull}\fi
\ifnum\inullset=2% 
\additionallargeelement{9}{11}{\pinull}\fi



%set the empty "squares"
\ifnum\aoneset<1%
\largeelement{1}{2}{9}\fi
\ifnum\boneset<1%
\largeelement{2}{2}{7}\fi
\ifnum\coneset<1%
\largeelement{3}{2}{7}\fi
\ifnum\doneset<1% 
\largeelement{4}{2}{J}\fi
\ifnum\eoneset<1%
\largeelement{5}{2}{7}\fi
\ifnum\foneset<1%
\largeelement{6}{2}{N}\fi
\ifnum\goneset<1%
\largeelement{7}{2}{7}\fi
\ifnum\honeset<1% 
\largeelement{8}{2}{7}\fi
\ifnum\ioneset<1%
\largeelement{9}{2}{B}\fi

\ifnum\atwoset<1%
\largeelement{1}{3}{3}\fi
\ifnum\btwoset<1%
\largeelement{2}{3}{4}\fi
\ifnum\ctwoset<1%
\largeelement{3}{3}{4}\fi
\ifnum\dtwoset<1%
\largeelement{4}{3}{4}\fi
\ifnum\etwoset<1% 
\largeelement{5}{3}{C}\fi
\ifnum\ftwoset<1% 
\largeelement{6}{3}{4}\fi
\ifnum\gtwoset<1% 
\largeelement{7}{3}{4}\fi
\ifnum\htwoset<1% 
\largeelement{8}{3}{4}\fi
\ifnum\itwoset<1% 
\largeelement{9}{3}{5}\fi

\ifnum\athreeset<1% 
\largeelement{1}{4}{3}\fi
\ifnum\bthreeset<1% 
\largeelement{2}{4}{1}\fi
\ifnum\cthreeset<1% 
\largeelement{3}{4}{4}\fi
\ifnum\dthreeset<1% 
\largeelement{4}{4}{G}\fi
\ifnum\ethreeset<1% 
\largeelement{5}{4}{4}\fi
\ifnum\fthreeset<1% 
\largeelement{6}{4}{D}\fi
\ifnum\gthreeset<1% 
\largeelement{7}{4}{4}\fi
\ifnum\hthreeset<1% 
\largeelement{8}{4}{1}\fi
\ifnum\ithreeset<1% 
\largeelement{9}{4}{5}\fi

\ifnum\afourset<1% 
\largeelement{1}{5}{0}\fi
\ifnum\bfourset<1% 
\largeelement{2}{5}{4}\fi
\ifnum\cfourset<1% 
\largeelement{3}{5}{1}\fi
\ifnum\dfourset<1% 
\largeelement{4}{5}{4}\fi
\ifnum\efourset<1% 
\largeelement{5}{5}{1}\fi
\ifnum\ffourset<1% 
\largeelement{6}{5}{4}\fi
\ifnum\gfourset<1% 
\largeelement{7}{5}{1}\fi
\ifnum\hfourset<1% 
\largeelement{8}{5}{4}\fi
\ifnum\ifourset<1% 
\largeelement{9}{5}{2}\fi

\ifnum\afiveset<1% 
\largeelement{1}{6}{3}\fi
\ifnum\bfiveset<1% 
\largeelement{2}{6}{6}\fi
\ifnum\cfiveset<1% 
\largeelement{3}{6}{6}\fi
\ifnum\dfiveset<1% 
\largeelement{4}{6}{6}\fi
\ifnum\efiveset<1% 
\largeelement{5}{6}{6}\fi
\ifnum\ffiveset<1% 
\largeelement{6}{6}{6}\fi
\ifnum\gfiveset<1% 
\largeelement{7}{6}{6}\fi
\ifnum\hfiveset<1% 
\largeelement{8}{6}{6}\fi
\ifnum\ifiveset<1% 
\largeelement{9}{6}{5}\fi

\ifnum\asixset<1% 
\largeelement{1}{7}{3}\fi
\ifnum\bsixset<1% 
\largeelement{2}{7}{7}\fi
\ifnum\csixset<1% 
\largeelement{3}{7}{7}\fi
\ifnum\dsixset<1% 
\largeelement{4}{7}{7}\fi
\ifnum\esixset<1% 
\largeelement{5}{7}{7}\fi
\ifnum\fsixset<1% 
\largeelement{6}{7}{7}\fi
\ifnum\gsixset<1% 
\largeelement{7}{7}{7}\fi
\ifnum\hsixset<1% 
\largeelement{8}{7}{7}\fi
\ifnum\isixset<1% 
\largeelement{9}{7}{5}\fi

\ifnum\asevenset<1% 
\largeelement{1}{8}{0}\fi
\ifnum\bsevenset<1% 
\largeelement{2}{8}{4}\fi
\ifnum\csevenset<1% 
\largeelement{3}{8}{1}\fi
\ifnum\dsevenset<1% 
\largeelement{4}{8}{4}\fi
\ifnum\esevenset<1% 
\largeelement{5}{8}{1}\fi
\ifnum\fsevenset<1% 
\largeelement{6}{8}{4}\fi
\ifnum\gsevenset<1% 
\largeelement{7}{8}{1}\fi
\ifnum\hsevenset<1% 
\largeelement{8}{8}{4}\fi
\ifnum\isevenset<1% 
\largeelement{9}{8}{2}\fi

\ifnum\aeightset<1% 
\largeelement{1}{9}{3}\fi
\ifnum\beightset<1% 
\largeelement{2}{9}{1}\fi
\ifnum\ceightset<1% 
\largeelement{3}{9}{4}\fi
\ifnum\deightset<1% 
\largeelement{4}{9}{H}\fi
\ifnum\eeightset<1% 
\largeelement{5}{9}{4}\fi
\ifnum\feightset<1% 
\largeelement{6}{9}{I}\fi
\ifnum\geightset<1% 
\largeelement{7}{9}{4}\fi
\ifnum\heightset<1% 
\largeelement{8}{9}{1}\fi
\ifnum\ieightset<1% 
\largeelement{9}{9}{5}\fi

\ifnum\anineset<1% 
\largeelement{1}{10}{3}\fi
\ifnum\bnineset<1% 
\largeelement{2}{10}{4}\fi
\ifnum\cnineset<1% 
\largeelement{3}{10}{4}\fi
\ifnum\dnineset<1% 
\largeelement{4}{10}{4}\fi
\ifnum\enineset<1% 
\largeelement{5}{10}{C}\fi
\ifnum\fnineset<1% 
\largeelement{6}{10}{4}\fi
\ifnum\gnineset<1% 
\largeelement{7}{10}{4}\fi
\ifnum\hnineset<1% 
\largeelement{8}{10}{4}\fi
\ifnum\inineset<1% 
\largeelement{9}{10}{5}\fi

\ifnum\anullset<1% 
\largeelement{1}{11}{8}\fi
\ifnum\bnullset<1% 
\largeelement{2}{11}{6}\fi
\ifnum\cnullset<1% 
\largeelement{3}{11}{6}\fi
\ifnum\dnullset<1% 
\largeelement{4}{11}{O}\fi
\ifnum\enullset<1% 
\largeelement{5}{11}{6}\fi
\ifnum\fnullset<1% 
\largeelement{6}{11}{Q}\fi
\ifnum\gnullset<1% 
\largeelement{7}{11}{6}\fi
\ifnum\hnullset<1% 
\largeelement{8}{11}{6}\fi
\ifnum\inullset<1% 
\largeelement{9}{11}{A}\fi

%notation

\largeboardlines{1}{1}{\huge{\texttt{a}}}\largeboardlines{2}{1}{\huge{\texttt{b}}}\largeboardlines{3}{1}{\huge{\texttt{c}}}\largeboardlines{4}{1}{\huge{\texttt{d}}}\largeboardlines{5}{1}{\huge{\texttt{e}}}\largeboardlines{6}{1}{\huge{\texttt{f}}}\largeboardlines{7}{1}{\huge{\texttt{g}}}\largeboardlines{8}{1}{\huge{\texttt{h}}}\largeboardlines{9}{1}{\huge{\texttt{i}}}

\largeboardrows{10}{2}{\huge{\texttt{1}}}\largeboardrows{10}{3}{\huge{\texttt{2}}}\largeboardrows{10}{4}{\huge{\texttt{3}}}\largeboardrows{10}{5}{\huge{\texttt{4}}}\largeboardrows{10}{6}{\huge{\texttt{5}}}\largeboardrows{10}{7}{\huge{\texttt{6}}}\largeboardrows{10}{8}{\huge{\texttt{7}}}\largeboardrows{10}{9}{\huge{\texttt{8}}}\largeboardrows{10}{10}{\huge{\texttt{9}}}\largeboardrows{10}{11}{\huge{\texttt{0}}}

\end{picture}
\end{center}
}

%
%you are at the end, hopefully you did not read everything :-)
