\ifnum\the\catcode`\%=14\else\expandafter\edef\csname
  \string:RestoreCatcodes\endcsname{\catcode`\%\the
  \catcode`\%}\catcode`\%14\fi
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% tex4ht.sty                           2008-10-27-17:23  %
% Copyright (C) 1996--2008      Eitan M. Gurari          %
%                                                        %
% This work may be distributed and/or modified under the %
% conditions of the LaTeX Project Public License, either %
% version 1.3 of this license or (at your option) any    %
% later version. The latest version of this license is   %
% in                                                     %
%   http://www.latex-project.org/lppl.txt                %
% and version 1.3 or later is part of all distributions  %
% of LaTeX version 2003/12/01 or later.                  %
%                                                        %
% This work has the LPPL maintenance status "maintained".%
%                                                        %
% This Current Maintainer of this work                   %
% is Eitan M. Gurari.                                    %
%                                                        %
% If you modify this program your changing its signature %
% with a directive of the following form will be         %
% appreciated.                                           %
%            \message{signature}                         %
%                                                        %
%                             gurari@cse.ohio-state.edu  %
%                 http://www.cse.ohio-state.edu/~gurari  %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\immediate\write-1{version 2008-10-27-17:23}

\ifx  \Preamble\UnDef  \else
   \csname expand:after\endcsname{\csname
       BeforeTeXIVht\endcsname\let\BeforeTeXIVht\UnDef}
\fi
\expandafter\edef\csname :RestoreCatcodes\endcsname{%
   \expandafter\ifx \csname :RestoreCatcodes\endcsname\relax\else
      \csname :RestoreCatcodes\endcsname \fi
   \ifnum \the\catcode`\ =10 \else
      \catcode`\noexpand\ =\the\catcode`\ \fi
   \ifnum \the\catcode`<=12 \else
      \catcode`\noexpand <\the\catcode`<\fi
   \ifnum \the\catcode`>=12 \else
      \catcode`\noexpand >\the\catcode`>\fi
   \ifnum \the\catcode`\?=12 \else
      \catcode`\noexpand \?\the\catcode`\?\fi
   \ifnum \the\catcode`+=12 \else
      \catcode`\noexpand +\the\catcode`+\fi
   \ifnum \the\catcode`*=12 \else
      \catcode`\noexpand *\the\catcode`*\fi
   \ifnum \the\catcode`;=12 \else
      \catcode`\noexpand ;\the\catcode`;\fi
   \ifnum \the\catcode`~=13 \else
      \catcode`\noexpand ~\the\catcode`~\fi
   \ifnum \the\catcode`$=3 \else
      \catcode`\noexpand $\the\catcode`$\fi
   \ifnum \the\catcode`&=4 \else
      \catcode`\noexpand &\the\catcode`&\fi
   \ifnum \the\catcode`\#=6 \else
      \catcode`\noexpand \#\the\catcode`\#\fi
   \catcode`\noexpand :\the\catcode`:%
   \catcode`\noexpand "\the\catcode`"%
   \catcode`\noexpand @\the\catcode`@%
   \catcode`\noexpand _\the\catcode`_%
   \catcode`\noexpand ^\the\catcode`^%
   \catcode`\noexpand |\the\catcode`|%
   \csname no:restore\endcsname
   \ifnum \the\catcode`^=13
   \let\expandafter\noexpand
                     \csname x:SUPOff\endcsname\noexpand\empty
   \let\expandafter\noexpand
                     \csname x:SUPOn\endcsname\noexpand\empty
   \catcode`\noexpand ^\the\catcode`^\fi
\ifnum \the\catcode`_=13
   \let\expandafter\noexpand
                     \csname x:SUBOff\endcsname\noexpand\empty
   \let\expandafter\noexpand
                     \csname x:SUBOn\endcsname\noexpand\empty
   \catcode`\noexpand _\the\catcode`_\fi
%
   \let\expandafter\noexpand\csname :RestoreCatcodes\endcsname
                                   \noexpand\UnDefcS}
\catcode`~13  \catcode`$3   \catcode`&4  \catcode`\#6
\catcode`\:11 \catcode`\@11 \catcode`;12 \catcode`\ 10
\catcode`\<12 \catcode`\>12 \catcode`+12 \catcode`*12
\catcode`\?12
\edef\SUPOff{%
   \catcode`\noexpand ^\the\catcode`^\relax
}
\edef\SUBOff{%
   \catcode`\noexpand _\the\catcode`_\relax
}
\bgroup
   \catcode`\^13   \global\let\sys:sp^
   \catcode`\_13   \global\let\sys:sb_
\egroup

\catcode`\^7 \catcode`\|=12  \catcode`"12

    \def\:temp{\csname newif\endcsname}
    \def\:tempa#1{%
       \expandafter\ifx \csname #1\endcsname\relax
          \expandafter\:temp   \csname #1\endcsname
       \fi}
\:tempa{if:Option}
\:tempa{if:latex}
\:tempa{if:removeindent}
\:tempa{if:nopar}
\ifx \Htmltrue\:UnDef
   \def\:temp{\csname newif\endcsname}
   \expandafter\:temp \csname ifHtml\endcsname  \Htmlfalse
\fi

    \def\:tempa#1{%
       \expandafter\ifx \csname #1\endcsname\relax
          \expandafter\:temp   \csname #1\endcsname
          \expandafter\expandafter\expandafter\expandafter\expandafter
             \def\expandafter\expandafter\expandafter
             \rmv:ifs\expandafter{\rmv:ifs
             \expandafter\let \csname #1\endcsname  \:UnDef}
       \fi}
    \let\rmv:ifs\empty


\expandafter\ifx \csname @latex@error\endcsname\relax
    \:latexfalse  \tracingstats1
\else
   \if:latex\else \ifx \@currname\empty
   \def\:temp{\ifx \HCode\:UnDef
   \:warning{Missing \string\Preamble...\string\EndPreamble?}\fi}
\edef\:tempa{%
  \noexpand\expandafter
  \noexpand\expandafter
  \noexpand\expandafter
  \noexpand            \def
  \noexpand\expandafter
  \noexpand\expandafter
  \noexpand\expandafter
  \expandafter\noexpand\csname enddocument\endcsname
  \noexpand\expandafter
  \noexpand\expandafter
  \noexpand\expandafter
                      {\noexpand        \expandafter
                       \noexpand        \:temp
           \expandafter\noexpand \csname enddocument\endcsname
                      }%
}  \:tempa

\else
   \ProvidesPackage{tex4ht}
\let\config:file\empty
\def\load:cfg{\def\load:cfg{\let\config:opt\CurrentOption
   \def\load:cfg{\edef\config:opt{\config:opt,\CurrentOption}}%
}%
%
   \def\:temp{\expandafter\cfg:fl\CurrentOption.!*?: }%
   \def\:tempa{html}\ifx \:tempa\CurrentOption \let\:temp\load:cfg \fi
   \def\:tempa{xhtml}\ifx \:tempa\CurrentOption \let\:temp\load:cfg \fi
   \def\:tempa{htm}\ifx \:tempa\CurrentOption \let\:temp\load:cfg \fi
   \def\:tempa{htm3}\ifx \:tempa\CurrentOption \let\:temp\load:cfg \fi
   \def\:tempa{htm4}\ifx \:tempa\CurrentOption \let\:temp\load:cfg \fi
   \def\:tempa{htm5}\ifx \:tempa\CurrentOption \let\:temp\load:cfg \fi
   \:temp
}
\def\cfg:fl#1.#2!*?: {\edef\:tempa{#2}\edef\config:file{%
   \CurrentOption \ifx \:tempa\empty  .cfg\fi}}

\DeclareOption*{\load:cfg}
\ProcessOptions
\let\o:document\document
\def\document{%
   \let\ht:empty\:UnDef
\def\:temp{}\ifx \:temp\empty \else
  \gdef\:temp{}\ifx \:temp\empty \else
     \:warning{Redefined \string\empty?}
     \global\let\ht:empty\empty \gdef\empty{}%
\fi\fi
%
   \expandafter\let\csname enddocument\endcsname\empty
   \end{document}%
   \let\:begindocumenthook\@begindocumenthook
\def\@begindocumenthook{\csname a:AtBeginDocument\endcsname
\:begindocumenthook \csname b:AtBeginDocument\endcsname }%
%
   \let\document\o:document
   \let\:latex@error\@latex@error
   \def\@latex@error##1{\:latex@error{##1 in `\config:file'}}%
   \csname recall:sub\endcsname
\csname recall:sup\endcsname
%
\ifx \config:file\empty
   \def\:temp{\ifx \config:opt\:UnDef
   \edef\config:opt{\ifx \config:file\empty html\fi}\fi
\expandafter\Preamble\expandafter{\config:opt
   }\csname begin\endcsname{document}\EndPreamble
}%
\else
   \def\:temp{\input \config:file\relax
}%
\fi \:temp
%
   \let\@latex@error\:latex@error
}

