%%
%% This is file `halloweenmath.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% halloweenmath.dtx  (with options: `halloweenmath')
%% 
%% This is a generated file.
%% It is part of a work named "halloweenmath package".
%% 
%% Copyright (C) 2017 by Gustavo MEZZETTI.
%% 
%% The halloweenmath package may be distributed and/or modified under
%% the conditions of the LaTeX Project Public License, either version 1.3
%% of this license or (at your option) any later version.
%% The latest version of this license is in
%%   http://www.latex-project.org/lppl.txt
%% and version 1.3 or later is part of all distributions of LaTeX
%% version 2005/12/01 or later.
%% 
%% The halloweenmath package has the LPPL maintenance status
%%   "author-maintained".
%% 
%% The file `manifest.txt' that comes along with this file specifies
%% what the halloweenmath package consists of; more precisely, it explains
%% how the locutions "Work" and "Compiled Work", used in the LaTeX Project
%% Public License, are to be interpreted in the case of this work.
%% 
%% Note that the distribution of this file alone is "distribution of
%% only part of the Work" in the sense of the LaTeX Project Public
%% License, and should be avoided.
%% 
%% April 25, 2017 (vers. 0.10a)
%% 
%% \CharacterTable
%%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
%%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
%%   Digits        \0\1\2\3\4\5\6\7\8\9
%%   Exclamation   \!     Double quote  \"     Hash (number) \#
%%   Dollar        \$     Percent       \%     Ampersand     \&
%%   Acute accent  \'     Left paren    \(     Right paren   \)
%%   Asterisk      \*     Plus          \+     Comma         \,
%%   Minus         \-     Point         \.     Solidus       \/
%%   Colon         \:     Semicolon     \;     Less than     \<
%%   Equals        \=     Greater than  \>     Question mark \?
%%   Commercial at \@     Left bracket  \[     Backslash     \\
%%   Right bracket \]     Circumflex    \^     Underscore    \_
%%   Grave accent  \`     Left brace    \{     Vertical bar  \|
%%   Right brace   \}     Tilde         \~}
\NeedsTeXFormat{LaTeX2e}[2004/06/01] % LaTeX2e is required!
\ProvidesPackage{halloweenmath}
                [2017/04/25 v0.10a (development)]
\newcommand*\@HwM@say@BOO{%
  \begingroup
    \escapechar \m@ne
    \def~{\string\\}%
    \def\-{\space\space}%
    \def\+{\space\space\space\space}%
    \def\={\+\+\+\+}%
    \def\*{****}%
    \typeout{}%
    \typeout{\+ _-==-_ \+ /~/~/~}%
    \typeout{\+|\-\-\-|\+< BOO! >\+\+\+\today...}%
    \typeout{\+|(.)(.)|\+/~/~/~/}%
    \typeout{\++--/~--+\- /\=\*\*\*\*\*\*\*}%
    \typeout{\+ [::::] __/ \= ... This is HALLOWEENMATH!}%
    \typeout{\+\-----\-\+\=\*\*\*\*\*\*\*}%
    \typeout{}%
  \endgroup
}
\newcommand*\@HwM@opt@say@BOO{}
\DeclareOption{silent}{%
  \let \@HwM@opt@say@BOO \@empty
}
\DeclareOption{boo}{%
  \let \@HwM@opt@say@BOO \@HwM@say@BOO
}
\DeclareOption{boo-10-31}{%
  \ifnum\month=10
    \ifnum\day=31
      \let \@HwM@opt@say@BOO \@HwM@say@BOO
    \else
      \let \@HwM@opt@say@BOO \@empty
    \fi
  \else
    \let \@HwM@opt@say@BOO \@empty
  \fi
}
\ExecuteOptions{boo-10-31}
\ProcessOptions\relax
\@HwM@opt@say@BOO
\let \@HwM@say@BOO = \@undefined
\let \@HwM@opt@say@BOO = \@undefined
\RequirePackage{amsmath,pict2e}
\@ifdefinable\@HwM@tempa{}
\newcommand*\@HwM@thickness@units@for[1]{\fontdimen 8 #1\thr@@}
\@ifdefinable\@HwM@right@or@left{}
\newcommand*\@HwM@set@right@dir{%
  \let \@HwM@right@or@left \@firstoftwo
}
\newcommand*\@HwM@set@left@dir{%
  \let \@HwM@right@or@left \@secondoftwo
}
\newenvironment*{@HwM@math@picture}[6]{%
  \setlength\unitlength{\fontdimen 22 #4\tw@}%
  #3%
  \@HwM@right@or@left{%
    \def\+{+}%
    \def\-{-}%
  }{%
    \def\+{-}%
    \def\-{+}%
  }%
  \picture(#5,#1)(#6,#2)%
}{\endpicture}
\newcommand*\@HwM@short@circuited@vphant{\v@true\h@false\mathph@nt}
\newcommand*\@HwM@oplus@strut[1]{%
  \@HwM@short@circuited@vphant #1\oplus
}
\newcommand*\@HwM@bigoplus@strut[1]{%
  \@HwM@short@circuited@vphant #1\bigoplus@
}
\newcommand*\@HwM@d@pict@strut[1]{%
  \vrule \@width\z@ \@height\z@ \@depth #1\unitlength
}
\newcommand*\@HwM@large@picture{%
  \@HwM@math@picture{5}{-1}{\@HwM@d@pict@strut\thr@@}\textfont
}
\let\end@HwM@large@picture = \end@HwM@math@picture
\newcommand*\@HwM@small@picture{%
  \@HwM@math@picture{3}{-1}{\@HwM@d@pict@strut\@ne}%
}
\let\end@HwM@small@picture = \end@HwM@math@picture
\newcommand*\@HwM@bigop@picture[1]{%
  \@HwM@math@picture{0}{-1}{\@HwM@bigoplus@strut #1}%
}
\let\end@HwM@bigop@picture = \end@HwM@math@picture
\newcommand*\@HwM@oplus@picture[1]{%
  \@HwM@math@picture{0}{-1}{\@HwM@oplus@strut #1}%
}
\let\end@HwM@oplus@picture = \end@HwM@math@picture
\@ifdefinable\if@HwM@cat@{\newif\if@HwM@cat@}
\newcommand*\@HwM@bold@version@name{bold}
\newcommand*\@HwM@if@bold@math{%
  \ifx\math@version\@HwM@bold@version@name
    \expandafter\@firstoftwo
  \else
    \expandafter\@secondoftwo
  \fi
}
\newcommand*\@HwM@choose@thicknesses[3]{%
  \@HwM@if@bold@math{#1#3}{#1#2}
}
\newcommand*{\@HwM@magic@star}[1]{%
  \begingroup
    \setlength\unitlength{#1\unitlength}%
    \picture(0,0)%
      \polygon*(0,1)(-.225,.309)(-.951,.309)(-.363,-.118)(-.588,-.809)%
              (0,-.382)(.588,-.809)(.363,-.118)(.951,.309)(.225,.309)%
    \endpicture
  \endgroup
}
\newcommand*\@HwM@large@witch[5]{%
  \begin{@HwM@large@picture}{12}{-6}%
    \roundcap
    \linethickness{#4\@HwM@thickness@units@for \textfont}%
    \Line(\-2,-2)(\+6,2)%
    \linethickness{#3\@HwM@thickness@units@for \textfont}%
    \Line(\-2,-2)(\-5,-2.5)%
    \Line(\-2,-2)(\-4.85,-2.95)%
    \Line(\-2,-2)(\-4.6,-3.3)%
    \Line(\-2,-2)(\-4.35,-3.65)%
    \Line(\-2,-2)(\-4,-4)%
    \put(\-3,-1.2){\@HwM@magic@star{.4}}%
    \put(\-4.1,-.8){\@HwM@magic@star{.8}}%
    \put(\-5.4,-1.8){\@HwM@magic@star{.6}}%
    \Line(0,1.8)(\-.2,1.4)%
    \polyline(\+.6,3.2)(\+.8,3)(\+1.5,3)%
    \put(\+1.6,3){\oval(.2,.2)[t#1]}%
    \put(\+1.6,3){\oval(.2,.2)[#2]}%
    \polyline(\+1.6,2.9)(\+1.8,2.4)(\+1.2,2.4)(\+1,2.5)(\+1,2.3)%
            (\+1.2,2)(\+1.6,1.8)(\+1.7,1.8)(\+1.7,1.6)(\+1.4,1.5)%
            (0,1.8)(\-.2,2)%
    \polygon*(\-1,2)(\-2,0)(\-2,-1)(\-1.5,-2)(\+1,-2)%
            (0,-3.6)(\+.4,-3.8)(\+.6,-3.4)(\+.8,-4)(\+2,-4)%
            (\+1,-3.6)(\+1,-3)(\+1.6,-3.2)(\+2,-1.5)(0,-1)%
            (0,-.6)(\+1.4,-.6)(\+1.8,-.4)(\+2,0)(0,0)%
            (0,1.4)%
    \polygon*(\-3,2)(\-2.8,3)(\-2,4)(\-1.5,4.1)(\-1,4)(0,3.5)%
            (\+1,3.8)(\+2.5,3.5)(\+3,3.3)(\+2,3.4)(0,3)(\-1,2)%
            (\-2,1.6)(\-2.7,2)(\-2,2)(\-1,3)(\-2,3.5)(\-2.6,3)%
    \buttcap
    \Line(\+.2,2.8)(\+.6,3)%
    \linethickness{#5\p@}%
    \Line(\+1.7,1.6)(\+2,1.6)%
    \Line(\+1.7,1.6)(\+1.9,1.4)%
    \Line(\+1.7,1.6)(\+1.7,1.3)%
    \if@HwM@cat@
      \Line(\+3.8,2.1)(\+5.2,1.9)%
      \Line(\+3.8,2)(\+5.2,2)%
      \Line(\+3.8,1.9)(\+5.2,2.1)%
      \roundcap
      \linethickness{#4\@HwM@thickness@units@for \textfont}%
      \put(\+3.6,1){\circle*{1.2}}%
      \put(\+4.2,1.4){\circle*{1}}%
      \put(\+4.5,2){\circle*{.8}}%
      \polygon*(\+4.1,2)(\+4.1,2.5)(\+4.5,2.2)(\+4.9,2.5)(\+4.9,2)%
      \cbezier(\+3.2,.6)(\+2,0)(\+4.2,-.4)(\+3,-1)%
    \fi
  \end{@HwM@large@picture}%
}
\newcommand*\@HwM@Large@Witch[2]{%
  \@HwM@choose@thicknesses{\@HwM@large@witch #1#2}%
        {{.4}{1.8}{.1}}%
        {{.8}{2.7}{.15}}%
}
\newcommand*\@HwM@common@small@body[2]{%
  \linethickness{#2\@HwM@thickness@units@for #1}%
  \buttcap
  \Line(\+.1,1.4)(\+.3,1.5)%
  \roundcap
  \Line(0,.9)(\-.1,.7)%
  \polyline(\+.3,1.6)(\+.4,1.5)(\+.75,1.5)(\+.9,1.2)(\+.5,1.2)%
          (\+.6,1)(\+.8,.9)(\+.7,.75)(0,.9)(\-.1,1)%
  \polygon*(\-.5,1)(\-1,0)(\-1,-.5)(\-.75,-1)(\+.5,-1)%
          (0,-1.8)(\+.2,-1.9)(\+.3,-1.7)(\+.4,-2)(\+1,-2)%
          (\+.5,-1.8)(\+.5,-1.5)(\+.8,-1.6)(\+1,-.75)(0,-.5)%
          (0,.7)%
  \polygon*(\-1.5,1)(\-1.4,1.5)(\-1,2)(\-.5,2)(0,1.75)%
          (\+.5,1.9)(\+1.25,1.75)(0,1.5)(\-.5,1)(\-1,.8)%
          (\-1.2,1)(\-1,1)(\-.5,1.5)(\-1,1.75)(\-1.3,1.5)%
}
\newcommand*\@HwM@Common@Small@Body[1]{%
  \@HwM@choose@thicknesses {\@HwM@common@small@body #1}{{.35}}{{.7}}%
}
\newcommand*\@HwM@common@small@cat[2]{%
  \roundcap
  \linethickness{#2\@HwM@thickness@units@for #1}%
  \if@HwM@cat@
    \put(\+1.8,.5){\circle*{.6}}%
    \put(\+2.1,.7){\circle*{.5}}%
    \put(\+2.25,1){\circle*{.4}}%
    \polygon*(\+2.05,1)(\+2.05,1.25)(\+2.25,1.1)(\+2.45,1.25)
            (\+2.45,1)%
    \cbezier(\+1.8,.4)(\+1.2,.1)(\+2,-.1)(\+1.4,-.4)%
  \fi
}
\newcommand*\@HwM@Common@Small@Cat[1]{%
  \@HwM@choose@thicknesses {\@HwM@common@small@cat #1}{{}}{{2}}%
}
\newcommand*\@HwM@Small@Witch[2]{%
  \begin{@HwM@small@picture}#2{6}{-3}%
    \@HwM@Common@Small@Cat #2%
    \Line(\-1,-1)(\+3,1)%
    \@HwM@Common@Small@Body #2%
    \Line(\-1,-1)(\-2.5,-1.25)%
    \Line(\-1,-1)(\-2.4,-1.5)%
    \Line(\-1,-1)(\-2.25,-1.75)%
    \Line(\-1,-1)(\-2,-2)%
    \put(\-1.7,-.4){\@HwM@magic@star{.4}}%
    \put(\-2.7,-.8){\@HwM@magic@star{.25}}%
    \polygon*(0,-.3)(\+.7,-.3)(\+.9,-.2)(\+1,0)(0,0)%
  \end{@HwM@small@picture}%
}
\newcommand*\@HwM@Small@Witch@Wo@Broom[1]{%
  \begin{@HwM@math@picture}{4}{-2}{}#1{0}{\+1}%
    \@HwM@Common@Small@Body #1%
    \polygon*(\-.1,.4)(\+1,-.9)(\+1,-1.2)(\+.8,-1.2)(\-.1,0)%
  \end{@HwM@math@picture}%
}
\newcommand*\@HwM@Small@Cat@On@Hori@Broom[1]{%
  \begin{@HwM@math@picture}{0}{-.6}{}#1{0}{\+2.5}%
    \@HwM@Common@Small@Cat #1%
    \Line(\+2.2,.8)(\+2.4,.4)%
  \end{@HwM@math@picture}%
}
\newcommand*\@HwM@large@pumpkin@profile[1]{%
  \cbezier(#1.15,2.25)(#12.63,3.75)(#13.38,1.5)(#13.38,0)%
  \cbezier(#1.15,-2.7)(#12.4,-3.6)(#13.38,-1.5)(#13.38,0)%
  \put(#11.13,1.13){\circle*{.8}}%
}
\newcommand*\@HwM@large@pumpkin@mouth[9]{%
    \polygon*%
        (-#1)(-#2)(-#3)(-#4)(0,#5)(#4)(#3)(#2)(#1)%
        (#6)(#7)(#8)(0,#9)(-#8)(-#7)(-#6)%
}
\newcommand*\@HwM@large@pumpkin[1]{%
  \begin{@HwM@bigop@picture}\displaystyle \textfont {7.5}{-3.75}%
    \roundcap
    \linethickness{#1\@HwM@thickness@units@for \textfont}%
    \Line(-.15,2.25)(-.3,3)(.3,3)(.15,2.25)%
    \Line(-.15,-2.7)(.15,-2.7)%
    \@HwM@large@pumpkin@profile-%
    \@HwM@large@pumpkin@profile+%
    \polygon*(0,.35)(-.35,-.35)(.35,-.35)%
    \@HwM@large@pumpkin@mouth{2,-.5}{1.3,-1.4}{.8,-1.3}{.5,-1.6}%
        {-1.5}%
        {1.2,-1.1}{.7,-1}{.45,-1.1}%
        {-1}%
  \end{@HwM@bigop@picture}%
}
\newcommand*\@HwM@Large@Pumpkin{%
  \@HwM@choose@thicknesses \@HwM@large@pumpkin
        {{1.8}}%
        {{2.2}}%
}
\newcommand*\@HwM@small@pumpkin@profile[1]{%
  \cbezier(#1.1,1.5)(#11.75,2.5)(#12.25,1)(#12.25,0)%
  \cbezier(#1.1,-1.8)(#11.6,-2.4)(#12.25,-1)(#12.25,0)%
  \put(#1.75,.75){\circle*{.5}}%
}
\newcommand*\@HwM@small@pumpkin@mouth[7]{%
    \polygon*%
        (-#1)(-#2)(-#3)(0,#4)(#3)(#2)(#1)%
        (#5)(#6)(0,#7)(-#6)(-#5)%
}
\newcommand*\@HwM@small@pumpkin[3]{%
  \begin{@HwM@bigop@picture}#1#2{5}{-2.5}%
    \roundcap
    \linethickness{#3\@HwM@thickness@units@for #2}%
    \Line(-.1,1.5)(-.15,2)(.15,2)(.1,1.5)%
    \Line(-.1,-1.8)(.1,-1.8)%
    \@HwM@small@pumpkin@profile-%
    \@HwM@small@pumpkin@profile+%
    \polygon*(0,.2)(-.2,-.2)(.2,-.2)%
    \@HwM@small@pumpkin@mouth{1.3,-.3}{.8,-.8}{.5,-.7}%
        {-1}%
        {.7,-.6}{.4,-.5}%
        {-.7}%
  \end{@HwM@bigop@picture}%
}
\newcommand*\@HwM@Small@Pumpkin[2]{%
  \@HwM@choose@thicknesses{\@HwM@small@pumpkin #1#2}%
        {{}}%
        {{1.5}}%
}
\newcommand*\@HwM@binop@pumpkin@profile[1]{%
  \cbezier(#1.1,1)(#11.2,1.7)(#11.6,.8)(#11.6,0)%
  \cbezier(#1.1,-1)(#11,-1.5)(#11.6,-.8)(#11.6,0)%
  \put(#1.6,.5){\circle*{.4}}%
}
\newcommand*\@HwM@binop@pumpkin[3]{%
  \begin{@HwM@oplus@picture}#1#2{3.6}{-1.8}%
    \roundcap
    \linethickness{#3\@HwM@thickness@units@for #2}%
    \Line(-.1,1)(-.15,1.4)(.15,1.4)(.1,1)%
    \Line(-.1,-1)(.1,-1)%
    \@HwM@binop@pumpkin@profile-%
    \@HwM@binop@pumpkin@profile+%
    \@HwM@small@pumpkin@mouth{1,-.1}{.7,-.5}{.4,-.4}%
        {-.7}%
        {.6,-.3}{.3,-.2}%
        {-.4}%
  \end{@HwM@oplus@picture}%
}
\newcommand*\@HwM@Binop@Pumpkin[2]{%
  \@HwM@choose@thicknesses{\@HwM@binop@pumpkin #1#2}%
        {{.6}}%
        {{1.2}}%
}
\newcommand*\@HwM@large@skull@nose[9]{%
  \moveto(0,-#1)%
  \curveto(-#2,-#1)(-#3,-#1)(-#4,-#5)%
  \curveto(-#6,-#7)(-#8,-#9)(0,-#9)%
  \curveto(#8,-#9)(#6,-#7)(#4,-#5)%
  \curveto(#3,-#1)(#2,-#1)(0,-#1)%
  \fillpath
}
\newcommand*\@HwM@large@skull@profile[1]{%
  \moveto(#1.3375,0)%
  \curveto(#1.3375,.225)(#1.3375,.4725)(#1.9,.45)%
  \curveto(#11.35,.4275)(#11.5525,.225)(#11.575,0)%
  \curveto(#11.5975,-.225)(#11.35,-.675)(#11.125,-.675)%
  \curveto(#1.9,-.675)(#1.3375,-.45)(#1.3375,0)%
  \fillpath
  \cbezier(#12,2)(#12.1,1.8)(#12.7,1.125)(#12.25,0)%
  \moveto(#12.24,.1)%
  \curveto(#12.3,-1)(#12,-1.2)(#11.5,-1.2)%
  \curveto(#11.3,-1.2)(#11.125,-1.3)(#11.125,-1.5)%
  \strokepath
  \moveto(#11.875,-1.35)%
  \curveto(#11.86,-1.8)(#11.8,-1.5)(#11.65,-1.95)%
  \curveto(#11.5,-2.4)(#11.5,-2.75)(#11.2,-2.9)%
  \curveto(#1.9,-3.05)(#11,-3.2)(#1.3,-3.1)%
  \strokepath
}
\newcommand*\@HwM@large@skull@innerjaw[1]{%
  \moveto(#11.5,-1.35)%
  \curveto(#11.35,-1.5)(#11.5,-2.25)(#11.125,-2.25)%
  \strokepath
}
\newcommand*\@HwM@large@skull@teeth[2]{%
  \moveto(#1.75,-2.25)%
  \curveto(#1.65,-2.5)(#1.55,-2.5)(#1.45,-2.3)%
  \curveto(#1.35,-2.05)(#1.4,-2)(#1.6,-2)%
  \curveto(#1.8,-2)(#1.8,-2.05)(#1.75,-2.25)%
  \strokepath
  \moveto(#1.35,-2.3)%
  \curveto(#1.25,-2.6)(#1.1,-2.65)(#1.05,-2.3)%
  \curveto(#1.05,-2.05)(0,-2.05)(#1.2,-2.05)%
  \curveto(#1.4,-2.05)(#1.42,-2)(#1.35,-2.3)%
  \strokepath
  \moveto(#1.7,-1.6)%
  \curveto(#1.6,-1.4)(#1.5,-1.4)(#1.45,-1.65)%
  \curveto(#1.45,-1.85)(#1.4,-1.95)(#1.55,-1.95)%
  \curveto(#1.85,-1.95)(#1.75,-1.75)(#1.7,-1.6)%
  \strokepath
  \moveto(#11.12,-1.6)%
  \curveto(#11,-1.3)(#1.9,-1.3)(#1.75,-1.6)%
  \curveto(#11,-3)(#11,-3)(#11.12,-1.5)%
  \strokepath
  \moveto(#1.4,-1.65)%
  \curveto(#1.3,-1.4)(#1.1,-1.4)(#1.05,-1.7)%
  \curveto(#1.05,-1.9)(#2.05,-2)(#1.225,-2)%
  \curveto(#1.5,-2)(#1.45,-1.9)(#1.4,-1.65)
  \strokepath
}
\newcommand*\@HwM@large@skull@brows[1]{%
  \moveto(#1.8,.7)%
  \curveto(#1.4,.7)(#1.4,.9)(#1.2,.7)%
  \curveto(#1.1,.6)(#1.2,.4)(#1.2,.3)%
  \strokepath
  \cbezier(#11.3,.7)(#11.5,.7)(#11.5,.75)(#11.75,.5)%
}
\newcommand*\@HwM@large@skull[4]{%
  \begin{@HwM@bigop@picture}\displaystyle \textfont {6}{-3}%
    \roundcap
    \linethickness{#3\@HwM@thickness@units@for \textfont}%
    \@HwM@large@skull@teeth-+%
    \@HwM@large@skull@teeth+-%
    \linethickness{#1\@HwM@thickness@units@for \textfont}%
    \@HwM@large@skull@nose
        {1.125}{.1}{.5}{.3375}{.9}{.147}{.7}{.2}{.4}%
    \cbezier(-2,2)(-1.25,3.5)(1.25,3.5)(2,2)%
    \@HwM@large@skull@profile-%
    \@HwM@large@skull@profile+%
    \cbezier(-.3,-3.1)(0,-3)(0,-3)(.3,-3.1)%
    \linethickness{#2\@HwM@thickness@units@for \textfont}%
    \@HwM@large@skull@innerjaw-%
    \@HwM@large@skull@innerjaw+%
    \linethickness{#4\p@}%
    \@HwM@large@skull@brows-%
    \@HwM@large@skull@brows+%
  \end{@HwM@bigop@picture}%
}
\newcommand*\@HwM@Large@Skull{%
  \@HwM@choose@thicknesses \@HwM@large@skull
        {{1.5}{.9}{.3}{.075}}%
        {{2}{1.2}{.4}{.1}}%
}
\newcommand*\@HwM@small@skull@nose[8]{%
  \moveto(0,-.#1)%
  \curveto(-.#2,-.#1)(-.#3,-.#4)(-.#5,-.#6)%
  \curveto(-.#7,-.#8)(.#7,-.#8)(.#5,-.#6)%
  \curveto(.#3,-.#4)(.#2,-.#1)(0,-.#1)%
  \fillpath
}
\newcommand*\@HwM@small@skull@profile[1]{%
  \moveto(#1.225,0)%
  \curveto(#1.225,.15)(#1.225,.315)(#1.6,.3)%
  \curveto(#1.9,.285)(#11.035,.15)(#11.05,0)%
  \curveto(#11.065,-.15)(#1.9,-.45)(#1.75,-.45)%
  \curveto(#1.6,-.45)(#1.225,-.3)(#1.225,0)%
  \fillpath
  \cbezier(0,2)(#11.5,2)(#11.8,0.75)(#11.5,0)%
  \cbezier(#11.5,0)(#11.575,-1.35)(#1.75,-.45)(#1.75,-1)%
  \moveto(#11.25,-.9)%
  \curveto(#11.24,-1.2)(#11.2,-1)(#11.1,-1.3)%
  \curveto(#11,-1.6)(#11,-1.8)(#1.75,-1.9)%
  \curveto(0,-2.1)(#1.3,-2)(0,-2)%
  \strokepath
}
\newcommand*\@HwM@small@skull@innerjaw[1]{%
  \moveto(#11,-.9)%
  \curveto(#1.9,-1)(#11,-1.5)(#1.75,-1.5)%
  \strokepath
}
\newcommand*\@HwM@small@skull@teeth[2]{%
  \moveto(#1.5,-1.5)%
  \curveto(#1.47,-1.65)(#1.35,-1.6)(#1.3,-1.55)%
  \curveto(#1.15,-1.25)(#1.65,-1.25)(#1.5,-1.5)%
  \strokepath
  \moveto(#1.25,-1.55)%
  \curveto(#1.2,-1.7)(#1.04,-1.7)(#1.03,-1.55)%
  \curveto(#2.1,-1.3)(#1.35,-1.3)(#1.25,-1.55)%
  \strokepath
  \moveto(#1.45,-1)%
  \curveto(#1.4,-.9)(#1.3,-.9)(#1.285,-1.05)%
  \curveto(#1.2,-1.35)(#1.6,-1.35)(#1.45,-1)%
  \strokepath
  \moveto(#1.75,-1)%
  \curveto(#1.65,-.9)(#1.6,-.9)(#1.5,-1)%
  \curveto(#1.6,-2)(#1.7,-2)(#1.75,-1)%
  \strokepath
  \moveto(#1.25,-1.05)%
  \curveto(#1.2,-.9)(#1.04,-.9)(#1.03,-1.05)%
  \curveto(#2.08,-1.4)(#1.35,-1.4)(#1.25,-1.05)%
  \strokepath
}
\newcommand*\@HwM@small@skull[5]{%
  \begin{@HwM@bigop@picture}#1#2{3.48}{-1.74}%
    \roundcap
    \linethickness{#5\@HwM@thickness@units@for #2}%
    \@HwM@small@skull@teeth-+%
    \@HwM@small@skull@teeth+-%
    \linethickness{#3\@HwM@thickness@units@for #2}%
    \@HwM@small@skull@nose{75}{15}{3}{75}{225}{6}{15}{15}%
    \@HwM@small@skull@profile-%
    \@HwM@small@skull@profile+%
    \linethickness{#4\@HwM@thickness@units@for #2}%
    \@HwM@small@skull@innerjaw-%
    \@HwM@small@skull@innerjaw+%
  \end{@HwM@bigop@picture}%
}
\newcommand*\@HwM@Small@Skull[2]{%
  \@HwM@choose@thicknesses{\@HwM@small@skull #1#2}%
        {{}{.6}{.25}}%
        {{1.333333}{.7}{.3}}%
}
\newcommand*\@HwM@binop@skull@profile[1]{%
  \moveto(#1.15,0)%
  \curveto(#1.15,.1)(#1.15,.21)(#1.4,.2)%
  \curveto(#1.6,.19)(#1.69,.1)(#1.7,0)%
  \curveto(#1.71,-.1)(#1.6,-.3)(#1.5,-.3)%
  \curveto(#1.4,-.3)(#1.15,-.2)(#1.15,0)%
  \fillpath
  \cbezier(0,1.333336)(#11,1.333336)(#11.2,0.5)(#11,0)%
  \cbezier(#11,0)(#11.05,-.9)(#1.5,-.3)(#1.5,-.65)%
}
\newcommand*\@HwM@binop@skull@teeth[2]{%
  \moveto(#1.33,-.7)%
  \curveto(#1.3,-.6)(#1.22,-.6)(#1.19,-.75)%
  \curveto(#1.15,-.9)(#1.38,-.9)(#1.33,-.7)%
  \strokepath
  \moveto(#1.5,-.7)%
  \curveto(#1.45,-.6)(#1.4,-.6)(#1.35,-.7)%
  \curveto(#1.4,-1.2)(#1.5,-1.2)(#1.5,-.7)%
  \strokepath
  \moveto(#1.17,-.75)%
  \curveto(#1.13,-.65)(#1.05,-.62)(#1.02,-.75)%
  \curveto(#2.03,-.95)(#1.22,-.95)(#1.17,-.75)%
  \strokepath
}
\newcommand*\@HwM@binop@skull[4]{%
  \begin{@HwM@oplus@picture}#1#2{2.48}{-1.24}%
    \roundcap
    \linethickness{#4\@HwM@thickness@units@for #2}%
    \@HwM@binop@skull@teeth-+%
    \@HwM@binop@skull@teeth+-%
    \linethickness{#3\@HwM@thickness@units@for #2}%
    \@HwM@small@skull@nose{5}{1}{2}{5}{15}{4}{1}{1}%
    \@HwM@binop@skull@profile-%
    \@HwM@binop@skull@profile+%
  \end{@HwM@oplus@picture}%
}
\newcommand*\@HwM@Binop@Skull[2]{%
  \@HwM@choose@thicknesses{\@HwM@binop@skull #1#2}%
        {{.6}{.2}}%
        {{.9}{.266667}}%
}
\newcommand*\@HwM@large@cloud[1]{%
  \begin{@HwM@large@picture}{12}{-6}%
    \roundcap
    \linethickness{#1\@HwM@thickness@units@for \textfont}%
    \cbezier(\-5,0)(\-7,.5)(\-5.5,3.25)(\-4,2.5)%
    \cbezier(\-3.8,2.1)(\-4.75,3.5)(\-2,4)(\-2,3)%
    \cbezier(\-2.4,2.5)(\-1.5,4)(\+2,5)(\+2,3)%
    \cbezier(\+1.8,2.8)(\+2.5,4)(\+4.5,2.5)(\+2.8,1.8)%
    \cbezier(\+3.2,2)(\+7,2)(\+6,0)(\+5,0)%
    \cbezier(\+5,0)(\+6,0)(\+6.25,-1)(\+5.3,-1.4)%
    \cbezier(\+4.6,-1.1)(\+6.8,-1.5)(\+4.3,-4)(\+3.6,-2.1)%
    \cbezier(\+3.9,-2.6)(\+4,-3)(\+2,-5)(0,-3)%
    \cbezier(\+.2,-2.4)(\-.2,-4.5)(\-4.5,-4)(\-4,-2)%
    \cbezier(\-3.4,-2)(\-5.5,-2)(\-6.5,-.5)(\-5,0)%
  \end{@HwM@large@picture}%
}
\newcommand*\@HwM@Large@Cloud{%
  \@HwM@choose@thicknesses \@HwM@large@cloud
        {{.8}}%
        {{1.6}}%
}
\newcommand*\@HwM@small@cloud[2]{%
  \begin{@HwM@small@picture}#1{6}{-3}%
    \roundcap
    \linethickness{#2\@HwM@thickness@units@for #1}%
    \cbezier(\-2.5,0)(\-3.5,.25)(\-3,2)(\-1,1.5)%
    \cbezier(\-1.2,1.25)(\-.75,2)(\+1,2.5)(\+1,1.5)%
    \cbezier(\+.9,1.4)(\+1.25,2)(\+2.25,1.25)(\+1.4,.9)%
    \cbezier(\+1.6,1)(\+3.5,1)(\+3,0)(\+2.5,0)%
    \cbezier(\+2.5,0)(\+3,0)(\+3.5,-1)(\+2.1,-1.2)%
    \cbezier(\+2.5,-1.1)(\+2.5,-2)(\+1,-2.5)(0,-1.5)%
    \cbezier(\+.1,-1.2)(\-.1,-2.25)(\-2.25,-2)(\-2,-1)%
    \cbezier(\-1.7,-1)(\-2.75,-1)(\-3.25,-.25)(\-2.5,0)%
  \end{@HwM@small@picture}%
}
\newcommand*\@HwM@Small@Cloud[2]{%
  \@HwM@choose@thicknesses{\@HwM@small@cloud #2}%
        {{.5}}%
        {{1.2}}%
}
\newcommand*\@HwM@symm@ghost@contour[8]{%
  \cbezier(-#1,#2)(-#3,#4)(-#3,#5)(-#3,#6)%
  \Line(-#3,#6)(-#3,#7)%
  \cbezier(#1,#2)(#3,#4)(#3,#5)(#3,#6)%
  \Line(#3,#6)(#3,#7)%
  \cbezier(-#3,#7)(-#3,#8)(#3,#8)(#3,#7)%
}
\newcommand*\@HwM@symm@ghost@border[8]{%
  \cbezier(-#1,#2)(-#3,#4)(-#5,#6)(-#7,#2)%
  \qbezier(-#7,#2)(0,#8)(#7,#2)%
  \cbezier(#1,#2)(#3,#4)(#5,#6)(#7,#2)%
}
\newcommand*\@HwM@symm@ghost@eyes[3]{%
  \put(-#1,#2){\circle*{#3}}%
  \put(#1,#2){\circle*{#3}}%
}
\newcommand*\@HwM@symmetric@ghost[3]{%
  \begin{@HwM@math@picture}{2.6}{-1}%
            {\@HwM@d@pict@strut{.6}}#1{3.2}{-1.6}%
    \roundcap
    \linethickness{#2\@HwM@thickness@units@for #1}%
    \@HwM@symm@ghost@contour{1.5}{-1.5}{1}{-1}{-.5}{0}{.5}{2}%
    \linethickness{#3\@HwM@thickness@units@for #1}%
    \@HwM@symm@ghost@border{1.5}{-1.5}{1.1}{-1.1}{.7}{-1.9}{.3}{-1.2}%
    \@HwM@symm@ghost@eyes{.4}{.7}{.4}%
  \end{@HwM@math@picture}%
}
\newcommand*\@HwM@Symmetric@Ghost[2]{%
  \@HwM@choose@thicknesses{\@HwM@symmetric@ghost #2}%
        {{.9}{.6}}%
        {{1.8}{1.2}}%
}
\newcommand*\@HwM@asymmetric@ghost[3]{%
  \begin{@HwM@math@picture}{2.6}{-1}%
            {\@HwM@d@pict@strut{.6}}#1{3.8}%
            {-\@HwM@right@or@left{1.6}{2.2}}%
    \roundcap
    \linethickness{#2\@HwM@thickness@units@for #1}%
    \cbezier(\-1.75,-1.5)(\-1,-1)(\-.7,-.5)(\-.5,0)%
    \cbezier(\-.5,0)(\-.3,.5)(0,1.6)(\+1,1.6)%
    \cbezier(\+1,1.6)(\+1.8,1.6)(\+1.8,.9)(\+1.8,.6)%
    \cbezier(\+1.8,.6)(\+1.8,-.3)(\+.9,-.7)(\+1.25,-1.5)%
    \linethickness{#3\@HwM@thickness@units@for #1}%
    \cbezier(\-1.75,-1.5)(\-1.4,-1.2)(\-1.1,-1.8)(\-.75,-1.5)%
    \cbezier(\-.75,-1.5)(\-.4,-1.2)(\-.1,-1.8)(\+.25,-1.5)%
    \cbezier(\+.25,-1.5)(\+.6,-1.2)(\+.9,-1.8)(\+1.25,-1.5)%
    \put(\+1.2,.7){\circle*{.4}}%
  \end{@HwM@math@picture}%
}
\newcommand*\@HwM@Asymmetric@Ghost[2]{%
  \@HwM@choose@thicknesses{\@HwM@asymmetric@ghost #2}%
        {{.9}{.6}}%
        {{1.8}{1.2}}%
}
\newcommand*\@HwM@symmetric@bat@wing[1]{%
  \moveto(#1.7,0)%
  \curveto(#11.5,.1)(#12.2,.5)(#12,1)%
  \curveto(#12.5,.5)(#12.9,0)(#12.9,-.5)%
  \curveto(#12.8,0)(#12,-.5)(#12.25,-1)%
  \curveto(#12,-.5)(#11.7,-.3)(#11.5,-.7)%
  \curveto(#11.4,-.5)(#11.2,-.3)(#11,-.5)%
  \curveto(#1.9,-.4)(#1.7,-.4)(#1.5,-.5)%
  \closepath
  \fillpath
}
\newcommand*\@HwM@symmetric@bbat@wing[1]{%
  \moveto(#1.7,.1)%
  \curveto(#11.5,.2)(#12.25,.6)(#12,1.1)%
  \curveto(#12.6,.5)(#13,0)(#13,-.6)%
  \curveto(#12.8,0)(#12,-.6)(#12.25,-1.1)%
  \curveto(#12,-.6)(#11.7,-.4)(#11.5,-.8)%
  \curveto(#11.4,-.6)(#11.2,-.4)(#11,-.6)%
  \curveto(#1.9,-.5)(#1.7,-.5)(#1.5,-.5)%
  \closepath
  \fillpath
}
\newcommand*\@HwM@symmetric@bat[1]{%
  \begin{@HwM@math@picture}{2}{-1}{}#1{6}{-3}%
    \moveto(-.5,-.5)%
    \curveto(-.4,-.6)(-.2,-.7)(-.2,-1)%
    \curveto(-.1,-.7)(.1,-.7)(.2,-1)%
    \curveto(.2,-.7)(.4,-.6)(.5,-.5)%
    \closepath
    \fillpath
    \@HwM@symmetric@bat@wing-%
    \@HwM@symmetric@bat@wing+%
    \moveto(.5,0)%
    \circlearc{.35}{0}{.15}{0}{180}%
    \lineto(-.2,0)%
    \circlearc{-.35}{0}{.15}{0}{180}%
    \lineto(-.75,0)%
    \curveto(-.75,.45)(-.7,.5)(-.5,1)%
    \circlearc{0}{1}{.5}{180}{360}%
    \curveto(.7,.5)(.75,.45)(.75,0)%
    \closepath
    \fillpath
    \moveto(-.75,0)%
    \circlearc{0}{0}{.75}{180}{360}%
    \lineto(.5,0)%
    \circlearc{.35}{0}{.15}{360}{180}%
    \lineto(-.2,0)%
    \circlearc{-.35}{0}{.15}{360}{180}%
    \closepath
    \fillpath
  \end{@HwM@math@picture}%
}
\newcommand*\@HwM@symmetric@bold@bat[1]{%
  \begin{@HwM@math@picture}{2}{-1}{}#1{6}{-3}%
    \moveto(-.6,-.5)%
    \curveto(-.5,-.6)(-.3,-.7)(-.3,-1.1)%
    \curveto(-.1,-.7)(.1,-.7)(.3,-1.1)%
    \curveto(.3,-.7)(.5,-.6)(.6,-.5)%
    \closepath
    \fillpath
    \@HwM@symmetric@bbat@wing-%
    \@HwM@symmetric@bbat@wing+%
    \moveto(.5,0)%
    \circlearc{.35}{0}{.15}{0}{180}%
    \lineto(-.2,0)%
    \circlearc{-.35}{0}{.15}{0}{180}%
    \lineto(-.8,0)%
    \curveto(-.8,.5)(-.7,.5)(-.55,1.1)%
    \circlearc{0}{1.1}{.55}{180}{360}%
    \curveto(.7,.5)(.8,.5)(.8,0)%
    \closepath
    \fillpath
    \moveto(-.8,0)%
    \circlearc{0}{0}{.8}{180}{360}%
    \lineto(.5,0)%
    \circlearc{.35}{0}{.15}{360}{180}%
    \lineto(-.2,0)%
    \circlearc{-.35}{0}{.15}{360}{180}%
    \closepath
    \fillpath
  \end{@HwM@math@picture}%
}
\newcommand*\@HwM@Symmetric@Bat[2]{%
  \@HwM@if@bold@math{%
    \@HwM@symmetric@bold@bat #2%
  }{%
    \@HwM@symmetric@bat #2%
  }%
}
\newcommand*\@HwM@asymmetric@bat[1]{%
  \begin{@HwM@math@picture}{2}{-1}{}#1{6}{-3}%
    \moveto(\-.5,.2)%
    \curveto(\-1.5,.3)(\-2.2,.5)(\-1.8,1)%
    \curveto(\-2.5,.5)(\-2.9,0)(\-2.9,-.5)%
    \curveto(\-2.7,0)(\-2,-.25)(\-2,-.8)%
    \curveto(\-2,-.5)(\-1.6,-.25)(\-1.4,-.5)%
    \curveto(\-1.4,-.2)(\-1.2,-.1)(\-1,-.3)%
    \curveto(\-1,-.1)(\-.7,-.1)(\-.6,-.1)%
    \closepath
    \fillpath
    \moveto(\+.9,0)
    \curveto(\+2,-.1)(\+2.2,.5)(\+2,.7)
    \curveto(\+2.5,.6)(\+3.2,0)(\+2.9,-.7)%
    \curveto(\+2.6,-.2)(\+2,-.5)(\+2,-1)%
    \curveto(\+2,-.5)(\+1.7,-.4)(\+1.5,-.7)%
    \curveto(\+1.6,-.4)(\+1.3,-.2)(\+1.1,-.5)%
    \curveto(\+1.1,-.3)(\+1,-.3)(\+.8,-.3)%
    \closepath
    \fillpath
    \moveto(\+.8,-.1)%
    \curveto(\+.85,.08)(\+.65,.13)(\+.6,-.05)%
    \lineto(\+.3,0)%
    \curveto(\+.35,.2)(\+.05,.3)(0,.1)%
    \lineto(\-.8,0)%
    \curveto(\-.7,.3)(\-.4,.7)(\+.25,1)%
    \curveto(\+.2,.4)(\+.8,.3)(\+1,.9)%
    \curveto(\+1.1,.7)(\+1.1,.2)(\+1,0)%
    \closepath
    \fillpath
    \moveto(\+.8,-.1)%
    \curveto(\+.75,-.28)(\+.55,-.23)(\+.6,-.05)%
    \lineto(\+.3,0)%
    \curveto(\+.25,-.18)(\-.05,-.08)(0,.1)%
    \lineto(\-.8,0)%
    \curveto(\-.9,-.3)(\-.8,-.6)(\-1,-.9)%
    \curveto(\-.8,-.6)(\-.4,-.7)(\-.6,-1)%
    \curveto(\-.2,-.8)(\+.2,-.82)(\+.3,-.8)%
    \curveto(\+.85,-.69)(\+.99,-.02)(\+1,0)%
    \closepath
    \fillpath
  \end{@HwM@math@picture}%
}
\newcommand*\@HwM@asymmetric@bold@bat[1]{%
  \begin{@HwM@math@picture}{2}{-1}{}#1{6}{-3}%
    \moveto(\-.5,.3)%
    \curveto(\-1.5,.4)(\-2.2,.6)(\-1.9,1.1)%
    \curveto(\-2.6,.6)(\-3,0)(\-3,-.6)%
    \curveto(\-2.6,-.1)(\-2,-.4)(\-2,-.9)%
    \curveto(\-2,-.6)(\-1.6,-.35)(\-1.4,-.6)%
    \curveto(\-1.4,-.3)(\-1.2,-.2)(\-1,-.4)%
    \curveto(\-1,-.2)(\-.7,-.2)(\-.6,-.2)%
    \closepath
    \fillpath
    \moveto(\+.9,.1)
    \curveto(\+1.8,0)(\+2.3,.3)(\+2.1,.8)%
    \curveto(\+2.6,.7)(\+3.3,-.1)(\+3,-.8)%
    \curveto(\+2.7,-.3)(\+2,-.6)(\+2,-1.1)%
    \curveto(\+2,-.6)(\+1.7,-.5)(\+1.5,-.8)%
    \curveto(\+1.6,-.5)(\+1.3,-.3)(\+1.1,-.6)%
    \curveto(\+1.1,-.4)(\+1,-.4)(\+.8,-.4)%
    \closepath
    \fillpath
    \moveto(\+.8,-.1)%
    \curveto(\+.85,.08)(\+.65,.13)(\+.6,-.05)%
    \lineto(\+.3,0)%
    \curveto(\+.35,.2)(\+.05,.3)(0,.1)%
    \lineto(\-.85,0)%
    \curveto(\-.75,.3)(\-.4,.7)(\+.25,1.1)%
    \curveto(\+.2,.55)(\+.8,.45)(\+1,1)%
    \curveto(\+1.1,.8)(\+1.2,.2)(\+1.05,0)%
    \closepath
    \fillpath
    \moveto(\+.8,-.1)%
    \curveto(\+.75,-.28)(\+.55,-.23)(\+.6,-.05)%
    \lineto(\+.3,0)%
    \curveto(\+.25,-.18)(\-.05,-.08)(0,.1)%
    \lineto(\-.85,0)%
    \curveto(\-.95,-.3)(\-.8,-.6)(\-1,-1)%
    \curveto(\-.75,-.7)(\-.4,-.8)(\-.5,-1.1)%
    \curveto(\-.2,-.8)(\+.2,-.82)(\+.3,-.8)%
    \curveto(\+.85,-.69)(\+1.04,-.0133333)(\+1.05,0)%
    \closepath
    \fillpath
  \end{@HwM@math@picture}%
}
\newcommand*\@HwM@Asymmetric@Bat[2]{%
  \@HwM@if@bold@math{%
    \@HwM@asymmetric@bold@bat #2%
  }{%
    \@HwM@asymmetric@bat #2%
  }%
}
\newcommand*\@HwM@oooalign[2]{%
  \leavevmode
  \vbox{%
    \baselineskip\z@skip
    \lineskip\z@skip
    \lineskiplimit -\maxdimen
    \m@th
    \ialign{\hfil$#1##$\hfil\crcr #2\crcr}%
  }%
}
\newcommand*\@HwM@overprint@rel[2]{%
  \mathrel{\mathpalette \@HwM@oooalign {#1\cr#2}}%
}
\newcommand*\@HwM@rightbroomtail{\@HwM@overprint@rel \std@minus >}
\newcommand*\@HwM@leftbroomtail {\@HwM@overprint@rel \std@minus <}
\newcommand*\@HwM@rightpforktail{\mathrel\ni}
\newcommand*\@HwM@leftpforktail {\mathrel\in}
\newlength\@HwM@arrowfill@skip
\newcommand*\@HwM@auto@font@selector[2]{%
  \def\@tempa{#1}%
  \edef\@tempb{%
    \ifx\scriptscriptstyle #2%
      \scriptscriptfont
    \else \ifx\scriptstyle #2%
      \scriptfont
    \else
      \textfont
    \fi\fi
  }%
  \expandafter \@tempa \expandafter #2\@tempb
}
\newcommand*\@HwM@extended@arrowfill@[2]{%
  \@HwM@auto@font@selector
        {\@HwM@stylefont@arrowfill{#1}{#2}}%
}
\newcommand*\@HwM@stylefont@arrowfill[4]{%
  $\m@th
    \thickmuskip 0mu%
    \medmuskip  \thickmuskip
    \thinmuskip \thickmuskip
    \setlength\@HwM@arrowfill@skip
        {#2\fontdimen 6 #4\tw@ \@plus \@ne fill}%
    #3%
    #1#3#4%
  $%
}
\newcommand*\@HwM@enriched@arrowfill@[5]{%
  \@HwM@extended@arrowfill@
        {\HwM@arrowfill@cleaders{#1}{#2}{#3}{#4}{#5}}%
}
\newcommand*\HwM@arrowfill@cleaders[7]{%
  #4#6#7%
  \relax #1\mkern-7mu%
  \cleaders\hbox{$#6\mkern-2mu#2\mkern-2mu$}\hskip\@HwM@arrowfill@skip
  \mkern-7mu#3\relax
  #5#6#7%
}
\newcommand*\@HwM@rightbroomfill@Wwac@{%
  \@HwM@set@right@dir
  \@HwM@enriched@arrowfill@ \@HwM@rightbroomtail\relbar\relbar
        \@gobbletwo
        \@HwM@right@add@witch@cat
        \@ne
}
\newcommand*\@HwM@rightpitchfill@Wwac@{%
  \@HwM@set@right@dir
  \@HwM@enriched@arrowfill@ \@HwM@rightpforktail\relbar\relbar
        \@gobbletwo
        \@HwM@right@add@witch@cat
        \@ne
}
\newcommand*\@HwM@right@add@witch@cat[2]{%
  \hskip -\glueexpr \@HwM@arrowfill@skip/\tw@ \relax
  \@HwM@Small@Witch@Wo@Broom #2%
  \if@HwM@cat@
    \hskip \glueexpr \@HwM@arrowfill@skip/4 \relax
    \@HwM@Small@Cat@On@Hori@Broom #2%
    \hskip \glueexpr \@HwM@arrowfill@skip/4 \relax
  \else
    \hskip \glueexpr \@HwM@arrowfill@skip/\tw@ \relax
  \fi
}
\newcommand*\@HwM@leftbroomfill@Wwac@{%
  \@HwM@set@left@dir
  \@HwM@enriched@arrowfill@ \relbar\relbar\@HwM@leftbroomtail
        \@HwM@left@add@witch@cat
        \@gobbletwo
        \@ne
}
\newcommand*\@HwM@leftpitchfill@Wwac@{%
  \@HwM@set@left@dir
  \@HwM@enriched@arrowfill@ \relbar\relbar\@HwM@leftpforktail
        \@HwM@left@add@witch@cat
        \@gobbletwo
        \@ne
}
\newcommand*\@HwM@left@add@witch@cat[2]{%
  \if@HwM@cat@
    \hskip \glueexpr \@HwM@arrowfill@skip/4 \relax
    \@HwM@Small@Cat@On@Hori@Broom #2%
    \hskip \glueexpr \@HwM@arrowfill@skip/4 \relax
  \else
    \hskip \glueexpr \@HwM@arrowfill@skip/\tw@ \relax
  \fi
  \@HwM@Small@Witch@Wo@Broom #2%
  \hskip -\glueexpr \@HwM@arrowfill@skip/\tw@ \relax
}
\newcommand*\@HwM@init@swish@dimens[1]{%
  \dimen4 \glueexpr \fontdimen 22 #1\tw@ *\tw@/\thr@@
  \dimen6 .\@HwM@if@bold@math{333333}{25}\@HwM@thickness@units@for #1%
  \dimen@ \dimen4
  \@HwM@calc@swish@thickness
}
\newcommand*\@HwM@calc@swish@thickness{%
  \dimen@ii -\dimen@
  \advance \dimen@ii \dimen6
}
\newcommand*\@HwM@swish@leaders{%
  \leaders \hrule \@height\dimen@ \@depth\dimen@ii \hskip
}
\newcommand*\@HwM@right@swish[3]{%
  % #1 := swishing subform. (e.g., "\mkern 1.5mu\relax \mathrightbat")
  % #2 := style selector (e.g., "\displaystyle")
  % #3 := font selector (e.g., "\textfont")
  \@HwM@init@swish@dimens #3%
  \hskip \glueexpr \@HwM@arrowfill@skip/4\relax
  \@HwM@swish@leaders \glueexpr \@HwM@arrowfill@skip/4\relax
  \hskip \glueexpr \@HwM@arrowfill@skip/8\relax
  \@HwM@swish@leaders \glueexpr \@HwM@arrowfill@skip*\thr@@/8\relax
  \hskip -\@HwM@arrowfill@skip
  \advance \dimen@ \dimen4
  \@HwM@calc@swish@thickness
  \@HwM@swish@leaders \glueexpr \@HwM@arrowfill@skip*\thr@@/4 \relax
  \hskip \glueexpr \@HwM@arrowfill@skip/8\relax
  \@HwM@swish@leaders
        \glueexpr \@HwM@arrowfill@skip/8+\dimen4 /\tw@ \relax
  \hskip -\glueexpr \@HwM@arrowfill@skip/\tw@ \relax
  \advance \dimen@ \dimen4
  \@HwM@calc@swish@thickness
  \@HwM@swish@leaders
        \glueexpr \@HwM@arrowfill@skip/\tw@ +\dimen4 /\tw@ \relax
  \kern -\dimen4
  #1%
}
\newcommand*\@HwM@left@swish[3]{%
  % #1 := swishing subformula (e.g., "\mathleftbat \mkern 1.5mu\relax")
  % #2 := style selector (e.g., "\displaystyle")
  % #3 := font selector (e.g., "\textfont")
  #1%
  \@HwM@init@swish@dimens #3%
  \@HwM@swish@leaders \glueexpr \@HwM@arrowfill@skip*\thr@@/8\relax
  \hskip \glueexpr \@HwM@arrowfill@skip/8\relax
  \@HwM@swish@leaders \glueexpr \@HwM@arrowfill@skip/4\relax
  \hskip -\glueexpr \@HwM@arrowfill@skip*\thr@@/4+\dimen4 /\tw@ \relax
  \advance \dimen@ \dimen4
  \@HwM@calc@swish@thickness
  \@HwM@swish@leaders
        \glueexpr \@HwM@arrowfill@skip/8+\dimen4 /\tw@\relax
  \hskip \glueexpr \@HwM@arrowfill@skip/8\relax
  \@HwM@swish@leaders \glueexpr \@HwM@arrowfill@skip*\thr@@/4\relax
  \hskip -\glueexpr \@HwM@arrowfill@skip +\dimen4 \relax
  \advance \dimen@ \dimen4
  \@HwM@calc@swish@thickness
  \@HwM@swish@leaders
        \glueexpr \@HwM@arrowfill@skip/\tw@ +\dimen4 /\tw@ \relax
  \hskip \glueexpr \@HwM@arrowfill@skip/\tw@ +\dimen4 /\tw@ \relax
}
\newcommand*\@HwM@rightghostfill@{%
  \@HwM@extended@arrowfill@ {\@HwM@right@swish \mathrightghost}{.5}%
}
\newcommand*\@HwM@leftghostfill@{%
  \@HwM@extended@arrowfill@ {\@HwM@left@swish \mathleftghost}{.5}%
}
\newcommand*\@HwM@rightbatfill@{%
  \@HwM@extended@arrowfill@
        {\@HwM@right@swish{\mkern 1.5mu\relax \mathrightbat}}{.5}%
}
\newcommand*\@HwM@leftbatfill@{%
  \@HwM@extended@arrowfill@
        {\@HwM@left@swish{\mathleftbat \mkern 1.5mu\relax}}{.5}%
}

\newcommand*\@HwM@rightbroomfill@{%
  \arrowfill@ \@HwM@rightbroomtail\relbar\relbar
}
\newcommand*\@HwM@leftbroomfill@{%
  \arrowfill@ \relbar\relbar\@HwM@leftbroomtail
}
\newcommand*\@HwM@rightpitchfill@{%
  \arrowfill@ \@HwM@rightpforktail\relbar\relbar
}
\newcommand*\@HwM@leftpitchfill@{%
  \arrowfill@ \relbar\relbar\@HwM@leftpforktail
}

\newcommand*\@HwM@dblstyle@mathpalette[2]{%
  % Works like "\mathpalette", but macro passed in #1 must take
  % (at least) three arguments, of which the first _two_ are
  % style selections.
  \mathchoice
    {#1\displaystyle      \scriptstyle       {#2}}%
    {#1\textstyle         \scriptstyle       {#2}}%
    {#1\scriptstyle       \scriptscriptstyle {#2}}%
    {#1\scriptscriptstyle \scriptscriptstyle {#2}}%
}
\newcommand*\@HwM@variable@mathpalette[2]{%
  \mathchoice
      {#1}%
      {#2\textstyle         \textfont        }%
      {#2\scriptstyle       \scriptfont      }%
      {#2\scriptscriptstyle \scriptscriptfont}%
}
\newcommand*\@HwM@constant@mathpalette[1]{%
  \mathchoice
      {#1\displaystyle      \textfont        }%
      {#1\textstyle         \textfont        }%
      {#1\scriptstyle       \scriptfont      }%
      {#1\scriptscriptstyle \scriptscriptfont}%
}

\newcommand*\@HwM@general@large@operator[2]{%
  \mathop{%
    \@HwM@variable@mathpalette{#1}{#2}%
  }\slimits@
}
\newcommand*\@HwM@general@inner@symbol[2]{%
  \mathinner{%
    \@HwM@variable@mathpalette{#1}{#2}%
  }%
}
\newcommand*\@HwM@general@binary@operation[1]{%
  \mathbin{%
    \@HwM@constant@mathpalette{#1}%
  }%
}
\newcommand*\@HwM@general@ordinary@symbol[1]{%
  \mathord{%
    \@HwM@constant@mathpalette{#1}%
  }%
}
\newcommand*\@HwM@ifstar@cat[1]{%
    \@ifstar
        {\@HwM@cat@true  #1}%
        {\@HwM@cat@false #1}%
}

\newcommand*\mathwitch{%
  \DOTSB
  \@HwM@set@right@dir
  \@HwM@ifstar@cat{\@HwM@mathwitch lr}%
}
\newcommand*\reversemathwitch{%
  \DOTSB
  \@HwM@set@left@dir
  \@HwM@ifstar@cat{\@HwM@mathwitch rl}%
}
\newcommand*\@HwM@mathwitch[2]{%
  \@HwM@general@large@operator
      {\@HwM@Large@Witch #1#2}%
      \@HwM@Small@Witch
}

\newcommand*\pumpkin{%
  \DOTSB
  \@HwM@general@binary@operation \@HwM@Binop@Pumpkin
}
\newcommand*\bigpumpkin{%
  \DOTSB
  \@HwM@general@large@operator \@HwM@Large@Pumpkin \@HwM@Small@Pumpkin
}
\@ifdefinable\greatpumpkin{\let\greatpumpkin=\bigpumpkin}

\newcommand*\skull{%
  \DOTSB
  \@HwM@general@binary@operation \@HwM@Binop@Skull
}
\newcommand*\bigskull{%
  \DOTSB
  \@HwM@general@large@operator \@HwM@Large@Skull \@HwM@Small@Skull
}

\newcommand*\mathcloud       {\@HwM@set@right@dir \@HwM@mathcloud}
\newcommand*\reversemathcloud{\@HwM@set@left@dir  \@HwM@mathcloud}
\newcommand*\@HwM@mathcloud{%
  \@HwM@general@inner@symbol \@HwM@Large@Cloud \@HwM@Small@Cloud
}

\newcommand*\mathghost{%
  \@HwM@general@ordinary@symbol \@HwM@Symmetric@Ghost
}
\newcommand*\mathrightghost{\@HwM@set@right@dir \@HwM@mathghost}
\newcommand*\mathleftghost {\@HwM@set@left@dir  \@HwM@mathghost}
\newcommand*\@HwM@mathghost{%
  \@HwM@general@ordinary@symbol \@HwM@Asymmetric@Ghost
}

\newcommand*\mathbat{%
  \@HwM@general@ordinary@symbol \@HwM@Symmetric@Bat
}
\newcommand*\mathrightbat{\@HwM@set@right@dir \@HwM@mathbat}
\newcommand*\mathleftbat {\@HwM@set@left@dir  \@HwM@mathbat}
\newcommand*\@HwM@mathbat{%
  \@HwM@general@ordinary@symbol \@HwM@Asymmetric@Bat
}

\newcommand*\@HwM@dblstyle@overarrow@[4]{%
  % #1 := stretchable covering arrow
  % #2 := base style
  % #3 := style for covering arrow
  % #4 := base symbol
  \vbox{\ialign{##\crcr
    #1#3\crcr
    \noalign{\nointerlineskip}%
    $\m@th\hfil #2#4\hfil$\crcr
  }}%
}
\newcommand*\@HwM@dblstyle@underarrow@[4]{%
  % #1 := stretchable underlying arrow
  % #2 := base style
  % #3 := style for underlying arrow
  % #4 := base symbol
  \vtop{\ialign{##\crcr
    $\m@th\hfil #2#4\hfil$\crcr
    \noalign{\nointerlineskip \kern\ex@}%
    #1#3\crcr
  }}%
}
\newcommand*\@HwM@general@ou@w@cat[1]{%
  \@HwM@ifstar@cat{\@HwM@dblstyle@mathpalette{#1}}%
}
\newcommand*\overrightwitchonbroom{%
  \@HwM@general@ou@w@cat
    {\@HwM@dblstyle@overarrow@ \@HwM@rightbroomfill@Wwac@}%
}
\newcommand*\overleftwitchonbroom{%
  \@HwM@general@ou@w@cat
    {\@HwM@dblstyle@overarrow@ \@HwM@leftbroomfill@Wwac@}%
}
\newcommand*\overrightwitchonpitchfork{%
  \@HwM@general@ou@w@cat
    {\@HwM@dblstyle@overarrow@ \@HwM@rightpitchfill@Wwac@}%
}
\newcommand*\overleftwitchonpitchfork{%
  \@HwM@general@ou@w@cat
    {\@HwM@dblstyle@overarrow@ \@HwM@leftpitchfill@Wwac@}%
}
\newcommand*\overrightswishingghost{%
  \@HwM@dblstyle@mathpalette
    {\@HwM@dblstyle@overarrow@ \@HwM@rightghostfill@}%
}
\newcommand*\overleftswishingghost{%
  \@HwM@dblstyle@mathpalette
    {\@HwM@dblstyle@overarrow@ \@HwM@leftghostfill@}%
}
\newcommand*\overrightflutteringbat{%
  \@HwM@dblstyle@mathpalette
    {\@HwM@dblstyle@overarrow@ \@HwM@rightbatfill@}%
}
\newcommand*\overleftflutteringbat{%
  \@HwM@dblstyle@mathpalette
    {\@HwM@dblstyle@overarrow@ \@HwM@leftbatfill@}%
}
\newcommand*\underrightwitchonbroom{%
  \@HwM@general@ou@w@cat
    {\@HwM@dblstyle@underarrow@ \@HwM@rightbroomfill@Wwac@}%
}
\newcommand*\underleftwitchonbroom{%
  \@HwM@general@ou@w@cat
    {\@HwM@dblstyle@underarrow@ \@HwM@leftbroomfill@Wwac@}%
}
\newcommand*\underrightwitchonpitchfork{%
  \@HwM@general@ou@w@cat
    {\@HwM@dblstyle@underarrow@ \@HwM@rightpitchfill@Wwac@}%
}
\newcommand*\underleftwitchonpitchfork{%
  \@HwM@general@ou@w@cat
    {\@HwM@dblstyle@underarrow@ \@HwM@leftpitchfill@Wwac@}%
}
\newcommand*\underrightswishingghost{%
  \@HwM@dblstyle@mathpalette
    {\@HwM@dblstyle@underarrow@ \@HwM@rightghostfill@}%
}
\newcommand*\underleftswishingghost{%
  \@HwM@dblstyle@mathpalette
    {\@HwM@dblstyle@underarrow@ \@HwM@leftghostfill@}%
}
\newcommand*\underrightflutteringbat{%
  \@HwM@dblstyle@mathpalette
    {\@HwM@dblstyle@underarrow@ \@HwM@rightbatfill@}%
}
\newcommand*\underleftflutteringbat{%
  \@HwM@dblstyle@mathpalette
    {\@HwM@dblstyle@underarrow@ \@HwM@leftbatfill@}%
}
\newcommand*\overrightbroom{%
  \mathpalette{\overarrow@ \@HwM@rightbroomfill@}%
}
\newcommand*\overleftbroom{%
  \mathpalette{\overarrow@ \@HwM@leftbroomfill@}%
}
\newcommand*\overrightpitchfork{%
  \mathpalette{\overarrow@ \@HwM@rightpitchfill@}%
}
\newcommand*\overleftpitchfork{%
  \mathpalette{\overarrow@ \@HwM@leftpitchfill@}%
}
\newcommand*\underrightbroom{%
  \mathpalette{\underarrow@ \@HwM@rightbroomfill@}%
}
\newcommand*\underleftbroom{%
  \mathpalette{\underarrow@ \@HwM@leftbroomfill@}%
}
\newcommand*\underrightpitchfork{%
  \mathpalette{\underarrow@ \@HwM@rightpitchfill@}%
}
\newcommand*\underleftpitchfork{%
  \mathpalette{\underarrow@ \@HwM@leftpitchfill@}%
}
\newcommand*\overscriptrightbroom{%
  \@HwM@dblstyle@mathpalette
    {\@HwM@dblstyle@overarrow@ \@HwM@rightbroomfill@}%
}
\newcommand*\overscriptleftbroom{%
  \@HwM@dblstyle@mathpalette
    {\@HwM@dblstyle@overarrow@ \@HwM@leftbroomfill@}%
}
\newcommand*\overscriptrightpitchfork{%
  \@HwM@dblstyle@mathpalette
    {\@HwM@dblstyle@overarrow@ \@HwM@rightpitchfill@}%
}
\newcommand*\overscriptleftpitchfork{%
  \@HwM@dblstyle@mathpalette
    {\@HwM@dblstyle@overarrow@ \@HwM@leftpitchfill@}%
}
\newcommand*\underscriptrightbroom{%
  \@HwM@dblstyle@mathpalette
    {\@HwM@dblstyle@underarrow@ \@HwM@rightbroomfill@}%
}
\newcommand*\underscriptleftbroom{%
  \@HwM@dblstyle@mathpalette
    {\@HwM@dblstyle@underarrow@ \@HwM@leftbroomfill@}%
}
\newcommand*\underscriptrightpitchfork{%
  \@HwM@dblstyle@mathpalette
    {\@HwM@dblstyle@underarrow@ \@HwM@rightpitchfill@}%
}
\newcommand*\underscriptleftpitchfork{%
  \@HwM@dblstyle@mathpalette
    {\@HwM@dblstyle@underarrow@ \@HwM@leftpitchfill@}%
}
\newcommand*\overscriptrightarrow{%
  \@HwM@dblstyle@mathpalette
    {\@HwM@dblstyle@overarrow@ \rightarrowfill@}%
}
\newcommand*\overscriptleftarrow{%
  \@HwM@dblstyle@mathpalette
    {\@HwM@dblstyle@overarrow@ \leftarrowfill@}%
}
\newcommand*\overscriptleftrightarrow{%
  \@HwM@dblstyle@mathpalette
    {\@HwM@dblstyle@overarrow@ \leftrightarrowfill@}%
}
\newcommand*\underscriptrightarrow{%
  \@HwM@dblstyle@mathpalette
    {\@HwM@dblstyle@underarrow@ \rightarrowfill@}%
}
\newcommand*\underscriptleftarrow{%
  \@HwM@dblstyle@mathpalette
    {\@HwM@dblstyle@underarrow@ \leftarrowfill@}%
}
\newcommand*\underscriptleftrightarrow{%
  \@HwM@dblstyle@mathpalette
    {\@HwM@dblstyle@underarrow@ \leftrightarrowfill@}%
}

\newcommand*\@HwM@make@arrowfill@like[3]{%
  % #1 := base symbol, which expects as its own arguments
  %         - #1, a style selector (e.g., "\scriptstyle")
  %         - #2, a font selector (e.g., "\scriptfont")
  % #2 := centering method, either "\hfil" or "\hidewidth"
  % #3 := style selector (e.g., "\scriptstyle")
  #2%
  \@HwM@auto@font@selector{#1}#3% braces around #1 are for robustness
  #2%
}
\newcommand*\@HwM@over@under@bat[2]{%
  % #1 := "\@HwM@dblstyle@overarrow@" | "\@HwM@dblstyle@underarrow@"
  % #2 := "\hfil" | "\hidewidth"
  \@HwM@dblstyle@mathpalette{%
    #1{%
      \@HwM@make@arrowfill@like \@HwM@Symmetric@Bat #2%
    }%
  }%
}
\newcommand*\overbat{%
  \@ifstar{%
    \@HwM@over@under@bat \@HwM@dblstyle@overarrow@ \hfil
  }{%
    \@HwM@over@under@bat \@HwM@dblstyle@overarrow@ \hidewidth
  }%
}
\newcommand*\underbat{%
  \@ifstar{%
    \@HwM@over@under@bat \@HwM@dblstyle@underarrow@ \hfil
  }{%
    \@HwM@over@under@bat \@HwM@dblstyle@underarrow@ \hidewidth
  }%
}

\newcommand*\@HwM@ext@arrow@w@cat[5]{%
  \def\@HwM@tempa{\ext@arrow {#1}{#2}{#3}{#4}{#5}}%
  \@HwM@ifstar@cat{\@HwM@ext@arrow@w@cat@x}%
}
\newcommand*\@HwM@ext@arrow@w@cat@x[2][]{%
  \@HwM@tempa {#1}{#2}%
}
\newcommand*\xrightwitchonbroom{%
  \@HwM@ext@arrow@w@cat 9395\@HwM@rightbroomfill@Wwac@
}
\newcommand*\xleftwitchonbroom{%
  \@HwM@ext@arrow@w@cat 3959\@HwM@leftbroomfill@Wwac@
}
\newcommand*\xrightwitchonpitchfork{%
  \@HwM@ext@arrow@w@cat 9395\@HwM@rightpitchfill@Wwac@
}
\newcommand*\xleftwitchonpitchfork{%
  \@HwM@ext@arrow@w@cat 3959\@HwM@leftpitchfill@Wwac@
}
\newcommand*\xrightswishingghost[2][]{%
  \ext@arrow 3{12}5{15}\@HwM@rightghostfill@{#1}{#2}%
}
\newcommand*\xleftswishingghost[2][]{%
  \ext@arrow {12}3{15}5\@HwM@leftghostfill@{#1}{#2}%
}
\newcommand*\xrightflutteringbat[2][]{%
  \ext@arrow 0055\@HwM@rightbatfill@{#1}{#2}%
}
\newcommand*\xleftflutteringbat[2][]{%
  \ext@arrow 0055\@HwM@leftbatfill@{#1}{#2}%
}
\newcommand*\xrightbroom{%
  \@HwM@ext@arrow@w@cat 9395\@HwM@rightbroomfill@
}
\newcommand*\xleftbroom{%
  \@HwM@ext@arrow@w@cat 3959\@HwM@leftbroomfill@
}
\newcommand*\xrightpitchfork{%
  \@HwM@ext@arrow@w@cat 9395\@HwM@rightpitchfill@
}
\newcommand*\xleftpitchfork{%
  \@HwM@ext@arrow@w@cat 3959\@HwM@leftpitchfill@
}

\newcommand*\@HwM@tighter@joinrel{%
  \mathrel{\mkern-6.5mu}%
}
\newcommand*\rightbroom{%
  \DOTSB
  \protect\@HwM@rightbroomtail
  \protect\@HwM@tighter@joinrel
  \protect\relbar
  \protect\@HwM@tighter@joinrel
  \protect\relbar
}
\newcommand*\leftbroom{%
  \DOTSB
  \protect\relbar
  \protect\@HwM@tighter@joinrel
  \protect\relbar
  \protect\@HwM@tighter@joinrel
  \protect\@HwM@leftbroomtail
}
\newcommand*\hmrightpitchfork{%
  \DOTSB
  \protect\@HwM@rightpforktail
  \protect\@HwM@tighter@joinrel
  \protect\relbar
  \protect\@HwM@tighter@joinrel
  \protect\relbar
}
\newcommand*\hmleftpitchfork{%
  \DOTSB
  \protect\relbar
  \protect\@HwM@tighter@joinrel
  \protect\relbar
  \protect\@HwM@tighter@joinrel
  \protect\@HwM@leftpforktail
}

\let \do = \noexpand
\endinput
%%
%% End of file `halloweenmath.sty'.
