15 files changed, 26987 insertions, 1 deletions

diff --git a/Build/cdbuild/ctan2tds.pl b/Build/cdbuild/ctan2tds.pl
index e30e76a2cdb..71c305d87c4 100755
--- a/Build/cdbuild/ctan2tds.pl
+++ b/Build/cdbuild/ctan2tds.pl
@@ -536,6 +536,7 @@ $standardfmt='latex';
  'voss-de',	'german',
  'wasy2',	'fonts',
  'xltxtra',	'xetex',
+ 'xq',		'fonts',
  'xypic-tut-pt','portuguese',
 );
 $standarddocfmt='latex';
@@ -911,6 +912,7 @@ $standardbib='\.bib$'; # $ so we don't find README.bibtex in IEEEtran
  'skak',	'skak.*[0-9].*\.mf',
  'tengwar',	'tengwar\.mf',
  'umrand',	'umrand[ab]\.mf',
+ 'xq',		'xq(normal|large)\.mf',
 );
 $standardmf='[0-9]\.mf';
 
diff --git a/Build/tools/tpm-ctan-check b/Build/tools/tpm-ctan-check
index 14b9c087754..68f8c2b736a 100755
--- a/Build/tools/tpm-ctan-check
+++ b/Build/tools/tpm-ctan-check
@@ -98,7 +98,7 @@ sub main
        umlaute underlin
        vancouver variations velthuis verse vhistory visualfaq volumes vpe
        wordlike wrapfig
-       xifthen xltxtra xypic-tut-pt xytree
+       xifthen xltxtra xq xypic-tut-pt xytree
        york-thesis
        xcolor xkeyval
     ); 
