/[suikacvs]/markup/html/whatpm/What/HTML.pm

Diff of /markup/html/whatpm/What/HTML.pm

Parent Directory | Revision Log | View Patch Patch

-revision 1.5 by wakaba,
Mon Apr 30 11:45:24 2007 UTC
+revision 1.6 by wakaba,
Mon Apr 30 12:06:12 2007 UTC
 Line 18 
 my $permitted_slash_tag_name = {
    input => 1,
  };
+ my $entity_char = {
+   AElig => "\x{00C6}",
+   Aacute => "\x{00C1}",
+   Acirc => "\x{00C2}",
+   Agrave => "\x{00C0}",
+   Alpha => "\x{0391}",
+   Aring => "\x{00C5}",
+   Atilde => "\x{00C3}",
+   Auml => "\x{00C4}",
+   Beta => "\x{0392}",
+   Ccedil => "\x{00C7}",
+   Chi => "\x{03A7}",
+   Dagger => "\x{2021}",
+   Delta => "\x{0394}",
+   ETH => "\x{00D0}",
+   Eacute => "\x{00C9}",
+   Ecirc => "\x{00CA}",
+   Egrave => "\x{00C8}",
+   Epsilon => "\x{0395}",
+   Eta => "\x{0397}",
+   Euml => "\x{00CB}",
+   Gamma => "\x{0393}",
+   Iacute => "\x{00CD}",
+   Icirc => "\x{00CE}",
+   Igrave => "\x{00CC}",
+   Iota => "\x{0399}",
+   Iuml => "\x{00CF}",
+   Kappa => "\x{039A}",
+   Lambda => "\x{039B}",
+   Mu => "\x{039C}",
+   Ntilde => "\x{00D1}",
+   Nu => "\x{039D}",
+   OElig => "\x{0152}",
+   Oacute => "\x{00D3}",
+   Ocirc => "\x{00D4}",
+   Ograve => "\x{00D2}",
+   Omega => "\x{03A9}",
+   Omicron => "\x{039F}",
+   Oslash => "\x{00D8}",
+   Otilde => "\x{00D5}",
+   Ouml => "\x{00D6}",
+   Phi => "\x{03A6}",
+   Pi => "\x{03A0}",
+   Prime => "\x{2033}",
+   Psi => "\x{03A8}",
+   Rho => "\x{03A1}",
+   Scaron => "\x{0160}",
+   Sigma => "\x{03A3}",
+   THORN => "\x{00DE}",
+   Tau => "\x{03A4}",
+   Theta => "\x{0398}",
+   Uacute => "\x{00DA}",
+   Ucirc => "\x{00DB}",
+   Ugrave => "\x{00D9}",
+   Upsilon => "\x{03A5}",
+   Uuml => "\x{00DC}",
+   Xi => "\x{039E}",
+   Yacute => "\x{00DD}",
+   Yuml => "\x{0178}",
+   Zeta => "\x{0396}",
+   aacute => "\x{00E1}",
+   acirc => "\x{00E2}",
+   acute => "\x{00B4}",
+   aelig => "\x{00E6}",
+   agrave => "\x{00E0}",
+   alefsym => "\x{2135}",
+   alpha => "\x{03B1}",
+   amp => "\x{0026}",
+   AMP => "\x{0026}",
+   and => "\x{2227}",
+   ang => "\x{2220}",
+   apos => "\x{0027}",
+   aring => "\x{00E5}",
+   asymp => "\x{2248}",
+   atilde => "\x{00E3}",
+   auml => "\x{00E4}",
+   bdquo => "\x{201E}",
+   beta => "\x{03B2}",
+   brvbar => "\x{00A6}",
+   bull => "\x{2022}",
+   cap => "\x{2229}",
+   ccedil => "\x{00E7}",
+   cedil => "\x{00B8}",
+   cent => "\x{00A2}",
+   chi => "\x{03C7}",
+   circ => "\x{02C6}",
+   clubs => "\x{2663}",
+   cong => "\x{2245}",
+   copy => "\x{00A9}",
+   COPY => "\x{00A9}",
+   crarr => "\x{21B5}",
+   cup => "\x{222A}",
+   curren => "\x{00A4}",
+   dArr => "\x{21D3}",
+   dagger => "\x{2020}",
+   darr => "\x{2193}",
+   deg => "\x{00B0}",
+   delta => "\x{03B4}",
+   diams => "\x{2666}",
+   divide => "\x{00F7}",
+   eacute => "\x{00E9}",
+   ecirc => "\x{00EA}",
+   egrave => "\x{00E8}",
+   empty => "\x{2205}",
+   emsp => "\x{2003}",
+   ensp => "\x{2002}",
+   epsilon => "\x{03B5}",
+   equiv => "\x{2261}",
+   eta => "\x{03B7}",
+   eth => "\x{00F0}",
+   euml => "\x{00EB}",
+   euro => "\x{20AC}",
+   exist => "\x{2203}",
+   fnof => "\x{0192}",
+   forall => "\x{2200}",
+   frac12 => "\x{00BD}",
+   frac14 => "\x{00BC}",
+   frac34 => "\x{00BE}",
+   frasl => "\x{2044}",
+   gamma => "\x{03B3}",
+   ge => "\x{2265}",
+   gt => "\x{003E}",
+   GT => "\x{003E}",
+   hArr => "\x{21D4}",
+   harr => "\x{2194}",
+   hearts => "\x{2665}",
+   hellip => "\x{2026}",
+   iacute => "\x{00ED}",
+   icirc => "\x{00EE}",
+   iexcl => "\x{00A1}",
+   igrave => "\x{00EC}",
+   image => "\x{2111}",
+   infin => "\x{221E}",
+   int => "\x{222B}",
+   iota => "\x{03B9}",
+   iquest => "\x{00BF}",
+   isin => "\x{2208}",
+   iuml => "\x{00EF}",
+   kappa => "\x{03BA}",
+   lArr => "\x{21D0}",
+   lambda => "\x{03BB}",
+   lang => "\x{2329}",
+   laquo => "\x{00AB}",
+   larr => "\x{2190}",
+   lceil => "\x{2308}",
+   ldquo => "\x{201C}",
+   le => "\x{2264}",
+   lfloor => "\x{230A}",
+   lowast => "\x{2217}",
+   loz => "\x{25CA}",
+   lrm => "\x{200E}",
+   lsaquo => "\x{2039}",
+   lsquo => "\x{2018}",
+   lt => "\x{003C}",
+   LT => "\x{003C}",
+   macr => "\x{00AF}",
+   mdash => "\x{2014}",
+   micro => "\x{00B5}",
+   middot => "\x{00B7}",
+   minus => "\x{2212}",
+   mu => "\x{03BC}",
+   nabla => "\x{2207}",
+   nbsp => "\x{00A0}",
+   ndash => "\x{2013}",
+   ne => "\x{2260}",
+   ni => "\x{220B}",
+   not => "\x{00AC}",
+   notin => "\x{2209}",
+   nsub => "\x{2284}",
+   ntilde => "\x{00F1}",
+   nu => "\x{03BD}",
+   oacute => "\x{00F3}",
+   ocirc => "\x{00F4}",
+   oelig => "\x{0153}",
+   ograve => "\x{00F2}",
+   oline => "\x{203E}",
+   omega => "\x{03C9}",
+   omicron => "\x{03BF}",
+   oplus => "\x{2295}",
+   or => "\x{2228}",
+   ordf => "\x{00AA}",
+   ordm => "\x{00BA}",
+   oslash => "\x{00F8}",
+   otilde => "\x{00F5}",
+   otimes => "\x{2297}",
+   ouml => "\x{00F6}",
+   para => "\x{00B6}",
+   part => "\x{2202}",
+   permil => "\x{2030}",
+   perp => "\x{22A5}",
+   phi => "\x{03C6}",
+   pi => "\x{03C0}",
+   piv => "\x{03D6}",
+   plusmn => "\x{00B1}",
+   pound => "\x{00A3}",
+   prime => "\x{2032}",
+   prod => "\x{220F}",
+   prop => "\x{221D}",
+   psi => "\x{03C8}",
+   quot => "\x{0022}",
+   QUOT => "\x{0022}",
+   rArr => "\x{21D2}",
+   radic => "\x{221A}",
+   rang => "\x{232A}",
+   raquo => "\x{00BB}",
+   rarr => "\x{2192}",
+   rceil => "\x{2309}",
+   rdquo => "\x{201D}",
+   real => "\x{211C}",
+   reg => "\x{00AE}",
+   REG => "\x{00AE}",
+   rfloor => "\x{230B}",
+   rho => "\x{03C1}",
+   rlm => "\x{200F}",
+   rsaquo => "\x{203A}",
+   rsquo => "\x{2019}",
+   sbquo => "\x{201A}",
+   scaron => "\x{0161}",
+   sdot => "\x{22C5}",
+   sect => "\x{00A7}",
+   shy => "\x{00AD}",
+   sigma => "\x{03C3}",
+   sigmaf => "\x{03C2}",
+   sim => "\x{223C}",
+   spades => "\x{2660}",
+   sub => "\x{2282}",
+   sube => "\x{2286}",
+   sum => "\x{2211}",
+   sup => "\x{2283}",
+   sup1 => "\x{00B9}",
+   sup2 => "\x{00B2}",
+   sup3 => "\x{00B3}",
+   supe => "\x{2287}",
+   szlig => "\x{00DF}",
+   tau => "\x{03C4}",
+   there4 => "\x{2234}",
+   theta => "\x{03B8}",
+   thetasym => "\x{03D1}",
+   thinsp => "\x{2009}",
+   thorn => "\x{00FE}",
+   tilde => "\x{02DC}",
+   times => "\x{00D7}",
+   trade => "\x{2122}",
+   uArr => "\x{21D1}",
+   uacute => "\x{00FA}",
+   uarr => "\x{2191}",
+   ucirc => "\x{00FB}",
+   ugrave => "\x{00F9}",
+   uml => "\x{00A8}",
+   upsih => "\x{03D2}",
+   upsilon => "\x{03C5}",
+   uuml => "\x{00FC}",
+   weierp => "\x{2118}",
+   xi => "\x{03BE}",
+   yacute => "\x{00FD}",
+   yen => "\x{00A5}",
+   yuml => "\x{00FF}",
+   zeta => "\x{03B6}",
+   zwj => "\x{200D}",
+   zwnj => "\x{200C}",
+ };
  my $special_category = {
    address => 1, area => 1, base => 1, basefont => 1, bgsound => 1,
    blockquote => 1, body => 1, br => 1, center => 1, col => 1, colgroup => 1,
-Line 1634 
 sub _get_next_token ($) {
+Line 1896 
 sub _get_next_token ($) {
  sub _tokenize_attempt_to_consume_an_entity ($) {
    my $self = shift;
-   my $r;
    if ($self->{next_input_character} == 0x0023) { # #
-Line 1680 
 sub _tokenize_attempt_to_consume_an_enti
+Line 1941 
 sub _tokenize_attempt_to_consume_an_enti
            $self->{parse_error}->();
            $self->{next_input_character} = 0x0023; # #
            unshift @{$self->{char}},  ($x_char);
-           last X; ## nothing is returned
+           return undef;
          } elsif ($self->{next_input_character} == 0x003B) { # ;
        if (@{$self->{char}}) {
-Line 1699 
 sub _tokenize_attempt_to_consume_an_enti
+Line 1960 
 sub _tokenize_attempt_to_consume_an_enti
            ## ISSUE: Why this is not an error?
          }
-         $r = {type => 'character', data => chr $num};
+         return {type => 'character', data => chr $num};
        } # X
      } elsif (0x0030 <= $self->{next_input_character} and
               $self->{next_input_character} <= 0x0039) { # 0..9
-Line 1744 
 sub _tokenize_attempt_to_consume_an_enti
+Line 2005 
 sub _tokenize_attempt_to_consume_an_enti
          ## ISSUE: Why this is not an error?
        }
-       $r = {type => 'character', data => chr $code};
+       return {type => 'character', data => chr $code};
      } else {
        $self->{parse_error}->();
        unshift @{$self->{char}},  ($self->{next_input_character});
        $self->{next_input_character} = 0x0023; # #
+       return undef;
      }
-       } elsif ($self->{next_input_character} == 65) { # A
+   } elsif ((0x0041 <= $self->{next_input_character} and
+             $self->{next_input_character} <= 0x005A) or
-       if (@{$self->{char}}) {
+            (0x0061 <= $self->{next_input_character} and
-         $self->{next_input_character} = shift @{$self->{char}};
+             $self->{next_input_character} <= 0x007A)) {
-       } else {
+     my $entity_name = chr $self->{next_input_character};
-         $self->{set_next_input_character}->($self);
-       }
-       if ($self->{next_input_character} == 69) { # E
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 103) { # g
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{00C6}>}; # AElig
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (69, 108, 105, $self->{next_input_character});
-               $self->{next_input_character} = 65;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (69, 108, $self->{next_input_character});
-             $self->{next_input_character} = 65;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (69, $self->{next_input_character});
-           $self->{next_input_character} = 65;
-         }
-       } elsif ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 99) { # c
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 117) { # u
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 116) { # t
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{00C1}>}; # Aacute
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (97, 99, 117, 116, $self->{next_input_character});
-                 $self->{next_input_character} = 65;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (97, 99, 117, $self->{next_input_character});
-               $self->{next_input_character} = 65;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (97, 99, $self->{next_input_character});
-             $self->{next_input_character} = 65;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (97, $self->{next_input_character});
-           $self->{next_input_character} = 65;
-         }
-       } elsif ($self->{next_input_character} == 99) { # c
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 99) { # c
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{00C2}>}; # Acirc
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (99, 105, 114, $self->{next_input_character});
-               $self->{next_input_character} = 65;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (99, 105, $self->{next_input_character});
-             $self->{next_input_character} = 65;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (99, $self->{next_input_character});
-           $self->{next_input_character} = 65;
-         }
-       } elsif ($self->{next_input_character} == 103) { # g
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 118) { # v
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{00C0}>}; # Agrave
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (103, 114, 97, 118, $self->{next_input_character});
-                 $self->{next_input_character} = 65;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (103, 114, 97, $self->{next_input_character});
-               $self->{next_input_character} = 65;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (103, 114, $self->{next_input_character});
-             $self->{next_input_character} = 65;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (103, $self->{next_input_character});
-           $self->{next_input_character} = 65;
-         }
-       } elsif ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 112) { # p
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 104) { # h
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{0391}>}; # Alpha
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (108, 112, 104, $self->{next_input_character});
-               $self->{next_input_character} = 65;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (108, 112, $self->{next_input_character});
-             $self->{next_input_character} = 65;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (108, $self->{next_input_character});
-           $self->{next_input_character} = 65;
-         }
-       } elsif ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 110) { # n
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 103) { # g
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{00C5}>}; # Aring
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (114, 105, 110, $self->{next_input_character});
-               $self->{next_input_character} = 65;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (114, 105, $self->{next_input_character});
-             $self->{next_input_character} = 65;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (114, $self->{next_input_character});
-           $self->{next_input_character} = 65;
-         }
-       } elsif ($self->{next_input_character} == 116) { # t
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 100) { # d
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{00C3}>}; # Atilde
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (116, 105, 108, 100, $self->{next_input_character});
-                 $self->{next_input_character} = 65;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (116, 105, 108, $self->{next_input_character});
-               $self->{next_input_character} = 65;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (116, 105, $self->{next_input_character});
-             $self->{next_input_character} = 65;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (116, $self->{next_input_character});
-           $self->{next_input_character} = 65;
-         }
-       } elsif ($self->{next_input_character} == 117) { # u
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 109) { # m
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{00C4}>}; # Auml
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (117, 109, $self->{next_input_character});
-             $self->{next_input_character} = 65;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (117, $self->{next_input_character});
-           $self->{next_input_character} = 65;
-         }
-       } elsif ($self->{next_input_character} == 77) { # M
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 80) { # P
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           {
-             $r = {type => 'character', data => qq<\x{0026}>}; # AMP
-             if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             } else {
-               $self->{parse_error}->();
-               ## reconsume
-             }
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (77, $self->{next_input_character});
-           $self->{next_input_character} = 65;
-         }
-       } else {
-         $self->{parse_error}->();
-         unshift @{$self->{char}},  ($self->{next_input_character});
-         $self->{next_input_character} = 65;
-       }
-     } elsif ($self->{next_input_character} == 66) { # B
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-       if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 116) { # t
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{0392}>}; # Beta
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (101, 116, $self->{next_input_character});
-             $self->{next_input_character} = 66;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (101, $self->{next_input_character});
-           $self->{next_input_character} = 66;
-         }
-       } else {
-         $self->{parse_error}->();
-         unshift @{$self->{char}},  ($self->{next_input_character});
-         $self->{next_input_character} = 66;
-       }
-     } elsif ($self->{next_input_character} == 67) { # C
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-       if ($self->{next_input_character} == 99) { # c
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 100) { # d
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{00C7}>}; # Ccedil
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (99, 101, 100, 105, $self->{next_input_character});
-                 $self->{next_input_character} = 67;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (99, 101, 100, $self->{next_input_character});
-               $self->{next_input_character} = 67;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (99, 101, $self->{next_input_character});
-             $self->{next_input_character} = 67;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (99, $self->{next_input_character});
-           $self->{next_input_character} = 67;
-         }
-       } elsif ($self->{next_input_character} == 104) { # h
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           {
-             $r = {type => 'character', data => qq<\x{03A7}>}; # Chi
-             if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             } else {
-               $self->{parse_error}->();
-               ## reconsume
-             }
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (104, $self->{next_input_character});
-           $self->{next_input_character} = 67;
-         }
-       } elsif ($self->{next_input_character} == 79) { # O
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 80) { # P
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 89) { # Y
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{00A9}>}; # COPY
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (79, 80, $self->{next_input_character});
-             $self->{next_input_character} = 67;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (79, $self->{next_input_character});
-           $self->{next_input_character} = 67;
-         }
-       } else {
-         $self->{parse_error}->();
-         unshift @{$self->{char}},  ($self->{next_input_character});
-         $self->{next_input_character} = 67;
-       }
-     } elsif ($self->{next_input_character} == 68) { # D
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-       if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 103) { # g
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 103) { # g
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{2021}>}; # Dagger
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (97, 103, 103, 101, $self->{next_input_character});
-                 $self->{next_input_character} = 68;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (97, 103, 103, $self->{next_input_character});
-               $self->{next_input_character} = 68;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (97, 103, $self->{next_input_character});
-             $self->{next_input_character} = 68;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (97, $self->{next_input_character});
-           $self->{next_input_character} = 68;
-         }
-       } elsif ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 116) { # t
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{0394}>}; # Delta
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (101, 108, 116, $self->{next_input_character});
-               $self->{next_input_character} = 68;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (101, 108, $self->{next_input_character});
-             $self->{next_input_character} = 68;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (101, $self->{next_input_character});
-           $self->{next_input_character} = 68;
-         }
-       } else {
-         $self->{parse_error}->();
-         unshift @{$self->{char}},  ($self->{next_input_character});
-         $self->{next_input_character} = 68;
-       }
-     } elsif ($self->{next_input_character} == 69) { # E
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-       if ($self->{next_input_character} == 84) { # T
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 72) { # H
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           {
-             $r = {type => 'character', data => qq<\x{00D0}>}; # ETH
-             if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             } else {
-               $self->{parse_error}->();
-               ## reconsume
-             }
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (84, $self->{next_input_character});
-           $self->{next_input_character} = 69;
-         }
-       } elsif ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 99) { # c
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 117) { # u
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 116) { # t
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{00C9}>}; # Eacute
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (97, 99, 117, 116, $self->{next_input_character});
-                 $self->{next_input_character} = 69;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (97, 99, 117, $self->{next_input_character});
-               $self->{next_input_character} = 69;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (97, 99, $self->{next_input_character});
-             $self->{next_input_character} = 69;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (97, $self->{next_input_character});
-           $self->{next_input_character} = 69;
-         }
-       } elsif ($self->{next_input_character} == 99) { # c
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 99) { # c
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{00CA}>}; # Ecirc
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (99, 105, 114, $self->{next_input_character});
-               $self->{next_input_character} = 69;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (99, 105, $self->{next_input_character});
-             $self->{next_input_character} = 69;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (99, $self->{next_input_character});
-           $self->{next_input_character} = 69;
-         }
-       } elsif ($self->{next_input_character} == 103) { # g
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 118) { # v
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{00C8}>}; # Egrave
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (103, 114, 97, 118, $self->{next_input_character});
-                 $self->{next_input_character} = 69;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (103, 114, 97, $self->{next_input_character});
-               $self->{next_input_character} = 69;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (103, 114, $self->{next_input_character});
-             $self->{next_input_character} = 69;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (103, $self->{next_input_character});
-           $self->{next_input_character} = 69;
-         }
-       } elsif ($self->{next_input_character} == 112) { # p
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 115) { # s
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 111) { # o
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 if ($self->{next_input_character} == 110) { # n
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   {
-                     $r = {type => 'character', data => qq<\x{0395}>}; # Epsilon
-                     if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                     } else {
-                       $self->{parse_error}->();
-                       ## reconsume
-                     }
-                   }
-                 } else {
-                   $self->{parse_error}->();
-                   unshift @{$self->{char}},  (112, 115, 105, 108, 111, $self->{next_input_character});
-                   $self->{next_input_character} = 69;
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (112, 115, 105, 108, $self->{next_input_character});
-                 $self->{next_input_character} = 69;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (112, 115, 105, $self->{next_input_character});
-               $self->{next_input_character} = 69;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (112, 115, $self->{next_input_character});
-             $self->{next_input_character} = 69;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (112, $self->{next_input_character});
-           $self->{next_input_character} = 69;
-         }
-       } elsif ($self->{next_input_character} == 116) { # t
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           {
-             $r = {type => 'character', data => qq<\x{0397}>}; # Eta
-             if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             } else {
-               $self->{parse_error}->();
-               ## reconsume
-             }
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (116, $self->{next_input_character});
-           $self->{next_input_character} = 69;
-         }
-       } elsif ($self->{next_input_character} == 117) { # u
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 109) { # m
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{00CB}>}; # Euml
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (117, 109, $self->{next_input_character});
-             $self->{next_input_character} = 69;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (117, $self->{next_input_character});
-           $self->{next_input_character} = 69;
-         }
-       } else {
-         $self->{parse_error}->();
-         unshift @{$self->{char}},  ($self->{next_input_character});
-         $self->{next_input_character} = 69;
-       }
-     } elsif ($self->{next_input_character} == 71) { # G
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-       if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 109) { # m
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 109) { # m
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{0393}>}; # Gamma
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (97, 109, 109, $self->{next_input_character});
-               $self->{next_input_character} = 71;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (97, 109, $self->{next_input_character});
-             $self->{next_input_character} = 71;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (97, $self->{next_input_character});
-           $self->{next_input_character} = 71;
-         }
-       } elsif ($self->{next_input_character} == 84) { # T
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         {
-           $r = {type => 'character', data => qq<\x{003E}>}; # GT
-           if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           } else {
-             $self->{parse_error}->();
-             ## reconsume
-           }
-         }
-       } else {
-         $self->{parse_error}->();
-         unshift @{$self->{char}},  ($self->{next_input_character});
-         $self->{next_input_character} = 71;
-       }
-     } elsif ($self->{next_input_character} == 73) { # I
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-       if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 99) { # c
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 117) { # u
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 116) { # t
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{00CD}>}; # Iacute
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (97, 99, 117, 116, $self->{next_input_character});
-                 $self->{next_input_character} = 73;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (97, 99, 117, $self->{next_input_character});
-               $self->{next_input_character} = 73;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (97, 99, $self->{next_input_character});
-             $self->{next_input_character} = 73;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (97, $self->{next_input_character});
-           $self->{next_input_character} = 73;
-         }
-       } elsif ($self->{next_input_character} == 99) { # c
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 99) { # c
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{00CE}>}; # Icirc
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (99, 105, 114, $self->{next_input_character});
-               $self->{next_input_character} = 73;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (99, 105, $self->{next_input_character});
-             $self->{next_input_character} = 73;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (99, $self->{next_input_character});
-           $self->{next_input_character} = 73;
-         }
-       } elsif ($self->{next_input_character} == 103) { # g
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 118) { # v
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{00CC}>}; # Igrave
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (103, 114, 97, 118, $self->{next_input_character});
-                 $self->{next_input_character} = 73;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (103, 114, 97, $self->{next_input_character});
-               $self->{next_input_character} = 73;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (103, 114, $self->{next_input_character});
-             $self->{next_input_character} = 73;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (103, $self->{next_input_character});
-           $self->{next_input_character} = 73;
-         }
-       } elsif ($self->{next_input_character} == 111) { # o
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 116) { # t
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{0399}>}; # Iota
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (111, 116, $self->{next_input_character});
-             $self->{next_input_character} = 73;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (111, $self->{next_input_character});
-           $self->{next_input_character} = 73;
-         }
-       } elsif ($self->{next_input_character} == 117) { # u
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 109) { # m
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{00CF}>}; # Iuml
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (117, 109, $self->{next_input_character});
-             $self->{next_input_character} = 73;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (117, $self->{next_input_character});
-           $self->{next_input_character} = 73;
-         }
-       } else {
-         $self->{parse_error}->();
-         unshift @{$self->{char}},  ($self->{next_input_character});
-         $self->{next_input_character} = 73;
-       }
-     } elsif ($self->{next_input_character} == 75) { # K
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-       if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 112) { # p
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 112) { # p
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{039A}>}; # Kappa
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (97, 112, 112, $self->{next_input_character});
-               $self->{next_input_character} = 75;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (97, 112, $self->{next_input_character});
-             $self->{next_input_character} = 75;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (97, $self->{next_input_character});
-           $self->{next_input_character} = 75;
-         }
-       } else {
-         $self->{parse_error}->();
-         unshift @{$self->{char}},  ($self->{next_input_character});
-         $self->{next_input_character} = 75;
-       }
-     } elsif ($self->{next_input_character} == 76) { # L
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-       if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 109) { # m
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 98) { # b
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 100) { # d
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{039B}>}; # Lambda
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (97, 109, 98, 100, $self->{next_input_character});
-                 $self->{next_input_character} = 76;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (97, 109, 98, $self->{next_input_character});
-               $self->{next_input_character} = 76;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (97, 109, $self->{next_input_character});
-             $self->{next_input_character} = 76;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (97, $self->{next_input_character});
-           $self->{next_input_character} = 76;
-         }
-       } elsif ($self->{next_input_character} == 84) { # T
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         {
-           $r = {type => 'character', data => qq<\x{003C}>}; # LT
-           if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           } else {
-             $self->{parse_error}->();
-             ## reconsume
-           }
-         }
-       } else {
-         $self->{parse_error}->();
-         unshift @{$self->{char}},  ($self->{next_input_character});
-         $self->{next_input_character} = 76;
-       }
-     } elsif ($self->{next_input_character} == 77) { # M
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-       if ($self->{next_input_character} == 117) { # u
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         {
-           $r = {type => 'character', data => qq<\x{039C}>}; # Mu
-           if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           } else {
-             $self->{parse_error}->();
-             ## reconsume
-           }
-         }
-       } else {
-         $self->{parse_error}->();
-         unshift @{$self->{char}},  ($self->{next_input_character});
-         $self->{next_input_character} = 77;
-       }
-     } elsif ($self->{next_input_character} == 78) { # N
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-       if ($self->{next_input_character} == 116) { # t
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 100) { # d
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{00D1}>}; # Ntilde
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (116, 105, 108, 100, $self->{next_input_character});
-                 $self->{next_input_character} = 78;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (116, 105, 108, $self->{next_input_character});
-               $self->{next_input_character} = 78;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (116, 105, $self->{next_input_character});
-             $self->{next_input_character} = 78;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (116, $self->{next_input_character});
-           $self->{next_input_character} = 78;
-         }
-       } elsif ($self->{next_input_character} == 117) { # u
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         {
-           $r = {type => 'character', data => qq<\x{039D}>}; # Nu
-           if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           } else {
-             $self->{parse_error}->();
-             ## reconsume
-           }
-         }
-       } else {
-         $self->{parse_error}->();
-         unshift @{$self->{char}},  ($self->{next_input_character});
-         $self->{next_input_character} = 78;
-       }
-     } elsif ($self->{next_input_character} == 79) { # O
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-       if ($self->{next_input_character} == 69) { # E
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 103) { # g
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{0152}>}; # OElig
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (69, 108, 105, $self->{next_input_character});
-               $self->{next_input_character} = 79;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (69, 108, $self->{next_input_character});
-             $self->{next_input_character} = 79;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (69, $self->{next_input_character});
-           $self->{next_input_character} = 79;
-         }
-       } elsif ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 99) { # c
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 117) { # u
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 116) { # t
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{00D3}>}; # Oacute
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (97, 99, 117, 116, $self->{next_input_character});
-                 $self->{next_input_character} = 79;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (97, 99, 117, $self->{next_input_character});
-               $self->{next_input_character} = 79;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (97, 99, $self->{next_input_character});
-             $self->{next_input_character} = 79;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (97, $self->{next_input_character});
-           $self->{next_input_character} = 79;
-         }
-       } elsif ($self->{next_input_character} == 99) { # c
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 99) { # c
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{00D4}>}; # Ocirc
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (99, 105, 114, $self->{next_input_character});
-               $self->{next_input_character} = 79;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (99, 105, $self->{next_input_character});
-             $self->{next_input_character} = 79;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (99, $self->{next_input_character});
-           $self->{next_input_character} = 79;
-         }
-       } elsif ($self->{next_input_character} == 103) { # g
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 118) { # v
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{00D2}>}; # Ograve
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (103, 114, 97, 118, $self->{next_input_character});
-                 $self->{next_input_character} = 79;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (103, 114, 97, $self->{next_input_character});
-               $self->{next_input_character} = 79;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (103, 114, $self->{next_input_character});
-             $self->{next_input_character} = 79;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (103, $self->{next_input_character});
-           $self->{next_input_character} = 79;
-         }
-       } elsif ($self->{next_input_character} == 109) { # m
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 103) { # g
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{03A9}>}; # Omega
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (109, 101, 103, $self->{next_input_character});
-               $self->{next_input_character} = 79;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (109, 101, $self->{next_input_character});
-             $self->{next_input_character} = 79;
-           }
-         } elsif ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 99) { # c
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 111) { # o
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 if ($self->{next_input_character} == 110) { # n
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   {
-                     $r = {type => 'character', data => qq<\x{039F}>}; # Omicron
-                     if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                     } else {
-                       $self->{parse_error}->();
-                       ## reconsume
-                     }
-                   }
-                 } else {
-                   $self->{parse_error}->();
-                   unshift @{$self->{char}},  (109, 105, 99, 114, 111, $self->{next_input_character});
-                   $self->{next_input_character} = 79;
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (109, 105, 99, 114, $self->{next_input_character});
-                 $self->{next_input_character} = 79;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (109, 105, 99, $self->{next_input_character});
-               $self->{next_input_character} = 79;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (109, 105, $self->{next_input_character});
-             $self->{next_input_character} = 79;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (109, $self->{next_input_character});
-           $self->{next_input_character} = 79;
-         }
-       } elsif ($self->{next_input_character} == 115) { # s
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 115) { # s
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 104) { # h
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{00D8}>}; # Oslash
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (115, 108, 97, 115, $self->{next_input_character});
-                 $self->{next_input_character} = 79;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (115, 108, 97, $self->{next_input_character});
-               $self->{next_input_character} = 79;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (115, 108, $self->{next_input_character});
-             $self->{next_input_character} = 79;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (115, $self->{next_input_character});
-           $self->{next_input_character} = 79;
-         }
-       } elsif ($self->{next_input_character} == 116) { # t
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 100) { # d
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{00D5}>}; # Otilde
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (116, 105, 108, 100, $self->{next_input_character});
-                 $self->{next_input_character} = 79;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (116, 105, 108, $self->{next_input_character});
-               $self->{next_input_character} = 79;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (116, 105, $self->{next_input_character});
-             $self->{next_input_character} = 79;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (116, $self->{next_input_character});
-           $self->{next_input_character} = 79;
-         }
-       } elsif ($self->{next_input_character} == 117) { # u
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 109) { # m
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{00D6}>}; # Ouml
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (117, 109, $self->{next_input_character});
-             $self->{next_input_character} = 79;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (117, $self->{next_input_character});
-           $self->{next_input_character} = 79;
-         }
-       } else {
-         $self->{parse_error}->();
-         unshift @{$self->{char}},  ($self->{next_input_character});
-         $self->{next_input_character} = 79;
-       }
-     } elsif ($self->{next_input_character} == 80) { # P
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-       if ($self->{next_input_character} == 104) { # h
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           {
-             $r = {type => 'character', data => qq<\x{03A6}>}; # Phi
-             if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             } else {
-               $self->{parse_error}->();
-               ## reconsume
-             }
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (104, $self->{next_input_character});
-           $self->{next_input_character} = 80;
-         }
-       } elsif ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         {
-           $r = {type => 'character', data => qq<\x{03A0}>}; # Pi
-           if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           } else {
-             $self->{parse_error}->();
-             ## reconsume
-           }
-         }
-       } elsif ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 109) { # m
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{2033}>}; # Prime
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (114, 105, 109, $self->{next_input_character});
-               $self->{next_input_character} = 80;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (114, 105, $self->{next_input_character});
-             $self->{next_input_character} = 80;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (114, $self->{next_input_character});
-           $self->{next_input_character} = 80;
-         }
-       } elsif ($self->{next_input_character} == 115) { # s
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           {
-             $r = {type => 'character', data => qq<\x{03A8}>}; # Psi
-             if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             } else {
-               $self->{parse_error}->();
-               ## reconsume
-             }
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (115, $self->{next_input_character});
-           $self->{next_input_character} = 80;
-         }
-       } else {
-         $self->{parse_error}->();
-         unshift @{$self->{char}},  ($self->{next_input_character});
-         $self->{next_input_character} = 80;
-       }
-     } elsif ($self->{next_input_character} == 82) { # R
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-       if ($self->{next_input_character} == 104) { # h
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 111) { # o
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           {
-             $r = {type => 'character', data => qq<\x{03A1}>}; # Rho
-             if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             } else {
-               $self->{parse_error}->();
-               ## reconsume
-             }
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (104, $self->{next_input_character});
-           $self->{next_input_character} = 82;
-         }
-       } elsif ($self->{next_input_character} == 69) { # E
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 71) { # G
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           {
-             $r = {type => 'character', data => qq<\x{00AE}>}; # REG
-             if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             } else {
-               $self->{parse_error}->();
-               ## reconsume
-             }
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (69, $self->{next_input_character});
-           $self->{next_input_character} = 82;
-         }
-       } else {
-         $self->{parse_error}->();
-         unshift @{$self->{char}},  ($self->{next_input_character});
-         $self->{next_input_character} = 82;
-       }
-     } elsif ($self->{next_input_character} == 83) { # S
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-       if ($self->{next_input_character} == 99) { # c
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 111) { # o
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 110) { # n
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{0160}>}; # Scaron
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (99, 97, 114, 111, $self->{next_input_character});
-                 $self->{next_input_character} = 83;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (99, 97, 114, $self->{next_input_character});
-               $self->{next_input_character} = 83;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (99, 97, $self->{next_input_character});
-             $self->{next_input_character} = 83;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (99, $self->{next_input_character});
-           $self->{next_input_character} = 83;
-         }
-       } elsif ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 103) { # g
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 109) { # m
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{03A3}>}; # Sigma
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (105, 103, 109, $self->{next_input_character});
-               $self->{next_input_character} = 83;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (105, 103, $self->{next_input_character});
-             $self->{next_input_character} = 83;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (105, $self->{next_input_character});
-           $self->{next_input_character} = 83;
-         }
-       } else {
-         $self->{parse_error}->();
-         unshift @{$self->{char}},  ($self->{next_input_character});
-         $self->{next_input_character} = 83;
-       }
-     } elsif ($self->{next_input_character} == 84) { # T
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-       if ($self->{next_input_character} == 72) { # H
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 79) { # O
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 82) { # R
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 78) { # N
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{00DE}>}; # THORN
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (72, 79, 82, $self->{next_input_character});
-               $self->{next_input_character} = 84;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (72, 79, $self->{next_input_character});
-             $self->{next_input_character} = 84;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (72, $self->{next_input_character});
-           $self->{next_input_character} = 84;
-         }
-       } elsif ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 117) { # u
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           {
-             $r = {type => 'character', data => qq<\x{03A4}>}; # Tau
-             if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             } else {
-               $self->{parse_error}->();
-               ## reconsume
-             }
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (97, $self->{next_input_character});
-           $self->{next_input_character} = 84;
-         }
-       } elsif ($self->{next_input_character} == 104) { # h
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 116) { # t
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{0398}>}; # Theta
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (104, 101, 116, $self->{next_input_character});
-               $self->{next_input_character} = 84;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (104, 101, $self->{next_input_character});
-             $self->{next_input_character} = 84;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (104, $self->{next_input_character});
-           $self->{next_input_character} = 84;
-         }
-       } else {
-         $self->{parse_error}->();
-         unshift @{$self->{char}},  ($self->{next_input_character});
-         $self->{next_input_character} = 84;
-       }
-     } elsif ($self->{next_input_character} == 85) { # U
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-       if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 99) { # c
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 117) { # u
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 116) { # t
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{00DA}>}; # Uacute
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (97, 99, 117, 116, $self->{next_input_character});
-                 $self->{next_input_character} = 85;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (97, 99, 117, $self->{next_input_character});
-               $self->{next_input_character} = 85;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (97, 99, $self->{next_input_character});
-             $self->{next_input_character} = 85;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (97, $self->{next_input_character});
-           $self->{next_input_character} = 85;
-         }
-       } elsif ($self->{next_input_character} == 99) { # c
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 99) { # c
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{00DB}>}; # Ucirc
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (99, 105, 114, $self->{next_input_character});
-               $self->{next_input_character} = 85;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (99, 105, $self->{next_input_character});
-             $self->{next_input_character} = 85;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (99, $self->{next_input_character});
-           $self->{next_input_character} = 85;
-         }
-       } elsif ($self->{next_input_character} == 103) { # g
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 118) { # v
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{00D9}>}; # Ugrave
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (103, 114, 97, 118, $self->{next_input_character});
-                 $self->{next_input_character} = 85;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (103, 114, 97, $self->{next_input_character});
-               $self->{next_input_character} = 85;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (103, 114, $self->{next_input_character});
-             $self->{next_input_character} = 85;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (103, $self->{next_input_character});
-           $self->{next_input_character} = 85;
-         }
-       } elsif ($self->{next_input_character} == 112) { # p
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 115) { # s
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 111) { # o
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 if ($self->{next_input_character} == 110) { # n
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   {
-                     $r = {type => 'character', data => qq<\x{03A5}>}; # Upsilon
-                     if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                     } else {
-                       $self->{parse_error}->();
-                       ## reconsume
-                     }
-                   }
-                 } else {
-                   $self->{parse_error}->();
-                   unshift @{$self->{char}},  (112, 115, 105, 108, 111, $self->{next_input_character});
-                   $self->{next_input_character} = 85;
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (112, 115, 105, 108, $self->{next_input_character});
-                 $self->{next_input_character} = 85;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (112, 115, 105, $self->{next_input_character});
-               $self->{next_input_character} = 85;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (112, 115, $self->{next_input_character});
-             $self->{next_input_character} = 85;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (112, $self->{next_input_character});
-           $self->{next_input_character} = 85;
-         }
-       } elsif ($self->{next_input_character} == 117) { # u
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 109) { # m
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{00DC}>}; # Uuml
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (117, 109, $self->{next_input_character});
-             $self->{next_input_character} = 85;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (117, $self->{next_input_character});
-           $self->{next_input_character} = 85;
-         }
-       } else {
-         $self->{parse_error}->();
-         unshift @{$self->{char}},  ($self->{next_input_character});
-         $self->{next_input_character} = 85;
-       }
-     } elsif ($self->{next_input_character} == 88) { # X
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-       if ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         {
-           $r = {type => 'character', data => qq<\x{039E}>}; # Xi
-           if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           } else {
-             $self->{parse_error}->();
-             ## reconsume
-           }
-         }
-       } else {
-         $self->{parse_error}->();
-         unshift @{$self->{char}},  ($self->{next_input_character});
-         $self->{next_input_character} = 88;
-       }
-     } elsif ($self->{next_input_character} == 89) { # Y
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-       if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 99) { # c
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 117) { # u
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 116) { # t
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{00DD}>}; # Yacute
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (97, 99, 117, 116, $self->{next_input_character});
-                 $self->{next_input_character} = 89;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (97, 99, 117, $self->{next_input_character});
-               $self->{next_input_character} = 89;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (97, 99, $self->{next_input_character});
-             $self->{next_input_character} = 89;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (97, $self->{next_input_character});
-           $self->{next_input_character} = 89;
-         }
-       } elsif ($self->{next_input_character} == 117) { # u
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 109) { # m
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{0178}>}; # Yuml
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (117, 109, $self->{next_input_character});
-             $self->{next_input_character} = 89;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (117, $self->{next_input_character});
-           $self->{next_input_character} = 89;
-         }
-       } else {
-         $self->{parse_error}->();
-         unshift @{$self->{char}},  ($self->{next_input_character});
-         $self->{next_input_character} = 89;
-       }
-     } elsif ($self->{next_input_character} == 90) { # Z
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-       if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 116) { # t
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{0396}>}; # Zeta
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (101, 116, $self->{next_input_character});
-             $self->{next_input_character} = 90;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (101, $self->{next_input_character});
-           $self->{next_input_character} = 90;
-         }
-       } else {
-         $self->{parse_error}->();
-         unshift @{$self->{char}},  ($self->{next_input_character});
-         $self->{next_input_character} = 90;
-       }
-     } elsif ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-       if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 99) { # c
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 117) { # u
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 116) { # t
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{00E1}>}; # aacute
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (97, 99, 117, 116, $self->{next_input_character});
-                 $self->{next_input_character} = 97;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (97, 99, 117, $self->{next_input_character});
-               $self->{next_input_character} = 97;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (97, 99, $self->{next_input_character});
-             $self->{next_input_character} = 97;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (97, $self->{next_input_character});
-           $self->{next_input_character} = 97;
-         }
-       } elsif ($self->{next_input_character} == 99) { # c
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 99) { # c
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{00E2}>}; # acirc
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (99, 105, 114, $self->{next_input_character});
-               $self->{next_input_character} = 97;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (99, 105, $self->{next_input_character});
-             $self->{next_input_character} = 97;
-           }
-         } elsif ($self->{next_input_character} == 117) { # u
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 116) { # t
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{00B4}>}; # acute
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (99, 117, 116, $self->{next_input_character});
-               $self->{next_input_character} = 97;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (99, 117, $self->{next_input_character});
-             $self->{next_input_character} = 97;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (99, $self->{next_input_character});
-           $self->{next_input_character} = 97;
-         }
-       } elsif ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 103) { # g
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{00E6}>}; # aelig
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (101, 108, 105, $self->{next_input_character});
-               $self->{next_input_character} = 97;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (101, 108, $self->{next_input_character});
-             $self->{next_input_character} = 97;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (101, $self->{next_input_character});
-           $self->{next_input_character} = 97;
-         }
-       } elsif ($self->{next_input_character} == 103) { # g
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 118) { # v
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{00E0}>}; # agrave
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (103, 114, 97, 118, $self->{next_input_character});
-                 $self->{next_input_character} = 97;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (103, 114, 97, $self->{next_input_character});
-               $self->{next_input_character} = 97;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (103, 114, $self->{next_input_character});
-             $self->{next_input_character} = 97;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (103, $self->{next_input_character});
-           $self->{next_input_character} = 97;
-         }
-       } elsif ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 102) { # f
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 115) { # s
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 121) { # y
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 if ($self->{next_input_character} == 109) { # m
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   {
-                     $r = {type => 'character', data => qq<\x{2135}>}; # alefsym
-                     if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                     } else {
-                       $self->{parse_error}->();
-                       ## reconsume
-                     }
-                   }
-                 } else {
-                   $self->{parse_error}->();
-                   unshift @{$self->{char}},  (108, 101, 102, 115, 121, $self->{next_input_character});
-                   $self->{next_input_character} = 97;
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (108, 101, 102, 115, $self->{next_input_character});
-                 $self->{next_input_character} = 97;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (108, 101, 102, $self->{next_input_character});
-               $self->{next_input_character} = 97;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (108, 101, $self->{next_input_character});
-             $self->{next_input_character} = 97;
-           }
-         } elsif ($self->{next_input_character} == 112) { # p
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 104) { # h
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{03B1}>}; # alpha
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (108, 112, 104, $self->{next_input_character});
-               $self->{next_input_character} = 97;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (108, 112, $self->{next_input_character});
-             $self->{next_input_character} = 97;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (108, $self->{next_input_character});
-           $self->{next_input_character} = 97;
-         }
-       } elsif ($self->{next_input_character} == 109) { # m
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 112) { # p
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           {
-             $r = {type => 'character', data => qq<\x{0026}>}; # amp
-             if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             } else {
-               $self->{parse_error}->();
-               ## reconsume
-             }
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (109, $self->{next_input_character});
-           $self->{next_input_character} = 97;
-         }
-       } elsif ($self->{next_input_character} == 110) { # n
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 100) { # d
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           {
-             $r = {type => 'character', data => qq<\x{2227}>}; # and
-             if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             } else {
-               $self->{parse_error}->();
-               ## reconsume
-             }
-           }
-         } elsif ($self->{next_input_character} == 103) { # g
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           {
-             $r = {type => 'character', data => qq<\x{2220}>}; # ang
-             if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             } else {
-               $self->{parse_error}->();
-               ## reconsume
-             }
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (110, $self->{next_input_character});
-           $self->{next_input_character} = 97;
-         }
-       } elsif ($self->{next_input_character} == 112) { # p
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 111) { # o
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 115) { # s
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{0027}>}; # apos
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (112, 111, $self->{next_input_character});
-             $self->{next_input_character} = 97;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (112, $self->{next_input_character});
-           $self->{next_input_character} = 97;
-         }
-       } elsif ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 110) { # n
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 103) { # g
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{00E5}>}; # aring
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (114, 105, 110, $self->{next_input_character});
-               $self->{next_input_character} = 97;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (114, 105, $self->{next_input_character});
-             $self->{next_input_character} = 97;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (114, $self->{next_input_character});
-           $self->{next_input_character} = 97;
-         }
-       } elsif ($self->{next_input_character} == 115) { # s
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 121) { # y
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 109) { # m
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 112) { # p
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{2248}>}; # asymp
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (115, 121, 109, $self->{next_input_character});
-               $self->{next_input_character} = 97;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (115, 121, $self->{next_input_character});
-             $self->{next_input_character} = 97;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (115, $self->{next_input_character});
-           $self->{next_input_character} = 97;
-         }
-       } elsif ($self->{next_input_character} == 116) { # t
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 100) { # d
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{00E3}>}; # atilde
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (116, 105, 108, 100, $self->{next_input_character});
-                 $self->{next_input_character} = 97;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (116, 105, 108, $self->{next_input_character});
-               $self->{next_input_character} = 97;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (116, 105, $self->{next_input_character});
-             $self->{next_input_character} = 97;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (116, $self->{next_input_character});
-           $self->{next_input_character} = 97;
-         }
-       } elsif ($self->{next_input_character} == 117) { # u
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 109) { # m
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{00E4}>}; # auml
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (117, 109, $self->{next_input_character});
-             $self->{next_input_character} = 97;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (117, $self->{next_input_character});
-           $self->{next_input_character} = 97;
-         }
-       } else {
-         $self->{parse_error}->();
-         unshift @{$self->{char}},  ($self->{next_input_character});
-         $self->{next_input_character} = 97;
-       }
-     } elsif ($self->{next_input_character} == 98) { # b
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-       if ($self->{next_input_character} == 100) { # d
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 113) { # q
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 117) { # u
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 111) { # o
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{201E}>}; # bdquo
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (100, 113, 117, $self->{next_input_character});
-               $self->{next_input_character} = 98;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (100, 113, $self->{next_input_character});
-             $self->{next_input_character} = 98;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (100, $self->{next_input_character});
-           $self->{next_input_character} = 98;
-         }
-       } elsif ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 116) { # t
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{03B2}>}; # beta
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (101, 116, $self->{next_input_character});
-             $self->{next_input_character} = 98;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (101, $self->{next_input_character});
-           $self->{next_input_character} = 98;
-         }
-       } elsif ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 118) { # v
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 98) { # b
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{00A6}>}; # brvbar
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (114, 118, 98, 97, $self->{next_input_character});
-                 $self->{next_input_character} = 98;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (114, 118, 98, $self->{next_input_character});
-               $self->{next_input_character} = 98;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (114, 118, $self->{next_input_character});
-             $self->{next_input_character} = 98;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (114, $self->{next_input_character});
-           $self->{next_input_character} = 98;
-         }
-       } elsif ($self->{next_input_character} == 117) { # u
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{2022}>}; # bull
-               if ($self->{next_input_character} == 0x003B) { # ;
        if (@{$self->{char}}) {
          $self->{next_input_character} = shift @{$self->{char}};
        } else {
          $self->{set_next_input_character}->($self);
        }
-               } else {
-                 $self->{parse_error}->();
+     my $value = $entity_name;
-                 ## reconsume
+     my $match;
-               }
-             }
+     while (length $entity_name < 10 and
-           } else {
+            ## NOTE: Some number greater than the maximum length of entity name
-             $self->{parse_error}->();
+            ((0x0041 <= $self->{next_input_character} and
-             unshift @{$self->{char}},  (117, 108, $self->{next_input_character});
+              $self->{next_input_character} <= 0x005A) or
-             $self->{next_input_character} = 98;
+             (0x0061 <= $self->{next_input_character} and
-           }
+              $self->{next_input_character} <= 0x007A) or
-         } else {
+             (0x0030 <= $self->{next_input_character} and
-           $self->{parse_error}->();
+              $self->{next_input_character} <= 0x0039))) {
-           unshift @{$self->{char}},  (117, $self->{next_input_character});
+       $entity_name .= chr $self->{next_input_character};
-           $self->{next_input_character} = 98;
+       if (defined $entity_char->{$entity_name}) {
-         }
+         $value = $entity_char->{$entity_name};
+         $match = 1;
        } else {
-         $self->{parse_error}->();
+         $value .= chr $self->{next_input_character};
-         unshift @{$self->{char}},  ($self->{next_input_character});
-         $self->{next_input_character} = 98;
        }