\fi
\fi
   \:latextrue
   \ifx \:providesfile \:UnDef
      \let\:providesfile\@providesfile
      \def\@providesfile#1{%
         \expandafter\ifx\csname @filelist\endcsname\relax
               \let\@providesfile\:providesfile
         \else \xdef\@filelist{\@filelist,#1}%
         \fi
         \:providesfile{#1}%
      }
   \fi
\fi

\ifx  \Preamble\UnDef
    \ifx \PLATFORM\:UnDef \else
        \message{ [\PLATFORM] }\let\PLATFORM\:UnDef\fi
    \def\Configure#1{%
  \expandafter\ifx \csname c:#1:\endcsname\relax
     \:warning{\string\Configure{#1}?}
  \fi
  \csname c:#1:\endcsname}
\let\c:def\def
\let\d:def\def
\def\NewConfigure#1{\def\:tempa{#1}\futurelet\:temp\Nw:cnf}
\def\Nw:cnf{\ifx [\:temp \edef\:tempa{\noexpand\N:wCnfga{\:tempa}}\else
   \edef\:tempa{\noexpand\N:wCnfgb{\:tempa}}\fi \:tempa}
\def\N:wCnfga#1[#2]{%
  \edef\:temp{\long\def\expandafter
    \noexpand\csname c:#1:\endcsname####1%
    \ifnum #2>1 ####2\fi    \ifnum #2>2 ####3\fi
    \ifnum #2>3 ####4\fi    \ifnum #2>4 ####5\fi
    \ifnum #2>5 ####6\fi    \ifnum #2>6 ####7\fi
    \ifnum #2>7 ####8\fi    \ifnum #2>8 ####9\fi
}\:temp }
\def\N:wCnfgb#1#2{%
  \edef\:temp{\long\def\expandafter
    \noexpand\csname c:#1:\endcsname####1%
    \ifnum #2>1 ####2\fi    \ifnum #2>2 ####3\fi
    \ifnum #2>3 ####4\fi    \ifnum #2>4 ####5\fi
    \ifnum #2>5 ####6\fi    \ifnum #2>6 ####7\fi
    \ifnum #2>7 ####8\fi    \ifnum #2>8 ####9\fi
{\New:Conf{\aNew:Conf#1}{####1}%
      \ifnum #2>1 \New:Conf{\bNew:Conf#1}{####2}\fi
      \ifnum #2>2 \New:Conf{\cNew:Conf#1}{####3}\fi
      \ifnum #2>3 \New:Conf{\dNew:Conf#1}{####4}\fi
      \ifnum #2>4 \New:Conf{\eNew:Conf#1}{####5}\fi
      \ifnum #2>5 \New:Conf{\fNew:Conf#1}{####6}\fi
      \ifnum #2>6 \New:Conf{\gNew:Conf#1}{####7}\fi
      \ifnum #2>7 \New:Conf{\hNew:Conf#1}{####8}\fi
      \ifnum #2>8 \New:Conf{\iNew:Conf#1}{####9}\fi
     }}\:temp}
\def\New:Conf#1{\noexpand\c:def
   \expandafter\noexpand\csname#1\endcsname}%
\def\c:NewConfigure:#1#2#3#4#5#6#7#8#9{%
   \def\aNew:Conf{#1}\def\bNew:Conf{#2}\def\cNew:Conf{#3}%
   \def\dNew:Conf{#4}\def\eNew:Conf{#5}\def\fNew:Conf{#6}%
   \def\gNew:Conf{#7}\def\hNew:Conf{#8}\def\iNew:Conf{#9}}
\Configure{NewConfigure}{a:}{b:}{c:}{d:}{e:}{f:}{g:}{h:}{i:}%

\long\def\ConfigureToc#1#2#3#4#5{%
   \expandafter\def\csname toc#1\endcsname##1##2##3{#5}%
   \def\:temp{#4}\ifx \:temp\empty \else
   \expandafter\pend:defIII\csname toc#1\endcsname{#4####3}%
\fi
\def\:temp{#3}\ifx \:temp\empty \else
   \expandafter\pend:defIII\csname toc#1\endcsname{#3####2}%
\fi
\def\:temp{#2}\ifx \:temp\empty \else
   \expandafter\pend:defIII\csname toc#1\endcsname{#2####1}%
\fi
%
}

\long\def\concat:config#1#2{\def\:temp{#2}%
   \ifx \:temp\empty  \let#1\empty
   \else \ifx #1\relax  \let#1\empty\fi
       \append:def#1{#2}\fi
}
\def\:prolog#1#2,#3!*?: {%
   \if ,#2,\else
      \edef\:tempc{\if*#2\fi}%
      \ifx \:tempc\empty
         \expandafter\append:def
            \csname a:#1\endcsname{\csname a:#2\endcsname}%
         \expandafter\ifx \csname c:#2:\endcsname\relax
            \NewConfigure{#2}{1}%
         \fi
      \else
         \expand:after{\pro:log{#1}}\expandafter{\:tempc}%
   \fi\fi
   \if ,#3,\else \expand:after{\:prolog{#1}#3!*?: }\fi
}
\def\pro:log#1#2{%
   \expandafter\append:def
       \csname a:#1\endcsname{\csname a:#2\endcsname}%
   \expandafter\ifx \csname c:#2:\endcsname\relax
       \NewConfigure{#2}[1]{\expandafter
            \concat:config\csname a:#2\endcsname{##1}}%
       \expandafter\let\csname a:#2\endcsname\relax
   \fi
}
\def\seq:config#1#2{%
   \expandafter\let\csname a:#1\endcsname=\empty
   \:prolog {#1}#2,!*?: }

\NewConfigure{AtBeginDocument}[2]{%
   \def\:temp{#1#2}\ifx \:temp\empty
     \concat:config\a:AtBeginDocument{}
     \concat:config\b:AtBeginDocument{}%
   \else
     \concat:config\a:AtBeginDocument{#1\relax}%
     \concat:config\b:AtBeginDocument{#2\relax}%
   \fi
   \global\let\a:AtBeginDocument=\a:AtBeginDocument
   \global\let\b:AtBeginDocument=\b:AtBeginDocument
}
\Configure{AtBeginDocument}{}{}
\NewConfigure{Css}[1]{\def\aa:Css{#1}}

\catcode`\#=12   \def\#{#}   \catcode`\#=6
\NewConfigure{special}[1]{\def\ht:special{#1}}
\Configure{special}{\special
}
\long\def\expand:after#1{\def\e:tmp{#1}\expandafter\e:tmp}
\def\Log:Note#1{%
   \immediate\write-1{--------------------------------------}%
   \immediate\write-1{--- Note --- #1}%
   \immediate\write-1{--------------------------------------}%
}
\NewConfigure{CutAt-filename}[1]{%
   \expandafter\def\csname a:CutAt-filename\endcsname##1##2{#1}}
\Configure{CutAt-filename}{}
\long\def\append:def#1#2{%
   \def\:temp{\def#1}%
   \expandafter\expandafter\expandafter\:temp\expandafter{#1#2}}
\long\def\pend:def#1#2{%
   \def\:temp{#2}%
   \def\:tempa{\def#1}%
   \expandafter\expandafter\expandafter\expandafter
       \expandafter\expandafter\expandafter\:tempa
   \expandafter\expandafter\expandafter{\expandafter\:temp #1}}
\long\def\pend:defI#1#2{%
   \def\:tempa{\def#1####1}%
   \ex:pend{#2}{\expandafter\:temp #1{##1}}}
\long\def\ex:pend#1{\def\:temp{#1}%
  \expandafter\expandafter\expandafter\expandafter
       \expandafter\expandafter\expandafter\:tempa
   \expandafter\expandafter\expandafter}

    \NewConfigure{ProTex}[1]{\def\a:ProTex{#1}}
\ifx \Log:Needs\:UnDef \else
   \:warning{Again `\noexpand\input tex4ht.sty'?}\fi
\def\:warning#1{\immediate\write16{l.\the\inputlineno\space
            --- TeX4ht warning --- #1 ---}}
\ifx \:ShowCode\:UnDeF \else
   \:warning{tex4ht.sty loaded after ProTeX?}
\fi
  
\def\set:Preamble#1,#2!*?: {%
   \def\:temp{#1}\ifx \:temp\empty \else
      \:CheckOption{#1}\if:Option \else
          \ifx \Preamble\empty \def\Preamble{#1}%
          \else                \append:def\Preamble{,#1}%
   \fi \fi \fi
   \def\:temp{#2}\ifx \:temp\empty \let\set:Preamble\:UnDef
   \else  \expand:after{\set:Preamble#2!*?: }\fi
}
\def\xtrct:hin#1,{\def\:temp{#1}\ifx \:temp\empty
   \def\xtrct:hin##1!*?: {\let\xtrct:hin\:UnDef}\else
      \def\:tempa##1.4ht##2!*?: {%
         \def\:temp{\Hinclude[*]{##1.4ht}}\def\:tempa{##2}}%
      \expandafter\:tempa\:temp .4ht!*?: %
      \ifx \:tempa\empty \else \:temp   \fi
   \fi  \xtrct:hin}
\def\Use:N{0}
\let\:USE\empty
\def\:Use#1{\:USe #1,,\HAdvance\Use:N  1 }
\def\:USe#1,{\def\:temp{#1}\ifx\:temp\empty
     \edef\:temp{\noexpand\append:def\noexpand\:USE{\let\expandafter
      \noexpand\csname Use:\Use:N\endcsname\noexpand\:UnDef}}\:temp
   \else
     \edef\:temp{\noexpand\append:def\noexpand\:USE{\expandafter
      \noexpand\csname Use:\Use:N\endcsname}}\:temp
   \append:def\:USE{{#1}}%
   \expandafter\:USe\fi}
\def\:Hinclude{%
   \def\Hinclude{\afterassignment\:Use
      \expandafter\def\csname Use:\Use:N\endcsname ####1}%
   \def\:Hinclude{\ifx \:USE \empty
       \let\Hinclude\:UnDef
       \let\:Hinclude\:UnDef
       \let\:Use\:UnDef
       \let\:USe\:UnDef
       \let\:USE\:UnDef
     \else
      \pend:def\:USE{\let\:USE\empty}%
      \expand:after{\:USE \:Hinclude}\fi}%
}

\def\:Preamble{\ifx \:next[%
  \def\Preamble[##1]##2{\egroup
    \def\:CheckOption####1{\def\:temp{####1}%
   \:Optionfalse
   \expandafter\:ScanOptions\Preamble,,//}
\def\:ScanOptions####1,####2//{\def\:next{####1}%
   \ifx        \:next\empty
   \else \ifx  \:temp\:next   \:Optiontrue   \let\:next\relax
   \else \def\:next{\:ScanOptions####2//}%
   \fi  \fi  \:next }
%
\ifHtml  \Htmlfalse
     \def\Preamble{html,##2}\else \def\Preamble{##2}\fi
\ifx \config:opt\:UnDef
   \let\:temp\Preamble
\else
   \expandafter\expandafter\expandafter\def
   \expandafter\expandafter\expandafter\:temp
   \expandafter\expandafter\expandafter{%
   \expandafter\config:opt\expandafter,\Preamble}%
\fi
\let\Preamble\empty
\expandafter\set:Preamble\:temp,!*?: %
%
\def\:temp####1.4ht####2!*?: {\def\:temp{####2}%
  \ifx \:temp\empty
    \def\:temp{th4}\ifx \:temp\Preamble \else
      \ht:special{t4ht@[}%
      \input tex4ht.4ht   \ht:special{t4ht@]}%
  \fi \fi}%
\expandafter\:temp\Preamble.4ht!*?: %
\expandafter\xtrct:hin\Preamble,,!*?: %
\:Hinclude
%
%
\input ##1
    }
  \else
  \def\Preamble##1{\egroup \def\:CheckOption####1{\def\:temp{####1}%
   \:Optionfalse
   \expandafter\:ScanOptions\Preamble,,//}
\def\:ScanOptions####1,####2//{\def\:next{####1}%
   \ifx        \:next\empty
   \else \ifx  \:temp\:next   \:Optiontrue   \let\:next\relax
   \else \def\:next{\:ScanOptions####2//}%
   \fi  \fi  \:next }
%
\ifHtml  \Htmlfalse
     \def\Preamble{html,##1}\else \def\Preamble{##1}\fi
\ifx \config:opt\:UnDef
   \let\:temp\Preamble
\else
   \expandafter\expandafter\expandafter\def
   \expandafter\expandafter\expandafter\:temp
   \expandafter\expandafter\expandafter{%
   \expandafter\config:opt\expandafter,\Preamble}%
\fi
\let\Preamble\empty
\expandafter\set:Preamble\:temp,!*?: %
%
\def\:temp####1.4ht####2!*?: {\def\:temp{####2}%
  \ifx \:temp\empty
    \def\:temp{th4}\ifx \:temp\Preamble \else
      \ht:special{t4ht@[}%
      \input tex4ht.4ht   \ht:special{t4ht@]}%
  \fi \fi}%
\expandafter\:temp\Preamble.4ht!*?: %
\expandafter\xtrct:hin\Preamble,,!*?: %
\:Hinclude
%
%
%
                  \input tex4ht.sty }
  \fi        \let\:Preamble\:UnDef     \Preamble  }
\def\Preamble{\bgroup  \catcode`\@12   \catcode`\_8  \catcode`\^7
  \futurelet\:next\:Preamble}
\def\EndPreamble{\b:Preamble \global\let\missing:endpream\empty
  \csname Lv \file:id\endcsname \B:DY}
\def\B:DY{\def\HtmlPar{\HtmlPar:Off{%
   \if:nopar \ShowPar \ShowIndent
      \ifx \skip:Par\empty\else \hskip -\parindent \skip:Par\fi
   \else
     \if:removeindent \ShowIndent \hskip -\parindent \a:Par
     \else
        \ifdim \parindent>\z@ \hskip -\parindent \fi
        \html:par
        \ifdim \parindent>\z@ \hskip  \parindent \fi
   \fi\fi \relax
}}%
%
  \HtmlEnv \IgnorePar \IgnoreIndent {\ht:everypar{}\leavevmode}\a:BODY
  \csname a:@BODY\endcsname}
\def\missing:endpream{\:warning{Missing \string\EndPreamble}}
\NewConfigure{@HTML}[1]{\concat:config\a:@HTML{#1}}
\let\a:@HTML\empty
\NewConfigure{PROLOG}[1]{\seq:config{PROLOG}{#1}}

\let\:Hincl\empty
\def\Hinclude[#1]#2{\xdef\:Hincl{\:Hincl{#1}{#2}}}
\NewConfigure{ext}[1]{%
   \def\:temp##1ext=##2,##3!*?: {%
      \if !##2!\edef\:html{#1}%
      \else \edef\:html{##2}\fi}%
   \expandafter\:temp\Preamble ,ext=,!*?: 
}
\Configure{ext}{html}
\def\c:HtmlPar:#1#2#3#4{%
   \def\:temp{#3}\ifx \:temp\empty \c:def\a:Par{#1}\else
     \c:def\a:Par{#1\Next:EndP{#3}}\fi
   \def\:temp{#4}\ifx \:temp\empty \c:def\html:par{#2}\else
     \c:def\html:par{#2\Next:EndP{#4}}\fi
}
\def\EndP{\Protect\par:end}
\let\par:end\empty
\def\Next:EndP{\Protect\next:endp}
\def\next:endp#1{\gdef\par:end{#1\global\let\par:end\empty}}
\def\SaveHtmlPar{\PushMacro\a:Par \PushMacro\html:par}
\def\RecallHtmlPar{\PopMacro\a:Par \PopMacro\html:par}
\def\gl:let{\global\let}
\def\EndP:cnt{0}
\def\SaveEndP{%
   \expandafter\gl:let\csname \EndP:cnt :sv\endcsname \par:end
   \gl:let\par:end\empty
   \gHAdvance \EndP:cnt  1 }
\def\RecallEndP{%
   \ifnum \EndP:cnt>0
     \gHAdvance \EndP:cnt  -1
     \expand:after{\gl:let\par:end}\csname\EndP:cnt :sv\endcsname
   \else
     \:warning{extra \string\RecallEndP}
   \fi}
\NewConfigure{HTML}[2]{\c:def\a:HTML{#1}\c:def\b:HTML{#2}}
\NewConfigure{HEAD}[2]{\c:def\a:HEAD{#1}\c:def\b:HEAD{#2}}
\NewConfigure{BODY}[2]{\c:def\a:BODY{#1}%
   \c:def\b:BODY{\csname a:@/BODY\endcsname#2}}
\NewConfigure{TITLE}[2]{\c:def\a:TITLE{#1}\c:def\b:TITLE{#2}}
\NewConfigure{TITLE+}[1]{\c:def\c:TITLE{#1}}
\NewConfigure{@TITLE}[1]{\concat:config\:TITLE:{#1}}
\NewConfigure{@HEAD}[1]{\concat:config\a:@HEAD{#1}}
\let\a:@HEAD\relax
\NewConfigure{@BODY}[1]{\concat:config\a:@BODY{#1}}
\let\a:@BODY\relax
\NewConfigure{@/BODY}[1]{\expandafter
   \concat:config\csname a:@/BODY\endcsname{#1}}
\expandafter\let\csname a:@/BODY\endcsname\relax

    \if:latex
   \expandafter\def\csname opt@hyperref.sty\endcsname{tex4ht}

   \ifx \config:opt\:UnDef \else
  \append:def\:RestoreCatcodes{\early:sub\early:sup}
\let\:IfFileExists\IfFileExists
\def\IfFileExists#1#2#3{%
   \csname recall:sub\endcsname
   \csname recall:sup\endcsname
   \expandafter\let\csname #1:sub\endcsname=\early:sub
   \expandafter\let\csname #1:sup\endcsname=\early:sup
   \let\early:sub=\relax     \let\recall:sub\relax
   \let\early:sup=\relax     \let\recall:sup\relax
   \:IfFileExists{#1}{#2}{#3}%
   \expandafter\let\expandafter\early:sub\csname #1:sub\endcsname
   \expandafter\let\expandafter\early:sup\csname #1:sup\endcsname
   \early:sub \early:sup
}
\ifx \o:document\:UnDef
   \pend:def\Preamble{%
     \csname recall:sub\endcsname
     \csname recall:sup\endcsname}
\fi
\def\:CheckOption#1{\def\:temp{#1}%
   \:Optionfalse
   \expandafter\:ScanOptions\config:opt,,//}
\def\:ScanOptions#1,#2//{\def\:next{#1}%
   \ifx        \:next\empty
   \else \ifx  \:temp\:next   \:Optiontrue   \let\:next\relax
   \else \def\:next{\:ScanOptions#2//}%
   \fi  \fi  \:next }
\let\early:sub=\empty
\:CheckOption{early_} \if:Option
   \:CheckOption{no_} \if:Option  \else
      \:CheckOption{_13} \if:Option
           \def\early:sub{%
               \xdef\recall:sub{%
                  \mathcode`\noexpand\_=\the\mathcode`\_
                  \catcode`\noexpand\_=\the\catcode`\_
               }
              \mathcode`\_="8000 \catcode`\_=13
          }
      \else
           \def\early:sub{%
               \xdef\recall:sub{%
                  \mathcode`\noexpand\_=\the\mathcode`\_
                  \catcode`\noexpand\_=\the\catcode`\_
   % \immediate\write16{.....sub \the\catcode`\_}%
               }%
              \mathcode`\_="8000 \catcode`\_=12
   % \immediate\write16{.....sub 12}
          }
      \fi
   \fi
\else
   \Log:Note{for \string_ at preamble,
          use the command line option `early\string_'}%
\fi
\let\early:sup=\empty
\:CheckOption{early^} \if:Option
   \:CheckOption{no^} \if:Option \else
      \:CheckOption{^13} \if:Option
           \def\early:sup{%
               \xdef\recall:sup{%
                  \mathcode`\noexpand\^=\the\mathcode`\^
                  \catcode`\noexpand\^=\the\catcode`\^
               }
              \mathcode`\^="8000 \catcode`\^=13
          }
      \else
           \def\early:sup{%
               \xdef\recall:sup{%
                  \mathcode`\noexpand\^=\the\mathcode`\^
                  \catcode`\noexpand\^=\the\catcode`\^
   % \immediate\write16{.....sup \the\catcode`\^}%
               }%
              \mathcode`\^="8000 \catcode`\^=12
   % \immediate\write16{.....sup 12}%
          }
      \fi
   \fi
\else
   \Log:Note{for \string^ at preamble,
          use the command line option `early\string^'}%
\fi

\let\:CheckOption\:UnDef

\fi

\fi
\let\:onefilewithoptions\@onefilewithoptions
\def\@onefilewithoptions#1[{%
   \let\:temp\@reset@ptions
   \def\@reset@ptions{%
      \let\@reset@ptions\:temp
      \edef\TivhTcats{%
   \catcode`:=\the\catcode`:%
   \catcode`@=\the\catcode`@}%
\catcode`\:=11 \catcode`\@=11
\a:usepackage
      \TivhTcats
}%
   \:onefilewithoptions#1[}
\def\a:usepackage{\input usepackage.4ht }


    \expandafter\ifx \csname tex4ht\endcsname\relax
       \let\:temp\empty
    \else
       \def\:tempc#1#2.#3!*?: {\edef\:tempa{#3}\edef\:temp{%
   #1\ifx \:tempa\empty  .cfg\fi}}
\def\config:opt#1,#2!*?: {\def\:temp{#1}\ifx \:temp\empty
   \else \ifx \:tempc\empty
         \def\:tempc{#1}%
      \else
         \append:def\:tempc{,#1}
   \fi\fi
   \def\:temp{#2}\ifx \:temp\empty
   \else \def\:temp{\config:opt #2!*?: }\fi
   \:temp}

\def\:temp#1,#2!*?: {%
   \def\:temp{\:tempc{#1}#1.!*?: }%
   \def\:tempb{#1}\ifx   \:tempb\empty  \let\:temp\relax \fi
   \def\:tempa{html}\ifx \:tempa\:tempb \let\:temp\relax \fi
   \def\:tempa{xhtml}\ifx\:tempa\:tempb \let\:temp\relax \fi
   \def\:tempa{htm}\ifx  \:tempa\:tempb \let\:temp\relax \fi
   \def\:tempa{htm3}\ifx \:tempa\:tempb \let\:temp\relax \fi
   \def\:tempa{htm4}\ifx \:tempa\:tempb \let\:temp\relax \fi
   \def\:tempa{htm5}\ifx \:tempa\:tempb \let\:temp\relax \fi
   \ifx \:temp\relax
   \let\:tempd\:temp
   \let\:tempc\empty \config:opt #1,#2,!*?: %
\else     \:temp
   \let\:tempd\:temp
   \let\:tempc\empty \config:opt #2,!*?: %
\fi
\let\config:opt\:tempc
\let\:temp\:tempd
%
}

\expandafter\expandafter\expandafter
   \:temp\csname tex4ht\endcsname !*?: %
\ifx \:temp\relax
   \ifx \config:opt\:UnDef
   \edef\config:opt{\ifx \config:file\empty html\fi}\fi
\def\:temp{\expandafter\expandafter\expandafter
   \Preamble\expandafter{\config:opt}\EndPreamble}

   \if:latex \let\:temp\empty \fi
\else
   \if:latex
      \let\config:file\:temp  \let\:temp\empty
   \else
      \edef\:temp{\noexpand\input \:temp\space}
\fi \fi

    \fi
    \let\:tempc\:temp
    \ifx \config:opt\:UnDef \else
   \ifx\tmp:toks\:UnDeF    \csname newtoks\endcsname\tmp:toks\fi
   \def\:temp{\def\ifOption##1}
   \expandafter\expandafter\expandafter\:temp
        \expandafter{\config:opt,,//\if:Option
   \def\:temp{\the\tmp:toks
   \def\:temp{\tmp:toks={}}%
   \afterassignment\:temp \tmp:toks=}%
\afterassignment\:temp
\else \def\:temp{%
   \def\:temp{\the\tmp:toks}%
   \afterassignment\:temp \tmp:toks=}%
\afterassignment\:temp
\fi  \tmp:toks=}
   \pend:defI\ifOption{\def\:temp{##1}\:Optionfalse\:ScanOptions}
\fi

    \pend:def\:tempc{\:RestoreCatcodes }
    \append:def\:tempc{\endinput}
    \let\:temp\:tempc
    \expandafter\:temp
\fi
\def\:tempa#1#2#3#4!*?: {#1#2#3}
\:CheckOption{htm}     \if:Option
   \edef\:html{\expandafter\:tempa\:html\empty\empty!*?: }
   \def\:temp#1#2#3!*?: {\def\j:bname{#1\ifx ?#2\else #2\fi}}
\expandafter\:temp \jobname ?!*?: 

\else \:CheckOption{htm5}     \if:Option
   \edef\:html{\expandafter\:tempa\:html\empty\empty!*?: }
   \def\:temp#1#2#3#4#5#6!*?: {\def\j:bname{#1\ifx ?#2\else
   #2\ifx ?#3\else #3\ifx ?#4\else #4\ifx ?#5\else #5\fi\fi\fi\fi}}
\expandafter\:temp \jobname ????!*?: 

\else \:CheckOption{htm4}     \if:Option
   \edef\:html{\expandafter\:tempa\:html\empty\empty!*?: }
   \def\:temp#1#2#3#4#5!*?: {\def\j:bname{#1\ifx ?#2\else
   #2\ifx ?#3\else #3\ifx ?#4\else #4\fi\fi\fi}}
\expandafter\:temp \jobname ???!*?: 

\else \:CheckOption{htm3}     \if:Option
   \edef\:html{\expandafter\:tempa\:html\empty\empty!*?: }
   \def\:temp#1#2#3#4!*?: {\def\j:bname{#1\ifx ?#2\else
   #2\ifx ?#3\else #3\fi\fi}}
\expandafter\:temp \jobname ??!*?: 

\else   \:CheckOption{xhtml} \if:Option
   \let\j:bname\jobname
\else   \:CheckOption{html}
   \if:Option  \let\j:bname\jobname \fi
\fi \fi \fi \fi \fi
\if:Option
   
   \def\html:rightskip{\rightskip\z@ plus 0.5\hsize  minus0.5\hsize }
\def\HtmlEnv{%
   \html:rightskip  \frenchspacing        
\let\nonfrenchspacing\relax
\spaceskip\z@        
\xspaceskip\z@       
\linepenalty0        
\adjdemerits0        
\pretolerance10000   
\hyphenpenalty10000  
\exhyphenpenalty10000
\clubpenalty0        
\widowpenalty0       
\interlinepenalty50  
\displaywidowpenalty0
\predisplaypenalty-10
\postdisplaypenalty1000
\abovedisplayskip30pt plus 10pt
\belowdisplayskip\abovedisplayskip
\abovedisplayshortskip\abovedisplayskip
\belowdisplayshortskip\abovedisplayskip
%
   \def\magnification{%
      \def\:temp{\:warning{Insert \string\magnification
                           =\the\tmp:cnt\space before tex4ht}}%
      \afterassignment\:temp\tmp:cnt}%
   \ht:everypar{\HtmlPar}}
\let\HtmlPar\empty
\edef\:temp{%
   \output={\noexpand\SaveEverypar \noexpand\ht:everypar{}\the\output
         \noexpand\RecallEverypar}}
\:temp

\edef\:temp{\meaning\everypar}
\edef\:tempa{\string\everypar}
\ifx \:temp\:tempa
   \let\ht:everypar\everypar
\else
   \:warning{nonprimitive \string\everypar}
\fi
\edef\NoHtmlEnv{%
   \sfcode `\noexpand\noexpand\noexpand\.3000  
   \sfcode `\noexpand\noexpand\noexpand\?3000
   \sfcode `\noexpand\noexpand\noexpand\!3000
   \sfcode `\noexpand\noexpand\noexpand\:2000
   \sfcode `\noexpand\noexpand\noexpand\;1500
   \sfcode `\noexpand\noexpand\noexpand\,1250
   \rightskip\the\rightskip
   \spaceskip\the\spaceskip
   \xspaceskip\the\xspaceskip
   \linepenalty\the\linepenalty
   \adjdemerits\the\adjdemerits
   \pretolerance\the\pretolerance
   \hyphenpenalty\the\hyphenpenalty
   \exhyphenpenalty\the\exhyphenpenalty
   \clubpenalty\the\clubpenalty
   \widowpenalty\the\widowpenalty
   \interlinepenalty\the\interlinepenalty
   \displaywidowpenalty\the\displaywidowpenalty
   \predisplaypenalty\the\predisplaypenalty
   \postdisplaypenalty\the\postdisplaypenalty
   \abovedisplayskip\the\abovedisplayskip
   \belowdisplayskip\the\belowdisplayskip
   \abovedisplayshortskip\the\abovedisplayshortskip
   \belowdisplayshortskip\the\belowdisplayshortskip
   \noexpand\ht:everypar{\noexpand\the\noexpand\ht:everypar}}

   \ifx \html:par\:UnDef \let\html:par\empty \fi

   \ifx\html:addr\:UnDeF
   \immediate\write16{--- needs --- tex4ht \jobname\space ---}%
\ifx\tmp:cnt\:UnDeF    \csname newcount\endcsname\tmp:cnt \fi
\def\g:advance#1{\bgroup \def\:temp{#1}%
                 \tmp:cnt=#1\afterassignment\:gplus \advance\tmp:cnt}
\def\:gplus{\expandafter\xdef\:temp{\the\tmp:cnt}\egroup}
\def\html:lbl{1}
\def\html:addr{\xdef\last:haddr{\file:id-\html:lbl}%
     \g:advance\html:lbl by 1\relax }
\ifx  \file:id\:UnDef
   \gdef\file:id{1}
   \global\let\maxfile:id=\file:id
\fi
\hbadness=10000      \vbadness=10000
\:CheckOption{fussy}  \if:Option  \else
   \hfuzz=99in          \vfuzz=\hfuzz
\fi
\hyphenpenalty=1000  \exhyphenpenalty=1000
\def\html:rightskip{\rightskip = 0pt plus 0.5\hsize  minus0.5\hsize }
\html:rightskip
\ifx \ht:special\:UnDef
   \let\ht:special=\special
\fi
\def\HCode#1{\ifx \EndPicture\:UnDef
   \relax\ifvmode\leavevmode\fi\ht:special{t4ht=#1}\fi}
\let\:HCode=\HCode
\let\Hbrakets\empty
\def\NewLineChar{\bgroup \catcode`\^=7 \:NewLineChar}
\def\:NewLineChar#1{\egroup \def\:newlnch{ #1}}
\NewLineChar{^^J}
\def\::HRef[#1]{\get:attr{#1}\::hRef\:::HRef}
\def\::HRefTag[#1]{\get:attr{#1}\::hRefTag\:::HRefTag}
\def\get:attr#1{\edef\:attr{\noexpand\get:atr #1 !*?: }\:attr}
\def\get:atr#1 #2!*?: #3#4{\def\:attr{\space#2}%
   \def\:te:mpa{#1}\ifx \:te:mpa\empty \let\:te:mpa#4\else
   \def\:te:mpa{#3[#1]}\fi \:te:mpa}
\def\H:Tag#1#2{\:TagHTag{#2}\HCode{\Hbrakets<\tag:A\:newlnch
   \NAME:"#2"\empty:lnk>}}
\def\::hRef[#1]#2{%
   \HCode{\Hbrakets<\tag:A\:newlnch \if\relax#1#2\relax \NOHREF:{}\else
             \HREF:"#1\if\relax#1\relax \else\:sharp #2\fi"\fi
           \:attr \empty:lnk>}}
\def\:::HRef#1{%
   \HCode{\Hbrakets<\tag:A\:newlnch \if\relax#1\relax \NOHREF:{}\else
               \HREF:"\get:hfile{#1}\:sharp #1"\fi \:attr \empty:lnk>}}
\def\::hRefTag[#1]#2#3{%
   \if\relax#3\relax\else\:TagHTag{#3}\fi
   \HCode{\Hbrakets<\tag:A\:newlnch \if\relax#1#2\relax \NOHREF:{#3}\else
                 \HREF:"#1\if\relax#2\relax \else\:sharp #2\fi"\fi
               \if\relax#3\relax\else\space \NAME:"#3"\fi
             \:attr \empty:lnk>}}
\def\:::HRefTag#1#2{%
   \if\relax#2\relax\else\:TagHTag{#2}\fi
   \HCode{\Hbrakets<\tag:A\:newlnch \if\relax#1\relax \NOHREF:{#2}%
                 \else\HREF:"\get:hfile{#1}\:sharp #1"\fi
               \if\relax#2\relax\else\space  \NAME:"#2"\fi
             \:attr \empty:lnk>}}
\let\empty:lnk=\empty
\def\NOHREF#1{\space}
\def\:TagHTag#1{\ifx -\let:val\else \Tag{)Q\aXrefFile #1}{\file:id}\fi}
\def\get:href{\expandafter\get::href}
\def\get::href#1-#2-{\ifnum #1=\file:id\space         \else
      \:LikeRef{)F\aXrefFile #1\empty F-}\fi
   \:sharp \make:addr{#2}}
\def\get:htag{\expandafter\get::htag}
\def\get::htag#1-#2-{\make:addr{#2}}
\ifx \aXrefFile\:UnDef \let\aXrefFile=\empty \fi

\def\get:hfile#1{%
   \expandafter\ifx\csname
                cw:)Q\aXrefFile #1\endcsname\relax
      \get@hfile{#1}%
   \else
      \expandafter\expandafter\expandafter\get::hfile
          \csname  cw:)Q\aXrefFile #1\endcsname,//%
   \fi  }
\def\get::hfile#1,#2//{%
   \ifnum \file:id=0#1  \else
       \expandafter\ifx
   \csname  cw:)F\aXrefFile #1%
                 \empty F-\endcsname\relax \else
      \:LikeRef{)F\aXrefFile #1\empty F-}%
\fi %
   \fi }
\ifx\get@hfile\:Undef \let\get@hfile=\:gobble \fi
      \let\html:src=\empty
\catcode`\#=12   \def\:sharp{#}   \catcode`\#=6

   \Htmltrue
\fi

\fi
                  
\def\EndLink{\ifx \empty:lnk\empty \HCode{\Hbrakets</\tag:A>}\fi}
\def\:HRef{\ifx [\:temp \expandafter\::HRef
           \else \expandafter\:::HRef \fi }
\def\HT:tag{\ifx -\let:val   \expandafter\H:Tag
            \else            \expandafter\HTa:g\fi }
\def\HTa:g{\H:Tag-}
\def\Link{\let\:attr\empty \futurelet\let:val\HRefT:ag}
\def\HRefT:ag{\ifx -\let:val \expandafter\H:RefTag
              \else          \expandafter\HRefTa:g\fi   }
\def\HRefTa:g{\H:RefTag-}
\def\H:RefTag#1{\futurelet\:temp\:HRefTag}
\def\:HRefTag{\ifx [\:temp \expandafter\::HRefTag
              \else \expandafter\:::HRefTag \fi }

\def\HLet#1{%
   \expandafter\ifx
      \csname o:\expandafter\:gobble\string#1:\endcsname\relax
      \expandafter\let
   \csname o:\expandafter\:gobble\string#1:\endcsname#1%
%
   \fi
   \edef#1{\noexpand\ifx \noexpand\EndPicture\noexpand\:UnDef
   \noexpand\expandafter \expandafter\noexpand
      \csname n:\expandafter\:gobble\string#1:\endcsname
   \noexpand\else \noexpand\expandafter \expandafter\noexpand
      \csname o:\expandafter\:gobble\string#1:\endcsname
 \noexpand\fi}%
%
   \expandafter\let
   \csname n:\expandafter\:gobble\string#1:\endcsname}
\def\HRestore#1{\relax
   \expandafter\ifx
      \csname o:\expandafter\:gobble\string#1:\endcsname\relax
        \:warning{\string\HRestore\noexpand#1?}%
   \else
      \expand:after{\let#1}\csname o:\expandafter
          \:gobble\string#1:\endcsname
   \fi}%
          \immediate\openout15=\jobname.tmp
\bgroup \escapechar=`\\
   \immediate\write15{\def\string\Jobname{\jobname}}
\egroup
\immediate\closeout15
\input \jobname.tmp

\def\get:input#1{%
   \openin15=#1
   \ifeof15  \closein15  \:warning{No file #1}%
   \else     \closein15  \expand:after{\input #1 }%
   \fi}
\def\if:notempty#1#2{%
   \def\:temp{#1}\ifx \:temp\empty \else \expand:after{#2}\fi }
\def\IgnorePar{\ifx \EndPicture\:UnDef \Protect\gl:nopartrue \fi}
\def\ShowPar{\ifx \EndPicture\:UnDef \Protect\gl:noparfalse \fi}
\def\IgnoreIndent{\ifx \EndPicture\:UnDef
   \Protect\gl:removeindenttrue \fi}
\def\ShowIndent{\ifx \EndPicture\:UnDef
   \Protect\gl:removeindentfalse \fi}
\def\gl:nopartrue{\global\:nopartrue}
\def\gl:noparfalse{\global\:noparfalse}
\def\gl:removeindenttrue{\global\:removeindenttrue}
\def\gl:removeindentfalse{\global\:removeindentfalse}
\def\HtmlParOff{\global\let\HtmlPar:Off\:gobble}
\def\HtmlParOn{\gdef\HtmlPar:Off##1{##1}}
\HtmlParOn
\def\SaveEverypar{%
   \expandafter\ifx\csname ht:everypar\endcsname\relax
      \expand:after{\expandafter\gdef\csname \n:list L\endcsname }%
           \expandafter{\expandafter\everypar
                        \expandafter{\the\everypar}}%
   \else
      \expand:after{\expandafter\gdef\csname \n:list L\endcsname }%
           \expandafter{\expandafter\ht:everypar
                        \expandafter{\the\ht:everypar}}%
   \fi
   \expandafter\xdef\csname \n:list X\endcsname{%
      \if:removeindent  \global\noexpand\:removeindenttrue
      \else             \global\noexpand\:removeindentfalse \fi
      \if:nopar         \global\noexpand\:nopartrue
      \else             \global\noexpand\:noparfalse \fi}%
   \HtmlEnv     \csname \n:list X\endcsname
                \csname \n:list L\endcsname
   \gHAdvance\n:list   1
}
\def\RecallEverypar{\ifnum \n:list<1
      \:warning{\noexpand\RecallEverypar without \noexpand\SaveEverypar}%
   \else
      \HtmlEnv
      \gHAdvance\n:list  -1
      \csname \n:list X\endcsname
      \csname \n:list L\endcsname
   \fi
}
\def\n:list{0}
\def\ifTag#1#2#3{\expandafter\ifx
   \csname  cw:#1\endcsname \relax #3\else #2\fi}
\catcode`\%12 \def\prcnt:ch{%} \catcode`\%14
\ifx \clearpage\:UnDef  \def\:clearpage{\vfil\penalty-20000}
\else
  \let\real:par\par  \def\eq:par{\par\real:par}
  \def\:clearpage{\expandafter\ifx\eq:par\clearpage\fi}
\fi

\ifx \folio\:UnDef
   \def\folio{\ifx \pageno\:UnDef \z@ \else
      \ifnum \pageno <0 \romannumeral -\pageno
      \else             \the           \pageno \fi\fi}
\fi
\def\cond:cs#1#2{%
   \expandafter\ifx  \csname #1\endcsname\relax  \else
      \csname #1\endcsname{#2}%
   \fi
}
\def\do:list#1,#2,{%
   \def\:temp{#2}\ifx \:temp\empty  \expandafter\stop:do
   \else   #1{#2}\fi
   \do:list#1,}
\def\stop:do#1!*?: {}
\def\BI:gbl{\ifx [\:temp \expandafter\bi:gbl\else
                        \expand:after{\bi:gbl[]}\fi}
\def\bi:gbl[#1]#2{}
\ifx \newpage\:UnDef
\def\newpage{\vfil\penalty-10000 }
\fi
\ifx\tmp:toks\:UnDeF    \csname newtoks\endcsname\tmp:toks\fi
\ifx\tmp:cnt\:UnDeF    \csname newcount\endcsname\tmp:cnt\fi
\def\Advance:{\ip:op\advance\:Advance}
\def\Multiply:{\ip:op\multiply\:Advance}
\def\Divide:{\ip:op\divide\:Advance}
\def\gHAdvance{\ip:op\advance\g:Advance}
\def\gHMultiply{\ip:op\multiply\g:Advance}
\def\gHDivide{\ip:op\divide\g:Advance}
\def\DefOp#1#2{
   \ifx #1\:UnDef
      \expandafter \ifx  \csname #2:\endcsname\relax
            \:warning{\string\DefOp...\string{#2\string}?}%
      \else \expand:after{\let#1}\csname #2:\endcsname
      \fi
   \else \:warning{\string\DefOp\string#1\string{#2\string}
                 can't redefine \string#1}%
   \fi
}
\DefOp\HAdvance{Advance}
\DefOp\HMultiply{Multiply}
\DefOp\HDivide{Divide}
\def\ip:op#1#2{\let\mth:op#1\let\adv:c#2\adv:}

\def\adv:#1{\def\:var{#1}\futurelet\:temp\Advanc:}
\def\Advanc:{\ifx [\:temp \expandafter\Advanc:e
              \else \expand:after{\expandafter\adv:c\:var}\fi}
\def\Advanc:e[#1]{\expandafter\adv:c\csname
                  \expandafter\string\:var[#1]\endcsname}

\def\g:Advance#1{\bgroup \def\:temp{#1}%
                 \tmp:cnt#1\afterassignment\:gplus \mth:op\tmp:cnt}
\def\:gplus{\expandafter\xdef\:temp{\the\tmp:cnt}\egroup}
\def\:Advance#1{\bgroup \def\:temp{#1}%
                \tmp:cnt#1\afterassignment\:aplus \mth:op\tmp:cnt}
\def\:aplus{\xdef\:temp{\def\expandafter\noexpand\:temp{\the\tmp:cnt}}%
            \egroup \:temp}
\def\HAssign{\:ssg\edef}
\def\gHAssign{\:ssg\xdef}

\def\:ssg#1#2{\let\d:fn#1\def\:var{#2}\futurelet\:temp\:Assgn}
\def\:Assgn{%
   \ifx [\:temp
         \expandafter\d:fn\:var[##1]{%
              \noexpand\csname  \expandafter
                                  \string\:var[##1]\noexpand\endcsname}%
         \expandafter\assg:m
   \else \afterassignment\assg:v \expandafter \tmp:cnt \fi }

\def\assg:v{\expandafter\d:fn\:var{\the\tmp:cnt}}
\def\assg:m[#1]{%
   \def\:temp{\expandafter\d:fn
      \csname \expandafter\string\:var[#1]\endcsname{\the\tmp:cnt}}%
   \afterassignment\:temp  \tmp:cnt}
\def\no:catcodes#1#2#3{%
   \tmp:cnt#1
   \def\no::catcodes{%
      \catcode\tmp:cnt#3
      \ifnum\tmp:cnt<#2
          \advance\tmp:cnt  1  \expandafter\no::catcodes
      \fi }%
   \no::catcodes }
\HAssign\def:cnt=0
\def\Odef#1{\gHAdvance\def:cnt  1
   \edef#1{\noexpand\with:op
             \expandafter\noexpand\csname \def:cnt \string#1\endcsname }%
  \expandafter\gdef\csname\def:cnt\string#1\endcsname}
\def\with:op#1{\let\n:xt#1\futurelet\:temp\wth:opt}
\def\wth:opt{\ifx [\:temp
   \expandafter\n:xt\else \expand:after{\n:xt[]}\fi}
\def\Log:Needs#1{{\escapechar=`\\\immediate\write-1{\:Neds{#1}}}}
\def\g:delete#1{%
   \expandafter\expandafter\expandafter\global
      \expandafter\let\csname #1\endcsname\:UnDef
}
\def\xdef:cs#1{\expandafter\xdef \csname #1\endcsname}%
\def\:csname{\expandafter\noexpand\csname}
\long\def\:gobble#1{}
\long\def\:gobbleII#1#2{}
\long\def\:gobbleIII#1#2#3{}
\long\def\:gobbleIV#1#2#3#4{}
\long\def\:gobbleV#1#2#3#4#5{}
\long\def\:gobbleVI#1#2#3#4#5#6{}
\long\def\:gobbleVIII#1#2#3#4#5#6#7#8{}

\ifHtml \csname newskip\endcsname\tmp:dim
\def\exit:ifnot#1{%
   \edef\:temp{\def\noexpand\:temp####1,\:Hin,####2..//{%
      \noexpand\if !####2!\noexpand\else
      \noexpand\expandafter\noexpand\:gobble\noexpand\fi
      }\noexpand\:temp,#1,\:Hin,..//}\:temp\endinput }
   \catcode`\@0
   \catcode`\\12
@def@ConfigureHinput{%
   @def@:temp##1{%
      @def@:temp{##1}@ifx@:temp@:Hin @else @:tempb @fi }%
   @def@:tempb{@fi@bgroup @no:catcodes0{255}{12}%
      @no:catcodes{101}{101}{11}%
      @no:catcodes{109}{109}{11}%
      @no:catcodes{112}{112}{11}%
      @no:catcodes{116}{116}{11}%
      @no:catcodes{121}{121}{11}%
      @:tempa}
   @def@:tempa##1\empty\empty\empty\empty\empty\empty{@egroup}%
   @:temp
}
   @catcode`@\=0
   \catcode`\@=11
\let\:noindent\noindent
\def\noindent{\ifx \EndPicture\:UnDef
     \ifvmode  \IgnoreIndent\leavevmode\fi
   \else \:noindent \fi}
\let\skip:Par\empty
\catcode`\%12 \def\%{%} \catcode`\%14
\def\hidden:anchor{}
\def\sv:btns#1{\ifx #1\space\global\let#1\empty \fi  \PushStack\prv:fl#1}
\def\ro:nd#1#2{%
   \gHAdvance#1  #2
   \gHDivide#1  #2
   \gHMultiply#1  #2 }
\def\fx:pt#1#2#3!*?: {%
   \expandafter\ifx \csname big:#1:#2\endcsname\relax
         \expandafter\gHAssign\csname big:#1:#2\endcsname  0  \fi
   \expandafter\gHAdvance\csname big:#1:#2\endcsname  1
   \edef\big:fn{#1#2\csname big:#1:#2\endcsname}}
\def\Hnewline{\:newlnch}
\def\Needs{\bgroup\catcode`\"=12 \cat:Needs}
\def\cat:Needs#1{\def\:temp{-}\def\:tempa{#1}\ifx \:temp\:tempa
   \aftergroup\Log:Needs \else \ht:special{t4ht+@\:Needs{#1}}\fi
   \egroup}
\def\LinkCommand#1#2{\L:Com#1#2,,,,,,!*?: {#1}}
\let\:Link\Link
\def\L:Com#1#2,#3,#4,#5,#6,#7,#8!*?: #9{\def\:tempe{#7}%
   \def\:tempa{#2}\def\:tempb{#3}\def\:tempc{#4}\def\:tempd{#6}%
   \expandafter\edef\csname
           End\expandafter\:gobble\string #9\endcsname{%
      \ifx\:tempd\empty \noexpand\HCode
         {\Hbrakets</\ifx\:tempa\empty \tag:A\else#2\fi>}\fi }%
   \edef\:temp{%
      \noexpand\Odef\noexpand#1[####1]####2####3{{%
         \def\noexpand\tag:A{\ifx\:tempa\empty\tag:A\else#2\fi}%
         \def\noexpand\HREF:{ \ifx\:tempb\empty\HREF:\else#3=\fi}%
         \def\noexpand\NAME:{ \ifx\:tempc\empty\NAME:\else#4=\fi}%
         \def\noexpand\empty:lnk{\ifx\:tempd\empty\else#6\fi}%
         \def\noexpand\:sharp{\ifx\:tempe\empty\:sharp\else#7\fi}%
         \noexpand\M:link[####1 #5]{####2}{####3}}}}\:temp
   \expandafter\let\csname \string#1 :\endcsname#1
\def#1{\bgroup\LD:Link{#1}\futurelet#1\M:link}
%
  }
\def\LD:Link#1{%
   \def\M:link{\ifx -#1\egroup \def\M:link{\:Link-}\expandafter\gob:lnk
               \else   \egroup \let\M:link\:Link \fi
     \csname \string#1 :\endcsname }}
\def\gob:lnk#1-{#1}
\ifx\tmp:dim\:UnDeF    \csname newdimen\endcsname\tmp:dim\fi
\def\pr:tc{\relax}
\let\prOteCt\relax
\def\Protect{%
   \let\prOteCt\pr:tc
   \ifx \prOteCt\pr:tc    \let\prOteCt\relax
   \else \noexpand\Protect\expandafter\noexpand\fi
}
\def\NewHaddr#1{\html:addr \let#1\last:haddr}
\def\GetHref#1{\expandafter\get:href#1-}
\def\GetHname#1{\expandafter\get:htag#1-}
\ifx \make:addr\:UnDeF
   \def\make:addr#1{#1} \fi
\def\FileNumber{\file:id}
\def\c:XrefFile:#1{\def\aXrefFile{#1}}
 \fi
\:CheckOption{hshow} \if:Option
   \def\hshow#1{\immediate\write16
     {..#1.......\expandafter\meaning\csname #1\endcsname}}
   \def\ShowConfigure#1{%
   \edef\:tempb{\expandafter \meaning\csname c:#1:\endcsname}%
   \expandafter\par:N  \:tempb////%
   \immediate\write16{\string\Configure{#1}}%
   {\show:Arg{1}{a:#1}%
   \show:Arg{2}{b:#1}%
   \show:Arg{3}{c:#1}%
   \show:Arg{4}{d:#1}%
   \show:Arg{5}{e:#1}%
   \show:Arg{6}{f:#1}%
   \show:Arg{7}{g:#1}%
   \show:Arg{8}{h:#1}%
   \show:Arg{9}{i:#1}}%
}
\edef\:temp{\def\noexpand
  \par:N##1\string :##2->##3////{\noexpand\par:NN?##2//}}
\:temp
\def\par:NN#1#2//{\def\:tempb{#2}\ifx\:tempb\empty
  \def\:tempb{#1}\else \def\:tempb{\par:NN#2//}\expandafter\:tempb\fi}
\def\show:Arg#1#2{%
   \ifnum \:tempb=#1 \let\show:Arg=\:gobbleII \fi
   \expandafter\let\expandafter\:temp \csname #2\endcsname
   \immediate\write16{ {\ifx \:temp\relax ???\else
      \expandafter\:gobbleM \meaning \:temp\fi}}}
\def\:gobbleM#1->{}

\fi
\ifx \xml:empty\:UnDef
   \edef\Preamble{\Preamble}
   \:CheckOption{xhtml}
   \if:Option \else \:CheckOption{xml}\fi
   \if:Option
      \def\xml:empty{ /}
      \long\def\:xhtml#1{#1}
   \else
      \Log:Note{for XML code, use the command line option
                `xml' or `xhtml'}%

      \let\:xhtml\:gobble
      \let\xml:empty\empty
\fi \fi
\NewConfigure{afterSUB}[2]{\expandafter
   \def \csname \meaning#1sb\endcsname{#2}}
\NewConfigure{putSUB}[1]{\def\a:putSUB{#1}}
\NewConfigure{putSUP}[1]{\def\a:putSUP{#1}}
\:CheckOption{no^} \if:Option \else
   \:CheckOption{^13} \if:Option \catcode`\^13
   \else \catcode`\^12 \fi
      \Configure{afterSUB}^{\SUB:SUP}
   \catcode`\^7
\fi
\def\PushStack#1#2{%
   \ifx #1\:UnDef \global\let#1\empty\fi
   {\let\Picture\relax \xdef#1{{#2}{#1}}}}
\def\PopStack#1#2{%
   \ifx #1\empty    \:warning{empty \string\PopStack\string#1\string#2?}%
                    \global\let#2\empty
   \else  \def\:temp{\:recall#1#2}\expandafter\:temp#1\fi}
\def\:recall#1#2#3#4{\gdef#1{#4}\gdef#2{#3}}
\def\PushMacro#1{%
   \expandafter\ifx \csname c:\string#1\endcsname\relax
      \expandafter\gHAssign \csname c:\string#1\endcsname  0
   \fi
   \HAssign\:temp  \csname c:\string#1\endcsname
   \let\:tempa#1%
   \ifx \:tempa\:UnDef  \let\:tempa\like:unDef\fi
   \global\expandafter\let\csname \:temp\string#1\endcsname  \:tempa
   \expandafter\gHAdvance \csname c:\string#1\endcsname  1 }
\def\PopMacro#1{%
   \expandafter\gHAdvance \csname c:\string#1\endcsname  -1
   \HAssign\:temp  \csname c:\string#1\endcsname\relax
   \ifnum \:temp < 0
      \expandafter\gHAssign \csname c:\string#1\endcsname  0
      \:warning{ignored \string\PopCs\string#1 on empty stack}%
   \else
      \expand:after{\let#1}\csname \:temp\string#1\endcsname
      \ifx #1\like:unDef  \let#1\:UnDef\fi
   \fi
   }
\def\like:unDef{\:UnDef\:CS}
\def\PushConfigure#1{\def\cf:name{#1}\expandafter
   \expandafter\expandafter\Push:Configure\expandafter
   \meaning\csname c:#1:\endcsname!*?: }
\def\PopConfigure#1{\def\cf:name{#1}\expandafter
   \expandafter\expandafter\Pop:Configure\expandafter
   \meaning\csname c:#1:\endcsname!*?: }
\def\do:undef#1->#2!*?: {%
   \if :#2:\:warning{\string\PushConfigure{\cf:name}?}\fi
}
\catcode`\@=6
\catcode`\#=12
\def\Push:Configure@1!*?: {%
   \do:undef@1->!*?: %
   \do:para@1#1!*?: \push:config
   \do:parb@1#2!*?: \push:config
   \do:parc@1#3!*?: \push:config
   \do:pard@1#4!*?: \push:config
   \do:pare@1#5!*?: \push:config
   \do:parf@1#6!*?: \push:config
   \do:parg@1#7!*?: \push:config
   \do:parh@1#8!*?: \push:config
   \do:pari@1#9!*?: \push:config
}
\def\Pop:Configure@1!*?: {%
   \do:pari@1#9!*?: \pop:config
   \do:parh@1#8!*?: \pop:config
   \do:parg@1#7!*?: \pop:config
   \do:parf@1#6!*?: \pop:config
   \do:pare@1#5!*?: \pop:config
   \do:pard@1#4!*?: \pop:config
   \do:parc@1#3!*?: \pop:config
   \do:parb@1#2!*?: \pop:config
   \do:para@1#1!*?: \pop:config
}
\def\do:para@1#1@2!*?: @3{@3{a}{@2}}
\def\do:parb@1#2@2!*?: @3{@3{b}{@2}}
\def\do:parc@1#3@2!*?: @3{@3{c}{@2}}
\def\do:pard@1#4@2!*?: @3{@3{d}{@2}}
\def\do:pare@1#5@2!*?: @3{@3{e}{@2}}
\def\do:parf@1#6@2!*?: @3{@3{f}{@2}}
\def\do:parg@1#7@2!*?: @3{@3{g}{@2}}
\def\do:parh@1#8@2!*?: @3{@3{h}{@2}}
\def\do:pari@1#9@2!*?: @3{@3{i}{@2}}
\catcode`\@=11
\catcode`\#=6
\def\push:config#1#2{%
   \if :#2:\else
      \expandafter\expandafter\expandafter\ifx \expandafter
              \csname \csname#1New:Conf\endcsname\cf:name\endcsname\relax
         \:warning{\string\PushConfigure{\cf:name} Failed}%
      \else
         \expandafter\expandafter\expandafter\PushMacro \expandafter
             \csname \csname#1New:Conf\endcsname\cf:name\endcsname
      \fi
   \fi }
\def\pop:config#1#2{%
   \if :#2:\else
      \expandafter\expandafter\expandafter\ifx \expandafter
           \csname \csname#1New:Conf\endcsname\cf:name\endcsname\relax \else
         \expandafter\expandafter\expandafter\PopMacro \expandafter
             \csname \csname#1New:Conf\endcsname\cf:name\endcsname
      \fi
   \fi }
\long\def\append:defI#1#2{%
   \def\:temp{\def#1####1}%
   \expandafter\expandafter\expandafter\:temp\expandafter{#1{##1}#2}}
\long\def\pend:defII#1#2{%
   \def\:tempa{\def#1####1####2}%
   \ex:pend{#2}{\expandafter\:temp #1{##1}{##2}}}
\long\def\append:defII#1#2{%
   \def\:temp{\def#1####1####2}%
   \expandafter\expandafter\expandafter\:temp\expandafter{#1{##1}{##2}#2}}
\long\def\pend:defIII#1#2{%
   \def\:tempa{\def#1####1####2####3}%
   \ex:pend{#2}{\expandafter\:temp #1{##1}{##2}{##3}}}
\long\def\append:defIII#1#2{%
   \def\:temp{\def#1####1####2####3}%
   \expandafter\expandafter\expandafter
      \:temp\expandafter{#1{##1}{##2}{##3}#2}}

\def\Ref#1{\expandafter\ifx
                 \csname  cw:#1\endcsname \relax \:NoTag{#1}%
           \else \csname  cw:#1\endcsname    \fi}
\def\LikeRef#1{\expandafter\ifx
                 \csname  cw:#1\endcsname \relax \space%
          \else  \csname  cw:#1\endcsname    \fi}
\def\:LikeRef#1{\csname   cw:#1\endcsname}
\let\:SUPOff\empty \let\:SUBOff\empty
\def\Tag#1#2{\begingroup   \:SUPOff  \:SUBOff \a:xref \escapechar=`\\%
   \edef\:head{\string\:CrossWord{#1}{#2}}%
   \expandafter \expandafter \expandafter
   \:writeref\expandafter{\:head{\folio}\prcnt:ch}%
\endgroup}
\NewConfigure{xref}{1}
\def\:writeref{\write\:refout}%
\def\load:ref#1{%
   \edef\re:call{\catcode`\noexpand\:\the\catcode`\: }%
\catcode`\:11
\let\sv:crs\:CrossWord
\def\:CrossWord{\bgroup
   \no:catcodes{128}{255}{12}%
   \catcode`\:12  \catcode`\@11
   \catcode`\^^M11    \:CrsWrd}%
\def\:CrsWrd##1##2##3{\egroup \sv:crs{##1}{##2}{##3}}%
%
   \get:input{#1}%
   \re:call   \let\:CrossWord\sv:crs  }
\def\:CrossWord#1#2#3{\Cross:Word{}{#1}{#2}{#3}}
\def\Cross:Word#1#2#3#4{%
   \def\:temp{#3}\tmp:toks{#3}%
   \expandafter\edef\csname  cw:\cw:format{#1#2}\endcsname{%
      \expandafter\ifx\csname  cw:\cw:format{#1#2}\endcsname\relax
      \else \csname  cw:\cw:format{#1#2}\endcsname ,  \fi
      \ifx \:temp\empty #4\else  \the\tmp:toks\fi}}
\def\cw:format#1{#1}%

\ifx \:refout\:UnDef
   \openin15=\jobname.xref
\ifeof15  \def\:NoTag#1{\hbox{$???$}}
\else     \def\:NoTag#1{\hbox{$???$}
              \:warning{\string\Ref\string{\string#1\string}?}}
  \ifx \:::HRefTag\:UnDef\else
  \pend:defII\:::HRefTag{%
    \if \relax##1\relax\else
      \expandafter\ifx\csname cw:)Q\aXrefFile ##1\endcsname\relax
         \:warning{\string\Link{##1}?}\csname a:?Link\endcsname
    \fi\fi }
\fi

\fi
\closein15

   \load:ref{\jobname.xref}
   \csname newwrite\endcsname\:refout
   \if:latex \expandafter\immediate\fi
\openout\:refout=\jobname.xref
\fi
\def\LoadRef{\futurelet\:tempa\:LoadRef}
\def\:LoadRef{{%
   \if \bgroup\:tempa
      \aftergroup\loadr:ef
   \else
      \aftergroup\Load:Ref    \if -\:tempa \else
                                  \aftergroup-\fi
   \fi
}}
\def\Load:Ref#1{\futurelet\:tempb\LoadRef:}
\def\LoadRef:{{%
   \aftergroup\:loadref    \ifx [\:tempb \else
                              \aftergroup[\aftergroup]\fi}}
\def\:loadref[#1]{%
   \let\sv:cros\:CrossWord
   \edef\:tempd{#1}\ifx \:tempd\empty \let\:tempb N\fi
   \futurelet\:tempc\l:oadref }
\def\l:oadref{%
   {\aftergroup\lo:adref \if +\:tempc \else \aftergroup+\fi  }}
\def\lo:adref#1#2#3{%
   \def\cw:format##1{#3}%
   \edef\:temp{#2}\expandafter \get:ext\:temp .!*?: %
   \ifx \:temp\empty
         \set:CrossWord#2.!*?: {\:tempd}\load:ref{#2.xref}%
   \else \set:CrossWord#2!*?: {\:tempd}\load:ref{#2}\fi
   \let\:CrossWord\sv:cros }
\def\get:ext#1.#2!*?: {\def\:temp{#2}}
\def\loadr:ef#1{\let\:tempc=x \let\:tempd\empty \lo:adref{}{#1}{##1}}
\def\set:CrossWord#1!*?: #2{%
   \edef\:temp{\noexpand\:setCrossWord#1!*?: {#2}}\:temp}
\def\:setCrossWord#1.#2!*?: #3{%
   \ifx [\:tempb
      \def\:CrossWord##1##2##3{%
         \cond:CrossWord##1#3!*?: {##1}{##2}{##3}}%
      \def\:tail#3##1#3{##1}%
      \if +\:tempc   \if -\:tempa
   \def\cond:CrossWord##1#3##2!*?: ##3##4##5{%
      \def\:temp{##1}\ifx \:temp\empty
         \Cross:Word{#1::}%
                    {\:tail##3#3}{##4}{##5}\fi   }%
\else
   \def\cond:CrossWord##1#3##2!*?: ##3##4##5{%
      \def\:temp{##1}\ifx \:temp\empty
         \Cross:Word{#1::}{##3}{##4}{##5}\fi   }%
\fi
%
      \else         \if -\:tempa
   \def\cond:CrossWord##1#3##2!*?: ##3##4##5{%
      \def\:temp{##1}\ifx \:temp\empty
         \Cross:Word{}{\:tail##3#3}{##4}{##5}\fi  }%
\else
   \def\cond:CrossWord##1#3##2!*?: ##3##4##5{%
      \def\:temp{##1}\ifx \:temp\empty
         \Cross:Word{}{##3}{##4}{##5}\fi  }%
\fi
\fi
   \else
      \if +\:tempc   \def\:CrossWord{\Cross:Word{#1::}}%
\fi
   \fi              
}

\ifHtml  \catcode`\:=12

\def\get@hfile#1{\get@hfil@ #1:::://}

\def\get@hfil@#1::#2::#3//{%
   \expandafter\ifx \csname
       cw:#1::)Q\aXrefFile #2\endcsname \relax \else
      \expandafter\expandafter\expandafter\get@@hfile
          \csname  cw:#1::)Q\aXrefFile #2\endcsname,//{#1}%
   \fi}
\def\get@@hfile#1,#2//#3{%
    \expandafter\ifx
       \csname  cw:#3::)F\aXrefFile #1%
               \empty F-\endcsname \relax
    \else
       \csname  cw:#3::)F\aXrefFile #1%
               \empty F-\endcsname
       \expandafter  \expandafter  \expandafter  \expandafter
       \expandafter  \expandafter  \expandafter  \remove@fn
    \fi }

\def\remove@fn#1#2::{#1}

\catcode`\:=11

\fi
\NewConfigure{?Link}{1}

\ifHtml
   \def\:temp{\def\ifOption##1}
\expandafter\expandafter\expandafter\:temp
   \expandafter{\Preamble,,//\if:Option
   \def\:temp{\the\tmp:toks
   \def\:temp{\tmp:toks={}}%
   \afterassignment\:temp \tmp:toks=}%
\afterassignment\:temp
\else \def\:temp{%
   \def\:temp{\the\tmp:toks}%
   \afterassignment\:temp \tmp:toks=}%
\afterassignment\:temp
\fi  \tmp:toks=}
\pend:defI\ifOption{\def\:temp{##1}\:Optionfalse\:ScanOptions}
\let\:Hin\empty
\def\Hinput#1{\PushStack\:Hinputs\:Hin \def\:Hin{#1}%
   \expandafter\:Hinput\:Hincl{}{}\PopStack\:Hinputs\:Hin}
\def\:Hinput#1#2{\def\:temp{#2}\ifx \:temp\empty \else
     \let\:temp\empty   \def\:tempa{*}\def\:tempb{#1}%
     \ifx \:tempa\:tempb \def\:temp{\input #2}%
     \else \ifx \:Hin\:tempb  \def\:temp{\input #2}%
     \else \def\:tempb{#1.4ht}\ifx \:Hin\:tempb \def\:temp{\input #2}%
     \fi\fi\fi
   \expand:after{\:temp
     \Configure{NewConfigure}{a:}{b:}{c:}{d:}{e:}{f:}{g:}{h:}{i:}%
\:Hinput}\fi}

   \Hinput{Preamble}  \ht:special{t4ht.\:html}
   \def\ScriptCommand{\begingroup \catcode`\\12
   \:DefScript}
\def\:DefScript#1{\endgroup \Def:Script#1!*?: }
\def\Def:Script#1#2!*?: {%
   \expandafter\let\csname :#2:\endcsname\empty
   \edef\:temp{\long\def\expandafter\noexpand\csname a:#2\endcsname
                 ####1\expandafter\noexpand\csname End#2\endcsname
                 {####1\noexpand\:EndVerbatim}}\:temp
   \long\expandafter\def\csname
       b:#2\endcsname##1#1End#2{##1\:EndVerbatim}%
   \edef\:temp{\noexpand\DefScript:
      \expandafter\noexpand\csname #2\endcsname
      {\expandafter\noexpand\csname a:#2\endcsname}%
      {\expandafter\noexpand\csname b:#2\endcsname}}\:temp
}
\def\DefScript:#1#2#3#4#5{\def#1{\call:script{#2}{#3}{#4}{#5}}}
\def\call:script#1#2#3#4{\begingroup \vrb:tt
   \leftskip\z@  \parindent\z@
   \Configure{HVerbatim}{\empty}{\empty}%
                        {\special{t4ht=}\empty}{\empty}%
   \Configure{HVerbatim+}{\z@}{\hbox{ }}%
   #3\ht:special{t4ht@@}%
   \let\Verb:atim#1\let\Ver:batim#2%
   \def\:EndVerbatim{\ht:special{t4ht@@}%
   #4\endgroup\ignorespaces}\Verb:env}
\def\a:rootfont:{-}
\:CheckOption{fonts+} \if:Option \def\a:rootfont:{+}
\else
   \Log:Note{for marking of the base font,
       use the command line option `fonts+'}%
\fi

   \:CheckOption{verify} \if:Option
   \let\:chk:trc\:gobble

\else  \:CheckOption{verify+} \if:Option
   \def\:chk:trc#1{\immediate
   \write16{\the\inputlineno\space(\:ChkLevel) #1}}

\fi \fi
\if:Option
    \HAssign\:ChkLevel0
\let\:CurrentChk\empty
\PushStack\:CHK\empty
\def\VerifyOpen#1{\Protect\trace:chk#1 !*?: }
\def\trace:chk#1 #2!*?: {%
   \gHAdvance\:ChkLevel  1 \:chk:trc{Open......#1}%
   \expandafter\ifx \csname #1Level:\endcsname\relax
      \expandafter\gHAssign\csname #1Level:\endcsname0
   \fi
   \expandafter\gHAdvance\csname #1Level:\endcsname  1
   \PushStack\:CHK{#1}%
   \expandafter\ifx \csname \:CurrentChk +#1\endcsname\relax
      \expandafter\gdef  \csname \:CurrentChk +#1\endcsname{}%
         \immediate\write16{\the\inputlineno.
            --- warning --- \:CurrentChk\space --> #1 ?}%
   \fi
   \xdef\:CurrentChk{#1}%
}
\def\VerifyClose#1{\Protect\trace:endchk#1 !*?: }
\def\trace:endchk#1 #2!*?: {%
   \:chk:trc{Close......#1}%
   \expandafter\ifx \csname #1Level:\endcsname\relax
      \immediate\write16{\the\inputlineno.
         --- warning --- </#1> witout <#1>}%
      \expandafter\gHAssign\csname #1Level:\endcsname0
   \else
      \expandafter\gHAdvance\csname #1Level:\endcsname  -1
      \gHAdvance\:ChkLevel  -1
      \PopStack\:CHK\:temp
      \edef\:tempa{#1}%
      \ifx \:temp\:tempa
         \PopStack\:CHK\:CurrentChk
         \PushStack\:CHK\:CurrentChk
     \else
         \immediate\write16{\the\inputlineno.
            --- warning --- </\:temp> instead of </#1>}%
      \fi
   \fi
}
\def\VerifyEmpty#1{\Protect\trace:emptychk#1 !*?: }
\def\trace:emptychk#1 #2!*?: {%
   \:chk:trc{Empty......#1}%
   \expandafter \ifx \csname \:CurrentChk +#1\endcsname\relax
      \expandafter\gdef  \csname \:CurrentChk +#1\endcsname{}%
         \immediate\write16{\the\inputlineno.
         --- warning --- \:CurrentChk\space --> #1 ?}%
   \fi
}
\begingroup
   \catcode`\^7
   \gdef\Verify{\bgroup \catcode`\ 9 \catcode`\^^M9 \:dtd}
\endgroup
\def\:dtd#1\EndVerify{\egroup\dtd:rule#1,-->,}
\def\dtd:rule#1-->#2,{\def\:temp{#1#2}\ifx \:temp\empty\else
     \expandafter\gdef  \csname #1+#2\endcsname{}%
  \expandafter\dtd:rule
  \fi}

\else
   \let\VerifyOpen\:gobble
   \let\VerifyClose\:gobble
   \let\VerifyEmpty\:gobble
   \long\def\Verify#1\EndVerify{}
   \def\trace:chk#1 #2!*?: {}
\fi
\def\Goto:Configure{\long\def
   \Goto:Configure##1\:Configure{\let\Goto:Configure
              \:UnDef}\expandafter\Goto:Configure}
\:CheckOption{hooks++} \if:Option
      \pend:defI\Configure{\tmp:cnt0
      \long\def\c:def####1####2{\advance\tmp:cnt 1
        \edef\:tempb{\expandafter \meaning\csname c:##1:\endcsname}%
\expandafter\par:N  \:tempb////%

        \def####1{####2}%
        \edef\:temp{\noexpand\pend:def\noexpand####1{\noexpand\ifx
           \noexpand\EndPicture\noexpand\:UnDef \hbox{\noexpand\a:trc
           ##1\the\tmp:cnt :\:tempb\noexpand\b:trc}\noexpand\fi}}\:temp
        \edef\:temp{\noexpand\append:def\noexpand####1{\noexpand\ifx
           \noexpand\EndPicture\noexpand\:UnDef\hbox{\noexpand\c:trc
           ##1\the\tmp:cnt :\:tempb\noexpand\d:trc}\noexpand\fi}}\:temp
   }}

   \def\edit:p#1#2{\let#2\empty \:gobble}%
\else \:CheckOption{hooks+}  \if:Option
       \def\trc:wrt{\immediate\write16}
    \else \:CheckOption{hooks}  \if:Option
       \let\trc:wrt\:gobble
    \fi\fi
 \if:Option
   \pend:defI\Configure{\tmp:cnt0
   \long\def\c:def####1####2{\advance\tmp:cnt 1
     \edef\:tempb{\expandafter \meaning\csname c:##1:\endcsname}%
\expandafter\par:N  \:tempb////%

     \def####1{####2}%
     \ifx ####1\empty
        \edef\:temp{\noexpand\pend:def\noexpand####1{\hbox{\noexpand
          \a:trc ##1\the\tmp:cnt :\:tempb\noexpand\b:trc}}}\:temp
        \edef\:temp{\noexpand\append:def\noexpand####1{\hbox{\noexpand
          \c:trc ##1\the\tmp:cnt :\:tempb\noexpand\d:trc}}}\:temp
     \else
        \trc:wrt{...##1\the\tmp:cnt....\meaning####1}%
     \fi
}}
\long\def\ConfigureToc#1#2#3#4#5{%
   \expandafter\def\csname toc#1\endcsname##1##2##3{#5}%
   \edit:p\def\:temp{#2#3#4#5}\ifx \:temp\empty
      \expandafter\pend:defIII\csname toc#1\endcsname{\hbox
        {\a:trc Toc(#1)1\b:trc}####1\hbox{\a:trc Toc(#1)2\b:trc}####2\hbox
        {\a:trc Toc(#1)3\b:trc}####3\hbox{\a:trc Toc(#1)4\b:trc}}%
   \else
     \def\:temp{#4}\ifx \:temp\empty \else
   \expandafter\pend:defIII\csname toc#1\endcsname{#4####3}%
\fi
\def\:temp{#3}\ifx \:temp\empty \else
   \expandafter\pend:defIII\csname toc#1\endcsname{#3####2}%
\fi
\def\:temp{#2}\ifx \:temp\empty \else
   \expandafter\pend:defIII\csname toc#1\endcsname{#2####1}%
\fi
%
   \fi
}

   \let\edit:p\empty
\fi \fi
\if:Option
   \edef\:tempb{\def\noexpand
   \par:N##1\string :##2->##3////{\noexpand\par:NN?##2//}}
\:tempb
\def\par:NN#1#2//{\def\:tempb{#2}\ifx\:tempb\empty
   \def\:tempb{#1}\else \def\:tempb{\par:NN#2//}\expandafter\:tempb\fi}

   \NewConfigure{hooks}[4]{\def\a:trc{#1}\def\b:trc{#2}%
      \def\c:trc{#3}\def\d:trc{#4}%
      \ifx \a:trc\empty \def\a:trc##1\b:trc{\b:trc}\fi
      \ifx \c:trc\empty \def\c:trc##1\d:trc{\d:trc}\fi
   }
   \def\d:def{\advance\tmp:cnt 1\def}
   \Configure{hooks}{}{}{}{}
\else
   \let\c:hooks:\:gobbleIV
   
\fi
\def\Tg<#1>{%
   \expandafter\ifx
      \csname\try:tagend <#1</!*?: \endcsname\is:empty
      \:tagend#1!*?: \else
   \expandafter\ifx
      \csname\try:tagempty #1>/>!*?: \endcsname\is:empty
      \:tag{#1}\else  \:tagempty #1>\fi\fi}
\def\try:tagend#1</#2!*?: {#1is:empty}
\def\try:tagempty#1/>#2!*?: {#2is:empty}
\def\is:empty{\empty\empty}
\:CheckOption{edit} \if:Option
  % \def\tg<#1>{\c:edit#1\d:edit}
\def\TG<#1>{\a:edit#1\b:edit}

  \def\tag:of#1 #2!*?: {#1}
\def\mn:s{-}
\def\:tag#1{\VerifyOpen{#1}\expandafter\ifx
   \csname A:\tag:of#1 !*?: \endcsname\mn:s\else
     \csname A:\tag:of#1 !*?: \endcsname
     \hbox{\a:edit\HCode{#1}\b:edit}%
   \fi \csname B:\tag:of#1 !*?: \endcsname
  }
\def\:tagend#1#2!*?: {\VerifyClose{#2}\expandafter\ifx
   \csname A:/\tag:of#2 !*?: \endcsname\mn:s\else
     \csname A:/\tag:of#2 !*?: \endcsname
     \hbox{\a:edit\HCode{/#2}\b:edit}%
   \fi \csname B:/\tag:of#2 !*?: \endcsname
  }
\def\:tagempty#1/>{\VerifyEmpty{#1}\expandafter\ifx
   \csname A:\tag:of#1 !*?: /\endcsname\mn:s\else
     \csname A:\tag:of#1 !*?: /\endcsname
     \hbox{\a:edit\HCode{#1/}\b:edit}%
   \fi \csname B:\tag:of#1 !*?: /\endcsname
  }
\expandafter\def\csname c:<:\endcsname#1>{\edef\:temp{#1}\:gat}
\long\def\:gat#1#2{\expandafter
   \def\csname A:\:temp\endcsname{#1}%
   \expandafter\def\csname B:\:temp\endcsname{#2}}
\NewConfigure{edit}{4}

\else
  % \def\tg<#1>{<#1>}
\def\TG<#1>{\HCode{<#1>}}

  \:CheckOption{verify}\if:Option\else \:CheckOption{verify+}\fi
  \if:Option
     \def\:tag#1{\VerifyOpen{#1}\hbox{\HCode{<#1>}}}
\def\:tagend#1#2!*?: {\VerifyClose{#2}\hbox{\HCode{</#2>}}}
\def\:tagempty#1/>{\VerifyEmpty{#1}\hbox{\HCode{<#1/>}}}
\expandafter\def\csname c:<:\endcsname#1>{\:gobbleII}

  \else
     \def\:tag#1{\hbox{\HCode{<#1>}}}
\def\:tagend#1#2!*?: {\hbox{\HCode{</#2>}}}
\def\:tagempty#1/>{\hbox{\HCode{<#1/>}}}
\expandafter\def\csname c:<:\endcsname#1>{\:gobbleII}

  \fi
\fi

\NewConfigure{Preamble}{2}
\NewConfigure{CutAtTITLE+}[1]{\def\a:CutAtTITLE{#1}}
\NewConfigure{HPageTITLE+}[1]{\def\a:HPageTITLE{#1}}
\NewConfigure{crosslinks}[8]{%
   \def\default:bts##1##2{%
      \let\sv:cond:bt\cond:bt
%
      \def\:temp{##1}\ifx \:temp\empty
         \ifx\a:crsbt\empty\ifx \aa:crsbt\empty \let\cond:bt\:gobbleIII
\fi\fi
         \a:crsbt
      \else
         \ifx\b:crsbt\empty\ifx \bb:crsbt\empty \let\cond:bt\:gobbleIII
\fi\fi
         \b:crsbt
      \fi
      \def\CLB:next{\expandafter\cond:bt\next:bt{}{#3}}%
      \ifx \prevCut\empty
   \def\:temp{\prevCut}\ifx \:temp\prev:bt
      \Recall:HPageTag\HP:file  \Save:HPageTag\HP:file
      \def\:temp{#4}\ifx \:temp\empty \else
         \def\CLB:prevup{%
            \def\:temp{#4}#1\Link[\RefFile{)B\HP:file}]{}{}#4\EndLink #2}%
      \fi
      \def\:temp{#5}\ifx \:temp\empty \else
         \def\CLB:prevtailup{%
               \def\:temp{#5}#1\Link[\RefFile{)B\HP:file}]{tail\Jobname
                                                }{}#5\EndLink #2}%
      \fi
      \long\def\:tempb####1####2{\gdef\root:next{%
  \def\:temp{####2}\edef\HP:file{\RefFileNumber\file:id}%
  \ifx \:temp\HP:file
      \global\let\root:next\empty
      \def\:temp{#3}\ifx \:temp\empty
         \Link{}{tail\Jobname}\EndLink
      \else
         \expandafter\ifx \csname a:next+\endcsname\relax #1\else
            \csname a:next+\endcsname \fi
         \expandafter\ifx \csname a:next\endcsname\relax
                \def\:next{#3}%
         \else  \let\:next\a:next \fi
         \ifx \:next\empty
            \Link{}{tail\Jobname}\EndLink
         \else
            \Link[####1]{}{tail\Jobname}\:next\EndLink
         \fi
         \expandafter\ifx \csname b:next+\endcsname\relax #2\else
         \csname b:next+\endcsname \fi
   \fi \fi}}%
\edef\:temp{\noexpand\:tempb
   {\RefFileNumber\file:id}{\RefFile{)B\HP:file}}}%
\:temp
%
\fi \fi
%
      \def\CLB:prev{\expandafter\cond:bt\prev:bt{}{#4}}%
      \def\CLB:prevtail{\expandafter\cond:bt\prev:bt{tail\prev:bt}{#5}}%
      \def\:temp{##2}%
\ifx \:temp\empty
   \def\:temp{#6}%
   \ifx \:temp\empty \else
       \def\CLB:tail{\def\:temp{#6}#1\Link[\RefFileNumber\file:id]{}{}#6\EndLink #2}\fi
\else
   \def\:temp{#7}%
   \ifx \:temp\empty \else
       \def\CLB:front{\def\:temp{#7}#1\Link{##2\RefFileNumber\file:id}{}#7\EndLink #2}\fi
\fi
%
      \def\:temp{#8}\ifx \:temp\empty \else
         \ifx \cond:bt\:gobbleIII
         \else \def\CLB:up{\def\:temp{#8}#1\ExitHPage{#8}#2}\fi\fi
      \CLB:menu
%
      \let\cond:bt\sv:cond:bt
%
      \def\:temp{##1}\ifx \:temp\empty \aa:crsbt\else \bb:crsbt\fi
      \def\:temp{##1}\ifx \:temp\empty  \else
   \ifx\yes:tail\def
      \Link{}{##1\RefFileNumber\file:id}\EndLink
\fi \fi
}%
   \def\cond:bt##1##2##3{%
   \expandafter\ifx\csname a:cond:bt\endcsname \relax
      \ifx ##1\empty \else
         \def\:temp{##3}\ifx \:temp\empty \else
                #1\Link[##1]{##2}{}##3\EndLink #2%
      \fi \fi
   \else
      \ifx ##1\empty
         \def\:temp{next}\ifx \:temp\cur:bt \else
   \ifx \c:next:\:gobbleII \else \let\:temp=\empty \fi
\fi
\ifx \:temp\empty \else
   \ifx \a:cond:bt\empty  \ifx \b:cond:bt\empty  #1\else
                                         \a:cond:bt\fi
   \else                                 \a:cond:bt\fi
   ##3%
   \ifx \a:cond:bt\empty  \ifx \b:cond:bt\empty  #2\else
                                         \b:cond:bt\fi
   \else                                 \b:cond:bt\fi
\fi
%
      \else
         \def\:temp{##3}\ifx \:temp\empty \else
                #1\Link[##1]{##2}{}##3\EndLink #2%
      \fi \fi
   \fi
}%
%
}
\NewConfigure{crosslinks+}[4]{%
   \def\a:crsbt{#1}\def\aa:crsbt{#2}\def\b:crsbt{#3}\def\bb:crsbt{#4}}
\NewConfigure{crosslinks-}[2]{%
   \def\a:cond:bt{#1}\def\b:cond:bt{#2}}
\expandafter\def\csname c:crosslinks*:\endcsname{%
   \let\CLB:menu\empty \CLB:menuitem }
\def\CLB:menuitem#1{%
   \def\:tempa{#1}\ifx \:tempa\empty \else
      \append:def\CLB:menu{\csname a:crosslinks:#1\endcsname
                     \def\cur:bt{#1}\csname CLB:#1\endcsname
      }%
      \def\:temp{prev}\ifx \:temp\:tempa
         \append:def\CLB:menu{\csname a:crosslinks:prev\endcsname
                              \csname CLB:prevup\endcsname
         }%
      \else
         \def\:temp{prevtail}\ifx \:temp\:tempa
            \append:def\CLB:menu{%
               \csname a:crosslinks:prev\endcsname
               \ifx\a:crsbt\empty\else \let\yes:tail\def\fi
\ifx\aa:crsbt\empty\else \let\yes:tail\def\fi
\ifx\b:crsbt\empty\else \let\yes:tail\def\fi
\ifx\bb:crsbt\empty\else \let\yes:tail\def\fi
%
               \csname CLB:prevtailup\endcsname
         }%
      \fi \fi
      \expandafter\CLB:menuitem
   \fi
}
\Configure{crosslinks*}
   {next}
   {prev}
   {prevtail}
   {tail} {front}
   {up}
   {}
\NewConfigure{crosslinks:next}{1}
\NewConfigure{crosslinks:prev}{1}
\NewConfigure{crosslinks:prevtail}{1}
\NewConfigure{crosslinks:tail}{1}
\NewConfigure{crosslinks:front}{1}
\NewConfigure{crosslinks:up}{1}
\NewConfigure{next}[1]{\def\a:next{#1}}
\NewConfigure{next+}[2]{%
    \expandafter\def\csname a:next+\endcsname{#1}%
    \expandafter\def\csname b:next+\endcsname{#2}}
\NewConfigure{writetoc}[1]{\concat:config\a:writetoc{#1}}
\let\a:writetoc\empty
\NewConfigure{TocAt*}[2]{%
    \c:def\a:dTocAt{#1}\c:def\b:dTocAt{#2}}
\NewConfigure{TocAt}[2]{%
    \c:def\a:TocAt{#1}\c:def\b:TocAt{#2}}
\Configure{TocAt*}{}{}
\Configure{TocAt}{}{}
\def\halignTD{\ifx \:mALIGN\empty \hT:D \else \:mALIGN \fi}
\def\halignTB#1{
   \expandafter\ifx \csname :#1:\endcsname\relax
      \:warning{Missing \string\Configure{halignTB<>}{#1}}%
   \else
      \global\expandafter\let\expandafter\:MkHalign:
      \csname :#1:\endcsname \a:halignTB \expandafter\expandafter
      \expandafter\halign:TB \csname :#1:\endcsname!*?: \b:halignTB
   \fi }
\NewConfigure{halignTB}{2}
\NewConfigure{halignTB<>}[2]{%
   \expandafter\def\csname :#1:\endcsname{#2}}
\Configure{halignTB<>}{MkHalign}{<>}%

\NewConfigure{MkHalign}[6]{%
   \def\T:halign{\PushMacro\:MkHalign:\Configure{halignTB<>}{MkHalign}{<>}%
#1}%
   \def\t:halign{#2\PopMacro\:MkHalign:
                 \global\let\:MkHalign:\:MkHalign:}%
   \def\R:halign{\TT:halign \gHAdvance\HRow  1 \gHAssign\HCol1
      #3}%
   \def\r:halign{\end:omit#4}%
   \def\D:halign{\:nopartrue
      \gHAdvance\dH:cnt by 1
\edef\:tempa{\global\let\expandafter\noexpand\csname xc\dH:cnt\endcsname
       \expandafter\noexpand\csname dH\MkHalign:d\endcsname}%
\:tempa
\expandafter\xdef\csname \dH:cnt :tempa\endcsname{%
   \global\let \expandafter\noexpand\csname dH\MkHalign:d\endcsname
       \expandafter\noexpand\csname xc\dH:cnt\endcsname}%
%
      \gHAdvance\MS:count  -1
\ifnum \MS:count > 0  \else
   \end:omit  \relax:shrp     \derive:TD
   \HAssign\:MULTISPAN1  \let\:mALIGN\empty
   \expandafter\add:span\old:span \gHAssign\MS:count\:MULTISPAN
   \relax #5%
\fi
\xdef\Step:Col{\ifx \HMultispan\:UnDef 1 \else \HMultispan\fi}%
%
      \ifnum\MS:count=\ifx \:MULTISPAN\:UnDef \MS:count
                      \else                  \:MULTISPAN\fi
         \expandafter\gdef\csname dH\MkHalign:d\endcsname
            {\ifnum \MS:count<2 #6\relax
 \gHAdvance\HCol  \Step:Col\relax \fi
}\fi}%
   \def\d:halign{\csname dH\ifnum \MkHalign:d<1 1\else \MkHalign:d\fi
                 \endcsname \csname \dH:cnt :tempa\endcsname
\gHAdvance\dH:cnt by -1
}}
\Configure{MkHalign}{}{}{}{}{}{}
\HAssign\dH:cnt0
\NewConfigure{halignTD}[2]{\c:def\TD:CLASS{#1}%
   \c:def\EndTD:CLASS{#2}\scan:halignTD}
\def\scan:halignTD#1{\def\:temp{#1}\ifx \:temp\empty\else
    \expandafter \sc:halignTD\fi{#1}}
\def\sc:halignTD#1#2{\expandafter\def\csname
   \string#1:T:D\endcsname{#2}\scan:halignTD}
\NewConfigure{halignTR}[1]{\def\halignTR{#1}}
\Configure{halignTR}{}
\def\halignTBL{\expandafter\ifx \csname v:TBL\endcsname\relax
   \else \expandafter\ifx \csname \v:TBL :T:BL\endcsname\relax\else
       \csname \v:TBL :T:BL\endcsname
   \fi\fi}
\NewConfigure{halignTBL}[1]{\scan:halignTBL{#1}}
\def\scan:halignTBL#1{\def\:temp{#1}\ifx \:temp\empty\else
    \expandafter \sc:halignTBL\fi{#1}}
\def\sc:halignTBL#1#2{\expandafter\def\csname
   \string#1:T:BL\endcsname{#2}\scan:halignTBL}
\NewConfigure{halign}[6]{\c:def\hlg:a{#1}%
   \c:def\hlg:b{#2}\c:def\hlg:c{#3}\c:def\hlg:d{#4}%
   \c:def\hlg:e{#5}\c:def\hlg:f{#6}}
\NewConfigure{pic-halign}[1]{\def\pic:hlng{#1}}
\NewConfigure{tt}[1]{\let\vrb:tt#1}
\let\vrb:tt\tt
\NewConfigure{HVerbatim}[4]{\c:def\bef:Verb{#1\Verb:eoln}%
   \c:def\aft:Verb{\ht:everypar{}#2}%
   \c:def\Verb:eoln{#3}\c:def\Verb:boln{#4}}
\NewConfigure{HVerbatim+}[2]{\d:def\Verb:Left{#1}%
   \def\Verb:sp{#2}}
\NewConfigure{Picture-alt}{1}
\Configure{Picture-alt}{}
\NewConfigure{PictureAlt}{2}
\NewConfigure{PictureAttr}[1]{\def\a:PictureAttr##1{#1}}
\Configure{PictureAlt} {\NoFonts} {\EndNoFonts}
\Configure{PictureAttr} {\HCode{\Hnewline #1}}
\NewConfigure{IMG}{5}
\NewConfigure{Picture}[1]{\def\PictExt{#1}}
\Configure{Picture}{.png}
\NewConfigure{Picture+}{2}
\NewConfigure{Picture*}{2}
\expandafter\def\csname c:string-encoder:\endcsname#1{%
   \expandafter\def\csname c:#1:\endcsname{%
      \csname #1:String\endcsname
      \expandafter\let\csname #1:String\endcsname=\empty
      \expandafter\let\expandafter\Char:dic
                             \csname #1Char:dic\endcsname
      \cnf:transString}
   \expandafter\def\csname #1\endcsname##1##2!*?: {%
      \if !##1!\expandafter\gob:par
      \else
         \expandafter\ifx \csname \string##1:#1EnCoDe\endcsname\relax
            \string ##1\else
            \csname \string##1:#1EnCoDe\endcsname
         \fi
         \if !##2!\expandafter\expandafter\expandafter\gob:par
         \else
             \expandafter\expandafter\expandafter
             \expandafter\expandafter\expandafter
                    \csname #1\endcsname
         \fi
       \fi
       ##2!*?: %
   }
   \expandafter\def\csname #1Char:dic\endcsname##1##2{%
      \def\:temp{##1}\ifx \:temp\empty \egroup
      \else  \egroup
          \expandafter\append:def\csname #1:String\endcsname
               {\expandafter\let
                        \csname \string##1:#1EnCoDe\endcsname=\:UnDef}%
          \expandafter\def\csname \string##1:#1EnCoDe\endcsname{##2}%
          \expandafter \cnf:transString
      \fi
   }
}
\def\cnf:transString{\bgroup
   \catcode`\%=12
   \catcode`\~=12
   \catcode`\$=12
   \catcode`\&=12
   \catcode`\#=12
   \catcode`\^=12
   \catcode`\_=12
   \catcode`\?=12 \Char:dic }
\def\gob:par#1!*?: {}
\def\c:Needs:{\def\:Needs##1}
\expandafter\def\csname c:Needs-:\endcsname{\def\:Neds##1}

\NewConfigure{HtmlPar*}[2]{%
   \def\:temp{#2}\ifx \:temp\empty \c:def\skip:Par{#1}\else
     \c:def\skip:Par{#1\Next:EndP{#2}}\fi}
\NewConfigure{ExitHPage}{3}
\NewConfigure{UndefinedSec}[1]{%
   \ifx \ltx:like\:UnDef  \let\ltx:like\empty \let\ltx:nolike\empty \fi
   \append:def\ltx:like{\expandafter\let\csname #1\endcsname\empty}%
   \append:def\ltx:nolike{\expandafter\let\csname #1\endcsname\:UnDef}%
}
\NewConfigure{+CutAt}[3]{%
  \expandafter\def\csname Before#1Button\endcsname##1{#2}%
  \expandafter\def\csname After#1Button\endcsname##1{#3}}
\NewConfigure{NoSection}{2}
\NewConfigure{toTocLink}[2]{\def\scp:Link{#1}\def\scp:EndLink{#2}}
\Configure{toTocLink}{\Title:Link}{\EndLink}
\NewConfigure{TocLink}[1]{\def\a:TocLink##1##2##3##4{#1}}
\NewConfigure{PauseMkHalign}{4}
\NewConfigure{MiniHalign}{6}
\NewConfigure{noalign-}[2]{\c:def\a:noalign{#1}\c:def\b:noalign{#1}}
\:CheckOption{no-halign} \if:Option \else
    \NewConfigure{noalign}{2}
\fi
\NewConfigure{Canvas}[3]{}
\NewConfigure{PictureAlt*+}{2}
\NewConfigure{PictureAttr*+}[1]{%
   \expandafter\def\csname a:PictureAttr*+\endcsname##1{#1}%
}
\Configure{PictureAttr*+}{\ht:special{t4ht=#1}}
\NewConfigure{PictureAlt*+[]}{2}
\NewConfigure{PictureAttr*+[]}[1]{%
   \expandafter\def\csname a:PictureAttr*+[]\endcsname##1{#1}%
}
\Configure{PictureAlt*+[]} {\NoFonts} {\EndNoFonts}
\Configure{PictureAttr*+[]} {\ht:special{t4ht=#1}}
\def\HChar#1{{\leavevmode 
\ht:special{t4ht@#1}\ifnum #1>-1 \a:HChar\fi}}
\NewConfigure{HChar}{1}
\Configure{HChar}{x}
\NewConfigure{@Picture}[1]{\def\a:@Picture{#1}}
\let\a:@Picture\:gobble
\NewConfigure{RULE}[5]{\ht:special{t4ht@\%\%R#1#2#1#3}
  \ht:special{t4ht@\%\%r#1#4#1#5}}
\NewConfigure{GROUP}[5]{\ht:special{t4ht@\%\%P#1#2#1#3}
  \ht:special{t4ht@\%\%p#1#4#1#5}}
\NewConfigure{CHAR}[5]{\ht:special{t4ht@\%\%C#1#2#1#3}
  \ht:special{t4ht@\%\%c#1#4#1#5}}
\NewConfigure{HSPACE}[3]{\ht:special{t4ht@\%\%H#1#2#1#3}}
\NewConfigure{VSPACE}[3]{\ht:special{t4ht@\%\%V#1#2#1#3}}
\let\send:special=\:gobble
\NewConfigure{Send:GROUP}[2]{\send:special{t4ht\string~<#1#2}}
\NewConfigure{Send:EndGROUP}[2]{\send:special{t4ht\string~>#1#2}}
\NewConfigure{Send:BACK}[1]{\send:special{t4ht\string~<*#1}}
\def\:temp{\a:moveright \o:moveright:}
\HLet\moveright\:temp
\NewConfigure{moveright}{1}

\NewConfigure{htf}[9]{{%
  \tmp:cnt#1 \ifnum \tmp:cnt>255  \:warning{Code larger than
              255 in \string\Configure{htf}}\else
  \ht:special{t4ht;|\ifnum \tmp:cnt<10 00\else
    \ifnum \tmp:cnt<100 0\fi\fi
    \the\tmp:cnt#2#3#2#4#2#5#2#6#2#7#2#8#2#9#2\the\tmp:cnt}%
  \fi}}
\def\NoFonts{\ht:special{t4ht;8}}
\def\EndNoFonts{\ht:special{t4ht;9}}
\NewConfigure{FontCss}[2]{\def\a:FontCss:{#1}\def\a:FontCssPlus:{#2}}
\NewConfigure{htf-css}[2]{{%
   \def\:temp##1!*?: {\def\:tempa{##1}}%
   \afterassignment\:temp\tmp:cnt0#1!*?: %
   \def\:temp{\Configure{Needs}}%
   \ifx  \:tempa\empty
       \expandafter\:temp\expandafter{\a:FontCss:}\Needs{("#1"): #2}%
   \else
       \expandafter\:temp\expandafter{\a:FontCssPlus:}\Needs{#1 #2}%
   \fi}}
\NewConfigure{htf-attr}[2]{{%
   \Configure{Needs}{##1}%
   \Needs{Font\string_css\string_base: #1Font\string_css\string_mag: #2}}}

\:CheckOption{new-accents}     \if:Option
   \def\:temp{\leavevmode\ifx \d:mathaccent\empty
    \else \ht:special{t4ht\string~>1\d:mathaccent}\fi
    \ht:special{t4ht*\string^m}\o:mathaccent:}
\HLet\mathaccent\:temp
\def\:temp{\leavevmode\ht:special{t4ht*\string^t}\o:accent:}
\HLet\accent\:temp
\NewConfigure{accent}[6]{\ht:special{t4ht*\string^t#1#2#1#3#1#4#1#5#1#6}}
\NewConfigure{mathaccent}[6]{\ht:special{t4ht#1\string
  ^m#1#2#1#3#1#4#1#5#1}\edef\d:mathaccent{#6}}
\let\d:mathaccent\empty
\NewConfigure{accented}[6]{\ht:special
     {t4ht*\string^a#1#2#1#3#1#4#1#5#1#6}}
\NewConfigure{accenting}[3]{\ht:special{t4ht*\string^i#1#2#1#3#1#1}}
\NewConfigure{HAccent}[1]{\pic:Accent#1}
\def\pic:Accent#1#2#3#4{\edef\:tempb##1{{\expandafter\:gobble\string#1}}%
   \pend:defI\:tempb{\choose:accent{####1}#2\relax!*?: }%
   \append:defI\:tempb{{#3}{#4}}%
   \expandafter\let\csname \string#1:\endcsname\:tempb
   \edef\:tempb{\noexpand\Protect\noexpand\acc:nm{\string#1}}%
   \HLet#1\:tempb}
\def\acc:nm#1{\csname \string#1:\endcsname}
\def\choose:accent#1{\def\:accented{#1}\cs:accent}
\def\realx:par{\relax}
\def\cs:accent#1{\def\:tempa{#1}%
   \ifx \:tempa\realx:par \expandafter\pic:accent
   \else
       \ifx \:tempa\:accented
            \expandafter\expandafter\expandafter\nopic:accent
       \else \expandafter\expandafter\expandafter\cs:accent\fi
   \fi}
\def\pic:accent#1!*?: #2#3#4{%
   #3\nopic:accent!*?: {#2}{}{}#4}
\def\nopic:accent#1!*?: #2#3#4{\expandafter\expandafter
   \csname o:#2:\endcsname\expandafter{\:accented}}

\else
   \NewConfigure{accent}[5]{%
   \expandafter\ifx \csname x:\string#2\endcsname\relax
      \expandafter\edef
         \csname x:\string#2\endcsname{\accent:cnt}%
      \expandafter\let\csname t:\accent:cnt\endcsname#1%
\expandafter\let\csname m:\accent:cnt\endcsname#2%
%
      \edef\:temp{\ifx \accent:def\:UnDef \noexpand\def \else
     \noexpand\accent:def \fi
   \noexpand\:temp{\noexpand\ac:pc{\accent:cnt}}%
   \noexpand\HLet\noexpand#1\noexpand\:temp
   \noexpand\pend:defI
  \noexpand\:accnts{\noexpand\ifnum ########1=\accent:cnt
  \noexpand\expandafter \noexpand\acpc:
  \expandafter\noexpand\csname\accent:cnt :ac\endcsname
  \noexpand\expandafter \noexpand\end:accent \noexpand\fi}%
}%
\:temp
\def\:temp{#1}\def\:tempa{#2}\ifx \:temp\:tempa \else \HLet#2#1\fi
%
      \Advance:\accent:cnt by 1
   \fi
   \edef\:tempa{\csname x:\string#2\endcsname}%
   \def\:temp{#3}\ifx \:temp\empty \else
  \expandafter\def\csname \:tempa :ac\endcsname{#3}
\fi
\long\def\:temp##1##2{#4#5}\ifx \:temp\:gobbleII \else
  \expandafter\def\csname C:\:tempa\endcsname##1{#4}%
  \expandafter\def\csname MT:\:tempa\endcsname##1##2{#5}%
\fi
%
   }
\def\accent:cnt{0}
\def\end:accent#1\empty{}
\def\:accnts#1{}

   \def\ac:pc{\Protect\csname acp:c\endcsname}
\def\acp:c#1#2{{\def\acn:no{#1}\def\:temp{#2}\ifx \:temp\empty
      \ac:nt{}%
%
   \else \let\@tabacckludge\:tabacckludge
%
      \def\ac:pc{\ac:nt{#2}}\a:cpc{#1}\fi }}
\def\ac:nt{\csname \ifmmode m\else t\fi :\acn:no\endcsname}
\def\Ac:nt{\edef\:temp{\ifx \EndPicture\:UnDef
      \def\noexpand\ac:pc{\noexpand\Protect \noexpand\acp:c}%
      \expandafter\noexpand \csname MT:\acn:no\endcsname
  \fi
  \expandafter\noexpand
  \csname\ifmmode m\else t\fi :\acn:no\endcsname}\:temp
}
\def\a:cpc#1{%
  \ifx \EndPicture\:UnDef
     \def\AC:PC{{\let\AC:PC\ACP:C  \let\ac:nt\Ac:nt \ac:pc}%
%
     }%
     \:accnts{#1}\empty
  \else   \ac:pc  \fi  }
\def\acpc:#1#2{%
   \def\:tempa{#1}\ifx \:tempa\empty
      \ifx \:temp\empty
   \def\:tempa{#2}\ifx \:tempa\empty  \AC:PC
   \else \csname \ifmmode m\else t\fi :\acn:no\endcsname{#2}%
\fi
\else \AC:PC \fi
%
   \else \ifx \:tempa\:temp  \let\AC:PC\empty
             \csname C:\acn:no\endcsname{#2}%
\fi
         \expandafter\acpc:
   \fi}

\fi


\def\:halign:{<>}
\:CheckOption{base}
\if:Option  \else
      \NewConfigure{$}[3]{%
      \def\a:mth{\bgroup#1}\def\b:mth{#2\egroup}%
      \def\c:mth{{\csname HCode\endcsname{}}%
#3}%
      \everymath{\ifx \EndPicture\:UnDef
          $\a:mth\everymath{}\everydisplay{}$%
                 \aftergroup\b:mth \c:mth \fi}}
   \NewConfigure{$$}[3]{%
      \def\a:display{\bgroup#1}%
      \def\b:display{#2\egroup}%
      \def\c:display{#3}%
      \everydisplay{\ifx \EndPicture\:UnDef
           $$\a:display\everymath{}\everydisplay{}$$%
                 \aftergroup\b:display \c:display\fi}}

\def\PicDisplay{\pic:gobble\env:PD
   \def\:temp{$$}\pic:cond\Pic:math\:temp}
\def\EndPicDisplay{\end:condpic\pic:gobble\endenv:PD}
\def\Pic:math{\hfil\break
   \expand:after{\Picture*}\alt:Mth{ \c:Math}}
\def\PicMath{\leavevmode\pic:gobble\env:PM\hbox\bgroup
   \everymath{}\everydisplay{}\pic:cond\pic:math$}
\def\EndPicMath{\end:condpic\egroup\pic:gobble\endenv:PM}
\def\pic:math{\expand:after{\Picture+}\alt:mth{ \c:math}}
\NewConfigure{PicDisplay}[4]{\def\alt:Mth{#3}%
   \ifx \alt:Mth\empty\else \def\alt:Mth{[#3]}\fi\def\c:Math{#4}%
   \c:def\env:PD{#1}\c:def\endenv:PD{#2}}
\NewConfigure{PicMath}[4]{\def\alt:mth{#3}%
   \ifx \alt:mth\empty\else \def\alt:mth{[#3]}\fi\def\c:math{#4}%
   \c:def\env:PM{#1}\c:def\endenv:PM{#2}}
\def\DviMath{\a:DviMath\leavevmode \MathClass \ht:special{t4ht@(}\vbox
   \bgroup{\expandafter\ifx\csname ht:everypar\endcsname\relax
                \expandafter\everypar
           \else \expandafter\ht:everypar\fi{}\leavevmode\ht:special{t4ht@)}}%
       \relpenalty=10000
       \binoppenalty=10000
 \DviSend}
\def\EndDviMath{\EndDviSend \ht:special{t4ht@(}\egroup\ht:special{t4ht@)}%
\EndMathClass \b:DviMath}
\NewConfigure{DviMath}{2}
\def\PMath{\bgroup\Canvas \x:SUBOff  \x:SUPOff
   \let\Picture\empty \everymath{}\everydisplay{}}
\def\EndPMath{\EndCanvas\egroup}
\:CheckOption{PMath} \if:Option
   \def\:Pmath{$\PMath$\aftergroup\EndPMath}
   \def\:Pdisp{$$\PMath$$\aftergroup\EndPMath}
   \everymath{\:Pmath}
   \everydisplay{\:Pdisp}
\fi

   \let\s:b\sb
\let\:sbb\sb                 
\def\sb{\m:op\:sbb{SUB}}
\catcode`\_8
\:CheckOption{no_} \if:Option
   \let\s:b\:UndFi
   \let\x:SUBOff\empty  \let\x:SUBOn\empty

   \let\SUBOff\empty  \let\SUBOn\empty

   \def\no:restore{\let\no:restore\:UnDef}
\else
   \Log:Note{for non active \string_,
       use the command line option `no\string_'}%
   \ifx \sys:sb\:UnDef \def\:tempaa{_}
\else               \def\:tempaa{\noexpand\sys:sb}\fi

   \ifx \sys:sb\:UnDef \def\:tempa#1{\append:def\SUBOff{\let#1_}}
\else               \def\:tempa#1{\append:def\SUBOff{\def#1{%
  \ifmmode \expandafter\s:b \else \expandafter\sys:sb \fi
}%
}}\fi

   \catcode`\_13
      \if:Option
   \def\S:b{\m:op\s:b{SUB}}
\else
   \def\S:b#1{\def\SuB:{#1}\futurelet\:temp\sub:sup}
   \def\blank:space{
   }
   \def\sub:sup{\expandafter
      \ifx \blank:space\:temp \expandafter\sub:supA
       \else   \expandafter\after:sub\fi}
   \expandafter\def
      \expandafter\sub:supA\blank:space{\futurelet\:temp\sub:sup}
   \def\after:sub{\futurelet\:temp\choose:sub}
\def\choose:sub{\expandafter
   \ifx \csname \meaning\:temp sb\endcsname\relax
       \expandafter \a:putSUB
   \else
       \expandafter\expandafter\csname \meaning\:temp sb\endcsname
   \fi
}

   \def\a:putSUB{\sub:I \SuB:}
   \def\sub:I{\m:op\s:b{SUB}}
\fi

      \def\x:SUBOff{\let_\s:b}
      \def\pr:sb{\ifx \EndPicture\:UnDef
                     \expandafter\Protect\expandafter\S:b
                 \else \expandafter\s:b \fi}
      \edef\:SUBOff{\def\noexpand_{\:tempaa}}

      \:tempa_

      \def\x:SUBOn{\def_{\ifmmode \expandafter\pr:sb
                 \else    \expandafter\sys:sb\fi}\let\sb=_
}
\x:SUBOn

      \def\SUBOn{\catcode`\_8
   \def_{\ifmmode \expandafter\pr:sb
         \else    \expandafter\sys:sb\fi}}
\SUBOn

   \catcode`\_8
   \:CheckOption{_13} \if:Option
      \def\no:restore{\let\no:restore\:UnDef
                \mathcode`\_"8000 \catcode`\_13 }
      \append:def\SUBOn{\mathcode`\_"8000 \catcode`\_13 \let\sb=_
}
   \else
      \Log:Note{for \string_ of catcode 13,
          use the command line option `\string_13'}
      \def\no:restore{\let\no:restore\:UnDef
                \mathcode`\_"8000 \catcode`\_12 }
      \append:def\SUBOn{\mathcode`\_"8000 \catcode`\_12 \let\sb=_
}
   \fi
   \bgroup
      \SUBOn  \def\:temp{\let\sb=_
}
   \expandafter \egroup \:temp
\fi
\let\s:p\sp
\let\:spp\sp
\def\sp{\m:op\:spp{SUP}}
\catcode`\^7
\NewConfigure{\string^\string^}[2]{%
   \def\:tempa##1>{}\def\:temp{#1}\:warning{\string
       \Configure{\string\string\string ^\string\string
       \string^}{\expandafter\:tempa\meaning \:temp}{...}
       ignored; option \string^13 is not on}}

\:CheckOption{no^} \if:Option
   \let\s:p\:UndFi
   \let\x:SUPOff\empty  \let\x:SUPOn\empty

   \let\SUPOff\empty \let\SUPOn\empty

\else
   \Log:Note{for non active \string^,
       use the command line option `no\string^'}%
   \ifx \sys:sp\:UnDef \def\:tempbb{^}
\else               \def\:tempbb{\noexpand\sys:sp}\fi
%
   \ifx \sys:sp\:UnDef \def\:tempb#1{\append:def\SUPOff{\let#1^}}
\else               \def\:tempb#1{\append:def\SUPOff{\def#1{%
  \ifmmode \expandafter\s:p \else \expandafter\sys:sp \fi
}%
}}\fi
%
   \catcode`\^13
      \if:Option
   \def\S:p{\m:op\s:p{SUP}}
\else
   \def\S:p#1{\def\SuP:{#1}\futurelet\:temp\sup:sub}
   \:CheckOption{^13} \if:Option \catcode`\_13
   \else \catcode`\_12\fi
   \def\blank:space{
   }
   \def\sup:sub{\expandafter
      \ifx \blank:space\:temp \expandafter\sup:subA
       \else   \expandafter\sup:subB\fi}
   \expandafter\def
      \expandafter\sup:subA\blank:space{\futurelet\:temp\sup:sub}
   \def\sup:subB{\ifx _\:temp \expandafter\SUP:SUB
      \else \expandafter\a:putSUP \fi }
   \catcode`\_8
   \def\a:putSUP{\sup:I \SuP:}
   \def\sup:I{\m:op\s:p{SUP}}
\fi

      \def\x:SUPOff{\let^\s:p }
      \def\pr:sp{\ifx \EndPicture\:UnDef
                     \expandafter\Protect\expandafter\S:p
                 \else \expandafter\s:p \fi}
      \edef\:SUPOff{\def\noexpand^{\:tempbb}}

      \:tempb^

      \def\x:SUPOn{\def^{\ifmmode \expandafter\pr:sp
                 \else    \expandafter\sys:sp\fi}\let\sp=^
}
\x:SUPOn

      \def\SUPOn{%
   \def^{\ifmmode \expandafter\pr:sp
         \else    \expandafter\sys:sp\fi}}
\SUPOn

      \def\:sUp{%
   \let\:sUp^%
   \def^{\futurelet\:temp\next:hat}
   \def\next:hat{\ifx ^\:temp \expandafter\:dblhat\else
      \expandafter\:sUp\fi}%
}

   \catcode`\^7
   \:CheckOption{^13} \if:Option
      \:sUp
\def\:dblhat#1#2{\def\:temp{#2}%
   \def\:tempc{\def\:tempa####1>{}\:warning{\string^\string
       ^\expandafter\:tempa\meaning\:temp? \string\Configure{\string
       \string\string ^\string\string\string^}{\expandafter\:tempa
       \meaning \:temp}{...} or use option no\string^}}%
   \ext:chr \:tempc}
\let\ext:chr\empty
\NewConfigure{\string^\string^}[2]{%
   \NewConfigure{\string^\string^}{2}%
   \append:def\ext:chr{\def\:tempa{#1}\ifx \:temp\:tempa
      \def\:tempc{#2}\fi}}

      \append:def\no:restore{\mathcode`\^"8000 \catcode`\^13 }
      \append:def\SUPOn{\mathcode`\^"8000 \catcode`\^13 \let\sp=^
}
   \else
      \Log:Note{for \string^ of catcode 13,
          use the command line option `\string^13'}%
      \append:def\no:restore{\mathcode`\^"8000 \catcode`\^12 }
      \append:def\SUPOn{\mathcode`\^"8000 \catcode`\^12 \let\sp=^
}
   \fi
   \bgroup
      \SUPOn  \def\:temp{\let\sp=^
}
   \expandafter \egroup \:temp
\fi
\def\m:op{\ifx \EndPicture\:UnDef  \expandafter\:mop
          \else                    \expandafter\:m:p\fi}
\def\:mop{\relax\ifmmode \expandafter \mo:p \else \expandafter\mop:\fi}
\def\mo:p#1#2#3{{\csname a:#2\endcsname
   #1{#3}\csname b:#2\endcsname}}
\def\mop:#1#2#3{#1}
\def\:m:p#1#2{#1}
\NewConfigure{SUB}{2}
\NewConfigure{SUP}{2}
\:CheckOption{no^} \if:Option \else \:CheckOption{no_}\fi
\if:Option
   \NewConfigure{SUBSUP}[3]{}
   \NewConfigure{SUPSUB}[3]{}
   \NewConfigure{SUB/SUP}[6]{}
\else
   \def\SUP:SUB#1#2{\let\chs:sbsp\:gobble\def\SuB:{#2}\SUBSUP:}
   \def\SUB:SUP#1#2{\def\chs:sbsp##1##2{##1}\def\SuP:{#2}\SUBSUP:}
   \let\SUBSUP:\empty
   \NewConfigure{SUBSUP}[3]{%
      \def\:temp{#1#2#3}\ifx \:temp\empty
        \def\SUBSUP:{\sub:I\SuB:\sup:I\SuP:}%
      \else   \def\SUBSUP:{#1\s:b{\SuB:}#2\s:p{\SuP:}#3}\fi}
   \NewConfigure{SUPSUB}[3]{%
      \def\:temp{#1#2#3}\ifx \:temp\empty
        \def\SUBSUP:{\sup:I\SuP:\sub:I\SuB:}%
      \else   \def\SUBSUP:{#1\s:p{\SuP:}#2\s:b{\SuB:}#3}\fi}
   \NewConfigure{SUB/SUP}[6]{%
      \def\:temp{#1#2#3#4#5#6}\ifx \:temp\empty
        \def\SUBSUP:{\sub:I\SuB:\sup:I\SuP:}%
      \else   \def\SUBSUP:{\chs:sbsp
                 {#1\s:b{\SuB:}#2\s:p{\SuP:}#3}%
                 {#4\s:p{\SuP:}#5\s:b{\SuB:}#6}}\fi}
\fi

   \def\MathClass{\ht:special{t4ht\string^}}
\let\EndMathClass\MathClass
\def\PauseMathClass{\ht:special{t4ht\string^-}}
\def\EndPauseMathClass{\ht:special{t4ht\string^+}}
\catcode`\^=7
\NewConfigure{MathClass}[5]{\NoFonts \ht:special{t4ht@[}%
   \def\:temp{#2}\ifx \:temp\empty \else
      \ht:special{t4ht\string^#1#2#3#2#4}\fi
   \def\:temp{#5}\ifx \:temp\empty \else
      \bgroup \everypar{}\everymath{}\everydisplay{}%
      \hbox{${\ht:special{t4ht\string^#1}%
         {#5}^{{#5}^{#5}}\ht:special{t4ht\string^}}$}%
      \vbox{$${\ht:special
         {t4ht\string^#1}{#5}^{{#5}^{#5}}\ht:special{t4ht\string^}}$$}\egroup
   \fi
   {\everypar{}\noindent\vfill\break}%
   \ht:special{t4ht@]}\EndNoFonts
}
\NewConfigure{MathDelimiters}[2]{\NoFonts \ht:special{t4ht@[}%
  \bgroup \everypar{}\everymath{}\everydisplay{}%
  \hbox{${\ht:special
                     {t4ht\string^4}#1\ht:special{t4ht\string^5}#2%
    \ht:special{t4ht\string^4}{}^{#1}\ht:special{t4ht\string^5}{}^{#2}%
    \ht:special{t4ht\string^4}{}^{{}^{#1}}\ht:special
                                         {t4ht\string^5}{}^{{}^{#2}}%
    \ht:special{t4ht\string^}}$}%
  \vbox{$${\ht:special
                     {t4ht\string^4}#1\ht:special{t4ht\string^5}#2%
    \ht:special{t4ht\string^4}{}^{#1}\ht:special{t4ht\string^5}{}^{#2}%
    \ht:special{t4ht\string^4}{}^{{}^{#1}}\ht:special
                                         {t4ht\string^5}{}^{{}^{#2}}%
    \ht:special{t4ht\string^}}$$}%
    {\everypar{}\noindent\vfill\break}%
    \ht:special{t4ht@]}\egroup
  \EndNoFonts}
\catcode`\^=12
\HAssign\New:MathClass7
\catcode`\/=0
\catcode`\\=12
/def/NewMathClass#1{/relax
  /expandafter/ifx /csname /expandafter/:gobble/string#1/endcsname/relax
    /gHAdvance/New:MathClass by 1/relax
    /ifnum /New:MathClass>78
       /:warning{Too many math classes}
    /else
       /HAssign#1/New:MathClass /def/:tempc{#1}/:NewMC
       0123456789:;<=>?%
       @ABCDEFGHIJKLMNO%
       PQRSTUVWXYZ[\]{/string^}{/string_}%
       `abcdefghijklmno%
       pqrstuvwxyz{/string{}|{/string}}{/string~}!*?: %
    /fi
  /else
     /:warning{/string#1 is already defined}
  /fi}
/catcode`/\=0
\catcode`\/=12
\def\:NewMC#1{%
   \ifnum \:tempc=0 \expandafter\xdef\:tempc{#1}\expandafter\stop:do
   \else
      \expandafter\HAdvance\:tempc  -1\relax
      \expandafter\:NewMC
   \fi
}
\NewConfigure{nolimits}[1]{\def\:temp{#1}\ifx \:temp\empty
   \let\nolimits\o:nolimits: \else
   \def\:temp{\o:nolimits:\futurelet\:temp\:nolimits}%
   \def\:nolimits{\ifx \:temp\limits \else
                  \ifx \:temp\nolimits \else #1\fi\fi}%
   \HLet\nolimits\:temp \fi}
\let\o:nolimits:\nolimits
\NewConfigure{limits}[1]{\def\:temp{#1}\ifx \:temp\empty
   \let\limits\o:limits: \else
   \def\:limits{\ifx \:temp\nolimits \else#1\fi}%
   \def\:temp{\o:limits:\:l:mits}%
   \HLet\limits\:temp \fi}
\let\o:limits:\limits

\def\::limits{\expandafter\ifx \blank:spc\:temp
     \afterassignment\:l:mits \tmp:cnt0%
  \else
     \ifx \limits\:temp\else
        \expandafter\expandafter\expandafter\:limits
     \fi
  \fi}
\def\:l:mits{\futurelet\:temp\::limits}
\catcode`\ =13\relax\def\blank:spc{\let\blank:spc= }\blank:spc%
\catcode`\ =10\relax
\NewConfigure{displaylimits}[1]{\def\:temp{#1}\ifx \:temp\empty
   \let\displaylimits\o:displaylimits: \else
   \def\:displaylimits{\ifx \:temp\nolimits \else
           \ifx \:temp\limits \else  #1\fi\fi}%
   \def\:temp{\o:displaylimits:\display:l:mits}%
   \HLet\displaylimits\:temp \fi}
\let\o:displaylimits:\displaylimits
\def\::displaylimits{\expandafter\ifx \blank:spc\:temp
     \afterassignment\display:l:mits \tmp:cnt0%
  \else\expandafter\:displaylimits \fi}
\def\display:l:mits{\futurelet\:temp\::displaylimits}

   \def\:temp{\a:mathord \o:mathord:}      \HLet\mathord\:temp
\let\a:mathord\empty
\def\:temp{\a:mathop \o:mathop:}        \HLet\mathop\:temp
\let\a:mathop\empty
\def\:temp{\a:mathbin \o:mathbin:}      \HLet\mathbin\:temp
\let\a:mathbin\empty
\def\:temp{\a:mathrel \o:mathrel:}      \HLet\mathrel\:temp
\let\a:mathrel\empty
\def\:temp{\a:mathopen \o:mathopen:}    \HLet\mathopen\:temp
\let\a:mathopen\empty
\def\:temp{\a:mathclose \o:mathclose:}  \HLet\mathclose\:temp
\let\a:mathclose\empty
\def\:temp{\a:mathpunct \o:mathpunct:}  \HLet\mathpunct\:temp
\let\a:mathpunct\empty
\NewConfigure{FormulaClass}[4]{%
   \def\:temp{#2}%
   \expandafter\edef\csname a:\ifcase #1 mathord\or mathop\or
      mathbin\or mathrel\or mathopen\or mathclose\else
      mathpunc\fi\endcsname{\noexpand\ht:special
      {t4ht\string^\ifx\:temp\empty#1)\else )#2#3#2#4\fi}}}
\NewConfigure{FormulaClass*}[4]{%
   \def\:temp{#2}%
   \expandafter\edef\csname a:\ifcase #1 mathord\or mathop\or
      mathbin\or mathrel\or mathopen\or mathclose\else
      mathpunc\fi\endcsname{\ht:special
      {t4ht\string^\ifx\:temp\empty#1(\else (#2#3#2#4\fi}}}
\NewConfigure{mathord}[4]{\Configure{FormulaClass}{0}{#1}{#2}{#3}%
   \pend:def\a:mathord{#4}}
\NewConfigure{mathop}[4]{\Configure{FormulaClass}{1}{#1}{#2}{#3}%
   \pend:def\a:mathop{#4}}
\NewConfigure{mathbin}[4]{\Configure{FormulaClass}{2}{#1}{#2}{#3}%
   \pend:def\a:mathbin{#4}}
\NewConfigure{mathrel}[4]{\Configure{FormulaClass}{3}{#1}{#2}{#3}%
   \pend:def\a:mathrel{#4}}
\NewConfigure{mathopen}[4]{\Configure{FormulaClass}{4}{#1}{#2}{#3}%
   \pend:def\a:mathopen{#4}}
\NewConfigure{mathclose}[4]{\Configure{FormulaClass}{5}{#1}{#2}{#3}%
   \pend:def\a:mathclose{#4}}
\NewConfigure{mathpunct}[4]{\Configure{FormulaClass}{6}{#1}{#2}{#3}%
   \pend:def\a:mathpunct{#4}}
\NewConfigure{mathord*}[4]{\Configure{FormulaClass*}{0}{#1}{#2}{#3}%
   \pend:def\a:mathord{#4}}
\NewConfigure{mathop*}[4]{\Configure{FormulaClass*}{1}{#1}{#2}{#3}%
   \pend:def\a:mathop{#4}}
\NewConfigure{mathbin*}[4]{\Configure{FormulaClass*}{2}{#1}{#2}{#3}%
   \pend:def\a:mathbin{#4}}
\NewConfigure{mathrel*}[4]{\Configure{FormulaClass*}{3}{#1}{#2}{#3}%
   \pend:def\a:mathrel{#4}}
\NewConfigure{mathopen*}[4]{\Configure{FormulaClass*}{4}{#1}{#2}{#3}%
   \pend:def\a:mathopen{#4}}
\NewConfigure{mathclose*}[4]{\Configure{FormulaClass*}{5}{#1}{#2}{#3}%
   \pend:def\a:mathclose{#4}}
\NewConfigure{mathpunct*}[4]{\Configure{FormulaClass*}{6}{#1}{#2}{#3}%
   \pend:def\a:mathpunct{#4}}

   \def\MathSymbol{\futurelet\:temp\:::MathSymbol}
\def\:::MathSymbol{\if +\:temp
   \expandafter\:MathSymbol \else
   \expandafter\::MathSymbol \fi
}
\def\::MathSymbol#1#2{%
   \def\:tempb##1"##2///{##1}%
   \edef\:tempa{\expandafter\expandafter\expandafter\:tempb
       \expandafter\meaning\csname#2\endcsname"///}%
   \edef\:tempc{\string\mathchar}%
   \ifx \:tempa\:tempc
      \NewConfigure{#2}{1}\Configure{#2}{\csname o:#2:\endcsname}%
   \else
      \:MathSymbol{}{#1}{#2}%
   \fi
}
\def\:MathSymbol#1#2#3{%
   \def\:temp{{\math:sym#2{#3}}}%
   \expandafter\HLet\csname #3\endcsname\:temp
   \NewConfigure{#3}{1}\Configure{#3}{\csname o:#3:\endcsname}%
}
\def\math:sym#1#2{{\relax\ifmmode \expandafter#1\fi
   {\csname a:#2\endcsname}}}
\def\:temp#1{\a:left{#1}\o:left:#1\b:left{#1}}
\HLet\left\:temp
\def\:temp#1{\a:right{#1}\o:right:#1\b:right{#1}}
\HLet\right\:temp
\NewConfigure{left}[2]{\def\a:left##1{#1}\def\b:left##1{#2}}
\NewConfigure{right}[2]{\def\a:right##1{#1}\def\b:right##1{#2}}
\Configure{left}{}{}
\Configure{right}{}{}
\def\:tempc{\pic:gobble\a:over \o:over: \pic:gobble\b:over}
\HLet\over\:tempc
\NewConfigure{over}{2}
\def\:tempc{\pic:gobble\a:atop \o:atop: \pic:gobble\b:atop}
\HLet\atop\:tempc
\NewConfigure{atop}{2}
\def\::above{\pic:gobble\a:above \o:above:\tmp:dim
            \pic:gobble\b:above }
\def\:above{\afterassignment\::above}
\def\:tempc{\Protect\:above \tmp:dim}
\HLet\above\:tempc
\NewConfigure{above}{2}
\def\::abovewithdelims#1#2{\pic:gobble\a:abovewithdelims
   \o:abovewithdelims:#1#2\tmp:dim\pic:gobble\b:abovewithdelims}
\def\:abovewithdelims#1#2{\def\:temp{\::abovewithdelims#1#2}%
   \afterassignment\:temp\tmp:dim=}
\def\:tempc{\Protect\:abovewithdelims }
\HLet\abovewithdelims\:tempc
                            \NewConfigure{abovewithdelims}{2}
\def\:overwithdelims#1#2{\pic:gobble\a:overwithdelims
   \o:overwithdelims:#1#2\pic:gobble\b:overwithdelims}
\def\:tempc{\Protect\:overwithdelims}
\HLet\overwithdelims\:tempc
                            \NewConfigure{overwithdelims}{2}
\def\:atopwithdelims#1#2{\pic:gobble\a:atopwithdelims
   \o:atopwithdelims:#1#2\pic:gobble\b:atopwithdelims}
\def\:tempc{\Protect\:atopwithdelims}
\HLet\atopwithdelims\:tempc
                            \NewConfigure{atopwithdelims}{2}
\def\:temp{\pic:gobble\a:radical\o:radical:}
\HLet\radical\:temp
\NewConfigure{radical}{1}
\def\:temp#1#2#3#4{\a:mathchoice
   \o:mathchoice:{#1}{#2}{#3}{#4}\b:mathchoice }
\HLet\mathchoice\:temp
\NewConfigure{mathchoice}{2}
\def\:temp{\o:eqno:\a:eqno}
\HLet\eqno\:temp
\def\:temp{\o:leqno:\a:leqno}
\HLet\leqno\:temp
\NewConfigure{eqno}{1}
\NewConfigure{leqno}{1}

\fi

\edef\:temp{\string\special}
\edef\:tempa{\meaning\special}
\ifx \:temp\:tempa \else
   \def\:temp{\special
}
   \ifx \:temp\ht:special
     \:warning{Redefined \string\special. Might
                need \string\Configure{special}{<system-special>}}
\fi\fi
\NewConfigure{Link}[4]{%
   \def\empty:lnk{#4}\ifx\empty:lnk\empty\else \def\:sharp{#4}\fi
   \let\empty:lnk\empty     \def\tag:A{#1}%
   \def\HREF:{#2}\def\NAME:{#3}}
\Configure{Link}{}{}{}{}
\let\NOHREF:\:gobble

   \Hinput{tex4ht}
   \def\at:docend{\missing:endpream
\ifnum \HPageDepth> 0 \EndHPage[1]{}\fi
\Close:UntilEnd
%
%
\HAssign\op:fl\maxfile:id\space  \close:files
\root:next
\ifx \nsrt:chlnks\:UnDef
\else \nsrt:chlnks{tail}{}{BackChild}\fi
%
{\b:BODY \b:HTML}%
%
\global\let\at:docend=\empty}
\expand:after{\let\o:end}\csname end\endcsname
\expandafter\def\csname end\endcsname{\HtmlEnv
   \at:docend
   \csname export:hook\endcsname   \csname o:end\endcsname}

\fi
\long\def\NewSection#1#2{%
   \Def:Section#1{#2}{##1}%
   \edef\:temp{\expandafter\:gobble\string#1}%
   \Configure:Sec\:temp{}{}{}{}%
   \ConfigureToc{\expandafter\:gobble\string#1}{\empty}{\empty}{}{}}
\def\Def:Section#1{%
   \edef\:tempc{{\expandafter\:gobble \string#1}}%
   \edef\:temp{\long\def\expandafter\noexpand \csname
    c:\expandafter\:gobble \string#1:\endcsname
      ####1####2####3####4{\noexpand
      \Configure:Sec\:tempc{####3}{####4}{####1}{####2}}%
   \noexpand\NewConfigure{CutAt\expandafter\:gobble \string#1}2%
   \noexpand\NewConfigure{+CutAt\expandafter\:gobble \string#1}2%
   }\:temp  \expandafter\Configure\:tempc{\empty}{}{\empty}{}%
%
   \futurelet\:temp\ch:NewSec}
\def\ch:NewSec{\if *\:temp\let\if:toc\:gobble\expandafter\op:NewSec
               \else  \let\if:toc\empty  \expand:after{\op:NewSec+}\fi}
\def\op:NewSec#1{\expandafter\:NewSec\:tempc}
\def\:Every#1{%
   \expandafter\edef\csname Every#1\endcsname{%
      \def\expandafter\noexpand \csname :Every#1\endcsname####1}%
   \expandafter\edef\csname BeforeEvery#1\endcsname{%
      \def\expandafter\noexpand\csname :BeforeEvery#1\endcsname####1}%
}
%
\def\:NewSec#1#2{%
   \NewConfigure{end#1}[1]{\expandafter
   \def\csname a:end#1\endcsname{##1}}%
\Configure{end#1}{}
%
   \expandafter\def\csname #1\endcsname{%
      \expand:after{\let\if:toc}\csname if:#1toc\endcsname
      \:StartSec{#1}{#2}}%
   \expandafter\def\csname c:#1TITLE+:\endcsname{%
   \expandafter\def\csname a:#1TITLE\endcsname####1}%
%
   \expandafter\let\csname if:#1toc\endcsname\if:toc
   \:Every{#1}%
\csname Every#1\endcsname{%
   \expandafter\ifx\csname Toc:#1\endcsname \relax\else
       \a:TocAt  \csname Toc:#1\endcsname \b:TocAt
   \fi
   \ignorespaces}%
%
   \expandafter\def\csname #1:ttl\endcsname##1}
\def\:Ttle#1#2#3{%
   \html:addr
   \Get:SecAnchor{#1}{#2}{#3}%
%
   {\escapechar=`\\%
\protect:wrtoc
\csname Modify#1ToToc\endcsname
\edef\:writetoc{\csname if:toc\endcsname{\the\:tokwrite
   {\string\doTocEntry
    \string\toc \expandafter\ifx\csname toToc:#1\endcsname\relax #1\else
       \csname toToc:#1\endcsname\fi
       {#2}{\html:tocsec{\ifx \TocTitle\:UnDef #3\else
       \TocTitle\fi}}{\the\:tokpage}\relax}}}%
\:writetoc   \global\let\TocTitle\:UnDef
}%
   {\csname #1:Href-\endcsname
%
\no:lbl:idx \csname Modify#1Title\endcsname
\html:sectoc{#3}%
}%
}
\gHAssign\TitleCount0   \global\let\mu:span\TitleCount
\NewConfigure{toToc}[2]{%
   \if !#2!\expandafter\let\csname toToc:#1\endcsname\:UnDef
   \else \if !#1!%
        \expandafter\let\csname IF:#2toc\expandafter\endcsname
             \csname if:#2toc\endcsname
        \expandafter\let\csname if:#2toc\endcsname\:gobble
   \else \edef\:temp{\string @}\edef\:tempa{\string#1}%
   \ifx \:temp\:tempa
         \expandafter\let\csname if:#2toc\endcsname\empty
   \else \edef\:temp{\string ?}%
   \ifx \:temp\:tempa
        \expandafter\let\csname if:#2toc\expandafter\endcsname
             \csname IF:#2toc\endcsname
   \else
     \expandafter\def\csname toToc:#1\endcsname{#2}%
   \fi\fi\fi\fi}
\ifx \:tokwrite\:UnDef
   \csname newtoks\endcsname\:tokwrite
\fi
\ifx \:tokpage\:UnDef
   \csname newtoks\endcsname\:tokpage
\fi
\:tokpage={\folio}
\:tokwrite{\write\:tocout}
\def\Get:SecAnchor#1#2#3{}

\long\def\Configure:Sec#1#2#3#4#5{%
  \expandafter\ifx\csname c:#1\endcsname\relax \let\:tempa\relax \else
  \def\:tempa{#4#5}\fi  \ifx\:tempa\empty \else
     \expandafter\c:def\csname c:#1\endcsname{#4}%
\expandafter\c:def\csname d:#1\endcsname{#5}%
\fi
  \expandafter\ifx\csname a:#1\endcsname\relax \let\:tempa\relax \else
  \def\:tempa{#2#3}\fi  \ifx\:tempa\empty \else
     \expandafter\def\csname a:#1\endcsname##1{#2}%
     \expandafter\def\csname b:#1\endcsname##1{#3}%
  \fi
}

\ifHtml  \def\noct:Close:Until{%
   \let\:tempA\sec:typ  \let\found:\empty
   \let\:tempd\:Sections    \noct:Check:Until
   \ifx \:tempb\sec:typ \expandafter\Do:Close  \fi
   \let\sec:typ\:tempA
}
\def\noct:Check:Until{%
   \ifx \:tempd\empty  \ifx \found:\empty  \let\:tempb\empty
\else  \let\:tempb\found: \let\sec:typ\found:\fi
\else
      \PopStack\:tempd\:tempb
      \edef\:tempe{\:tempb,%
   \expandafter\ifx \csname a:end\:tempb\endcsname\relax \else
     \csname a:end\:tempb\endcsname \fi,,}%
\expandafter\mod:typ\:tempe!*?: %
%
      \ifx \:tempb\sec:typ \else
         \expandafter\expandafter\expandafter\noct:Check:Until
   \fi\fi }
\def\mod:typ#1,#2!*?: {%
   \def\:temp{#1}\ifx \:temp\empty\else
      \edef\:temp{\expandafter\expandafter\expandafter
         \:gobble\expandafter\string \csname #1\endcsname}%
      \ifx \sec:typ\:temp
           \let\found:\:tempb  \let\:temp\empty
      \else \def\:temp{\mod:typ#2!*?: }\fi
   \fi \:temp
}
\def\Close:Until{%
   \let\:tempd\:Sections    \Check:Until
   \ifx \:tempb\sec:typ \expandafter\Do:Close  \fi
}
\def\Check:Until{
   \ifx \:tempd\empty  \let\:tempb\empty \else
        \PopStack\:tempd\:tempb
       \ifx \:tempb\sec:typ \else
      \expandafter\expandafter\expandafter\Check:Until
   \fi\fi }
\PushStack\:Sections{}%
\PopStack\:Sections\:temp
\def\Do:Close{%
   \PopStack\:Sections\:tempb
   \ifx \sec:typ\:tempb \else
      \csname d:\:tempb\endcsname
      \expandafter\Do:Close
   \fi
}
\def\Close:UntilEnd{%
   \ifx \:Sections\empty  \let\:tempb\empty
   \else  \PopStack\:Sections\:tempb  \fi
   \ifx \:tempb\empty \else
      \csname d:\:tempb\endcsname
      \expandafter\Close:UntilEnd
   \fi
}
\def\:StartSec#1#2#3{%
   \def\title:chs##1##2{##2}%
   \def\sec:typ{#1}%
   \a:dTocAt  \csname TocAt*\endcsname   \b:dTocAt
\expand:after{\global\let}\csname TocAt*\endcsname\empty
%
   \a:NoSection
   \ro:nd\html:lbl{1000}%
%
   \expandafter
   \let\expandafter\TitleMark\csname #1HMark\endcsname
%
\expandafter\ifx  \csname Cut:#1\endcsname\relax
  \def\:tempa{#1}\noct:Close:Until
\ifx \:tempb \empty \else
   \csname d:\ifx \found:\empty #1\else \found:\fi\endcsname \fi
\gHAdvance
   \TitleCount  1 \global\let\mu:span\TitleCount
\expandafter\expandafter\expandafter\global \expandafter
                         \let\csname #1:Count\endcsname\TitleCount
\csname c:#1\endcsname
%
\else
   \Configure{CutAt#1}{\gHAdvance
   \TitleCount  1 \global\let\mu:span\TitleCount
\expandafter\expandafter\expandafter\global \expandafter
                         \let\csname #1:Count\endcsname\TitleCount
\csname c:#1\endcsname
      }{\def\sec:typ{#1}\Close:Until \csname d:#1\endcsname}%
%
   \expandafter\ifx \csname a:\sec:typ TITLE\endcsname\relax\else
   \expandafter\let\expandafter\a:CutAtTITLE
             \csname a:\sec:typ TITLE\endcsname\fi
%
   \csname Cut:#1\endcsname{#3}%
\fi
\global\let\sec:lvl\HPageDepth
\PushStack\:Sections{#1}%
%
%
   \expandafter\ifx \csname :BeforeEvery#1\endcsname\relax \else
   \csname :BeforeEvery#1\endcsname{#3}%
\fi
%
   \expandafter\ifx \csname a:#1\endcsname\relax  \else
      \csname a:#1\endcsname{#3}%
   \fi
   \b:NoSection \:Ttle{#1}{#2}{\csname #1:ttl\endcsname{#3}}%
   \a:NoSection
   \expandafter\ifx \csname b:#1\endcsname\relax   \else
      \csname b:#1\endcsname{#3}%
   \fi
   \expandafter\ifx \csname :Every#1\endcsname\relax \else
   \csname :Every#1\endcsname{#3}%
\fi
%
   \csname a:AfterTitle\endcsname   \b:NoSection
   \def\title:chs##1##2{##1}%
}
\def\title:chs#1#2{#1}
\def\protect:wrtoc{%
   \let\:newlnch\space
\PictureOff
   \def\%{\string\%}\a:writetoc}
\def\html:sectoc#1{\csname if:toc\endcsname{%
   \xdef\CurSecHaddr{\ifx \:SecAnchor\:UnDef
   QQ1-\file:id-\TitleCount
\else \:SecAnchor \fi  }%
   \edef\:attr{\noexpand\scp:Link{%
     \ifTag{)Q\aXrefFile QQ2-\file:id-\TitleCount }%
            {QQ2-\file:id-\TitleCount }%
            {\ifx \:SecAnchor\:UnDef
   QQ1-\file:id-\TitleCount
\else \:SecAnchor \fi  }%
     }}%
   \:attr{\ifx \:SecAnchor\:UnDef
   QQ1-\file:id-\TitleCount
\else \:SecAnchor \fi  }}%
   \ifx \EndTitle:Link\:gobble \if:toc{\scp:EndLink}\fi
   \csname a:InsertTitle\endcsname
\csname InsertTitle\endcsname{#1}%
\EndTitle:Link{\if:toc{\scp:EndLink}}}
\def\html:tocsec#1{\string\csname\space a:TocLink\string\endcsname
   {\FileNumber
   }{\ifx \:SecAnchor\:UnDef
   QQ1-\file:id-\TitleCount
\else \:SecAnchor \fi  }{QQ2-\file:id-\TitleCount }{#1}}
\let\CurSecHaddr\empty
\:CheckOption{sections+}\if:Option
     \def\Title:Link{\Link}
     \def\EndTitle:Link#1{#1}
\else
     \def\Title:Link#1{\Link{}}
     \let\EndTitle:Link\:gobble
   \Log:Note{for back links to toc,
       use the command line option `sections+'}%
\fi
\def\NoLink#1{\expandafter
  \gdef\csname #1:Href-\endcsname{\let\EndTitle:Link\:gobble}}%
\HAssign\sec:lvl0

   \:CheckOption{hooks+}  \if:Option
      \else \:CheckOption{hooks} \fi
   \if:Option  \long\def\Configure:Sec#1#2#3#4#5{%
  \expandafter\ifx\csname c:#1\endcsname\relax \let\:tempa\relax \else
  \def\:tempa{#4#5}\fi  \ifx\:tempa\empty \else
     \expandafter\c:def\csname c:#1\endcsname{#4}%
\expandafter\c:def\csname d:#1\endcsname{#5}%
\fi
  \expandafter\ifx\csname a:#1\endcsname\relax \let\:tempa\relax \else
  \def\:tempa{#2#3}\fi  \ifx\:tempa\empty \else
       \def\:tempa{#2}\ifx \:tempa\empty
     \expandafter\def\csname a:#1\endcsname
         ##1{\hbox{\a:trc #13:4\b:trc}#2\hbox{\c:trc #14:4\d:trc}}%
  \else
     \expandafter\def\csname a:#1\endcsname##1{#2}%
  \fi
  \def\:tempa{#3}\ifx \:tempa\empty
     \expandafter\def\csname b:#1\endcsname
         ##1{\hbox{\a:trc #13:4\b:trc}#3\hbox{\c:trc #14:4\d:trc}}%
  \else
     \expandafter\def\csname b:#1\endcsname##1{#3}%
\fi
\fi
}
\fi
\fi
\def\ConfigureMark#1#2{\long\expandafter
   \def\csname #1HMark\endcsname{#2}}
\let\no:lbl:idx\empty
\let\toc:lbl:idx\empty


\ifx \FileStream\:UnDef \else
   \errmessage{--- TeX4ht error ---
       \noexpand\FileStream is defined outside of TeX4ht}\endinput
\fi
\def\FileStream{\IgnorePar
   \let\:tempb
-\futurelet\:temp\F:le}
\def\F:le{\if +\:temp \let\:tempb
+\expandafter\Fl:e
   \else \expand:after{\Fl:e-}\fi}
\def\Fl:e#1{\futurelet\:temp\::File}
\def\::File{\ifx [\:temp \expandafter\:File
            \else  \expand:after{\:File[]}\fi }
\def\:File[#1]#2{}

\ifHtml \def\:File[#1]#2{%
   \no:pic\edef\file:name{#2}\yes:pic
   \expandafter\ifx\csname
           FN \file:name\endcsname\relax
                \ht:special{t4ht>\file:name}%
\immediate\write-1{--- file \file:name\space ---}%
%
\gHAdvance\maxfile:id  1
\global\let\file:id\maxfile:id
\Tag{)F\aXrefFile \file:id
   \empty F-}{\file:name}%
\expandafter\xdef\csname
    FN \file:name\endcsname{\file:id}%
\no:pic
\edef\:temp{\noexpand\yes:pic \def\noexpand\:temp{#1}}\:temp
\begingroup
  \def\gobble:font##1##2{##2}%
\:TITLE:
\:HPageTITLE:
  \no:pic
  \edef\:tempa{\noexpand\yes:pic \def\noexpand\:tempa{#1}}\:tempa
  \xdef\:temp{\cut:TTL{\noexpand\Configure{TITLE+}{\a:HPageTITLE{\ifx
   \:temp\empty \file:name\else \:tempa\fi}}}}%
\endgroup \:temp
%
\ht:special{t4ht@[}{\ht:everypar{}\leavevmode}\ht:special{t4ht@]}%
%
\a:PROLOG \a:HTML \a:HEAD
\ifx +\:tempb
%
   %
   \xdef:cs{Lv \file:id}{\noexpand\a:TITLE
      \bgroup \noexpand\:TITLE: \noexpand\c:TITLE \egroup
%
      \noexpand\b:TITLE\noexpand\a:@HEAD\noexpand\b:HEAD}%
\else
   \xdef:cs{Lv \file:id}{}%
      \a:TITLE\bgroup \:TITLE: \c:TITLE \egroup
\b:TITLE \a:@HEAD\b:HEAD\B:DY
\fi
%
   \else        \xdef\file:id{\csname
             FN \file:name\endcsname}%
\ht:special{t4ht>\ifnum \file:id>\bs:fileid\space \file:name\fi }%
%
   \fi}
\HAssign\bs:fileid  1
\def\EndFileStream#1{%
   \expandafter\ifx
            \csname  FN #1\endcsname\relax
      \:warning{\string\EndFileStream{#1}?}%
   \else
      \ifnum\csname  FN #1\endcsname=\bs:fileid
         \:warning{\string\EndFileStream{\jobname .\:html}?}%
      \else \expandafter\ifnum  \csname  FN #1\endcsname > \bs:fileid
%
         {\let\inputlineno\tmp:cnt \tmp:cnt1   \root:next }%
{\b:BODY \b:HTML}%
%
\ht:special{t4ht<#1}%
\g:delete{\empty  FN #1}%
%
\expandafter\expandafter\expandafter\global \expandafter
                     \let\csname  Lv \file:id\endcsname\:UnDef
\global\let\file:id\maxfile:id
\find:fileid
%
   \fi\fi\fi }
\def\find:fileid{%
  \expandafter\ifx \csname  Lv \file:id\endcsname \relax
      \gHAdvance\file:id  -1  \expandafter\find:fileid
  \fi
}
\def\TagFile#1{%
   \expandafter\ifx \csname
          cw:)F\aXrefFile \file:id \empty F-%
\endcsname \relax \else
      \Tag{#1(L }{\LikeRef{)F\aXrefFile \file:id \empty F-%
}}%
   \fi
}
\def\RefFile#1{\LikeRef{#1(L }}
\def\FileName{\LikeRef
   {)F\aXrefFile \file:id \empty F-}}
\def\RefFileNumber#1{%
   \expandafter\ifx  \csname
          cw:)F\aXrefFile #1%
                  \empty F-\endcsname\relax
   \else
      \:LikeRef{)F\aXrefFile #1\empty F-}%
   \fi  }
\xdef:cs{\empty  FN \jobname .\:html}{\file:id}
\xdef:cs{\empty  FN }{\file:id}
\Tag{)F\aXrefFile \file:id
                \empty F-}{\jobname .\:html}
\bgroup
  \let\special\relax
%
  \xdef:cs{Lv \file:id}{\noexpand\a:TITLE
     \bgroup \noexpand\:TITLE: \noexpand\c:TITLE \egroup
%
     \noexpand\b:TITLE \noexpand\a:@HEAD\noexpand\b:HEAD}%
\egroup
\def\close:files{%
   \ifnum \op:fl<\bs:fileid \else
      \def\:warning##1{}%
      \EndFileStream{\RefFileNumber\op:fl}%
      \Advance:\op:fl  -1
      \expandafter\close:files
   \fi}
  \fi

\:CheckOption{next}     \if:Option   \else
   \let\c:next:\:gobbleII
\fi

\ifHtml  \def\HPage{\strt:bt\ch:HPage}
\def\ch:HPage{%
   \ifx -\:temp \expandafter\m:HPage
   \else \expand:after{\ifx [\:temp \expandafter\op:HPage
                       \else        \expandafter\:HPage   \fi}%
   \fi}
\def\strt:bt#1{%
   \def\:bgtr<##1>{\expand:after{\bt:fn##1.}\:html!*?: %
%
      \ifx #1\ch:bbtf \else \PushStack\:btid{##1}\fi
%
      \futurelet\:temp#1}%
   \futurelet\:temp\ch:btgr}
\def\ch:btgr{\ifx  <\:temp  \expandafter\:bgtr
             \else          \expand:after{\:bgtr<>}\fi}%
\def\HP:Link{\Link[\HP:file
   \a:LinkHPage]{}{\HP:file}\global\let\a:LinkHPage\empty}
\NewConfigure{LinkHPage}[1]{\def\a:LinkHPage{ #1}}
\let\a:LinkHPage=\empty
\def\op:HPage[#1]#2{%
   %\chk:hpfl
%
   \:hookI{BeforeHPageButton}{}{#2}%
   \hpg:wrn{#1}{#2}\HPage    \TagFile{)B\:temp}%
                             \Save:HPageTag\:temp
                             \Save:HPage{#2}%
   \NewFileName\HP:file   \Save:Link\HP:file
   \if:notempty{#2}{\HP:Link#2\EndLink}%
   \:hookI{AfterHPageButton}{}{#2}%
   \:btfile{#2}%
   \:buttrc\HPage{[#1]{#2}}%
   \PushStack\:afterbt{x}%
   \edef\:temp{#1}\ifx \:temp\empty \no:pic
       \edef\:temp{\noexpand\yes:pic
           \def\noexpand\:temp{#2}}\:temp \fi
%
   \TagFile{\:temp}}
\def\:HPage#1{%
   %\chk:hpfl
%
  \:hookI{BeforeHPageButton}{}{#1}%
   \NewFileName\HP:file   \Save:Link\HP:file  \Save:Temp\HP:file
                      \TagFile{)B\HP:file}%
                             \Save:HPageTag\HP:file
                             \Save:HPage{#1}%
   \def\:temp{#1}\ifx \:temp\empty
   \else \HP:Link#1\EndLink
   \fi
   \:hookI{AfterHPageButton}{}{#1}%
   \:btfile{#1}%
   \:buttrc\HPage{{#1}}%
   \PushStack\:afterbt{x}%
   \Recall:Temp\:tempa    \TagFile{\:tempa}}
\def\hpg:wrn#1#2#3{%
   \edef\:temp{#1}\ifx \:temp\empty \no:pic
       \edef\:temp{\noexpand\yes:pic
           \def\noexpand\:temp{#2}}\:temp \fi
%
   \ifx \:temp\empty \:warning{\string#3[]{}?}\fi}
\def\Save:Temp{\PushStack\sv:Temp}
\def\Recall:Temp{\PopStack\sv:Temp}
\def\m:HPage#1{\futurelet\:temp\ch:mbut}
\def\ch:mbut{\ifx [\:temp \expandafter\op:mbut
             \else        \expandafter\:mbut   \fi}
\def\op:mbut[#1]{%
   %\chk:hpfl
%
  \:hookI{BeforeHPageButton}{}{}%
   \edef\:temp{#1}%
   \ifx \:temp\empty \:warning{\string\HPage-[]?}\fi
                      \TagFile{)B\:temp}%
                             \Save:HPageTag\:temp
                             \Save:HPage{}%
   \NewFileName\HP:file   \Save:Link\HP:file
   \HP:Link%
   \def\ContHPage{\:ContHPage{x}{#1}}}
\def\:mbut{%
   %\chk:hpfl
%
    \:hookI{BeforeHPageButton}{}{}%
   \NewFileName\HP:file   \Save:Link\HP:file
                      \TagFile{)B\HP:file}%
                             \Save:HPageTag\HP:file
                             \Save:HPage{}%
   \HP:Link%
   \def\ContHPage{\:ContHPage{x}{\HP:file}}}
\def\:ContHPage#1#2{\EndLink
   \Recall:Link\HP:file  \Save:Link\HP:file
   \:hookI{AfterHPageButton}{}{}%
   \:btfile{}%
   \:buttrc\HPage{...\string\ContHPage}%
   \PushStack\:afterbt{#1}%
   \TagFile{#2}}
\def\:hookI#1#2#3{%
   \expandafter\ifx \csname #1\endcsname\relax  #2\else
      \csname #1\endcsname{#3}\fi
}
\def\NewFileName#1{%
   \HAssign#1\maxfile:id
   \Advance:#1  1
   \ifx \:NxtNwFN\:Undef
      \edef#1{\j:bname \ifx \big:fn\:UnDef#1%
                    \else \big:fn\fi  .\:html}%
   \else  \let#1\:NxtNwFN  \global\let\:NxtNwFN\:UnDef  \fi
   \global\let\big:fn\:UnDef
}
\def\NextFile#1{\xdef\:NxtNwFN{#1}}
\def\:btfile#1{%
   \SaveEverypar \FileStream[#1]{\HP:file}  \IgnorePar
   \gHAdvance\HPageDepth  1
   \AtEndHPage{\csname HPageFooter\endcsname}%
   \:hookI{HPageHeader}{}{#1}%
}
\def\HPageButton{\strt:bt\ch:bbtf}
\def\ch:bbtf{\ifx -\:temp \expandafter\op:bbft
             \else \expandafter\:bbtf \fi}
\def\:bbtf[#1]#2{%
   \:hookI{BeforeHPageButton}{}{#2}%
   \hpg:wrn{#1}{#2}\HPageButton
   \TagFile{)B\:temp}%
   \edef\HP:file{\RefFile\:temp}%
   \def\:temp{#2}\ifx \:temp\empty
   \else  \HP:Link#2\EndLink  \fi
   \:hookI{AfterHPageButton}{}{#2}%
   \csname AfterHPage\endcsname  }

\def\op:bbft#1[#2]{%
   \:hookI{BeforeHPageButton}{}{}%
   \edef\:temp{#2}%
   \ifx \:temp\empty \:warning{\string\HPageButton-[]?}\fi
   \TagFile{)B\:temp}%
   \edef\HP:file{\RefFile\:temp}%
   \HP:Link%
   \def\ContHPage{\EndLink
      \:hookI{AfterHPageButton}{}{}%
      \csname AfterHPage\endcsname  }}
\def\BeginHPage{\futurelet\:temp\ch:bbbt}
\def\ch:bbbt{%
   %\chk:hpfl
%
   \NewFileName\HP:file   \Save:Link\HP:file
   \ifx -\:temp  \expandafter\op:bbbt
   \else         \expandafter\:bbbt   \fi}
\def\:bbbt[#1]#2{%
   \PushStack\:btid{#1}%                      
   \:btfile{#2}%
   \:buttrc\BeginHPage{[#1]{#2}}%
   \PushStack\:afterbt\empty
   \hpg:wrn{#1}{#2}\BeginHPage    \Save:HPageTag\:temp
   \Save:HPage{#2}%
   \TagFile{\:temp}}
\def\op:bbbt#1[#2]{%
   \PushStack\:btid{#2}%                     
   \:hookI{AfterHPageButton}{}{}%
   \:btfile{}%
   \:buttrc\BeginHPage{[#2]}%
   \PushStack\:afterbt\empty    \edef\:temp{#2}%
   \ifx \:temp\empty \:warning{\string\BeginHPage-[]?}\fi
   \Save:HPageTag\:temp   \Save:HPage{}%
   \TagFile{\:temp}}
\def\EndHPage{\futurelet\:temp\chEnd:HPage}
\def\chEnd:HPage{\ifx  [\:temp  \expandafter\opEnd:HPage
              \else          \expandafter\End:HPage   \fi}
\def\opEnd:HPage[#1]{%
   \ifnum  #1>\HPageDepth\space
      \:warning{\string\EndHPage[#1]?}%
      \let\:temp\:gobble
   \else \ifnum  #1<\HPageDepth\space
      \def\:temp{\:EndHPage\EndHPage[#1]{}}%
   \else \let\:temp\End:HPage \fi \fi
   \:temp }

\def\End:HPage#1{%
   \ifnum \HPageDepth<1 \:warning{\string\EndHPage{#1}?}\let\:temp\:gobble
   \else  \ifinner\else\:clearpage\fi   \PopStack\:btid\:tempa
      \def\:tempb{#1}\ifx  \:tempb\empty\let\:temp\:EndHPage
      \else  \ifx  \:tempb\:tempa       \let\:temp\:EndHPage
      \else  \Recall:HPageTag\:tempa
             \Save:HPageTag\:tempa
             \ifx  \:tempb\:tempa       \let\:temp\:EndHPage
      \else                    \def\:temp{\:EndHPage\End:HPage{#1}}%
   \fi\fi\fi\fi
   \:temp }

\def\:EndHPage{%
   \csname EndHPage\HPageDepth \endcsname
   \global\expandafter\let\csname EndHPage\HPageDepth\endcsname\:UnDef
   \Recall:Link\HP:file   \Recall:Link\:tempd   \Save:Link\:tempd
   \Recall:HPage\:tempb
   \Recall:HPageTag\:tempc
   \:buttrc\EndHPage{{\:tempb}}%
   \EndFileStream{\HP:file}%
   %\Recall:FileHPg\:tempd
%
   \FileStream{\:tempd}%
   \RecallEverypar  \gHAdvance\HPageDepth  -1
   \PopStack\:afterbt\:temp
   \ifx \:temp\empty \else \csname AfterHPage\endcsname \fi }
\def\AtEndHPage{%
   \expandafter\gdef\csname EndHPage\HPageDepth\endcsname}
\HAssign\HPageDepth0
\PushStack\:btid{}
\def\Save:FileHPg{\PushStack\HPage:FlHg}
\def\Recall:FileHPg{\PopStack\HPage:FlHg}
\def\chk:hpfl{\Save:FileHPg\FileName \:FlHpg}
\def\No:FlHpg{{\Recall:Link\HP:file  \Save:Link\HP:file
   \edef\HP:file{\HP:file}\edef\FileName{\FileName}%
   \edef\HP:file{\expandafter\string\csname \HP:file\endcsname}%
   \edef\FileName{\expandafter\string\csname \FileName\endcsname}%
   \ifx \HP:file\FileName \else
      \:warning{HPage in a non-HPage file
                          `\expandafter\:gobble\FileName'}%
   \fi}}
\def\HPageInFile{\global\let\:FlHpg\empty}
\def\NoHPageInFile{\global\let\:FlHpg\No:FlHpg}
\NoHPageInFile
\expand:after{\def\bt:fn##1.}\:html#2!*?: {%
   \def\:temp{#2}\ifx \:temp\empty
   \else \NextFile{#1.\:html}\fi }
\Odef\ExitHPage[#1]#2{%
   \Recall:HPageTag\HP:file  \Save:HPageTag\HP:file
   \Link[\RefFile{)B\HP:file}]{\RefFile{\HP:file}}{#1}%
      \def\:temp{#2}\ifx \:temp\empty
         \Recall:HPage\:temp  \Save:HPage\:temp
         \ifx \:temp\empty \a:ExitHPage
         \else \b:ExitHPage \:temp \c:ExitHPage \fi
      \else #2\fi
   \EndLink
}
\def\RefHPage{\RefFile}
\def\Save:Link{\PushStack\HPageFiles}
\def\Recall:Link{\PopStack\HPageFiles}
\Save:Link{\jobname.\:html}
\def\Save:HPage{\PushStack\HPageAnchors}
\def\Recall:HPage{\PopStack\HPageAnchors}
\def\Save:HPageTag{\PushStack\HPage:Tags}
\def\Recall:HPageTag{\PopStack\HPage:Tags}
\def\CutAt#1{%
  \if           +\:firstch#1 //\:CutAt#1,//\else
  \if -\:firstch#1 //\:CutAt#1,//\else
                               \:CutAt=#1,//\fi\fi
}
\def\PauseCutAt#1{%
   \expandafter\ifx\csname Cut:#1\endcsname\relax\else
      \expandafter\ifx  \csname NoCut:#1\endcsname\relax
          \expand:after{\expandafter\let\csname NoCut:#1\endcsname=}%
             \csname Cut:#1\endcsname
      \fi
      \expandafter\let\csname Cut:#1\endcsname=\null
\expandafter\def\csname Cut:#1\endcsname{%
   \gHAdvance \TitleCount  1
   \null \:gobble
}%
%
    \fi  }
\def\ContCutAt#1{%
   \expandafter\ifx  \csname NoCut:#1\endcsname\relax\else
       \expand:after{\expandafter\let\csname Cut:#1\endcsname=}%
          \csname NoCut:#1\endcsname
   \fi}
\def\:CutAt#1#2,#3//{%
   \csname ltx:like\endcsname
   \expandafter\ifx  \csname #2\endcsname \relax
      \:warning{\string\CutAt\space at undefined
                    `\expandafter\string\csname#2\endcsname'}%
   \fi
   \csname ltx:nolike\endcsname
   \expandafter\ifx \csname #2:\endcsname\relax
   \expand:after{\expandafter\let \csname #2:\endcsname }%
                                  \csname #2\endcsname
\else \:warning{Again \string\CutAt{#2}?}%
\fi
\expandafter\def \csname #2\endcsname{%
   \csname UnCut:#2\endcsname
   \csname #2:\endcsname}%
%
   \:UnCutAt#2,#3,//%
%
   \expandafter\edef \csname Cut:#2\endcsname##1{%
     \noexpand\cut:at{#2}{##1}#1}%
%
}
\def\:UnCutAt#1,#2,#3//{%
   \def\:temp{#2}\ifx \:temp\empty \else
      \def\:tempa{#1}\ifx \:tempa\:temp  \else
         \expandafter\ifx \csname#2:#1\endcsname\relax
            \expand:after{\expandafter\let \csname #2:#1\endcsname }%
                                      \csname #2\endcsname
\expandafter\def \csname #2\endcsname{%
   \csname UnCut:#1\endcsname
   \csname #2:#1\endcsname}%
%
         \else \:warning{#2 already assumed in \string\CutAt{#1,...}}\fi
      \fi
      \def\:temp{\:UnCutAt#1,#3//}%
      \expandafter\:temp
   \fi
}
\def\cut:at#1#2#3{{%
   \def\BeforeHPageButton{\if #3+%
   \def\:temp{\:hookI{Before#1Button}{\csname a:+CutAt#1\endcsname}}%
                              \expandafter\:temp\fi}%
\edef\prev:File{\ifnum \sec:lvl>\HPageDepth\space
                               \RefFileNumber\lastsec:id \fi}%
\def\AfterHPageButton{\if #3+%
   \def\:temp{\:hookI{After#1Button}{\csname b:+CutAt#1\endcsname}}%
                             \expandafter\:temp\fi}%
\def\HPageHeader##1{%
   \ct:btn
\gHAdvance\C:tAtN  1
\Tag{fileidcut \file:id}{\C:tAtN}%
\TagFile{cutfile \C:tAtN}%
%
   \xdef\nextCutAt{\RefFile{)N \file:id}}%
   \global\let\prevCutAt\prev:File
   \sv:btns\nextCutAt
\sv:btns\prevCutAt
%
   \PushStack\prv:fl{#3}\csname a:CutAt#1\endcsname
   \ifx\a:crsbt\empty
      \ifx\aa:crsbt\empty\else
         \:hookI{Front#1}{\default:bts{}{tail}}{##1}%
      \fi
   \else
      \:hookI{Front#1}{\default:bts{}{tail}}{##1}%
   \fi
}%
\csname a:CutAt-filename\endcsname{#1}{#2}%
%
   \fx:pt #1xxx!*?: %
%
   \if #3+\HPage<#1>{#2}%
   \else
      \if #3-\else
   \let\cut:TTL\:gobble
   \begingroup
     \csname no:fonts\endcsname\def\gobble:font##1##2{##2}%
\:TITLE:
\:CutAtTITLE:
     \xdef\:temp{\noexpand\Configure{TITLE+}{\a:CutAtTITLE{#2}}}%
   \endgroup \:temp
\fi
%
      \HPage<#1>{}\fi
   \ifx \prevCutAt\empty  \else \TagFile{)N \lastsec:id}\fi
   \AtEndHPage{\ct:btn
\UnCut:{#1}}%
   \expandafter\xdef\csname UnCut:#1\endcsname{%
                                 \noexpand\EndHPage[\HPageDepth]{}}%
}}
\HAssign\lastsec:id0
\def\cut:TTL#1{#1}
\let\:TITLE:\empty
\let\:CutAtTITLE:\empty
\let\:HPageTITLE:\empty
\def\UnCut:#1{%
   \global\expandafter\let\csname TocAt*\endcsname\empty
%
   \global\expandafter\let\csname UnCut:#1\endcsname\:UnDef
   \xdef\lastsec:id{\file:id}%
   \PopStack\prv:fl\:temp
   \bgroup
      \ifx\b:crsbt\empty
         \ifx\bb:crsbt\empty\else
            \:hookI{Back#1}{\default:bts{tail}{}}{}%
         \fi
      \else
         \:hookI{Back#1}{\default:bts{tail}{}}{}%
      \fi
      \csname b:CutAt#1\endcsname \let\after:endfl\EndFileStream
      \def\EndFileStream##1{\after:endfl{##1}\egroup
                      \PopStack\:afterbt\:temp
\ifx\:temp\empty\else\:hookI{After#1}{}{}\fi
\PushStack\:afterbt{}%
%
                      \PopStack\prv:fl\prevCutAt
\PopStack\prv:fl\nextCutAt
\ifx \prv:fl\empty
      \let\prevCutAt\:UndDef
      \let\nextCutAt\:UndDef
\else
      \PopStack\prv:fl\:tempb
      \PopStack\prv:fl\prevCutAt
      \PopStack\prv:fl\nextCutAt
   \PushStack\prv:fl\nextCutAt
   \PushStack\prv:fl\prevCutAt
   \PushStack\prv:fl\:tempb
\fi
%
   }}
\let\prevCutAt\empty
\:CheckOption{next}     \if:Option
   \def\next:bt{\nextCut}
   \def\prev:bt{\prevCut}
\else
   \Log:Note{for linear crosslinks of pages,
       use the command line option `next'}%
   \def\next:bt{\nextCutAt}
   \def\prev:bt{\prevCutAt}
\fi
\HAssign\C:tAtN  0
\def\ct:btn{{%
  \HAssign\C:tAtN  0\LikeRef{fileidcut \file:id}%
  \Advance:\C:tAtN  -1
  \xdef\prevCut{\RefFile{cutfile \C:tAtN}}%
  \ifx \prevCut\space \global\let\prevCut\empty \fi
  \Advance:\C:tAtN   2
  \xdef\nextCut{\RefFile{cutfile \C:tAtN}}%
  \ifx \nextCut\space \global\let\nextCut\empty \fi
}}
\let\root:next\empty
\def\CutGroup#1{\Cut:Group#1,,!*?: }
\def\Cut:Group#1,{%
   \expandafter\ifx \csname #1\endcsname\relax
      \expandafter\let\csname #1\endcsname\:gobble\fi
   \def\HP:file{#1}%
   \do:list \cut:gr,}

       \def\cut:gr#1{%
   \edef\:temp{%
      \let\:csname \HP:file :#1\endcsname \:csname #1\endcsname
      \let\:csname \HP:file :Cut:#1\endcsname \:csname Cut:#1\endcsname
      \def\:csname #1\endcsname####1{%
         \noexpand\cond:cs{\HP:file}{####1}%
         \:csname \HP:file :#1\endcsname{####1}}%
      \def\:csname Cut:#1\endcsname####1{%
         \noexpand\cond:cs{Cut:\HP:file}{####1}%
         \noexpand\cond:cs{\HP:file :Cut:#1}{####1}}%
   }\:temp }

\fi

\def\ParentOf{\gHAdvance\TitleCount  1
   \global\let\mu:span\TitleCount \futurelet\:temp\:mprt}
\def\ChildOf{\futurelet\:temp\:xprt}

\:CheckOption{family} \if:Option
   \def\:mprt{\fm:call\:Imprt}

\def\:Imprt[#1]#2#3{%
   \def\:temp{#2}\ifx \:temp\Jobname
                    \:warning{#2 \string\ParentOf\space#2?}\fi
   \Needs-{child `#2'}%
   \LoadRef[#2-\Jobname]{#3}{##1}%
   \imp:var{#2}fstf:id,#1!*?: %
   \Tag{\Jobname-#2-up}{\RefFileNumber\FileNumber}%
\Tag{\Jobname-#2-prev}{\childFile}%
\xdef\childFile{\LikeRef{#2-\Jobname-down}}%
\ifx \cld:n\:UnDef  \else  \Tag{\cld:n}{\childFile}\fi
\xdef\cld:n{\Jobname-#2-next}%
%
   \the\:tokwrite{\string\doTocEntry
                          \string\tocParentOf{#2}{}{}\relax}}

\HAssign\fstf:id0
\def\:xprt{\fm:call\:Exprt}

\def\:Exprt[#1]#2#3{%
   \ifnum \maxfile:id>1
       \:warning{\string\ChildOf{#2} not at root file}\fi
   \Needs-{parent `#2'}%
   \ld:flxrf{#3}{QQ}%
   \LoadRef[#2-\Jobname]{#3}{##1}%
   \xp:var{#2}fstf:id,#1!*?: %
   \closeout\:refout
\openout\:refout\jobname.xref     \:clearpage
\gHAdvance\fstf:id  10000
%
\gHAssign\maxfile:id  \fstf:id
\gHAssign\bs:fileid  \maxfile:id
\global\let\file:id\maxfile:id
\Tag{)F\aXrefFile \file:id \empty F-}%
                                                {\jobname.\:html}%
\expandafter\xdef\csname
    FN \jobname.\:html\endcsname{\file:id}%
\xdef:cs{Lv \file:id}{}%
%
   \def\export:hook{\exprt:tag{#2}fstf:id,#1!*?: }%
   \Tag{\Jobname-#2-down}{\RefFileNumber\FileNumber}%
\ch:lnk\parentFile{#2}{up}%
\ch:lnk\prevChildFile{#2}{prev}%
\ch:lnk\nextChildFile{#2}{next}%
\global\let\nsrt:chlnks\nsrt:cldnks
\nsrt:chlnks{}{tail}{FrontChild}%
%
   \gdef\:Export[##1]##2{\:warning{\string\ChildOf
               \string{##2\string}\space ignored (not 1st)}}%
}
\def\rmv:ext#1.#2!*?: {#1}

\def\fm:call#1{\ifx [\:temp \expand:after{\fm:cll#1}\else
                            \expand:after{\fm:cll#1[]}\fi}
\def\fm:cll#1[#2]#3{\edef\:temp{\noexpand\noexpand\noexpand
   #1[#2]{\noexpand\rmv:ext#3.!*?: }{#3}}%
   \edef\:temp{\:temp}\:temp}
\let\childFile\space
\def\ch:lnk#1#2#3{%
   \xdef#1{\LikeRef{#2-\Jobname-#3}}%
   \ifx #1\space \let#1\empty\fi}
\def\nsrt:cldnks#1#2#3{{%
   \let\prevCutAt\prevChildFile
   \let\nextCutAt\nextChildFile
   \def\ExitHPage##1{\Link[\parentFile]{}{}##1\EndLink}
   \:hookI{#3}{\default:bts{#1}{#2}}{}}}
\def\imp:var#1#2,#3!*?: {%
   \gt:ops{#2}%
   \Tag{\Jobname-#1-#2}{\:tempd\csname #2\endcsname}%
   \edef\:tempc{0\LikeRef{#1-\Jobname-#2}}%
   \expand:after{\expandafter\:tempb\csname
                                       #2\endcsname  }\:tempc%
   \if:notempty{#3}{\imp:var{#1}#3,!*?: }}
\def\xp:var#1#2,#3!*?: {%
   \gt:ops{#2}%
   \edef\:tempc{0\LikeRef{#1-\Jobname-#2}}%
   \expandafter\:tempa\csname #2\endcsname\:tempc
   \expandafter\HAssign\csname :#2:\endcsname\:tempc
   \if:notempty{#3}{\xp:var{#1}#3,!*?: }}
\def\exprt:tag#1#2,#3!*?: {%
   \tmp:cnt  \csname #2\endcsname
   \advance\tmp:cnt  -\csname :#2:\endcsname
   \Tag{\Jobname-#1-#2}{\the\tmp:cnt}%
   \if:notempty{#3}{\exprt:tag{#1}#3,!*?: }}

   \def\gt:vi#1#2#3#4#5#6#7!*?: {#1#2#3#4#5#6}
\def\gt:vr#1#2{\edef#1{\expandafter
   \gt:vi\meaning#2 .......!*?: }}
\gt:vr\c:unt\tmp:cnt
\def\chk:vr#1#2{\expand:after{\gt:vr\:temp#2 #1\:temp\c:unt}}

\def\gt:ops#1{%
   \expand:after{\chk:vr\ifx}\csname#1\endcsname  \let\:tempd\the
            \let\:tempa\empty   \let\:tempb\advance
  \else                             \let\:tempd\empty
            \let\:tempa\HAssign  \let\:tempb\Advance:
  \fi }

\else
   \let\:mprt\BI:gbl
\Odef\ChildOf[#1]#2{\:warning{\string\ChildOf{#2}
   without \string\Preamble{...,family,...}}}
\let\:xprt\BI:gbl

\fi
\def\tocParentOf#1{{%
   \def\:temp{#1}\ifx \:temp\Jobname
      \:warning{#1 \string\ParentOf\space#1?}
   \else  \expand:after{\ld:flxrf{#1}{QQ}\get:input{#1.4tc}}\fi}}
\def\ld:flxrf#1#2{%
   \let\:CrsWd\Cross:Word
   \def\Cross:Word##1##2{%
      \expandafter\let\csname  cw:##2\endcsname\:UnDef
      \:CrsWd{##1}{##2}}%
   \LoadRef[)F\aXrefFile ]{#1}{##1}%
   \LoadRef[)Q\aXrefFile #2]{#1}{##1}%
   \let\Cross:Word\:CrsWd
}


\openin15=\jobname.4tc
\ifeof15  \closein15
   \def\:TableOfContents[#1]{\immediate\write16{No file \jobname.4tc}}
   \ifx \TableOfContents\:UnDef
   \def\TableOfContents{\futurelet\:temp\:TOC}
   \def\:TOC{\ifx [\:temp \expandafter\:TableOfContents\fi}
\fi

\else
   \ifHtml  \ifx \TableOfContents\:UnDef
   \def\TableOfContents{\futurelet\:temp\:TOC}
   \def\:TOC{\ifx [\:temp \expandafter\:TableOfContents\fi}
\fi

\def\:TableOfContents[#1]{\SaveEverypar{%
   \def\TocCount{0}%
   \:tocPreamble#1,,%
\let\doTocEntry\:doTocEntry
\def\contentsline##1##2##3{##2}%
\no:lbl:idx
%
   \def\InsertTitle##1##2##3{}%
   \hsize4.5in  \rightskip  \z@ minus 1in  \linepenalty1000
   \catcode`\#12  \catcode`\@11   \catcode`\:11
   \Configure{HtmlPar}{\ifx \e:tableofcontents\:UnDef
      \csname e:TableOfContents\endcsname
\else \e:tableofcontents \fi
}{\ifx \d:tableofcontents\:UnDef \csname d:TableOfContents\endcsname
\else \d:tableofcontents \fi
}{}{}%
\everypar{\HtmlPar}%
   \ifx \a:tableofcontents\:UnDef \csname a:TableOfContents\endcsname
\else \a:tableofcontents \fi
\input \jobname.4ct
   {\ht:everypar{}\leavevmode}\ifx \b:tableofcontents\:UnDef
      \csname b:TableOfContents\endcsname
\else \b:tableofcontents \fi
%
   \par  }\RecallEverypar \ifx \c:tableofcontents\:UnDef
   \csname c:TableOfContents\endcsname
\else \c:tableofcontents \fi
}

   \fi
   \begingroup
  \catcode`^7
  \def\:copytoc{%
   \ifeof15   \else
      \read15 to \:temp
      {\escapechar=`\\\immediate\write15{\:temp}}%
      \expandafter\:copytoc
   \fi}
   \ifHtml \catcode`\#12\relax \fi
  \def\:next{\catcode\tmp:cnt12
    \ifnum \tmp:cnt=0
       \def\:next{%
          \catcode`\^^M5
          \immediate\openout15=\jobname.4ct     \:copytoc
          \immediate\closeout15
          \endgroup \closein15
       }%
    \fi
    \advance\tmp:cnt  -1 \:next
  }
  \tmp:cnt255   \:next

\fi
\def\:doTocEntry#1#2#3#4{%
   \Advance:\TocCount  1
   \expandafter\ifx \csname \string#1 \endcsname \relax \else
     #1{#2}{#3}{#4}\fi
}
\def\:tocPreamble#1,{%
  \def\:temp{#1}\ifx \:temp\empty     \else
     \edef\:temp{\expandafter\string\csname toc#1 \endcsname}%
     \expandafter\expandafter\expandafter\let
        \expandafter\csname\:temp\endcsname\empty
     \expandafter\:tocPreamble\fi}
\ifx \:tocout\:UnDef
   \csname newwrite\endcsname\:tocout
\fi
\def\:temp{%
\if:latex \expandafter\immediate\fi
\openout\:tocout\jobname.4tc
   {\escapechar=`\\\if:latex \expandafter\immediate\fi
\write
   \:tocout{\string\expandafter\string\ifx
   \noexpand\csname doTocEntry\string\endcsname\relax
      \string\expandafter\string\endinput
   \string\fi}%
}%
}
\:temp
\def\TocAt#1{%
   \def\:next##1{\:TocAt##1,//}%
   \def\:tempa{#1}\def\:temp{-}\ifx \:tempa\:temp  \let\:temp-%
   \else \def\:temp{*}\ifx \:tempa\:temp           \let\:temp*%
   \else    \def\:next{\:TocAt#1,//}%
   \fi \fi  \:next }
\def\:TocAt#1,#2//{%
   \ifx -\:temp \else \ifx *\:temp
           \expandafter\edef\csname Toc:#1\endcsname{%
   \gdef\expandafter\noexpand\csname TocAt*\endcsname{%
      \noexpand \csname Toc#1\noexpand\endcsname }}%
%
   \else   \expandafter\edef\csname Toc:#1\endcsname{%
    \noexpand\csname Toc#1\noexpand\endcsname }%
\fi \fi
   \def\:temp{#2}\ifx  \:temp\empty
      \expandafter\let\csname Toc#1\endcsname\:UnDef
   \else \let\:include\empty
\::TocAt#1,/#1,#2,,//%
\edef\:include{\expandafter\:removecomma\:include}%
\expandafter\edef\csname Toc#1\endcsname{{%
   \let\noexpand\TitleCount\expandafter\noexpand
                                \csname #1:Count\endcsname
   \noexpand\:assgtoc\:include,//{#1}%
   \:tocs[\:include]}}%
\fi }
\def\:tocs{\noexpand\TableOfContents}
\def\:removecomma#1{}
\def\:assgtoc#1,#2//#3{%
   \expand:after{\expandafter\let\csname toc#1\endcsname }%
                                 \csname #3::toc#1\endcsname
   \if:notempty{#2}{\:assgtoc#2//{#3}}}
\def\::TocAt#1,#2,#3//{\def\:temp{#2}%
   \ifx  \:temp\empty \else
      \if /\:firstch#2 //%
               \edef\:include{\:include,\:temp}%
\expandafter\def\csname #1::toc\:temp\endcsname##1##2##3{%
   \ifnum \TitleCount<\TocCount
       \Advance:\TocCount  -100000   \endinput
   \fi}%
%
      \else    \edef\:include{\:include,#2}%
\expand:after{\expandafter\let\csname svtoc::#2\endcsname}%
                                     \csname toc#2\endcsname
\expandafter\edef\csname #1::toc#2\endcsname##1##2##3{%
   \noexpand\ifnum  \noexpand\TitleCount<\noexpand\TocCount
                                                        \noexpand\space
      \expandafter\noexpand \csname svtoc::#2\endcsname{##1}{##2}{##3}%
   \noexpand\fi}%
\fi
      \expand:after{\::TocAt#1,#3//}%
   \fi
}
\def\:firstch#1#2 //{#1\def\:temp{#2}}

\ifHtml
   \let\TeXhalign\halign
\def\RecallTeXcr{\iffalse{\fi
   \expand:after{\let\cr}\csname 0cr\endcsname
   \expand:after{\let\crcr}\csname 0crcr\endcsname
   \iffalse}\fi}
\expandafter\let\csname 0cr\endcsname\cr
\expandafter\let\csname 0crcr\endcsname\crcr
\def\TeXhalign:cr{%
   \ifx \EndPicture\:UnDef \else \iffalse{\fi
      \expandafter\let\expandafter\cr\csname \MkHalign:d cr\endcsname
      \expandafter\let\expandafter\crcr\csname \MkHalign:d crcr\endcsname
   \iffalse}\fi \fi  \TeXhalign}

\def\MkHalign#1#2{%
  \iffalse{\fi   \let\sv:new:row\new:row
  \def\relax:shrp{\let#1\relax}%
  \def\new:halign{\TeXhalign \bgroup}%
  \add:halign#2&!*?: \cr
  \let#1\:shrp  \global\let\new:row\R:halign
\Advance:\MkHalign:d  1
\expandafter\let\csname \MkHalign:d cr\endcsname\cr
\expandafter\let\csname \MkHalign:d crcr\endcsname\crcr
\edef\cr{\noexpand\rR:halign
   \expandafter\noexpand \csname \MkHalign:d cr\endcsname}%
\edef\crcr{\noexpand\rR:halign
   \expandafter\noexpand \csname \MkHalign:d crcr\endcsname}%
\let\omit\om:t \def\TT:halign{\T:halign \global\let\TT:halign\empty}%
\let\sv:end:omit\end:omit  \let\end:omit\empty
\let\ms:count\MS:count \HAssign\MS:count0
\let\lgn:r\HRow \let\lgn:c\HCol  \HAssign\HRow0
\def\span{\xdef\new:span{\new:span\HRow.\HCol;}\:span}%
\let\sv:new:span\new:span  \let\new:span\empty
\gHAdvance\Halgn:cnt  1 \edef\halign:id{\Halgn:cnt}%
\edef\old:span{\LikeRef{)M\halign:id x\mu:span}}%
\ifx \old:span\space \def\old:span{;}\fi
%
  \iffalse}\fi      \begingroup
\ifmmode  \def\end:m{$$\egroup}\vtop\bgroup$$\else
\let \end:m\empty\fi
%
  \a:PauseMkHalign \new:halign\ext:cr}
\def\EndMkHalign{\egroup
   \d:PauseMkHalign \end:m\endgroup
%
   \iffalse{\fi \expand:after{\let\cr}\csname \MkHalign:d cr\endcsname
\expand:after{\let\crcr}\csname \MkHalign:d crcr\endcsname
\let\omit\:omit
{\ht:everypar{}\r:halign}\t:halign
\Advance:\MkHalign:d  -1
\Tag{)M\halign:id x\mu:span}{\new:span;}%
\global\let\new:span\sv:new:span
\iffalse{\fi \let\span\:span \iffalse}\fi
\global\let\HRow\lgn:r   \global\let\HCol\lgn:c
\global\let\MS:count\ms:count
\global\let\new:row\sv:new:row
\global\let\end:omit\sv:end:omit
\relax:shrp \iffalse}\fi }
\def\PauseMkHalign#1{\cr\egroup
   \hbox{\r:halign \global\let\new:row\R:halign}\b:PauseMkHalign
   #1\c:PauseMkHalign\new:halign\ext:cr}
                            \catcode`\#13 \catcode`\@6
\def\MiniHalign{\begingroup  \catcode`\#13 \let#\relax
   \:MHalign}
\def\:MHalign@1\cr{\endgroup  \SaveMkHalignConfig
   \Configure{MkHalign}{\a:MiniHalign}{\b:MiniHalign}\c:MiniHalign
   \d:MiniHalign{\e:MiniHalign\RecallMkHalignConfig}\f:MiniHalign
   \MkHalign#{@1}}
                             \catcode`\#6 \catcode`\@11
\def\EndMiniHalign{\EndMkHalign  \RecallMkHalignConfig }
\def\add:halign#1&#2\cr{%
   \def\:temp{#2}\def\:tempb{!*?: }%
   \ifx \:temp\:tempb
      \append:def\new:halign{\b:halign#1\c:halign}%
   \else
      \def\:temp{#1}\ifx\:temp\empty \append:def\new:halign{&}%
      \else  \append:def\new:halign{\b:halign#1\c:halign&}\fi
      \add:halign#2\cr
   \fi}
\def\rR:halign{\gdef\new:row{\r:halign \R:halign}}
\HAssign\MkHalign:d  0
\def\b:halign{\BB:halign \bgroup}
\def\c:halign{\egroup\d:halign}
\def\BB:halign{\expand:after{\global\let\new:row\empty }\new:row
   \D:halign}
\def\SaveMkHalignConfig{\let\sT:halign\T:halign
   \let\st:halign\t:halign
   \let\sR:halign\R:halign
   \let\sr:halign\r:halign
   \let\sD:halign\D:halign
   \let\sd:halign\d:halign}
\def\RecallMkHalignConfig{\let\T:halign\sT:halign
   \let\t:halign\st:halign
   \let\R:halign\sR:halign
   \let\r:halign\sr:halign
   \let\D:halign\sD:halign
   \let\d:halign\sd:halign}
\let\:omit\omit
\def\om:t{\:omit \BB:halign
   \gdef\end:omit{\gdef\end:omit{}\d:halign}}
\let\end:omit\empty
\let\ext:cr\cr  \let\ext:crcr\crcr
\let\:span\span
\def\add:span#1;{\def\:tempa{#1}\edef\:temp{\HRow .\HCol}%
   \ifx \:temp\:tempa \Advance:\:MULTISPAN  1 \fi
   \ifx \:tempa\empty \let\HMultispan\:MULTISPAN
   \else
      \let\:temp\relax
\def\:temp##1.{\def\:temp####1!*?: {\def\:temp{####1}}%
   \afterassignment\:temp\tmp:cnt}%
\expandafter\expandafter\expandafter\:temp\expandafter\:tempa!*?: %
\edef\:tempb{\HRow.\HCol\:temp}\ifx\:tempa\:tempb
   \expandafter\ifx \csname \expandafter\string\:temp :T:D\endcsname\relax
   \else \edef\:mALIGN{\expandafter\noexpand
          \csname \expandafter\string\:temp :T:D\endcsname}%
\fi\fi
%
      \expandafter\add:span
   \fi }
\HAssign\Halgn:cnt0
\def\derive:TD{%
   \bgroup \no:actv
       \xdef\:temp{\noexpand\expandafter\noexpand\:temp
               \noexpand\halign:TD\:MkHalign: -0 0 1 !*?: }%
   \egroup
   \let\hT:D\:temp
   \def\:temp##1 ##2 ##3 {\ifnum -1=##1##2##3 \else
      \ifnum \HRow=##1 \ifnum \HCol=##2 \:TDcode ##3\fi\fi
\ifnum \HRow=##1 \ifnum    0=##2 \:TDcode ##3\fi\fi
\ifnum     0=##1 \ifnum \HCol=##2 \:TDcode ##3\fi\fi
\ifnum     0=##1 \ifnum    0=##2 \:TDcode ##3\fi\fi
 \expandafter\:temp \fi}%
   \def\:tempa##1\empty{}%
   \edef\hT:D{\hT:D}}
\def\:TDcode#1{\expandafter
   \ifx \csname \string#1:T:D\endcsname\relax \else
     \csname \string#1:T:D\endcsname \expandafter\:tempa \fi
\expandafter#1\empty
\EndTD:CLASS}
                             \catcode`\_=13  \catcode`\^=13
\pend:defI\:TDcode{\TD:CLASS}%
\let\:temp\relax \let\:tempa\relax
\edef\no:actv{\let\noexpand\noexpand\noexpand^\:temp
   \let\noexpand\noexpand\noexpand_\:tempa}
                              \catcode`\_=8  \catcode`\^=7
\def\:temp{^}  \def\:tempa{_}
\edef\no:actv{\no:actv}
\def\halign:TB#1<>#2!*?: {#1}
\def\halign:TD#1<>#2!*?: {#2}

\:CheckOption{no-halign} \if:Option \else
   \def\h:halign{\ifx \EndPicture\:Undef
                \let\to:dim\empty  \expandafter\:halign
            \else                    \expandafter\TeXhalign:cr\fi}
\:CheckOption{base}  \if:Option  \else
    \def\:temp{\Protect\h:halign}
    \HLet\halign\:temp
\fi
\let\r:lax\relax
\def\r:relax{\r:lax}
\let\rl:x\relax
\def\:halign{%
   \let\rl:x\r:relax
   \ifx \rl:x\r:relax  \expandafter\nodim:hlgn: 
   \else               \expandafter\TeXhalign:cr   
   \fi
}
\def\nodim:hlgn:{\futurelet\:temp\hl:gn}
\def\hl:gn{\ifx   \:temp\bgroup      \let\:tempa\hlg:n
   \else \def\:tempa##1{\append:def\to:dim{##1}\nodim:hlgn:}\fi
   \:tempa}
                              \catcode`\#13  \catcode`\~6
\def\hlg:n{\begingroup  \catcode`\#13 \let#\relax \hal:gn}%

\long\def\hal:gn~1{\p:lgn~1#!*?: %
   \ifx \:temp\empty
       \expandafter\chs:halgn\string ~1!*?: %
\:tempb{%
   \csname a:embedded-halign\endcsname
      \ifmmode
        \vbox{\Rc:sharp
$$\TeXhalign:cr \to:dim{~1}$$}%
      \else \vbox{\Rc:sharp
\TeXhalign:cr \to:dim{~1}}\fi
      \:nopartrue
   \csname b:embedded-halign\endcsname
 }%
\let\:temp\endgroup
\:tempb!*?: %
\:tempb\:temp{\endgroup
   \:warning{\noexpand\halign translated into linear text}%
%
   \HRestore\noalign  \TeXhalign:cr~1}\:tempa!*?: %
%
   \else \def\:temp{\endgroup\:hlign{~1}}\fi   \:temp}
\long\def\p:lgn~1#~2!*?: {\def\:temp{~2}}

                              \catcode`\#6  \catcode`\~13
\long\def\:hlign#1{%
    \def\:temp{#1}\def\:tempa{\bgroup}\ifx \:temp\:tempa
       \endgroup  \:warning{\noexpand\halign translated into linear text}%
%
         \expand:after{\HRestore\noalign \TeXhalign:cr\bgroup}%
    \else \let\tabskip\tmp:dim    \let\hrulefill\empty
\let\hidewidth\empty
\expand:after{\h:align#1\cr!*?: #1!*?: }%
%
    \fi}
\NewConfigure{embedded-halign}{2}
\Configure{embedded-halign}
    {\expand:after{\Picture+}\pic:hlng{ \a:@Picture{pic-halign}}}
    {\EndPicture}
\catcode`\#=13
\def\Rc:sharp{\let#=\sv:sharp}
\catcode`\#=6
\def\:temp{\let\sv:sharp=##}\:temp
\def\chs:halgn#1{\def\:temp{#1}%
   \def\:tempa##1##2##3##4##5{\def\:tempa{##1}\def\:tempb{##2}%
      \def\:tempc{##3}\def\:tempd{##4}\def\:tempe{##5}}%
   \expandafter\:tempa\string\bgro
   \ifx \:temp\:tempa \expand:after{\expandafter\try:b\string}%
   \else              \expandafter\brc:halign \fi}
\def\try:b{\try:ch\:tempb\try:g}
\def\try:g{\try:ch\:tempc\try:r}
\def\try:r{\try:ch\:tempd\try:o}
\def\try:o#1{\def\:temp{#1}%
   \ifx \:temp\:tempe \def\:tempb{\let\:tempb\def\:tempa
}%
   \else  \let\:temp\empty
          \def\:tempb{\let\:tempb\:tempa
}\fi
   \long\def\:tempa##1!*?: {}%
\:tempa}
\def\try:ch#1#2#3{\def\:temp{#3}%
   \ifx \:temp#1 \expand:after{\expandafter#2\string}%
   \else              \expandafter\brc:halign \fi}
\def\brc:halign{%
   \let\:temp\empty   \def\:tempb{\let\:tempb\:tempa
}%
   \long\def\:tempa##1!*?: {}%
\:tempa}
\catcode`\#13 \catcode`\@6
\long\def\h:align@1\cr@2!*?: {\def\:temp{@2}\ifx \:temp\empty
   \expandafter\h:alignII \else \crcr:align@1\crcr!*?: \fi}
\def\crcr:align@1\crcr@2!*?: {\def\:temp{@2}\ifx \:temp\empty
   \expandafter\expandafter\expandafter\h:alignI \else
   \expandafter\expandafter\expandafter\h:alignII \fi}
\long\def\h:alignI@1\cr@2!*?: {%
   \SaveMkHalignConfig \Configure{MkHalign}{\hlg:a}{\hlg:b}
   \hlg:c\hlg:d{\hlg:e\RecallMkHalignConfig}\hlg:f
%
   \MkHalign#{@1}@2\EndMkHalign \RecallMkHalignConfig}
\def\h:alignII@1\crcr{\h:alignI@1\cr}
\catcode`\#6 \catcode`\@11
\HAssign\noalign:N0
\def\:tempc#1{\gHAdvance\noalign:N by 1
   \ifnum \noalign:N>100
      \global\let\noalign\o:noalign:
      \:warning{TeX4ht can't handle
                  \string\everycr{...\string\noalign...}}%
   \fi
%
   \vtop{\IgnorePar\a:noalign\vtop{\IgnorePar#1}\b:noalign}\cr
   \global\tmp:toks\everycr \global\everycr{}\cr
   \o:noalign:{\global\everycr\tmp:toks \gHAssign\noalign:N0 }%
 }
\HLet\noalign\:tempc



\fi

\def\:temp{\let\:shrp##} \:temp

\fi

\ifHtml \def\Canvas{\ht:special{t4ht"}}
\let\EndCanvas\Canvas
\def\:img{%
   \ifx       *\:temp  \let\:temp\i:mgif \let\:next\:GIf
   \else \ifx +\:temp  \let\:temp\i:mgif \let\:next\:Gif
   \else \ifx [\:temp  \let\:temp\im:g
   \else               \def\:temp{\im:g[{\csname
                                        a:Picture-alt\endcsname}]}%
   \fi \fi \fi  \:temp}
\def\xim:g[#1]#2{{\cond:pic{%
   \def\gif:nm{\edef\gif:nm}\gif:name{#2}%
   \expandafter\get:ext\gif:nm.!*?: %
   \edef\PictureFile{\gif:nm\ifx\:temp\empty \PictExt\fi}%
   \Needs-\PictureFile \ht:special{t4ht@-}%
   \a:IMG\ht:special{t4ht=\PictureFile}\b:IMG
   \a:PictureAlt{#1}\b:PictureAlt \d:IMG
   \a:PictureAttr{\at:IMG}\e:IMG}}\After:Picture}
\def\noim:g[#1]#2{}
\let\im:g\xim:g
\def\strt:gf#1#2{#2%
   \csname a:PictureAlt*+\endcsname
   \let\sv:sp\sp
   \let\sv:sb\sb
   \ifx \s:p\:UnDef \else \let\sp\s:p \fi
   \ifx \s:b\:UnDef \else \let\sb\s:b \fi
   \if #1!\ht:special{t4ht!\:AltPicture:}%
          \global\let\:AltPicture:\empty  \fi 
   \ht:special{t4ht|}%
   \ht:special{t4ht++\PictureFile}%
   \iprt:special
}
\def\nd:gf#1#2{%
   \let\ht:special\tex:special
   \ht:special{t4ht+}%
   \if #1!\ht:special{t4ht!}\fi    
   \let\sp\sv:sp
   \let\sb\sv:sb
   \ht:special{t4ht|}%
   \csname b:PictureAlt*+\endcsname
   \ifx #2\relax \else \csname a:PictureAttr*+\endcsname{#2}\e:IMG\fi
}
\def\img:alt{\ht:special{t4ht@-}%
   \a:IMG\ht:special{t4ht=\PictureFile}\b:IMG}
\def\:Gif#1{\cond:pic{%
   \gif:name{#1}\csname a:Picture+\endcsname
   \strt:gf!\img:alt
   \def\EndPicture{\nd:gf!{\c:IMG\Pic:Img}%
      \let\EndPicture\:UnDef \csname b:Picture+\endcsname
      \After:Picture}}}
\def\:GIf#1{\cond:pic{\ifvmode\vfill\break\else
      \ht:special{t4ht@[}\hfill\break.\ht:special{t4ht@]}\fi
   \gif:name{#1}\csname a:Picture*\endcsname
   \strt:gf!\img:alt
      \ifmmode \expandafter\vcenter\else \expandafter\vtop\fi
        \bgroup   \let\EndPicture\:EndGIf  \NoHtmlEnv }}
\def\:EndGIf{%
        \egroup \nd:gf!{\c:IMG \Pic:Img}\csname b:Picture*\endcsname
        \After:Picture}
\def\After:Picture{\After:EndPicture
   \global\let\After:EndPicture\empty}
\let\After:EndPicture\empty
\def\AfterPicture#1{\append:def\After:EndPicture{#1}%
   \global\let\After:EndPicture\After:EndPicture}
\def\iprt:special{%
   \def\ht:special##1{\tex:special{t4ht+##1}}}
\let\tex:special\ht:special
\def\x:GifText[#1]#2{\cond:pic{%
   \ifx \:next\:GIf
      \def\gif:box{\vtop\bgroup \NoHtmlEnv \let\gif:box\egroup}%
   \else  \let\gif:box\empty  \fi
   \gif:name{#2}%
   \img:alt  \def\:temp{#1}%
   \ifx \:temp\empty \else
       \csname a:PictureAlt*+[]\endcsname
           {#1}\csname b:PictureAlt*+[]\endcsname\fi
   \ht:special{t4ht>\jobname.tmp}%                    
   \strt:gf-\empty  \gif:box
   \def\EndPicture{%
     \gif:box  \nd:gf-\relax  \ht:special{t4ht<\jobname.tmp}%
     \csname a:PictureAttr*+[]\endcsname{\c:IMG\Pic:Img}\e:IMG
     \After:Picture}%
}}
\let\:GifText\x:GifText
\def\no:GifText[#1]{\:gobble}
\ifx \:DraCatCodes\:UnDef
   \def\Pic:Img{\at:IMG}

\fi
\def\gif:name#1{\edef\at:IMG{\noexpand\get:gfnm#1 !*?: }\at:IMG}
\def\get:gfnm#1 #2!*?: {\def\at:IMG{#2}%
   \ifx \at:IMG\empty\else
      \expandafter\aT:IMG\at:IMG!*?: %
   \fi
   \gif:nm{#1}}
\def\aT:IMG#1 !*?: {\def\at:IMG{#1}}
\def\NextPictureFile{\def\Next:PictureFile}
\NextPictureFile{}
\def\gif:nm#1{%
   \gHAdvance\P:ctureCount  1
   \xdef\PictureFile{#1}\ifx  \PictureFile\empty
      \xdef\PictureFile{\Next:PictureFile}\fi
   \global\let\Next:PictureFile\empty
   \ifx  \PictureFile\empty
      \bgroup  \Advance:\P:ctureCount  -\Pic:Cnt
      \xdef\PictureFile{\j:bname\P:ctureCount
                        x\Pic:Dm\PictExt}%
      \egroup
   \else
      \expandafter\get:ext\PictureFile.!*?: %
      \ifx\:temp\empty \xdef\PictureFile{\PictureFile\PictExt}\fi
   \fi
   \immediate\write-1{l. \the\inputlineno\space Writing
                 \jobname.idv[\P:ctureCount] (\PictureFile)}%
   }%
\def\SavePicture#1{\def\:tempa{#1}\SaveP:cture}
\Odef\SaveP:cture[#1]{%
   \edef\:tempb{\noexpand\Odef\expandafter\noexpand\:tempa[####1]{{%
      \let\noexpand\Log:Needs\noexpand\:gobble
      \noexpand\Picture[\HCode{#1}]{\PictureFile\space####1}}}}%
   \:tempb \expand:after{\global\expandafter\let\:tempa}\:tempa }
\def\NewPictureDomain#1{%
   \global\let\Pic:Cnt\P:ctureCount
   \def\Pic:Dm{#1} \ifx \Pic:Dm\empty
      \xdef\Pic:Dm{\P:c:Dm}%
      \gHAdvance\P:c:Dm    1
   \fi }
\HAssign\P:c:Dm  0
\let\Pic:Dm\empty
\HAssign\Pic:Cnt1
\HAssign\P:ctureCount0
\let\:AltPicture:\empty        
\def\pic:gobble{\ifx \EndPicture\:UnDef \else \expandafter\:gobble\fi}
\def\pic:gobbleII{\ifx \EndPicture\:UnDef \else \expandafter\:gobbleII\fi}
\def\nopic:gobble#1{\ifx \EndPicture\:UnDef \else #1\fi}
\def\pic:cond#1#2{%
   \ifx\EndPicture\:UnDef \def\end:condpic{\EndPicture}\expandafter#1%
   \else                  \let\end:condpic\empty  \expandafter#2%
   \fi }
\def\cond:pic#1{%
   \ifx \EndPicture\:UnDef #1\else
      \let\E:pic\EndPicture \PushMacro\E:pic
      \def\EndPicture{\PopMacro\E:pic \let\EndPicture\E:pic}\fi}
\def\PictureOff{%
   \expandafter\let\csname Pic:\Pic:On\endcsname\EndPicture
   \ifx \EndPicture\:UnDef   \let\EndPicture\empty \fi
   \let\im:g\noim:g
\let\:GifText\no:GifText
%
   \Advance:\Pic:On  1 }
\def\PictureOn{%
   \ifnum \Pic:On>0
     \Advance:\Pic:On  -1
     \ifnum \Pic:On=0  \let\im:g\xim:g
\let\:GifText\x:GifText
%
     \fi
     \expand:after{\let\EndPicture}\csname Pic:\Pic:On\endcsname
     \ifx \EndPicture\relax \let\EndPicture\:UnDef\fi
   \else
     \:warning{\string\PictureOn\space without \string\PictureOff}%
   \fi }
\HAssign\Pic:On  0
\def\:temp#1{\ifx \EndPicture\:Undef
      \relax\ifmmode\hbox{$#1$}\else \hbox{#1}\fi
   \else \o:smash:{#1}\fi}
\HLet\smash\:temp

\fi
\def\P:ct{\leavevmode  \futurelet\:temp\:img}
\let\Picture\P:ct
\def\yes:pic{\PictureOn}
\def\no:pic{\PictureOff}
\def\i:mgif#1{\futurelet\:temp\:gif}

\def\:gif{%
   \ifx \:temp[\expandafter\:GifText
   \else       \expandafter\:next       \fi }



\def\hyphenation#1{}

\def\at:startdoc{%
    \let\:startdoc\:UnDef    \let\at:startdoc\:UnDef
    \edef\NoHtmlEnv{\NoHtmlEnv}%
\append:def\NoHtmlEnv{\SUBOff \SUPOff}\HtmlEnv
%
    \a:Preamble
    \a:PROLOG \a:HTML \a:HEAD
%
\ht:special{t4ht>\jobname.tmp}{\everyhbox{}\hbox
   {x\ht:special{t4ht;\a:rootfont:}x}}%
\ht:special{t4ht<\jobname.tmp}%
}
\def\:startdoc{%
    \at:startdoc
    \edef\:temp{\pageno\the\pageno}%
    {\let\HCode\:gobble \par\newpage}\:temp}
  
\ifHtml
   \def\HTrace#1{\csname #1:T\endcsname}
\def\EndHTrace#1{\csname #1:t\endcsname}
\def\RULE:T{\ht:special{t4ht@\%R}}  \def\RULE:t{\ht:special{t4ht@\%r}}
\def\GROUP:T{\ht:special{t4ht@\%P}}  \def\GROUP:t{\ht:special{t4ht@\%p}}
\def\CHAR:T{\ht:special{t4ht@\%C}}  \def\CHAR:t{\ht:special{t4ht@\%c}}
\def\HSPACE:T{\ht:special{t4ht@\%H}}  \def\HSPACE:t{\ht:special{t4ht@\%h}}
\def\VSPACE:T{\ht:special{t4ht@\%V}}  \def\VSPACE:t{\ht:special{t4ht@\%v}}

\def\Send#1{\Configure{Send:#1}}
\def\DviSend{\let\send:special\ht:special
   \ht:special{t4ht\string~}\EndPauseBACK\ht:special{t4ht\string~}%
   \ht:special{t4ht\string~}}
\def\EndDviSend{\send:special{t4ht\string~}%
   \send:special{t4ht\string~}\PauseBACK\send:special{t4ht\string~}%
   \let\send:special\:gobble}
\def\PauseBACK{\send:special{t4ht\string~<(}}
\def\EndPauseBACK{\send:special{t4ht\string~<)}}
\def\HideBACK{\send:special{t4ht\string~<[}}
\def\EndHideBACK{\send:special{t4ht\string~<]}}
\def\MiniBACK{\send:special{t4ht\string~<-}}
\def\EndMiniBACK{\send:special{t4ht\string~<+}}


   
\fi

\ifHtml  
\fi
\def\V:rbatim{\begingroup \begin:Verb \Verb:env }
\def\:EndVerbatim{\end:Verb \endgroup }
\def\Verb:env{\no:catcodes0{64}{12}\no:catcodes{65}{90}{11}%
   \no:catcodes{91}{96}{12}\no:catcodes{97}{122}{11}%
   \no:catcodes{123}{255}{12}%
   \catcode`\^^M13    \catcode`\ 13    \catcode`\^^I13
   \:Verbatim      \::Verbatim }%
\def\::Verbatim{\futurelet\:temp\V:erbatim}
\def\V:erbatim{%
   \ifx -\:temp  \expandafter\Ve:rbatim
   \else  \let\start:verb\Ver:batim  \expandafter\Ver:sp \fi }
\def\Ver:sp{%
   \ifx \ver:sp\:temp  \expandafter\Ver:assg
   \else         \expandafter\Ver:ln \fi }
\def\Ver:ln{%
   \ifx \ver:ln\:temp  \expandafter\Ver:assg
   \else         \expandafter\start:verb \fi }
\def\Ver:assg{\afterassignment\start:verb\let\:temp}
{
\catcode`\/0
/catcode`/\12
/gdef/Ve:rbatim#1#2{/catcode`#20
   /ifx  #2\/let/start:verb/Verb:atim
   /else    /let/start:verb/Ver:batim /fi
   /futurelet/:temp/Ver:sp}
}

{
\catcode`\^^I13  \catcode`\/0   \catcode`\\12
/catcode`/.10  /catcode`/^^M13      /catcode`/ 13%
/gdef/:Verbatim{%
.../def^^M{/ht:everypar{/Verb:eoln}/Verb:boln/par/leavevmode}%
.../def {/Verb:sp}%
.../let/ver:sp %
.../let/ver:ln^^M%
.../def^^I{/leavevmode  }}}

{
\xdef\Verb:atim#1\EndVerbatim{\noexpand\vrb:tt
   \leavevmode#1\noexpand\:EndVerbatim}
\catcode`\/0   /catcode`/\12
/xdef/Ver:batim#1\EndVerbatim{/noexpand/vrb:tt
   /leavevmode#1/noexpand/:EndVerbatim}
}

\NewConfigure{VerbatimEnv}[2]{\def\begin:Verb{#1}\def\end:Verb{#2}}
\Configure{VerbatimEnv}
   {\par  \edef\leftsk:p{\hskip\Verb:Left}%
    \leftskip\z@ \parindent\z@ \ht:everypar{\verb:config}}
   {\aft:Verb\par}
\def\verb:config{\bef:Verb\csname leftsk:p\endcsname
   \def\verb:config{\Verb:boln \def\Verb:eoln{\leavevmode\par}\leftsk:p}}

                    
\ifx\beginL\@undefined \else
   \ifHtml
      \def\:temp{\o:beginL:\a:Lregion}
\HLet\beginL=\:temp
\def\:temp{\b:Lregion\o:endL:}
\HLet\endL=\:temp
\NewConfigure{Lregion}{2}
\def\:temp{\o:beginR:\a:Rregion}
\HLet\beginR=\:temp
\def\:temp{\b:Rregion\o:endR:}
\HLet\endR=\:temp
\NewConfigure{Rregion}{2}

      \Hinput{etex4ht}
\fi\fi
\ifHtml      \def\:tempa{\:Hinclude}
\else
    \:CheckOption{th4}\if:Option  \def\:tempa{\input th4.4ht}
    \else  \let\:tempa\empty \fi
\fi
\:CheckOption{core} \if:Option  \let\:tempa\empty \fi
\:CheckOption{base} \if:Option  \let\:tempa\empty \fi
\:tempa

\:CheckOption{debug}
\if:Option \def\HTraceHPageOn{%
   \def\:buttrc##1##2{\no:pic  \immediate\write16{%
       l.\the\inputlineno -[\HPageDepth]- \string##1##2}\yes:pic
   }}
\def\HTraceHPageOff{\def\:buttrc##1##2{}}
\HTraceHPageOn

\else      \def\:buttrc#1#2{}
\let\HTraceHPageOn\empty
\let\HTraceHPageOff\empty
 \fi

\ifHtml \else \let\EndPreamble\empty \fi

\ifHtml \:startdoc
\let\:shipout\shipout
\def\shipout{\vfil\break\let\shipout\:shipout \shipout}
 \fi   

\ifx \Hinput\:UnDef \else
  \Hinput{tex4ht2}
  \ifx \a:ProTex\:UnDef
\else \input ProTex.4ht \fi

\fi
\def\:usersty#1,#2!*?: {\def\:temp{#1}%
   \ifx \:temp\empty \else
      \expandafter\ifx \csname #1\endcsname\relax
         \expandafter\let \csname #1\endcsname=\empty
         \input #1
      \fi
      \def\:temp{#2}\expandafter\:temp
   \fi}
\edef\TeXivht{\expandafter\ifx \csname TeXivht\endcsname\relax
  \else \noexpand\:usersty\TeXivht,!*?: \fi
  \let\noexpand\TeXivht\noexpand\:UnDef
  \let\noexpand\:usersty\noexpand\:UnDef  }


\rmv:ifs  \let\rmv:ifs\:UnDef
\:RestoreCatcodes    \TeXivht
\endinput
 