diff --git a/Master/texmf-dist/doc/fonts/xq/README b/Master/texmf-dist/doc/fonts/xq/README
new file mode 100644
index 00000000000..5469b94687a
--- /dev/null
+++ b/Master/texmf-dist/doc/fonts/xq/README
@@ -0,0 +1,56 @@
+readme for the xq-package
+
+
+this style is made for writing about chinese chess. Unfortunately, it has become a real monster, but i did 
+not find a better way to get what i wanted - which is probably due to the fact, that i never wrote something 
+like this before - so dont mind me my rather "simple" solution.
+
+
+xq is under the LaTeX project public license
+
+
+
+The package contains: 
+
+the style file - xq.sty
+basefont  - xqbase.mf
+hint file needed by xqbase - hints.mf
+font files for "normal" sized boards - xqnormal.mf  
+font files for "large" sized boards - xqlarge.mf  
+an example file demonstrating the abilities of the style - xqexample.tex
+the example file in pdf format for taking a quick look - xqexample.pdf
+and finally this readme file - README 
+
+
+
+On my local tree it works with the files copied to the following places:
+
+/texmf/tex/latex/xq/xq.sty
+
+/texmf/fonts/source/public/xq/xqbase.mf + xqnormal.mf + xqlarge.mf + hints.mf
+
+
+
+If problems occur, that the fonts are not loadable, put everything in one folder with the input file and
+run latex. That produces the .tfm then copy these to:
+
+/texmf/fonts/tfm/public/xq/xqnormal.tfm + xqlarge.tfm 
+
+
+
+
+Problems: 
+
+There are small gaps between pieces and boardlines in the diagrams, this is due to the font. You can avoid
+this by putting the unit length for the picture in the style file a little smaller. However, i found it 
+looks better like it is now.
+
+The boards are sometimes set a bit unclean on a pdf output file. I solved the problem by producing a pdf 
+via dvi and ps. After that procedure i always had a clean output in acroread.
+
+
+
+I hope everything works like it should, if not, please let me know...
+
+Stephan Weinhold, 09/2006
+stewei@surfeu.de
diff --git a/Master/texmf-dist/doc/fonts/xq/xqexample.pdf b/Master/texmf-dist/doc/fonts/xq/xqexample.pdf
new file mode 100644
index 00000000000..fbbf1009037
--- /dev/null
+++ b/Master/texmf-dist/doc/fonts/xq/xqexample.pdf
diff --git a/Master/texmf-dist/doc/fonts/xq/xqexample.tex b/Master/texmf-dist/doc/fonts/xq/xqexample.tex
new file mode 100644
index 00000000000..7c8a56399de
--- /dev/null
+++ b/Master/texmf-dist/doc/fonts/xq/xqexample.tex
@@ -0,0 +1,206 @@
+%example file for demonstrating the usage of xq.sty. 
+\documentclass[twocolumn,11pt]{article}
+\usepackage{xq}
+
+\parindent 0pt
+\setlength{\columnsep}{5mm}
+\setlength{\textheight}{220mm}
+\setlength{\headheight}{13.6pt}
+\setlength{\hoffset}{-3.0mm}
+\setlength{\voffset}{-6.0mm}
+
+\begin{document}
+
+\texttt{The xq package is made for writing about xiangqi or chinese chess. This file demonstrates what the package can do.}
+
+\mylanguage english
+%i ve tried to enable input of the language typical letters for the different pieces. By now there are letters defined for my mother tongue "german" (King=F, Advisor/Guard=M, Elephant=E, Chariot=W, Cannon=K, Horse=P, Soldier=S - for red pieces and corresponding lower cases for black pieces) and "english" K,A,E,R,C,H,P. If you want to add your language or do not like the letters I used goto xq.sty and use the pattern to define the letter definitions according to your preferences. Please rename the style file, if you make any changes. This selection affects on the one hand the letters for the pieces when setting up a position in the input file and on the other hand the letters for pieces shown in the move blocks in the output file. 
+\bigskip
+\texttt{First we write down a complete game.}
+\newgame
+%defines the board with the start position, the movecount, shown in the move blocks, is set to 0.
+
+\begin{center}
+{\bf\large{Player\,1\,--\,Player\,2}}
+\end{center}
+
+
+\texttt{Moves are input like this: "f1e2 h8e8", the letter for the piece that is moved is generated automatically and also, whether it is a capture or not. The piece letters shown depend on the language, you choose at the beginning of the tex file, in this case it is "english". However, by now there are only letters defined for english and my mother tongue german, but i created a pattern in the style file, where you can add your language typical letters.} \\
+
+\move f1e2 h8e8 
+%shows a move of first red and then black, note that there is absolutely no check for legal moves - this means, that on the one hand any piece can move to any place, even to the place it comes from and on the other hand a piece moved from/to a place that does not exist on the board will not be shown, selecting an empty square as start square produces an error - so everything has to be correct here
+\move h1g3 h0g8
+\move b1c3 i0h0
+\move i1h1 h0h6
+\move h3h5 b0a8
+\move c4c5 b8c8
+\move c1e3 c7c6
+\move c3b5 c6c5
+\move e3c5 h6c6
+\move c5e3 g7g6
+\move b5a7 c6c3
+\move b3b6 c3c7
+\move h5h7 e7e6
+\cr ! 
+%shows the comment you input here after the next red move 
+\move b6g6 xxxx 
+%shows a move only of red, actually, only the first letter of the side, that does not move, has to be a "x", but it have to be 4 letters
+\texttt{The board is shown with a single command. The style finds the correct position depending on the moves you input.}
+\showboard 
+%shows the board in a size fitted to twocolumn on a4paper according to my personal preference, the position shown should be the one the moves input are leading to
+
+
+\cb ? 
+%the same for next black move
+\move xxxx c7a7 
+%move only of black
+Black wins a major piece, but more important is that Red gets a strong attack on the right wing of the board.
+\cr + 
+\move g6g0 f0e9
+\cr +
+\move h7h0 xxxx 
+\texttt{By now there is no special environment for writing down variations within running text, so input equals output here.}\\
+\\
+It is not better for Red to play 16.Ci0, for after 16\dots Kf0 17.Chh0+ Kf9 18.Rh9+ Kf8 19.Rg9 Hh6 20.Rg6 Red gets back the major piece only\dots 
+%I did not input any special environment for writing down variations outside the move blocks so input equals output here   
+\move xxxx g8h0
+\move h1h0 a0a9
+\cr +
+\move g0d0 e9f0
+\move d0f0 a9f9
+\cr +
+\move f0c0 xxxx 
+but in the game Red takes the whole defense of Black\dots 
+\move xxxx e0e9
+\move a1b1 a7f7
+\cr + 
+\move b1b9 c8c9
+\move c0a0 e8d8
+
+\showboard
+
+\move b9a9 d8d2
+\move a0a8 xxxx
+\dots and the major piece.
+\move xxxx e9e8
+\cr +
+\move h0h8 f7f8
+\move a9c9 xxxx
+Black resigned the game.
+\begin{center}
+{\bf{\large{1\,:\,0}}}
+\end{center}
+
+
+\texttt{Now we start playing from a special position, that is input in the tex file.}
+
+\begin{center}
+{\bf{\large{Exercise}}}
+\end{center}
+In the diagram shown below both sides can checkmate the opponent, depending only on who is to move.
+
+\resetboard 
+%makes the board to show an empty one, recommended before setting up a position
+
+\piece Ec1
+%by now positions have to be input piece by piece which is not so cool, sorry :-) 
+\piece Ke1
+\piece Af1
+\piece Rh1
+\piece Ae2
+\piece Ha3
+\piece Ee3
+\piece Pc4
+\piece Pg4
+\piece Pi4
+\piece Pa5
+\piece ce5
+\piece Ci5
+\piece pc6
+\piece rd6
+\piece pg6
+\piece pa7
+\piece pe7
+\piece Cg7
+\piece hc8
+\piece ee8
+\piece hg8
+\piece ae9
+\piece ec0
+\piece ke0
+\piece af0
+
+\showboard
+
+1.\,Red to move checkmates in 3 moves\\
+2.\,Black to move checkmates in 4 moves\\
+
+\textit{Solution}\\
+
+1.\,Red to move
+\movecount=0
+\cr +
+\move i5i0 g8h0
+\cr +
+\move g7g0 e8g0
+\cr \#
+\move i0g0 xxxx
+
+\resetboard
+
+\piece Ec1
+\piece Ke1
+\piece Af1
+\piece Rh1
+\piece Ae2
+\piece Ha3
+\piece Ee3
+\piece Pc4
+\piece Pg4
+\piece Pi4
+\piece Pa5
+\piece ce5
+\piece Ci5
+\piece pc6
+\piece rd6
+\piece pg6
+\piece pa7
+\piece pe7
+\piece Cg7
+\piece hc8
+\piece ee8
+\piece hg8
+\piece ae9
+\piece ec0
+\piece ke0
+\piece af0
+
+\bigskip
+2.\,Black to move
+
+\movecount=1
+\move xxxx e0d0
+\cr +
+\move i5i0 d0d9
+\cr +
+\move i0i9 d9d8
+\move i9i6 xxxx
+\dots or any other move
+\cb \#
+\move xxxx d6d1 
+
+%finally a large board
+\newpage
+\onecolumn
+
+\newgame
+\texttt{I also included a large board.}
+\showlargeboard 
+%shows a board in a size fitted to onecolumn on a4paper according to my personal preference
+
+\texttt{Thats all! Hopefully everything works like it should!}
+
+\end{document}
+
+%Stephan Weinhold 09.2006
+%stewei@surfeu.de
diff --git a/Master/texmf-dist/fonts/source/public/xq/hints.mf b/Master/texmf-dist/fonts/source/public/xq/hints.mf
new file mode 100644
index 00000000000..9a836e6af4e
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/xq/hints.mf
@@ -0,0 +1,619 @@
+% hints.mf --- an attempt at PostScript Type-1 Hints in METAFONT for use
+%              with PS2MF.
+%
+% Copyright (c) 1992 I. Lee Hetherington, all rights reserved.  I have
+% not yet decided on what copyright restrictions I will place here.
+% Probably something like TeX's copyright.  I think the GNU copyleft
+% is far too extreme.
+%
+% The general scheme for hint implementation is apply vertical (hstem)
+% and horizontal (vstem) hints separately.  For each direction, we
+% first collect the stems in a sorted list.  At this point we reject
+% overlapping or duplicate stems.  When we first need to use the
+% hints, we make sure that piecewise linear transformations are
+% computed.  These METAFONT transformations depend on the stem or
+% inter-stem region a particular x- or y-coordinate falls in.  These
+% transformations are easily computed once the stems specified in
+% character space are placed in pixel space.  This stem placement is
+% more complicated in the vertical direction because of the BlueValues
+% font-level hints.
+%
+% Currently the implemented hints are BlueValues, OtherBlues,
+% BlueScale, BlueShift, BlueFuzz, hstem, hstem3, vstem, vstem3, `Hint
+% Replacement', and `Flex'.  The hints FamilyBlues, FamilyOtherBlues
+% are not implemented as we only apply hints at the font and character
+% level, not across an entire font family.  The hints StdHW, StdVW,
+% StemSnapH, and StemSnapV are not implemented.  It would probably not
+% be very difficult to add these.  The ForceBold, LanguageGroup,
+% RndStemUp, and ExpansionFactor are also not implemented.
+%
+% Hint replacement ignores previous stem hints unless the same stem
+% was used previously.  In this case, the stem is placed the same as
+% it was before.  If after replacement a single stem is respecified
+% without the other original stems, we can place it as it was placed
+% before.  However, *both* edges of the stem must be identical.  This
+% may now be irrelevant since stems are placed independently now
+% (except in the case of hstem3 and vstem3, of course).
+%
+% I make no claim to that these hints have exactly the same effect as
+% Adobe PostScript font rasterizer.  The hints and their interactions
+% can be quite complicated.  The hint implementation in this file is
+% based solely on my interpretation of their effects given their
+% description in the book "Adobe Type 1 Font Format, Version 1.1".
+%
+% There is certainly room for improvement: both with respect to hint
+% effects and implementation efficiency.  Running METAFONT can take
+% quite a while.  I've made some attempt at caching placement results
+% using METAFONT vector to reduce redundant computation.  One
+% improvement I can think of is replacing the stem gathering and
+% sorting (h_insert and v_insert) with C code in PS2MF.  Another is
+% predetermining which stems are effected by the blue values.  Most of
+% the other placement/transformation opertions need to be done in
+% METAFONT because these operations are dependent on device resolution
+% and magnification.
+%
+% I welcome comments, suggestions, fixes, and improvements.  I plan on
+% commenting this code more when I get a chance.  The comments are
+% pretty sparse at the moment.
+%
+% If you want to disable the hint mechanism, specify `hinting:=0'
+% before this file is included.  METAFONT will run much faster but
+% will produce inconsistent stem widths at low resolutions.  At higher
+% resolutions these hints are much less important.
+%
+% 1.0 beta     3/30/92   I. Lee Hetherington (ilh@lcs.mit.edu)
+
+if unknown hinting: hinting := 1; fi
+
+% expansion and slanting (same as `xscaled expansion slanted slanting')
+if unknown expansion: expansion := 1; fi
+if unknown slanting: slanting := 0; fi
+
+% make sure character space units are defined
+if unknown FX#: FX# := 0.001pt#; fi
+if unknown FY#: FY# := 0.001pt#; fi
+FX# := FX# * expansion; % incorporate expansion here so hints know about it
+u# := FX#;
+v# := FY#;
+define_pixels(u,v,FX,FY);
+
+boolean debug; debug := false;
+
+% like round but rounds to the nearest half
+def roundhalf(expr x) = (round(x+0.5)-0.5) enddef;
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% horizontal (vstem) hints
+
+extra_beginchar := extra_beginchar & "h_init;numeric h[][]sc;";
+
+% initialize structures
+def h_init =
+  numeric h.r,h[]s,h[]p,h[]pc;
+  boolean h.triple;
+  transform h[]t;
+  h.r := 1;
+  h.triple := false;
+enddef;
+
+% insert new stem into sorted list
+% requires that stems don't overlap
+% toss duplicates
+def h_insert(expr a, b) =
+  boolean flag; flag:=false; % temporary flag to exit loop
+  if h.r = 1: % no stems thus far
+    h[1]s := a;
+    h[2]s := b;
+    h.r := 3;
+  elseif a > h[h.r-1]s: % at end
+    h[h.r]s := a;
+    h[h.r+1]s := b;
+    h.r := h.r + 2;
+  else: % we need to search for location and shift elements
+    for i = 1 step 2 until h.r-2:
+      exitif ((h[i]s >= a) and (h[i]s <= b)) or
+             ((h[i+1]s >= a) and (h[i+1]s <= b));
+      if a < h[i]s:
+        % insert here, so shift remaining elements up by two
+        for j = h.r-1 downto i:
+          h[j+2]s := h[j]s;
+        endfor
+        h[i]s := a;
+        h[i+1]s := b;
+        h.r := h.r + 2;
+	flag := true;
+      fi
+      exitif flag;
+    endfor
+  fi
+enddef;
+
+% horizontal stem width (for vstem's)
+def hsw(expr a,b) = max(1, round(abs(a-b)*u)) enddef;
+
+% place stems in pixel space
+def h_place =
+  if h.triple:
+    h2p - h1p = vsw(h1s, h2s) - 1;
+    h4p - h3p = vsw(h3s, h4s) - 1;
+    h6p - h5p = vsw(h5s, h6s) - 1;
+    if unknown h[h1s][h2s]sc: % cached?
+      h3p - h2p = h5p - h4p;
+      h1p = roundhalf(h1p - (0.5[h1p,h2p] - 0.5[h1s,h2s]*u));
+      h3p = roundhalf(h3p - (0.5[h3p,h4p] - 0.5[h3s,h4s]*u));
+      h[h1s][h2s]sc := h1p;
+      h[h3s][h4s]sc := h3p;
+      h[h5s][h6s]sc := h5p;
+    else:
+      h1p = h[h1s][h2s]sc;
+      h3p = h[h3s][h4s]sc;
+      h5p = h[h5s][h6s]sc;
+    fi
+  elseif h.r > 1:
+    for i = 1 step 2 until h.r-2:
+      h[i+1]p - h[i]p = hsw(h[i]s,h[i+1]s) - 1;
+      if unknown h[h[i]s][h[i+1]s]sc: % cached?
+        h[i]p = roundhalf(h[i]p - (0.5[h[i]p,h[i+1]p] - 0.5[h[i]s,h[i+1]s]*u));
+        h[h[i]s][h[i+1]s]sc := h[i]p;
+      else:
+        h[i]p = h[h[i]s][h[i+1]s]sc;
+      fi
+    endfor
+  fi
+  if debug:
+    for i = 1 upto h.r-1:
+      message "h" & decimal(i) & ": " & decimal(h[i]s) &
+              " (" & decimal(h[i]p) & ")";
+    endfor
+  fi
+enddef;
+
+% build separate transformations for each region
+def h_transforms =
+  if unknown h1p: h_place; fi
+  if h.r = 1: h[0]t := identity xscaled u;
+  else:
+    % first region (not stem)
+    h[0]t := identity shifted (-h[1]s,0)
+                      xscaled u
+                      shifted (h[1]p,0);
+    % last region (not stem)
+    h[h.r-1]t := identity shifted (-h[h.r-1]s,0)
+                          xscaled u
+                          shifted (h[h.r-1]p,0);
+    % other regions
+    for i = 1 upto h.r - 2:
+      h[i]t := identity shifted (-h[i]s,0)
+                        xscaled
+                        (if h[i+1]p = h[i]p: 0
+                         else: ((h[i+1]p - h[i]p) / (h[i+1]s - h[i]s)) fi)
+                        shifted (h[i]p,0);
+    endfor
+  fi
+  if debug:
+    for i = 0 upto h.r-1:
+      show xxpart h[i]t;
+    endfor
+  fi
+enddef;
+
+% find region according to x-coordinate
+def h_region(expr x) =
+  if h.r = 1: 0
+  elseif x < h[1]s: 0
+  elseif x >= h[h.r-1]s: (h.r - 1)
+  else:
+    for i = 2 upto h.r-1:
+      if x < h[i]s: (i - 1) fi
+      exitif (x < h[i]s);
+    endfor
+  fi
+enddef;
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% vertical (hstem) hints with support for BlueValues, OtherBlueValues,
+% BlueScale, BlueShift, and BlueFuzz
+
+extra_beginchar := extra_beginchar & "v_init;numeric v[][]sc;";
+
+% initialize structures
+def v_init =
+  numeric v.r,v[]s,v[]p,v[]pc;
+  boolean v.triple;
+  transform v[]t;
+  v.r := 1;
+  v.triple := false;
+enddef;
+
+% insert new stem into sorted list
+% requires that stems don't overlap
+def v_insert(expr a, b) =
+  boolean flag; flag:=false; % temporary flag to exit loop
+  if v.r = 1: % no stems thus far
+    v[1]s := a;
+    v[2]s := b;
+    v.r := 3;
+  elseif a > v[v.r-1]s: % at end
+    v[v.r]s := a;
+    v[v.r+1]s := b;
+    v.r := v.r + 2;
+  else: % we need to search for location and shift elements
+    for i = 1 step 2 until v.r-2:
+      exitif ((v[i]s >= a) and (v[i]s <= b)) or
+             ((v[i+1]s >= a) and (v[i+1]s <= b));
+      if a < v[i]s:
+        % insert here, so shift remaining elements up by two
+        for j = v.r-1 downto i:
+          v[j+2]s := v[j]s;
+        endfor
+        v[i]s := a;
+        v[i+1]s := b;
+        v.r := v.r + 2;
+	flag := true;
+      fi
+      exitif flag;
+    endfor
+  fi
+enddef;
+
+% Blue stuff
+boolean suppress; % suppress overshoot
+suppress := v < blue_scale;
+
+def find_bot_blue(expr y) =
+  numeric blue.pos, blue.over;
+  for i = 1 upto bot_blues.n:
+    exitif known blue.pos;
+    if (y >= bot_blues[i]o - blue_fuzz) and (y <= bot_blues[i]p):
+      blue.pos := bot_blues[i]p;
+      blue.over := bot_blues[i]o;
+    fi
+  endfor
+enddef;
+
+def find_top_blue(expr y) =
+  numeric blue.pos, blue.over;
+  for i = 1 upto top_blues.n:
+    exitif known blue.pos;
+    if (y >= top_blues[i]p) and (y <= top_blues[i]o + blue_fuzz):
+      blue.pos := top_blues[i]p;
+      blue.over := top_blues[i]o;
+    fi
+  endfor
+enddef;
+
+% vertical stem width (for hstem's)
+def vsw(expr a,b) = max(1, round(abs(a-b)*v)) enddef;
+
+% place stems in pixel space paying attention to blue stuff
+% (currently ignore v.triple)
+% CHECK CACHING IN HERE.  MIGHT NOT NEED TO DO BLUE STUFF SO OFTEN
+def v_place =
+  if v.triple: % ignore blue stuff for hstem3
+    v2p - v1p = vsw(v1s, v2s) - 1;
+    v4p - v3p = vsw(v3s, v4s) - 1;
+    v6p - v5p = vsw(v5s, v6s) - 1;
+    if unknown v[v1s][v2s]sc: % cached?
+      v3p - v2p = v5p - v4p;
+      v1p = roundhalf(v1p - (0.5[v1p,v2p] - 0.5[v1s,v2s]*v));
+      v3p = roundhalf(v3p - (0.5[v3p,v4p] - 0.5[v3s,v4s]*v));
+      v[v1s][v2s]sc := v1p;
+      v[v3s][v4s]sc := v3p;
+      v[v5s][v6s]sc := v5p;
+    else:
+      v1p = v[v1s][v2s]sc;
+      v3p = v[v3s][v4s]sc;
+      v5p = v[v5s][v6s]sc;
+    fi
+  elseif v.r > 1:
+    for i = 1 step 2 until v.r-2:
+      find_bot_blue(v[i]s);
+      if known blue.pos:
+        % position according to blue values
+        if suppress:
+          v[i]p = roundhalf(blue.pos * v);
+        else:
+          v[i]p = roundhalf(blue.pos * v) -
+                  max(if v[i]s <= blue.pos-blue_shift: 1 else: 0 fi,
+                      round((blue.pos - if v[i]s < blue.over: blue.over
+                                        else: v[i]s fi)*v));
+        fi
+        v[i+1]p = v[i]p + vsw(v[i]s,v[i+1]s) - 1;
+      fi
+      find_top_blue(v[i+1]s);
+      if known blue.pos:
+        % position according to blue values
+        if suppress:
+          v[i+1]p := roundhalf(blue.pos * v);
+        else:
+          v[i+1]p := roundhalf(blue.pos * v) +
+                     max(if v[i+1]s >= blue.pos+blue_shift: 1 else: 0 fi,
+                         round((if v[i+1]s > blue.over: blue.over
+                                else: v[i+1]s fi - blue.pos)*v));
+        fi
+        % Note that it is possible for the top of a stem to be fall in a
+        % top zone and the bottom to fall in a bottom zone.  Therefore, only
+        % set v[i]p (bottom) if it wasn't set previously.
+        if unknown v[i]p: v[i]p := v[i+1]p - (vsw(v[i]s,v[i+1]s) - 1); fi
+      fi
+    endfor
+    % place remaining stems if not under blue control
+    for i = 1 step 2 until v.r-2:
+      if unknown v[i]p:
+        v[i+1]p = v[i]p + vsw(v[i]s,v[i+1]s) - 1;
+        if unknown v[v[i]s][v[i+1]s]sc: % cached?
+          v[i]p = roundhalf(v[i]p - (0.5[v[i]p,v[i+1]p] - 0.5[v[i]s,v[i+1]s]*v));
+          v[v[i]s][v[i+1]s]sc := v[i]p;
+        else:
+          v[i]p = v[v[i]s][v[i+1]s]sc;
+        fi
+      fi
+    endfor
+  fi
+  if debug:
+    for i = 1 upto v.r-1:
+      message "v" & decimal(i) & ": " & decimal(v[i]s) &
+              " (" & decimal(v[i]p) & ")";
+    endfor
+  fi
+enddef;
+
+% build separate transformations for each region
+def v_transforms =
+  if unknown v1p: v_place; fi
+  if v.r = 1: v[0]t := identity yscaled v;
+  else:
+    % first region (not stem)
+    v[0]t := identity shifted (0,-v[1]s)
+                      yscaled v
+                      shifted (0,v[1]p);
+    % last region (not stem)
+    v[v.r-1]t := identity shifted (0,-v[v.r-1]s)
+                          yscaled v
+                          shifted (0,v[v.r-1]p);
+    % other regions
+    for i = 1 upto v.r - 2:
+      v[i]t := identity shifted (0,-v[i]s)
+                        yscaled
+                        (if v[i+1]p = v[i]p: 0
+                         else: ((v[i+1]p - v[i]p) / (v[i+1]s - v[i]s)) fi)
+                        shifted (0,v[i]p);
+    endfor
+  fi
+  if debug:
+    for i = 0 upto v.r-1:
+      show yypart v[i]t;
+    endfor
+  fi
+enddef;
+
+% find region according to y-coordinate
+def v_region(expr y) =
+  if v.r = 1: 0
+  elseif y < v[1]s: 0
+  elseif y >= v[v.r-1]s: (v.r - 1)
+  else:
+    for i = 2 upto v.r-1:
+      if y < v[i]s:
+        (i - 1)
+      fi
+      exitif (y < v[i]s);
+    endfor
+  fi
+enddef;
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% actual pair (point) and path transformations
+
+% transform a pair (point) to pixel space, caching x and y coordinates
+% separately for future use
+def hv_pixel(expr p) =
+  if unknown h[xpart p]pc:
+    hide(h[xpart p]pc := xpart(p transformed h[h_region(xpart p)]t))
+  fi
+  if unknown v[ypart p]pc:
+    hide(v[ypart p]pc := ypart(p transformed v[v_region(ypart p)]t))
+  fi
+  (h[xpart p]pc, v[ypart p]pc)
+enddef;    
+
+% do the region-dependent tranformation on a point or path
+def hv_transform(expr p) =
+  if unknown v0t: hide(v_transforms) fi
+  if unknown h0t: hide(h_transforms) fi
+  if pair p: hv_pixel(p)
+  else: % path
+    for i = 0 upto length p - 1:
+       hv_pixel(point i of p) .. controls
+       hv_pixel(postcontrol i of p) and hv_pixel(precontrol i+1 of p) .. 
+    endfor
+    hv_pixel(point (length p) of p)
+  fi
+enddef;
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% proofing stuff -- display stem hints on proof sheets
+
+% Mark a vstem specified in character space.  Note that the hints aren't known
+% at this time so they can't be applied to the stem.
+def mark_vstem(expr a,b) =
+  one := h + 20;
+  two := -d - 20;
+  aa := round(a*u);
+  bb := round(b*u);
+  proofrule((aa,two),(aa,one)); proofrule((bb,two),(bb,one));
+  if proofing>3:
+    screenrule((aa,two),(aa,one)); screenrule((bb,two),(bb,one)); fi
+enddef;
+
+% Mark a hstem specified in character space.  Note that the hints aren't known
+% at this time so they can't be applied to the stem.
+def mark_hstem(expr a,b) =
+  one := -20;
+  two := w + 20;
+  aa := round(a*v);
+  bb := round(b*v);
+  proofrule((one,aa),(two,aa)); proofrule((one,bb),(two,bb));
+  if proofing>3:
+    screenrule((one,aa),(two,aa)); screenrule((one,bb),(two,bb)); fi
+enddef;
+
+% Mark blue value ranges.
+def mark_blues =
+  for i = 1 upto top_blues.n:
+    one := -30;
+    two := w + 30;
+    aa := round(top_blues[i]o*v);
+    bb := round(top_blues[i]p*v);
+    proofrule((one,aa),(two,aa)); proofrule((one-10,bb),(two+10,bb));
+    if proofing>3:
+      screenrule((one,aa),(two,aa)); screenrule((one,bb),(two,bb)); fi
+  endfor
+  for i = 1 upto bot_blues.n:
+    one := -30;
+    two := w + 30;
+    aa := round(bot_blues[i]o*v);
+    bb := round(bot_blues[i]p*v);
+    proofrule((one,aa),(two,aa)); proofrule((one-10,bb),(two+10,bb));
+    if proofing>3:
+      screenrule((one,aa),(two,aa)); screenrule((one,bb),(two,bb)); fi
+  endfor
+enddef;
+extra_beginchar := extra_beginchar & "mark_blues;";
+
+
+numeric subpath_label; subpath_label := ASCII "a";
+extra_beginchar := extra_beginchar &
+                   "subpath_label:=ASCII " & ditto & "a" & ditto & ";";
+
+% Mark path points.  If p is a pair (point) then it is a control point.
+% Control points are only plotted if proofing > 2, but they are left
+% unlabelled.
+def mark_points(expr p) =
+  if path p:
+    for i = 0 upto length p:
+      makelabel(char(subpath_label) & decimal(i), point i of p);
+    endfor
+    if proofing > 2: % plot control points too
+      for i = 1 upto length p - 1:
+        makelabel("", postcontrol i of p);
+        makelabel("", precontrol i of p);
+      endfor
+      makelabel("", postcontrol 0 of p);
+      makelabel("", precontrol (length p - 1) of p);
+    fi
+    subpath_label:=subpath_label+1;
+  elseif (pair p) and (proofing>2): makelabel("", p)
+  fi
+enddef;
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% macros used in character descriptions
+
+% store hint commands in this string for future incorporation
+string delayed_hints; delayed_hints:="";
+
+% specify delayed hints
+def dh(expr s) =
+  if hinting>0: hide(delayed_hints := delayed_hints & s & ";") fi
+enddef;
+
+% incorporate delayed hints
+def ih =
+  if hinting>0: hide(h_init; v_init; scantokens delayed_hints;
+                     delayed_hints:="") fi
+enddef;
+
+% vertical stem hint
+def vs(expr a,b) =
+  if hinting>0: hide(h_insert(a,b); if proofing>0: mark_vstem(a,b); fi) fi
+enddef;
+
+% vstem3 indicator
+def vst = if hinting>0: hide(h.triple:=true) fi enddef;
+
+% horizontal stem hint
+def hs(expr a,b) =
+  if hinting>0: hide(v_insert(a,b); if proofing>0: mark_hstem(a,b); fi) fi
+enddef;
+
+% hstem3 indicator
+def hst = if hinting>0: hide(v.triple:=true) fi enddef;
+
+% apply hints
+def ah(expr p) =
+  hide(if proofing>0:
+         if hinting>0: mark_points(hv_transform(p));
+         else: mark_points(p xscaled u yscaled v); fi
+       fi)
+  if hinting>0: hv_transform(p)
+  else: (p xscaled u yscaled v) fi
+enddef;
+
+% line to
+def lt(expr a,b) =
+  -- (a,b)
+enddef;
+
+% line to (after hint replacement)
+def lth(expr a,b) =
+  -- ih ah((a,b)
+enddef;
+
+% curve to
+def ct(expr a,b,c,d,e,f) =
+  .. controls (a,b) and (c,d) .. (e,f)
+enddef;
+
+% curve to (after hint replacement)
+def cth(expr a,b,c,d,e,f) =
+  .. controls ah((a,b)) and ih ah((c,d)) .. ah((e,f)
+enddef;
+
+% flex
+def fl(expr rx,ry,ax,ay,bx,by,cx,cy,dx,dy,ex,ey,fx,fy,height) =
+  if (abs((rx,ry) - (cx,cy))*u >= 0.01*height): % use curves
+    ct(ax,ay,bx,by,cx,cy)
+    ct(dx,dy,ex,ey,fx,fy)
+  else:
+    lt(fx,fy) % replace curves with line
+  fi
+enddef;
+
+% flex (after hint replacement)
+def flh(expr rx,ry,ax,ay,bx,by,cx,cy,dx,dy,ex,ey,fx,fy,height) =
+  if (abs((rx,ry) - (cx,cy))*u >= 0.01*height): % use curves
+    cth(ax,ay,bx,by,cx,cy)
+    ct(dx,dy,ex,ey,fx,fy)
+  else:
+    lth(fx,fy) % replace curves with line
+  fi
+enddef;
+
+% close path
+def cp = -- cycle enddef;
+
+% Draw by filling and stroking the path (helps greatly with small sizes).
+% We specify slanting here but not expansion because that's already been
+% incorporated.
+def dr expr c =
+  addto currentpicture contour (c slanted slanting) withpen pencircle;
+enddef;
+
+picture chp[];
+
+% seac (standard encoding accented character) use previously created
+% pictures.  When specifying accent shift, use slanting to correctly
+% position accent.
+def seac(expr achar,bchar,adx,ady) =
+  currentpicture := chp[bchar] +
+      chp[achar] shifted ((adx*u, ady*v) slanted slanting);
+enddef;
+
+% non-zero winding rule for filling instead of default positive rule
+def nonzerowinding = cull currentpicture dropping (0,0); enddef;
+extra_endchar := extra_endchar & "nonzerowinding;";
+
+turningcheck := 0; % no checking because directions are known
+
+autorounding := smoothing := 0; % we're doing hints ourselves
diff --git a/Master/texmf-dist/fonts/source/public/xq/xqbase.mf b/Master/texmf-dist/fonts/source/public/xq/xqbase.mf
new file mode 100644
index 00000000000..2903775df1b
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/xq/xqbase.mf
@@ -0,0 +1,3746 @@
+
+bot_blues.n := 1;
+bot_blues1o := -203;
+bot_blues1p := -144;
+top_blues.n := 1;
+top_blues1o := 820;
+top_blues1p := 324;
+blue_scale := 0.039625;
+blue_shift := 17;
+blue_fuzz := 1;
+
+input hints;
+
+beginchar(102,1024*FX#,756*FY#,144*FY#);
+"f";
+dh("hs(103,149)")
+dh("hs(225,271)")
+dh("hs(423,453)")
+dh("hs(484,514)")
+dh("vs(444,498)")
+dh("vs(579,633)")
+dh("vs(808,964)")
+ih
+dr
+ah((579,606)
+ct(579,595,563,565,532,514)
+ )
+dh("hs(103,149)")
+dh("hs(225,271)")
+dh("hs(499,756)")
+dh("vs(444,498)")
+dh("vs(579,633)")
+dh("vs(808,964)")
+cth(516,504,505,499,498,499)
+ )
+dh("hs(103,149)")
+dh("hs(225,271)")
+dh("hs(423,453)")
+dh("hs(484,514)")
+dh("vs(444,498)")
+dh("vs(579,633)")
+dh("vs(808,964)")
+lth(498,484)
+lt(485,453)
+ )
+dh("hs(103,149)")
+dh("hs(225,271)")
+dh("hs(347,377)")
+dh("hs(423,469)")
+dh("vs(444,498)")
+dh("vs(579,633)")
+dh("vs(808,964)")
+cth(487,453,500,458,525,469)
+lt(552,469)
+ )
+dh("hs(103,149)")
+dh("hs(225,271)")
+dh("hs(423,453)")
+dh("vs(444,498)")
+dh("vs(579,633)")
+dh("vs(808,964)")
+cth(561,460,567,455,572,453)
+ )
+dh("hs(103,149)")
+dh("hs(225,271)")
+dh("hs(347,377)")
+dh("hs(423,469)")
+dh("vs(444,498)")
+dh("vs(579,633)")
+dh("vs(808,964)")
+lth(586,423)
+ct(587,421,589,418,592,415)
+ct(587,412,582,404,579,392)
+lt(579,377)
+lt(552,377)
+lt(579,415)
+lt(579,423)
+ )
+dh("hs(103,149)")
+dh("hs(225,271)")
+dh("hs(301,377)")
+dh("hs(423,453)")
+dh("vs(350,404)")
+dh("vs(444,498)")
+dh("vs(538,633)")
+dh("vs(808,964)")
+lth(471,423)
+lt(471,377)
+ct(481,377,490,375,498,370)
+ )
+dh("hs(103,149)")
+dh("hs(225,271)")
+dh("hs(316,362)")
+dh("vs(350,404)")
+dh("vs(444,498)")
+dh("vs(538,633)")
+dh("vs(808,964)")
+cth(499,364,501,361,505,362)
+ )
+dh("hs(103,149)")
+dh("hs(225,271)")
+dh("hs(316,332)")
+dh("hs(347,377)")
+dh("vs(350,404)")
+dh("vs(444,498)")
+dh("vs(538,633)")
+dh("vs(808,964)")
+cth(508,363,512,368,515,377)
+lt(538,377)
+lt(538,347)
+ct(533,347,520,342,498,332)
+lt(485,332)
+ct(488,323,493,316,498,309)
+ )
+dh("hs(103,149)")
+dh("hs(225,271)")
+dh("hs(301,377)")
+dh("vs(350,404)")
+dh("vs(444,498)")
+dh("vs(808,964)")
+lth(498,301)
+ )
+dh("hs(103,149)")
+dh("hs(225,271)")
+dh("hs(301,347)")
+dh("hs(423,469)")
+dh("hs(499,756)")
+dh("vs(350,404)")
+dh("vs(444,498)")
+dh("vs(808,964)")
+lth(444,301)
+lt(444,552)
+lt(458,559)
+lt(458,567)
+lt(451,575)
+lt(437,590)
+lt(390,590)
+lt(390,575)
+lt(404,545)
+ )
+dh("hs(103,149)")
+dh("hs(225,271)")
+dh("hs(423,469)")
+dh("vs(336,404)")
+dh("vs(444,498)")
+dh("vs(808,964)")
+lth(404,423)
+lt(336,423)
+ )
+dh("hs(103,149)")
+dh("hs(225,271)")
+dh("hs(423,453)")
+dh("hs(499,756)")
+dh("vs(336,404)")
+dh("vs(444,498)")
+dh("vs(808,964)")
+lth(336,453)
+ )
+dh("hs(103,149)")
+dh("hs(225,271)")
+dh("hs(301,347)")
+dh("hs(423,469)")
+dh("hs(499,756)")
+dh("vs(350,404)")
+dh("vs(444,498)")
+dh("vs(808,964)")
+cth(342,463,347,472,350,480)
+lt(350,491)
+lt(306,545)
+lt(283,545)
+lt(283,530)
+lt(296,499)
+lt(296,476)
+ct(291,454,287,436,283,423)
+lt(283,370)
+lt(303,347)
+lt(310,347)
+ )
+dh("hs(103,149)")
+dh("hs(225,271)")
+dh("hs(316,392)")
+dh("vs(336,404)")
+dh("vs(444,498)")
+dh("vs(808,964)")
+lth(336,370)
+lt(390,385)
+ )
+dh("hs(103,149)")
+dh("hs(225,271)")
+dh("hs(316,392)")
+dh("vs(363,404)")
+dh("vs(444,498)")
+dh("vs(579,633)")
+dh("vs(808,964)")
+cth(393,390,398,392,404,392)
+lt(404,316)
+lt(384,316)
+ )
+dh("hs(103,149)")
+dh("hs(225,271)")
+dh("hs(301,347)")
+dh("vs(363,404)")
+dh("vs(444,498)")
+dh("vs(579,633)")
+dh("vs(808,964)")
+lth(343,301)
+lt(256,301)
+lt(256,278)
+lt(283,248)
+ct(291,243,300,240,310,240)
+ct(295,199,283,179,276,179)
+lt(262,134)
+lt(215,80)
+lt(215,73)
+lt(249,73)
+ct(289,98,320,134,343,179)
+lt(363,248)
+lt(363,271)
+lt(404,271)
+ct(404,247,402,216,397,179)
+ct(392,157,390,142,390,134)
+lt(390,65)
+lt(411,42)
+lt(417,42)
+ct(422,43,429,48,437,57)
+lt(444,57)
+lt(444,271)
+lt(498,271)
+ct(498,248,500,223,505,195)
+lt(542,149)
+lt(579,149)
+lt(579,225)
+lt(559,225)
+ct(541,228,525,233,511,240)
+lt(511,271)
+lt(633,271)
+lt(633,88)
+lt(626,88)
+lt(612,103)
+lt(565,103)
+lt(579,73)
+lt(579,57)
+ct(589,57,598,55,606,50)
+lt(639,12)
+ct(659,27,675,52,686,88)
+lt(686,156)
+ct(686,170,684,183,680,195)
+ct(675,223,673,248,673,271)
+lt(794,271)
+lt(794,278)
+lt(808,294)
+ )
+dh("hs(103,149)")
+dh("hs(225,271)")
+dh("hs(316,392)")
+dh("vs(444,498)")
+dh("vs(619,633)")
+dh("vs(808,964)")
+lth(808,316)
+ )
+dh("hs(103,149)")
+dh("hs(225,271)")
+dh("hs(316,332)")
+dh("vs(444,498)")
+dh("vs(619,633)")
+dh("vs(808,964)")
+cth(805,316,784,321,747,332)
+lt(727,332)
+ )
+dh("hs(103,149)")
+dh("hs(225,271)")
+dh("hs(316,392)")
+dh("vs(444,498)")
+dh("vs(619,633)")
+dh("vs(808,964)")
+cth(723,332,709,327,686,316)
+lt(673,316)
+lt(673,324)
+lt(686,339)
+ )
+dh("hs(103,149)")
+dh("hs(225,271)")
+dh("hs(347,377)")
+dh("hs(484,514)")
+dh("vs(444,498)")
+dh("vs(619,633)")
+dh("vs(808,964)")
+lth(686,377)
+lt(646,377)
+lt(646,385)
+ct(693,432,729,478,754,522)
+lt(754,545)
+ct(733,545,717,555,704,575)
+lt(695,575)
+lt(646,545)
+lt(619,545)
+lt(619,552)
+lt(633,568)
+lt(633,583)
+lt(616,606)
+  )cp
+dh("hs(103,149)")
+dh("hs(225,271)")
+dh("hs(423,453)")
+dh("hs(484,514)")
+dh("vs(444,498)")
+dh("vs(579,633)")
+dh("vs(808,964)")
+ih
+dr
+ah((579,514)
+ )
+dh("hs(103,149)")
+dh("hs(225,271)")
+dh("hs(423,469)")
+dh("hs(469,514)")
+dh("vs(444,498)")
+dh("vs(619,633)")
+dh("vs(808,964)")
+lth(673,514)
+lt(673,491)
+ct(664,479,655,472,646,469)
+lt(633,469)
+ct(633,460,631,450,626,438)
+ct(618,429,611,424,606,423)
+lt(606,431)
+lt(619,446)
+ )
+dh("hs(103,149)")
+dh("hs(225,271)")
+dh("hs(484,514)")
+dh("vs(444,498)")
+dh("vs(619,633)")
+dh("vs(808,964)")
+lth(619,484)
+ct(608,484,599,486,592,491)
+ )
+dh("hs(103,149)")
+dh("hs(225,271)")
+dh("hs(423,453)")
+dh("hs(484,514)")
+dh("vs(444,498)")
+dh("vs(579,633)")
+dh("vs(808,964)")
+cth(587,498,582,505,579,514)
+  )cp
+dh("hs(103,149)")
+dh("hs(225,271)")
+dh("hs(316,332)")
+dh("vs(444,498)")
+dh("vs(538,633)")
+dh("vs(808,964)")
+ih
+dr
+ah((538,316)
+lt(538,332)
+lt(559,332)
+ct(588,345,603,352,606,354)
+ )
+dh("hs(103,149)")
+dh("hs(225,271)")
+dh("hs(316,362)")
+dh("vs(444,498)")
+dh("vs(538,633)")
+dh("vs(808,964)")
+cth(606,359,609,362,614,362)
+ct(622,349,628,343,633,343)
+lt(633,316)
+  )cp
+dh("hs(103,149)")
+dh("hs(225,271)")
+dh("hs(499,756)")
+dh("vs(444,498)")
+dh("vs(808,964)")
+ih
+dr
+ah((512,756)
+ct(634,756,740,712,830,623)
+ct(919,535,964,430,964,308)
+ct(964,187,919,81,830,-10)
+ct(739,-99,633,-144,512,-144)
+ct(390,-144,285,-99,197,-10)
+ct(108,80,64,186,64,308)
+ct(64,431,108,536,197,623)
+ct(284,712,389,756,512,756)
+  )cp
+endchar;
+
+beginchar(70,1024*FX#,756*FY#,144*FY#);
+"F";
+dh("hs(-144,-108)")
+dh("hs(308,444)")
+dh("hs(720,756)")
+dh("vs(64,100)")
+dh("vs(266,305)")
+dh("vs(407,473)")
+dh("vs(518,556)")
+dh("vs(754,805)")
+dh("vs(928,964)")
+ih
+dr
+ah((512,756)
+ct(634,756,740,712,830,623)
+ct(919,535,964,430,964,308)
+ct(964,187,919,81,830,-10)
+ct(739,-99,633,-144,512,-144)
+ct(390,-144,285,-99,197,-10)
+ct(108,80,64,186,64,308)
+ct(64,431,108,536,197,623)
+ct(284,712,389,756,512,756)
+  )cp
+dr
+ah((512,720)
+ct(400,720,303,679,222,598)
+ct(141,517,100,420,100,308)
+ct(100,196,141,99,222,16)
+ct(303,-67,400,-108,512,-108)
+ct(624,-108,721,-67,804,16)
+ct(887,99,928,196,928,308)
+ct(928,420,887,517,804,598)
+ct(721,679,624,720,512,720)
+  )cp
+dr
+ah((354,569)
+ )
+dh("hs(-144,-108)")
+dh("hs(403,414)")
+dh("hs(720,756)")
+dh("vs(64,100)")
+dh("vs(266,305)")
+dh("vs(344,410)")
+dh("vs(518,556)")
+dh("vs(754,805)")
+dh("vs(928,964)")
+cth(347,569,344,565,344,557)
+ct(344,544,339,525,329,501)
+ct(317,474,300,442,277,405)
+lt(281,403)
+ct(283,403,292,409,309,420)
+ct(333,445,355,469,375,493)
+ct(387,512,396,523,403,525)
+ct(408,529,410,533,410,537)
+ct(410,542,403,549,388,558)
+ct(372,565,361,569,354,569)
+  )cp
+dr
+ah((259,437)
+ct(250,437,246,433,246,425)
+ct(247,422,249,419,251,418)
+ct(261,404,266,385,266,360)
+ct(265,302,264,256,261,221)
+ )
+dh("hs(-144,-108)")
+dh("hs(145,159)")
+dh("hs(720,756)")
+dh("vs(64,100)")
+dh("vs(266,305)")
+dh("vs(407,473)")
+dh("vs(518,556)")
+dh("vs(754,805)")
+dh("vs(928,964)")
+cth(259,196,256,175,251,159)
+ct(250,155,249,152,249,150)
+ct(249,148,249,146,248,145)
+ct(248,132,252,117,261,100)
+ct(266,93,273,90,281,90)
+ct(286,90,289,96,292,107)
+ct(297,135,302,234,305,405)
+ct(305,415,300,423,291,428)
+ct(281,434,270,437,259,437)
+  )cp
+dh("hs(-144,-108)")
+dh("hs(308,444)")
+dh("hs(720,756)")
+dh("vs(64,100)")
+dh("vs(266,305)")
+dh("vs(407,473)")
+dh("vs(518,556)")
+dh("vs(754,805)")
+dh("vs(928,964)")
+ih
+dr
+ah((417,444)
+ct(415,444,410,442,402,438)
+ct(384,431,367,425,351,422)
+ )
+dh("hs(-144,-108)")
+dh("hs(321,338)")
+dh("hs(403,414)")
+dh("hs(720,756)")
+dh("vs(64,100)")
+dh("vs(266,305)")
+dh("vs(407,473)")
+dh("vs(518,556)")
+dh("vs(754,805)")
+dh("vs(928,964)")
+cth(333,419,312,416,289,414)
+ct(284,414,281,412,281,409)
+ct(283,406,286,403,291,401)
+ct(298,398,304,397,309,397)
+ct(316,397,334,400,364,405)
+ct(377,405,389,405,399,406)
+ct(404,406,407,405,407,402)
+ct(406,394,405,384,404,372)
+ct(402,361,399,348,396,335)
+ct(396,332,396,328,395,325)
+ct(400,322,406,321,413,321)
+ct(421,321,427,323,431,327)
+lt(447,370)
+ct(453,384,459,393,464,398)
+ct(470,404,473,410,473,415)
+ct(473,420,468,425,459,430)
+ )
+dh("hs(-144,-108)")
+dh("hs(308,444)")
+dh("hs(720,756)")
+dh("vs(64,100)")
+dh("vs(266,305)")
+dh("vs(407,473)")
+dh("vs(518,556)")
+dh("vs(754,805)")
+dh("vs(928,964)")
+cth(439,439,425,444,417,444)
+  )cp
+dr
+ah((397,338)
+ct(394,338,385,336,371,333)
+ )
+dh("hs(-144,-108)")
+dh("hs(296,320)")
+dh("hs(720,756)")
+dh("vs(64,100)")
+dh("vs(266,305)")
+dh("vs(518,556)")
+dh("vs(754,805)")
+dh("vs(928,964)")
+cth(346,326,320,321,294,320)
+ct(287,320,284,317,284,311)
+ct(284,308,286,304,290,301)
+ct(294,298,302,296,313,296)
+ct(320,297,328,298,337,299)
+lt(394,307)
+ )
+dh("hs(-144,-108)")
+dh("hs(308,444)")
+dh("hs(720,756)")
+dh("vs(64,100)")
+dh("vs(266,305)")
+dh("vs(407,473)")
+dh("vs(518,556)")
+dh("vs(754,805)")
+dh("vs(928,964)")
+cth(407,308,421,308,435,308)
+ct(438,308,440,310,440,314)
+ct(440,321,435,327,425,331)
+ct(414,336,404,338,397,338)
+  )cp
+dh("hs(-144,-108)")
+dh("hs(132,273)")
+dh("hs(720,756)")
+dh("vs(64,100)")
+dh("vs(266,305)")
+dh("vs(407,473)")
+dh("vs(518,556)")
+dh("vs(754,805)")
+dh("vs(928,964)")
+ih
+dr
+ah((417,273)
+ct(414,273,409,271,402,268)
+ct(381,261,364,256,351,253)
+ct(330,246,309,241,289,240)
+ct(284,240,281,238,281,235)
+ct(283,232,286,229,291,227)
+ct(298,224,304,223,309,223)
+ct(313,223,331,225,364,230)
+ct(378,233,390,235,399,235)
+ct(404,235,407,234,407,231)
+ct(407,224,407,214,406,203)
+ct(405,189,404,174,402,158)
+ct(402,155,402,152,401,148)
+ )
+dh("hs(-144,-108)")
+dh("hs(145,159)")
+dh("hs(720,756)")
+dh("vs(64,100)")
+dh("vs(266,305)")
+dh("vs(407,473)")
+dh("vs(518,556)")
+dh("vs(754,805)")
+dh("vs(928,964)")
+cth(406,146,412,145,419,145)
+ct(427,145,433,147,437,151)
+lt(450,197)
+ct(453,210,458,220,465,227)
+ct(470,234,473,239,473,244)
+ct(473,249,468,254,459,259)
+ )
+dh("hs(-144,-108)")
+dh("hs(132,273)")
+dh("hs(720,756)")
+dh("vs(64,100)")
+dh("vs(266,305)")
+dh("vs(407,473)")
+dh("vs(518,556)")
+dh("vs(754,805)")
+dh("vs(928,964)")
+cth(439,268,425,273,417,273)
+  )cp
+dr
+ah((409,159)
+ct(404,159,394,157,379,153)
+ )
+dh("hs(-144,-108)")
+dh("hs(120,144)")
+dh("hs(720,756)")
+dh("vs(64,100)")
+dh("vs(266,305)")
+dh("vs(518,556)")
+dh("vs(754,805)")
+dh("vs(928,964)")
+cth(351,149,322,146,291,144)
+ct(284,144,281,141,281,135)
+ct(281,131,283,127,287,124)
+ct(290,121,298,120,311,120)
+ct(317,120,326,121,337,123)
+ )
+dh("hs(-144,-108)")
+dh("hs(132,273)")
+dh("hs(720,756)")
+dh("vs(64,100)")
+dh("vs(266,305)")
+dh("vs(518,556)")
+dh("vs(754,805)")
+dh("vs(928,964)")
+lth(401,132)
+ct(415,133,430,133,446,134)
+ct(449,134,451,134,452,135)
+ct(452,142,447,148,437,152)
+ct(426,157,416,159,409,159)
+  )cp
+dr
+ah((516,392)
+ct(508,392,504,388,504,381)
+ct(504,379,505,374,508,366)
+ct(515,359,518,343,518,318)
+ct(518,301,516,287,512,277)
+ct(511,267,507,257,500,246)
+ct(499,243,498,239,497,236)
+ct(497,225,501,214,508,202)
+ct(513,192,518,187,523,187)
+ct(528,187,534,194,540,208)
+ct(548,232,553,274,556,334)
+ct(556,346,557,354,559,359)
+lt(559,368)
+ct(559,375,554,380,545,382)
+ct(536,389,526,392,516,392)
+  )cp
+dh("hs(-144,-108)")
+dh("hs(166,417)")
+dh("hs(720,756)")
+dh("vs(64,100)")
+dh("vs(266,305)")
+dh("vs(518,556)")
+dh("vs(754,805)")
+dh("vs(928,964)")
+ih
+dr
+ah((761,417)
+ct(754,416,748,416,742,415)
+ct(720,407,652,396,538,383)
+ct(533,382,529,380,526,377)
+ct(528,372,531,368,534,365)
+ct(539,362,546,361,553,361)
+lt(579,361)
+lt(652,377)
+ct(687,378,716,379,737,380)
+ct(740,380,744,379,749,378)
+ct(752,371,754,361,754,348)
+ct(753,300,752,264,749,239)
+ct(748,226,745,219,740,219)
+lt(759,166)
+ct(768,166,778,174,790,191)
+ct(799,206,803,229,803,258)
+lt(805,323)
+ct(805,336,807,348,811,359)
+ct(814,364,816,370,818,377)
+ct(818,382,812,389,801,398)
+ct(780,411,767,417,761,417)
+  )cp
+dr
+ah((694,232)
+ct(691,230,690,227,690,224)
+ct(692,221,695,218,700,215)
+ct(712,206,726,192,742,173)
+ct(745,168,751,166,759,166)
+lt(740,219)
+ct(738,219,728,221,709,226)
+ct(704,229,699,231,694,232)
+  )cp
+dr
+ah((608,585)
+ )
+dh("hs(-144,-108)")
+dh("hs(720,756)")
+dh("vs(64,100)")
+dh("vs(266,305)")
+dh("vs(518,556)")
+dh("vs(597,676)")
+dh("vs(754,805)")
+dh("vs(928,964)")
+cth(601,585,597,580,597,570)
+ct(599,567,601,563,603,557)
+ )
+dh("hs(-144,-108)")
+dh("hs(720,756)")
+dh("vs(64,100)")
+dh("vs(266,305)")
+dh("vs(518,556)")
+dh("vs(616,664)")
+dh("vs(754,805)")
+dh("vs(928,964)")
+cth(612,536,616,509,616,476)
+lt(616,56)
+ct(616,28,618,7,621,-6)
+ct(624,-13,627,-18,631,-21)
+ct(634,-21,639,-17,644,-10)
+ct(651,5,655,26,657,53)
+ct(662,82,664,116,664,154)
+lt(665,464)
+ct(665,503,668,530,673,543)
+ )
+dh("hs(-144,-108)")
+dh("hs(720,756)")
+dh("vs(64,100)")
+dh("vs(266,305)")
+dh("vs(518,556)")
+dh("vs(597,676)")
+dh("vs(754,805)")
+dh("vs(928,964)")
+cth(674,549,675,555,676,560)
+ct(676,568,668,573,653,575)
+ct(637,582,622,585,608,585)
+  )cp
+endchar;
+
+beginchar(109,1024*FX#,756*FY#,140*FY#);
+"m";
+dh("hs(-140,68)")
+dh("hs(596,756)")
+dh("vs(64,176)")
+dh("vs(848,960)")
+ih
+dr
+ah((496,628)
+lt(464,628)
+lt(456,628)
+lt(432,598)
+lt(464,556)
+lt(464,340)
+lt(344,340)
+ct(325,340,307,337,288,332)
+ct(245,327,208,324,176,324)
+lt(176,300)
+lt(216,260)
+lt(272,260)
+lt(368,284)
+ct(379,289,389,292,400,292)
+lt(464,292)
+lt(464,100)
+ct(459,100,411,95,320,84)
+lt(272,84)
+ct(276,76,281,68,288,60)
+lt(338,36)
+lt(369,36)
+ct(400,41,429,46,456,52)
+ct(477,54,496,57,512,60)
+ct(531,65,549,68,568,68)
+lt(736,68)
+lt(736,116)
+lt(720,116)
+ct(706,120,694,125,684,132)
+lt(654,132)
+ct(623,125,600,120,584,116)
+lt(528,116)
+lt(528,292)
+lt(544,292)
+lt(576,308)
+lt(848,308)
+lt(848,356)
+ct(837,356,827,359,816,364)
+lt(790,388)
+ct(773,388,755,385,736,380)
+ct(687,369,647,361,616,356)
+lt(528,356)
+lt(528,492)
+ct(528,500,531,508,536,516)
+lt(560,580)
+lt(560,596)
+ct(539,596,517,607,496,628)
+  )cp
+dr
+ah((512,756)
+ct(634,756,739,712,828,623)
+ct(916,535,960,430,960,308)
+ct(960,187,916,81,828,-8)
+ct(739,-96,633,-140,512,-140)
+ct(390,-140,285,-96,197,-8)
+ct(108,81,64,186,64,308)
+ct(64,431,108,536,197,623)
+ct(284,712,389,756,512,756)
+  )cp
+endchar;
+
+beginchar(77,1024*FX#,756*FY#,144*FY#);
+"M";
+dh("hs(-144,-108)")
+dh("hs(720,756)")
+dh("vs(64,100)")
+dh("vs(335,367)")
+dh("vs(378,442)")
+dh("vs(564,641)")
+dh("vs(928,964)")
+ih
+dr
+ah((512,756)
+ct(634,756,740,712,830,623)
+ct(919,535,964,430,964,308)
+ct(964,187,919,81,830,-10)
+ct(739,-99,633,-144,512,-144)
+ct(390,-144,285,-99,197,-10)
+ct(108,80,64,186,64,308)
+ct(64,431,108,536,197,623)
+ct(284,712,389,756,512,756)
+  )cp
+dr
+ah((512,720)
+ct(400,720,303,679,222,598)
+ct(141,517,100,420,100,308)
+ct(100,196,141,99,222,16)
+ct(303,-67,400,-108,512,-108)
+ct(624,-108,721,-67,804,16)
+ct(887,99,928,196,928,308)
+ct(928,420,887,517,804,598)
+ct(721,679,624,720,512,720)
+  )cp
+dr
+ah((387,632)
+ct(381,632,378,624,378,609)
+ct(378,587,371,558,357,522)
+ct(336,469,311,422,283,381)
+ct(256,340,227,300,194,262)
+ct(188,257,185,252,185,247)
+ct(187,249,189,250,191,250)
+ct(197,250,211,257,233,270)
+ct(268,301,297,333,319,364)
+ct(348,407,379,460,412,524)
+ct(417,540,424,552,431,561)
+ct(438,568,442,574,442,577)
+ct(442,588,432,603,411,622)
+ct(401,629,393,632,387,632)
+  )cp
+dr
+ah((334,428)
+ct(327,428,324,424,324,417)
+ct(331,387,335,358,335,331)
+ct(335,206,330,124,321,87)
+ct(320,81,319,76,318,72)
+ct(315,59,313,50,313,46)
+ct(313,39,317,25,326,3)
+ct(331,-12,336,-20,343,-20)
+ct(348,-20,353,-14,356,-1)
+ct(361,16,364,30,364,40)
+lt(367,174)
+ct(367,264,368,317,371,333)
+ct(374,353,375,363,375,364)
+ct(375,370,369,383,356,404)
+ct(344,420,337,428,334,428)
+  )cp
+dr
+ah((777,384)
+ct(768,384,750,381,722,375)
+ct(680,366,634,356,583,347)
+ct(529,337,471,327,409,318)
+ct(398,317,392,314,392,307)
+ct(392,300,399,294,414,287)
+ct(427,282,439,279,452,279)
+ct(459,279,466,279,474,280)
+lt(559,300)
+ct(580,305,602,309,626,311)
+ct(691,318,752,324,807,328)
+ct(826,328,835,333,835,342)
+ct(835,347,825,358,805,375)
+ct(789,381,780,384,777,384)
+  )cp
+dr
+ah((566,606)
+ct(553,606,547,597,547,580)
+ct(549,576,551,572,554,569)
+ct(561,553,564,541,564,532)
+ct(568,502,570,472,570,441)
+lt(571,98)
+lt(616,98)
+lt(620,432)
+ct(624,487,628,520,633,532)
+ct(636,539,639,545,641,552)
+ct(641,564,633,575,617,584)
+ct(596,599,579,606,566,606)
+  )cp
+dr
+ah((720,144)
+lt(706,142)
+ct(699,141,691,139,681,138)
+ct(616,124,541,111,454,98)
+ct(443,97,438,93,438,86)
+ct(438,79,445,73,460,66)
+ct(473,61,485,58,497,58)
+lt(513,62)
+ct(556,71,592,76,621,77)
+ct(668,80,711,84,750,87)
+ct(769,87,778,92,778,101)
+ct(778,107,768,118,749,134)
+ct(731,141,721,144,720,144)
+  )cp
+endchar;
+
+beginchar(101,1024*FX#,756*FY#,144*FY#);
+"e";
+dh("hs(-144,-12)")
+dh("hs(340,388)")
+dh("hs(436,484)")
+dh("hs(500,516)")
+dh("hs(548,580)")
+dh("hs(736,756)")
+dh("vs(352,448)")
+dh("vs(608,964)")
+ih
+dr
+ah((432,676)
+ct(424,670,416,665,408,660)
+ct(406,642,398,626,384,612)
+ct(368,608,352,589,336,556)
+ct(325,551,315,548,304,548)
+lt(304,532)
+lt(288,500)
+lt(288,484)
+lt(305,430)
+ )
+dh("hs(-144,-12)")
+dh("hs(340,388)")
+dh("hs(404,468)")
+dh("hs(500,516)")
+dh("hs(548,580)")
+dh("hs(736,756)")
+dh("vs(352,448)")
+dh("vs(608,964)")
+cth(308,418,311,409,312,404)
+lt(328,372)
+lt(340,356)
+lt(346,356)
+ct(351,360,355,365,360,372)
+lt(400,372)
+lt(400,356)
+lt(256,276)
+lt(240,276)
+lt(240,260)
+lt(304,260)
+ct(347,279,368,292,368,300)
+lt(416,316)
+ct(421,321,427,324,432,324)
+lt(400,276)
+ct(377,263,355,244,336,220)
+ct(305,208,278,197,256,188)
+lt(240,172)
+lt(240,148)
+lt(272,148)
+lt(432,236)
+lt(480,276)
+ct(469,233,459,212,448,212)
+ct(418,201,402,196,400,196)
+ct(400,189,395,175,384,156)
+ct(331,129,304,113,304,108)
+lt(256,92)
+lt(240,76)
+lt(240,52)
+lt(256,52)
+lt(400,108)
+ct(433,123,463,147,488,180)
+lt(512,180)
+lt(512,148)
+lt(480,84)
+lt(480,68)
+lt(448,68)
+lt(416,84)
+lt(400,84)
+lt(400,60)
+lt(472,-12)
+lt(512,-12)
+ct(519,-11,527,-5,536,4)
+lt(560,52)
+lt(560,212)
+ct(591,196,636,148,696,68)
+lt(784,68)
+ct(786,68,802,73,832,84)
+lt(848,84)
+ct(719,137,634,201,592,276)
+lt(608,276)
+ct(624,295,651,309,688,316)
+ct(693,317,698,321,704,328)
+lt(704,356)
+lt(688,356)
+lt(656,372)
+lt(624,372)
+ct(624,348,613,329,592,316)
+lt(538,292)
+lt(496,332)
+ct(485,337,475,340,464,340)
+lt(480,372)
+lt(480,388)
+lt(552,388)
+lt(600,372)
+lt(624,372)
+ct(624,383,627,393,632,404)
+ct(655,444,673,468,688,476)
+lt(688,516)
+lt(672,516)
+lt(604,548)
+ct(595,548,585,545,576,540)
+ct(549,527,531,519,520,516)
+lt(512,516)
+ct(512,529,533,548,576,572)
+ct(587,577,597,580,608,580)
+lt(608,604)
+lt(592,620)
+ct(575,627,562,635,552,644)
+ct(549,642,547,639,544,636)
+lt(496,612)
+lt(480,612)
+lt(480,620)
+lt(496,636)
+lt(496,652)
+lt(472,676)
+  )cp
+dr
+ah((416,564)
+lt(480,564)
+lt(480,556)
+ct(475,553,469,545,464,532)
+ct(430,517,390,506,344,500)
+lt(320,500)
+lt(320,516)
+ct(331,516,341,519,352,524)
+ct(352,532,373,545,416,564)
+  )cp
+dh("hs(-144,-12)")
+dh("hs(340,388)")
+dh("hs(420,484)")
+dh("hs(500,516)")
+dh("hs(548,580)")
+dh("hs(736,756)")
+dh("vs(352,448)")
+dh("vs(608,964)")
+ih
+dr
+ah((496,420)
+lt(496,484)
+ )
+dh("hs(-144,-12)")
+dh("hs(340,388)")
+dh("hs(436,484)")
+dh("hs(500,516)")
+dh("hs(548,580)")
+dh("hs(736,756)")
+dh("vs(352,448)")
+dh("vs(608,964)")
+lth(608,484)
+ct(608,479,603,463,592,436)
+ )
+dh("hs(-144,-12)")
+dh("hs(340,388)")
+dh("hs(420,484)")
+dh("hs(500,516)")
+dh("hs(548,580)")
+dh("hs(736,756)")
+dh("vs(352,448)")
+dh("vs(608,964)")
+lth(592,420)
+ )
+dh("hs(-144,-12)")
+dh("hs(340,388)")
+dh("hs(436,484)")
+dh("hs(500,516)")
+dh("hs(548,580)")
+dh("hs(736,756)")
+dh("vs(352,448)")
+dh("vs(608,964)")
+cth(584,421,576,427,568,436)
+lt(560,436)
+ )
+dh("hs(-144,-12)")
+dh("hs(340,388)")
+dh("hs(420,484)")
+dh("hs(500,516)")
+dh("hs(548,580)")
+dh("hs(736,756)")
+dh("vs(352,448)")
+dh("vs(608,964)")
+cth(557,436,541,431,512,420)
+  )cp
+dh("hs(-144,-12)")
+dh("hs(340,388)")
+dh("hs(404,468)")
+dh("hs(500,516)")
+dh("hs(548,580)")
+dh("hs(736,756)")
+dh("vs(352,448)")
+dh("vs(608,964)")
+ih
+dr
+ah((372,468)
+lt(376,468)
+lt(448,468)
+lt(448,428)
+lt(428,404)
+lt(352,404)
+lt(352,444)
+  )cp
+dr
+ah((512,756)
+ct(634,756,740,712,830,623)
+ct(919,535,964,430,964,308)
+ct(964,187,919,81,830,-10)
+ct(739,-99,633,-144,512,-144)
+ct(390,-144,285,-99,197,-10)
+ct(108,80,64,186,64,308)
+ct(64,431,108,536,197,623)
+ct(284,712,389,756,512,756)
+  )cp
+chp[101]:=currentpicture;
+endchar;
+
+beginchar(69,1024*FX#,756*FY#,144*FY#);
+"E";
+dh("hs(-144,-108)")
+dh("hs(102,137)")
+dh("hs(210,235)")
+dh("hs(318,343)")
+dh("hs(379,404)")
+dh("hs(458,501)")
+dh("hs(720,756)")
+dh("vs(64,100)")
+dh("vs(546,578)")
+dh("vs(928,964)")
+ih
+dr
+ah((512,756)
+ct(634,756,740,712,830,623)
+ct(919,535,964,430,964,308)
+ct(964,187,919,81,830,-10)
+ct(739,-99,633,-144,512,-144)
+ct(390,-144,285,-99,197,-10)
+ct(108,80,64,186,64,308)
+ct(64,431,108,536,197,623)
+ct(284,712,389,756,512,756)
+  )cp
+dr
+ah((512,720)
+ct(400,720,303,679,222,598)
+ct(141,517,100,420,100,308)
+ct(100,196,141,99,222,16)
+ct(303,-67,400,-108,512,-108)
+ct(624,-108,721,-67,804,16)
+ct(887,99,928,196,928,308)
+ct(928,420,887,517,804,598)
+ct(721,679,624,720,512,720)
+  )cp
+dr
+ah((466,440)
+ct(461,439,457,439,453,438)
+ct(433,433,409,427,382,421)
+ct(341,414,303,409,266,404)
+ct(251,404,244,402,244,399)
+ct(244,396,248,391,255,384)
+ct(262,381,276,379,296,379)
+ct(309,379,349,384,417,394)
+ct(454,398,480,402,496,406)
+ct(507,411,512,416,512,419)
+ct(512,425,507,430,498,433)
+ct(483,438,472,440,466,440)
+  )cp
+dr
+ah((375,607)
+ct(366,607,362,602,362,591)
+lt(362,590)
+ct(364,587,366,582,367,577)
+ct(372,565,375,553,376,540)
+ct(379,520,381,485,381,434)
+ct(380,343,377,261,372,190)
+ct(369,147,365,114,360,93)
+ct(359,89,359,85,358,82)
+ct(356,74,355,68,355,63)
+ct(355,55,359,41,368,21)
+ct(372,14,377,9,382,4)
+ct(388,4,393,8,398,17)
+ct(405,33,409,45,409,53)
+lt(410,292)
+ct(411,313,412,339,413,369)
+ct(415,402,417,440,419,481)
+ct(420,514,423,538,427,552)
+ct(428,555,429,559,430,563)
+ct(430,574,423,583,410,589)
+ct(393,601,381,607,375,607)
+  )cp
+dr
+ah((379,400)
+ct(374,400,371,396,369,388)
+ct(367,378,363,365,356,349)
+lt(292,249)
+ct(268,225,237,195,198,160)
+ct(195,158,192,155,189,152)
+ct(191,150,193,149,195,149)
+ct(216,156,240,168,266,183)
+ct(289,196,310,216,329,242)
+ct(346,263,364,290,381,322)
+ct(384,331,388,336,393,338)
+ct(394,338,394,338,394,339)
+ct(396,342,398,346,399,349)
+ct(399,358,396,369,391,382)
+ct(388,394,384,400,379,400)
+  )cp
+dr
+ah((396,332)
+ct(394,329,393,327,393,324)
+ct(396,320,400,316,404,312)
+ct(412,308,425,295,442,273)
+ct(455,258,465,248,474,241)
+ct(477,241,481,241,486,240)
+ct(489,240,493,242,498,245)
+lt(502,261)
+ct(502,272,500,279,495,284)
+ct(487,293,474,302,457,310)
+ct(442,315,427,321,412,328)
+ct(403,331,397,332,396,332)
+  )cp
+dr
+ah((544,474)
+ct(536,474,532,471,532,465)
+ct(532,460,534,456,537,453)
+ct(546,436,550,412,550,382)
+ct(550,345,550,312,549,283)
+ct(549,256,548,234,547,215)
+ct(546,200,545,186,544,173)
+ct(543,160,541,149,539,139)
+ct(538,132,537,126,537,120)
+ct(537,109,541,95,549,80)
+ct(554,71,560,67,566,67)
+ct(571,67,574,74,575,89)
+ct(576,97,577,109,578,126)
+ct(579,146,580,170,580,198)
+ct(582,264,584,345,585,442)
+ct(585,450,581,457,573,464)
+ct(565,471,555,474,544,474)
+  )cp
+dr
+ah((732,501)
+ct(725,501,712,498,691,491)
+ct(668,484,645,478,622,473)
+ct(596,468,576,464,561,463)
+ct(557,464,554,463,552,462)
+ct(552,455,556,449,564,446)
+ct(567,442,574,440,586,440)
+ct(587,440,595,442,608,447)
+ct(647,454,676,458,696,458)
+ct(706,458,714,458,719,459)
+ct(728,456,733,450,733,439)
+ct(734,400,735,344,735,271)
+ct(735,239,735,212,734,189)
+ct(734,165,734,150,733,145)
+ct(732,134,730,125,726,119)
+lt(748,50)
+ct(756,50,766,56,777,67)
+ct(787,87,792,107,792,126)
+ct(781,215,776,267,776,282)
+ct(777,324,777,359,778,388)
+ct(779,413,780,429,781,435)
+ct(786,448,788,456,788,458)
+ct(788,468,778,477,757,485)
+ct(744,496,735,501,732,501)
+  )cp
+dr
+ah((707,130)
+ct(704,130,702,128,702,123)
+ct(713,107,724,87,735,64)
+ct(739,55,743,50,748,50)
+lt(726,119)
+  )cp
+dr
+ah((696,366)
+ct(692,365,687,365,682,364)
+ct(653,357,623,350,592,343)
+ct(575,343,566,341,566,337)
+ct(566,330,572,325,583,320)
+ct(592,319,601,318,610,318)
+ct(618,318,629,320,643,325)
+ct(667,327,684,330,695,333)
+ct(703,336,712,336,723,335)
+ct(740,340,748,345,748,350)
+ct(748,355,741,358,727,360)
+ct(712,364,701,366,696,366)
+  )cp
+dr
+ah((693,255)
+ct(689,254,684,253,679,252)
+lt(589,235)
+ct(572,235,564,233,564,229)
+ct(564,222,569,217,580,212)
+ fl(607,212,589,211,598,210,607,210,615,210,626,211,640,212,50)
+ct(669,220,686,223,692,222)
+ct(700,225,709,225,720,224)
+ct(737,229,745,234,745,239)
+ct(745,244,738,247,724,249)
+ct(709,253,698,255,693,255)
+  )cp
+dr
+ah((710,137)
+ct(702,136,689,136,672,135)
+ct(655,132,636,129,617,127)
+ct(608,126,598,125,588,124)
+ct(578,123,568,123,558,123)
+ct(550,123,546,120,546,115)
+ct(546,112,548,107,553,100)
+ct(560,97,569,95,580,95)
+ct(589,94,601,94,614,93)
+lt(695,99)
+ct(712,101,731,102,752,102)
+ct(757,102,760,104,760,109)
+ct(756,115,750,120,743,125)
+ct(729,133,718,137,710,137)
+  )cp
+chp[69]:=currentpicture;
+endchar;
+
+beginchar(75,1024*FX#,756*FY#,148*FY#);
+"K";
+dh("hs(-148,-112)")
+dh("hs(9,52)")
+dh("hs(407,439)")
+dh("hs(720,756)")
+dh("vs(64,100)")
+dh("vs(462,500)")
+dh("vs(689,743)")
+dh("vs(928,964)")
+ih
+dr
+ah((512,756)
+ct(634,756,740,712,830,623)
+ct(919,534,964,427,964,304)
+ct(964,181,919,74,830,-15)
+ct(740,-104,634,-148,512,-148)
+ct(389,-148,284,-104,197,-15)
+ct(108,74,64,180,64,304)
+ct(64,428,108,534,197,623)
+ct(284,712,389,756,512,756)
+  )cp
+dr
+ah((512,720)
+ct(399,720,303,679,222,597)
+ct(141,516,100,418,100,304)
+ct(100,191,141,93,222,10)
+ct(303,-71,400,-112,512,-112)
+ct(624,-112,721,-71,804,10)
+ct(887,93,928,191,928,304)
+ct(928,418,887,516,804,597)
+ct(722,679,625,720,512,720)
+  )cp
+dr
+ah((235,393)
+lt(229,387)
+ct(229,380,237,362,252,331)
+ct(265,308,275,296,283,296)
+ct(298,296,306,304,306,319)
+ct(306,332,304,343,300,352)
+ct(296,358,286,366,271,377)
+ct(257,388,245,393,235,393)
+  )cp
+dr
+ah((332,594)
+ct(323,594,319,588,319,577)
+ct(321,573,323,569,326,564)
+ct(330,553,332,542,332,529)
+ct(334,506,335,479,336,450)
+lt(336,392)
+ct(336,338,332,291,323,250)
+ct(317,209,305,172,287,139)
+ct(274,114,251,82,220,45)
+ct(221,44,223,43,225,43)
+ct(230,43,246,52,271,71)
+ct(296,94,315,118,326,143)
+ct(341,170,352,203,360,242)
+ct(368,288,373,336,374,387)
+lt(375,489)
+ct(376,508,378,526,383,544)
+lt(388,557)
+ct(388,566,382,574,371,583)
+ct(356,590,343,594,332,594)
+  )cp
+dr
+ah((426,485)
+ct(423,483,422,480,421,476)
+ct(414,453,407,435,400,422)
+ct(393,407,384,391,372,374)
+lt(370,372)
+ct(371,371,372,371,373,370)
+ct(378,370,393,380,419,401)
+ct(433,413,446,421,458,426)
+ct(464,429,467,435,467,444)
+ct(467,452,462,459,451,465)
+ct(440,478,431,485,426,485)
+  )cp
+dr
+ah((347,221)
+ct(345,219,344,217,344,214)
+ct(346,210,349,206,352,202)
+ct(359,197,369,184,382,162)
+ct(391,147,399,137,406,130)
+ct(409,130,412,130,415,129)
+ct(419,129,423,130,427,133)
+ct(430,144,431,150,431,153)
+ct(431,161,429,169,426,178)
+ct(421,186,411,193,395,199)
+ct(384,204,372,210,360,217)
+ct(356,218,352,220,347,221)
+  )cp
+dr
+ah((553,611)
+ct(548,611,545,606,545,596)
+ct(545,579,542,559,535,536)
+ct(526,502,515,469,502,436)
+ct(489,407,476,382,462,360)
+ct(461,357,460,354,459,351)
+lt(463,353)
+ct(467,353,475,359,486,370)
+ct(503,384,519,402,533,425)
+ct(542,440,550,456,558,473)
+ct(567,491,575,510,583,531)
+ct(587,540,591,550,594,559)
+ct(596,561,598,563,599,566)
+ct(599,576,590,588,573,602)
+ct(565,608,558,611,553,611)
+  )cp
+dr
+ah((696,480)
+ct(693,479,690,478,687,477)
+ct(663,466,634,458,601,452)
+ct(569,443,543,439,523,439)
+ct(516,439,512,437,511,432)
+ct(511,429,516,423,526,414)
+ct(536,409,545,407,553,407)
+ct(558,408,562,409,565,410)
+ct(589,421,610,428,628,432)
+ct(646,438,660,441,669,441)
+ct(682,441,689,434,689,420)
+ct(689,405,687,376,682,335)
+ct(675,290,669,261,662,246)
+ct(659,239,655,235,651,235)
+lt(654,175)
+ct(659,175,666,177,674,181)
+ct(687,192,697,215,706,248)
+ct(709,258,712,274,715,295)
+ct(719,318,722,344,725,373)
+ct(728,395,732,412,737,423)
+ct(741,430,743,435,743,438)
+ct(743,445,736,454,722,466)
+ct(713,471,704,476,696,480)
+  )cp
+dr
+ah((606,250)
+ct(605,247,604,244,604,241)
+ct(621,221,633,203,640,188)
+ct(644,179,649,175,654,175)
+lt(651,235)
+ct(645,235,630,240,606,250)
+  )cp
+dr
+ah((561,353)
+ct(556,351,553,349,550,346)
+ct(538,337,526,333,514,333)
+lt(508,331)
+ct(497,328,484,326,470,323)
+ct(465,323,463,321,463,317)
+ct(466,312,469,309,472,307)
+ct(477,304,482,303,486,303)
+ct(491,303,504,306,524,313)
+ct(530,314,537,314,546,314)
+ct(551,314,553,312,553,309)
+ct(552,301,551,291,550,278)
+ct(548,263,545,247,542,230)
+ct(542,227,542,223,541,220)
+ct(541,217,546,215,556,215)
+ct(563,215,567,218,570,223)
+lt(584,272)
+ct(587,277,589,283,592,289)
+ct(595,295,598,301,600,306)
+ct(605,311,607,317,607,324)
+ct(607,331,603,335,596,337)
+ct(579,348,567,353,561,353)
+  )cp
+dr
+ah((547,238)
+ct(544,238,538,236,528,231)
+ct(505,222,487,215,474,212)
+ct(471,212,468,211,466,208)
+ct(466,203,468,199,471,196)
+ct(475,192,481,190,490,190)
+ct(493,190,496,190,498,191)
+lt(508,193)
+lt(549,201)
+ct(557,206,567,209,578,209)
+ct(581,211,582,213,582,215)
+ct(582,220,578,224,570,229)
+ct(560,235,552,238,547,238)
+  )cp
+dr
+ah((461,336)
+ct(456,336,454,333,454,327)
+ct(454,323,455,318,458,311)
+ fl(458,288,461,295,462,287,462,288,462,288,458,135,458,135,50)
+ct(458,114,460,98,463,85)
+ct(468,70,479,57,494,46)
+ct(511,31,528,23,545,20)
+ct(568,13,597,9,633,9)
+ct(669,9,701,13,730,20)
+ct(756,27,779,38,799,53)
+ct(808,62,813,71,813,78)
+ct(813,85,811,92,808,97)
+ct(799,116,793,129,791,138)
+lt(782,185)
+ct(781,194,779,198,776,198)
+ct(774,196,773,193,772,189)
+lt(764,138)
+ct(763,125,759,112,752,99)
+ct(741,82,721,70,691,61)
+ct(672,55,645,52,612,52)
+ct(589,52,566,54,544,57)
+ct(522,64,507,72,500,81)
+ct(491,94,486,112,486,135)
+ct(486,200,489,248,495,280)
+ct(498,293,500,300,500,302)
+ct(500,311,495,319,485,327)
+ct(475,333,467,336,461,336)
+  )cp
+endchar;
+
+beginchar(107,1024*FX#,756*FY#,140*FY#);
+"k";
+dh("hs(-140,21)")
+dh("hs(736,756)")
+dh("vs(64,225)")
+dh("vs(304,331)")
+dh("vs(371,384)")
+dh("vs(424,437)")
+dh("vs(483,530)")
+dh("vs(570,596)")
+dh("vs(729,960)")
+ih
+dr
+ah((566,607)
+lt(530,607)
+lt(530,534)
+ct(495,478,466,415,444,346)
+ct(439,344,437,340,437,335)
+lt(437,322)
+ )
+dh("hs(-140,21)")
+dh("hs(736,756)")
+dh("vs(64,225)")
+dh("vs(304,331)")
+dh("vs(371,384)")
+dh("vs(424,450)")
+dh("vs(483,530)")
+dh("vs(570,596)")
+dh("vs(729,960)")
+cth(441,315,445,309,450,303)
+lt(450,173)
+ )
+dh("hs(-140,21)")
+dh("hs(736,756)")
+dh("vs(64,225)")
+dh("vs(304,331)")
+dh("vs(371,384)")
+dh("vs(424,437)")
+dh("vs(483,530)")
+dh("vs(570,596)")
+dh("vs(729,960)")
+cth(450,167,446,156,437,141)
+lt(437,130)
+ )
+dh("hs(-140,21)")
+dh("hs(736,756)")
+dh("vs(64,225)")
+dh("vs(304,331)")
+dh("vs(371,384)")
+dh("vs(424,450)")
+dh("vs(483,530)")
+dh("vs(570,596)")
+dh("vs(729,960)")
+cth(446,102,450,83,450,72)
+lt(477,72)
+lt(477,43)
+lt(490,43)
+ct(527,28,554,20,570,21)
+ct(586,16,600,14,613,14)
+lt(644,14)
+ct(672,18,698,23,721,28)
+lt(752,33)
+ct(760,35,765,36,768,36)
+lt(808,75)
+lt(808,108)
+lt(782,133)
+lt(782,216)
+lt(755,216)
+ct(752,194,747,168,742,137)
+lt(729,101)
+lt(676,72)
+lt(523,72)
+lt(477,122)
+lt(477,180)
+lt(490,195)
+lt(543,209)
+ct(552,214,561,216,570,216)
+ct(570,232,572,251,576,274)
+ct(582,297,593,314,609,325)
+lt(576,361)
+lt(556,361)
+lt(490,332)
+lt(477,332)
+lt(477,354)
+lt(510,390)
+ct(514,399,516,409,516,419)
+lt(523,419)
+ct(528,410,533,405,537,404)
+lt(649,433)
+lt(676,433)
+lt(676,346)
+ct(663,305,657,281,656,274)
+lt(633,245)
+lt(627,245)
+ct(622,249,618,254,616,260)
+lt(596,260)
+lt(596,238)
+lt(616,216)
+ct(624,192,633,178,642,173)
+lt(676,173)
+ct(676,184,678,198,682,216)
+lt(696,231)
+lt(709,274)
+ct(716,321,722,357,729,383)
+lt(729,455)
+lt(699,491)
+lt(696,491)
+ct(689,491,683,489,676,484)
+lt(636,469)
+ct(603,459,577,452,556,448)
+lt(543,448)
+lt(543,455)
+lt(563,477)
+lt(576,534)
+lt(596,556)
+lt(596,571)
+  )cp
+dr
+ah((371,592)
+lt(304,592)
+lt(304,578)
+lt(331,520)
+lt(331,336)
+ct(318,284,312,254,311,245)
+lt(298,216)
+lt(271,130)
+ct(268,124,261,119,251,115)
+lt(238,115)
+ct(238,106,236,97,231,86)
+lt(211,64)
+lt(211,43)
+lt(278,79)
+ct(315,148,339,184,351,187)
+ct(357,187,369,168,387,130)
+ )
+dh("hs(-140,21)")
+dh("hs(736,756)")
+dh("vs(64,225)")
+dh("vs(304,331)")
+dh("vs(371,384)")
+dh("vs(424,437)")
+dh("vs(483,530)")
+dh("vs(570,596)")
+dh("vs(729,960)")
+lth(424,130)
+ )
+dh("hs(-140,21)")
+dh("hs(736,756)")
+dh("vs(64,225)")
+dh("vs(304,331)")
+dh("vs(371,384)")
+dh("vs(424,450)")
+dh("vs(483,530)")
+dh("vs(570,596)")
+dh("vs(729,960)")
+lth(424,198)
+ct(418,193,413,196,410,209)
+ct(389,214,371,216,357,216)
+ct(357,225,359,239,364,260)
+lt(377,361)
+ )
+dh("hs(-140,21)")
+dh("hs(736,756)")
+dh("vs(64,225)")
+dh("vs(304,331)")
+dh("vs(371,384)")
+dh("vs(424,437)")
+dh("vs(483,530)")
+dh("vs(570,596)")
+dh("vs(729,960)")
+cth(387,380,403,390,424,390)
+lt(424,419)
+lt(463,419)
+lt(463,455)
+ )
+dh("hs(-140,21)")
+dh("hs(736,756)")
+dh("vs(64,225)")
+dh("vs(304,331)")
+dh("vs(371,384)")
+dh("vs(424,450)")
+dh("vs(483,530)")
+dh("vs(570,596)")
+dh("vs(729,960)")
+lth(450,469)
+lt(410,491)
+lt(384,419)
+lt(384,404)
+lt(371,404)
+lt(371,520)
+ct(375,525,379,531,384,539)
+lt(384,551)
+ct(384,556,382,560,377,563)
+ct(373,572,371,582,371,592)
+  )cp
+dr
+ah((245,404)
+lt(225,404)
+lt(225,361)
+ct(233,326,251,302,278,289)
+lt(284,289)
+lt(304,310)
+lt(304,354)
+ct(300,363,287,372,264,383)
+  )cp
+dr
+ah((477,231)
+ct(477,236,479,241,483,245)
+ct(484,262,490,281,503,303)
+lt(530,318)
+lt(530,245)
+ct(526,245,513,240,490,231)
+  )cp
+dr
+ah((512,756)
+ct(634,756,739,712,828,623)
+ct(916,535,960,430,960,308)
+ct(960,187,916,81,828,-8)
+ct(739,-96,633,-140,512,-140)
+ct(390,-140,285,-96,197,-8)
+ct(108,81,64,186,64,308)
+ct(64,431,108,536,197,623)
+ct(284,712,389,756,512,756)
+  )cp
+endchar;
+
+beginchar(112,1024*FX#,756*FY#,144*FY#);
+"p";
+dh("hs(84,164)")
+dh("hs(228,308)")
+dh("hs(532,580)")
+dh("hs(736,756)")
+dh("vs(64,304)")
+dh("vs(416,480)")
+dh("vs(528,592)")
+dh("vs(656,704)")
+dh("vs(800,964)")
+ih
+dr
+ah((636,644)
+ct(632,644,628,641,624,636)
+lt(480,620)
+ )
+dh("hs(84,164)")
+dh("hs(228,308)")
+dh("hs(736,756)")
+dh("vs(64,304)")
+dh("vs(384,464)")
+dh("vs(528,592)")
+dh("vs(656,704)")
+dh("vs(800,964)")
+lth(384,604)
+ct(381,599,377,596,374,596)
+ct(370,601,367,606,364,612)
+lt(320,612)
+lt(320,332)
+ct(320,327,315,319,304,309)
+lt(304,301)
+ct(309,301,315,295,320,284)
+lt(320,260)
+lt(512,308)
+lt(696,308)
+lt(720,279)
+ct(720,270,717,258,712,244)
+ct(707,236,704,228,704,220)
+lt(704,132)
+lt(680,84)
+ )
+dh("hs(68,164)")
+dh("hs(228,308)")
+dh("hs(340,372)")
+dh("hs(436,484)")
+dh("hs(736,756)")
+dh("vs(64,304)")
+dh("vs(416,480)")
+dh("vs(528,592)")
+dh("vs(656,704)")
+dh("vs(800,964)")
+cth(671,75,663,69,656,68)
+ )
+dh("hs(84,164)")
+dh("hs(228,308)")
+dh("hs(532,580)")
+dh("hs(736,756)")
+dh("vs(64,304)")
+dh("vs(416,480)")
+dh("vs(528,592)")
+dh("vs(656,704)")
+dh("vs(800,964)")
+cth(653,68,637,73,608,84)
+lt(592,84)
+lt(592,44)
+lt(632,4)
+ct(637,-7,640,-17,640,-28)
+lt(684,-28)
+ct(684,-24,699,-8,728,20)
+ )
+dh("hs(68,164)")
+dh("hs(228,308)")
+dh("hs(340,372)")
+dh("hs(436,484)")
+dh("hs(736,756)")
+dh("vs(64,304)")
+dh("vs(416,480)")
+dh("vs(528,592)")
+dh("vs(656,704)")
+dh("vs(800,964)")
+lth(744,68)
+lt(760,100)
+ct(771,163,785,233,800,308)
+lt(800,340)
+lt(768,340)
+lt(709,356)
+lt(682,356)
+lt(616,340)
+lt(528,340)
+lt(528,388)
+lt(624,404)
+lt(672,404)
+lt(672,436)
+ )
+dh("hs(228,308)")
+dh("hs(452,484)")
+dh("hs(736,756)")
+dh("vs(64,304)")
+dh("vs(416,480)")
+dh("vs(528,592)")
+dh("vs(656,704)")
+dh("vs(800,964)")
+cth(669,436,653,441,624,452)
+lt(592,452)
+ )
+dh("hs(228,308)")
+dh("hs(436,484)")
+dh("hs(532,580)")
+dh("hs(736,756)")
+dh("vs(64,304)")
+dh("vs(416,480)")
+dh("vs(528,592)")
+dh("vs(656,704)")
+dh("vs(800,964)")
+cth(589,452,573,447,544,436)
+lt(528,436)
+ )
+dh("hs(228,308)")
+dh("hs(420,468)")
+dh("hs(736,756)")
+dh("vs(64,304)")
+dh("vs(416,480)")
+dh("vs(528,592)")
+dh("vs(656,704)")
+dh("vs(800,964)")
+lth(528,468)
+ )
+dh("hs(228,308)")
+dh("hs(452,484)")
+dh("hs(736,756)")
+dh("vs(64,304)")
+dh("vs(416,480)")
+dh("vs(528,592)")
+dh("vs(656,704)")
+dh("vs(800,964)")
+cth(546,469,575,475,616,484)
+ )
+dh("hs(228,308)")
+dh("hs(436,484)")
+dh("hs(532,580)")
+dh("hs(736,756)")
+dh("vs(64,304)")
+dh("vs(416,480)")
+dh("vs(528,592)")
+dh("vs(656,704)")
+dh("vs(800,964)")
+lth(656,484)
+lt(656,508)
+lt(632,532)
+lt(560,532)
+ )
+dh("hs(228,308)")
+dh("hs(516,580)")
+dh("hs(736,756)")
+dh("vs(64,304)")
+dh("vs(416,480)")
+dh("vs(528,592)")
+dh("vs(656,704)")
+dh("vs(800,964)")
+cth(552,526,544,521,536,516)
+lt(528,516)
+lt(528,580)
+ )
+dh("hs(84,164)")
+dh("hs(228,308)")
+dh("hs(532,580)")
+dh("hs(736,756)")
+dh("vs(64,304)")
+dh("vs(416,480)")
+dh("vs(528,592)")
+dh("vs(656,704)")
+dh("vs(800,964)")
+lth(616,580)
+lt(664,596)
+lt(688,596)
+lt(688,628)
+lt(664,628)
+  )cp
+dh("hs(228,308)")
+dh("hs(516,564)")
+dh("hs(736,756)")
+dh("vs(64,304)")
+dh("vs(384,464)")
+dh("vs(528,592)")
+dh("vs(656,704)")
+dh("vs(800,964)")
+ih
+dr
+ah((384,564)
+ct(403,564,424,567,448,572)
+ )
+dh("hs(228,308)")
+dh("hs(516,580)")
+dh("hs(736,756)")
+dh("vs(64,304)")
+dh("vs(384,464)")
+dh("vs(528,592)")
+dh("vs(656,704)")
+dh("vs(800,964)")
+cth(453,577,459,580,464,580)
+ )
+dh("hs(228,308)")
+dh("hs(516,564)")
+dh("hs(736,756)")
+dh("vs(64,304)")
+dh("vs(384,464)")
+dh("vs(528,592)")
+dh("vs(656,704)")
+dh("vs(800,964)")
+lth(464,516)
+lt(384,516)
+  )cp
+dh("hs(228,308)")
+dh("hs(420,468)")
+dh("hs(736,756)")
+dh("vs(64,304)")
+dh("vs(368,464)")
+dh("vs(528,592)")
+dh("vs(656,704)")
+dh("vs(800,964)")
+ih
+dr
+ah((368,420)
+lt(368,468)
+lt(464,468)
+lt(464,420)
+  )cp
+dh("hs(228,308)")
+dh("hs(324,372)")
+dh("hs(736,756)")
+dh("vs(64,304)")
+dh("vs(368,464)")
+dh("vs(528,592)")
+dh("vs(656,704)")
+dh("vs(800,964)")
+ih
+dr
+ah((368,324)
+lt(368,372)
+ )
+dh("hs(228,308)")
+dh("hs(340,372)")
+dh("hs(736,756)")
+dh("vs(64,304)")
+dh("vs(416,480)")
+dh("vs(528,592)")
+dh("vs(656,704)")
+dh("vs(800,964)")
+lth(480,372)
+lt(480,340)
+lt(456,340)
+ )
+dh("hs(228,308)")
+dh("hs(324,372)")
+dh("hs(736,756)")
+dh("vs(64,304)")
+dh("vs(368,464)")
+dh("vs(528,592)")
+dh("vs(656,704)")
+dh("vs(800,964)")
+lth(408,324)
+  )cp
+dr
+ah((560,260)
+lt(544,260)
+lt(544,236)
+lt(584,196)
+ )
+dh("hs(84,164)")
+dh("hs(228,308)")
+dh("hs(736,756)")
+dh("vs(64,304)")
+dh("vs(416,480)")
+dh("vs(528,592)")
+dh("vs(656,704)")
+dh("vs(800,964)")
+cth(589,185,592,175,592,164)
+ )
+dh("hs(68,164)")
+dh("hs(228,308)")
+dh("hs(736,756)")
+dh("vs(64,304)")
+dh("vs(528,592)")
+dh("vs(656,704)")
+dh("vs(800,964)")
+lth(656,164)
+lt(656,224)
+ct(649,220,644,224,640,236)
+ct(608,243,581,251,560,260)
+  )cp
+dr
+ah((224,244)
+ct(224,223,221,201,216,180)
+ct(207,167,199,160,192,160)
+ )
+dh("hs(84,164)")
+dh("hs(228,308)")
+dh("hs(736,756)")
+dh("vs(64,304)")
+dh("vs(416,480)")
+dh("vs(528,592)")
+dh("vs(656,704)")
+dh("vs(800,964)")
+lth(192,84)
+lt(248,84)
+lt(272,104)
+lt(272,244)
+  )cp
+dh("hs(-144,148)")
+dh("hs(228,308)")
+dh("hs(736,756)")
+dh("vs(64,304)")
+dh("vs(416,480)")
+dh("vs(528,592)")
+dh("vs(656,704)")
+dh("vs(800,964)")
+ih
+dr
+ah((480,244)
+lt(432,244)
+lt(432,220)
+lt(472,180)
+ct(477,169,480,159,480,148)
+lt(528,148)
+lt(528,228)
+lt(512,228)
+  )cp
+dr
+ah((352,228)
+lt(320,228)
+ )
+dh("hs(84,164)")
+dh("hs(228,308)")
+dh("hs(736,756)")
+dh("vs(64,304)")
+dh("vs(416,480)")
+dh("vs(528,592)")
+dh("vs(656,704)")
+dh("vs(800,964)")
+lth(344,164)
+lt(376,132)
+lt(416,132)
+lt(416,188)
+lt(400,204)
+  )cp
+dr
+ah((512,756)
+ct(634,756,740,712,830,623)
+ct(919,535,964,430,964,308)
+ct(964,187,919,81,830,-10)
+ )
+dh("hs(-144,148)")
+dh("hs(228,308)")
+dh("hs(736,756)")
+dh("vs(64,304)")
+dh("vs(528,592)")
+dh("vs(656,704)")
+dh("vs(800,964)")
+cth(739,-99,633,-144,512,-144)
+ct(390,-144,285,-99,197,-10)
+ct(108,80,64,186,64,308)
+ct(64,431,108,536,197,623)
+ct(284,712,389,756,512,756)
+  )cp
+endchar;
+
+beginchar(80,1024*FX#,756*FY#,140*FY#);
+"P";
+dh("hs(-140,-104)")
+dh("hs(547,574)")
+dh("hs(720,756)")
+dh("vs(64,100)")
+dh("vs(365,379)")
+dh("vs(486,538)")
+dh("vs(733,781)")
+dh("vs(924,960)")
+ih
+dr
+ah((512,756)
+ct(634,756,739,712,828,623)
+ct(916,535,960,430,960,308)
+ct(960,187,916,81,828,-8)
+ct(739,-96,633,-140,512,-140)
+ct(390,-140,285,-96,197,-8)
+ct(108,81,64,186,64,308)
+ct(64,431,108,536,197,623)
+ct(284,712,389,756,512,756)
+  )cp
+dr
+ah((512,720)
+ct(400,720,303,679,222,598)
+ct(141,517,100,420,100,308)
+ct(100,196,141,99,222,18)
+ct(303,-63,400,-104,512,-104)
+ct(624,-104,721,-63,802,18)
+ct(883,99,924,196,924,308)
+ct(924,420,883,517,802,598)
+ct(721,679,624,720,512,720)
+  )cp
+dr
+ah((641,607)
+ct(636,606,631,605,626,604)
+ct(602,598,573,592,540,586)
+ct(515,582,491,579,468,577)
+ct(445,575,422,574,401,574)
+ct(390,572,381,570,375,568)
+ct(375,564,379,559,386,552)
+ct(393,549,406,547,425,547)
+ct(448,547,497,552,571,562)
+ct(594,564,615,566,632,569)
+ct(647,571,659,573,666,575)
+ct(679,576,685,579,685,583)
+ct(685,590,681,595,672,599)
+ct(659,604,648,607,641,607)
+  )cp
+dr
+ah((347,585)
+ct(338,585,334,580,334,569)
+ct(336,565,339,560,342,555)
+ct(349,543,352,529,352,514)
+lt(350,431)
+ct(350,396,345,362,335,331)
+ct(332,324,330,318,327,313)
+ct(327,305,330,295,337,284)
+ct(344,272,350,266,356,266)
+ct(361,266,368,268,377,273)
+ct(382,274,388,276,393,279)
+lt(414,285)
+lt(469,298)
+ct(546,304,624,308,703,310)
+ct(723,310,733,302,733,286)
+ct(732,241,728,203,723,172)
+ct(719,141,708,118,689,102)
+ct(678,91,670,85,664,85)
+lt(670,12)
+ct(678,12,689,17,704,26)
+ct(731,43,749,66,758,97)
+ct(770,129,778,170,781,221)
+ct(782,254,789,277,800,291)
+ct(803,298,806,304,808,311)
+ct(808,317,797,324,775,333)
+ct(750,346,735,352,732,352)
+ct(723,351,712,351,701,350)
+ct(675,345,650,342,626,339)
+ct(602,339,569,336,526,331)
+lt(386,311)
+ct(381,311,379,316,379,325)
+ct(384,436,389,506,394,536)
+ct(399,547,401,553,401,556)
+ct(400,565,391,571,375,575)
+ct(364,582,355,585,347,585)
+  )cp
+dr
+ah((608,106)
+ct(605,106,603,103,603,96)
+ct(627,61,642,39,647,29)
+ct(656,18,663,12,670,12)
+lt(664,85)
+ct(661,85,642,92,608,106)
+  )cp
+dr
+ah((610,511)
+ct(603,510,593,507,582,504)
+ct(523,495,463,488,401,482)
+ct(382,479,372,476,372,471)
+ct(372,464,378,458,390,455)
+ct(401,454,411,453,421,453)
+ct(430,453,451,455,485,460)
+ct(510,462,532,464,551,467)
+ct(558,467,565,468,573,469)
+ct(582,471,587,472,586,471)
+ct(597,473,615,475,641,477)
+ct(660,480,670,485,670,491)
+ct(670,495,662,500,646,506)
+ct(627,509,615,511,610,511)
+  )cp
+dr
+ah((616,432)
+ct(608,430,598,427,586,424)
+ct(523,415,460,408,395,403)
+ct(375,400,365,397,365,392)
+ct(365,385,371,379,384,376)
+ct(395,375,405,374,415,374)
+ct(429,374,452,376,483,380)
+ct(510,382,534,384,553,387)
+ct(569,388,581,390,589,391)
+lt(647,398)
+ct(666,401,676,406,676,411)
+ct(676,415,668,420,652,426)
+ct(629,430,617,432,616,432)
+  )cp
+dr
+ah((488,571)
+ct(477,571,472,566,472,557)
+lt(478,543)
+ct(483,535,486,528,486,521)
+lt(488,316)
+lt(527,316)
+lt(538,508)
+ct(538,514,539,521,541,530)
+ct(542,535,543,538,543,540)
+ct(543,549,538,555,527,557)
+ct(511,566,498,571,488,571)
+  )cp
+dr
+ah((262,256)
+ct(258,252,256,247,255,240)
+ct(254,235,241,208,218,161)
+ct(217,155,216,150,215,146)
+ct(214,144,214,142,214,140)
+ct(214,131,216,122,219,114)
+ct(225,105,233,100,244,100)
+ct(248,100,252,103,257,108)
+ct(264,116,270,127,273,141)
+ct(281,164,285,184,285,201)
+ct(285,209,280,223,271,244)
+ct(269,252,266,256,262,256)
+  )cp
+dr
+ah((347,233)
+ct(343,233,341,230,340,223)
+ct(341,221,342,219,343,218)
+ct(359,188,372,168,382,158)
+ct(387,155,392,154,396,154)
+ct(412,154,420,162,420,178)
+ct(420,191,416,202,408,210)
+ct(399,215,386,220,368,226)
+ct(359,231,352,233,347,233)
+  )cp
+dr
+ah((463,245)
+ct(458,245,456,241,455,234)
+lt(459,230)
+ct(478,198,493,178,502,169)
+ct(509,166,514,165,518,165)
+ct(534,165,542,173,542,189)
+ct(542,203,538,214,529,221)
+ct(518,226,503,232,485,237)
+ct(476,242,468,245,463,245)
+  )cp
+dr
+ah((572,259)
+ct(568,259,566,255,565,248)
+lt(569,244)
+ct(592,211,610,190,623,180)
+ct(629,178,635,177,642,177)
+ct(658,177,666,185,666,200)
+ct(666,214,661,224,651,231)
+ct(638,240,620,247,599,252)
+ct(588,257,579,259,572,259)
+  )cp
+endchar;
+
+beginchar(87,1024*FX#,756*FY#,144*FY#);
+"W";
+dh("hs(-144,-108)")
+dh("hs(131,176)")
+dh("hs(177,228)")
+dh("hs(505,529)")
+dh("hs(720,756)")
+dh("vs(64,100)")
+dh("vs(458,534)")
+dh("vs(642,724)")
+dh("vs(928,964)")
+ih
+dr
+ah((512,756)
+ct(634,756,740,712,830,623)
+ct(919,535,964,430,964,308)
+ct(964,187,919,81,830,-10)
+ct(739,-99,633,-144,512,-144)
+ct(390,-144,285,-99,197,-10)
+ct(108,80,64,186,64,308)
+ct(64,431,108,536,197,623)
+ct(284,712,389,756,512,756)
+  )cp
+dr
+ah((512,720)
+ct(400,720,303,679,222,598)
+ct(141,517,100,420,100,308)
+ct(100,196,141,99,222,16)
+ct(303,-67,400,-108,512,-108)
+ct(624,-108,721,-67,804,16)
+ct(887,99,928,196,928,308)
+ct(928,420,887,517,804,598)
+ct(721,679,624,720,512,720)
+  )cp
+dr
+ah((631,568)
+ct(625,567,619,567,614,566)
+ct(587,561,554,555,517,550)
+ct(489,545,461,540,434,537)
+ct(409,533,384,530,359,529)
+ct(339,529,329,527,329,524)
+ct(329,520,333,515,341,509)
+ct(348,506,362,505,385,505)
+ct(414,505,469,509,550,518)
+ct(577,521,600,525,619,528)
+ct(636,531,650,533,659,535)
+ct(673,536,680,540,680,547)
+ct(680,554,675,558,666,561)
+ct(649,566,638,568,631,568)
+  )cp
+dr
+ah((318,443)
+ct(311,443,308,439,308,431)
+ct(310,428,312,426,314,426)
+ct(325,413,331,402,333,392)
+ct(337,375,341,355,344,330)
+lt(352,273)
+ct(352,264,355,256,362,248)
+ct(366,243,370,240,375,240)
+ct(378,240,381,241,384,244)
+ct(387,252,388,259,388,265)
+ct(388,283,384,324,375,389)
+ct(374,401,373,410,373,417)
+ct(373,425,364,431,346,436)
+ct(337,441,327,443,318,443)
+  )cp
+dr
+ah((645,482)
+ct(635,482,616,478,588,470)
+ct(506,451,420,440,329,436)
+ct(329,423,337,417,353,417)
+ct(398,417,442,421,486,429)
+ct(525,432,557,435,584,438)
+ct(605,441,620,442,629,442)
+ct(638,442,642,438,642,429)
+ct(642,409,639,385,634,357)
+ct(628,323,621,299,614,284)
+ct(612,281,611,277,610,273)
+ct(615,257,621,249,630,249)
+ct(645,249,656,256,661,269)
+lt(698,382)
+ct(703,403,709,418,718,426)
+ct(722,429,724,432,724,436)
+ct(724,444,714,452,694,460)
+ct(665,475,649,482,645,482)
+  )cp
+dr
+ah((587,388)
+ct(580,387,572,387,561,386)
+ct(505,377,448,368,390,359)
+ct(372,359,363,357,363,353)
+ct(363,345,369,339,380,336)
+ct(389,335,399,334,409,334)
+ct(422,334,442,336,469,340)
+ct(518,348,550,351,565,350)
+ct(572,351,580,352,588,353)
+ct(594,355,603,356,616,357)
+ct(634,361,643,366,643,371)
+ct(643,376,635,380,620,382)
+ct(604,386,593,388,587,388)
+  )cp
+dr
+ah((585,295)
+ct(576,295,558,293,531,289)
+ct(478,282,425,277,373,276)
+ct(366,276,363,273,363,266)
+ct(363,262,365,258,369,255)
+ct(373,252,381,250,394,250)
+ct(406,251,421,252,438,253)
+lt(545,261)
+ct(568,262,593,262,620,263)
+ct(627,263,630,265,630,269)
+ct(630,277,625,283,615,287)
+ct(601,292,591,295,585,295)
+  )cp
+dr
+ah((779,228)
+lt(695,215)
+ct(642,212,597,209,561,208)
+ct(540,207,512,205,477,202)
+ct(436,198,389,194,336,189)
+ct(274,180,228,176,197,176)
+ct(184,176,178,174,178,169)
+ct(178,166,186,160,201,149)
+ct(219,137,232,131,239,131)
+ct(243,131,258,134,284,139)
+ct(339,153,411,163,499,169)
+ct(580,175,652,179,715,181)
+ct(733,181,754,180,778,177)
+ct(796,177,812,177,825,178)
+ct(839,178,846,182,846,189)
+ct(846,196,837,204,820,213)
+ct(797,223,784,228,779,228)
+  )cp
+dr
+ah((469,644)
+ct(462,644,458,640,458,632)
+ct(460,626,462,620,464,613)
+ct(473,587,477,558,477,525)
+lt(477,50)
+ct(477,21,479,-1,482,-16)
+ct(485,-21,488,-25,491,-28)
+ct(495,-28,499,-24,504,-15)
+ct(510,-2,514,16,517,40)
+ct(521,72,523,112,523,159)
+lt(524,516)
+ct(524,555,526,584,531,603)
+ct(532,605,532,607,532,610)
+ct(533,615,534,619,534,621)
+ct(534,627,527,631,512,633)
+ct(498,640,484,644,469,644)
+  )cp
+endchar;
+
+beginchar(119,1024*FX#,756*FY#,144*FY#);
+"w";
+dh("hs(-144,-60)")
+dh("hs(196,244)")
+dh("hs(292,340)")
+dh("hs(468,532)")
+dh("hs(676,756)")
+dh("vs(64,304)")
+dh("vs(384,480)")
+dh("vs(528,624)")
+dh("vs(624,640)")
+ih
+dr
+ah((448,676)
+ct(448,671,451,665,456,660)
+lt(472,596)
+ct(477,591,480,585,480,580)
+lt(464,580)
+lt(432,564)
+lt(320,564)
+lt(320,532)
+ct(322,532,338,527,368,516)
+lt(384,516)
+ct(387,516,411,521,456,532)
+lt(480,532)
+lt(480,468)
+lt(304,468)
+lt(304,444)
+ct(323,394,336,343,344,292)
+ct(349,271,352,255,352,244)
+lt(480,244)
+lt(480,196)
+lt(224,196)
+lt(192,180)
+lt(176,180)
+lt(176,148)
+ct(187,148,197,145,208,140)
+lt(232,116)
+lt(244,116)
+ct(272,127,292,135,304,140)
+ct(312,145,320,148,328,148)
+lt(480,148)
+lt(480,-60)
+lt(512,-60)
+lt(512,116)
+lt(528,148)
+lt(528,164)
+lt(664,164)
+lt(702,180)
+lt(716,180)
+ct(724,174,735,169,748,164)
+lt(848,164)
+lt(848,204)
+ )
+dh("hs(-144,-60)")
+dh("hs(220,244)")
+dh("hs(676,756)")
+dh("vs(64,304)")
+dh("vs(384,480)")
+dh("vs(528,624)")
+dh("vs(624,640)")
+lth(832,220)
+lt(785,244)
+ct(769,244,753,241,736,236)
+ct(688,227,651,221,624,220)
+ )
+dh("hs(-144,-60)")
+dh("hs(212,260)")
+dh("hs(308,356)")
+dh("hs(500,548)")
+dh("hs(676,756)")
+dh("vs(64,304)")
+dh("vs(384,480)")
+dh("vs(528,624)")
+dh("vs(624,640)")
+cth(599,214,583,211,576,212)
+lt(528,212)
+lt(528,260)
+lt(584,260)
+ )
+dh("hs(-144,-60)")
+dh("hs(220,244)")
+dh("hs(676,756)")
+dh("vs(64,304)")
+dh("vs(384,480)")
+dh("vs(528,624)")
+dh("vs(624,640)")
+cth(595,254,609,249,628,244)
+lt(652,244)
+ )
+dh("hs(-144,-60)")
+dh("hs(212,260)")
+dh("hs(308,356)")
+dh("hs(500,548)")
+dh("hs(676,756)")
+dh("vs(64,304)")
+dh("vs(384,480)")
+dh("vs(528,624)")
+dh("vs(624,640)")
+cth(652,249,656,255,664,260)
+lt(680,308)
+ct(681,365,699,410,736,444)
+lt(736,460)
+ct(736,468,715,481,672,500)
+lt(624,500)
+ )
+dh("hs(-144,-60)")
+dh("hs(484,548)")
+dh("hs(676,756)")
+dh("vs(64,304)")
+dh("vs(384,480)")
+dh("vs(528,624)")
+dh("vs(624,640)")
+cth(621,500,597,495,552,484)
+lt(528,484)
+lt(528,524)
+lt(548,548)
+ )
+dh("hs(-144,-60)")
+dh("hs(500,548)")
+dh("hs(676,756)")
+dh("vs(64,304)")
+dh("vs(384,480)")
+dh("vs(528,624)")
+dh("vs(624,640)")
+lth(688,548)
+lt(688,596)
+lt(528,596)
+lt(528,676)
+  )cp
+dh("hs(-144,-60)")
+dh("hs(404,452)")
+dh("hs(676,756)")
+dh("vs(64,304)")
+dh("vs(384,480)")
+dh("vs(528,624)")
+dh("vs(624,640)")
+ih
+dr
+ah((600,452)
+lt(640,452)
+ )
+dh("hs(-144,-60)")
+dh("hs(388,436)")
+dh("hs(676,756)")
+dh("vs(64,304)")
+dh("vs(384,480)")
+dh("vs(528,624)")
+dh("vs(624,640)")
+lth(640,388)
+ct(635,388,629,391,624,396)
+ )
+dh("hs(-144,-60)")
+dh("hs(404,452)")
+dh("hs(676,756)")
+dh("vs(64,304)")
+dh("vs(384,480)")
+dh("vs(528,624)")
+dh("vs(624,640)")
+lth(624,404)
+lt(528,404)
+ )
+dh("hs(-144,-60)")
+dh("hs(388,436)")
+dh("hs(676,756)")
+dh("vs(64,304)")
+dh("vs(384,480)")
+dh("vs(528,624)")
+dh("vs(624,640)")
+lth(528,436)
+ct(541,436,557,439,576,444)
+ )
+dh("hs(-144,-60)")
+dh("hs(404,452)")
+dh("hs(676,756)")
+dh("vs(64,304)")
+dh("vs(384,480)")
+dh("vs(528,624)")
+dh("vs(624,640)")
+cth(584,449,592,452,600,452)
+  )cp
+dr
+ah((368,408)
+lt(368,436)
+lt(480,436)
+lt(480,388)
+lt(392,388)
+  )cp
+dh("hs(-144,-60)")
+dh("hs(308,356)")
+dh("hs(676,756)")
+dh("vs(64,304)")
+dh("vs(384,480)")
+dh("vs(528,624)")
+dh("vs(624,640)")
+ih
+dr
+ah((528,308)
+lt(528,356)
+lt(624,356)
+lt(624,332)
+lt(604,308)
+  )cp
+dh("hs(-144,-60)")
+dh("hs(292,340)")
+dh("hs(676,756)")
+dh("vs(64,304)")
+dh("vs(384,480)")
+dh("vs(528,624)")
+dh("vs(624,640)")
+ih
+dr
+ah((384,292)
+lt(384,340)
+lt(480,340)
+lt(480,292)
+  )cp
+dr
+ah((512,756)
+ct(634,756,740,712,830,623)
+ )
+dh("hs(-144,-60)")
+dh("hs(308,356)")
+dh("hs(676,756)")
+dh("vs(64,304)")
+dh("vs(384,480)")
+dh("vs(528,624)")
+dh("vs(624,640)")
+cth(919,535,964,430,964,308)
+ct(964,187,919,81,830,-10)
+ct(739,-99,633,-144,512,-144)
+ct(390,-144,285,-99,197,-10)
+ct(108,80,64,186,64,308)
+ct(64,431,108,536,197,623)
+ct(284,712,389,756,512,756)
+  )cp
+endchar;
+
+beginchar(115,1024*FX#,756*FY#,144*FY#);
+"s";
+dh("hs(-144,-60)")
+dh("hs(276,340)")
+dh("hs(404,452)")
+dh("hs(532,564)")
+dh("hs(736,756)")
+dh("vs(320,352)")
+ih
+dr
+ah((504,676)
+lt(432,676)
+lt(432,636)
+lt(480,588)
+lt(480,580)
+ct(452,580,420,577,384,572)
+ct(336,567,293,564,256,564)
+lt(256,532)
+ct(275,532,296,529,320,524)
+ct(320,516,321,513,324,516)
+ct(327,516,331,519,336,524)
+lt(528,540)
+lt(640,556)
+ct(669,561,695,564,720,564)
+lt(720,612)
+lt(616,612)
+ct(608,612,600,609,592,604)
+ct(573,599,557,596,544,596)
+ct(544,607,541,623,536,644)
+  )cp
+dr
+ah((652,532)
+lt(592,532)
+lt(592,508)
+ct(571,465,557,430,552,404)
+ct(538,395,530,384,528,372)
+ fl(528,372,528,372,528,356,528,356,525,356,509,361,480,372,50)
+ )
+dh("hs(-144,-60)")
+dh("hs(276,340)")
+dh("hs(404,452)")
+dh("hs(532,564)")
+dh("hs(736,756)")
+dh("vs(320,352)")
+dh("vs(448,464)")
+lth(464,372)
+ )
+dh("hs(-144,-60)")
+dh("hs(276,340)")
+dh("hs(404,452)")
+dh("hs(532,564)")
+dh("hs(736,756)")
+dh("vs(64,464)")
+lth(464,276)
+ct(425,276,383,273,336,268)
+ct(277,263,219,261,160,260)
+lt(160,228)
+lt(176,228)
+ct(194,221,209,216,221,212)
+lt(271,212)
+ct(310,217,345,222,376,228)
+ct(389,226,401,227,410,231)
+ct(420,231,427,233,432,236)
+ct(443,241,453,244,464,244)
+lt(464,12)
+lt(480,-36)
+lt(480,-60)
+lt(496,-60)
+lt(496,-44)
+lt(528,20)
+lt(528,244)
+lt(832,244)
+lt(832,252)
+lt(848,268)
+lt(808,308)
+lt(768,308)
+ct(758,307,741,306,716,304)
+lt(600,292)
+lt(544,292)
+lt(544,348)
+ct(549,358,565,369,592,380)
+lt(616,404)
+ct(634,371,669,350,720,340)
+lt(720,396)
+ct(686,423,654,436,624,436)
+lt(624,452)
+ct(635,452,645,455,656,460)
+lt(672,476)
+lt(672,508)
+  )cp
+dr
+ah((412,516)
+ )
+dh("hs(-144,-60)")
+dh("hs(276,340)")
+dh("hs(404,452)")
+dh("hs(532,564)")
+dh("hs(736,756)")
+dh("vs(320,352)")
+dh("vs(448,464)")
+lth(352,516)
+lt(352,500)
+ct(326,436,310,404,304,404)
+lt(288,396)
+lt(256,364)
+lt(256,324)
+lt(336,364)
+lt(360,388)
+lt(404,340)
+lt(448,340)
+lt(448,404)
+ct(445,404,429,409,400,420)
+lt(384,420)
+ct(388,423,393,431,400,444)
+ct(411,449,421,452,432,452)
+lt(432,492)
+  )cp
+dr
+ah((512,756)
+ct(634,756,740,712,830,623)
+ct(919,535,964,430,964,308)
+ct(964,187,919,81,830,-10)
+ct(739,-99,633,-144,512,-144)
+ct(390,-144,285,-99,197,-10)
+ )
+dh("hs(-144,-60)")
+dh("hs(276,340)")
+dh("hs(404,452)")
+dh("hs(532,564)")
+dh("hs(736,756)")
+dh("vs(64,464)")
+cth(108,80,64,186,64,308)
+ct(64,431,108,536,197,623)
+ct(284,712,389,756,512,756)
+  )cp
+chp[115]:=currentpicture;
+endchar;
+
+beginchar(83,1024*FX#,756*FY#,144*FY#);
+"S";
+dh("hs(-144,-108)")
+dh("hs(228,276)")
+dh("hs(720,756)")
+dh("vs(64,100)")
+dh("vs(405,474)")
+dh("vs(564,626)")
+dh("vs(928,964)")
+ih
+dr
+ah((512,756)
+ct(634,756,740,712,830,623)
+ct(919,535,964,430,964,308)
+ct(964,187,919,81,830,-10)
+ct(739,-99,633,-144,512,-144)
+ct(390,-144,285,-99,197,-10)
+ct(108,80,64,186,64,308)
+ct(64,431,108,536,197,623)
+ct(284,712,389,756,512,756)
+  )cp
+dr
+ah((512,720)
+ct(400,720,303,679,222,598)
+ct(141,517,100,420,100,308)
+ct(100,196,141,99,222,16)
+ct(303,-67,400,-108,512,-108)
+ct(624,-108,721,-67,804,16)
+ct(887,99,928,196,928,308)
+ct(928,420,887,517,804,598)
+ct(721,679,624,720,512,720)
+  )cp
+dr
+ah((571,611)
+ct(566,609,562,607,558,604)
+ct(539,589,512,572,477,551)
+ct(458,541,439,532,421,524)
+ct(405,516,390,510,375,505)
+ct(368,502,362,499,358,496)
+ct(358,493,365,491,378,491)
+ct(391,491,422,497,470,508)
+ct(535,529,582,541,613,544)
+ct(628,547,636,553,636,562)
+ct(636,567,628,576,613,588)
+ct(596,603,582,611,571,611)
+  )cp
+dr
+ah((352,537)
+ct(342,537,337,531,337,518)
+ct(339,515,341,513,343,511)
+ct(348,500,350,491,350,485)
+lt(391,231)
+lt(430,231)
+lt(401,468)
+ct(401,473,402,482,404,494)
+ct(406,499,407,504,407,508)
+ct(407,513,402,519,391,524)
+ct(376,533,363,537,352,537)
+  )cp
+dr
+ah((646,456)
+ct(643,456,630,452,605,443)
+ct(563,432,524,423,487,415)
+ct(454,408,424,402,397,397)
+lt(387,397)
+ct(387,392,394,387,409,382)
+ct(412,381,414,381,417,381)
+ct(424,380,429,379,433,379)
+ct(449,382,470,386,496,391)
+ct(579,407,642,416,687,419)
+ct(692,420,697,423,700,426)
+ct(700,430,694,436,681,444)
+ct(662,452,650,456,646,456)
+  )cp
+dr
+ah((570,408)
+ct(559,408,554,403,554,394)
+lt(558,385)
+ct(562,373,564,363,564,354)
+ct(564,345,563,333,561,316)
+ct(559,295,556,271,553,243)
+lt(587,243)
+lt(611,336)
+ct(612,345,616,354,622,362)
+ct(623,365,625,366,626,367)
+ct(626,376,619,385,605,394)
+ct(590,403,579,408,570,408)
+  )cp
+dr
+ah((750,276)
+ct(745,275,735,275,722,274)
+ct(703,270,682,266,657,262)
+ct(630,258,601,255,568,252)
+ct(499,248,433,244,372,239)
+ct(355,236,335,234,312,232)
+ct(286,229,257,227,224,226)
+ct(213,226,208,224,208,219)
+ct(208,212,216,206,233,203)
+ct(249,194,261,190,268,190)
+ct(267,190,277,192,300,196)
+ct(363,210,420,217,471,218)
+ct(541,223,601,226,652,227)
+ct(695,227,737,227,776,228)
+ct(800,228,812,230,812,235)
+ct(812,246,803,256,786,265)
+ct(765,272,753,276,750,276)
+  )cp
+dr
+ah((415,180)
+ct(408,180,405,178,405,174)
+ct(405,157,402,145,397,140)
+ct(383,121,360,97,328,70)
+ct(304,49,279,29,252,9)
+ct(254,8,257,8,260,8)
+ct(264,8,271,10,281,13)
+ct(293,16,310,23,332,34)
+ct(359,50,389,72,421,100)
+ct(434,111,448,121,464,130)
+ct(471,135,474,139,474,142)
+ct(474,152,465,160,448,167)
+ct(429,176,418,180,415,180)
+  )cp
+dr
+ah((551,171)
+ct(549,170,548,168,548,165)
+ct(548,162,554,155,565,144)
+ct(578,135,599,113,628,77)
+ct(650,46,668,28,681,22)
+ct(689,17,695,14,700,14)
+ct(705,14,709,17,713,23)
+ct(714,27,715,30,715,31)
+ct(717,35,718,39,718,42)
+ct(718,57,714,71,707,84)
+ct(697,101,677,117,647,133)
+ct(624,144,601,154,577,164)
+ct(563,169,554,171,551,171)
+  )cp
+chp[83]:=currentpicture;
+endchar;
+
+beginchar(76,1024*FX#,756*FY#,144*FY#);
+"L";
+dh("hs(-144,-108)")
+dh("hs(720,756)")
+dh("vs(64,100)")
+dh("vs(928,964)")
+ih
+dr
+ah((512,756)
+ct(634,756,740,712,830,623)
+ct(919,535,964,430,964,308)
+ct(964,187,919,81,830,-10)
+ct(739,-99,633,-144,512,-144)
+ct(390,-144,285,-99,197,-10)
+ct(108,80,64,186,64,308)
+ct(64,431,108,536,197,623)
+ct(284,712,389,756,512,756)
+  )cp
+dr
+ah((512,720)
+ct(400,720,303,679,222,598)
+ct(141,517,100,420,100,308)
+ct(100,196,141,99,222,16)
+ct(303,-67,400,-108,512,-108)
+ct(624,-108,721,-67,804,16)
+ct(887,99,928,196,928,308)
+ct(928,420,887,517,804,598)
+ct(721,679,624,720,512,720)
+  )cp
+endchar;
+
+beginchar(108,1024*FX#,756*FY#,144*FY#);
+"l";
+dh("hs(736,756)")
+ih
+dr
+ah((512,756)
+ct(634,756,740,712,830,623)
+ct(919,535,964,430,964,308)
+ct(964,187,919,81,830,-10)
+ct(739,-99,633,-144,512,-144)
+ct(390,-144,285,-99,197,-10)
+ct(108,80,64,186,64,308)
+ct(64,431,108,536,197,623)
+ct(284,712,389,756,512,756)
+  )cp
+endchar;
+
+beginchar(48,1024*FX#,820*FY#,203*FY#);
+"zero";
+dh("hs(-203,-182)")
+dh("hs(148,164)")
+dh("hs(292,324)")
+dh("hs(452,468)")
+dh("hs(800,820)")
+dh("vs(496,528)")
+dh("vs(656,672)")
+ih
+dr
+ah((496,-203)
+lt(496,820)
+lt(528,820)
+lt(528,324)
+lt(1023,324)
+lt(1023,292)
+lt(528,292)
+lt(528,-203)
+  )cp
+dr
+ah((656,452)
+lt(656,740)
+lt(672,740)
+lt(672,468)
+lt(944,468)
+lt(944,452)
+  )cp
+dr
+ah((656,-124)
+lt(656,164)
+lt(944,164)
+lt(944,148)
+lt(672,148)
+lt(672,-124)
+  )cp
+endchar;
+
+beginchar(49,1024*FX#,820*FY#,203*FY#);
+"one";
+dh("hs(-203,-182)")
+dh("hs(148,164)")
+dh("hs(292,324)")
+dh("hs(452,468)")
+dh("hs(800,820)")
+dh("vs(352,368)")
+dh("vs(496,528)")
+dh("vs(656,672)")
+dh("vst")
+ih
+dr
+ah((496,324)
+lt(496,820)
+lt(528,820)
+lt(528,324)
+lt(1023,324)
+lt(1023,292)
+lt(528,292)
+lt(528,-203)
+lt(496,-203)
+lt(496,292)
+lt(0,292)
+lt(0,324)
+  )cp
+dr
+ah((352,468)
+lt(352,740)
+lt(368,740)
+lt(368,452)
+lt(80,452)
+lt(80,468)
+  )cp
+dr
+ah((656,452)
+lt(656,740)
+lt(672,740)
+lt(672,468)
+lt(944,468)
+lt(944,452)
+  )cp
+dr
+ah((80,148)
+lt(80,164)
+lt(368,164)
+lt(368,-124)
+lt(352,-124)
+lt(352,148)
+  )cp
+dr
+ah((656,-124)
+lt(656,164)
+lt(944,164)
+lt(944,148)
+lt(672,148)
+lt(672,-124)
+  )cp
+endchar;
+
+beginchar(50,1024*FX#,820*FY#,203*FY#);
+"two";
+dh("hs(-203,-182)")
+dh("hs(148,164)")
+dh("hs(292,324)")
+dh("hs(452,468)")
+dh("hs(800,820)")
+dh("vs(352,368)")
+dh("vs(496,528)")
+ih
+dr
+ah((496,324)
+lt(496,820)
+lt(528,820)
+lt(528,-203)
+lt(496,-203)
+lt(496,292)
+lt(0,292)
+lt(0,324)
+  )cp
+dr
+ah((352,468)
+lt(352,740)
+lt(368,740)
+lt(368,452)
+lt(80,452)
+lt(80,468)
+  )cp
+dr
+ah((80,148)
+lt(80,164)
+lt(368,164)
+lt(368,-124)
+lt(352,-124)
+lt(352,148)
+  )cp
+endchar;
+
+beginchar(51,1024*FX#,820*FY#,200*FY#);
+"three";
+dh("hs(-200,-179)")
+dh("hs(292,323)")
+dh("hs(800,820)")
+dh("vs(497,528)")
+ih
+dr
+ah((528,292)
+lt(528,-200)
+lt(497,-200)
+lt(497,820)
+lt(528,820)
+lt(528,323)
+lt(1020,323)
+lt(1020,292)
+  )cp
+endchar;
+
+beginchar(52,1024*FX#,820*FY#,200*FY#);
+"four";
+dh("hs(-200,-179)")
+dh("hs(292,323)")
+dh("hs(800,820)")
+dh("vs(497,528)")
+ih
+dr
+ah((528,292)
+lt(528,-200)
+lt(497,-200)
+lt(497,292)
+lt(0,292)
+lt(0,323)
+lt(497,323)
+lt(497,820)
+lt(528,820)
+lt(528,323)
+lt(1020,323)
+lt(1020,292)
+  )cp
+endchar;
+
+beginchar(53,1024*FX#,820*FY#,200*FY#);
+"five";
+dh("hs(-200,-179)")
+dh("hs(292,323)")
+dh("hs(800,820)")
+dh("vs(497,528)")
+ih
+dr
+ah((497,323)
+lt(497,820)
+lt(528,820)
+lt(528,-200)
+lt(497,-200)
+lt(497,292)
+lt(0,292)
+lt(0,323)
+  )cp
+endchar;
+
+beginchar(54,1024*FX#,323*FY#,200*FY#);
+"six";
+dh("hs(-200,-179)")
+dh("hs(292,323)")
+dh("vs(497,528)")
+ih
+dr
+ah((497,292)
+lt(0,292)
+lt(0,323)
+lt(1020,323)
+lt(1020,292)
+lt(528,292)
+lt(528,-200)
+lt(497,-200)
+  )cp
+endchar;
+
+beginchar(55,1024*FX#,820*FY#,0*FY#);
+"seven";
+dh("hs(292,323)")
+dh("hs(800,820)")
+dh("vs(497,528)")
+ih
+dr
+ah((497,323)
+lt(497,820)
+lt(528,820)
+lt(528,323)
+lt(1020,323)
+lt(1020,292)
+lt(0,292)
+lt(0,323)
+  )cp
+endchar;
+
+beginchar(56,1024*FX#,323*FY#,200*FY#);
+"eight";
+dh("hs(-200,-179)")
+dh("hs(292,323)")
+dh("vs(497,528)")
+ih
+dr
+ah((1020,323)
+lt(1020,292)
+lt(528,292)
+lt(528,-200)
+lt(497,-200)
+lt(497,323)
+  )cp
+endchar;
+
+beginchar(57,1024*FX#,820*FY#,0*FY#);
+"nine";
+dh("hs(292,323)")
+dh("hs(800,820)")
+dh("vs(497,528)")
+ih
+dr
+ah((497,820)
+lt(528,820)
+lt(528,323)
+lt(1020,323)
+lt(1020,292)
+lt(497,292)
+  )cp
+endchar;
+
+beginchar(65,1024*FX#,323*FY#,200*FY#);
+"A";
+dh("hs(-200,-179)")
+dh("hs(292,323)")
+dh("vs(497,528)")
+ih
+dr
+ah((0,323)
+lt(528,323)
+lt(528,-200)
+lt(497,-200)
+lt(497,292)
+lt(0,292)
+  )cp
+chp[65]:=currentpicture;
+endchar;
+
+beginchar(66,1024*FX#,820*FY#,0*FY#);
+"B";
+dh("hs(292,323)")
+dh("hs(800,820)")
+dh("vs(497,528)")
+ih
+dr
+ah((497,820)
+lt(528,820)
+lt(528,292)
+lt(0,292)
+lt(0,323)
+lt(497,323)
+  )cp
+endchar;
+
+beginchar(67,1024*FX#,820*FY#,203*FY#);
+"C";
+dh("hs(-203,-182)")
+dh("hs(260,356)")
+dh("hs(800,820)")
+dh("vs(496,528)")
+ih
+dr
+ah((0,796)
+lt(0,820)
+lt(24,820)
+lt(488,356)
+lt(496,356)
+lt(496,820)
+lt(528,820)
+lt(528,356)
+lt(536,356)
+lt(1000,820)
+lt(1023,820)
+lt(1023,796)
+ )
+dh("hs(-203,-182)")
+dh("hs(292,324)")
+dh("hs(800,820)")
+dh("vs(464,560)")
+lth(560,332)
+lt(560,324)
+lt(1023,324)
+lt(1023,292)
+lt(560,292)
+lt(560,284)
+lt(1023,-180)
+lt(1023,-203)
+lt(1000,-203)
+ )
+dh("hs(-203,-182)")
+dh("hs(260,356)")
+dh("hs(800,820)")
+dh("vs(496,528)")
+lth(536,260)
+lt(528,260)
+lt(528,-203)
+lt(496,-203)
+lt(496,260)
+lt(488,260)
+lt(24,-203)
+lt(0,-203)
+lt(0,-180)
+ )
+dh("hs(-203,-182)")
+dh("hs(292,324)")
+dh("hs(800,820)")
+dh("vs(464,560)")
+lth(464,284)
+lt(464,292)
+lt(0,292)
+lt(0,324)
+lt(464,324)
+lt(464,332)
+  )cp
+chp[67]:=currentpicture;
+endchar;
+
+beginchar(68,1024*FX#,820*FY#,203*FY#);
+"D";
+dh("hs(-203,-182)")
+dh("hs(260,324)")
+dh("hs(800,820)")
+dh("vs(496,528)")
+ih
+dr
+ah((496,324)
+lt(496,820)
+lt(528,820)
+ )
+dh("hs(-203,-182)")
+dh("hs(292,324)")
+dh("hs(800,820)")
+dh("vs(496,528)")
+lth(528,324)
+lt(1023,324)
+lt(1023,292)
+ )
+dh("hs(-203,-182)")
+dh("hs(292,324)")
+dh("hs(800,820)")
+dh("vs(464,528)")
+lth(528,292)
+ )
+dh("hs(-203,-182)")
+dh("hs(260,324)")
+dh("hs(800,820)")
+dh("vs(496,528)")
+lth(528,-203)
+lt(496,-203)
+lt(496,260)
+lt(488,260)
+lt(24,-203)
+lt(0,-203)
+lt(0,-180)
+ )
+dh("hs(-203,-182)")
+dh("hs(292,324)")
+dh("hs(800,820)")
+dh("vs(464,528)")
+lth(464,284)
+lt(464,292)
+lt(0,292)
+lt(0,324)
+  )cp
+endchar;
+
+beginchar(71,1024*FX#,820*FY#,203*FY#);
+"G";
+dh("hs(-203,-182)")
+dh("hs(292,324)")
+dh("hs(800,820)")
+dh("vs(496,528)")
+ih
+dr
+ah((496,324)
+lt(496,820)
+lt(528,820)
+ )
+dh("hs(-203,-182)")
+dh("hs(260,324)")
+dh("hs(800,820)")
+dh("vs(496,528)")
+lth(528,324)
+ )
+dh("hs(-203,-182)")
+dh("hs(292,324)")
+dh("hs(800,820)")
+dh("vs(496,560)")
+lth(1023,324)
+lt(1023,292)
+lt(560,292)
+lt(560,284)
+lt(1023,-180)
+lt(1023,-203)
+lt(1000,-203)
+ )
+dh("hs(-203,-182)")
+dh("hs(260,324)")
+dh("hs(800,820)")
+dh("vs(496,528)")
+lth(536,260)
+lt(528,260)
+lt(528,-203)
+lt(496,-203)
+ )
+dh("hs(-203,-182)")
+dh("hs(292,324)")
+dh("hs(800,820)")
+dh("vs(496,560)")
+lth(496,292)
+lt(0,292)
+lt(0,324)
+  )cp
+endchar;
+
+beginchar(72,1024*FX#,820*FY#,203*FY#);
+"H";
+dh("hs(-203,-182)")
+dh("hs(292,324)")
+dh("hs(800,820)")
+dh("vs(496,560)")
+ih
+dr
+ah((496,324)
+ )
+dh("hs(-203,-182)")
+dh("hs(292,356)")
+dh("hs(800,820)")
+dh("vs(496,528)")
+lth(496,820)
+lt(528,820)
+lt(528,356)
+lt(536,356)
+lt(1000,820)
+lt(1023,820)
+lt(1023,796)
+ )
+dh("hs(-203,-182)")
+dh("hs(292,324)")
+dh("hs(800,820)")
+dh("vs(496,560)")
+lth(560,332)
+lt(560,324)
+lt(1023,324)
+lt(1023,292)
+ )
+dh("hs(-203,-182)")
+dh("hs(292,356)")
+dh("hs(800,820)")
+dh("vs(496,528)")
+lth(528,292)
+lt(528,-203)
+lt(496,-203)
+ )
+dh("hs(-203,-182)")
+dh("hs(292,324)")
+dh("hs(800,820)")
+dh("vs(496,528)")
+lth(496,292)
+lt(0,292)
+lt(0,324)
+  )cp
+endchar;
+
+beginchar(73,1024*FX#,820*FY#,203*FY#);
+"I";
+dh("hs(-203,-182)")
+dh("hs(292,356)")
+dh("hs(800,820)")
+dh("vs(496,528)")
+ih
+dr
+ah((0,796)
+lt(0,820)
+lt(24,820)
+lt(488,356)
+lt(496,356)
+lt(496,820)
+lt(528,820)
+ )
+dh("hs(-203,-182)")
+dh("hs(292,324)")
+dh("hs(800,820)")
+dh("vs(464,528)")
+lth(528,324)
+lt(1023,324)
+lt(1023,292)
+ )
+dh("hs(-203,-182)")
+dh("hs(292,324)")
+dh("hs(800,820)")
+dh("vs(496,528)")
+lth(528,292)
+lt(528,-203)
+lt(496,-203)
+ )
+dh("hs(-203,-182)")
+dh("hs(292,356)")
+dh("hs(800,820)")
+dh("vs(496,528)")
+lth(496,292)
+ )
+dh("hs(-203,-182)")
+dh("hs(292,324)")
+dh("hs(800,820)")
+dh("vs(464,528)")
+lth(0,292)
+lt(0,324)
+lt(464,324)
+lt(464,332)
+  )cp
+chp[73]:=currentpicture;
+endchar;
+
+beginchar(74,1024*FX#,820*FY#,0*FY#);
+"J";
+dh("hs(292,324)")
+dh("hs(800,820)")
+dh("vs(496,560)")
+ih
+dr
+ah((496,324)
+ )
+dh("hs(292,324)")
+dh("hs(800,820)")
+dh("vs(496,528)")
+lth(496,820)
+lt(528,820)
+lt(528,356)
+lt(536,356)
+lt(1000,820)
+lt(1023,820)
+lt(1023,796)
+ )
+dh("hs(292,324)")
+dh("hs(800,820)")
+dh("vs(496,560)")
+lth(560,332)
+lt(560,324)
+lt(1023,324)
+lt(1023,292)
+lt(0,292)
+lt(0,324)
+  )cp
+endchar;
+
+beginchar(78,1024*FX#,820*FY#,0*FY#);
+"N";
+dh("hs(292,324)")
+dh("hs(800,820)")
+dh("vs(496,528)")
+ih
+dr
+ah((0,796)
+lt(0,820)
+lt(24,820)
+lt(488,356)
+lt(496,356)
+lt(496,820)
+lt(528,820)
+ )
+dh("hs(292,324)")
+dh("hs(800,820)")
+dh("vs(464,528)")
+lth(528,324)
+lt(1023,324)
+lt(1023,292)
+lt(0,292)
+lt(0,324)
+lt(464,324)
+lt(464,332)
+  )cp
+chp[78]:=currentpicture;
+endchar;
+
+beginchar(79,1024*FX#,324*FY#,203*FY#);
+"O";
+dh("hs(-203,-182)")
+dh("hs(292,324)")
+dh("vs(496,560)")
+ih
+dr
+ah((0,292)
+lt(0,324)
+lt(1023,324)
+lt(1023,292)
+lt(560,292)
+lt(560,284)
+lt(1023,-180)
+lt(1023,-203)
+lt(1000,-203)
+lt(536,260)
+ )
+dh("hs(-203,-182)")
+dh("hs(292,324)")
+dh("vs(496,528)")
+lth(528,260)
+lt(528,-203)
+lt(496,-203)
+ )
+dh("hs(-203,-182)")
+dh("hs(292,324)")
+dh("vs(496,560)")
+lth(496,292)
+  )cp
+chp[79]:=currentpicture;
+endchar;
+
+beginchar(81,1024*FX#,324*FY#,203*FY#);
+"Q";
+dh("hs(-203,-182)")
+dh("hs(292,324)")
+dh("vs(464,528)")
+ih
+dr
+ah((0,292)
+lt(0,324)
+lt(1023,324)
+lt(1023,292)
+lt(528,292)
+ )
+dh("hs(-203,-182)")
+dh("hs(292,324)")
+dh("vs(496,528)")
+lth(528,-203)
+lt(496,-203)
+lt(496,260)
+lt(488,260)
+lt(24,-203)
+lt(0,-203)
+lt(0,-180)
+ )
+dh("hs(-203,-182)")
+dh("hs(292,324)")
+dh("vs(464,528)")
+lth(464,284)
+lt(464,292)
+  )cp
+endchar;
+
+font_slant := 0.0000;
+font_normal_space := 250 * FX#;
+font_normal_stretch := 125 * FX#;
+font_normal_shrink := 83 * FX#;
+font_x_height := 400 * FY#;
+font_quad := 1024 * FX#;
+designsize := FontSize;
+font_coding_scheme := "TeX text";
+font_identifier := "Untitled2";
+end.
+% That's all, Folks!
diff --git a/Master/texmf-dist/fonts/source/public/xq/xqlarge.mf b/Master/texmf-dist/fonts/source/public/xq/xqlarge.mf
new file mode 100644
index 00000000000..4cf780093e5
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/xq/xqlarge.mf
@@ -0,0 +1,12 @@
+% Untitled2
+mode_setup;
+if unknown FontSize: FontSize := 10pt#; fi
+
+%FX# := FontSize * 1000.0000;
+%FY# := FontSize * 1000.0000;
+%FX# := FontSize * 0.001971;
+%FY# := FontSize * 0.001971;
+FX# := FontSize * 0.0031536;
+FY# := FontSize * 0.0031536;
+
+input xqbase;
diff --git a/Master/texmf-dist/fonts/source/public/xq/xqnormal.mf b/Master/texmf-dist/fonts/source/public/xq/xqnormal.mf
new file mode 100644
index 00000000000..5f405fa9692
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/xq/xqnormal.mf
@@ -0,0 +1,12 @@
+% Untitled2
+mode_setup;
+if unknown FontSize: FontSize := 10pt#; fi
+
+%FX# := FontSize * 1000.0000;
+%FY# := FontSize * 1000.0000;
+FX# := FontSize * 0.001971;
+FY# := FontSize * 0.001971;
+%FX# := FontSize * 0.0031536;
+%FY# := FontSize * 0.0031536;
+
+input xqbase;
diff --git a/Master/texmf-dist/fonts/tfm/public/xq/xqlarge.tfm b/Master/texmf-dist/fonts/tfm/public/xq/xqlarge.tfm
new file mode 100644
index 00000000000..f7cd4e089ec
--- /dev/null
+++ b/Master/texmf-dist/fonts/tfm/public/xq/xqlarge.tfm
diff --git a/Master/texmf-dist/fonts/tfm/public/xq/xqnormal.tfm b/Master/texmf-dist/fonts/tfm/public/xq/xqnormal.tfm
new file mode 100644
index 00000000000..9ecc75d17bf
--- /dev/null
+++ b/Master/texmf-dist/fonts/tfm/public/xq/xqnormal.tfm
diff --git a/Master/texmf-dist/tex/latex/xq/xq.sty b/Master/texmf-dist/tex/latex/xq/xq.sty
new file mode 100644
index 00000000000..a1b85894a90
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/xq/xq.sty
@@ -0,0 +1,22286 @@
+%xq.sty, version 0.2
+
+%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. 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
+%stewei@surfeu.de
+
+
+
+%define a language for input of positions
+\def\german{german}
+\def\english{english}
+%\def\nameofmylanguage{nameofmylanguage}
+
+\def\mylanguage #1 {
+\def\checklangg{#1}
+
+\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\mylanguage
+%\gdef\redking{*}%input your favorite 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\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
+}
+
+
+
+%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\bnullset=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\bnullset=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
+\if\endlr\endlb \if\endrr\endrb \def\signB{$\times$} \fi\fi
+
+%defines what is actually shown in the move blocks
+\if\startlr\xli \advance\movecount by-1 \def\rply{$\ldots$} \else \def\rply{\npr\startlr\startrr\signR\endlr\endrr}\fi
+\if\startlb\xli \def\bply{ } \else \def\bply{\npb\startlb\startrb\signB\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
+}
+%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}
+\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{\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 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}{5}\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{\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 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}{5}\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 :-)
diff --git a/Master/texmf-dist/tpm/xq.tpm b/Master/texmf-dist/tpm/xq.tpm
new file mode 100644
index 00000000000..8b162573803
--- /dev/null
+++ b/Master/texmf-dist/tpm/xq.tpm
@@ -0,0 +1,32 @@
+<!DOCTYPE rdf:RDF SYSTEM "../../support/tpm.dtd">
+<rdf:RDF xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:TPM="http://texlive.dante.de/">
+  <rdf:Description about="http://texlive.dante.de/texlive/Package/xq.zip">
+    <TPM:Name>xq</TPM:Name>
+    <TPM:Type>Package</TPM:Type>
+    <TPM:Date>2006/09/29 16:32:00</TPM:Date>
+    <TPM:Version></TPM:Version>
+    <TPM:Creator>karl</TPM:Creator>
+    <TPM:Title>The xq package.</TPM:Title>
+    <TPM:Description></TPM:Description>
+    <TPM:Author></TPM:Author>
+    <TPM:Size>1195058</TPM:Size>
+    <TPM:Build/>
+    <TPM:RunFiles size="1124078">
+texmf-dist/fonts/source/public/xq/hints.mf
+texmf-dist/fonts/source/public/xq/xqbase.mf
+texmf-dist/fonts/source/public/xq/xqlarge.mf
+texmf-dist/fonts/source/public/xq/xqnormal.mf
+texmf-dist/fonts/tfm/public/xq/xqlarge.tfm
+texmf-dist/fonts/tfm/public/xq/xqnormal.tfm
+texmf-dist/tex/latex/xq/xq.sty
+texmf-dist/tpm/xq.tpm
+    </TPM:RunFiles>
+    <TPM:DocFiles size="72127">
+texmf-dist/doc/fonts/xq/README
+texmf-dist/doc/fonts/xq/xqexample.pdf
+texmf-dist/doc/fonts/xq/xqexample.tex
+    </TPM:DocFiles>
+    <TPM:Provides>Package/xq</TPM:Provides>
+  </rdf:Description>
+</rdf:RDF>
+
diff --git a/Master/texmf/lists/xq b/Master/texmf/lists/xq
new file mode 100644
index 00000000000..dfba25af8cf
--- /dev/null
+++ b/Master/texmf/lists/xq
@@ -0,0 +1,14 @@
+texmf-dist/doc/fonts/xq/README
+texmf-dist/doc/fonts/xq/xqexample.pdf
+texmf-dist/doc/fonts/xq/xqexample.tex
+
+texmf-dist/fonts/source/public/xq/hints.mf
+texmf-dist/fonts/source/public/xq/xqbase.mf
+texmf-dist/fonts/source/public/xq/xqlarge.mf
+texmf-dist/fonts/source/public/xq/xqnormal.mf
+texmf-dist/fonts/tfm/public/xq/xqlarge.tfm
+texmf-dist/fonts/tfm/public/xq/xqnormal.tfm
+texmf-dist/tex/latex/xq/xq.sty
+texmf-dist/tpm/xq.tpm
+
+texmf/lists/xq
diff --git a/Master/texmf/tpm/collection-games.tpm b/Master/texmf/tpm/collection-games.tpm
index 2ba56be3392..6beafaabfae 100644
--- a/Master/texmf/tpm/collection-games.tpm
+++ b/Master/texmf/tpm/collection-games.tpm
@@ -31,6 +31,7 @@ Setups for typesetting various board games, including chess
       <TPM:Package name="skaknew"/>
       <TPM:Package name="sudoku"/>
       <TPM:Package name="sudokubundle"/>
+      <TPM:Package name="xq"/>
       <TPM:TLCore name="collection-latex"/>
     </TPM:Requires>
     <TPM:Provides>TLCore/collection-games</TPM:Provides>