-     } elsif ($self->{next_input_character} == 99) { # c
        if (@{$self->{char}}) {
          $self->{next_input_character} = shift @{$self->{char}};
-Line 6813 
 sub _tokenize_attempt_to_consume_an_enti
+Line 2050 
 sub _tokenize_attempt_to_consume_an_enti
          $self->{set_next_input_character}->($self);
        }
-       if ($self->{next_input_character} == 97) { # a
+     }
-       if (@{$self->{char}}) {
+     if ($match) {
-         $self->{next_input_character} = shift @{$self->{char}};
+       if ($self->{next_input_character} == 0x003B) { # ;
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 112) { # p
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           {
-             $r = {type => 'character', data => qq<\x{2229}>}; # cap
-             if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             } else {
-               $self->{parse_error}->();
-               ## reconsume
-             }
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (97, $self->{next_input_character});
-           $self->{next_input_character} = 99;
-         }
-       } elsif ($self->{next_input_character} == 99) { # c
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 100) { # d
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{00E7}>}; # ccedil
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (99, 101, 100, 105, $self->{next_input_character});
-                 $self->{next_input_character} = 99;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (99, 101, 100, $self->{next_input_character});
-               $self->{next_input_character} = 99;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (99, 101, $self->{next_input_character});
-             $self->{next_input_character} = 99;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (99, $self->{next_input_character});
-           $self->{next_input_character} = 99;
-         }
-       } elsif ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 100) { # d
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{00B8}>}; # cedil
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (101, 100, 105, $self->{next_input_character});
-               $self->{next_input_character} = 99;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (101, 100, $self->{next_input_character});
-             $self->{next_input_character} = 99;
-           }
-         } elsif ($self->{next_input_character} == 110) { # n
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 116) { # t
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{00A2}>}; # cent
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (101, 110, $self->{next_input_character});
-             $self->{next_input_character} = 99;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (101, $self->{next_input_character});
-           $self->{next_input_character} = 99;
-         }
-       } elsif ($self->{next_input_character} == 104) { # h
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           {
-             $r = {type => 'character', data => qq<\x{03C7}>}; # chi
-             if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             } else {
-               $self->{parse_error}->();
-               ## reconsume
-             }
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (104, $self->{next_input_character});
-           $self->{next_input_character} = 99;
-         }
-       } elsif ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 99) { # c
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{02C6}>}; # circ
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (105, 114, $self->{next_input_character});
-             $self->{next_input_character} = 99;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (105, $self->{next_input_character});
-           $self->{next_input_character} = 99;
-         }
-       } elsif ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 117) { # u
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 98) { # b
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 115) { # s
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{2663}>}; # clubs
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (108, 117, 98, $self->{next_input_character});
-               $self->{next_input_character} = 99;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (108, 117, $self->{next_input_character});
-             $self->{next_input_character} = 99;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (108, $self->{next_input_character});
-           $self->{next_input_character} = 99;
-         }
-       } elsif ($self->{next_input_character} == 111) { # o
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 110) { # n
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 103) { # g
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{2245}>}; # cong
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (111, 110, $self->{next_input_character});
-             $self->{next_input_character} = 99;
-           }
-         } elsif ($self->{next_input_character} == 112) { # p
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 121) { # y
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{00A9}>}; # copy
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (111, 112, $self->{next_input_character});
-             $self->{next_input_character} = 99;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (111, $self->{next_input_character});
-           $self->{next_input_character} = 99;
-         }
-       } elsif ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{21B5}>}; # crarr
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (114, 97, 114, $self->{next_input_character});
-               $self->{next_input_character} = 99;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (114, 97, $self->{next_input_character});
-             $self->{next_input_character} = 99;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (114, $self->{next_input_character});
-           $self->{next_input_character} = 99;
-         }
-       } elsif ($self->{next_input_character} == 117) { # u
        if (@{$self->{char}}) {
          $self->{next_input_character} = shift @{$self->{char}};
-Line 7324 
 sub _tokenize_attempt_to_consume_an_enti
+Line 2061 
 sub _tokenize_attempt_to_consume_an_enti
          $self->{set_next_input_character}->($self);
        }
-         if ($self->{next_input_character} == 112) { # p
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           {
-             $r = {type => 'character', data => qq<\x{222A}>}; # cup
-             if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             } else {
-               $self->{parse_error}->();
-               ## reconsume
-             }
-           }
-         } elsif ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 110) { # n
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{00A4}>}; # curren
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (117, 114, 114, 101, $self->{next_input_character});
-                 $self->{next_input_character} = 99;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (117, 114, 114, $self->{next_input_character});
-               $self->{next_input_character} = 99;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (117, 114, $self->{next_input_character});
-             $self->{next_input_character} = 99;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (117, $self->{next_input_character});
-           $self->{next_input_character} = 99;
-         }
        } else {
          $self->{parse_error}->();
-         unshift @{$self->{char}},  ($self->{next_input_character});
-         $self->{next_input_character} = 99;
-       }
-     } elsif ($self->{next_input_character} == 100) { # d
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-       if ($self->{next_input_character} == 65) { # A
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{21D3}>}; # dArr
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (65, 114, $self->{next_input_character});
-             $self->{next_input_character} = 100;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (65, $self->{next_input_character});
-           $self->{next_input_character} = 100;
-         }
-       } elsif ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 103) { # g
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 103) { # g
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{2020}>}; # dagger
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (97, 103, 103, 101, $self->{next_input_character});
-                 $self->{next_input_character} = 100;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (97, 103, 103, $self->{next_input_character});
-               $self->{next_input_character} = 100;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (97, 103, $self->{next_input_character});
-             $self->{next_input_character} = 100;
-           }
-         } elsif ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{2193}>}; # darr
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (97, 114, $self->{next_input_character});
-             $self->{next_input_character} = 100;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (97, $self->{next_input_character});
-           $self->{next_input_character} = 100;
-         }
-       } elsif ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 103) { # g
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           {
-             $r = {type => 'character', data => qq<\x{00B0}>}; # deg
-             if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             } else {
-               $self->{parse_error}->();
-               ## reconsume
-             }
-           }
-         } elsif ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 116) { # t
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{03B4}>}; # delta
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (101, 108, 116, $self->{next_input_character});
-               $self->{next_input_character} = 100;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (101, 108, $self->{next_input_character});
-             $self->{next_input_character} = 100;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (101, $self->{next_input_character});
-           $self->{next_input_character} = 100;
-         }
-       } elsif ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 109) { # m
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 115) { # s
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{2666}>}; # diams
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (105, 97, 109, $self->{next_input_character});
-               $self->{next_input_character} = 100;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (105, 97, $self->{next_input_character});
-             $self->{next_input_character} = 100;
-           }
-         } elsif ($self->{next_input_character} == 118) { # v
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 100) { # d
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{00F7}>}; # divide
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (105, 118, 105, 100, $self->{next_input_character});
-                 $self->{next_input_character} = 100;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (105, 118, 105, $self->{next_input_character});
-               $self->{next_input_character} = 100;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (105, 118, $self->{next_input_character});
-             $self->{next_input_character} = 100;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (105, $self->{next_input_character});
-           $self->{next_input_character} = 100;
-         }
-       } else {
-         $self->{parse_error}->();
-         unshift @{$self->{char}},  ($self->{next_input_character});
-         $self->{next_input_character} = 100;
-       }
-     } elsif ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-       if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 99) { # c
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 117) { # u
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 116) { # t
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{00E9}>}; # eacute
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (97, 99, 117, 116, $self->{next_input_character});
-                 $self->{next_input_character} = 101;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (97, 99, 117, $self->{next_input_character});
-               $self->{next_input_character} = 101;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (97, 99, $self->{next_input_character});
-             $self->{next_input_character} = 101;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (97, $self->{next_input_character});
-           $self->{next_input_character} = 101;
-         }
-       } elsif ($self->{next_input_character} == 99) { # c
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 99) { # c
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{00EA}>}; # ecirc
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (99, 105, 114, $self->{next_input_character});
-               $self->{next_input_character} = 101;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (99, 105, $self->{next_input_character});
-             $self->{next_input_character} = 101;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (99, $self->{next_input_character});
-           $self->{next_input_character} = 101;
-         }
-       } elsif ($self->{next_input_character} == 103) { # g
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 118) { # v
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{00E8}>}; # egrave
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (103, 114, 97, 118, $self->{next_input_character});
-                 $self->{next_input_character} = 101;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (103, 114, 97, $self->{next_input_character});
-               $self->{next_input_character} = 101;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (103, 114, $self->{next_input_character});
-             $self->{next_input_character} = 101;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (103, $self->{next_input_character});
-           $self->{next_input_character} = 101;
-         }
-       } elsif ($self->{next_input_character} == 109) { # m
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 112) { # p
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 116) { # t
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 121) { # y
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{2205}>}; # empty
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (109, 112, 116, $self->{next_input_character});
-               $self->{next_input_character} = 101;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (109, 112, $self->{next_input_character});
-             $self->{next_input_character} = 101;
-           }
-         } elsif ($self->{next_input_character} == 115) { # s
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 112) { # p
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{2003}>}; # emsp
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (109, 115, $self->{next_input_character});
-             $self->{next_input_character} = 101;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (109, $self->{next_input_character});
-           $self->{next_input_character} = 101;
-         }
-       } elsif ($self->{next_input_character} == 110) { # n
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 115) { # s
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 112) { # p
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{2002}>}; # ensp
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (110, 115, $self->{next_input_character});
-             $self->{next_input_character} = 101;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (110, $self->{next_input_character});
-           $self->{next_input_character} = 101;
-         }
-       } elsif ($self->{next_input_character} == 112) { # p
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 115) { # s
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 111) { # o
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 if ($self->{next_input_character} == 110) { # n
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   {
-                     $r = {type => 'character', data => qq<\x{03B5}>}; # epsilon
-                     if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                     } else {
-                       $self->{parse_error}->();
-                       ## reconsume
-                     }
-                   }
-                 } else {
-                   $self->{parse_error}->();
-                   unshift @{$self->{char}},  (112, 115, 105, 108, 111, $self->{next_input_character});
-                   $self->{next_input_character} = 101;
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (112, 115, 105, 108, $self->{next_input_character});
-                 $self->{next_input_character} = 101;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (112, 115, 105, $self->{next_input_character});
-               $self->{next_input_character} = 101;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (112, 115, $self->{next_input_character});
-             $self->{next_input_character} = 101;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (112, $self->{next_input_character});
-           $self->{next_input_character} = 101;
-         }
-       } elsif ($self->{next_input_character} == 113) { # q
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 117) { # u
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 118) { # v
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{2261}>}; # equiv
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (113, 117, 105, $self->{next_input_character});
-               $self->{next_input_character} = 101;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (113, 117, $self->{next_input_character});
-             $self->{next_input_character} = 101;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (113, $self->{next_input_character});
-           $self->{next_input_character} = 101;
-         }
-       } elsif ($self->{next_input_character} == 116) { # t
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           {
-             $r = {type => 'character', data => qq<\x{03B7}>}; # eta
-             if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             } else {
-               $self->{parse_error}->();
-               ## reconsume
-             }
-           }
-         } elsif ($self->{next_input_character} == 104) { # h
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           {
-             $r = {type => 'character', data => qq<\x{00F0}>}; # eth
-             if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             } else {
-               $self->{parse_error}->();
-               ## reconsume
-             }
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (116, $self->{next_input_character});
-           $self->{next_input_character} = 101;
-         }
-       } elsif ($self->{next_input_character} == 117) { # u
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 109) { # m
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{00EB}>}; # euml
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (117, 109, $self->{next_input_character});
-             $self->{next_input_character} = 101;
-           }
-         } elsif ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 111) { # o
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{20AC}>}; # euro
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (117, 114, $self->{next_input_character});
-             $self->{next_input_character} = 101;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (117, $self->{next_input_character});
-           $self->{next_input_character} = 101;
-         }
-       } elsif ($self->{next_input_character} == 120) { # x
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 115) { # s
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 116) { # t
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{2203}>}; # exist
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (120, 105, 115, $self->{next_input_character});
-               $self->{next_input_character} = 101;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (120, 105, $self->{next_input_character});
-             $self->{next_input_character} = 101;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (120, $self->{next_input_character});
-           $self->{next_input_character} = 101;
-         }
-       } else {
-         $self->{parse_error}->();
-         unshift @{$self->{char}},  ($self->{next_input_character});
-         $self->{next_input_character} = 101;
-       }
-     } elsif ($self->{next_input_character} == 102) { # f
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-       if ($self->{next_input_character} == 110) { # n
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 111) { # o
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 102) { # f
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{0192}>}; # fnof
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (110, 111, $self->{next_input_character});
-             $self->{next_input_character} = 102;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (110, $self->{next_input_character});
-           $self->{next_input_character} = 102;
-         }
-       } elsif ($self->{next_input_character} == 111) { # o
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{2200}>}; # forall
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (111, 114, 97, 108, $self->{next_input_character});
-                 $self->{next_input_character} = 102;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (111, 114, 97, $self->{next_input_character});
-               $self->{next_input_character} = 102;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (111, 114, $self->{next_input_character});
-             $self->{next_input_character} = 102;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (111, $self->{next_input_character});
-           $self->{next_input_character} = 102;
-         }
-       } elsif ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 99) { # c
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 49) { # 1
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 50) { # 2
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{00BD}>}; # frac12
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } elsif ($self->{next_input_character} == 52) { # 4
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{00BC}>}; # frac14
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (114, 97, 99, 49, $self->{next_input_character});
-                 $self->{next_input_character} = 102;
-               }
-             } elsif ($self->{next_input_character} == 51) { # 3
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 52) { # 4
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{00BE}>}; # frac34
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (114, 97, 99, 51, $self->{next_input_character});
-                 $self->{next_input_character} = 102;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (114, 97, 99, $self->{next_input_character});
-               $self->{next_input_character} = 102;
-             }
-           } elsif ($self->{next_input_character} == 115) { # s
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{2044}>}; # frasl
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (114, 97, 115, $self->{next_input_character});
-               $self->{next_input_character} = 102;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (114, 97, $self->{next_input_character});
-             $self->{next_input_character} = 102;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (114, $self->{next_input_character});
-           $self->{next_input_character} = 102;
-         }
-       } else {
-         $self->{parse_error}->();
-         unshift @{$self->{char}},  ($self->{next_input_character});
-         $self->{next_input_character} = 102;
-       }
-     } elsif ($self->{next_input_character} == 103) { # g
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-       if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 109) { # m
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 109) { # m
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{03B3}>}; # gamma
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (97, 109, 109, $self->{next_input_character});
-               $self->{next_input_character} = 103;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (97, 109, $self->{next_input_character});
-             $self->{next_input_character} = 103;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (97, $self->{next_input_character});
-           $self->{next_input_character} = 103;
-         }
-       } elsif ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         {
-           $r = {type => 'character', data => qq<\x{2265}>}; # ge
-           if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           } else {
-             $self->{parse_error}->();
-             ## reconsume
-           }
-         }
-       } elsif ($self->{next_input_character} == 116) { # t
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         {
-           $r = {type => 'character', data => qq<\x{003E}>}; # gt
-           if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           } else {
-             $self->{parse_error}->();
-             ## reconsume
-           }
-         }
-       } else {
-         $self->{parse_error}->();
-         unshift @{$self->{char}},  ($self->{next_input_character});
-         $self->{next_input_character} = 103;
-       }
-     } elsif ($self->{next_input_character} == 104) { # h
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-       if ($self->{next_input_character} == 65) { # A
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{21D4}>}; # hArr
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (65, 114, $self->{next_input_character});
-             $self->{next_input_character} = 104;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (65, $self->{next_input_character});
-           $self->{next_input_character} = 104;
-         }
-       } elsif ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{2194}>}; # harr
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (97, 114, $self->{next_input_character});
-             $self->{next_input_character} = 104;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (97, $self->{next_input_character});
-           $self->{next_input_character} = 104;
-         }
-       } elsif ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 116) { # t
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 115) { # s
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{2665}>}; # hearts
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (101, 97, 114, 116, $self->{next_input_character});
-                 $self->{next_input_character} = 104;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (101, 97, 114, $self->{next_input_character});
-               $self->{next_input_character} = 104;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (101, 97, $self->{next_input_character});
-             $self->{next_input_character} = 104;
-           }
-         } elsif ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 112) { # p
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{2026}>}; # hellip
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (101, 108, 108, 105, $self->{next_input_character});
-                 $self->{next_input_character} = 104;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (101, 108, 108, $self->{next_input_character});
-               $self->{next_input_character} = 104;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (101, 108, $self->{next_input_character});
-             $self->{next_input_character} = 104;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (101, $self->{next_input_character});
-           $self->{next_input_character} = 104;
-         }
-       } else {
-         $self->{parse_error}->();
-         unshift @{$self->{char}},  ($self->{next_input_character});
-         $self->{next_input_character} = 104;
-       }
-     } elsif ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-       if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 99) { # c
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 117) { # u
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 116) { # t
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{00ED}>}; # iacute
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (97, 99, 117, 116, $self->{next_input_character});
-                 $self->{next_input_character} = 105;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (97, 99, 117, $self->{next_input_character});
-               $self->{next_input_character} = 105;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (97, 99, $self->{next_input_character});
-             $self->{next_input_character} = 105;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (97, $self->{next_input_character});
-           $self->{next_input_character} = 105;
-         }
-       } elsif ($self->{next_input_character} == 99) { # c
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 99) { # c
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{00EE}>}; # icirc
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (99, 105, 114, $self->{next_input_character});
-               $self->{next_input_character} = 105;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (99, 105, $self->{next_input_character});
-             $self->{next_input_character} = 105;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (99, $self->{next_input_character});
-           $self->{next_input_character} = 105;
-         }
-       } elsif ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 120) { # x
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 99) { # c
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{00A1}>}; # iexcl
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (101, 120, 99, $self->{next_input_character});
-               $self->{next_input_character} = 105;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (101, 120, $self->{next_input_character});
-             $self->{next_input_character} = 105;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (101, $self->{next_input_character});
-           $self->{next_input_character} = 105;
-         }
-       } elsif ($self->{next_input_character} == 103) { # g
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 118) { # v
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{00EC}>}; # igrave
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (103, 114, 97, 118, $self->{next_input_character});
-                 $self->{next_input_character} = 105;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (103, 114, 97, $self->{next_input_character});
-               $self->{next_input_character} = 105;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (103, 114, $self->{next_input_character});
-             $self->{next_input_character} = 105;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (103, $self->{next_input_character});
-           $self->{next_input_character} = 105;
-         }
-       } elsif ($self->{next_input_character} == 109) { # m
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 103) { # g
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{2111}>}; # image
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (109, 97, 103, $self->{next_input_character});
-               $self->{next_input_character} = 105;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (109, 97, $self->{next_input_character});
-             $self->{next_input_character} = 105;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (109, $self->{next_input_character});
-           $self->{next_input_character} = 105;
-         }
-       } elsif ($self->{next_input_character} == 110) { # n
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 102) { # f
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 110) { # n
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{221E}>}; # infin
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (110, 102, 105, $self->{next_input_character});
-               $self->{next_input_character} = 105;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (110, 102, $self->{next_input_character});
-             $self->{next_input_character} = 105;
-           }
-         } elsif ($self->{next_input_character} == 116) { # t
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           {
-             $r = {type => 'character', data => qq<\x{222B}>}; # int
-             if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             } else {
-               $self->{parse_error}->();
-               ## reconsume
-             }
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (110, $self->{next_input_character});
-           $self->{next_input_character} = 105;
-         }
-       } elsif ($self->{next_input_character} == 111) { # o
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 116) { # t
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{03B9}>}; # iota
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (111, 116, $self->{next_input_character});
-             $self->{next_input_character} = 105;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (111, $self->{next_input_character});
-           $self->{next_input_character} = 105;
-         }
-       } elsif ($self->{next_input_character} == 113) { # q
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 117) { # u
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 115) { # s
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 116) { # t
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{00BF}>}; # iquest
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (113, 117, 101, 115, $self->{next_input_character});
-                 $self->{next_input_character} = 105;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (113, 117, 101, $self->{next_input_character});
-               $self->{next_input_character} = 105;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (113, 117, $self->{next_input_character});
-             $self->{next_input_character} = 105;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (113, $self->{next_input_character});
-           $self->{next_input_character} = 105;
-         }
-       } elsif ($self->{next_input_character} == 115) { # s
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 110) { # n
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{2208}>}; # isin
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (115, 105, $self->{next_input_character});
-             $self->{next_input_character} = 105;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (115, $self->{next_input_character});
-           $self->{next_input_character} = 105;
-         }
-       } elsif ($self->{next_input_character} == 117) { # u
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 109) { # m
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{00EF}>}; # iuml
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (117, 109, $self->{next_input_character});
-             $self->{next_input_character} = 105;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (117, $self->{next_input_character});
-           $self->{next_input_character} = 105;
-         }
-       } else {
-         $self->{parse_error}->();
-         unshift @{$self->{char}},  ($self->{next_input_character});
-         $self->{next_input_character} = 105;
-       }
-     } elsif ($self->{next_input_character} == 107) { # k
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-       if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 112) { # p
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 112) { # p
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{03BA}>}; # kappa
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (97, 112, 112, $self->{next_input_character});
-               $self->{next_input_character} = 107;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (97, 112, $self->{next_input_character});
-             $self->{next_input_character} = 107;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (97, $self->{next_input_character});
-           $self->{next_input_character} = 107;
-         }
-       } else {
-         $self->{parse_error}->();
-         unshift @{$self->{char}},  ($self->{next_input_character});
-         $self->{next_input_character} = 107;
-       }
-     } elsif ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-       if ($self->{next_input_character} == 65) { # A
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{21D0}>}; # lArr
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (65, 114, $self->{next_input_character});
-             $self->{next_input_character} = 108;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (65, $self->{next_input_character});
-           $self->{next_input_character} = 108;
-         }
-       } elsif ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 109) { # m
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 98) { # b
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 100) { # d
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{03BB}>}; # lambda
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (97, 109, 98, 100, $self->{next_input_character});
-                 $self->{next_input_character} = 108;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (97, 109, 98, $self->{next_input_character});
-               $self->{next_input_character} = 108;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (97, 109, $self->{next_input_character});
-             $self->{next_input_character} = 108;
-           }
-         } elsif ($self->{next_input_character} == 110) { # n
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 103) { # g
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{2329}>}; # lang
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (97, 110, $self->{next_input_character});
-             $self->{next_input_character} = 108;
-           }
-         } elsif ($self->{next_input_character} == 113) { # q
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 117) { # u
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 111) { # o
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{00AB}>}; # laquo
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (97, 113, 117, $self->{next_input_character});
-               $self->{next_input_character} = 108;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (97, 113, $self->{next_input_character});
-             $self->{next_input_character} = 108;
-           }
-         } elsif ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{2190}>}; # larr
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (97, 114, $self->{next_input_character});
-             $self->{next_input_character} = 108;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (97, $self->{next_input_character});
-           $self->{next_input_character} = 108;
-         }
-       } elsif ($self->{next_input_character} == 99) { # c
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{2308}>}; # lceil
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (99, 101, 105, $self->{next_input_character});
-               $self->{next_input_character} = 108;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (99, 101, $self->{next_input_character});
-             $self->{next_input_character} = 108;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (99, $self->{next_input_character});
-           $self->{next_input_character} = 108;
-         }
-       } elsif ($self->{next_input_character} == 100) { # d
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 113) { # q
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 117) { # u
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 111) { # o
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{201C}>}; # ldquo
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (100, 113, 117, $self->{next_input_character});
-               $self->{next_input_character} = 108;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (100, 113, $self->{next_input_character});
-             $self->{next_input_character} = 108;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (100, $self->{next_input_character});
-           $self->{next_input_character} = 108;
-         }
-       } elsif ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         {
-           $r = {type => 'character', data => qq<\x{2264}>}; # le
-           if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           } else {
-             $self->{parse_error}->();
-             ## reconsume
-           }
-         }
-       } elsif ($self->{next_input_character} == 102) { # f
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 111) { # o
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 111) { # o
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{230A}>}; # lfloor
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (102, 108, 111, 111, $self->{next_input_character});
-                 $self->{next_input_character} = 108;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (102, 108, 111, $self->{next_input_character});
-               $self->{next_input_character} = 108;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (102, 108, $self->{next_input_character});
-             $self->{next_input_character} = 108;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (102, $self->{next_input_character});
-           $self->{next_input_character} = 108;
-         }
-       } elsif ($self->{next_input_character} == 111) { # o
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 119) { # w
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 115) { # s
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 116) { # t
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{2217}>}; # lowast
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (111, 119, 97, 115, $self->{next_input_character});
-                 $self->{next_input_character} = 108;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (111, 119, 97, $self->{next_input_character});
-               $self->{next_input_character} = 108;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (111, 119, $self->{next_input_character});
-             $self->{next_input_character} = 108;
-           }
-         } elsif ($self->{next_input_character} == 122) { # z
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           {
-             $r = {type => 'character', data => qq<\x{25CA}>}; # loz
-             if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             } else {
-               $self->{parse_error}->();
-               ## reconsume
-             }
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (111, $self->{next_input_character});
-           $self->{next_input_character} = 108;
-         }
-       } elsif ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 109) { # m
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           {
-             $r = {type => 'character', data => qq<\x{200E}>}; # lrm
-             if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             } else {
-               $self->{parse_error}->();
-               ## reconsume
-             }
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (114, $self->{next_input_character});
-           $self->{next_input_character} = 108;
-         }
-       } elsif ($self->{next_input_character} == 115) { # s
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 113) { # q
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 117) { # u
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 111) { # o
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{2039}>}; # lsaquo
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (115, 97, 113, 117, $self->{next_input_character});
-                 $self->{next_input_character} = 108;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (115, 97, 113, $self->{next_input_character});
-               $self->{next_input_character} = 108;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (115, 97, $self->{next_input_character});
-             $self->{next_input_character} = 108;
-           }
-         } elsif ($self->{next_input_character} == 113) { # q
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 117) { # u
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 111) { # o
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{2018}>}; # lsquo
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (115, 113, 117, $self->{next_input_character});
-               $self->{next_input_character} = 108;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (115, 113, $self->{next_input_character});
-             $self->{next_input_character} = 108;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (115, $self->{next_input_character});
-           $self->{next_input_character} = 108;
-         }
-       } elsif ($self->{next_input_character} == 116) { # t
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         {
-           $r = {type => 'character', data => qq<\x{003C}>}; # lt
-           if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           } else {
-             $self->{parse_error}->();
-             ## reconsume
-           }
-         }
-       } else {
-         $self->{parse_error}->();
-         unshift @{$self->{char}},  ($self->{next_input_character});
-         $self->{next_input_character} = 108;
-       }
-     } elsif ($self->{next_input_character} == 109) { # m
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-       if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 99) { # c
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{00AF}>}; # macr
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (97, 99, $self->{next_input_character});
-             $self->{next_input_character} = 109;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (97, $self->{next_input_character});
-           $self->{next_input_character} = 109;
-         }
-       } elsif ($self->{next_input_character} == 100) { # d
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 115) { # s
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 104) { # h
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{2014}>}; # mdash
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (100, 97, 115, $self->{next_input_character});
-               $self->{next_input_character} = 109;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (100, 97, $self->{next_input_character});
-             $self->{next_input_character} = 109;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (100, $self->{next_input_character});
-           $self->{next_input_character} = 109;
-         }
-       } elsif ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 99) { # c
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 111) { # o
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{00B5}>}; # micro
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (105, 99, 114, $self->{next_input_character});
-               $self->{next_input_character} = 109;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (105, 99, $self->{next_input_character});
-             $self->{next_input_character} = 109;
-           }
-         } elsif ($self->{next_input_character} == 100) { # d
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 100) { # d
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 111) { # o
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 116) { # t
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{00B7}>}; # middot
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (105, 100, 100, 111, $self->{next_input_character});
-                 $self->{next_input_character} = 109;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (105, 100, 100, $self->{next_input_character});
-               $self->{next_input_character} = 109;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (105, 100, $self->{next_input_character});
-             $self->{next_input_character} = 109;
-           }
-         } elsif ($self->{next_input_character} == 110) { # n
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 117) { # u
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 115) { # s
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{2212}>}; # minus
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (105, 110, 117, $self->{next_input_character});
-               $self->{next_input_character} = 109;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (105, 110, $self->{next_input_character});
-             $self->{next_input_character} = 109;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (105, $self->{next_input_character});
-           $self->{next_input_character} = 109;
-         }
-       } elsif ($self->{next_input_character} == 117) { # u
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         {
-           $r = {type => 'character', data => qq<\x{03BC}>}; # mu
-           if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           } else {
-             $self->{parse_error}->();
-             ## reconsume
-           }
-         }
-       } else {
-         $self->{parse_error}->();
-         unshift @{$self->{char}},  ($self->{next_input_character});
-         $self->{next_input_character} = 109;
-       }
-     } elsif ($self->{next_input_character} == 110) { # n
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-       if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 98) { # b
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{2207}>}; # nabla
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (97, 98, 108, $self->{next_input_character});
-               $self->{next_input_character} = 110;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (97, 98, $self->{next_input_character});
-             $self->{next_input_character} = 110;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (97, $self->{next_input_character});
-           $self->{next_input_character} = 110;
-         }
-       } elsif ($self->{next_input_character} == 98) { # b
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 115) { # s
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 112) { # p
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{00A0}>}; # nbsp
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (98, 115, $self->{next_input_character});
-             $self->{next_input_character} = 110;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (98, $self->{next_input_character});
-           $self->{next_input_character} = 110;
-         }
-       } elsif ($self->{next_input_character} == 100) { # d
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 115) { # s
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 104) { # h
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{2013}>}; # ndash
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (100, 97, 115, $self->{next_input_character});
-               $self->{next_input_character} = 110;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (100, 97, $self->{next_input_character});
-             $self->{next_input_character} = 110;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (100, $self->{next_input_character});
-           $self->{next_input_character} = 110;
-         }
-       } elsif ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         {
-           $r = {type => 'character', data => qq<\x{2260}>}; # ne
-           if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           } else {
-             $self->{parse_error}->();
-             ## reconsume
-           }
-         }
-       } elsif ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         {
-           $r = {type => 'character', data => qq<\x{220B}>}; # ni
-           if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           } else {
-             $self->{parse_error}->();
-             ## reconsume
-           }
-         }
-       } elsif ($self->{next_input_character} == 111) { # o
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 116) { # t
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 110) { # n
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{2209}>}; # notin
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (111, 116, 105, $self->{next_input_character});
-               $self->{next_input_character} = 110;
-             }
-           } else {
-             $r = {type => 'character', data => qq<\x{00AC}>}; # not
-             if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             } else {
-               $self->{parse_error}->();
-               ## reconsume
-             }
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (111, $self->{next_input_character});
-           $self->{next_input_character} = 110;
-         }
-       } elsif ($self->{next_input_character} == 115) { # s
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 117) { # u
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 98) { # b
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{2284}>}; # nsub
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (115, 117, $self->{next_input_character});
-             $self->{next_input_character} = 110;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (115, $self->{next_input_character});
-           $self->{next_input_character} = 110;
-         }
-       } elsif ($self->{next_input_character} == 116) { # t
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 100) { # d
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{00F1}>}; # ntilde
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (116, 105, 108, 100, $self->{next_input_character});
-                 $self->{next_input_character} = 110;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (116, 105, 108, $self->{next_input_character});
-               $self->{next_input_character} = 110;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (116, 105, $self->{next_input_character});
-             $self->{next_input_character} = 110;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (116, $self->{next_input_character});
-           $self->{next_input_character} = 110;
-         }
-       } elsif ($self->{next_input_character} == 117) { # u
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         {
-           $r = {type => 'character', data => qq<\x{03BD}>}; # nu
-           if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           } else {
-             $self->{parse_error}->();
-             ## reconsume
-           }
-         }
-       } else {
-         $self->{parse_error}->();
-         unshift @{$self->{char}},  ($self->{next_input_character});
-         $self->{next_input_character} = 110;
-       }
-     } elsif ($self->{next_input_character} == 111) { # o
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-       if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 99) { # c
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 117) { # u
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 116) { # t
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{00F3}>}; # oacute
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (97, 99, 117, 116, $self->{next_input_character});
-                 $self->{next_input_character} = 111;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (97, 99, 117, $self->{next_input_character});
-               $self->{next_input_character} = 111;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (97, 99, $self->{next_input_character});
-             $self->{next_input_character} = 111;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (97, $self->{next_input_character});
-           $self->{next_input_character} = 111;
-         }
-       } elsif ($self->{next_input_character} == 99) { # c
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 99) { # c
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{00F4}>}; # ocirc
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (99, 105, 114, $self->{next_input_character});
-               $self->{next_input_character} = 111;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (99, 105, $self->{next_input_character});
-             $self->{next_input_character} = 111;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (99, $self->{next_input_character});
-           $self->{next_input_character} = 111;
-         }
-       } elsif ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 103) { # g
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{0153}>}; # oelig
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (101, 108, 105, $self->{next_input_character});
-               $self->{next_input_character} = 111;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (101, 108, $self->{next_input_character});
-             $self->{next_input_character} = 111;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (101, $self->{next_input_character});
-           $self->{next_input_character} = 111;
-         }
-       } elsif ($self->{next_input_character} == 103) { # g
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 118) { # v
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{00F2}>}; # ograve
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (103, 114, 97, 118, $self->{next_input_character});
-                 $self->{next_input_character} = 111;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (103, 114, 97, $self->{next_input_character});
-               $self->{next_input_character} = 111;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (103, 114, $self->{next_input_character});
-             $self->{next_input_character} = 111;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (103, $self->{next_input_character});
-           $self->{next_input_character} = 111;
-         }
-       } elsif ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 110) { # n
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{203E}>}; # oline
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (108, 105, 110, $self->{next_input_character});
-               $self->{next_input_character} = 111;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (108, 105, $self->{next_input_character});
-             $self->{next_input_character} = 111;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (108, $self->{next_input_character});
-           $self->{next_input_character} = 111;
-         }
-       } elsif ($self->{next_input_character} == 109) { # m
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 103) { # g
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{03C9}>}; # omega
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (109, 101, 103, $self->{next_input_character});
-               $self->{next_input_character} = 111;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (109, 101, $self->{next_input_character});
-             $self->{next_input_character} = 111;
-           }
-         } elsif ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 99) { # c
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 111) { # o
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 if ($self->{next_input_character} == 110) { # n
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   {
-                     $r = {type => 'character', data => qq<\x{03BF}>}; # omicron
-                     if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                     } else {
-                       $self->{parse_error}->();
-                       ## reconsume
-                     }
-                   }
-                 } else {
-                   $self->{parse_error}->();
-                   unshift @{$self->{char}},  (109, 105, 99, 114, 111, $self->{next_input_character});
-                   $self->{next_input_character} = 111;
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (109, 105, 99, 114, $self->{next_input_character});
-                 $self->{next_input_character} = 111;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (109, 105, 99, $self->{next_input_character});
-               $self->{next_input_character} = 111;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (109, 105, $self->{next_input_character});
-             $self->{next_input_character} = 111;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (109, $self->{next_input_character});
-           $self->{next_input_character} = 111;
-         }
-       } elsif ($self->{next_input_character} == 112) { # p
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 117) { # u
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 115) { # s
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{2295}>}; # oplus
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (112, 108, 117, $self->{next_input_character});
-               $self->{next_input_character} = 111;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (112, 108, $self->{next_input_character});
-             $self->{next_input_character} = 111;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (112, $self->{next_input_character});
-           $self->{next_input_character} = 111;
-         }
-       } elsif ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 100) { # d
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 102) { # f
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{00AA}>}; # ordf
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } elsif ($self->{next_input_character} == 109) { # m
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{00BA}>}; # ordm
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (114, 100, $self->{next_input_character});
-             $self->{next_input_character} = 111;
-           }
-         } else {
-           $r = {type => 'character', data => qq<\x{2228}>}; # or
-           if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           } else {
-             $self->{parse_error}->();
-             ## reconsume
-           }
-         }
-       } elsif ($self->{next_input_character} == 115) { # s
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 115) { # s
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 104) { # h
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{00F8}>}; # oslash
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (115, 108, 97, 115, $self->{next_input_character});
-                 $self->{next_input_character} = 111;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (115, 108, 97, $self->{next_input_character});
-               $self->{next_input_character} = 111;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (115, 108, $self->{next_input_character});
-             $self->{next_input_character} = 111;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (115, $self->{next_input_character});
-           $self->{next_input_character} = 111;
-         }
-       } elsif ($self->{next_input_character} == 116) { # t
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 100) { # d
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{00F5}>}; # otilde
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (116, 105, 108, 100, $self->{next_input_character});
-                 $self->{next_input_character} = 111;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (116, 105, 108, $self->{next_input_character});
-               $self->{next_input_character} = 111;
-             }
-           } elsif ($self->{next_input_character} == 109) { # m
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 115) { # s
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{2297}>}; # otimes
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (116, 105, 109, 101, $self->{next_input_character});
-                 $self->{next_input_character} = 111;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (116, 105, 109, $self->{next_input_character});
-               $self->{next_input_character} = 111;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (116, 105, $self->{next_input_character});
-             $self->{next_input_character} = 111;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (116, $self->{next_input_character});
-           $self->{next_input_character} = 111;
-         }
-       } elsif ($self->{next_input_character} == 117) { # u
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 109) { # m
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{00F6}>}; # ouml
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (117, 109, $self->{next_input_character});
-             $self->{next_input_character} = 111;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (117, $self->{next_input_character});
-           $self->{next_input_character} = 111;
-         }
-       } else {
-         $self->{parse_error}->();
-         unshift @{$self->{char}},  ($self->{next_input_character});
-         $self->{next_input_character} = 111;
-       }
-     } elsif ($self->{next_input_character} == 112) { # p
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-       if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{00B6}>}; # para
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } elsif ($self->{next_input_character} == 116) { # t
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{2202}>}; # part
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (97, 114, $self->{next_input_character});
-             $self->{next_input_character} = 112;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (97, $self->{next_input_character});
-           $self->{next_input_character} = 112;
-         }
-       } elsif ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 109) { # m
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{2030}>}; # permil
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (101, 114, 109, 105, $self->{next_input_character});
-                 $self->{next_input_character} = 112;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (101, 114, 109, $self->{next_input_character});
-               $self->{next_input_character} = 112;
-             }
-           } elsif ($self->{next_input_character} == 112) { # p
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{22A5}>}; # perp
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (101, 114, $self->{next_input_character});
-             $self->{next_input_character} = 112;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (101, $self->{next_input_character});
-           $self->{next_input_character} = 112;
-         }
-       } elsif ($self->{next_input_character} == 104) { # h
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           {
-             $r = {type => 'character', data => qq<\x{03C6}>}; # phi
-             if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             } else {
-               $self->{parse_error}->();
-               ## reconsume
-             }
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (104, $self->{next_input_character});
-           $self->{next_input_character} = 112;
-         }
-       } elsif ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 118) { # v
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           {
-             $r = {type => 'character', data => qq<\x{03D6}>}; # piv
-             if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             } else {
-               $self->{parse_error}->();
-               ## reconsume
-             }
-           }
-         } else {
-           $r = {type => 'character', data => qq<\x{03C0}>}; # pi
-           if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           } else {
-             $self->{parse_error}->();
-             ## reconsume
-           }
-         }
-       } elsif ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 117) { # u
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 115) { # s
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 109) { # m
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 110) { # n
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{00B1}>}; # plusmn
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (108, 117, 115, 109, $self->{next_input_character});
-                 $self->{next_input_character} = 112;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (108, 117, 115, $self->{next_input_character});
-               $self->{next_input_character} = 112;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (108, 117, $self->{next_input_character});
-             $self->{next_input_character} = 112;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (108, $self->{next_input_character});
-           $self->{next_input_character} = 112;
-         }
-       } elsif ($self->{next_input_character} == 111) { # o
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 117) { # u
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 110) { # n
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 100) { # d
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{00A3}>}; # pound
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (111, 117, 110, $self->{next_input_character});
-               $self->{next_input_character} = 112;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (111, 117, $self->{next_input_character});
-             $self->{next_input_character} = 112;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (111, $self->{next_input_character});
-           $self->{next_input_character} = 112;
-         }
-       } elsif ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 109) { # m
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{2032}>}; # prime
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (114, 105, 109, $self->{next_input_character});
-               $self->{next_input_character} = 112;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (114, 105, $self->{next_input_character});
-             $self->{next_input_character} = 112;
-           }
-         } elsif ($self->{next_input_character} == 111) { # o
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 100) { # d
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{220F}>}; # prod
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } elsif ($self->{next_input_character} == 112) { # p
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{221D}>}; # prop
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (114, 111, $self->{next_input_character});
-             $self->{next_input_character} = 112;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (114, $self->{next_input_character});
-           $self->{next_input_character} = 112;
-         }
-       } elsif ($self->{next_input_character} == 115) { # s
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           {
-             $r = {type => 'character', data => qq<\x{03C8}>}; # psi
-             if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             } else {
-               $self->{parse_error}->();
-               ## reconsume
-             }
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (115, $self->{next_input_character});
-           $self->{next_input_character} = 112;
-         }
-       } else {
-         $self->{parse_error}->();
-         unshift @{$self->{char}},  ($self->{next_input_character});
-         $self->{next_input_character} = 112;
-       }
-     } elsif ($self->{next_input_character} == 113) { # q
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-       if ($self->{next_input_character} == 117) { # u
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 111) { # o
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 116) { # t
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{0022}>}; # quot
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (117, 111, $self->{next_input_character});
-             $self->{next_input_character} = 113;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (117, $self->{next_input_character});
-           $self->{next_input_character} = 113;
-         }
-       } else {
-         $self->{parse_error}->();
-         unshift @{$self->{char}},  ($self->{next_input_character});
-         $self->{next_input_character} = 113;
-       }
-     } elsif ($self->{next_input_character} == 81) { # Q
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-       if ($self->{next_input_character} == 85) { # U
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 79) { # O
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 84) { # T
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{0022}>}; # QUOT
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (85, 79, $self->{next_input_character});
-             $self->{next_input_character} = 81;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (85, $self->{next_input_character});
-           $self->{next_input_character} = 81;
-         }
-       } else {
-         $self->{parse_error}->();
-         unshift @{$self->{char}},  ($self->{next_input_character});
-         $self->{next_input_character} = 81;
-       }
-     } elsif ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-       if ($self->{next_input_character} == 65) { # A
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{21D2}>}; # rArr
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (65, 114, $self->{next_input_character});
-             $self->{next_input_character} = 114;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (65, $self->{next_input_character});
-           $self->{next_input_character} = 114;
-         }
-       } elsif ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 100) { # d
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 99) { # c
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{221A}>}; # radic
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (97, 100, 105, $self->{next_input_character});
-               $self->{next_input_character} = 114;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (97, 100, $self->{next_input_character});
-             $self->{next_input_character} = 114;
-           }
-         } elsif ($self->{next_input_character} == 110) { # n
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 103) { # g
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{232A}>}; # rang
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (97, 110, $self->{next_input_character});
-             $self->{next_input_character} = 114;
-           }
-         } elsif ($self->{next_input_character} == 113) { # q
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 117) { # u
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 111) { # o
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{00BB}>}; # raquo
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (97, 113, 117, $self->{next_input_character});
-               $self->{next_input_character} = 114;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (97, 113, $self->{next_input_character});
-             $self->{next_input_character} = 114;
-           }
-         } elsif ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{2192}>}; # rarr
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (97, 114, $self->{next_input_character});
-             $self->{next_input_character} = 114;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (97, $self->{next_input_character});
-           $self->{next_input_character} = 114;
-         }
-       } elsif ($self->{next_input_character} == 99) { # c
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{2309}>}; # rceil
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (99, 101, 105, $self->{next_input_character});
-               $self->{next_input_character} = 114;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (99, 101, $self->{next_input_character});
-             $self->{next_input_character} = 114;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (99, $self->{next_input_character});
-           $self->{next_input_character} = 114;
-         }
-       } elsif ($self->{next_input_character} == 100) { # d
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 113) { # q
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 117) { # u
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 111) { # o
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{201D}>}; # rdquo
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (100, 113, 117, $self->{next_input_character});
-               $self->{next_input_character} = 114;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (100, 113, $self->{next_input_character});
-             $self->{next_input_character} = 114;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (100, $self->{next_input_character});
-           $self->{next_input_character} = 114;
-         }
-       } elsif ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{211C}>}; # real
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (101, 97, $self->{next_input_character});
-             $self->{next_input_character} = 114;
-           }
-         } elsif ($self->{next_input_character} == 103) { # g
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           {
-             $r = {type => 'character', data => qq<\x{00AE}>}; # reg
-             if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             } else {
-               $self->{parse_error}->();
-               ## reconsume
-             }
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (101, $self->{next_input_character});
-           $self->{next_input_character} = 114;
-         }
-       } elsif ($self->{next_input_character} == 102) { # f
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 111) { # o
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 111) { # o
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{230B}>}; # rfloor
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (102, 108, 111, 111, $self->{next_input_character});
-                 $self->{next_input_character} = 114;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (102, 108, 111, $self->{next_input_character});
-               $self->{next_input_character} = 114;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (102, 108, $self->{next_input_character});
-             $self->{next_input_character} = 114;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (102, $self->{next_input_character});
-           $self->{next_input_character} = 114;
-         }
-       } elsif ($self->{next_input_character} == 104) { # h
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 111) { # o
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           {
-             $r = {type => 'character', data => qq<\x{03C1}>}; # rho
-             if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             } else {
-               $self->{parse_error}->();
-               ## reconsume
-             }
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (104, $self->{next_input_character});
-           $self->{next_input_character} = 114;
-         }
-       } elsif ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 109) { # m
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           {
-             $r = {type => 'character', data => qq<\x{200F}>}; # rlm
-             if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             } else {
-               $self->{parse_error}->();
-               ## reconsume
-             }
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (108, $self->{next_input_character});
-           $self->{next_input_character} = 114;
-         }
-       } elsif ($self->{next_input_character} == 115) { # s
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 113) { # q
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 117) { # u
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 111) { # o
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{203A}>}; # rsaquo
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (115, 97, 113, 117, $self->{next_input_character});
-                 $self->{next_input_character} = 114;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (115, 97, 113, $self->{next_input_character});
-               $self->{next_input_character} = 114;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (115, 97, $self->{next_input_character});
-             $self->{next_input_character} = 114;
-           }
-         } elsif ($self->{next_input_character} == 113) { # q
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 117) { # u
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 111) { # o
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{2019}>}; # rsquo
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (115, 113, 117, $self->{next_input_character});
-               $self->{next_input_character} = 114;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (115, 113, $self->{next_input_character});
-             $self->{next_input_character} = 114;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (115, $self->{next_input_character});
-           $self->{next_input_character} = 114;
-         }
-       } else {
-         $self->{parse_error}->();
-         unshift @{$self->{char}},  ($self->{next_input_character});
-         $self->{next_input_character} = 114;
-       }
-     } elsif ($self->{next_input_character} == 115) { # s
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-       if ($self->{next_input_character} == 98) { # b
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 113) { # q
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 117) { # u
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 111) { # o
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{201A}>}; # sbquo
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (98, 113, 117, $self->{next_input_character});
-               $self->{next_input_character} = 115;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (98, 113, $self->{next_input_character});
-             $self->{next_input_character} = 115;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (98, $self->{next_input_character});
-           $self->{next_input_character} = 115;
-         }
-       } elsif ($self->{next_input_character} == 99) { # c
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 111) { # o
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 110) { # n
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{0161}>}; # scaron
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (99, 97, 114, 111, $self->{next_input_character});
-                 $self->{next_input_character} = 115;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (99, 97, 114, $self->{next_input_character});
-               $self->{next_input_character} = 115;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (99, 97, $self->{next_input_character});
-             $self->{next_input_character} = 115;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (99, $self->{next_input_character});
-           $self->{next_input_character} = 115;
-         }
-       } elsif ($self->{next_input_character} == 100) { # d
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 111) { # o
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 116) { # t
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{22C5}>}; # sdot
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (100, 111, $self->{next_input_character});
-             $self->{next_input_character} = 115;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (100, $self->{next_input_character});
-           $self->{next_input_character} = 115;
-         }
-       } elsif ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 99) { # c
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 116) { # t
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{00A7}>}; # sect
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (101, 99, $self->{next_input_character});
-             $self->{next_input_character} = 115;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (101, $self->{next_input_character});
-           $self->{next_input_character} = 115;
-         }
-       } elsif ($self->{next_input_character} == 104) { # h
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 121) { # y
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           {
-             $r = {type => 'character', data => qq<\x{00AD}>}; # shy
-             if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             } else {
-               $self->{parse_error}->();
-               ## reconsume
-             }
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (104, $self->{next_input_character});
-           $self->{next_input_character} = 115;
-         }
-       } elsif ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 103) { # g
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 109) { # m
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 102) { # f
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{03C2}>}; # sigmaf
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $r = {type => 'character', data => qq<\x{03C3}>}; # sigma
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (105, 103, 109, $self->{next_input_character});
-               $self->{next_input_character} = 115;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (105, 103, $self->{next_input_character});
-             $self->{next_input_character} = 115;
-           }
-         } elsif ($self->{next_input_character} == 109) { # m
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           {
-             $r = {type => 'character', data => qq<\x{223C}>}; # sim
-             if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             } else {
-               $self->{parse_error}->();
-               ## reconsume
-             }
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (105, $self->{next_input_character});
-           $self->{next_input_character} = 115;
-         }
-       } elsif ($self->{next_input_character} == 112) { # p
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 100) { # d
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 115) { # s
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{2660}>}; # spades
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (112, 97, 100, 101, $self->{next_input_character});
-                 $self->{next_input_character} = 115;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (112, 97, 100, $self->{next_input_character});
-               $self->{next_input_character} = 115;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (112, 97, $self->{next_input_character});
-             $self->{next_input_character} = 115;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (112, $self->{next_input_character});
-           $self->{next_input_character} = 115;
-         }
-       } elsif ($self->{next_input_character} == 117) { # u
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 98) { # b
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{2286}>}; # sube
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $r = {type => 'character', data => qq<\x{2282}>}; # sub
-             if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             } else {
-               $self->{parse_error}->();
-               ## reconsume
-             }
-           }
-         } elsif ($self->{next_input_character} == 109) { # m
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           {
-             $r = {type => 'character', data => qq<\x{2211}>}; # sum
-             if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             } else {
-               $self->{parse_error}->();
-               ## reconsume
-             }
-           }
-         } elsif ($self->{next_input_character} == 112) { # p
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 49) { # 1
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{00B9}>}; # sup1
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } elsif ($self->{next_input_character} == 50) { # 2
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{00B2}>}; # sup2
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } elsif ($self->{next_input_character} == 51) { # 3
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{00B3}>}; # sup3
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } elsif ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{2287}>}; # supe
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $r = {type => 'character', data => qq<\x{2283}>}; # sup
-             if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             } else {
-               $self->{parse_error}->();
-               ## reconsume
-             }
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (117, $self->{next_input_character});
-           $self->{next_input_character} = 115;
-         }
-       } elsif ($self->{next_input_character} == 122) { # z
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 103) { # g
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{00DF}>}; # szlig
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (122, 108, 105, $self->{next_input_character});
-               $self->{next_input_character} = 115;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (122, 108, $self->{next_input_character});
-             $self->{next_input_character} = 115;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (122, $self->{next_input_character});
-           $self->{next_input_character} = 115;
-         }
-       } else {
-         $self->{parse_error}->();
-         unshift @{$self->{char}},  ($self->{next_input_character});
-         $self->{next_input_character} = 115;
-       }
-     } elsif ($self->{next_input_character} == 116) { # t
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-       if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 117) { # u
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           {
-             $r = {type => 'character', data => qq<\x{03C4}>}; # tau
-             if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             } else {
-               $self->{parse_error}->();
-               ## reconsume
-             }
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (97, $self->{next_input_character});
-           $self->{next_input_character} = 116;
-         }
-       } elsif ($self->{next_input_character} == 104) { # h
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 52) { # 4
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{2234}>}; # there4
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (104, 101, 114, 101, $self->{next_input_character});
-                 $self->{next_input_character} = 116;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (104, 101, 114, $self->{next_input_character});
-               $self->{next_input_character} = 116;
-             }
-           } elsif ($self->{next_input_character} == 116) { # t
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 115) { # s
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 if ($self->{next_input_character} == 121) { # y
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   if ($self->{next_input_character} == 109) { # m
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                     {
-                       $r = {type => 'character', data => qq<\x{03D1}>}; # thetasym
-                       if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                       } else {
-                         $self->{parse_error}->();
-                         ## reconsume
-                       }
-                     }
-                   } else {
-                     $self->{parse_error}->();
-                     unshift @{$self->{char}},  (104, 101, 116, 97, 115, 121, $self->{next_input_character});
-                     $self->{next_input_character} = 116;
-                   }
-                 } else {
-                   $self->{parse_error}->();
-                   unshift @{$self->{char}},  (104, 101, 116, 97, 115, $self->{next_input_character});
-                   $self->{next_input_character} = 116;
-                 }
-               } else {
-                 $r = {type => 'character', data => qq<\x{03B8}>}; # theta
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (104, 101, 116, $self->{next_input_character});
-               $self->{next_input_character} = 116;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (104, 101, $self->{next_input_character});
-             $self->{next_input_character} = 116;
-           }
-         } elsif ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 110) { # n
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 115) { # s
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 112) { # p
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{2009}>}; # thinsp
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (104, 105, 110, 115, $self->{next_input_character});
-                 $self->{next_input_character} = 116;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (104, 105, 110, $self->{next_input_character});
-               $self->{next_input_character} = 116;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (104, 105, $self->{next_input_character});
-             $self->{next_input_character} = 116;
-           }
-         } elsif ($self->{next_input_character} == 111) { # o
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 110) { # n
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{00FE}>}; # thorn
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (104, 111, 114, $self->{next_input_character});
-               $self->{next_input_character} = 116;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (104, 111, $self->{next_input_character});
-             $self->{next_input_character} = 116;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (104, $self->{next_input_character});
-           $self->{next_input_character} = 116;
-         }
-       } elsif ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 100) { # d
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{02DC}>}; # tilde
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (105, 108, 100, $self->{next_input_character});
-               $self->{next_input_character} = 116;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (105, 108, $self->{next_input_character});
-             $self->{next_input_character} = 116;
-           }
-         } elsif ($self->{next_input_character} == 109) { # m
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 115) { # s
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{00D7}>}; # times
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (105, 109, 101, $self->{next_input_character});
-               $self->{next_input_character} = 116;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (105, 109, $self->{next_input_character});
-             $self->{next_input_character} = 116;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (105, $self->{next_input_character});
-           $self->{next_input_character} = 116;
-         }
-       } elsif ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 100) { # d
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{2122}>}; # trade
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (114, 97, 100, $self->{next_input_character});
-               $self->{next_input_character} = 116;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (114, 97, $self->{next_input_character});
-             $self->{next_input_character} = 116;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (114, $self->{next_input_character});
-           $self->{next_input_character} = 116;
-         }
-       } else {
-         $self->{parse_error}->();
-         unshift @{$self->{char}},  ($self->{next_input_character});
-         $self->{next_input_character} = 116;
-       }
-     } elsif ($self->{next_input_character} == 117) { # u
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-       if ($self->{next_input_character} == 65) { # A
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{21D1}>}; # uArr
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (65, 114, $self->{next_input_character});
-             $self->{next_input_character} = 117;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (65, $self->{next_input_character});
-           $self->{next_input_character} = 117;
-         }
-       } elsif ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 99) { # c
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 117) { # u
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 116) { # t
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{00FA}>}; # uacute
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (97, 99, 117, 116, $self->{next_input_character});
-                 $self->{next_input_character} = 117;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (97, 99, 117, $self->{next_input_character});
-               $self->{next_input_character} = 117;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (97, 99, $self->{next_input_character});
-             $self->{next_input_character} = 117;
-           }
-         } elsif ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{2191}>}; # uarr
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (97, 114, $self->{next_input_character});
-             $self->{next_input_character} = 117;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (97, $self->{next_input_character});
-           $self->{next_input_character} = 117;
-         }
-       } elsif ($self->{next_input_character} == 99) { # c
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 99) { # c
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{00FB}>}; # ucirc
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (99, 105, 114, $self->{next_input_character});
-               $self->{next_input_character} = 117;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (99, 105, $self->{next_input_character});
-             $self->{next_input_character} = 117;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (99, $self->{next_input_character});
-           $self->{next_input_character} = 117;
-         }
-       } elsif ($self->{next_input_character} == 103) { # g
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 118) { # v
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{00F9}>}; # ugrave
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (103, 114, 97, 118, $self->{next_input_character});
-                 $self->{next_input_character} = 117;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (103, 114, 97, $self->{next_input_character});
-               $self->{next_input_character} = 117;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (103, 114, $self->{next_input_character});
-             $self->{next_input_character} = 117;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (103, $self->{next_input_character});
-           $self->{next_input_character} = 117;
-         }
-       } elsif ($self->{next_input_character} == 109) { # m
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           {
-             $r = {type => 'character', data => qq<\x{00A8}>}; # uml
-             if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             } else {
-               $self->{parse_error}->();
-               ## reconsume
-             }
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (109, $self->{next_input_character});
-           $self->{next_input_character} = 117;
-         }
-       } elsif ($self->{next_input_character} == 112) { # p
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 115) { # s
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 104) { # h
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               {
-                 $r = {type => 'character', data => qq<\x{03D2}>}; # upsih
-                 if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 } else {
-                   $self->{parse_error}->();
-                   ## reconsume
-                 }
-               }
-             } elsif ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 111) { # o
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 if ($self->{next_input_character} == 110) { # n
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   {
-                     $r = {type => 'character', data => qq<\x{03C5}>}; # upsilon
-                     if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                     } else {
-                       $self->{parse_error}->();
-                       ## reconsume
-                     }
-                   }
-                 } else {
-                   $self->{parse_error}->();
-                   unshift @{$self->{char}},  (112, 115, 105, 108, 111, $self->{next_input_character});
-                   $self->{next_input_character} = 117;
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (112, 115, 105, 108, $self->{next_input_character});
-                 $self->{next_input_character} = 117;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (112, 115, 105, $self->{next_input_character});
-               $self->{next_input_character} = 117;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (112, 115, $self->{next_input_character});
-             $self->{next_input_character} = 117;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (112, $self->{next_input_character});
-           $self->{next_input_character} = 117;
-         }
-       } elsif ($self->{next_input_character} == 117) { # u
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 109) { # m
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{00FC}>}; # uuml
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (117, 109, $self->{next_input_character});
-             $self->{next_input_character} = 117;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (117, $self->{next_input_character});
-           $self->{next_input_character} = 117;
-         }
-       } else {
-         $self->{parse_error}->();
-         unshift @{$self->{char}},  ($self->{next_input_character});
-         $self->{next_input_character} = 117;
-       }
-     } elsif ($self->{next_input_character} == 119) { # w
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-       if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 114) { # r
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 112) { # p
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{2118}>}; # weierp
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (101, 105, 101, 114, $self->{next_input_character});
-                 $self->{next_input_character} = 119;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (101, 105, 101, $self->{next_input_character});
-               $self->{next_input_character} = 119;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (101, 105, $self->{next_input_character});
-             $self->{next_input_character} = 119;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (101, $self->{next_input_character});
-           $self->{next_input_character} = 119;
-         }
-       } else {
-         $self->{parse_error}->();
-         unshift @{$self->{char}},  ($self->{next_input_character});
-         $self->{next_input_character} = 119;
-       }
-     } elsif ($self->{next_input_character} == 120) { # x
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-       if ($self->{next_input_character} == 105) { # i
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         {
-           $r = {type => 'character', data => qq<\x{03BE}>}; # xi
-           if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           } else {
-             $self->{parse_error}->();
-             ## reconsume
-           }
-         }
-       } else {
-         $self->{parse_error}->();
-         unshift @{$self->{char}},  ($self->{next_input_character});
-         $self->{next_input_character} = 120;
-       }
-     } elsif ($self->{next_input_character} == 121) { # y
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-       if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 99) { # c
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 117) { # u
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             if ($self->{next_input_character} == 116) { # t
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                 {
-                   $r = {type => 'character', data => qq<\x{00FD}>}; # yacute
-                   if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-                   } else {
-                     $self->{parse_error}->();
-                     ## reconsume
-                   }
-                 }
-               } else {
-                 $self->{parse_error}->();
-                 unshift @{$self->{char}},  (97, 99, 117, 116, $self->{next_input_character});
-                 $self->{next_input_character} = 121;
-               }
-             } else {
-               $self->{parse_error}->();
-               unshift @{$self->{char}},  (97, 99, 117, $self->{next_input_character});
-               $self->{next_input_character} = 121;
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (97, 99, $self->{next_input_character});
-             $self->{next_input_character} = 121;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (97, $self->{next_input_character});
-           $self->{next_input_character} = 121;
-         }
-       } elsif ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 110) { # n
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           {
-             $r = {type => 'character', data => qq<\x{00A5}>}; # yen
-             if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             } else {
-               $self->{parse_error}->();
-               ## reconsume
-             }
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (101, $self->{next_input_character});
-           $self->{next_input_character} = 121;
-         }
-       } elsif ($self->{next_input_character} == 117) { # u
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 109) { # m
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 108) { # l
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{00FF}>}; # yuml
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (117, 109, $self->{next_input_character});
-             $self->{next_input_character} = 121;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (117, $self->{next_input_character});
-           $self->{next_input_character} = 121;
-         }
-       } else {
-         $self->{parse_error}->();
-         unshift @{$self->{char}},  ($self->{next_input_character});
-         $self->{next_input_character} = 121;
-       }
-     } elsif ($self->{next_input_character} == 122) { # z
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-       if ($self->{next_input_character} == 101) { # e
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 116) { # t
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 97) { # a
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{03B6}>}; # zeta
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (101, 116, $self->{next_input_character});
-             $self->{next_input_character} = 122;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (101, $self->{next_input_character});
-           $self->{next_input_character} = 122;
-         }
-       } elsif ($self->{next_input_character} == 119) { # w
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-         if ($self->{next_input_character} == 106) { # j
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           {
-             $r = {type => 'character', data => qq<\x{200D}>}; # zwj
-             if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             } else {
-               $self->{parse_error}->();
-               ## reconsume
-             }
-           }
-         } elsif ($self->{next_input_character} == 110) { # n
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-           if ($self->{next_input_character} == 106) { # j
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-             {
-               $r = {type => 'character', data => qq<\x{200C}>}; # zwnj
-               if ($self->{next_input_character} == 0x003B) { # ;
-       if (@{$self->{char}}) {
-         $self->{next_input_character} = shift @{$self->{char}};
-       } else {
-         $self->{set_next_input_character}->($self);
-       }
-               } else {
-                 $self->{parse_error}->();
-                 ## reconsume
-               }
-             }
-           } else {
-             $self->{parse_error}->();
-             unshift @{$self->{char}},  (119, 110, $self->{next_input_character});
-             $self->{next_input_character} = 122;
-           }
-         } else {
-           $self->{parse_error}->();
-           unshift @{$self->{char}},  (119, $self->{next_input_character});
-           $self->{next_input_character} = 122;
-         }
-       } else {
-         $self->{parse_error}->();
-         unshift @{$self->{char}},  ($self->{next_input_character});
-         $self->{next_input_character} = 122;
        }
+       return {type => 'character', data => $value};
      } else {
        $self->{parse_error}->();
+       ## NOTE: No characters are consumed in the spec.
+       unshift @{$self->{token}}, ({type => 'character', data => $value});
+       return undef;
      }
+   } else {
+     ## no characters are consumed
-   return $r;
+     $self->{parse_error}->();
+     return undef;
+   }
  } # _tokenize_attempt_to_consume_an_entity
  sub _initialize_tree_constructor ($) {

 Legend:



Removed from v.1.5
 


changed lines


 
Added in v.1.6
 Legend:



Removed from v.1.5
 


changed lines


 
Added in v.1.6
-Removed from v.1.5
+Added in v.1.6

admin@suikawiki.org	ViewVC Help
Powered by ViewVC 1.1.24