Conditionally replace 'other-window' fonts on sizing
[xboard.git] / parser.c
index 49ebb34..8378132 100644 (file)
--- a/parser.c
+++ b/parser.c
-/* A lexical scanner generated by flex */
-
-/* Scanner skeleton version:
- * $Header: /home/daffy/u0/vern/flex/RCS/flex.skl,v 2.91 96/09/10 16:58:48 vern Exp $
- */
-
-#define FLEX_SCANNER
-#define YY_FLEX_MAJOR_VERSION 2
-#define YY_FLEX_MINOR_VERSION 5
-
-#include <stdio.h>
-// #include <unistd.h>
-
-
-/* cfront 1.2 defines "c_plusplus" instead of "__cplusplus" */
-#ifdef c_plusplus
-#ifndef __cplusplus
-#define __cplusplus
-#endif
-#endif
-
-
-#ifdef __cplusplus
-
-#include <stdlib.h>
-
-/* Use prototypes in function declarations. */
-#define YY_USE_PROTOS
-
-/* The "const" storage-class-modifier is valid. */
-#define YY_USE_CONST
-
-#else  /* ! __cplusplus */
-
-#if __STDC__
-
-#define YY_USE_PROTOS
-#define YY_USE_CONST
-
-#endif /* __STDC__ */
-#endif /* ! __cplusplus */
-
-#ifdef __TURBOC__
- #pragma warn -rch
- #pragma warn -use
-#include <io.h>
-#include <stdlib.h>
-#define YY_USE_CONST
-#define YY_USE_PROTOS
-#endif
-
-#ifdef YY_USE_CONST
-#define yyconst const
-#else
-#define yyconst
-#endif
-
-
-#ifdef YY_USE_PROTOS
-#define YY_PROTO(proto) proto
-#else
-#define YY_PROTO(proto) ()
-#endif
-
-/* Returned upon end-of-file. */
-#define YY_NULL 0
-
-/* Promotes a possibly negative, possibly signed char to an unsigned
- * integer for use as an array index.  If the signed char is negative,
- * we want to instead treat it as an 8-bit unsigned char, hence the
- * double cast.
- */
-#define YY_SC_TO_UI(c) ((unsigned int) (unsigned char) c)
-
-/* Enter a start condition.  This macro really ought to take a parameter,
- * but we do it the disgusting crufty way forced on us by the ()-less
- * definition of BEGIN.
- */
-#define BEGIN yy_start = 1 + 2 *
-
-/* Translate the current start state into a value that can be later handed
- * to BEGIN to return to the state.  The YYSTATE alias is for lex
- * compatibility.
- */
-#define YY_START ((yy_start - 1) / 2)
-#define YYSTATE YY_START
-
-/* Action number for EOF rule of a given start state. */
-#define YY_STATE_EOF(state) (YY_END_OF_BUFFER + state + 1)
-
-/* Special action meaning "start processing a new file". */
-#define YY_NEW_FILE yyrestart( yyin )
-
-#define YY_END_OF_BUFFER_CHAR 0
-
-/* Size of default input buffer. */
-#define YY_BUF_SIZE 16384
-
-typedef struct yy_buffer_state *YY_BUFFER_STATE;
-
-extern int yyleng;
-extern FILE *yyin, *yyout;
-
-#define EOB_ACT_CONTINUE_SCAN 0
-#define EOB_ACT_END_OF_FILE 1
-#define EOB_ACT_LAST_MATCH 2
-
-/* The funky do-while in the following #define is used to turn the definition
- * int a single C statement (which needs a semi-colon terminator).  This
- * avoids problems with code like:
- *
- *     if ( condition_holds )
- *             yyless( 5 );
- *     else
- *             do_something_else();
- *
- * Prior to using the do-while the compiler would get upset at the
- * "else" because it interpreted the "if" statement as being all
- * done when it reached the ';' after the yyless() call.
- */
-
-/* Return all but the first 'n' matched characters back to the input stream. */
-
-#define yyless(n) \
-       do \
-               { \
-               /* Undo effects of setting up yytext. */ \
-               *yy_cp = yy_hold_char; \
-               YY_RESTORE_YY_MORE_OFFSET \
-               yy_c_buf_p = yy_cp = yy_bp + n - YY_MORE_ADJ; \
-               YY_DO_BEFORE_ACTION; /* set up yytext again */ \
-               } \
-       while ( 0 )
-
-#define unput(c) yyunput( c, yytext_ptr )
-
-/* The following is because we cannot portably get our hands on size_t
- * (without autoconf's help, which isn't available because we want
- * flex-generated scanners to compile on their own).
- */
-typedef unsigned int yy_size_t;
-
-
-struct yy_buffer_state
-       {
-       FILE *yy_input_file;
-
-       char *yy_ch_buf;                /* input buffer */
-       char *yy_buf_pos;               /* current position in input buffer */
-
-       /* Size of input buffer in bytes, not including room for EOB
-        * characters.
-        */
-       yy_size_t yy_buf_size;
-
-       /* Number of characters read into yy_ch_buf, not including EOB
-        * characters.
-        */
-       int yy_n_chars;
-
-       /* Whether we "own" the buffer - i.e., we know we created it,
-        * and can realloc() it to grow it, and should free() it to
-        * delete it.
-        */
-       int yy_is_our_buffer;
-
-       /* Whether this is an "interactive" input source; if so, and
-        * if we're using stdio for input, then we want to use getc()
-        * instead of fread(), to make sure we stop fetching input after
-        * each newline.
-        */
-       int yy_is_interactive;
-
-       /* Whether we're considered to be at the beginning of a line.
-        * If so, '^' rules will be active on the next match, otherwise
-        * not.
-        */
-       int yy_at_bol;
-
-       /* Whether to try to fill the input buffer when we reach the
-        * end of it.
-        */
-       int yy_fill_buffer;
-
-       int yy_buffer_status;
-#define YY_BUFFER_NEW 0
-#define YY_BUFFER_NORMAL 1
-       /* When an EOF's been seen but there's still some text to process
-        * then we mark the buffer as YY_EOF_PENDING, to indicate that we
-        * shouldn't try reading from the input source any more.  We might
-        * still have a bunch of tokens to match, though, because of
-        * possible backing-up.
-        *
-        * When we actually see the EOF, we change the status to "new"
-        * (via yyrestart()), so that the user can continue scanning by
-        * just pointing yyin at a new input file.
-        */
-#define YY_BUFFER_EOF_PENDING 2
-       };
-
-static YY_BUFFER_STATE yy_current_buffer = 0;
-
-/* We provide macros for accessing buffer states in case in the
- * future we want to put the buffer states in a more general
- * "scanner state".
- */
-#define YY_CURRENT_BUFFER yy_current_buffer
-
-
-/* yy_hold_char holds the character lost when yytext is formed. */
-static char yy_hold_char;
-
-static int yy_n_chars;         /* number of characters read into yy_ch_buf */
-
-
-int yyleng;
-
-/* Points to current character in buffer. */
-static char *yy_c_buf_p = (char *) 0;
-static int yy_init = 1;                /* whether we need to initialize */
-static int yy_start = 0;       /* start state number */
-
-/* Flag which is used to allow yywrap()'s to do buffer switches
- * instead of setting up a fresh yyin.  A bit of a hack ...
- */
-static int yy_did_buffer_switch_on_eof;
-
-void yyrestart YY_PROTO(( FILE *input_file ));
-
-void yy_switch_to_buffer YY_PROTO(( YY_BUFFER_STATE new_buffer ));
-void yy_load_buffer_state YY_PROTO(( void ));
-YY_BUFFER_STATE yy_create_buffer YY_PROTO(( FILE *file, int size ));
-void yy_delete_buffer YY_PROTO(( YY_BUFFER_STATE b ));
-void yy_init_buffer YY_PROTO(( YY_BUFFER_STATE b, FILE *file ));
-void yy_flush_buffer YY_PROTO(( YY_BUFFER_STATE b ));
-#define YY_FLUSH_BUFFER yy_flush_buffer( yy_current_buffer )
-
-YY_BUFFER_STATE yy_scan_buffer YY_PROTO(( char *base, yy_size_t size ));
-YY_BUFFER_STATE yy_scan_string YY_PROTO(( yyconst char *yy_str ));
-YY_BUFFER_STATE yy_scan_bytes YY_PROTO(( yyconst char *bytes, int len ));
-
-static void *yy_flex_alloc YY_PROTO(( yy_size_t ));
-static void *yy_flex_realloc YY_PROTO(( void *, yy_size_t ));
-static void yy_flex_free YY_PROTO(( void * ));
-
-#define yy_new_buffer yy_create_buffer
-
-#define yy_set_interactive(is_interactive) \
-       { \
-       if ( ! yy_current_buffer ) \
-               yy_current_buffer = yy_create_buffer( yyin, YY_BUF_SIZE ); \
-       yy_current_buffer->yy_is_interactive = is_interactive; \
-       }
-
-#define yy_set_bol(at_bol) \
-       { \
-       if ( ! yy_current_buffer ) \
-               yy_current_buffer = yy_create_buffer( yyin, YY_BUF_SIZE ); \
-       yy_current_buffer->yy_at_bol = at_bol; \
-       }
-
-#define YY_AT_BOL() (yy_current_buffer->yy_at_bol)
-
-
-#define YY_USES_REJECT
-typedef unsigned char YY_CHAR;
-FILE *yyin = (FILE *) 0, *yyout = (FILE *) 0;
-typedef int yy_state_type;
-extern char *yytext;
-#define yytext_ptr yytext
-
-static yy_state_type yy_get_previous_state YY_PROTO(( void ));
-static yy_state_type yy_try_NUL_trans YY_PROTO(( yy_state_type current_state ));
-static int yy_get_next_buffer YY_PROTO(( void ));
-static void yy_fatal_error YY_PROTO(( yyconst char msg[] ));
-
-/* Done after the current pattern has been matched and before the
- * corresponding action - sets up yytext.
- */
-#define YY_DO_BEFORE_ACTION \
-       yytext_ptr = yy_bp; \
-       yyleng = (int) (yy_cp - yy_bp); \
-       yy_hold_char = *yy_cp; \
-       *yy_cp = '\0'; \
-       yy_c_buf_p = yy_cp;
-
-#define YY_NUM_RULES 42
-#define YY_END_OF_BUFFER 43
-static yyconst short int yy_acclist[661] =
-    {   0,
-       43,   41,   42,   41,   42,   41,   42,   40,   41,   42,
-       41,   42,   25,   41,   42,   41,   42,   40,   41,   42,
-       40,   41,   42,16410,   40,   41,   42,16410,   41,   42,
-       40,   41,   42,   40,   41,   42,   40,   41,   42,   40,
-       41,   42,   40,   41,   42,   40,   41,   42,   40,   41,
-       42,   40,   41,   42,   40,   41,   42,   40,   41,   42,
-       40,   41,   42,   40,   41,   42,   40,   41,   42,   41,
-       42,   40,   41,   42,   40,   41,   42,   40,   41,   42,
-       40,   41,   42,   40,   41,   42,   40,   41,   42,   40,
-       41,   42,   40,   41,   42,   40,   41,   42,   41,   42,
-
-       41,   42,   40,   41,   42,   40,   41,   42,   40,   41,
-       42,16410,   40,   41,   42,16410,   41,   42,   40,   41,
-       42,   40,   41,   42,   40,   41,   42,   40,   41,   42,
-       40,   41,   42,   40,   41,   42,   40,   41,   42,   40,
-       41,   42,   40,   41,   42,   40,   41,   42,   40,   41,
-       42,   40,   41,   42,   40,   41,   42,   40,   41,   42,
-       40,   41,   42,   40,   41,   42,   40,   41,   42,   40,
-       41,   42,   40,   41,   42,   40,   41,   42,   40,   41,
-       42,   40,   41,   42,   41,   42,   33,   40,   17,   40,
-        9,   40,   40,   40,16410, 8218,   40,   35,   40,   40,
-
-       40,   40,   40,   40,   40,   40,   40,   40,   40,    9,
-       40,   40,   40,   40,   40,   40,   36,   40,    3,   40,
-       40,   40,    4,   40,   40,    3,   40,   40,    4,   40,
-       40,   40,   40,    9,   40,   34,   40,   40,    9,   40,
-       40,   40,16410, 8218,   40,   40,   40,   40,   40,   40,
-       40,   40,   40,   40,   40,   40,    9,   40,   40,   40,
-       40,   40,   40,   40,    3,   40,   40,   40,    4,   40,
-       40,    3,   40,   40,    4,   40,   40,   40,   40,    9,
-       40,   15,    9,   40,   23,   40,   23,    8,   40, 8218,
-       22,   40,   22,   24,   40,   40,   40,    6,   40,   40,
-
-       40,   40,   40,   40,   40,    9,   40,   40,   40,   40,
-       40,   20,   40,    4,   40,   40,    3,   40,   40,    3,
-       40,    4,    5,   40,    4,   40,   40,    4,   40,   40,
-       40,    3,   40,    4,    4,   40,    5,    6,   40,    4,
-       40,   40,    9,   40,   34,   39,    9,   40,   23,   40,
-        8,   40,   22,   40,   35,   40,   40,   40,    6,   40,
-       40,   40,   40,   40,   40,   40,    9,   40,   40,   40,
-       40,   40,   20,   40,    4,   40,   40,    3,   40,   40,
-        3,   40,    5,   40,    4,   40,   40,    4,   40,   40,
-       40,    3,   40,    4,   40,    5,    6,   40,    4,   40,
-
-       40,    9,   40,   38,   38,   37,   25,   25,   40,    6,
-       40,    7,   40,    6,   10,   40,   40,   40,   40,   19,
-       40,   40,   21,   40,   16,   40,   40,   40,   40,   40,
-       20,   20,   40,   20,   40,   36,    3,    3,    2,   40,
-        5,    4,    5,   40,   40,    4,    4,   40,    2,    7,
-       40,    5,    6,    5,    6,   40,    5,   40,   40,   40,
-       25,   39,   40,    6,   40,    7,   40,   40,   40,   40,
-       40,   19,   40,   40,   21,   40,   16,   40,   40,   40,
-       40,   40,   20,   40,   20,   20,   40,    2,   40,    5,
-       40,   40,    4,   40,    2,    7,   40,    5,    6,   40,
-
-        5,   40,   40,   40,    7,    1,   40,   40,   40,   19,
-       40,   40,   40,   21,   21,   40,   21,   40,   40,   40,
-       40,   30,   36,    2,    2,   40,    5,    4,    5,    5,
-       40,    2,    7,   39,    1,   40,   40,   40,   19,   40,
-       40,   40,   21,   40,   21,   21,   40,   40,   40,   40,
-       20,   39,    2,   40,    5,   40,   27,   38,   23,   23,
-       22,   22,   24,   24,   20,   21,    1,    1,   40,   40,
-       40,   40,   11,   40,   40,   28,   36,   30,    2,    2,
-        5,   27,   34,   39,   39,    1,   40,   40,   40,   40,
-       21,   39,   11,   40,   40,   20,   39,   18,   24,   20,
-
-       21,    1,    1,   19,   40,   40,   40,   11,   40,   40,
-       40,   40,   21,   39,   40,   11,   40,   40,   12,   40,
-       40,   40,   40,   12,   40,   40,   14,   40,   40,   40,
-       14,   40,   40,   40,   39,   40,   40,   40,   40,   39,
-       39,   40,   40,   31,   40,   39,   39,   31,   40,   13,
-       31,   32,   32,   35,   39,   39,   31,   39,   34,   29
-    } ;
-
-static yyconst short int yy_accept[712] =
-    {   0,
-        1,    1,    1,    2,    4,    6,    8,   11,   13,   16,
-       18,   21,   25,   29,   31,   34,   37,   40,   43,   46,
-       49,   52,   55,   58,   61,   64,   67,   70,   72,   75,
-       78,   81,   84,   87,   90,   93,   96,   99,  101,  103,
-      106,  109,  113,  117,  119,  122,  125,  128,  131,  134,
-      137,  140,  143,  146,  149,  152,  155,  158,  161,  164,
-      167,  170,  173,  176,  179,  182,  185,  187,  187,  188,
-      189,  189,  189,  189,  189,  190,  190,  190,  191,  191,
-      193,  193,  193,  193,  194,  194,  194,  196,  196,  198,
-      198,  199,  199,  200,  200,  201,  201,  201,  202,  203,
-
-      204,  205,  206,  207,  208,  209,  210,  212,  213,  214,
-      215,  216,  217,  217,  217,  217,  217,  218,  219,  221,
-      221,  222,  223,  225,  226,  228,  228,  229,  231,  232,
-      233,  234,  236,  236,  236,  236,  237,  237,  238,  238,
-      239,  241,  241,  242,  244,  244,  246,  246,  247,  248,
-      248,  249,  250,  251,  252,  253,  254,  255,  256,  257,
-      259,  260,  261,  262,  263,  264,  265,  267,  267,  268,
-      269,  271,  272,  274,  274,  275,  277,  278,  279,  280,
-      282,  282,  282,  282,  282,  282,  282,  282,  282,  282,
-      282,  282,  283,  283,  283,  283,  285,  287,  288,  290,
-
-      291,  291,  291,  291,  293,  294,  295,  295,  295,  295,
-      295,  296,  296,  297,  297,  298,  298,  298,  300,  301,
-      302,  303,  304,  305,  306,  308,  309,  310,  311,  312,
-      314,  314,  314,  314,  314,  316,  316,  317,  317,  317,
-      319,  320,  322,  323,  325,  325,  325,  327,  328,  330,
-      331,  331,  332,  334,  335,  337,  340,  342,  343,  345,
-      346,  346,  346,  346,  346,  347,  349,  351,  353,  355,
-      355,  356,  356,  357,  358,  358,  359,  361,  362,  363,
-      364,  365,  366,  367,  369,  370,  371,  372,  373,  375,
-      377,  378,  378,  380,  381,  383,  385,  387,  388,  390,
-
-      391,  391,  392,  394,  396,  399,  401,  402,  404,  404,
-      404,  405,  406,  406,  406,  407,  407,  407,  408,  408,
-      409,  409,  409,  409,  410,  410,  410,  410,  410,  410,
-      410,  410,  410,  410,  410,  410,  412,  412,  412,  414,
-      415,  416,  417,  417,  418,  419,  420,  422,  422,  423,
-      425,  427,  428,  429,  430,  431,  432,  434,  436,  436,
-      436,  436,  436,  437,  438,  438,  439,  441,  442,  443,
-      443,  443,  443,  445,  446,  447,  447,  449,  449,  452,
-      454,  457,  459,  460,  461,  461,  462,  462,  462,  462,
-      462,  463,  463,  464,  464,  464,  466,  468,  469,  469,
-
-      470,  471,  472,  474,  475,  477,  479,  480,  481,  482,
-      483,  485,  486,  488,  490,  492,  493,  495,  498,  501,
-      503,  504,  505,  505,  505,  505,  505,  505,  505,  505,
-      505,  505,  505,  505,  505,  505,  505,  505,  505,  505,
-      506,  508,  509,  510,  510,  512,  512,  513,  514,  515,
-      517,  519,  520,  521,  522,  522,  522,  524,  524,  524,
-      525,  525,  525,  527,  528,  528,  529,  530,  530,  532,
-      532,  534,  534,  534,  534,  534,  534,  534,  535,  535,
-      535,  537,  538,  539,  541,  542,  543,  545,  546,  548,
-      549,  550,  551,  553,  555,  557,  557,  557,  559,  559,
-
-      559,  560,  560,  561,  561,  562,  562,  563,  563,  564,
-      564,  565,  565,  565,  565,  565,  567,  567,  568,  568,
-      568,  570,  571,  571,  571,  571,  571,  571,  572,  573,
-      575,  576,  578,  578,  579,  580,  581,  582,  582,  582,
-      584,  584,  584,  585,  586,  586,  586,  588,  589,  590,
-      591,  593,  595,  596,  598,  598,  599,  599,  599,  599,
-      600,  600,  600,  600,  602,  602,  603,  604,  604,  605,
-      605,  605,  605,  605,  606,  607,  608,  610,  611,  611,
-      611,  611,  611,  611,  612,  613,  615,  616,  618,  619,
-      619,  619,  619,  619,  619,  619,  620,  620,  620,  620,
-
-      620,  621,  622,  622,  622,  622,  622,  623,  624,  624,
-      624,  624,  624,  625,  625,  625,  625,  626,  627,  629,
-      629,  629,  629,  629,  630,  630,  631,  633,  633,  633,
-      633,  633,  634,  635,  635,  635,  635,  635,  636,  637,
-      638,  638,  638,  638,  638,  638,  639,  640,  640,  640,
-      640,  640,  641,  642,  643,  644,  644,  644,  644,  644,
-      644,  646,  646,  646,  646,  646,  647,  648,  650,  650,
-      650,  651,  651,  652,  652,  653,  653,  653,  655,  655,
-      656,  657,  657,  657,  657,  657,  659,  659,  659,  659,
-      659,  659,  659,  659,  659,  659,  659,  659,  659,  659,
-
-      659,  659,  659,  659,  659,  659,  659,  659,  660,  661,
-      661
-    } ;
-
-static yyconst int yy_ec[256] =
-    {   0,
-        1,    1,    1,    1,    1,    1,    1,    1,    2,    3,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    4,    1,    5,    6,    7,    8,    1,    9,   10,
-       11,   12,   13,    1,   14,   15,   16,   17,   18,   19,
-       20,   20,   20,   20,   20,   20,   21,   22,   23,    1,
-       24,    1,    1,   25,   26,   27,   28,   29,   30,   31,
-       32,   33,   34,   34,   35,   36,   37,   38,   39,   40,
-       41,   42,   43,   34,   44,   34,   45,   46,   34,   34,
-       47,    1,   48,    1,   49,    1,   50,   51,   52,   53,
-
-       54,   55,   56,   57,   58,   34,   59,   60,   61,   62,
-       63,   64,   41,   65,   66,   67,   68,   34,   69,   46,
-       70,   34,   71,    1,   72,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1
-    } ;
-
-static yyconst int yy_meta[73] =
-    {   0,
-        1,    2,    3,    2,    1,    1,    1,    1,    4,    5,
-        6,    1,    1,    7,    1,    1,    4,    8,    8,    8,
-        4,    9,    1,   10,    1,    4,   11,    4,    4,    4,
-        4,    4,    4,    4,   11,    4,    4,   11,   12,   12,
-       11,   11,    4,    4,    4,    7,    1,    1,    1,   13,
-       14,   13,   13,   15,   13,   13,   13,    4,   11,    4,
-        4,   11,   12,   12,   11,    4,    4,    4,    4,    4,
-        1,    1
-    } ;
-
-static yyconst short int yy_base[787] =
-    {   0,
-        0,   72, 2588, 4394,  119,  129,    0,  141, 2583,  139,
-      150,  171,  238, 2583,  257, 2527, 2518,  117,  159, 2518,
-     2530,  190,  142,  233,  191, 2512,  239,  317,  376,  420,
-      125,  205,  193,  114,  243,  120,  204,  331, 2574,  174,
-      353,  476,  258,  260,  543,  244,  282,  346,  311,  334,
-      256,  312,  365,  595,  331,  351,  354,  644,  688,  242,
-      348,  327,  365,  386,  303,  392,  552, 2521,  432,    0,
-     2566,  258,  557,  282, 4394, 2562,  393,  320, 2556, 2554,
-     2552,  342,  442, 2551,  457,  364,  605, 2550,    0, 2562,
-     4394,  576,  530,  617,  732,  625,  661,  449, 2514, 2509,
-
-     2512, 2517, 2492, 2493, 2490, 2517, 2515,  463,  572, 2503,
-     2494, 2489, 2502,  789,  372,  861, 4394,  669,  924,  705,
-      713,  468,  980,  765, 1032,  773,  789, 1076,  481,  637,
-     2486, 2485,  390, 2475,  830, 2542, 2541,  383, 2540,  617,
-      593,  546,  858,  874,  406,  579,  432,  865, 1120, 1005,
-      505,  683,  726,  727,  621,  872,  870,  876,  603,  873,
-      905,  665,  891,  884,  882,  973, 1168, 1013, 1049,  936,
-     1225, 1057, 1277, 1093, 1101, 1321,  641,  983,  928,  930,
-      896, 2478,  538,  543,  612, 2531,  622, 1030, 1221, 2528,
-     2466, 4394, 2532, 2531, 2529, 2518, 2527, 2526,    0, 4394,
-
-     2525, 2524, 2523, 2521, 2520,  443, 2465, 2459, 2471, 2466,
-      668,  709,  594, 1218,  732,  753,  756, 1365, 2467, 2466,
-     2446,  803,  906, 2460, 2498,    0, 2453, 2449, 2441, 1422,
-      689, 1069,  172, 1494,  790, 1251, 1294, 1302, 1415, 2496,
-      838,  976, 1288, 1557, 1413, 1449,  678,  629,  910, 1338,
-     1346,  992, 1105, 1502, 1057, 1609, 1182, 1100, 2492, 4394,
-     1510,  996, 2501,  191, 2501, 1172,  960,  962, 1158,  831,
-     2499, 1132, 1237,  889, 1482, 1300, 1653, 1176, 1228, 1010,
-     1273, 1315, 1175, 1190,    0, 1204, 1531, 1071, 1710, 1774,
-     1550, 1582, 1242, 1443, 1551, 1830, 1272, 1239, 1121, 1493,
-
-     1590, 1606, 1659, 1141, 1882, 1673, 1721, 1427, 1504, 2447,
-     4394,  843, 1025, 2489, 4394, 1727, 2487, 2485, 2423, 2422,
-     2475, 2474, 2473, 2473, 1010, 2472,  539, 2471, 1290, 1541,
-      610, 2421, 2421, 2414, 2414,    0,  939, 1197,    0, 4394,
-     4394, 1699, 1710, 1344, 2420, 2419,  885,  879, 1130, 1939,
-        0, 2438, 2420, 2421, 2420,    0, 2011, 2083,  733,  949,
-     1131, 1410, 2468, 2461, 1365, 4394, 2146, 1356, 1154,  689,
-     1752, 1796, 1157,  715, 2417, 2406,    0, 1386,    0, 1564,
-     2202, 1802, 1633, 2406, 1857, 2464, 1571, 1672, 2417, 2403,
-     2462, 1187, 1451, 1003,  894, 1295, 1470, 1718, 1855, 1823,
-
-     1555, 1665, 1782, 1796, 2267, 1574, 1588, 1826, 1647, 1674,
-     2339, 2460, 2411, 2475, 1840, 1858, 1608,    0, 2531, 1905,
-     1956, 1857, 1728, 2409, 2451, 1639, 2450, 2385, 2445, 2383,
-     2443, 2381, 2434, 1281, 2399, 2395, 2395, 2390, 1389, 4394,
-     2587, 2443, 1146, 1916, 2442, 1281, 2415, 2390,    0, 2652,
-     2724, 2378, 2378, 2428, 1322, 1883, 4394, 2426, 1966, 1457,
-     2002, 2076, 2419, 1428,  952, 4394, 2375, 2364,    0, 2410,
-     1544, 1774, 2396, 1877, 2392, 2347, 2341, 1521, 1030, 1255,
-     2787, 1676, 1881, 1788, 1891, 1861, 2852, 2402, 2924, 1963,
-     1841, 1944, 2402, 1691, 1649, 1816, 1235, 4394, 1979, 2393,
-
-     2392, 2330, 2329, 2389, 2388, 2326, 2325, 2385, 2381, 2319,
-     2318, 2366, 2362, 2315, 2323, 1377, 2320, 1778, 2004, 2102,
-     2355, 2310, 2348, 2304, 2287, 2326, 2288, 2289, 2264, 1524,
-     2279, 4394, 1980, 4394, 2317, 4394, 4394, 2312, 2053, 2319,
-     2268, 2261, 2315, 1999, 1555,  548, 1908, 1982, 1951, 1786,
-     2301, 2043, 2029, 2297, 2054, 4394, 2243, 2158, 2289, 2284,
-     2219, 2205, 2209, 4394, 2198, 2239, 4394, 2235, 2228, 2174,
-     2228, 2182, 2157, 2174, 2105, 2086,    0, 2061, 2130, 2120,
-     2054, 1040,  358, 2032, 2091, 2073, 2093, 1970, 2136, 2120,
-     1988, 2029, 1542, 1985, 1941, 1941, 1923,  884, 1858, 1831,
-
-     2996, 1815, 1772, 1768, 1617,  651, 3068, 2150, 2149, 1757,
-     1745, 1725, 4394, 1623, 1924, 2045, 3140, 2054,    0, 1631,
-     1594, 1302, 1202, 3212, 2158, 2066, 2040, 2177, 1577, 1531,
-     2110, 1524, 1496, 1455, 1427, 1308, 1895, 2162, 1448, 1422,
-     2179, 1319, 1298, 2163, 2154, 1285, 1115, 1083, 1117, 1726,
-     1576, 2196, 2198, 1062,  984, 2193, 2056,  930, 2153, 2166,
-        0,  902,  804,  803, 1618, 2210, 2238,    0, 2213,  583,
-     4394,  497, 2199,  486, 4394,  426,  460, 4394, 2116, 2203,
-     2254, 2231,  392,  317, 1804, 2255, 2281,  239, 2027,  829,
-     2006, 2117, 2293, 2295, 2298, 2299, 2303, 2317, 2321, 2322,
-
-     2323, 2365, 2366, 2369, 2370, 2371, 2233,  154, 4394, 4394,
-     3281, 3296, 3311, 3326, 3341, 3353, 3368, 3383, 3397, 3412,
-     3427, 3442, 3457, 3472, 3487, 3502, 3517, 3532, 3547, 3562,
-     3577, 3592, 3607, 3622, 3633, 3648, 3663, 3678, 3693, 3708,
-     3723, 3738, 3753, 3768, 3783, 3792, 3807, 3822, 3837, 3852,
-     3867, 3882, 3897, 3908, 3923, 3938, 3953, 3968, 3983, 3998,
-     4013, 4028, 4043, 4058, 4073, 4088, 4103, 4118, 4133, 4148,
-     4163, 4174, 4188, 4203, 4218, 4233, 4244, 4258, 4273, 4288,
-     4303, 4318, 4333, 4348, 4363, 4378
-    } ;
-
-static yyconst short int yy_def[787] =
-    {   0,
-      710,  710,  710,  710,  710,  710,  711,  712,  710,  710,
-      711,  710,   12,  713,  711,  711,  711,  711,   15,  711,
-      711,   15,  711,  711,   15,  711,  711,  714,  711,   15,
-       29,   29,   29,   29,   29,   29,  711,  715,  710,  716,
-      716,  710,   42,  713,  716,  716,  716,  716,   45,  716,
-      716,   45,  716,  716,   45,  716,  716,  716,   45,   58,
-       58,   58,   58,   58,   58,  716,  715,  710,  710,  711,
-      717,  718,  717,  710,  710,  710,  710,  711,  710,  711,
-      710,  719,  719,  711,  719,  710,   12,  710,  711,  713,
-      710,  710,  711,  710,  711,  710,  710,   95,  711,  711,
-
-      711,  711,  711,  711,  711,  711,  711,  711,   95,  711,
-      711,  711,  720,  714,  720,  721,  710,  711,  711,  710,
-      711,  711,  711,  711,  119,  710,  711,  123,   95,  711,
-      711,  711,  715,  722,  715,  710,  723,  716,  710,  716,
-      716,  710,  716,   42,  710,  716,  724,  716,  148,  710,
-      149,  716,  716,  716,  716,  716,  716,  716,  716,  716,
-      716,  149,  716,  716,  716,  148,  148,  710,  148,  716,
-      716,  148,  167,  710,  148,  171,  149,  716,  716,  716,
-      715,  710,  717,  725,  725,  726,  727,  717,  717,  728,
-      729,  710,  710,  710,  710,  711,  711,  710,  711,  710,
-
-      710,  710,  710,  711,  710,  710,  710,  710,  710,  710,
-      711,  710,   95,  710,  711,  710,  710,  711,  711,  711,
-      711,  711,  711,  711,  711,  218,  711,  711,  711,  730,
-      731,  732,  733,  734,  123,  710,  711,  710,  710,  711,
-      711,  711,  735,  711,  710,  710,  711,  711,  123,  711,
-      710,  711,  711,  735,  123,  244,  711,  711,  711,  710,
-      715,  710,  736,  710,  737,  716,  716,  716,  716,  738,
-      736,  739,  716,  149,  710,  716,  149,  716,  716,  716,
-      716,  716,  716,  716,  277,  716,  716,  716,  740,  716,
-      716,  710,  716,  716,  716,  290,  716,  716,  290,  291,
-
-      710,  716,  716,  290,  296,  716,  716,  716,  715,  710,
-      710,  741,  741,  742,  710,  743,  744,  744,  745,  745,
-      710,  710,  710,  711,  710,  710,  710,  710,  710,  710,
-      710,  710,  710,  710,  710,  711,  746,  710,  711,  710,
-      710,  711,  710,  711,  711,  711,  711,  710,  711,  747,
-      711,  711,  711,  711,  711,  748,  749,  749,  750,  750,
-      751,  752,  753,  710,  710,  710,  711,  754,  710,  710,
-      710,  710,  711,  711,  710,  710,  711,  710,  367,  754,
-      367,  711,  711,  711,  715,  710,  710,  710,  710,  710,
-      755,  710,  716,  756,  756,  716,  716,  291,  710,  716,
-
-      716,  716,  716,  716,  757,  716,  716,  716,  716,  716,
-      758,  748,  758,  716,  716,  716,  716,  414,  414,  716,
-      716,  716,  715,  710,  759,  760,  761,  762,  763,  764,
-      765,  766,  710,  710,  710,  710,  710,  710,  710,  710,
-      711,  711,  711,  710,  711,  710,  711,  711,  767,  768,
-      768,  711,  711,  711,  769,  770,  710,  771,  710,  772,
-      710,  710,  711,  710,  710,  710,  710,  710,  711,  710,
-      772,  715,  710,  710,  710,  710,  710,  773,  774,  774,
-      414,  716,  716,  716,  716,  716,  775,  767,  775,  716,
-      716,  716,  776,  716,  716,  715,  710,  710,  760,  761,
-
-      761,  762,  762,  763,  763,  764,  764,  765,  765,  766,
-      766,  710,  710,  710,  710,  710,  710,  777,  710,  710,
-      711,  711,  778,  710,  710,  710,  710,  711,  711,  711,
-      711,  710,  710,  710,  710,  710,  710,  710,  715,  710,
-      710,  710,  773,  773,  774,  774,  716,  716,  716,  716,
-      779,  716,  716,  776,  715,  710,  710,  760,  710,  710,
-      710,  710,  710,  710,  710,  710,  710,  778,  778,  710,
-      710,  710,  710,  711,  711,  711,  711,  711,  715,  710,
-      710,  774,  774,  716,  716,  779,  716,  716,  716,  715,
-      710,  710,  710,  710,  710,  710,  710,  710,  710,  710,
-
-      780,  711,  710,  710,  774,  774,  781,  716,  715,  710,
-      710,  710,  710,  710,  782,  782,  780,  617,  711,  710,
-      710,  774,  774,  781,  782,  624,  716,  715,  710,  710,
-      782,  617,  617,  710,  710,  774,  774,  783,  624,  624,
-      715,  710,  710,  782,  782,  617,  617,  710,  710,  774,
-      774,  783,  783,  624,  624,  715,  710,  710,  782,  782,
-      617,  784,  710,  785,  774,  783,  783,  624,  715,  710,
-      710,  710,  782,  784,  710,  710,  785,  710,  774,  783,
-      783,  715,  710,  710,  774,  783,  715,  710,  774,  715,
-      786,  786,  786,  786,  786,  786,  786,  786,  786,  786,
-
-      786,  786,  786,  786,  786,  786,  786,  710,  710,    0,
-      710,  710,  710,  710,  710,  710,  710,  710,  710,  710,
-      710,  710,  710,  710,  710,  710,  710,  710,  710,  710,
-      710,  710,  710,  710,  710,  710,  710,  710,  710,  710,
-      710,  710,  710,  710,  710,  710,  710,  710,  710,  710,
-      710,  710,  710,  710,  710,  710,  710,  710,  710,  710,
-      710,  710,  710,  710,  710,  710,  710,  710,  710,  710,
-      710,  710,  710,  710,  710,  710,  710,  710,  710,  710,
-      710,  710,  710,  710,  710,  710
-    } ;
-
-static yyconst short int yy_nxt[4467] =
-    {   0,
-        4,    4,    4,    5,    4,    4,    6,    4,    7,    8,
-        4,    9,   10,    7,    4,    4,   11,   12,   13,   13,
-       13,    4,   14,    4,    4,    7,   15,   16,   17,    7,
-        7,   18,    7,    7,   19,   20,   21,   22,   23,   24,
-       22,   25,   26,    7,   27,    7,   28,    4,    4,   29,
-       30,   31,   32,   33,   34,   35,   36,    7,   19,   20,
-       21,   22,   37,   24,   25,   26,    7,    7,   27,    7,
-       38,    4,    4,    4,    4,    5,    4,   39,    6,   39,
-        7,    8,    4,    9,   10,   40,    4,    4,   41,   42,
-       43,   43,   43,    4,   44,    4,    4,   40,   45,   46,
-
-       47,   40,   40,   48,   40,   40,   49,   50,   51,   52,
-       53,   54,   52,   55,   56,   40,   57,   40,   28,    4,
-        4,   58,   59,   60,   61,   62,   63,   64,   65,   40,
-       49,   50,   51,   52,   66,   54,   55,   56,   40,   40,
-       57,   40,   67,    4,   68,   69,   69,   69,   69,   69,
-       72,   75,   76,   77,  102,  106,  709,   73,   73,   73,
-       73,   73,  710,   78,  122,   79,   80,  123,   68,  123,
-      122,   81,   82,   82,   83,  123,  362,  123,  103,   70,
-      107,  130,   70,  710,   84,   85,   86,   87,   87,   87,
-       87,   87,   88,  710,  710,  139,   70,   89,   70,   70,
-
-       70,   70,   70,   70,   70,   89,   70,   70,   89,   89,
-       89,   89,   89,   70,   70,   70,   70,  131,   70,  363,
-       89,   89,   89,   89,   89,   89,   89,   89,   70,   89,
-       70,   70,   89,   89,   89,   89,   70,   70,   70,   70,
-       70,   82,   92,  122,  109,  123,  389,  123,   94,   70,
-       70,   70,   70,  710,  390,  122,  123,   97,  123,  710,
-       92,   82,   91,  147,   70,  139,  132,  186,  187,  101,
-       93,  138,   94,  710,   95,   95,   95,  139,   96,  139,
-      102,   97,  108,  108,  108,  108,  108,  108,  108,  108,
-       70,  190,  662,  122,  171,  111,  112,  123,  178,  123,
-
-      153,  112,   93,  139,  103,  158,   98,   98,   98,   98,
-       98,   98,   98,   98,  710,  710,   99,  113,  114,  114,
-      114,  113,  113,  113,  113,  113,  113,  113,  113,  113,
-      115,  113,  113,  134,  710,  710,  196,  197,  113,  113,
-      113,  113,   70,   82,   82,   82,  154,  135,  135,  135,
-      135,  135,  191,  170,   70,  139,   77,   92,  171,   70,
-       91,   70,   70,  113,  117,  113,  140,  139,   79,  141,
-      138,  138,  139,   70,  142,  139,  688,  170,  159,  171,
-      205,  171,  206,  155,  162,  231,  139,  113,  113,  118,
-      138,   70,  134,  119,  119,  119,  157,  120,  170,  171,
-
-       70,  171,  136,  160,  139,  179,  193,  156,  194,  265,
-      164,  165,  154,  139,  195,  170,  165,  163,  171,  117,
-      171,  121,  205,  155,  606,  122,  123,  122,  122,  122,
-      122,  122,  122,  124,  271,  272,  170,  125,  125,  125,
-      171,  126,  171,   82,   82,   82,  330,  156,   69,   69,
-       69,   69,   69,  556,  180,  201,  331,  202,   82,   82,
-       82,  136,  678,  203,  331,  127,  218,  218,  218,  128,
-      129,  128,  129,  129,  129,  129,  129,   82,   82,   83,
-      226,  226,  226,  684,   70,  244,  244,  244,  675,  143,
-       85,   86,  144,  144,  144,  144,  144,  145,  256,  256,
-
-      256,  138,  146,  138,  138,  138,  138,  138,  138,  138,
-      146,  138,  138,  146,  146,  146,  146,  146,  138,  138,
-      138,  138,  277,  277,  277,  146,  146,  146,  146,  146,
-      146,  146,  146,  138,  146,  138,  138,  146,  146,  146,
-      146,  138,  138,  138,  138,  138,   92,  184,  311,  265,
-       91,   70,  186,  312,  134,  205,  148,  206,   94,  683,
-      149,  149,  149,  198,  150,  181,  184,   97,  135,  135,
-      135,  135,  135,  188,  188,  188,  188,  188,  189,  211,
-      211,  211,  211,  211,  211,  211,  211,   70,  148,  218,
-      218,  218,  151,  151,  151,  151,  151,  151,  151,  151,
-
-      139,   70,  152,   70,  207,  583,  208,   70,   82,  268,
-       94,   70,  209,  433,  139,  710,  139,  210,   70,   97,
-      710,  186,  312,  136,  139,   70,  710,  434,  207,   70,
-      208,  314,  315,  266,  267,  671,  209,  227,  139,   70,
-      210,  284,  139,  376,  161,  161,  161,  161,  161,  161,
-      161,  161,   70,   91,  244,  244,  244,  166,  305,  305,
-      305,  167,  167,  167,  281,  168,  212,  212,  212,  212,
-      212,  212,  212,  212,  216,  216,  216,  216,  216,  216,
-      216,  216,  277,  277,  277,  336,  336,  336,  375,  169,
-      220,   70,  377,  170,  171,  170,  170,  170,  170,  170,
-
-      170,  172,  360,  376,  139,  173,  173,  173,  623,  174,
-      217,  217,  217,  217,  217,  217,  217,  217,  235,  235,
-      235,  235,  235,  235,  235,  235,  337,  337,  337,  468,
-      286,  248,  278,  175,   70,   70,  117,  176,  177,  176,
-      177,  177,  177,  177,  177,  213,  360,  139,  139,  339,
-      339,  339,  466,  214,  243,  243,  243,  243,  243,  243,
-      243,  243,  123,  123,  123,  123,  123,  123,  123,  123,
-      340,  340,  340,  341,  341,  341,  280,  213,  469,  279,
-      117,  215,  215,  215,  215,  215,  215,  215,  215,  113,
-      114,  114,  114,  113,  113,  113,  113,  113,  113,  113,
-
-      113,  113,  113,  113,  113,  678,  348,   70,   70,   70,
-      113,  113,  113,  113,  249,  249,  249,  249,  249,  249,
-      249,  249,  254,  254,  254,  254,  254,  254,  254,  254,
-      349,  691,  134,  271,  272,  113,  117,  113,  255,  255,
-      255,  255,  255,  255,  255,  255,  135,  135,  135,  135,
-      135,  261,  314,  315,  349,  367,  367,  367,  676,  113,
-      113,  113,  232,  232,  232,  233,   70,  113,  113,  113,
-      113,  113,  113,   70,  269,  113,  113,   82,   70,  139,
-       70,   70,  113,  113,   70,  113,  139,  138,  444,  710,
-       70,  139,   70,  139,  139,  139,   91,  139,  134,   70,
-
-      136,  136,  138,  139,  675,  139,  446,  113,  117,  309,
-      139,  268,  139,   70,  273,  273,  273,  273,  273,  273,
-      273,  273,  285,  285,  285,  524,  139,  336,  336,  336,
-      446,  113,  113,  236,  138,  282,   70,  237,   70,  281,
-      287,  288,  283,  289,   70,  238,  445,  239,  524,  139,
-      240,  139,  343,  296,  296,  296,  480,  139,  240,  350,
-      343,  240,  455,  325,  240,  240,  468,  136,   70,  237,
-       70,  350,  350,  241,  242,  241,  241,  241,  241,  241,
-      241,  139,  240,  139,  343,  240,  366,  672,  240,  245,
-      308,   70,  268,  367,  367,  367,  117,  244,  244,  244,
-
-      296,  296,  296,  246,  139,   91,  247,  386,  265,  379,
-      379,  379,  387,  388,  247,  537,  265,  247,   70,  427,
-      247,  247,  290,  290,  290,  290,  290,  290,  290,  290,
-      247,  139,   91,  248,  314,  315,  279,  668,  247,  184,
-      311,  247,   91,  605,  247,  250,  188,  188,  188,  188,
-      188,  189,  479,  251,  216,  216,  216,  216,  216,  216,
-      216,  216,  243,  243,  243,  243,  243,  243,  243,  243,
-      232,  232,  232,  233,  381,  381,  381,  250,  403,   70,
-      428,  252,  253,  252,  252,  252,  252,  252,  252,  213,
-      545,  668,  139,  256,  256,  256,  265,  214,  171,  171,
-
-      171,  171,  171,  171,  171,  171,  299,  299,  299,  299,
-      299,  299,  299,  299,  376,  366,  117,  339,  339,  339,
-      663,  213,  379,  379,  379,  215,  257,  215,  215,  258,
-      215,  215,  215,  274,   91,  362,  662,  410,  396,  396,
-      396,  275,  254,  254,  254,  254,  254,  254,  254,  254,
-      304,  304,  304,  304,  304,  304,  304,  304,  419,  419,
-      419,  329,  447,  377,  375,  274,   70,  467,  661,  276,
-      276,  276,  276,  276,  276,  276,  276,  236,  363,  139,
-       70,  291,  522,   70,   70,  393,  448,  394,  478,  292,
-      478,  239,  375,  139,  293,  395,  139,  139,   70,  339,
-
-      339,  339,  293,  407,   91,  293,  522,  370,  293,  293,
-      374,  139,   70,  291,  440,  440,  440,  294,  295,  294,
-      294,  294,  294,  294,  294,  139,  293,  401,  406,  293,
-      184,  311,  293,   70,  245,  248,   70,  316,  316,  316,
-      316,  316,  296,  296,  296,   70,  139,   70,  246,  139,
-       70,  297,  366,  376,  396,  396,  396,   91,  139,  297,
-      139,  408,  297,  139,  637,  297,  297,  338,  338,  338,
-      338,  338,  338,  338,  338,  297,  348,  364,  298,  402,
-       70,   70,  375,  297,  512,  364,  297,  556,  364,  297,
-      300,  364,  364,  139,  139,  557,  513,  245,  301,  429,
-
-      404,  364,  417,   70,   91,  368,  368,  368,   70,  364,
-       91,  246,  364,  526,  661,  364,  139,  397,  397,  397,
-      546,  139,  300,   70,  404,  298,  302,  303,  302,  302,
-      302,  302,  302,  302,  274,  455,  139,  527,  305,  305,
-      305,  370,  275,  241,  241,  241,  241,  241,  241,  241,
-      241,  365,  365,  365,  365,  365,  365,  365,  365,  636,
-      430,  441,  441,  441,  658,  371,  274,  650,  405,  532,
-      276,  306,  276,  276,  307,  276,  276,  276,  342,  372,
-      405,  405,  460,  460,  460,  657,  343,  252,  252,  252,
-      252,  252,  252,  252,  252,  378,  378,  378,  378,  378,
-
-      378,  378,  378,  471,  471,  471,  518,  518,  518,  465,
-      342,  456,  456,  456,  344,  344,  344,  344,  344,  344,
-      344,  344,  356,  356,  236,  356,  356,  356,  356,  356,
-      563,  356,  356,  356,  356,   70,  356,  356,  467,  369,
-      422,  364,  564,  356,  356,  356,  356,  369,  139,  364,
-      369,   70,  364,  369,  369,  364,  364,  457,  245,   70,
-      414,  414,  414,  369,  139,  364,  461,  268,  356,  356,
-      356,  369,  139,  364,  369,  369,  364,  369,   70,  364,
-      462,  465,  655,  369,  654,  265,  369,  358,  649,  369,
-      369,  139,  356,  356,  113,  232,  232,  232,  233,  369,
-
-      113,  113,  113,  113,  113,  113,  134,  369,  113,  113,
-      369,  245,  134,  369,  648,  113,  113,  423,  113,  380,
-      380,  380,  544,  392,  544,  246,  385,  385,  385,  385,
-      385,  338,  338,  338,  338,  338,  338,  338,  338,   70,
-      113,  117,  302,  302,  302,  302,  302,  302,  302,  302,
-      431,  431,  139,  461,  331,  370,  647,   91,   70,   70,
-      646,  366,  331,   70,  113,  113,  371,  462,  414,  414,
-      414,  139,  139,  371,   77,  136,  139,  576,   91,  665,
-      372,  136,   70,  373,  473,  265,   79,  372,  643,  577,
-      409,  373,   81,  265,  373,  139,   70,  373,  373,  294,
-
-      294,  294,  294,  294,  294,  294,  294,  373,  582,  139,
-      374,  432,  432,  482,   70,  373,   70,  465,  373,   91,
-       91,  373,  342,  418,  418,  418,  268,  139,  642,  139,
-      343,  365,  365,  365,  365,  365,  365,  365,  365,  378,
-      378,  378,  378,  378,  378,  378,  378,  468,  184,  498,
-      441,  441,  441,  499,  342,   70,  635,   70,  344,  382,
-      344,  344,  383,  344,  344,  344,  398,   70,  139,  366,
-      139,  622,  679,   70,  399,  474,  418,  418,  418,   92,
-      139,   70,   70,  375,   70,  475,  139,   86,  634,  630,
-      397,  397,  397,   88,  139,  139,  469,  139,  398,   70,
-
-      491,  536,  400,  400,  400,  400,  400,  400,  400,  400,
-      356,  356,  139,  356,  356,  356,  356,  356,  357,  356,
-      356,  356,  356,  483,  356,  356,  298,  492,   91,   70,
-      134,  412,  356,  356,  356,  376,  184,  311,  397,  397,
-      397,  496,  139,  426,  426,  426,  426,  426,  344,  344,
-      344,  344,  344,  344,  344,  344,  356,  356,  356,  439,
-      439,  439,  439,  439,  439,  439,  439,  400,  400,  400,
-      400,  400,  400,  400,  400,  413,  134,  613,  464,  664,
-      356,  356,   70,  245,  417,  444,  464,  519,  539,  464,
-       70,  444,  464,  464,   70,  139,   70,  246,  629,  136,
-
-      297,  520,  464,  139,   70,  371,   91,  139,  297,  139,
-      464,  297,  467,  464,  297,  297,  464,  139,  134,  441,
-      441,  441,  464,  556,  297,  621,  620,  298,  485,  555,
-      464,   70,  297,  464,   70,  297,  464,  464,  297,  371,
-      481,  481,  481,  484,  139,  540,  464,  139,   70,   70,
-      467,  585,  486,  372,  464,  374,  415,  464,  265,  134,
-      464,  139,  139,  689,  415,   70,   70,  415,  619,   70,
-      415,  415,  468,  472,  472,  472,  472,  472,  139,  139,
-      415,  490,  139,  416,  456,  456,  456,  136,  415,   70,
-      201,  415,  202,  416,  415,  398,  615,   91,  203,   70,
-
-      615,  553,  139,  399,  439,  439,  439,  439,  439,  439,
-      439,  439,  139,   70,  550,  467,   70,  548,  567,  268,
-      549,  495,  481,  481,  481,  523,  139,  398,  136,  139,
-      457,  400,  420,  400,  400,  421,  400,  400,  400,  449,
-      449,  548,  449,  449,  449,  449,  449,   92,  449,  449,
-      449,  449,   70,  449,  449,  631,  651,  524,  416,   70,
-      449,  449,  449,  449,   70,  139,  525,  533,  533,  533,
-      468,   70,  139,  481,  481,  481,  614,  139,   70,  631,
-      524,  533,  533,  533,  139,  449,  449,  449,  184,  311,
-       70,  139,  451,  584,  612,  558,  558,  558,  558,  558,
-
-      544,  392,  544,  139,  451,  451,  613,  596,  693,  449,
-      449,  356,  356,  534,  356,  356,  356,  356,  356,  495,
-      356,  356,  356,  356,  552,  356,  356,  534,  535,   91,
-      566,  158,  356,  356,  356,  356,  535,   70,  566,  535,
-       70,  566,  535,  535,  566,  566,  611,  560,   70,  610,
-      139,   70,  535,  139,  566,  134,  134,  356,  356,  356,
-      535,  139,  566,  535,  139,  566,  535,  590,  566,  579,
-      579,  579,  579,  579,  607,  392,  631,  260,  589,  632,
-      664,  356,  356,  356,  356,  461,  356,  356,  356,  356,
-      356,  639,  356,  356,  356,  356,  587,  356,  356,   70,
-
-      631,   70,  535,  633,  356,  356,  356,  356,  588,  670,
-      535,  519,  139,  535,  139,  640,  535,  535,   91,  693,
-      604,  671,  134,  603,  136,  136,  535,  602,  566,  356,
-      356,  356,  134,  609,  535,  644,  566,  535,  577,  566,
-      535,  631,  566,  566,   70,  588,  579,  579,  579,  579,
-      579,  134,  566,  356,  356,  461,  607,  139,   70,  645,
-      566,  638,  628,  566,  392,  631,  566,  184,  498,  462,
-      601,  139,  463,  685,  558,  558,  558,  558,  558,  134,
-      463,  134,  673,  463,  631,  631,  463,  463,  260,  631,
-      641,  136,  656,  653,  631,  134,  463,  631,  392,  659,
-
-      392,  540,  608,  627,  463,  392,  669,  463,  631,  631,
-      463,  371,  392,  631,  660,  134,  601,  653,  631,  673,
-      136,  631,  600,  666,  599,  372,  682,  653,  373,  653,
-      631,  598,  686,  134,  653,  693,  373,  597,  569,  373,
-      392,  653,  373,  373,  687,  569,  680,  667,  136,  567,
-      136,  653,  373,  653,  631,  374,  392,  392,  653,  596,
-      373,  564,  595,  373,  136,  653,  373,  449,  449,  653,
-      449,  449,  449,  449,  449,  450,  449,  449,  449,  449,
-      594,  449,  449,  134,  136,  653,  653,  593,  488,  449,
-      449,  449,  592,  653,  690,  693,  591,  693,  681,  392,
-
-      693,  693,  136,  392,  708,  693,  694,  686,  695,  653,
-      653,  696,  697,  449,  449,  449,  698,  392,  581,  693,
-      489,  580,  262,  693,  693,  693,  537,  536,  578,  575,
-      699,  574,  489,  489,  700,  701,  702,  449,  449,  356,
-      356,  573,  356,  356,  356,  356,  356,  357,  356,  356,
-      356,  356,  136,  356,  356,  572,  571,  570,  569,  105,
-      412,  356,  356,  356,  260,  567,  260,  693,  693,  260,
-      260,  693,  693,  693,  260,  565,  562,  561,  703,  704,
-      560,  559,  705,  706,  707,  356,  356,  356,  260,  511,
-      511,  509,  260,  260,  260,  509,  507,  507,  505,  505,
-
-      503,  503,  501,  501,  392,  551,  542,  541,  205,  356,
-      356,  356,  356,  198,  356,  356,  356,  356,  356,  357,
-      356,  356,  356,  356,  466,  356,  356,  538,  465,  536,
-      459,   92,  412,  356,  356,  356,  260,  260,  531,  530,
-      260,  260,  260,  529,  528,  444,   92,  517,  516,  515,
-      514,  434,  511,  509,  507,  505,  503,  356,  356,  356,
-      501,  187,  497,  493,  392,  477,  476,   74,  199,  470,
-      370,  366,  459,  454,  453,  452,  199,  443,  442,  438,
-      437,  356,  356,   70,  461,  436,  435,  205,  205,  199,
-      198,  198,  198,  320,  320,  318,  139,  318,  462,  187,
-
-      424,  494,  264,  392,  264,  384,  366,  355,  354,  494,
-      353,  352,  494,  351,  347,  494,  494,  346,  345,  335,
-      334,  333,  332,  329,  329,  494,  328,  327,  326,  325,
-      325,  324,  323,  494,  322,  321,  494,  320,  318,  494,
-      371,  311,  310,  265,  264,  262,  260,  199,  259,  117,
-      230,  229,  228,  199,  372,  225,  224,  415,  223,  222,
-      222,  221,  220,  219,   91,  415,  205,  204,  415,  198,
-      199,  415,  415,  198,  192,  184,  182,  137,  110,  105,
-      104,  415,  101,  100,  416,   91,   74,  710,  710,  415,
-      710,  710,  415,  710,  710,  415,  519,  710,  710,  710,
-
-      710,  710,  710,  710,  710,  710,  710,  710,  710,  710,
-      520,  710,  710,  521,  710,  710,  710,  710,  710,  710,
-      710,  521,  710,  710,  521,  710,  710,  521,  521,  710,
-      710,  710,  710,  710,  710,  710,  710,  521,  710,  710,
-      710,  710,  710,  710,  710,  521,  710,  710,  521,  710,
-      710,  521,  449,  449,  710,  449,  449,  449,  449,  449,
-      710,  449,  449,  449,  449,  710,  449,  449,  710,  710,
-      710,  710,  710,  449,  449,  449,  449,  710,  710,  710,
-      710,  710,  710,  710,  710,  710,  710,  710,  710,  710,
-      710,  710,  710,  710,  710,  710,  710,  710,  449,  449,
-
-      449,  710,  710,  710,  710,  710,  710,  710,  710,  710,
-      710,  710,  710,  710,  710,  710,  710,  710,  710,  710,
-      710,  710,  449,  449,  449,  449,  710,  449,  449,  449,
-      449,  449,  710,  449,  449,  449,  449,  710,  449,  449,
-      710,  710,  710,  710,  710,  449,  449,  449,  449,  710,
-      710,  710,  710,  710,  710,  710,  710,  710,  710,  710,
-      710,  710,  710,  710,  710,  710,  710,  710,  710,  710,
-      449,  449,  449,  710,  710,  710,  710,  451,  710,  710,
-      710,  710,  710,  710,  710,  710,  710,  710,  710,  451,
-      451,  710,  710,  710,  449,  449,  519,  710,  710,  710,
-
-      710,  710,  710,  710,  710,  710,  710,  710,  710,  710,
-      520,  710,  710,  547,  710,  710,  710,  710,  710,  710,
-      710,  547,  710,  710,  547,  710,  710,  547,  547,  710,
-      710,  710,  710,  710,  710,  710,  710,  547,  710,  710,
-      710,  710,  710,  710,  710,  547,  710,  710,  547,  710,
-      710,  547,  449,  449,  710,  449,  449,  449,  449,  449,
-      450,  449,  449,  449,  449,  710,  449,  449,  710,  710,
-      710,  710,  710,  488,  449,  449,  449,  710,  710,  710,
-      710,  710,  710,  710,  710,  710,  710,  710,  710,  710,
-      710,  710,  710,  710,  710,  710,  710,  710,  449,  449,
-
-      449,  710,  710,  710,  710,  710,  710,  710,  710,  710,
-      710,  710,  710,  710,  710,  710,  710,  710,  710,  710,
-      710,  710,  449,  449,  449,  449,  710,  449,  449,  449,
-      449,  449,  450,  449,  449,  449,  449,  710,  449,  449,
-      710,  710,  710,  710,  710,  488,  449,  449,  449,  710,
-      710,  710,  710,  710,  710,  710,  710,  710,  710,  710,
-      710,  710,  710,  710,  710,  710,  710,  710,  710,  710,
-      449,  449,  449,  710,  710,  710,  710,  489,  710,  710,
-      710,  710,  710,  710,  710,  710,  710,  710,  710,  489,
-      489,  710,  710,  710,  449,  449,  616,  616,  710,  616,
-
-      616,  616,  616,  616,  710,  616,  616,  616,  616,  710,
-      616,  616,  710,  710,  710,  710,  710,  616,  616,  616,
-      616,  710,  710,  710,  710,  710,  710,  618,  710,  710,
-      710,  710,  710,  710,  710,  710,  710,  710,  710,  710,
-      710,  710,  616,  616,  616,  710,  710,  710,  710,  710,
-      710,  618,  710,  710,  710,  710,  710,  710,  710,  710,
-      710,  710,  710,  710,  710,  710,  616,  616,  616,  616,
-      710,  616,  616,  616,  616,  616,  617,  616,  616,  616,
-      616,  710,  616,  616,  710,  710,  710,  710,  710,  625,
-      616,  616,  616,  710,  710,  710,  710,  710,  710,  626,
-
-      710,  710,  710,  710,  710,  710,  710,  710,  710,  710,
-      710,  710,  710,  710,  616,  616,  616,  710,  710,  710,
-      710,  710,  710,  626,  710,  710,  710,  710,  710,  710,
-      710,  710,  710,  710,  710,  710,  710,  710,  616,  616,
-      616,  616,  710,  616,  616,  616,  616,  616,  710,  616,
-      616,  616,  616,  710,  616,  616,  710,  710,  710,  710,
-      710,  616,  616,  616,  616,  710,  710,  710,  710,  710,
-      710,  618,  710,  710,  710,  710,  710,  710,  710,  710,
-      710,  710,  710,  710,  710,  710,  616,  616,  616,  710,
-      710,  710,  710,  710,  710,  618,  710,  710,  710,  710,
-
-      710,  710,  710,  710,  710,  710,  710,  710,  710,  710,
-      616,  616,  616,  616,  710,  616,  616,  616,  616,  616,
-      617,  616,  616,  616,  616,  710,  616,  616,  710,  710,
-      710,  710,  710,  625,  616,  616,  616,  710,  710,  710,
-      710,  710,  710,  626,  710,  710,  710,  710,  710,  710,
-      710,  710,  710,  710,  710,  710,  710,  710,  616,  616,
-      616,  710,  710,  710,  710,  710,  710,  626,  710,  710,
-      710,  710,  710,  710,  710,  710,  710,  710,  710,  710,
-      710,  710,  616,  616,   70,  710,  710,   70,   70,  710,
-      710,   70,   70,   70,   70,   70,   71,   71,   71,   71,
-
-       71,  710,   71,   71,   71,   71,   71,   71,   71,   71,
-       71,   90,   90,   90,   90,   90,   90,   90,   90,   90,
-       90,   90,   90,   90,   90,   90,  116,  116,  116,  116,
-      116,  116,  116,  116,  116,  116,  116,  116,  116,  116,
-      116,  133,  133,  133,  133,  133,  133,  133,  133,  133,
-      133,  133,  133,  133,  133,  133,  138,  710,  710,  138,
-      138,  138,  710,  138,  138,  138,  138,  138,  183,  183,
-      183,  183,  183,  710,  183,  183,  183,  183,  183,  183,
-      183,  183,  183,  185,  185,  185,  185,  185,  185,  185,
-      185,  185,  185,  185,  185,  185,  185,  185,  200,  200,
-
-      710,  710,  710,  710,  710,  710,  710,  200,  200,  200,
-      200,  200,  113,  113,  113,  113,  113,  113,  113,  113,
-      113,  113,  113,  113,  113,  113,  113,  234,  234,  234,
-      234,  234,  234,  234,  234,  234,  234,  234,  234,  234,
-      234,  234,  134,  134,  134,  134,  134,  134,  134,  134,
-      134,  134,  134,  134,  134,  134,  134,  263,  263,  263,
-      263,  263,  263,  263,  263,  263,  263,  263,  263,  263,
-      263,  263,  270,  270,  270,  270,  270,  270,  270,  270,
-      270,  270,  270,  270,  270,  270,  270,  185,  185,  185,
-      185,  185,  185,  185,  185,  185,  185,  185,  185,  185,
-
-      185,  185,  186,  186,  186,  186,  186,  186,  186,  186,
-      186,  186,  186,  186,  186,  186,  186,  313,  313,  313,
-      313,  313,  313,  313,  313,  313,  313,  313,  313,  313,
-      313,  313,  317,  317,  710,  317,  317,  317,  317,  317,
-      317,  317,  317,  317,  317,  317,  317,  319,  319,  710,
-      319,  319,  319,  319,  319,  319,  319,  319,  319,  319,
-      319,  319,  357,  357,  710,  357,  357,  357,  357,  357,
-      357,  357,  357,  357,  357,  357,  357,  359,  359,  359,
-      359,  359,  359,  359,  359,  359,  359,  359,  359,  359,
-      359,  359,  113,  113,  113,  113,  113,  113,  113,  113,
-
-      113,  113,  113,  113,  113,  113,  113,  361,  361,  361,
-      361,  361,  361,  361,  361,  361,  361,  361,  361,  361,
-      361,  361,  234,  234,  234,  234,  234,  234,  234,  234,
-      234,  234,  234,  234,  234,  234,  234,  369,  710,  710,
-      369,  710,  369,  369,  710,  710,  369,  369,  263,  263,
-      263,  263,  263,  263,  263,  263,  263,  263,  263,  263,
-      263,  263,  263,  391,  391,  391,  391,  391,  391,  391,
-      391,  391,  391,  391,  391,  391,  391,  391,  270,  270,
-      270,  270,  270,  270,  270,  270,  270,  270,  270,  270,
-      270,  270,  270,   90,   90,   90,   90,   90,   90,   90,
-
-       90,   90,   90,   90,   90,   90,   90,   90,  411,  411,
-      710,  411,  411,  411,  411,  411,  411,  411,  411,  411,
-      411,  411,  411,  313,  313,  313,  313,  313,  313,  313,
-      313,  313,  313,  313,  313,  313,  313,  313,  425,  425,
-      425,  425,  710,  425,  425,  425,  425,  425,  425,  425,
-      425,  425,  425,  183,  183,  183,  183,  183,  183,  183,
-      183,  183,  183,  183,  183,  183,  183,  183,  317,  317,
-      710,  317,  317,  317,  317,  317,  317,  317,  317,  317,
-      317,  317,  317,  319,  319,  710,  319,  319,  319,  319,
-      319,  319,  319,  319,  319,  319,  319,  319,  439,  710,
-
-      439,  710,  710,  710,  439,  439,  439,  450,  450,  710,
-      450,  450,  450,  450,  450,  450,  450,  450,  450,  450,
-      450,  450,  356,  356,  710,  356,  356,  356,  356,  356,
-      356,  356,  356,  356,  356,  356,  356,  357,  357,  710,
-      357,  357,  357,  357,  357,  357,  357,  357,  357,  357,
-      357,  357,  359,  359,  359,  359,  359,  359,  359,  359,
-      359,  359,  359,  359,  359,  359,  359,  361,  361,  361,
-      361,  361,  361,  361,  361,  361,  361,  361,  361,  361,
-      361,  361,  113,  113,  113,  113,  113,  113,  113,  113,
-      113,  113,  113,  113,  113,  113,  113,  458,  458,  458,
-
-      458,  458,  458,  458,  458,  458,  458,  458,  458,  458,
-      458,  458,  464,  710,  710,  710,  710,  464,  464,  710,
-      710,  464,  464,  391,  391,  391,  391,  391,  391,  391,
-      391,  391,  391,  391,  391,  391,  391,  391,   90,   90,
-       90,   90,   90,   90,   90,   90,   90,   90,   90,   90,
-       90,   90,   90,  487,  487,  710,  487,  487,  487,  487,
-      487,  487,  487,  487,  487,  487,  487,  487,  411,  411,
-      710,  411,  411,  411,  411,  411,  411,  411,  411,  411,
-      411,  411,  411,  425,  425,  425,  425,  710,  425,  425,
-      425,  425,  425,  425,  425,  425,  425,  425,  183,  183,
-
-      183,  183,  183,  183,  183,  183,  183,  183,  183,  183,
-      183,  183,  183,  500,  500,  710,  500,  500,  500,  500,
-      500,  500,  500,  500,  500,  500,  500,  500,  502,  502,
-      710,  502,  502,  502,  502,  502,  502,  502,  502,  502,
-      502,  502,  502,  504,  504,  710,  504,  504,  504,  504,
-      504,  504,  504,  504,  504,  504,  504,  504,  506,  506,
-      710,  506,  506,  506,  506,  506,  506,  506,  506,  506,
-      506,  506,  506,  508,  508,  710,  508,  508,  508,  508,
-      508,  508,  508,  508,  508,  508,  508,  508,  510,  510,
-      710,  510,  510,  510,  510,  510,  510,  510,  510,  510,
-
-      510,  510,  510,  449,  449,  710,  449,  449,  449,  449,
-      449,  449,  449,  449,  449,  449,  449,  449,  450,  450,
-      710,  450,  450,  450,  450,  450,  450,  450,  450,  450,
-      450,  450,  450,  359,  359,  359,  359,  359,  359,  359,
-      359,  359,  359,  359,  359,  359,  359,  359,  113,  113,
-      113,  113,  113,  113,  113,  113,  113,  113,  113,  113,
-      113,  113,  113,  458,  458,  458,  458,  458,  458,  458,
-      458,  458,  458,  458,  458,  458,  458,  458,  535,  710,
-      710,  710,  710,  535,  535,  710,  710,  535,  543,  543,
-      543,  543,  543,  543,  543,  543,  543,  543,  543,  543,
-
-      543,  543,  543,   90,   90,   90,   90,   90,   90,   90,
-       90,   90,   90,   90,   90,   90,   90,   90,  487,  487,
-      710,  487,  487,  487,  487,  487,  487,  487,  487,  487,
-      487,  487,  487,  554,  554,  554,  554,  554,  554,  554,
-      554,  554,  554,  554,  554,  554,  554,  554,  566,  710,
-      710,  710,  710,  566,  566,  710,  710,  566,  568,  568,
-      710,  568,  568,  568,  568,  568,  568,  568,  568,  568,
-      568,  568,  568,  586,  586,  586,  586,  586,  586,  586,
-      586,  586,  586,  586,  586,  586,  586,  586,  617,  617,
-      710,  617,  617,  617,  617,  617,  617,  617,  617,  617,
-
-      617,  617,  617,  624,  624,  710,  624,  624,  624,  624,
-      624,  624,  624,  624,  624,  624,  624,  624,  616,  616,
-      710,  616,  616,  616,  616,  616,  616,  616,  616,  616,
-      616,  616,  616,  652,  652,  652,  652,  652,  652,  652,
-      652,  652,  652,  652,  652,  652,  652,  652,  674,  674,
-      674,  674,  674,  674,  674,  674,  674,  674,  674,  674,
-      674,  674,  674,  677,  677,  677,  677,  677,  677,  677,
-      677,  677,  677,  677,  677,  677,  677,  677,  692,  692,
-      692,  692,  692,  692,  692,  692,  692,  692,  692,  692,
-      692,  692,  692,    3,  710,  710,  710,  710,  710,  710,
-
-      710,  710,  710,  710,  710,  710,  710,  710,  710,  710,
-      710,  710,  710,  710,  710,  710,  710,  710,  710,  710,
-      710,  710,  710,  710,  710,  710,  710,  710,  710,  710,
-      710,  710,  710,  710,  710,  710,  710,  710,  710,  710,
-      710,  710,  710,  710,  710,  710,  710,  710,  710,  710,
-      710,  710,  710,  710,  710,  710,  710,  710,  710,  710,
-      710,  710,  710,  710,  710,  710
-    } ;
-
-static yyconst short int yy_chk[4467] =
-    {   0,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    2,    2,    2,    2,    2,    2,    2,    2,
-        2,    2,    2,    2,    2,    2,    2,    2,    2,    2,
-        2,    2,    2,    2,    2,    2,    2,    2,    2,    2,
-
-        2,    2,    2,    2,    2,    2,    2,    2,    2,    2,
-        2,    2,    2,    2,    2,    2,    2,    2,    2,    2,
-        2,    2,    2,    2,    2,    2,    2,    2,    2,    2,
-        2,    2,    2,    2,    2,    2,    2,    2,    2,    2,
-        2,    2,    2,    2,    5,    6,    6,    6,    6,    6,
-        8,   10,   10,   11,   18,   23,  708,    8,    8,    8,
-        8,    8,   19,   11,   34,   11,   11,   34,    5,   34,
-       36,   11,   12,   12,   12,   36,  233,   31,   18,   12,
-       23,   31,   40,   19,   12,   12,   12,   12,   12,   12,
-       12,   12,   12,   22,   25,   40,   12,   12,   12,   12,
-
-       12,   12,   12,   12,   12,   12,   12,   12,   12,   12,
-       12,   12,   12,   12,   12,   12,   12,   37,   19,  233,
-       12,   12,   12,   12,   12,   12,   12,   12,   12,   12,
-       12,   12,   12,   12,   12,   12,   12,   12,   12,   12,
-       12,   13,   27,   33,   25,   33,  264,   33,   24,   22,
-       25,   13,   46,   13,  264,   32,   32,   24,   32,   13,
-       15,   43,   44,   44,   51,   46,   37,   72,   72,   32,
-       15,   43,   15,   43,   15,   15,   15,   51,   15,   43,
-       35,   15,   24,   24,   24,   24,   24,   24,   24,   24,
-       47,   74,  688,   35,   60,   27,   27,   35,   60,   35,
-
-       46,   27,   15,   47,   35,   51,   15,   15,   15,   15,
-       15,   15,   15,   15,   49,   52,   15,   28,   28,   28,
-       28,   28,   28,   28,   28,   28,   28,   28,   28,   28,
-       28,   28,   28,   38,   55,   49,   78,   78,   28,   28,
-       28,   28,   50,   82,   82,   82,   47,   38,   38,   38,
-       38,   38,   74,   65,   48,   50,   41,   57,   65,   56,
-      583,   41,   57,   28,   28,   28,   41,   48,   41,   41,
-       49,   52,   56,   53,   41,   57,  684,   62,   53,   62,
-       86,   62,   86,   48,   55,  115,   53,   28,   28,   29,
-       55,  138,  133,   29,   29,   29,   50,   29,   61,   61,
-
-       66,   61,   38,   53,  138,   66,   77,   48,   77,  145,
-       57,   57,   61,   66,   77,   63,   57,   56,   63,  115,
-       63,   29,  145,   64,  583,   29,   29,   29,   29,   29,
-       29,   29,   29,   30,  147,  147,   64,   30,   30,   30,
-       64,   30,   64,   83,   83,   83,  206,   64,   69,   69,
-       69,   69,   69,  683,   66,   83,  206,   83,   85,   85,
-       85,  133,  677,   83,  206,   30,   98,   98,   98,   30,
-       30,   30,   30,   30,   30,   30,   30,   42,   42,   42,
-      108,  108,  108,  676,   42,  122,  122,  122,  674,   42,
-       42,   42,   42,   42,   42,   42,   42,   42,  129,  129,
-
-      129,   42,   42,   42,   42,   42,   42,   42,   42,   42,
-       42,   42,   42,   42,   42,   42,   42,   42,   42,   42,
-       42,   42,  151,  151,  151,   42,   42,   42,   42,   42,
-       42,   42,   42,   42,   42,   42,   42,   42,   42,   42,
-       42,   42,   42,   42,   42,   42,   45,  183,  183,  142,
-      546,   45,  184,  184,   67,  327,   45,  327,   45,  672,
-       45,   45,   45,  142,   45,   67,   73,   45,   67,   67,
-       67,   67,   67,   73,   73,   73,   73,   73,   73,   93,
-       93,   93,   93,   93,   93,   93,   93,  146,   45,  109,
-      109,  109,   45,   45,   45,   45,   45,   45,   45,   45,
-
-      146,  141,   45,   54,   92,  546,   92,  213,   87,  141,
-       54,  159,   92,  331,  141,  213,   54,   92,   87,   54,
-       87,  185,  185,   67,  159,  140,   87,  331,   92,  155,
-       92,  187,  187,  140,  140,  670,   92,  109,  140,  213,
-       92,  159,  155,  248,   54,   54,   54,   54,   54,   54,
-       54,   54,   58,  606,  130,  130,  130,   58,  177,  177,
-      177,   58,   58,   58,  155,   58,   94,   94,   94,   94,
-       94,   94,   94,   94,   96,   96,   96,   96,   96,   96,
-       96,   96,  162,  162,  162,  211,  211,  211,  247,   58,
-      130,  152,  248,   58,   58,   58,   58,   58,   58,   58,
-
-       58,   59,  231,  370,  152,   59,   59,   59,  606,   59,
-       97,   97,   97,   97,   97,   97,   97,   97,  118,  118,
-      118,  118,  118,  118,  118,  118,  212,  212,  212,  374,
-      162,  247,  152,   59,  153,  154,  231,   59,   59,   59,
-       59,   59,   59,   59,   59,   95,  359,  153,  154,  215,
-      215,  215,  370,   95,  120,  120,  120,  120,  120,  120,
-      120,  120,  121,  121,  121,  121,  121,  121,  121,  121,
-      216,  216,  216,  217,  217,  217,  154,   95,  374,  153,
-      359,   95,   95,   95,   95,   95,   95,   95,   95,  114,
-      114,  114,  114,  114,  114,  114,  114,  114,  114,  114,
-
-      114,  114,  114,  114,  114,  664,  222,  235,  235,  235,
-      114,  114,  114,  114,  124,  124,  124,  124,  124,  124,
-      124,  124,  126,  126,  126,  126,  126,  126,  126,  126,
-      222,  690,  135,  270,  270,  114,  114,  114,  127,  127,
-      127,  127,  127,  127,  127,  127,  135,  135,  135,  135,
-      135,  135,  312,  312,  222,  241,  241,  241,  663,  114,
-      114,  116,  116,  116,  116,  116,  143,  116,  116,  116,
-      116,  116,  116,  148,  143,  116,  116,  144,  157,  143,
-      156,  160,  116,  116,  158,  116,  148,  144,  347,  144,
-      165,  157,  164,  156,  160,  144,  395,  158,  181,  163,
-
-      690,  135,  274,  165,  662,  164,  348,  116,  116,  181,
-      274,  160,  163,  161,  148,  148,  148,  148,  148,  148,
-      148,  148,  161,  161,  161,  598,  161,  249,  249,  249,
-      348,  116,  116,  119,  274,  157,  179,  119,  180,  156,
-      163,  164,  158,  165,  170,  119,  347,  119,  598,  179,
-      119,  180,  337,  170,  170,  170,  395,  170,  119,  223,
-      337,  119,  360,  267,  119,  119,  465,  181,  267,  119,
-      268,  223,  223,  119,  119,  119,  119,  119,  119,  119,
-      119,  267,  119,  268,  337,  119,  242,  658,  119,  123,
-      179,  178,  180,  242,  242,  242,  360,  123,  123,  123,
-
-      178,  178,  178,  123,  178,  394,  123,  262,  150,  252,
-      252,  252,  262,  262,  123,  465,  168,  123,  280,  325,
-      123,  123,  166,  166,  166,  166,  166,  166,  166,  166,
-      123,  280,  479,  123,  313,  313,  178,  655,  123,  188,
-      188,  123,  582,  582,  123,  125,  188,  188,  188,  188,
-      188,  188,  394,  125,  150,  150,  150,  150,  150,  150,
-      150,  150,  168,  168,  168,  168,  168,  168,  168,  168,
-      232,  232,  232,  232,  255,  255,  255,  125,  280,  288,
-      325,  125,  125,  125,  125,  125,  125,  125,  125,  128,
-      479,  654,  288,  128,  128,  128,  174,  128,  169,  169,
-
-      169,  169,  169,  169,  169,  169,  172,  172,  172,  172,
-      172,  172,  172,  172,  258,  253,  232,  258,  258,  258,
-      649,  128,  253,  253,  253,  128,  128,  128,  128,  128,
-      128,  128,  128,  149,  272,  361,  648,  288,  299,  299,
-      299,  149,  174,  174,  174,  174,  174,  174,  174,  174,
-      175,  175,  175,  175,  175,  175,  175,  175,  304,  304,
-      304,  269,  349,  258,  369,  149,  269,  373,  647,  149,
-      149,  149,  149,  149,  149,  149,  149,  167,  361,  269,
-      266,  167,  443,  283,  278,  266,  349,  272,  392,  167,
-      392,  167,  257,  266,  167,  272,  283,  278,  284,  257,
-
-      257,  257,  167,  284,  623,  167,  443,  369,  167,  167,
-      373,  284,  286,  167,  338,  338,  338,  167,  167,  167,
-      167,  167,  167,  167,  167,  286,  167,  278,  283,  167,
-      189,  189,  167,  171,  171,  257,  279,  189,  189,  189,
-      189,  189,  171,  171,  171,  273,  171,  298,  171,  279,
-      293,  171,  293,  298,  273,  273,  273,  480,  273,  171,
-      298,  286,  171,  293,  623,  171,  171,  214,  214,  214,
-      214,  214,  214,  214,  214,  171,  281,  236,  171,  279,
-      297,  281,  297,  171,  434,  236,  171,  497,  236,  171,
-      173,  236,  236,  297,  281,  497,  434,  243,  173,  329,
-
-      281,  236,  298,  396,  622,  243,  243,  243,  276,  236,
-      636,  243,  236,  446,  646,  236,  396,  276,  276,  276,
-      480,  276,  173,  282,  281,  297,  173,  173,  173,  173,
-      173,  173,  173,  173,  176,  455,  282,  446,  176,  176,
-      176,  243,  176,  237,  237,  237,  237,  237,  237,  237,
-      237,  238,  238,  238,  238,  238,  238,  238,  238,  622,
-      329,  344,  344,  344,  643,  368,  176,  636,  282,  455,
-      176,  176,  176,  176,  176,  176,  176,  176,  218,  368,
-      282,  282,  365,  365,  365,  642,  218,  250,  250,  250,
-      250,  250,  250,  250,  250,  251,  251,  251,  251,  251,
-
-      251,  251,  251,  378,  378,  378,  439,  439,  439,  368,
-      218,  362,  362,  362,  218,  218,  218,  218,  218,  218,
-      218,  218,  230,  230,  239,  230,  230,  230,  230,  230,
-      516,  230,  230,  230,  230,  308,  230,  230,  464,  245,
-      308,  239,  516,  230,  230,  230,  230,  245,  308,  239,
-      245,  294,  239,  245,  245,  239,  239,  362,  246,  393,
-      294,  294,  294,  245,  294,  239,  460,  393,  230,  230,
-      230,  245,  393,  239,  245,  246,  239,  245,  397,  239,
-      460,  464,  640,  246,  639,  275,  246,  230,  635,  246,
-      246,  397,  230,  230,  234,  234,  234,  234,  234,  246,
-
-      234,  234,  234,  234,  234,  234,  309,  246,  234,  234,
-      246,  254,  261,  246,  634,  234,  234,  309,  234,  254,
-      254,  254,  478,  478,  478,  254,  261,  261,  261,  261,
-      261,  275,  275,  275,  275,  275,  275,  275,  275,  287,
-      234,  234,  300,  300,  300,  300,  300,  300,  300,  300,
-      330,  593,  287,  471,  330,  254,  633,  545,  291,  295,
-      632,  295,  330,  401,  234,  234,  244,  471,  295,  295,
-      295,  291,  295,  380,  387,  309,  401,  530,  651,  651,
-      244,  261,  406,  244,  387,  292,  387,  380,  630,  530,
-      287,  244,  387,  301,  244,  406,  407,  244,  244,  291,
-
-      291,  291,  291,  291,  291,  291,  291,  244,  545,  407,
-      244,  330,  593,  401,  302,  244,  417,  380,  244,  605,
-      665,  244,  256,  302,  302,  302,  407,  302,  629,  417,
-      256,  292,  292,  292,  292,  292,  292,  292,  292,  301,
-      301,  301,  301,  301,  301,  301,  301,  383,  426,  426,
-      383,  383,  383,  426,  256,  409,  621,  495,  256,  256,
-      256,  256,  256,  256,  256,  256,  277,  303,  409,  303,
-      495,  605,  665,  402,  277,  388,  303,  303,  303,  482,
-      303,  306,  410,  306,  482,  388,  402,  388,  620,  614,
-      306,  306,  306,  388,  306,  410,  383,  482,  277,  494,
-
-      409,  494,  277,  277,  277,  277,  277,  277,  277,  277,
-      289,  289,  494,  289,  289,  289,  289,  289,  289,  289,
-      289,  289,  289,  402,  289,  289,  306,  410,  650,  307,
-      423,  289,  289,  289,  289,  307,  316,  316,  307,  307,
-      307,  423,  307,  316,  316,  316,  316,  316,  342,  342,
-      342,  342,  342,  342,  342,  342,  289,  289,  289,  343,
-      343,  343,  343,  343,  343,  343,  343,  398,  398,  398,
-      398,  398,  398,  398,  398,  289,  472,  612,  371,  650,
-      289,  289,  290,  290,  307,  403,  371,  518,  472,  371,
-      403,  484,  371,  371,  550,  290,  484,  290,  611,  423,
-
-      290,  518,  371,  403,  404,  372,  685,  550,  290,  484,
-      371,  290,  382,  371,  290,  290,  371,  404,  496,  382,
-      382,  382,  372,  610,  290,  604,  603,  290,  404,  496,
-      372,  400,  290,  372,  408,  290,  372,  372,  290,  296,
-      400,  400,  400,  403,  400,  472,  372,  408,  415,  491,
-      415,  550,  404,  296,  372,  382,  296,  372,  399,  385,
-      372,  415,  491,  685,  296,  422,  416,  296,  602,  486,
-      296,  296,  416,  385,  385,  385,  385,  385,  422,  416,
-      296,  408,  486,  296,  456,  456,  456,  496,  296,  483,
-      474,  296,  474,  415,  296,  305,  600,  637,  474,  485,
-
-      599,  491,  483,  305,  399,  399,  399,  399,  399,  399,
-      399,  399,  485,  420,  486,  420,  547,  483,  547,  422,
-      485,  416,  420,  420,  420,  444,  420,  305,  385,  547,
-      456,  305,  305,  305,  305,  305,  305,  305,  305,  350,
-      350,  483,  350,  350,  350,  350,  350,  492,  350,  350,
-      350,  350,  492,  350,  350,  615,  637,  444,  420,  549,
-      350,  350,  350,  350,  421,  492,  444,  459,  459,  459,
-      421,  490,  549,  421,  421,  421,  597,  421,  588,  615,
-      444,  533,  533,  533,  490,  350,  350,  350,  499,  499,
-      548,  588,  350,  549,  596,  499,  499,  499,  499,  499,
-
-      544,  544,  544,  548,  350,  350,  596,  595,  691,  350,
-      350,  357,  357,  459,  357,  357,  357,  357,  357,  421,
-      357,  357,  357,  357,  490,  357,  357,  533,  461,  689,
-      519,  548,  357,  357,  357,  357,  461,  553,  519,  461,
-      584,  519,  461,  461,  519,  519,  594,  592,  627,  591,
-      553,  552,  461,  584,  519,  539,  555,  357,  357,  357,
-      461,  627,  519,  461,  552,  519,  461,  555,  519,  539,
-      539,  539,  539,  539,  584,  586,  616,  691,  553,  618,
-      689,  357,  357,  358,  358,  462,  358,  358,  358,  358,
-      358,  626,  358,  358,  358,  358,  552,  358,  358,  585,
-
-      616,  587,  462,  618,  358,  358,  358,  358,  552,  657,
-      462,  520,  585,  462,  587,  626,  462,  462,  679,  692,
-      581,  657,  590,  580,  539,  555,  462,  578,  520,  358,
-      358,  358,  579,  590,  462,  631,  520,  462,  576,  520,
-      462,  631,  520,  520,  589,  587,  579,  579,  579,  579,
-      579,  609,  520,  358,  358,  367,  585,  589,  608,  631,
-      520,  625,  609,  520,  638,  631,  520,  558,  558,  367,
-      575,  608,  367,  679,  558,  558,  558,  558,  558,  628,
-      367,  641,  659,  367,  659,  645,  367,  367,  692,  625,
-      628,  590,  641,  638,  644,  656,  367,  660,  652,  644,
-
-      653,  579,  589,  608,  367,  680,  656,  367,  659,  645,
-      367,  381,  666,  625,  645,  669,  574,  638,  644,  660,
-      609,  660,  573,  653,  572,  381,  669,  652,  381,  653,
-      673,  571,  680,  682,  680,  707,  381,  570,  569,  381,
-      667,  666,  381,  381,  682,  568,  666,  653,  628,  566,
-      641,  652,  381,  653,  673,  381,  681,  686,  680,  565,
-      381,  563,  562,  381,  656,  666,  381,  405,  405,  667,
-      405,  405,  405,  405,  405,  405,  405,  405,  405,  405,
-      561,  405,  405,  687,  669,  681,  686,  560,  405,  405,
-      405,  405,  559,  667,  687,  693,  557,  694,  667,  554,
-
-      695,  696,  682,  551,  707,  697,  693,  681,  694,  681,
-      686,  695,  696,  405,  405,  405,  697,  543,  542,  698,
-      405,  541,  540,  699,  700,  701,  538,  535,  531,  529,
-      698,  528,  405,  405,  699,  700,  701,  405,  405,  411,
-      411,  527,  411,  411,  411,  411,  411,  411,  411,  411,
-      411,  411,  687,  411,  411,  526,  525,  524,  523,  522,
-      411,  411,  411,  411,  693,  521,  694,  702,  703,  695,
-      696,  704,  705,  706,  697,  517,  515,  514,  702,  703,
-      513,  512,  704,  705,  706,  411,  411,  411,  698,  511,
-      510,  509,  699,  700,  701,  508,  507,  506,  505,  504,
-
-      503,  502,  501,  500,  493,  488,  477,  476,  475,  411,
-      411,  413,  413,  473,  413,  413,  413,  413,  413,  413,
-      413,  413,  413,  413,  470,  413,  413,  468,  467,  463,
-      458,  454,  413,  413,  413,  413,  702,  703,  453,  452,
-      704,  705,  706,  448,  447,  445,  442,  438,  437,  436,
-      435,  433,  432,  431,  430,  429,  428,  413,  413,  413,
-      427,  425,  424,  412,  391,  390,  389,  386,  384,  376,
-      375,  364,  363,  355,  354,  353,  352,  346,  345,  335,
-      334,  413,  413,  414,  414,  333,  332,  328,  326,  324,
-      323,  322,  321,  320,  319,  318,  414,  317,  414,  314,
-
-      310,  414,  271,  265,  263,  259,  240,  229,  228,  414,
-      227,  225,  414,  224,  221,  414,  414,  220,  219,  210,
-      209,  208,  207,  205,  204,  414,  203,  202,  201,  198,
-      197,  196,  195,  414,  194,  193,  414,  191,  190,  414,
-      419,  186,  182,  139,  137,  136,  134,  132,  131,  113,
-      112,  111,  110,  107,  419,  106,  105,  419,  104,  103,
-      102,  101,  100,   99,   90,  419,   88,   84,  419,   81,
-       80,  419,  419,   79,   76,   71,   68,   39,   26,   21,
-       20,  419,   17,   16,  419,   14,    9,    3,    0,  419,
-        0,    0,  419,    0,    0,  419,  441,    0,    0,    0,
-
-        0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-      441,    0,    0,  441,    0,    0,    0,    0,    0,    0,
-        0,  441,    0,    0,  441,    0,    0,  441,  441,    0,
-        0,    0,    0,    0,    0,    0,    0,  441,    0,    0,
-        0,    0,    0,    0,    0,  441,    0,    0,  441,    0,
-        0,  441,  450,  450,    0,  450,  450,  450,  450,  450,
-        0,  450,  450,  450,  450,    0,  450,  450,    0,    0,
-        0,    0,    0,  450,  450,  450,  450,    0,    0,    0,
-        0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-        0,    0,    0,    0,    0,    0,    0,    0,  450,  450,
-
-      450,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-        0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-        0,    0,  450,  450,  451,  451,    0,  451,  451,  451,
-      451,  451,    0,  451,  451,  451,  451,    0,  451,  451,
-        0,    0,    0,    0,    0,  451,  451,  451,  451,    0,
-        0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-        0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-      451,  451,  451,    0,    0,    0,    0,  451,    0,    0,
-        0,    0,    0,    0,    0,    0,    0,    0,    0,  451,
-      451,    0,    0,    0,  451,  451,  481,    0,    0,    0,
-
-        0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-      481,    0,    0,  481,    0,    0,    0,    0,    0,    0,
-        0,  481,    0,    0,  481,    0,    0,  481,  481,    0,
-        0,    0,    0,    0,    0,    0,    0,  481,    0,    0,
-        0,    0,    0,    0,    0,  481,    0,    0,  481,    0,
-        0,  481,  487,  487,    0,  487,  487,  487,  487,  487,
-      487,  487,  487,  487,  487,    0,  487,  487,    0,    0,
-        0,    0,    0,  487,  487,  487,  487,    0,    0,    0,
-        0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-        0,    0,    0,    0,    0,    0,    0,    0,  487,  487,
-
-      487,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-        0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-        0,    0,  487,  487,  489,  489,    0,  489,  489,  489,
-      489,  489,  489,  489,  489,  489,  489,    0,  489,  489,
-        0,    0,    0,    0,    0,  489,  489,  489,  489,    0,
-        0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-        0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-      489,  489,  489,    0,    0,    0,    0,  489,    0,    0,
-        0,    0,    0,    0,    0,    0,    0,    0,    0,  489,
-      489,    0,    0,    0,  489,  489,  601,  601,    0,  601,
-
-      601,  601,  601,  601,    0,  601,  601,  601,  601,    0,
-      601,  601,    0,    0,    0,    0,    0,  601,  601,  601,
-      601,    0,    0,    0,    0,    0,    0,  601,    0,    0,
-        0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-        0,    0,  601,  601,  601,    0,    0,    0,    0,    0,
-        0,  601,    0,    0,    0,    0,    0,    0,    0,    0,
-        0,    0,    0,    0,    0,    0,  601,  601,  607,  607,
-        0,  607,  607,  607,  607,  607,  607,  607,  607,  607,
-      607,    0,  607,  607,    0,    0,    0,    0,    0,  607,
-      607,  607,  607,    0,    0,    0,    0,    0,    0,  607,
-
-        0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-        0,    0,    0,    0,  607,  607,  607,    0,    0,    0,
-        0,    0,    0,  607,    0,    0,    0,    0,    0,    0,
-        0,    0,    0,    0,    0,    0,    0,    0,  607,  607,
-      617,  617,    0,  617,  617,  617,  617,  617,    0,  617,
-      617,  617,  617,    0,  617,  617,    0,    0,    0,    0,
-        0,  617,  617,  617,  617,    0,    0,    0,    0,    0,
-        0,  617,    0,    0,    0,    0,    0,    0,    0,    0,
-        0,    0,    0,    0,    0,    0,  617,  617,  617,    0,
-        0,    0,    0,    0,    0,  617,    0,    0,    0,    0,
-
-        0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-      617,  617,  624,  624,    0,  624,  624,  624,  624,  624,
-      624,  624,  624,  624,  624,    0,  624,  624,    0,    0,
-        0,    0,    0,  624,  624,  624,  624,    0,    0,    0,
-        0,    0,    0,  624,    0,    0,    0,    0,    0,    0,
-        0,    0,    0,    0,    0,    0,    0,    0,  624,  624,
-      624,    0,    0,    0,    0,    0,    0,  624,    0,    0,
-        0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-        0,    0,  624,  624,  711,    0,    0,  711,  711,    0,
-        0,  711,  711,  711,  711,  711,  712,  712,  712,  712,
-
-      712,    0,  712,  712,  712,  712,  712,  712,  712,  712,
-      712,  713,  713,  713,  713,  713,  713,  713,  713,  713,
-      713,  713,  713,  713,  713,  713,  714,  714,  714,  714,
-      714,  714,  714,  714,  714,  714,  714,  714,  714,  714,
-      714,  715,  715,  715,  715,  715,  715,  715,  715,  715,
-      715,  715,  715,  715,  715,  715,  716,    0,    0,  716,
-      716,  716,    0,  716,  716,  716,  716,  716,  717,  717,
-      717,  717,  717,    0,  717,  717,  717,  717,  717,  717,
-      717,  717,  717,  718,  718,  718,  718,  718,  718,  718,
-      718,  718,  718,  718,  718,  718,  718,  718,  719,  719,
-
-        0,    0,    0,    0,    0,    0,    0,  719,  719,  719,
-      719,  719,  720,  720,  720,  720,  720,  720,  720,  720,
-      720,  720,  720,  720,  720,  720,  720,  721,  721,  721,
-      721,  721,  721,  721,  721,  721,  721,  721,  721,  721,
-      721,  721,  722,  722,  722,  722,  722,  722,  722,  722,
-      722,  722,  722,  722,  722,  722,  722,  723,  723,  723,
-      723,  723,  723,  723,  723,  723,  723,  723,  723,  723,
-      723,  723,  724,  724,  724,  724,  724,  724,  724,  724,
-      724,  724,  724,  724,  724,  724,  724,  725,  725,  725,
-      725,  725,  725,  725,  725,  725,  725,  725,  725,  725,
-
-      725,  725,  726,  726,  726,  726,  726,  726,  726,  726,
-      726,  726,  726,  726,  726,  726,  726,  727,  727,  727,
-      727,  727,  727,  727,  727,  727,  727,  727,  727,  727,
-      727,  727,  728,  728,    0,  728,  728,  728,  728,  728,
-      728,  728,  728,  728,  728,  728,  728,  729,  729,    0,
-      729,  729,  729,  729,  729,  729,  729,  729,  729,  729,
-      729,  729,  730,  730,    0,  730,  730,  730,  730,  730,
-      730,  730,  730,  730,  730,  730,  730,  731,  731,  731,
-      731,  731,  731,  731,  731,  731,  731,  731,  731,  731,
-      731,  731,  732,  732,  732,  732,  732,  732,  732,  732,
-
-      732,  732,  732,  732,  732,  732,  732,  733,  733,  733,
-      733,  733,  733,  733,  733,  733,  733,  733,  733,  733,
-      733,  733,  734,  734,  734,  734,  734,  734,  734,  734,
-      734,  734,  734,  734,  734,  734,  734,  735,    0,    0,
-      735,    0,  735,  735,    0,    0,  735,  735,  736,  736,
-      736,  736,  736,  736,  736,  736,  736,  736,  736,  736,
-      736,  736,  736,  737,  737,  737,  737,  737,  737,  737,
-      737,  737,  737,  737,  737,  737,  737,  737,  738,  738,
-      738,  738,  738,  738,  738,  738,  738,  738,  738,  738,
-      738,  738,  738,  739,  739,  739,  739,  739,  739,  739,
-
-      739,  739,  739,  739,  739,  739,  739,  739,  740,  740,
-        0,  740,  740,  740,  740,  740,  740,  740,  740,  740,
-      740,  740,  740,  741,  741,  741,  741,  741,  741,  741,
-      741,  741,  741,  741,  741,  741,  741,  741,  742,  742,
-      742,  742,    0,  742,  742,  742,  742,  742,  742,  742,
-      742,  742,  742,  743,  743,  743,  743,  743,  743,  743,
-      743,  743,  743,  743,  743,  743,  743,  743,  744,  744,
-        0,  744,  744,  744,  744,  744,  744,  744,  744,  744,
-      744,  744,  744,  745,  745,    0,  745,  745,  745,  745,
-      745,  745,  745,  745,  745,  745,  745,  745,  746,    0,
-
-      746,    0,    0,    0,  746,  746,  746,  747,  747,    0,
-      747,  747,  747,  747,  747,  747,  747,  747,  747,  747,
-      747,  747,  748,  748,    0,  748,  748,  748,  748,  748,
-      748,  748,  748,  748,  748,  748,  748,  749,  749,    0,
-      749,  749,  749,  749,  749,  749,  749,  749,  749,  749,
-      749,  749,  750,  750,  750,  750,  750,  750,  750,  750,
-      750,  750,  750,  750,  750,  750,  750,  751,  751,  751,
-      751,  751,  751,  751,  751,  751,  751,  751,  751,  751,
-      751,  751,  752,  752,  752,  752,  752,  752,  752,  752,
-      752,  752,  752,  752,  752,  752,  752,  753,  753,  753,
-
-      753,  753,  753,  753,  753,  753,  753,  753,  753,  753,
-      753,  753,  754,    0,    0,    0,    0,  754,  754,    0,
-        0,  754,  754,  755,  755,  755,  755,  755,  755,  755,
-      755,  755,  755,  755,  755,  755,  755,  755,  756,  756,
-      756,  756,  756,  756,  756,  756,  756,  756,  756,  756,
-      756,  756,  756,  757,  757,    0,  757,  757,  757,  757,
-      757,  757,  757,  757,  757,  757,  757,  757,  758,  758,
-        0,  758,  758,  758,  758,  758,  758,  758,  758,  758,
-      758,  758,  758,  759,  759,  759,  759,    0,  759,  759,
-      759,  759,  759,  759,  759,  759,  759,  759,  760,  760,
-
-      760,  760,  760,  760,  760,  760,  760,  760,  760,  760,
-      760,  760,  760,  761,  761,    0,  761,  761,  761,  761,
-      761,  761,  761,  761,  761,  761,  761,  761,  762,  762,
-        0,  762,  762,  762,  762,  762,  762,  762,  762,  762,
-      762,  762,  762,  763,  763,    0,  763,  763,  763,  763,
-      763,  763,  763,  763,  763,  763,  763,  763,  764,  764,
-        0,  764,  764,  764,  764,  764,  764,  764,  764,  764,
-      764,  764,  764,  765,  765,    0,  765,  765,  765,  765,
-      765,  765,  765,  765,  765,  765,  765,  765,  766,  766,
-        0,  766,  766,  766,  766,  766,  766,  766,  766,  766,
-
-      766,  766,  766,  767,  767,    0,  767,  767,  767,  767,
-      767,  767,  767,  767,  767,  767,  767,  767,  768,  768,
-        0,  768,  768,  768,  768,  768,  768,  768,  768,  768,
-      768,  768,  768,  769,  769,  769,  769,  769,  769,  769,
-      769,  769,  769,  769,  769,  769,  769,  769,  770,  770,
-      770,  770,  770,  770,  770,  770,  770,  770,  770,  770,
-      770,  770,  770,  771,  771,  771,  771,  771,  771,  771,
-      771,  771,  771,  771,  771,  771,  771,  771,  772,    0,
-        0,    0,    0,  772,  772,    0,    0,  772,  773,  773,
-      773,  773,  773,  773,  773,  773,  773,  773,  773,  773,
-
-      773,  773,  773,  774,  774,  774,  774,  774,  774,  774,
-      774,  774,  774,  774,  774,  774,  774,  774,  775,  775,
-        0,  775,  775,  775,  775,  775,  775,  775,  775,  775,
-      775,  775,  775,  776,  776,  776,  776,  776,  776,  776,
-      776,  776,  776,  776,  776,  776,  776,  776,  777,    0,
-        0,    0,    0,  777,  777,    0,    0,  777,  778,  778,
-        0,  778,  778,  778,  778,  778,  778,  778,  778,  778,
-      778,  778,  778,  779,  779,  779,  779,  779,  779,  779,
-      779,  779,  779,  779,  779,  779,  779,  779,  780,  780,
-        0,  780,  780,  780,  780,  780,  780,  780,  780,  780,
-
-      780,  780,  780,  781,  781,    0,  781,  781,  781,  781,
-      781,  781,  781,  781,  781,  781,  781,  781,  782,  782,
-        0,  782,  782,  782,  782,  782,  782,  782,  782,  782,
-      782,  782,  782,  783,  783,  783,  783,  783,  783,  783,
-      783,  783,  783,  783,  783,  783,  783,  783,  784,  784,
-      784,  784,  784,  784,  784,  784,  784,  784,  784,  784,
-      784,  784,  784,  785,  785,  785,  785,  785,  785,  785,
-      785,  785,  785,  785,  785,  785,  785,  785,  786,  786,
-      786,  786,  786,  786,  786,  786,  786,  786,  786,  786,
-      786,  786,  786,  710,  710,  710,  710,  710,  710,  710,
-
-      710,  710,  710,  710,  710,  710,  710,  710,  710,  710,
-      710,  710,  710,  710,  710,  710,  710,  710,  710,  710,
-      710,  710,  710,  710,  710,  710,  710,  710,  710,  710,
-      710,  710,  710,  710,  710,  710,  710,  710,  710,  710,
-      710,  710,  710,  710,  710,  710,  710,  710,  710,  710,
-      710,  710,  710,  710,  710,  710,  710,  710,  710,  710,
-      710,  710,  710,  710,  710,  710
-    } ;
-
-static yy_state_type yy_state_buf[YY_BUF_SIZE + 2], *yy_state_ptr;
-static char *yy_full_match;
-static int yy_lp;
-static int yy_looking_for_trail_begin = 0;
-static int yy_full_lp;
-static int *yy_full_state;
-#define YY_TRAILING_MASK 0x2000
-#define YY_TRAILING_HEAD_MASK 0x4000
-#define REJECT \
-{ \
-*yy_cp = yy_hold_char; /* undo effects of setting up yytext */ \
-yy_cp = yy_full_match; /* restore poss. backed-over text */ \
-yy_lp = yy_full_lp; /* restore orig. accepting pos. */ \
-yy_state_ptr = yy_full_state; /* restore orig. state */ \
-yy_current_state = *yy_state_ptr; /* restore curr. state */ \
-++yy_lp; \
-goto find_rule; \
-}
-#define yymore() yymore_used_but_not_detected
-#define YY_MORE_ADJ 0
-#define YY_RESTORE_YY_MORE_OFFSET
-char *yytext;
-#line 1 "../parser.l"
-#define INITIAL 0
-#line 8 "../parser.l"
 /*
- * parser.l -- lex parser of algebraic chess moves for XBoard
- * $Id: parser.l,v 2.1 2003/10/27 19:21:00 mann Exp $
- *
- * Copyright 1991 by Digital Equipment Corporation, Maynard, Massachusetts.
- * Enhancements Copyright 1992-95 Free Software Foundation, Inc.
- *
- * The following terms apply to Digital Equipment Corporation's copyright
- * interest in XBoard:
- * ------------------------------------------------------------------------
- * All Rights Reserved
+ * parser.c --
  *
- * Permission to use, copy, modify, and distribute this software and its
- * documentation for any purpose and without fee is hereby granted,
- * provided that the above copyright notice appear in all copies and that
- * both that copyright notice and this permission notice appear in
- * supporting documentation, and that the name of Digital not be
- * used in advertising or publicity pertaining to distribution of the
- * software without specific, written prior permission.
- *
- * DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
- * ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
- * DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
- * ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
- * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
- * ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
- * SOFTWARE.
+ * Copyright 2011, 2012, 2013, 2014, 2015, 2016 Free Software Foundation, Inc.
  * ------------------------------------------------------------------------
  *
- * The following terms apply to the enhanced version of XBoard distributed
- * by the Free Software Foundation:
- * ------------------------------------------------------------------------
- * This program is free software; you can redistribute it and/or modify
+ * GNU XBoard is free software: you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
+ * the Free Software Foundation, either version 3 of the License, or (at
+ * your option) any later version.
  *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
+ * GNU XBoard is distributed in the hope that it will be useful, but
+ * WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * General Public License for more details.
  *
  * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
- * ------------------------------------------------------------------------
- */
-
-/* This parser handles all forms of promotion.
- * The parser resolves ambiguous moves by searching and check-testing.
- * It also parses comments of the form [anything] or (anything).
- */
+ * along with this program. If not, see http://www.gnu.org/licenses/.  *
+ *
+ *------------------------------------------------------------------------
+ ** See the file ChangeLog for a revision history.  */
 
 #include "config.h"
-
-#define NO_CONSTRAINT  -1
-#undef YYLMAX
-#define YYLMAX                 4096
-#define UNPUT_BUF_SIZE         YYLMAX
-
-#ifdef FLEX_SCANNER
-/* yytext is probably a char*, but could be a char[].  yy_text is set
-   in YY_DECL below, because if yytext is a char*, its value is not
-   constant. */
-char *yy_text;
-#else /*!FLEX_SCANNER*/
-/* yytext is definitely a char[], so yy_text can be set here, statically. */
-char *yy_text = (char *) yytext;
-#endif
-
-#ifdef FLEX_SCANNER
-/* This is flex */
-#undef YY_INPUT
-#define YY_INPUT(buf, result, max_size) my_yy_input(buf, &result, max_size)
-#undef YY_DECL
-#define YY_DECL                     \
-    int _yylex YY_PROTO((void));    \
-    int yylex YY_PROTO((void))      \
-    {                               \
-       int result = _yylex();      \
-       yy_text = (char *) yytext;  \
-       return(result);             \
-    }                               \
-    int _yylex YY_PROTO((void))
-#else
-/* This is lex */
-#undef input
-#undef output
-#undef unput
-#endif
-
-/* The includes must be here, below the #undef input */
-
+#include <stdio.h>
+#include <stdlib.h>
 #include <ctype.h>
-
-#if STDC_HEADERS
-# include <stdlib.h>
-# include <string.h>
-#else /* not STDC_HEADERS */
-# if HAVE_STRING_H
-#  include <string.h>
-# else /* not HAVE_STRING_H */
-#  include <strings.h>
-# endif /* not HAVE_STRING_H */
-#endif /* not STDC_HEADERS */
-
-#if HAVE_UNISTD_H
-# include <unistd.h>
-#endif
-
-#if defined(_amigados)
-# include <errno.h>
-# if HAVE_FCNTL_H
-#  include <fcntl.h>    /*  isatty() prototype  */
-# endif /*  HAVE_FCNTL_H        */
-#endif  /*  defined(_amigados)  */
-
+#include <string.h>
 #include "common.h"
 #include "backend.h"
 #include "frontend.h"
 #include "parser.h"
 #include "moves.h"
 
-extern int PosFlags P((int));
 
 extern Board   boards[MAX_MOVES];
+extern int     PosFlags(int nr);
 int            yyboardindex;
 int             yyskipmoves = FALSE;
-char           currentMoveString[YYLMAX];
-#ifndef FLEX_SCANNER
-char           unputBuffer[UNPUT_BUF_SIZE];
-int            unputCount = 0;
-#endif
-
-#ifdef FLEX_SCANNER
-void my_yy_input P((char *buf, int *result, int max_size));
-#else /*!FLEX_SCANNER*/
-static int input P((void));
-static void output P((int ch));
-static void unput P((int ch));
-int yylook P((void));
-int yyback P((int *, int));
-#endif
-#undef yywrap
-int yywrap P((void));
-extern void CopyBoard P((Board to, Board from));
-
-#line 1835 "lex.yy.c"
-
-/* Macros after this point can all be overridden by user definitions in
- * section 1.
- */
-
-#ifndef YY_SKIP_YYWRAP
-#ifdef __cplusplus
-extern "C" int yywrap YY_PROTO(( void ));
-#else
-extern int yywrap YY_PROTO(( void ));
-#endif
-#endif
-
-#ifndef YY_NO_UNPUT
-static void yyunput YY_PROTO(( int c, char *buf_ptr ));
-#endif
-
-#ifndef yytext_ptr
-static void yy_flex_strncpy YY_PROTO(( char *, yyconst char *, int ));
-#endif
-
-#ifdef YY_NEED_STRLEN
-static int yy_flex_strlen YY_PROTO(( yyconst char * ));
-#endif
-
-#ifndef YY_NO_INPUT
-#ifdef __cplusplus
-static int yyinput YY_PROTO(( void ));
-#else
-static int input YY_PROTO(( void ));
-#endif
-#endif
-
-#if YY_STACK_USED
-static int yy_start_stack_ptr = 0;
-static int yy_start_stack_depth = 0;
-static int *yy_start_stack = 0;
-#ifndef YY_NO_PUSH_STATE
-static void yy_push_state YY_PROTO(( int new_state ));
-#endif
-#ifndef YY_NO_POP_STATE
-static void yy_pop_state YY_PROTO(( void ));
-#endif
-#ifndef YY_NO_TOP_STATE
-static int yy_top_state YY_PROTO(( void ));
-#endif
-
-#else
-#define YY_NO_PUSH_STATE 1
-#define YY_NO_POP_STATE 1
-#define YY_NO_TOP_STATE 1
-#endif
-
-#ifdef YY_MALLOC_DECL
-YY_MALLOC_DECL
-#else
-#if __STDC__
-#ifndef __cplusplus
-#include <stdlib.h>
-#endif
-#else
-/* Just try to get by without declaring the routines.  This will fail
- * miserably on non-ANSI systems for which sizeof(size_t) != sizeof(int)
- * or sizeof(void*) != sizeof(int).
- */
-#endif
-#endif
-
-/* Amount of stuff to slurp up with each read. */
-#ifndef YY_READ_BUF_SIZE
-#define YY_READ_BUF_SIZE 8192
-#endif
-
-/* Copy whatever the last rule matched to the standard output. */
-
-#ifndef ECHO
-/* This used to be an fputs(), but since the string might contain NUL's,
- * we now use fwrite().
- */
-#define ECHO (void) fwrite( yytext, yyleng, 1, yyout )
-#endif
-
-/* Gets input and stuffs it into "buf".  number of characters read, or YY_NULL,
- * is returned in "result".
- */
-#ifndef YY_INPUT
-#define YY_INPUT(buf,result,max_size) \
-       if ( yy_current_buffer->yy_is_interactive ) \
-               { \
-               int c = '*', n; \
-               for ( n = 0; n < max_size && \
-                            (c = getc( yyin )) != EOF && c != '\n'; ++n ) \
-                       buf[n] = (char) c; \
-               if ( c == '\n' ) \
-                       buf[n++] = (char) c; \
-               if ( c == EOF && ferror( yyin ) ) \
-                       YY_FATAL_ERROR( "input in flex scanner failed" ); \
-               result = n; \
-               } \
-       else if ( ((result = fread( buf, 1, max_size, yyin )) == 0) \
-                 && ferror( yyin ) ) \
-               YY_FATAL_ERROR( "input in flex scanner failed" );
-#endif
-
-/* No semi-colon after return; correct usage is to write "yyterminate();" -
- * we don't want an extra ';' after the "return" because that will cause
- * some compilers to complain about unreachable statements.
- */
-#ifndef yyterminate
-#define yyterminate() return YY_NULL
-#endif
-
-/* Number of entries by which start-condition stack grows. */
-#ifndef YY_START_STACK_INCR
-#define YY_START_STACK_INCR 25
-#endif
-
-/* Report a fatal error. */
-#ifndef YY_FATAL_ERROR
-#define YY_FATAL_ERROR(msg) yy_fatal_error( msg )
-#endif
-
-/* Default declaration of generated scanner - a define so the user can
- * easily add parameters.
- */
-#ifndef YY_DECL
-#define YY_DECL int yylex YY_PROTO(( void ))
-#endif
-
-/* Code executed at the beginning of each rule, after yytext and yyleng
- * have been set up.
- */
-#ifndef YY_USER_ACTION
-#define YY_USER_ACTION
-#endif
-
-/* Code executed at the end of each rule. */
-#ifndef YY_BREAK
-#define YY_BREAK break;
-#endif
-
-#define YY_RULE_SETUP \
-       if ( yyleng > 0 ) \
-               yy_current_buffer->yy_at_bol = \
-                               (yytext[yyleng - 1] == '\n'); \
-       YY_USER_ACTION
-
-YY_DECL
-       {
-       register yy_state_type yy_current_state;
-       register char *yy_cp = NULL, *yy_bp = NULL;
-       register int yy_act;
-
-#line 156 "../parser.l"
-
-
-#line 1992 "lex.yy.c"
-
-       if ( yy_init )
-               {
-               yy_init = 0;
-
-#ifdef YY_USER_INIT
-               YY_USER_INIT;
-#endif
-
-               if ( ! yy_start )
-                       yy_start = 1;   /* first start state */
-
-               if ( ! yyin )
-                       yyin = stdin;
-
-               if ( ! yyout )
-                       yyout = stdout;
-
-               if ( ! yy_current_buffer )
-                       yy_current_buffer =
-                               yy_create_buffer( yyin, YY_BUF_SIZE );
-
-               yy_load_buffer_state();
-               }
-
-       while ( 1 )             /* loops until end-of-file is reached */
-               {
-               yy_cp = yy_c_buf_p;
-
-               /* Support of yytext. */
-               *yy_cp = yy_hold_char;
-
-               /* yy_bp points to the position in yy_ch_buf of the start of
-                * the current run.
-                */
-               yy_bp = yy_cp;
-
-               yy_current_state = yy_start;
-               yy_current_state += YY_AT_BOL();
-               yy_state_ptr = yy_state_buf;
-               *yy_state_ptr++ = yy_current_state;
-yy_match:
-               do
-                       {
-                       register YY_CHAR yy_c = yy_ec[YY_SC_TO_UI(*yy_cp)];
-                       while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
-                               {
-                               yy_current_state = (int) yy_def[yy_current_state];
-                               if ( yy_current_state >= 711 )
-                                       yy_c = yy_meta[(unsigned int) yy_c];
-                               }
-                       yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
-                       *yy_state_ptr++ = yy_current_state;
-                       ++yy_cp;
-                       }
-               while ( yy_base[yy_current_state] != 4394 );
-
-yy_find_action:
-               yy_current_state = *--yy_state_ptr;
-               yy_lp = yy_accept[yy_current_state];
-find_rule: /* we branch to this label when backing up */
-               for ( ; ; ) /* until we find what rule we matched */
-                       {
-                       if ( yy_lp && yy_lp < yy_accept[yy_current_state + 1] )
-                               {
-                               yy_act = yy_acclist[yy_lp];
-                               if ( yy_act & YY_TRAILING_HEAD_MASK ||
-                                    yy_looking_for_trail_begin )
-                                       {
-                                       if ( yy_act == yy_looking_for_trail_begin )
-                                               {
-                                               yy_looking_for_trail_begin = 0;
-                                               yy_act &= ~YY_TRAILING_HEAD_MASK;
-                                               break;
-                                               }
-                                       }
-                               else if ( yy_act & YY_TRAILING_MASK )
-                                       {
-                                       yy_looking_for_trail_begin = yy_act & ~YY_TRAILING_MASK;
-                                       yy_looking_for_trail_begin |= YY_TRAILING_HEAD_MASK;
-                                       }
-                               else
-                                       {
-                                       yy_full_match = yy_cp;
-                                       yy_full_state = yy_state_ptr;
-                                       yy_full_lp = yy_lp;
-                                       break;
-                                       }
-                               ++yy_lp;
-                               goto find_rule;
-                               }
-                       --yy_cp;
-                       yy_current_state = *--yy_state_ptr;
-                       yy_lp = yy_accept[yy_current_state];
-                       }
-
-               YY_DO_BEFORE_ACTION;
-
-
-do_action:     /* This label is used only to access EOF actions. */
-
-
-               switch ( yy_act )
-       { /* beginning of action switch */
-case 1:
-YY_RULE_SETUP
-#line 158 "../parser.l"
-{
-    /*
-     * Fully-qualified algebraic move, possibly with promotion
-     */
-    int skip1 = 0, skip2 = 0;
-    ChessSquare piece;
-    ChessMove result;
-
-    if (yyskipmoves) return (int) AmbiguousMove; /* not disambiguated */
-
-    /* remove the / */
-    if (yytext[1] == '/') skip1 = 1;
-
-    /* remove the [xX:-] */
-    if ((yytext[3+skip1] == 'x') || (yytext[3+skip1] == 'X') ||
-       (yytext[3+skip1] == '-') || (yytext[3+skip1] == ':')) skip2 = 1;
-
-    currentMoveString[0] = yytext[1+skip1];
-    currentMoveString[1] = yytext[2+skip1];
-    currentMoveString[2] = yytext[3+skip1+skip2];
-    currentMoveString[3] = yytext[4+skip1+skip2];
-    currentMoveString[4] = NULLCHAR;
-
-    if (yyleng-skip1-skip2 > 5) {
-       if (yytext[yyleng-1] == ')') {
-           currentMoveString[4] = ToLower(yytext[yyleng-2]);
-       } else {
-           currentMoveString[4] = ToLower(yytext[yyleng-1]);
-       }
-       currentMoveString[5] = NULLCHAR;
-    }
+char           currentMoveString[4096]; // a bit ridiculous size?
+char *yy_text;
 
-    piece = boards[yyboardindex]
-      [currentMoveString[1] - '1'][currentMoveString[0] - 'a'];
-    if (ToLower(yytext[0]) != ToLower(PieceToChar(piece)))
-      return (int) IllegalMove;
-
-    result = LegalityTest(boards[yyboardindex],
-                         PosFlags(yyboardindex), EP_UNKNOWN,
-                         currentMoveString[1] - '1',
-                         currentMoveString[0] - 'a',
-                         currentMoveString[3] - '1',
-                         currentMoveString[2] - 'a',
-                         currentMoveString[4]);
-
-    if (currentMoveString[4] == NULLCHAR &&
-       (result == WhitePromotionQueen || result == BlackPromotionQueen)) {
-       currentMoveString[4] = 'q';
-       currentMoveString[5] = NULLCHAR;
+#define PARSEBUFSIZE 10000
+
+static FILE *inputFile;
+static char *inPtr, *parsePtr, *parseStart;
+static char inputBuf[PARSEBUFSIZE];
+static char yytext[PARSEBUFSIZE];
+static char fromString = 0, lastChar = '\n';
+
+#define NOTHING 0
+#define NUMERIC 1
+#define ALPHABETIC 2
+#define BADNUMBER (-2000000000)
+
+#define XCO    0
+#define YCO   53
+#define PIECE 94
+#define MISC 155
+#define JIS  200
+
+unsigned char kanjiTab[] = {
+  '1', 0357, 0274, 0221, // kanji notation for arabic digits
+  '2', 0357, 0274, 0222,
+  '3', 0357, 0274, 0223,
+  '4', 0357, 0274, 0224,
+  '5', 0357, 0274, 0225,
+  '6', 0357, 0274, 0226,
+  '7', 0357, 0274, 0227,
+  '8', 0357, 0274, 0230,
+  '9', 0357, 0274, 0231,
+  'x', 0345, 0220, 0214,
+  's', 0345, 0205, 0210, // sente
+  'g', 0345, 0276, 0214, // gote
+  '-', 0346, 0212, 0225, // resign
+   0,
+  'a', 0344, 0270, 0200, // in reality these are numbers in Japanese a=1, b=2 etc.
+  'b', 0344, 0272, 0214,
+  'c', 0344, 0270, 0211,
+  'd', 0345, 0233, 0233,
+  'e', 0344, 0272, 0224,
+  'f', 0345, 0205, 0255,
+  'g', 0344, 0270, 0203,
+  'h', 0345, 0205, 0253,
+  'i', 0344, 0271, 0235,
+  ' ', 0343, 0200, 0200,
+   0,
+  'K', 0347, 0216, 0211, // piece names
+  'K', 0347, 0216, 0213,
+  'G', 0351, 0207, 0221,
+  'S', 0351, 0212, 0200,
+  'R', 0351, 0243, 0233,
+  'B', 0350, 0247, 0222,
+  'N', 0346, 0241, 0202,
+  'L', 0351, 0246, 0231,
+  'P', 0346, 0255, 0251,
+  'r', 0351, 0276, 0215,
+  'b', 0351, 0246, 0254,
+  'p', 0343, 0201, 0250,
+  'r', 0347, 0253, 0234,
+  '+', 0346, 0210, 0220,
+  'G', 0, 0, 0,
+   0,
+  '+', 0346, 0210, 0220, // helper
+  '@', 0346, 0211, 0223,
+  'p', 0346, 0211, 0213, // player
+  ':', 0357, 0274, 0232,
+  '-', 0344, 0272, 0206,
+  'f', 0344, 0270, 0212,
+  's', 0345, 0257, 0204,
+  'b', 0345, 0274, 0225,
+  'r', 0345, 0267, 0246,
+  'l', 0345, 0217, 0263,
+  'v', 0347, 0233, 0264,
+   0,
+   // shift-JIS
+  '1', 0202, 0120, 0,
+  '2', 0202, 0121, 0,
+  '3', 0202, 0122, 0,
+  '4', 0202, 0123, 0,
+  '5', 0202, 0124, 0,
+  '6', 0202, 0125, 0,
+  '7', 0202, 0126, 0,
+  '8', 0202, 0127, 0,
+  '9', 0202, 0130, 0,
+  'x', 0223, 0257, 0,
+  's', 0220, 0346, 0,
+  'g', 0214, 0343, 0,
+  '-', 0223, 0212, 0,
+   0,
+  'a', 0210, 0352, 0, 
+  'b', 0223, 0361, 0, 
+  'c', 0216, 0117, 0, 
+  'd', 0216, 0154, 0, 
+  'e', 0214, 0334, 0, 
+  'f', 0230, 0132, 0, 
+  'g', 0216, 0265, 0, 
+  'h', 0224, 0252, 0, 
+  'i', 0213, 0343, 0, 
+  ' ', 0201, 0100, 0, 
+   0,
+  'K', 0213, 0312, 0, 
+  'K', 0213, 0312, 0, 
+  'G', 0213, 0340, 0, 
+  'S', 0213, 0342, 0, 
+  'R', 0224, 0362, 0, 
+  'B', 0212, 0160, 0,
+  'N', 0214, 0152, 0, 
+  'L', 0215, 0201, 0, 
+  'P', 0225, 0340, 0, 
+  'r', 0227, 0264, 0, 
+  'b', 0224, 0156, 0, 
+  'p', 0202, 0306, 0, 
+  'r', 0227, 0263, 0, 
+  '+', 0220, 0254, 0, 
+  'G', 0, 0, 0, 
+   0,
+  '+', 0220, 0254, 0, 
+  '@', 0221, 0305, 0, 
+//  'p', 0214, 0343, 0,
+  'p', 0216, 0350, 0,
+  ':', 0201, 0106, 0,
+  '-', 0227, 0271, 0,
+  'f', 0217, 0343, 0,
+  's', 0212, 0361, 0,
+  'b', 0210, 0370, 0,
+  'r', 0215, 0266, 0,
+  'l', 0211, 0105, 0,
+  'v', 0222, 0274, 0,
+   0,
+     
+};
+
+int NextUnit P((char **p));
+
+int kifu = 0;
+
+char
+GetKanji (char **p, int start)
+{
+    unsigned char *q = *(unsigned char **) p;
+    int i;
+
+    if((*q & 0x80) == 0) return 0; // plain ASCII, refuse to parse
+    if((**p & 0xC0) == 0x80) { // this is an illegal starting code in utf-8, so assume shift-JIS
+       for(i=start+JIS; kanjiTab[i]; i+=4) {
+           if(q[0] == kanjiTab[i+1] && q[1] == kanjiTab[i+2]) {
+               (*p) += 2; kifu = 0x80;
+               return kanjiTab[i];
+           }
+       }
+       (*p) += (kifu ? 2 : 1); // assume this is an unrecognized kanji when reading kif files
+       return 0;
     }
 
-    return (int) result;
-}
-       YY_BREAK
-case 2:
-YY_RULE_SETUP
-#line 212 "../parser.l"
-{
-    /*
-     * Simple algebraic move, possibly with promotion
-     */
-    int skip = 0;
-    ChessMove result;
-
-    if (yyskipmoves) return (int) AmbiguousMove; /* not disambiguated */
-
-    /* remove the [xX:-] */
-    if ((yytext[2] == 'x') || (yytext[2] == 'X') ||
-       (yytext[2] == '-') || (yytext[2] == ':')) skip = 1;
-
-    currentMoveString[0] = yytext[0];
-    currentMoveString[1] = yytext[1];
-    currentMoveString[2] = yytext[2+skip];
-    currentMoveString[3] = yytext[3+skip];
-    currentMoveString[4] = NULLCHAR;
-
-    if (yyleng-skip > 4) {
-       if (yytext[yyleng-1] == ')') {
-           currentMoveString[4] = ToLower(yytext[yyleng-2]);
-       } else {
-           currentMoveString[4] = ToLower(yytext[yyleng-1]);
+    for(i=start; kanjiTab[i]; i+=4) {
+       if(q[0] == kanjiTab[i+1] && q[1] == kanjiTab[i+2] && q[2] == kanjiTab[i+3]) {
+           (*p) += 3; kifu = 0x80;
+           return kanjiTab[i];
        }
-       currentMoveString[5] = NULLCHAR;
     }
 
-    result = LegalityTest(boards[yyboardindex],
-                         PosFlags(yyboardindex), EP_UNKNOWN,
-                         currentMoveString[1] - '1',
-                         currentMoveString[0] - 'a',
-                         currentMoveString[3] - '1',
-                         currentMoveString[2] - 'a',
-                         currentMoveString[4]);
-
-    if (currentMoveString[4] == NULLCHAR &&
-       (result == WhitePromotionQueen || result == BlackPromotionQueen)) {
-       currentMoveString[4] = 'q';
-       currentMoveString[5] = NULLCHAR;
-    }
-
-    return (int) result;
-}
-       YY_BREAK
-case 3:
-YY_RULE_SETUP
-#line 257 "../parser.l"
-{
-    /*
-     * Pawn move, possibly with promotion
-     */
-    DisambiguateClosure cl;
-    int skip = 0;
-
-    if (yyskipmoves) return (int) AmbiguousMove; /* not disambiguated */
-
-    /* remove the =() */
-    if (yytext[2] == '=') skip++;
-    if (yytext[2+skip] == '(') skip++;
-
-    cl.pieceIn = WhiteOnMove(yyboardindex) ? WhitePawn : BlackPawn;
-    cl.rfIn = -1;
-    cl.ffIn = yytext[0] - 'a';
-    cl.rtIn = yytext[1] - '1';
-    cl.ftIn = yytext[0] - 'a';
-    cl.promoCharIn = yytext[2+skip];
-    Disambiguate(boards[yyboardindex],
-                PosFlags(yyboardindex), EP_UNKNOWN, &cl);
-
-    currentMoveString[0] = cl.ff + 'a';
-    currentMoveString[1] = cl.rf + '1';
-    currentMoveString[2] = cl.ft + 'a';
-    currentMoveString[3] = cl.rt + '1';
-    currentMoveString[4] = cl.promoChar;
-    currentMoveString[5] = NULLCHAR;
-
-    return (int) cl.kind;
-}
-       YY_BREAK
-case 4:
-YY_RULE_SETUP
-#line 290 "../parser.l"
-{
-    /*
-     * Pawn capture, possibly with promotion, possibly ambiguous
-     */
-    DisambiguateClosure cl;
-    int skip1 = 0, skip2 = 0;
-
-    if (yyskipmoves) return (int) AmbiguousMove; /* not disambiguated */
-
-    /* remove trailing ep or e.p. (nonstandard PGN) */
-    if (yytext[yyleng-1] == 'p') {
-      yyleng -= 2;
-      yytext[yyleng] = NULLCHAR;
-    } else if (yytext[yyleng-1] == '.') {
-      yyleng -= 4;
-      yytext[yyleng] = NULLCHAR;
-    }
-
-    /* remove the [xX:-] and =() */
-    if ((yytext[1] == 'x') || (yytext[1] == 'X')
-       || (yytext[1] == ':') || (yytext[1] == '-')) skip1 = 1;
-    if (yytext[2+skip1] == '=') skip2++;
-    if (yytext[2+skip1+skip2] == '(') skip2++;
-
-    cl.pieceIn = WhiteOnMove(yyboardindex) ? WhitePawn : BlackPawn;
-    cl.rfIn = -1;
-    cl.ffIn = yytext[0] - 'a';
-    cl.rtIn = -1;
-    cl.ftIn = yytext[1+skip1] - 'a';
-    cl.promoCharIn = yytext[2+skip1+skip2];
-    Disambiguate(boards[yyboardindex],
-                PosFlags(yyboardindex), EP_UNKNOWN, &cl);
-
-    currentMoveString[0] = cl.ff + 'a';
-    currentMoveString[1] = cl.rf + '1';
-    currentMoveString[2] = cl.ft + 'a';
-    currentMoveString[3] = cl.rt + '1';
-    currentMoveString[4] = cl.promoChar;
-    currentMoveString[5] = NULLCHAR;
-
-    return (int) cl.kind;
-}
-       YY_BREAK
-case 5:
-YY_RULE_SETUP
-#line 333 "../parser.l"
-{
-    /*
-     * unambiguously abbreviated Pawn capture, possibly with promotion
-     */
-    int skip = 0;
-    ChessMove result;
-
-    if (yyskipmoves) return (int) AmbiguousMove; /* not disambiguated */
-
-    /* remove trailing ep or e.p. (nonstandard PGN) */
-    if (yytext[yyleng-1] == 'p') {
-      yyleng -= 2;
-      yytext[yyleng] = NULLCHAR;
-    } else if (yytext[yyleng-1] == '.') {
-      yyleng -= 4;
-      yytext[yyleng] = NULLCHAR;
-    }
-
-    /* remove the [xX:-] */
-    if ((yytext[1] == 'x') || (yytext[1] == 'X')
-       || (yytext[1] == ':') || (yytext[1] == '-')) skip = 1;
-
-    currentMoveString[0] = yytext[0];
-    currentMoveString[2] = yytext[1+skip];
-    currentMoveString[3] = yytext[2+skip];
-    if (WhiteOnMove(yyboardindex)) {
-       if (yytext[2+skip] == '1') return (int) ImpossibleMove;
-       currentMoveString[1] = yytext[2+skip] - 1;
+    if((q[0] & 0xE0) == 0xC0 && (q[1] & 0xC0) == 0x80) (*p) += 2; else // for now skip unrecognized utf-8 characters
+    if((q[0] & 0xF0) == 0xE0 && (q[1] & 0xC0) == 0x80 && (q[2] & 0xC0) == 0x80) (*p) += 3; else
+    if((q[0] & 0xF8) == 0xF0 && (q[1] & 0xC0) == 0x80 && (q[2] & 0xC0) == 0x80 && (q[3] & 0xC0) == 0x80) (*p) += 4;
+    else if(**p & 0x80) return -1; // not valid utf-8
+
+    return 0; // unrecognized but valid kanji (skipped), or plain ASCII
+}
+
+int
+KifuMove (char **p)
+{
+    static char buf[MSG_SIZ];
+    char *ptr = buf+3, *q, k;
+    int wom = quickFlag ? quickFlag&1 : WhiteOnMove(yyboardindex);
+    k = GetKanji(p, XCO);
+    if(k < 0) { (*p)++; return Nothing; } // must try shift-JIS here
+    if(k >= '1' && k <= '9') {
+       buf[0] = k; buf[1] = GetKanji(p, YCO); // to-square coords
+    } else if(k == 'x') {
+       if(GetKanji(p, YCO) != ' ') (*p) -= 3; // skip spacer kanji after recapture 
+    } else if((k == 's' || k == 'g') && GetKanji(p, MISC) == 'p' && GetKanji(p, MISC) == ':') { // player name
+       snprintf(yytext, MSG_SIZ, "[%s \"", k == 's' ? "White" : "Black"); // construct PGN tag
+       for(q=yytext+8; **p && **p != '\n' && **p != '\r' && q < yytext + MSG_SIZ; ) *q++ = *(*p)++;
+       strcpy(q, "\"]\n"); parseStart = yytext; lastChar = '\n';
+       return PGNTag;
+    } else if(k == '-' && GetKanji(p, MISC) == '-') { // resign
+       int res;
+       parseStart = yytext;
+       if(wom)
+            res = BlackWins, strcpy(yytext, "{sente resigns} 0-1"); 
+       else res = WhiteWins, strcpy(yytext, "{gote resigns} 1-0");
+       return res;
     } else {
-       if (yytext[2+skip] == '8') return (int) ImpossibleMove;
-       currentMoveString[1] = yytext[2+skip] + 1;
+       while(**p && **p != '\n') (*p)++; // unrecognized Japanese kanji: skip to end of line
+       return Nothing;
     }
-    if (yyleng-skip > 3) {
-       if (yytext[yyleng-1] == ')')
-         currentMoveString[4] = ToLower(yytext[yyleng-2]);
-       else
-         currentMoveString[4] = ToLower(yytext[yyleng-1]);
-       currentMoveString[5] = NULLCHAR;
-    } else {
-       currentMoveString[4] = NULLCHAR;
-    }
-
-    result = LegalityTest(boards[yyboardindex],
-                         PosFlags(yyboardindex), EP_UNKNOWN,
-                         currentMoveString[1] - '1',
-                         currentMoveString[0] - 'a',
-                         currentMoveString[3] - '1',
-                         currentMoveString[2] - 'a',
-                         currentMoveString[4]);
-
-    if (currentMoveString[4] == NULLCHAR &&
-       (result == WhitePromotionQueen || result == BlackPromotionQueen)) {
-       currentMoveString[4] = 'q';
-       currentMoveString[5] = NULLCHAR;
+    buf[3] = GetKanji(p, PIECE); // piece ID
+    if(buf[3] == '+') buf[2] = '+', buf[3] = GetKanji(p, PIECE); // +N, +L, +S
+    k = GetKanji(p, MISC);
+    if(k == '@') { // drop move
+       buf[4] = '@', buf[5] = buf[0], buf[6] = buf[1]; buf[7] = NULLCHAR;
+       if(appData.debugMode) fprintf(debugFP, "kifu drop %s\n", ptr);
+       return NextUnit(&ptr);
     }
 
-    if (result != IllegalMove) return (int) result;
-
-    /* Special case: improperly written en passant capture */
-    if (WhiteOnMove(yyboardindex)) {
-       if (currentMoveString[3] == '5') {
-           currentMoveString[1] = '5';
-           currentMoveString[3] = '6';
-       } else {
-           return (int) IllegalMove;
-       }
-    } else {
-       if (currentMoveString[3] == '4') {
-           currentMoveString[1] = '4';
-           currentMoveString[3] = '3';
-       } else {
-           return (int) IllegalMove;
-       }
-    }
-
-    result = LegalityTest(boards[yyboardindex],
-                         PosFlags(yyboardindex), EP_UNKNOWN,
-                         currentMoveString[1] - '1',
-                         currentMoveString[0] - 'a',
-                         currentMoveString[3] - '1',
-                         currentMoveString[2] - 'a',
-                         currentMoveString[4]);
-
-    if (result == WhiteCapturesEnPassant || result == BlackCapturesEnPassant)
-      return (int) result;
-    else
-      return (int) IllegalMove;
-}
-       YY_BREAK
-case 6:
-YY_RULE_SETUP
-#line 422 "../parser.l"
-{
-    /*
-     * piece move, possibly ambiguous
-     */
-    DisambiguateClosure cl;
-    int skip = 0;
-
-    if (yyskipmoves) return (int) AmbiguousMove; /* not disambiguated */
-
-    /* remove the [xX:-] */
-    if ((yytext[1] == 'x') || (yytext[1] == 'X')
-       || (yytext[1] == ':') || (yytext[1] == '-')) skip = 1;
-
-    if (WhiteOnMove(yyboardindex)) {
-       cl.pieceIn = CharToPiece(ToUpper(yytext[0]));
-    } else {
-       cl.pieceIn = CharToPiece(ToLower(yytext[0]));
+    kifu = 0x80;
+    do { // read disambiguation (and promotion) kanji
+       switch(k) {
+         case '+': kifu |= 1; break;
+         case 'f': kifu |= 2; break;
+         case 'b': kifu |= 4; break;
+         case 's': kifu |= 8; break;
+         case 'l': kifu |= 0x10; break;
+         case 'r': kifu |= 0x20; break;
+         case 'v': kifu |= 0x40; break;
+       }
+    } while(k = GetKanji(p, MISC));
+
+    if(**p == '(' && (*p)[3] == ')') { // kif disambiguation
+       buf[4] = (*p)[1]; buf[5] = (*p)[2] + 'a' - '1'; buf[6] = buf[0]; buf[7] = buf[1]; buf[8] = (kifu & 1)*'+'; buf[9] = NULLCHAR;
+       (*p) += 4; ptr++; // strip off piece name if we know full from-square
+       if(appData.debugMode) fprintf(debugFP, "kifu move %s\n", ptr);
+       return NextUnit(&ptr);
+    } else { // kif2
+       char *q = buf+4;
+       if(islower(buf[3])) // kludge: kanji for promoted types translate as lower case
+           buf[3] += 'A' - 'a', buf[2] = '+', ptr--;        // so prefix with '+'
+       if(kifu * ~1) { // disambiguation was given, and thus is probably needed
+           if(buf[3] != 'B' && buf[3] != 'R') {                // stepper, so distance must be <= 1 (N or L never need vertical disambiguation!)
+               if(kifu & 0x10) *q++ = buf[0] - (wom ? -1 : 1); // translate left/right/straight to PSN file disambiguators
+               if(kifu & 0x20) *q++ = buf[0] + (wom ? -1 : 1);
+               if(kifu & 0x40) *q++ = buf[0], kifu |= 2;       // kludge: 'straight' only needs disambiguation if forward!
+               if(kifu & 2) *q++ = buf[1] + (wom ? -1 : 1);    // translate forward/backward/sideway to PSN rank disambiguators
+               if(kifu & 4) *q++ = buf[1] - (wom ? -1 : 1);
+               if(kifu & 8) *q++ = buf[1];
+           } // for B, R, +B and +R it gets ugly, as we cannot deduce the distance, and the Disambiguate callback has to directly look at 'kifu'
+       }
+       *q++ = buf[0]; *q++ = buf[1]; *q++ = (kifu & 1)*'+'; *q = NULLCHAR;
+       if(appData.debugMode) fprintf(debugFP, "kif2 move %s\n", ptr);
+       return NextUnit(&ptr);
     }
-    cl.rfIn = -1;
-    cl.ffIn = -1;
-    cl.rtIn = yytext[2+skip] - '1';
-    cl.ftIn = yytext[1+skip] - 'a';
-    cl.promoCharIn = NULLCHAR;
-    Disambiguate(boards[yyboardindex],
-                PosFlags(yyboardindex), EP_UNKNOWN, &cl);
-
-    currentMoveString[0] = cl.ff + 'a';
-    currentMoveString[1] = cl.rf + '1';
-    currentMoveString[2] = cl.ft + 'a';
-    currentMoveString[3] = cl.rt + '1';
-    currentMoveString[4] = cl.promoChar;
-    currentMoveString[5] = NULLCHAR;
-
-    return (int) cl.kind;
 }
-       YY_BREAK
-case 7:
-YY_RULE_SETUP
-#line 458 "../parser.l"
-{
-    /*
-     * piece move with rank or file disambiguator
-     */
-    DisambiguateClosure cl;
-    int skip = 0;
-
-    if (yyskipmoves) return (int) AmbiguousMove; /* not disambiguated */
 
-    /* remove the [xX:-] */
-    if ((yytext[2] == 'x') || (yytext[2] == 'X')
-       || (yytext[2] == ':') || (yytext[2] == '-')) skip = 1;
-
-    if (WhiteOnMove(yyboardindex)) {
-       cl.pieceIn = CharToPiece(ToUpper(yytext[0]));
-    } else {
-       cl.pieceIn = CharToPiece(ToLower(yytext[0]));
+int
+ReadLine ()
+{   // Read one line from the input file, and append to the buffer
+    char c, *start = inPtr;
+    if(fromString) return 0; // parsing string, so the end is a hard end
+    if(!inputFile) return 0;
+    while((c = fgetc(inputFile)) != EOF) {
+       *inPtr++ = c;
+       if(c == '\n') { *inPtr = NULLCHAR; return 1; }
+       if(inPtr - inputBuf > PARSEBUFSIZE-2) inPtr--; //prevent crash on overflow
     }
-    if (isalpha(yytext[1])) {
-       cl.rfIn = -1;
-       cl.ffIn = yytext[1] - 'a';
-    } else {
-       cl.rfIn = yytext[1] - '1';
-       cl.ffIn = -1;
+    if(inPtr == start) return 0;
+    *inPtr++ = '\n', *inPtr = NULLCHAR; // repair missing linefeed at EOF
+    return 1;
+}
+
+int
+Scan (char c, char **p)
+{   // line-spanning skip to mentioned character or EOF
+    do {
+       while(**p) if(*(*p)++ == c) return 0;
+    } while(ReadLine());
+    // no closing bracket; force match for entire rest of file.
+    return 1;
+}
+
+int
+SkipWhite (char **p)
+{   // skip spaces tabs and newlines; return 1 if anything was skipped
+    char *start = *p;
+    do{
+       while(**p == ' ' || **p == '\t' || **p == '\n' || **p == '\r') (*p)++;
+    } while(**p == NULLCHAR && ReadLine()); // continue as long as ReadLine reads something
+    return *p != start;
+}
+
+static inline int
+Match (char *pattern, char **ptr)
+{
+    char *p = pattern, *s = *ptr;
+    while(*p && (*p == *s++ || s[-1] == '\r' && *p--)) p++;
+    if(*p == 0) {
+       *ptr = s;
+       return 1;
     }
-    cl.rtIn = yytext[3+skip] - '1';
-    cl.ftIn = yytext[2+skip] - 'a';
-    cl.promoCharIn = NULLCHAR;
-    Disambiguate(boards[yyboardindex],
-                PosFlags(yyboardindex), EP_UNKNOWN, &cl);
-
-    currentMoveString[0] = cl.ff + 'a';
-    currentMoveString[1] = cl.rf + '1';
-    currentMoveString[2] = cl.ft + 'a';
-    currentMoveString[3] = cl.rt + '1';
-    currentMoveString[4] = cl.promoChar;
-    currentMoveString[5] = NULLCHAR;
-
-    return (int) cl.kind;
+    return 0; // no match, no ptr update
 }
-       YY_BREAK
-case 8:
-YY_RULE_SETUP
-#line 499 "../parser.l"
+
+static inline int
+Word (char *pattern, char **p)
 {
-    int rf, ff, rt, ft;
-
-    if (yyskipmoves) return (int) AmbiguousMove; /* not disambiguated */
-
-    if (WhiteOnMove(yyboardindex)) {
-       if (boards[yyboardindex][0][3] == WhiteKing) {
-           /* ICS wild castling */
-           strcpy(currentMoveString, "d1f1");
-           rf = 0;
-           ff = 3;
-           rt = 0;
-           ft = 5;
-       } else {
-           strcpy(currentMoveString, "e1c1");
-           rf = 0;
-           ff = 4;
-           rt = 0;
-           ft = 2;
-       }
-    } else{
-       if (boards[yyboardindex][7][3] == BlackKing) {
-           /* ICS wild castling */
-           strcpy(currentMoveString, "d8f8");
-           rf = 7;
-           ff = 3;
-           rt = 7;
-           ft = 5;
-       } else {
-           strcpy(currentMoveString, "e8c8");
-           rf = 7;
-           ff = 4;
-           rt = 7;
-           ft = 2;
-       }
+    if(Match(pattern, p)) return 1;
+    if(*pattern >= 'a' && *pattern <= 'z' && *pattern - **p == 'a' - 'A') { // capitalized
+       (*p)++;
+       if(Match(pattern + 1, p)) return 1;
+       (*p)--;
     }
-    return (int) LegalityTest(boards[yyboardindex],
-                             PosFlags(yyboardindex), EP_UNKNOWN,
-                             rf, ff, rt, ft, NULLCHAR);
+    return 0;
 }
-       YY_BREAK
-case 9:
-YY_RULE_SETUP
-#line 540 "../parser.l"
+
+int
+Verb (char *pattern, char **p)
 {
-    int rf, ff, rt, ft;
-
-    if (yyskipmoves) return (int) AmbiguousMove; /* not disambiguated */
-
-    if (WhiteOnMove(yyboardindex)) {
-       if (boards[yyboardindex][0][3] == WhiteKing) {
-           /* ICS wild castling */
-           strcpy(currentMoveString, "d1b1");
-           rf = 0;
-           ff = 3;
-           rt = 0;
-           ft = 1;
-       } else {
-           strcpy(currentMoveString, "e1g1");
-           rf = 0;
-           ff = 4;
-           rt = 0;
-           ft = 6;
-       }
-    } else {
-       if (boards[yyboardindex][7][3] == BlackKing) {
-           /* ICS wild castling */
-           strcpy(currentMoveString, "d8b8");
-           rf = 7;
-           ff = 3;
-           rt = 7;
-           ft = 1;
-       } else {
-           strcpy(currentMoveString, "e8g8");
-           rf = 7;
-           ff = 4;
-           rt = 7;
-           ft = 6;
-       }
-    }
-    return (int) LegalityTest(boards[yyboardindex],
-                             PosFlags(yyboardindex), EP_UNKNOWN,
-                             rf, ff, rt, ft, NULLCHAR);
+    int res = Word(pattern, p);
+    if(res && !Match("s", p)) Match("ed", p); // eat conjugation suffix, if any
+    return res;
 }
-       YY_BREAK
-case 10:
-YY_RULE_SETUP
-#line 581 "../parser.l"
+
+int
+Number (char **p)
 {
-    /* Bughouse piece drop.  No legality checking for now. */
-    currentMoveString[1] = '@';
-    currentMoveString[2] = yytext[2];
-    currentMoveString[3] = yytext[3];
-    currentMoveString[4] = NULLCHAR;
-    if (WhiteOnMove(yyboardindex)) {
-       currentMoveString[0] = ToUpper(yytext[0]);
-       return (int) WhiteDrop;
-    } else {
-       currentMoveString[0] = ToLower(yytext[0]);
-       return (int) BlackDrop;
+    int val = 0;
+    if(**p < '0' || **p > '9') return BADNUMBER;
+    while(**p >= '0' && **p <= '9') {
+       val = 10*val + *(*p)++ - '0';
     }
+    return val;
 }
-       YY_BREAK
-case 11:
-YY_RULE_SETUP
-#line 596 "../parser.l"
-{
-    if (WhiteOnMove(yyboardindex))
-      return (int) BlackWins;
-    else
-      return (int) WhiteWins;
-}
-       YY_BREAK
-case 12:
-YY_RULE_SETUP
-#line 603 "../parser.l"
-{
-    return (int) (ToUpper(yytext[0]) == 'W' ? BlackWins : WhiteWins);
-}
-       YY_BREAK
-case 13:
-YY_RULE_SETUP
-#line 607 "../parser.l"
-{
-    return (int) GameUnfinished;
-}
-       YY_BREAK
-case 14:
-YY_RULE_SETUP
-#line 611 "../parser.l"
-{
-    return (int) GameIsDrawn;
-}
-       YY_BREAK
-case 15:
-YY_RULE_SETUP
-#line 615 "../parser.l"
-{
-    return (int) GameIsDrawn;
-}
-       YY_BREAK
-case 16:
-YY_RULE_SETUP
-#line 619 "../parser.l"
-{
-    if (WhiteOnMove(yyboardindex))
-      return (int) BlackWins;
-    else
-      return (int) WhiteWins;
-}
-       YY_BREAK
-case 17:
-YY_RULE_SETUP
-#line 626 "../parser.l"
-{
-    if (WhiteOnMove(yyboardindex))
-      return (int) BlackWins;
-    else
-      return (int) WhiteWins;
-}
-       YY_BREAK
-case 18:
-YY_RULE_SETUP
-#line 633 "../parser.l"
-{
-    return (int) GameIsDrawn;
-}
-       YY_BREAK
-case 19:
-YY_RULE_SETUP
-#line 637 "../parser.l"
-{
-    return (int) GameIsDrawn;
-}
-       YY_BREAK
-case 20:
-YY_RULE_SETUP
-#line 641 "../parser.l"
-{
-    return (int) (ToUpper(yytext[0]) == 'W' ? WhiteWins : BlackWins);
-}
-       YY_BREAK
-case 21:
-YY_RULE_SETUP
-#line 645 "../parser.l"
-{
-    return (int) (ToUpper(yytext[0]) == 'W' ? BlackWins : WhiteWins);
-}
-       YY_BREAK
-case 22:
-YY_RULE_SETUP
-#line 649 "../parser.l"
-{
-    return (int) WhiteWins;
-}
-       YY_BREAK
-case 23:
-YY_RULE_SETUP
-#line 653 "../parser.l"
-{
-    return (int) BlackWins;
-}
-       YY_BREAK
-case 24:
-YY_RULE_SETUP
-#line 657 "../parser.l"
-{
-    return (int) GameIsDrawn;
-}
-       YY_BREAK
-case 25:
-YY_RULE_SETUP
-#line 661 "../parser.l"
-{
-    return (int) GameUnfinished;
-}
-       YY_BREAK
-case 26:
-YY_RULE_SETUP
-#line 665 "../parser.l"
-{
-    /* move numbers */
-    if ((yyleng == 1) && (yytext[0] == '1'))
-      return (int) MoveNumberOne;
-}
-       YY_BREAK
-case 27:
-YY_RULE_SETUP
-#line 671 "../parser.l"
-{
-    /* elapsed time indication, e.g. (0:12) or {10:21.071} */
-    return (int) ElapsedTime;
-}
-       YY_BREAK
-case 28:
-YY_RULE_SETUP
-#line 676 "../parser.l"
-{
-    /* position diagram enclosed in [-- --] */
-    return (int) PositionDiagram;
-}
-       YY_BREAK
-case 29:
-*yy_cp = yy_hold_char; /* undo effects of setting up yytext */
-yy_c_buf_p = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 681 "../parser.l"
-{
-    /* position diagram enclosed in {-- --} */
-    return (int) PositionDiagram;
-}
-       YY_BREAK
-case 30:
-YY_RULE_SETUP
-#line 686 "../parser.l"
-{
-    return (int) PGNTag;
-}
-       YY_BREAK
-case 31:
-YY_RULE_SETUP
-#line 690 "../parser.l"
-{
-    return (int) GNUChessGame;
-}
-       YY_BREAK
-case 32:
-*yy_cp = yy_hold_char; /* undo effects of setting up yytext */
-yy_c_buf_p = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 694 "../parser.l"
-{
-    return (int) XBoardGame;
-}
-       YY_BREAK
-case 33:
-YY_RULE_SETUP
-#line 698 "../parser.l"
-{                              /* numeric annotation glyph */
-    return (int) NAG;
-}
-       YY_BREAK
-case 34:
-YY_RULE_SETUP
-#line 702 "../parser.l"
-{                              /* anything in {} */
-    return (int) Comment;
-}
-       YY_BREAK
-case 35:
-*yy_cp = yy_hold_char; /* undo effects of setting up yytext */
-yy_c_buf_p = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up yytext again */
-YY_RULE_SETUP
-#line 706 "../parser.l"
-{                                          /* ; to end of line */
-    return (int) Comment;
-}
-       YY_BREAK
-case 36:
-YY_RULE_SETUP
-#line 710 "../parser.l"
-{                              /* anything in [] */
-    return (int) Comment;
-}
-       YY_BREAK
-case 37:
-YY_RULE_SETUP
-#line 714 "../parser.l"
-{              /* nested () */
-    return (int) Comment;
-}
-       YY_BREAK
-case 38:
-YY_RULE_SETUP
-#line 718 "../parser.l"
-{                              /* >=2 chars in () */
-    return (int) Comment;
-}
-       YY_BREAK
-case 39:
-YY_RULE_SETUP
-#line 722 "../parser.l"
-{
-        /* Skip mail headers */
-}
-       YY_BREAK
-case 40:
-YY_RULE_SETUP
-#line 726 "../parser.l"
-{
-        /* Skip random words */
-}
-       YY_BREAK
-case 41:
-YY_RULE_SETUP
-#line 730 "../parser.l"
-{
-        /* Skip everything else */
-}
-       YY_BREAK
-case 42:
-YY_RULE_SETUP
-#line 734 "../parser.l"
-ECHO;
-       YY_BREAK
-#line 2809 "lex.yy.c"
-                       case YY_STATE_EOF(INITIAL):
-                               yyterminate();
-
-       case YY_END_OF_BUFFER:
-               {
-               /* Amount of text matched not including the EOB char. */
-               int yy_amount_of_matched_text = (int) (yy_cp - yytext_ptr) - 1;
-
-               /* Undo the effects of YY_DO_BEFORE_ACTION. */
-               *yy_cp = yy_hold_char;
-               YY_RESTORE_YY_MORE_OFFSET
-
-               if ( yy_current_buffer->yy_buffer_status == YY_BUFFER_NEW )
-                       {
-                       /* We're scanning a new file or input source.  It's
-                        * possible that this happened because the user
-                        * just pointed yyin at a new source and called
-                        * yylex().  If so, then we have to assure
-                        * consistency between yy_current_buffer and our
-                        * globals.  Here is the right place to do so, because
-                        * this is the first action (other than possibly a
-                        * back-up) that will match for the new input source.
-                        */
-                       yy_n_chars = yy_current_buffer->yy_n_chars;
-                       yy_current_buffer->yy_input_file = yyin;
-                       yy_current_buffer->yy_buffer_status = YY_BUFFER_NORMAL;
-                       }
-
-               /* Note that here we test for yy_c_buf_p "<=" to the position
-                * of the first EOB in the buffer, since yy_c_buf_p will
-                * already have been incremented past the NUL character
-                * (since all states make transitions on EOB to the
-                * end-of-buffer state).  Contrast this with the test
-                * in input().
-                */
-               if ( yy_c_buf_p <= &yy_current_buffer->yy_ch_buf[yy_n_chars] )
-                       { /* This was really a NUL. */
-                       yy_state_type yy_next_state;
-
-                       yy_c_buf_p = yytext_ptr + yy_amount_of_matched_text;
-
-                       yy_current_state = yy_get_previous_state();
-
-                       /* Okay, we're now positioned to make the NUL
-                        * transition.  We couldn't have
-                        * yy_get_previous_state() go ahead and do it
-                        * for us because it doesn't know how to deal
-                        * with the possibility of jamming (and we don't
-                        * want to build jamming into it because then it
-                        * will run more slowly).
-                        */
-
-                       yy_next_state = yy_try_NUL_trans( yy_current_state );
-
-                       yy_bp = yytext_ptr + YY_MORE_ADJ;
-
-                       if ( yy_next_state )
-                               {
-                               /* Consume the NUL. */
-                               yy_cp = ++yy_c_buf_p;
-                               yy_current_state = yy_next_state;
-                               goto yy_match;
-                               }
-
-                       else
-                               {
-                               yy_cp = yy_c_buf_p;
-                               goto yy_find_action;
-                               }
-                       }
 
-               else switch ( yy_get_next_buffer() )
-                       {
-                       case EOB_ACT_END_OF_FILE:
-                               {
-                               yy_did_buffer_switch_on_eof = 0;
-
-                               if ( yywrap() )
-                                       {
-                                       /* Note: because we've taken care in
-                                        * yy_get_next_buffer() to have set up
-                                        * yytext, we can now set up
-                                        * yy_c_buf_p so that if some total
-                                        * hoser (like flex itself) wants to
-                                        * call the scanner after we return the
-                                        * YY_NULL, it'll still work - another
-                                        * YY_NULL will get returned.
-                                        */
-                                       yy_c_buf_p = yytext_ptr + YY_MORE_ADJ;
-
-                                       yy_act = YY_STATE_EOF(YY_START);
-                                       goto do_action;
-                                       }
-
-                               else
-                                       {
-                                       if ( ! yy_did_buffer_switch_on_eof )
-                                               YY_NEW_FILE;
-                                       }
-                               break;
-                               }
-
-                       case EOB_ACT_CONTINUE_SCAN:
-                               yy_c_buf_p =
-                                       yytext_ptr + yy_amount_of_matched_text;
-
-                               yy_current_state = yy_get_previous_state();
-
-                               yy_cp = yy_c_buf_p;
-                               yy_bp = yytext_ptr + YY_MORE_ADJ;
-                               goto yy_match;
-
-                       case EOB_ACT_LAST_MATCH:
-                               yy_c_buf_p =
-                               &yy_current_buffer->yy_ch_buf[yy_n_chars];
-
-                               yy_current_state = yy_get_previous_state();
-
-                               yy_cp = yy_c_buf_p;
-                               yy_bp = yytext_ptr + YY_MORE_ADJ;
-                               goto yy_find_action;
-                       }
-               break;
+int
+RdTime (char c, char **p)
+{
+    char *start = ++(*p), *sec; // increment *p, as it was pointing to the opening ( or {
+    if(Number(p) == BADNUMBER) return 0;
+    sec = *p;
+    if(Match(":", p) && Number(p) != BADNUMBER && *p - sec == 3) { // well formed
+       sec = *p;
+       if(Match(".", p) && Number(p) != BADNUMBER && *(*p)++ == c) return 1; // well-formed fraction
+       *p = sec;
+       if(*(*p)++ == c) return 1; // matching bracket without fraction
+    }
+    *p = start; // failure
+    return 0;
+}
+
+char
+PromoSuffix (char **p)
+{
+    char *start = *p;
+    if(**p == ' ') return NULLCHAR; // common case, test explicitly for speed
+    if(**p == 'e' && (Match("ep", p) || Match("e.p.", p))) { *p = start; return NULLCHAR; } // non-compliant e.p. suffix is no promoChar!
+    if(**p == '+' && IS_SHOGI(gameInfo.variant)) { (*p)++; return '+'; }
+    if(**p == '=' || (gameInfo.variant == VariantSChess) && **p == '/') (*p)++; // optional = (or / for Seirawan gating)
+    if(**p == '(' && (*p)[2] == ')' && isalpha( (*p)[1] )) { (*p) += 3; return ToLower((*p)[-2]); }
+    if(isalpha(**p) && **p != 'x') return ToLower(*(*p)++); // reserve 'x' for multi-leg captures? 
+    if(*p != start) return **p == '+' ? *(*p)++ : '='; // must be the optional = (or =+)
+    return NULLCHAR; // no suffix detected
+}
+
+int
+NextUnit (char **p)
+{      // Main parser routine
+       int coord[4], n, result, piece, i;
+       char type[4], promoted, separator, slash, *oldp, *commentEnd, c;
+        int wom = quickFlag ? quickFlag&1 : WhiteOnMove(yyboardindex);
+
+       // ********* try white first, because it is so common **************************
+       if(**p == ' ' || **p == '\n' || **p == '\t') { parseStart = (*p)++; return Nothing; }
+
+
+       if(**p == NULLCHAR) { // make sure there is something to parse
+           if(fromString) return 0; // we are parsing string, so the end is really the end
+           *p = inPtr = parseStart = inputBuf;
+           if(!ReadLine()) return 0; // EOF
+       } else if(inPtr > inputBuf + PARSEBUFSIZE/2) { // buffer fills up with already parsed stuff
+           char *q = *p, *r = inputBuf;
+           while(*r++ = *q++);
+           *p = inputBuf; inPtr = r - 1;
+       }
+       parseStart = oldp = *p; // remember where we begin
+
+       // ********* attempt to recognize a SAN move in the leading non-blank text *****
+       piece = separator = promoted = slash = n = 0;
+       for(i=0; i<4; i++) coord[i] = -1, type[i] = NOTHING;
+       if(**p & 0x80) return KifuMove(p); // non-ascii. Could be some kanj notation for Shogi or Xiangqi
+       if(**p == '+') (*p)++, promoted++;
+       if(**p >= 'a' && **p <= 'z' && (*p)[1]== '@') piece =*(*p)++ + 'A' - 'a'; else
+       if(**p >= 'A' && **p <= 'Z') {
+            static char s[] = SUFFIXES;
+            char *q;
+            piece = *(*p)++; // Note we could test for 2-byte non-ascii names here
+            if(q = strchr(s, **p)) (*p)++, piece += 64*(q - s + 1);
+            if(**p == '/') slash = *(*p)++;
+       }
+        while(n < 4) {
+           if(**p >= 'a' && **p < 'x') coord[n] = *(*p)++ - 'a', type[n++] = ALPHABETIC;
+           else if((i = Number(p)) != BADNUMBER) coord[n] = i, type[n++] = NUMERIC;
+           else break;
+           if(n == 2 && type[0] == type[1]) { // if two identical types, the opposite type in between must have been missing
+               type[2] = type[1]; coord[2] = coord[1];
+               type[1] = NOTHING; coord[1] = -1; n++;
+           }
+       }
+       // we always get here, and might have read a +, a piece, and upto 4 potential coordinates
+       if(n <= 2) { // could be from-square or disambiguator, when -:xX follow, or drop with @ directly after piece, but also to-square
+            if(**p == '-' || **p == ':' || **p == 'x' || **p == 'X' || // these cannot be move suffix, so to-square must follow
+                (**p == '@' || **p == '*') && n == 0 && !promoted && piece) { // P@ must also be followed by to-square
+               separator = *(*p)++;
+               if(n == 1) coord[1] = coord[0]; // must be disambiguator, but we do not know which yet
+               n = 2;
+               while(n < 4) { // attempt to read to-square
+                   if(**p >= 'a' && **p < 'x') coord[n] = *(*p)++ - 'a', type[n++] = ALPHABETIC;
+                   else if((i = Number(p)) != BADNUMBER) coord[n] = i, type[n++] = NUMERIC;
+                   else break;
                }
-
-       default:
-               YY_FATAL_ERROR(
-                       "fatal flex scanner internal error--no action found" );
-       } /* end of action switch */
-               } /* end of scanning one token */
-       } /* end of yylex */
-
-
-/* yy_get_next_buffer - try to read in a new buffer
- *
- * Returns a code representing an action:
- *     EOB_ACT_LAST_MATCH -
- *     EOB_ACT_CONTINUE_SCAN - continue scanning from current position
- *     EOB_ACT_END_OF_FILE - end of file
- */
-
-static int yy_get_next_buffer()
-       {
-       register char *dest = yy_current_buffer->yy_ch_buf;
-       register char *source = yytext_ptr;
-       register int number_to_move, i;
-       int ret_val;
-
-       if ( yy_c_buf_p > &yy_current_buffer->yy_ch_buf[yy_n_chars + 1] )
-               YY_FATAL_ERROR(
-               "fatal flex scanner internal error--end of buffer missed" );
-
-       if ( yy_current_buffer->yy_fill_buffer == 0 )
-               { /* Don't try to fill the buffer, so this is an EOF. */
-               if ( yy_c_buf_p - yytext_ptr - YY_MORE_ADJ == 1 )
-                       {
-                       /* We matched a single character, the EOB, so
-                        * treat this as a final EOF.
-                        */
-                       return EOB_ACT_END_OF_FILE;
-                       }
-
-               else
-                       {
-                       /* We matched some text prior to the EOB, first
-                        * process it.
-                        */
-                       return EOB_ACT_LAST_MATCH;
-                       }
+           } else if((**p == '+' || **p == '=') && n == 1 && piece && type[0] == NUMERIC) { // can be traditional Xiangqi notation
+               separator = *(*p)++;
+               n = 2;
+               if((i = Number(p)) != BADNUMBER) coord[n] = i, type[n++] = NUMERIC;
+           } else if(n == 2) { // only one square mentioned, must be to-square
+               while(n < 4) { coord[n] = coord[n-2], type[n] = type[n-2], coord[n-2] = -1, type[n-2] = NOTHING; n++; }
+           }
+       } else if(n == 3 && type[1] != NOTHING) { // must be hyphenless disambiguator + to-square
+           for(i=3; i>0; i--) coord[i] = coord[i-1], type[i] = type[i-1]; // move to-square to where it belongs
+           type[1] = NOTHING; // disambiguator goes in first two positions
+           n = 4;
+       }
+       // we always get here; move must be completely read now, with to-square coord(s) at end
+       if(n == 3) { // incomplete to-square. Could be Xiangqi traditional, or stuff like fxg
+           if(piece && type[1] == NOTHING && type[0] == NUMERIC && type[2] == NUMERIC &&
+               (separator == '+' || separator == '=' || separator == '-')) {
+                    // Xiangqi traditional
+
+               return ImpossibleMove; // for now treat as invalid
+           }
+           // fxg stuff, but also things like 0-0, 0-1 and 1-0
+           if(!piece && type[1] == NOTHING && type[0] == ALPHABETIC && type[2] == ALPHABETIC
+                && (coord[0] != 14 || coord[2] != 14) /* reserve oo for castling! */ ) {
+               piece = 'P'; n = 4; // kludge alert: fake full to-square
+           }
+       } else if(n == 1 && type[0] == NUMERIC && coord[0] > 1) { while(**p == '.') (*p)++; return Nothing; } // fast exit for move numbers
+       if(n == 4 && type[2] != type[3] && // we have a valid to-square (kludge: type[3] can be NOTHING on fxg type move)
+                    (piece || !promoted) && // promoted indicator only valid on named piece type
+                    (type[2] == ALPHABETIC || IS_SHOGI(gameInfo.variant))) { // in Shogi also allow alphabetic rank
+           DisambiguateClosure cl;
+           int fromX, fromY, toX, toY;
+
+           if(slash && (!piece || type[1] == NOTHING)) goto badMove; // slash after piece only in ICS long format
+           if (yyskipmoves) return (int) AmbiguousMove; /* not disambiguated */
+
+           if(type[2] == NUMERIC) { // alpha-rank
+               coord[2] = BOARD_RGHT - BOARD_LEFT - coord[2];
+               coord[3] = BOARD_HEIGHT - coord[3];
+               if(coord[0] >= 0) coord[0] = BOARD_RGHT - BOARD_LEFT - coord[0];
+               if(coord[1] >= 0) coord[1] = BOARD_HEIGHT - coord[1];
+           }
+           toX = cl.ftIn = (currentMoveString[2] = coord[2] + 'a') - AAA;
+           toY = cl.rtIn = (currentMoveString[3] = coord[3] + '0') - ONE;
+           if(type[3] == NOTHING) cl.rtIn = -1; // for fxg type moves ask for toY disambiguation
+           else if(toY >= BOARD_HEIGHT || toY < 0)   return ImpossibleMove; // vert off-board to-square
+           if(toX < BOARD_LEFT || toX >= BOARD_RGHT) return ImpossibleMove;
+           if(piece) {
+               cl.pieceIn = CharToPiece(wom ? piece : piece + 'a' - 'A');
+               if(cl.pieceIn == EmptySquare) return ImpossibleMove; // non-existent piece
+               if(promoted) cl.pieceIn = (ChessSquare) (CHUPROMOTED(cl.pieceIn));
+           } else cl.pieceIn = EmptySquare;
+           if(separator == '@' || separator == '*') { // drop move. We only get here without from-square or promoted piece
+               fromY = DROP_RANK; fromX = cl.pieceIn;
+               currentMoveString[0] = piece;
+               currentMoveString[1] = '@';
+               currentMoveString[4] = NULLCHAR;
+               return LegalityTest(boards[yyboardindex], PosFlags(yyboardindex)&~F_MANDATORY_CAPTURE, fromY, fromX, toY, toX, NULLCHAR);
+           }
+           if(type[1] == NOTHING && type[0] != NOTHING) { // there is a disambiguator
+               if(type[0] != type[2]) coord[0] = -1, type[1] = type[0], type[0] = NOTHING; // it was a rank-disambiguator
+           }
+           if(  type[1] != type[2] && // means fromY is of opposite type as ToX, or NOTHING
+               (type[0] == NOTHING || type[0] == type[2]) ) { // well formed
+               int suffix = 7;
+               fromX = (currentMoveString[0] = coord[0] + 'a') - AAA;
+               fromY = (currentMoveString[1] = coord[1] + '0') - ONE;
+               currentMoveString[4] = cl.promoCharIn = PromoSuffix(p);
+               currentMoveString[5] = NULLCHAR;
+               if(**p == 'x' && !cl.promoCharIn) { // other leg follows
+                   char *q = *p;
+                   int x = *++*p, y;
+                   ++*p; y = Number(p);
+                   if(**p == '-' || **p == 'x') {  // 3-leg move!
+                       currentMoveString[7] = (kill2X = toX) + AAA; // what we thought was to-square is in fact 1st kill-square of two
+                       currentMoveString[8] = (kill2Y = toY) + ONE; // append it after 2nd kill-square
+                       toX = x - AAA;       // kludge alert: this will become 2nd kill square
+                       toY = y + '0' - ONE;
+                       suffix += 2;
+                   } else *p = q; // 2-leg move, rewind to leave reading of 2nd leg to code below
                }
-
-       /* Try to read more data. */
-
-       /* First move last chars to start of buffer. */
-       number_to_move = (int) (yy_c_buf_p - yytext_ptr) - 1;
-
-       for ( i = 0; i < number_to_move; ++i )
-               *(dest++) = *(source++);
-
-       if ( yy_current_buffer->yy_buffer_status == YY_BUFFER_EOF_PENDING )
-               /* don't do the read, it's not guaranteed to return an EOF,
-                * just force an EOF
-                */
-               yy_current_buffer->yy_n_chars = yy_n_chars = 0;
-
-       else
-               {
-               int num_to_read =
-                       yy_current_buffer->yy_buf_size - number_to_move - 1;
-
-               while ( num_to_read <= 0 )
-                       { /* Not enough room in the buffer - grow it. */
-#ifdef YY_USES_REJECT
-                       YY_FATAL_ERROR(
-"input buffer overflow, can't enlarge buffer because scanner uses REJECT" );
-#else
-
-                       /* just a shorter name for the current buffer */
-                       YY_BUFFER_STATE b = yy_current_buffer;
-
-                       int yy_c_buf_p_offset =
-                               (int) (yy_c_buf_p - b->yy_ch_buf);
-
-                       if ( b->yy_is_our_buffer )
-                               {
-                               int new_size = b->yy_buf_size * 2;
-
-                               if ( new_size <= 0 )
-                                       b->yy_buf_size += b->yy_buf_size / 8;
-                               else
-                                       b->yy_buf_size *= 2;
-
-                               b->yy_ch_buf = (char *)
-                                       /* Include room in for 2 EOB chars. */
-                                       yy_flex_realloc( (void *) b->yy_ch_buf,
-                                                        b->yy_buf_size + 2 );
-                               }
-                       else
-                               /* Can't grow it, we don't own it. */
-                               b->yy_ch_buf = 0;
-
-                       if ( ! b->yy_ch_buf )
-                               YY_FATAL_ERROR(
-                               "fatal error - scanner input buffer overflow" );
-
-                       yy_c_buf_p = &b->yy_ch_buf[yy_c_buf_p_offset];
-
-                       num_to_read = yy_current_buffer->yy_buf_size -
-                                               number_to_move - 1;
-#endif
-                       }
-
-               if ( num_to_read > YY_READ_BUF_SIZE )
-                       num_to_read = YY_READ_BUF_SIZE;
-
-               /* Read in more data. */
-               YY_INPUT( (&yy_current_buffer->yy_ch_buf[number_to_move]),
-                       yy_n_chars, num_to_read );
-
-               yy_current_buffer->yy_n_chars = yy_n_chars;
+               if(!cl.promoCharIn && (**p == '-' || **p == 'x')) { // Lion-type multi-leg move
+                   currentMoveString[5] = (killX = toX) + AAA; // what we thought was to-square is in fact kill-square
+                   currentMoveString[6] = (killY = toY) + ONE; // append it as suffix behind long algebraic move
+                   currentMoveString[4] = ';';
+                   currentMoveString[suffix+1] = NULLCHAR;
+                   // read new to-square (VERY non-robust! Assumes correct (non-alpha-rank) syntax, and messes up on errors)
+                   toX = cl.ftIn = (currentMoveString[2] = *++*p) - AAA; ++*p;
+                   toY = cl.rtIn = (currentMoveString[3] = Number(p) + '0') - ONE;
+                   currentMoveString[suffix] = cl.promoCharIn = PromoSuffix(p);
                }
-
-       if ( yy_n_chars == 0 )
-               {
-               if ( number_to_move == YY_MORE_ADJ )
-                       {
-                       ret_val = EOB_ACT_END_OF_FILE;
-                       yyrestart( yyin );
-                       }
-
-               else
-                       {
-                       ret_val = EOB_ACT_LAST_MATCH;
-                       yy_current_buffer->yy_buffer_status =
-                               YY_BUFFER_EOF_PENDING;
+               if(type[0] != NOTHING && type[1] != NOTHING && type[3] != NOTHING) { // fully specified.
+                   ChessSquare realPiece = boards[yyboardindex][fromY][fromX];
+                   // Note that Disambiguate does not work for illegal moves, but flags them as impossible
+                   if(piece) { // check if correct piece indicated
+                       if(PieceToChar(realPiece) == '~') realPiece = (ChessSquare) (DEMOTED(realPiece));
+                       if(!(appData.icsActive && PieceToChar(realPiece) == '+') && // trust ICS if it moves promoted pieces
+                          piece && realPiece != cl.pieceIn) return ImpossibleMove;
+                   } else if(!separator && **p == '+') { // could be a protocol move, where bare '+' suffix means shogi-style promotion
+                       if(realPiece < (wom ?  WhiteCannon : BlackCannon) && PieceToChar(PROMOTED(realPiece)) == '+') // seems to be that
+                          currentMoveString[4] = cl.promoCharIn = *(*p)++; // append promochar after all
+                   }
+                   result = LegalityTest(boards[yyboardindex], PosFlags(yyboardindex), fromY, fromX, toY, toX, cl.promoCharIn);
+                   if (currentMoveString[4] == NULLCHAR) { // suppy missing mandatory promotion character
+                     if(result == WhitePromotion  || result == BlackPromotion) {
+                       switch(gameInfo.variant) {
+                         case VariantCourier:
+                         case VariantShatranj: currentMoveString[4] = PieceToChar(BlackFerz); break;
+                         case VariantGreat:    currentMoveString[4] = PieceToChar(BlackMan); break;
+                         case VariantShogi:    currentMoveString[4] = '+'; break;
+                         default:              currentMoveString[4] = PieceToChar(BlackQueen);
                        }
+                     } else if(result == WhiteNonPromotion  || result == BlackNonPromotion) {
+                                               currentMoveString[4] = '=';
+                     }
+                   } else if(appData.testLegality && gameInfo.variant != VariantSChess && // strip off unnecessary and false promo characters
+                      !(result == WhitePromotion  || result == BlackPromotion ||
+                        result == WhiteNonPromotion || result == BlackNonPromotion)) currentMoveString[4] = NULLCHAR;
+                   return result;
+               } else if(cl.pieceIn == EmptySquare) cl.pieceIn = wom ? WhitePawn : BlackPawn;
+               cl.ffIn = type[0] == NOTHING ? -1 : coord[0] + 'a' - AAA;
+               cl.rfIn = type[1] == NOTHING ? -1 : coord[1] + '0' - ONE;
+
+               Disambiguate(boards[yyboardindex], PosFlags(yyboardindex), &cl);
+
+               if(cl.kind == ImpossibleMove && !piece && type[1] == NOTHING // fxg5 type
+                       && toY == (wom ? 4 : 3)) { // could be improperly written e.p.
+                   cl.rtIn += wom ? 1 : -1; // shift target square to e.p. square
+                   Disambiguate(boards[yyboardindex], PosFlags(yyboardindex), &cl);
+                   if((cl.kind != WhiteCapturesEnPassant && cl.kind != BlackCapturesEnPassant))
+                       return ImpossibleMove; // nice try, but no cigar
                }
 
-       else
-               ret_val = EOB_ACT_CONTINUE_SCAN;
-
-       yy_n_chars += number_to_move;
-       yy_current_buffer->yy_ch_buf[yy_n_chars] = YY_END_OF_BUFFER_CHAR;
-       yy_current_buffer->yy_ch_buf[yy_n_chars + 1] = YY_END_OF_BUFFER_CHAR;
-
-       yytext_ptr = &yy_current_buffer->yy_ch_buf[0];
-
-       return ret_val;
-       }
-
-
-/* yy_get_previous_state - get the state just before the EOB char was reached */
-
-static yy_state_type yy_get_previous_state()
-       {
-       register yy_state_type yy_current_state;
-       register char *yy_cp;
-
-       yy_current_state = yy_start;
-       yy_current_state += YY_AT_BOL();
-       yy_state_ptr = yy_state_buf;
-       *yy_state_ptr++ = yy_current_state;
-
-       for ( yy_cp = yytext_ptr + YY_MORE_ADJ; yy_cp < yy_c_buf_p; ++yy_cp )
-               {
-               register YY_CHAR yy_c = (*yy_cp ? yy_ec[YY_SC_TO_UI(*yy_cp)] : 1);
-               while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
-                       {
-                       yy_current_state = (int) yy_def[yy_current_state];
-                       if ( yy_current_state >= 711 )
-                               yy_c = yy_meta[(unsigned int) yy_c];
-                       }
-               yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
-               *yy_state_ptr++ = yy_current_state;
+               currentMoveString[0] = cl.ff + AAA;
+               currentMoveString[1] = cl.rf + ONE;
+               currentMoveString[3] = cl.rt + ONE;
+               if(killX < 0) // [HGM] lion: do not overwrite kill-square suffix
+               currentMoveString[4] = cl.promoChar;
+
+               if((cl.kind == WhiteCapturesEnPassant || cl.kind == BlackCapturesEnPassant) && !Match("ep", p)) Match("e.p.", p);
+
+               return (int) cl.kind;
+           }
+       }
+badMove:// we failed to find algebraic move
+       *p = oldp;
+
+
+       // Next we do some common symbols where the first character commits us to things that cannot possibly be a move
+
+       // ********* PGN tags ******************************************
+       if(**p == '[') {
+           oldp = ++(*p); kifu = 0;
+           if(Match("--", p)) { // "[--" could be start of position diagram
+               if(!Scan(']', p) && (*p)[-3] == '-' && (*p)[-2] == '-') return PositionDiagram;
+               *p = oldp;
+           }
+           SkipWhite(p);
+           if(isdigit(**p) || isalpha(**p)) {
+               do (*p)++; while(isdigit(**p) || isalpha(**p) || **p == '+' ||
+                               **p == '-' || **p == '=' || **p == '_' || **p == '#');
+               SkipWhite(p);
+               if(**p == '"') {
+                   (*p)++;
+                   while(**p != '\n' && (*(*p)++ != '"'|| (*p)[-2] == '\\')); // look for unescaped quote
+                   if((*p)[-1] !='"') { *p = oldp; Scan(']', p); return Comment; } // string closing delimiter missing
+                   SkipWhite(p); if(*(*p)++ == ']') return PGNTag;
                }
-
-       return yy_current_state;
-       }
-
-
-/* yy_try_NUL_trans - try to make a transition on the NUL character
- *
- * synopsis
- *     next_state = yy_try_NUL_trans( current_state );
- */
-
-#ifdef YY_USE_PROTOS
-static yy_state_type yy_try_NUL_trans( yy_state_type yy_current_state )
-#else
-static yy_state_type yy_try_NUL_trans( yy_current_state )
-yy_state_type yy_current_state;
-#endif
-       {
-       register int yy_is_jam;
-
-       register YY_CHAR yy_c = 1;
-       while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
-               {
-               yy_current_state = (int) yy_def[yy_current_state];
-               if ( yy_current_state >= 711 )
-                       yy_c = yy_meta[(unsigned int) yy_c];
+           }
+           Scan(']', p); return Comment;
+       }
+
+       // ********* SAN Castings *************************************
+       if(**p == 'O' || **p == 'o' || **p == '0' && !Match("00:", p)) { // exclude 00 in time stamps
+           int castlingType = 0;
+           if(Match("O-O-O", p) || Match("o-o-o", p) || Match("0-0-0", p) ||
+              Match("OOO", p) || Match("ooo", p) || Match("000", p)) castlingType = 2;
+           else if(Match("O-O", p) || Match("o-o", p) || Match("0-0", p) ||
+                   Match("OO", p) || Match("oo", p) || Match("00", p)) castlingType = 1;
+           if(castlingType) { //code from old parser, collapsed for both castling types, and streamlined a bit
+               int rf, ff, rt, ft; ChessSquare king;
+               char promo=NULLCHAR;
+
+               if(gameInfo.variant == VariantSChess) promo = PromoSuffix(p);
+
+               if (yyskipmoves) return (int) AmbiguousMove; /* not disambiguated */
+
+               if (wom) {
+                   rf = castlingRank[0];
+                   rt = castlingRank[0];
+                   king = WhiteKing;
+               } else {
+                   rf = castlingRank[3];
+                   rt = castlingRank[3];
+                   king = BlackKing;
                }
-       yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
-       yy_is_jam = (yy_current_state == 710);
-       if ( ! yy_is_jam )
-               *yy_state_ptr++ = yy_current_state;
-
-       return yy_is_jam ? 0 : yy_current_state;
-       }
-
-
-#ifndef YY_NO_UNPUT
-#ifdef YY_USE_PROTOS
-static void yyunput( int c, register char *yy_bp )
-#else
-static void yyunput( c, yy_bp )
-int c;
-register char *yy_bp;
-#endif
-       {
-       register char *yy_cp = yy_c_buf_p;
-
-       /* undo effects of setting up yytext */
-       *yy_cp = yy_hold_char;
-
-       if ( yy_cp < yy_current_buffer->yy_ch_buf + 2 )
-               { /* need to shift things up to make room */
-               /* +2 for EOB chars. */
-               register int number_to_move = yy_n_chars + 2;
-               register char *dest = &yy_current_buffer->yy_ch_buf[
-                                       yy_current_buffer->yy_buf_size + 2];
-               register char *source =
-                               &yy_current_buffer->yy_ch_buf[number_to_move];
-
-               while ( source > yy_current_buffer->yy_ch_buf )
-                       *--dest = *--source;
-
-               yy_cp += (int) (dest - source);
-               yy_bp += (int) (dest - source);
-               yy_current_buffer->yy_n_chars =
-                       yy_n_chars = yy_current_buffer->yy_buf_size;
-
-               if ( yy_cp < yy_current_buffer->yy_ch_buf + 2 )
-                       YY_FATAL_ERROR( "flex scanner push-back overflow" );
+               ff = (BOARD_WIDTH-1)>>1; // this would be d-file
+               if (boards[yyboardindex][rf][ff] == king) {
+                   /* ICS wild castling */
+                   ft = castlingType == 1 ? BOARD_LEFT+1 : (gameInfo.variant == VariantJanus ? BOARD_RGHT-2 : BOARD_RGHT-3);
+               } else {
+                   char *q;
+                   ff = BOARD_WIDTH>>1; // e-file
+                   ft = castlingType == 1 ? BOARD_RGHT-2 : BOARD_LEFT+2;
+                   if(pieceDesc[king] && (q = strchr(pieceDesc[king], 'O'))) { // redefined to non-default King stride
+                       ft = (castlingType == 1 ? ff + atoi(q+1) : ff - atoi(q+1));
+                   }
                }
-
-       *--yy_cp = (char) c;
-
-
-       yytext_ptr = yy_bp;
-       yy_hold_char = *yy_cp;
-       yy_c_buf_p = yy_cp;
-       }
-#endif /* ifndef YY_NO_UNPUT */
-
-
-#ifndef YY_NO_INPUT
-#ifdef __cplusplus
-static int yyinput()
-#else
-static int input()
-#endif
-       {
-       int c;
-
-       *yy_c_buf_p = yy_hold_char;
-
-       if ( *yy_c_buf_p == YY_END_OF_BUFFER_CHAR )
-               {
-               /* yy_c_buf_p now points to the character we want to return.
-                * If this occurs *before* the EOB characters, then it's a
-                * valid NUL; if not, then we've hit the end of the buffer.
-                */
-               if ( yy_c_buf_p < &yy_current_buffer->yy_ch_buf[yy_n_chars] )
-                       /* This was really a NUL. */
-                       *yy_c_buf_p = '\0';
-
-               else
-                       { /* need more input */
-                       int offset = yy_c_buf_p - yytext_ptr;
-                       ++yy_c_buf_p;
-
-                       switch ( yy_get_next_buffer() )
-                               {
-                               case EOB_ACT_LAST_MATCH:
-                                       /* This happens because yy_g_n_b()
-                                        * sees that we've accumulated a
-                                        * token and flags that we need to
-                                        * try matching the token before
-                                        * proceeding.  But for input(),
-                                        * there's no matching to consider.
-                                        * So convert the EOB_ACT_LAST_MATCH
-                                        * to EOB_ACT_END_OF_FILE.
-                                        */
-
-                                       /* Reset buffer status. */
-                                       yyrestart( yyin );
-
-                                       /* fall through */
-
-                               case EOB_ACT_END_OF_FILE:
-                                       {
-                                       if ( yywrap() )
-                                               return EOF;
-
-                                       if ( ! yy_did_buffer_switch_on_eof )
-                                               YY_NEW_FILE;
-#ifdef __cplusplus
-                                       return yyinput();
-#else
-                                       return input();
-#endif
-                                       }
-
-                               case EOB_ACT_CONTINUE_SCAN:
-                                       yy_c_buf_p = yytext_ptr + offset;
-                                       break;
-                               }
-                       }
+               if(PosFlags(0) & F_FRC_TYPE_CASTLING) {
+                   if (wom) {
+                       ff = initialRights[2];
+                       ft = initialRights[castlingType-1];
+                   } else {
+                       ff = initialRights[5];
+                       ft = initialRights[castlingType+2];
+                   }
+                   if (appData.debugMode) fprintf(debugFP, "Parser FRC (type=%d) %d %d\n", castlingType, ff, ft);
+                   if(ff == NoRights || ft == NoRights) return ImpossibleMove;
                }
-
-       c = *(unsigned char *) yy_c_buf_p;      /* cast for 8-bit char's */
-       *yy_c_buf_p = '\0';     /* preserve yytext */
-       yy_hold_char = *++yy_c_buf_p;
-
-       yy_current_buffer->yy_at_bol = (c == '\n');
-
-       return c;
-       }
-#endif /* YY_NO_INPUT */
-
-#ifdef YY_USE_PROTOS
-void yyrestart( FILE *input_file )
-#else
-void yyrestart( input_file )
-FILE *input_file;
-#endif
-       {
-       if ( ! yy_current_buffer )
-               yy_current_buffer = yy_create_buffer( yyin, YY_BUF_SIZE );
-
-       yy_init_buffer( yy_current_buffer, input_file );
-       yy_load_buffer_state();
-       }
-
-
-#ifdef YY_USE_PROTOS
-void yy_switch_to_buffer( YY_BUFFER_STATE new_buffer )
-#else
-void yy_switch_to_buffer( new_buffer )
-YY_BUFFER_STATE new_buffer;
-#endif
-       {
-       if ( yy_current_buffer == new_buffer )
-               return;
-
-       if ( yy_current_buffer )
-               {
-               /* Flush out information for old buffer. */
-               *yy_c_buf_p = yy_hold_char;
-               yy_current_buffer->yy_buf_pos = yy_c_buf_p;
-               yy_current_buffer->yy_n_chars = yy_n_chars;
+               sprintf(currentMoveString, "%c%c%c%c%c",ff+AAA,rf+ONE,ft+AAA,rt+ONE,promo);
+               if (appData.debugMode) fprintf(debugFP, "(%d-type) castling %d %d\n", castlingType, ff, ft);
+
+               return (int) LegalityTest(boards[yyboardindex],
+                             PosFlags(yyboardindex)&~F_MANDATORY_CAPTURE, // [HGM] losers: e.p.!
+                             rf, ff, rt, ft, promo);
+           } else if(Match("01", p)) return Nothing; // prevent this from being mistaken for move number 1
+       }
+
+
+       // ********* variations (nesting) ******************************
+       if(**p =='(') {
+           if(RdTime(')', p)) return ElapsedTime;
+           return Open;
+       }
+       if(**p ==')') { (*p)++; return Close; }
+       if(**p == ';') { while(**p != '\n') (*p)++; return Comment; }
+
+
+       // ********* Comments and result messages **********************
+       *p = oldp; commentEnd = NULL; result = 0;
+       if(**p == '{') {
+           if(RdTime('}', p)) return ElapsedTime;
+           if(lastChar == '\n' && Match("--------------\n", p)) {
+               char *q;
+               i = Scan ('}', p); q = *p - 16;
+               if(Match("\n--------------}\n", &q)) return PositionDiagram;
+           } else i = Scan('}', p);
+           commentEnd = *p; if(i) return Comment; // return comment that runs to EOF immediately
+       }
+        if(commentEnd) SkipWhite(p);
+       if(kifu && **p == '*') { // .kif comment
+           char *q = yytext;
+           while(**p && **p != '\n') { if(q < yytext + 10*MSG_SIZ-3) *q++ = **p; (*p)++; }
+           parseStart = yytext; *yytext = '{'; strcpy(q, "}\n"); // wrap in braces
+           return Comment;
+       }
+       if(Match("*", p)) result = GameUnfinished;
+       else if(**p == '0') {
+           if( Match("0-1", p) || Match("0/1", p) || Match("0:1", p) ||
+               Match("0 - 1", p) || Match("0 / 1", p) || Match("0 : 1", p)) result = BlackWins;
+       } else if(**p == '1') {
+           if( Match("1-0", p) || Match("1/0", p) || Match("1:0", p) ||
+               Match("1 - 0", p) || Match("1 / 0", p) || Match("1 : 0", p)) result = WhiteWins;
+           else if(Match("1/2 - 1/2", p) || Match("1/2:1/2", p) || Match("1/2 : 1/2", p) || Match("1 / 2 - 1 / 2", p) ||
+                   Match("1 / 2 : 1 / 2", p) || Match("1/2", p) || Match("1 / 2", p)) result = GameIsDrawn;
+       }
+       if(result) {
+           if(Match(" (", p) && !Scan(')', p) || Match(" {", p) && !Scan('}', p)) { // there is a comment after the PGN result!
+               if(commentEnd) { *p = commentEnd; return Comment; } // so comment before it is normal comment; return that first
+           }
+           return result; // this returns a possible preceeding comment as result details
+       }
+       if(commentEnd) { *p = commentEnd; return Comment; } // there was no PGN result following, so return as normal comment
+
+
+       // ********* Move numbers (after castlings or PGN results!) ***********
+       if((i = Number(p)) != BADNUMBER) { // a single number was read as part of our attempt to read a move
+           char *numEnd = *p;
+           if(**p == '.') (*p)++; SkipWhite(p);
+           if(**p == '+' || isalpha(**p) || gameInfo.variant == VariantShogi && *p != numEnd && isdigit(**p)) {
+               *p = numEnd;
+               return i == 1 ? MoveNumberOne : Nothing;
+           }
+           *p = numEnd; return Nothing;
+       }
+
+
+       // ********* non-compliant game-result indicators *********************
+       if(Match("+-+", p) || Word("stalemate", p)) return GameIsDrawn;
+       if(Match("++", p) || Verb("resign", p) || (Word("check", p) || 1) && Word("mate", p) )
+           return (wom ? BlackWins : WhiteWins);
+       c = ToUpper(**p);
+       if(Word("w", p) && (Match("hite", p) || 1) || Word("b", p) && (Match("lack", p) || 1) ) {
+           if(**p != ' ') return Nothing;
+           ++*p;
+           if(Verb("disconnect", p)) return GameUnfinished;
+           if(Verb("resign", p) || Verb("forfeit", p) || Word("mated", p) || Word("lost", p) || Word("loses", p))
+               return (c == 'W' ? BlackWins : WhiteWins);
+           if(Word("mates", p) || Word("wins", p) || Word("won", p))
+               return (c != 'W' ? BlackWins : WhiteWins);
+           return Nothing;
+       }
+       if(Word("draw", p)) {
+           if(**p == 'n') (*p)++;
+           if(**p != ' ') return GameIsDrawn;
+           oldp = ++*p;
+           if(Word("agreed", p)) return GameIsDrawn;
+           if(Match("by ", p) && (Word("repetition", p) || Word("agreement", p)) ) return GameIsDrawn;
+           *p = oldp;
+           if(*(*p)++ == '(') {
+               while(**p != '\n') if(*(*p)++ == ')') break;
+               if((*p)[-1] == ')')  return GameIsDrawn;
+           }
+           *p = oldp - 1; return GameIsDrawn;
+       }
+
+
+       // ********* Numeric annotation glyph **********************************
+       if(**p == '$') { (*p)++; if(Number(p) != BADNUMBER) return NAG; return Nothing; }
+
+
+       // ********** by now we are getting down to the silly stuff ************
+       if(Word("gnu", p) || Match("GNU", p)) {
+           if(**p == ' ') (*p)++;
+           if(Word("chess", p) || Match("CHESS", p)) {
+               char *q;
+               if((q = strstr(*p, "game")) || (q = strstr(*p, "GAME")) || (q = strstr(*p, "Game"))) {
+                   (*p) = q + 4; return GNUChessGame;
                }
-
-       yy_current_buffer = new_buffer;
-       yy_load_buffer_state();
-
-       /* We don't actually know whether we did this switch during
-        * EOF (yywrap()) processing, but the only time this flag
-        * is looked at is after yywrap() is called, so it's safe
-        * to go ahead and always set it.
-        */
-       yy_did_buffer_switch_on_eof = 1;
+           }
+           return Nothing;
        }
-
-
-#ifdef YY_USE_PROTOS
-void yy_load_buffer_state( void )
-#else
-void yy_load_buffer_state()
-#endif
-       {
-       yy_n_chars = yy_current_buffer->yy_n_chars;
-       yytext_ptr = yy_c_buf_p = yy_current_buffer->yy_buf_pos;
-       yyin = yy_current_buffer->yy_input_file;
-       yy_hold_char = *yy_c_buf_p;
+       if(lastChar == '\n' && (Match("# ", p) || Match("; ", p) || Match("% ", p))) {
+           while(**p != '\n' && **p != ' ') (*p)++;
+           if(**p == ' ' && (Match(" game file", p) || Match(" position file", p))) {
+               while(**p != '\n') (*p)++; // skip to EOLN
+               return XBoardGame;
+           }
+           *p = oldp; // we might need to re-match the skipped stuff
        }
 
-
-#ifdef YY_USE_PROTOS
-YY_BUFFER_STATE yy_create_buffer( FILE *file, int size )
-#else
-YY_BUFFER_STATE yy_create_buffer( file, size )
-FILE *file;
-int size;
-#endif
-       {
-       YY_BUFFER_STATE b;
-
-       b = (YY_BUFFER_STATE) yy_flex_alloc( sizeof( struct yy_buffer_state ) );
-       if ( ! b )
-               YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" );
-
-       b->yy_buf_size = size;
-
-       /* yy_ch_buf has to be 2 characters longer than the size given because
-        * we need to put in 2 end-of-buffer characters.
-        */
-       b->yy_ch_buf = (char *) yy_flex_alloc( b->yy_buf_size + 2 );
-       if ( ! b->yy_ch_buf )
-               YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" );
-
-       b->yy_is_our_buffer = 1;
-
-       yy_init_buffer( b, file );
-
-       return b;
+       if(Match("---", p)) { while(**p == '-') (*p)++; return Nothing; } // prevent separators parsing as null move
+       if(Match("@@@@", p) || Match("--", p) || Match("Z0", p) || Match("pass", p) || Match("null", p)) {
+           strncpy(currentMoveString, "@@@@", 5);
+           return yyboardindex & F_WHITE_ON_MOVE ? WhiteDrop : BlackDrop;
        }
 
-
-#ifdef YY_USE_PROTOS
-void yy_delete_buffer( YY_BUFFER_STATE b )
-#else
-void yy_delete_buffer( b )
-YY_BUFFER_STATE b;
-#endif
-       {
-       if ( ! b )
-               return;
-
-       if ( b == yy_current_buffer )
-               yy_current_buffer = (YY_BUFFER_STATE) 0;
-
-       if ( b->yy_is_our_buffer )
-               yy_flex_free( (void *) b->yy_ch_buf );
-
-       yy_flex_free( (void *) b );
-       }
-
-
-
-#ifdef YY_USE_PROTOS
-void yy_init_buffer( YY_BUFFER_STATE b, FILE *file )
-#else
-void yy_init_buffer( b, file )
-YY_BUFFER_STATE b;
-FILE *file;
-#endif
-
-
-       {
-       yy_flush_buffer( b );
-
-       b->yy_input_file = file;
-       b->yy_fill_buffer = 1;
-
-#if YY_ALWAYS_INTERACTIVE
-       b->yy_is_interactive = 1;
-#else
-#if YY_NEVER_INTERACTIVE
-       b->yy_is_interactive = 0;
-#else
-       b->yy_is_interactive = file ? (isatty( fileno(file) ) > 0) : 0;
-#endif
-#endif
+       // ********* Efficient skipping of (mostly) alphabetic chatter **********
+       while(isdigit(**p) || isalpha(**p) || **p == '-') (*p)++;
+       if(*p != oldp) {
+           if(**p == '\'') {
+               while(isdigit(**p) || isalpha(**p) || **p == '-' || **p == '\'') (*p)++;
+               return Nothing; // random word
+           }
+           if(lastChar == '\n' && Match(": ", p)) { // mail header, skip indented lines
+               do {
+                   while(**p != '\n') (*p)++;
+                   if(!ReadLine()) return Nothing; // append next line if not EOF
+               } while(Match("\n ", p) || Match("\n\t", p));
+           }
+           return Nothing;
        }
 
+       // ********* Prevent 00 in unprotected time stamps to be mistaken for castling *******
+       if(Match(":00", p)) return Nothing;
 
-#ifdef YY_USE_PROTOS
-void yy_flush_buffer( YY_BUFFER_STATE b )
-#else
-void yy_flush_buffer( b )
-YY_BUFFER_STATE b;
-#endif
-
-       {
-       if ( ! b )
-               return;
-
-       b->yy_n_chars = 0;
-
-       /* We always need two end-of-buffer characters.  The first causes
-        * a transition to the end-of-buffer state.  The second causes
-        * a jam in that state.
-        */
-       b->yy_ch_buf[0] = YY_END_OF_BUFFER_CHAR;
-       b->yy_ch_buf[1] = YY_END_OF_BUFFER_CHAR;
-
-       b->yy_buf_pos = &b->yy_ch_buf[0];
-
-       b->yy_at_bol = 1;
-       b->yy_buffer_status = YY_BUFFER_NEW;
-
-       if ( b == yy_current_buffer )
-               yy_load_buffer_state();
-       }
-
-
-#ifndef YY_NO_SCAN_BUFFER
-#ifdef YY_USE_PROTOS
-YY_BUFFER_STATE yy_scan_buffer( char *base, yy_size_t size )
-#else
-YY_BUFFER_STATE yy_scan_buffer( base, size )
-char *base;
-yy_size_t size;
-#endif
-       {
-       YY_BUFFER_STATE b;
-
-       if ( size < 2 ||
-            base[size-2] != YY_END_OF_BUFFER_CHAR ||
-            base[size-1] != YY_END_OF_BUFFER_CHAR )
-               /* They forgot to leave room for the EOB's. */
-               return 0;
-
-       b = (YY_BUFFER_STATE) yy_flex_alloc( sizeof( struct yy_buffer_state ) );
-       if ( ! b )
-               YY_FATAL_ERROR( "out of dynamic memory in yy_scan_buffer()" );
-
-       b->yy_buf_size = size - 2;      /* "- 2" to take care of EOB's */
-       b->yy_buf_pos = b->yy_ch_buf = base;
-       b->yy_is_our_buffer = 0;
-       b->yy_input_file = 0;
-       b->yy_n_chars = b->yy_buf_size;
-       b->yy_is_interactive = 0;
-       b->yy_at_bol = 1;
-       b->yy_fill_buffer = 0;
-       b->yy_buffer_status = YY_BUFFER_NEW;
-
-       yy_switch_to_buffer( b );
-
-       return b;
-       }
-#endif
-
-
-#ifndef YY_NO_SCAN_STRING
-#ifdef YY_USE_PROTOS
-YY_BUFFER_STATE yy_scan_string( yyconst char *yy_str )
-#else
-YY_BUFFER_STATE yy_scan_string( yy_str )
-yyconst char *yy_str;
-#endif
-       {
-       int len;
-       for ( len = 0; yy_str[len]; ++len )
-               ;
-
-       return yy_scan_bytes( yy_str, len );
-       }
-#endif
-
-
-#ifndef YY_NO_SCAN_BYTES
-#ifdef YY_USE_PROTOS
-YY_BUFFER_STATE yy_scan_bytes( yyconst char *bytes, int len )
-#else
-YY_BUFFER_STATE yy_scan_bytes( bytes, len )
-yyconst char *bytes;
-int len;
-#endif
-       {
-       YY_BUFFER_STATE b;
-       char *buf;
-       yy_size_t n;
-       int i;
-
-       /* Get memory for full buffer, including space for trailing EOB's. */
-       n = len + 2;
-       buf = (char *) yy_flex_alloc( n );
-       if ( ! buf )
-               YY_FATAL_ERROR( "out of dynamic memory in yy_scan_bytes()" );
-
-       for ( i = 0; i < len; ++i )
-               buf[i] = bytes[i];
-
-       buf[len] = buf[len+1] = YY_END_OF_BUFFER_CHAR;
-
-       b = yy_scan_buffer( buf, n );
-       if ( ! b )
-               YY_FATAL_ERROR( "bad buffer in yy_scan_bytes()" );
-
-       /* It's okay to grow etc. this buffer, and we should throw it
-        * away when we're done.
-        */
-       b->yy_is_our_buffer = 1;
-
-       return b;
-       }
-#endif
-
-
-#ifndef YY_NO_PUSH_STATE
-#ifdef YY_USE_PROTOS
-static void yy_push_state( int new_state )
-#else
-static void yy_push_state( new_state )
-int new_state;
-#endif
-       {
-       if ( yy_start_stack_ptr >= yy_start_stack_depth )
-               {
-               yy_size_t new_size;
-
-               yy_start_stack_depth += YY_START_STACK_INCR;
-               new_size = yy_start_stack_depth * sizeof( int );
-
-               if ( ! yy_start_stack )
-                       yy_start_stack = (int *) yy_flex_alloc( new_size );
-
-               else
-                       yy_start_stack = (int *) yy_flex_realloc(
-                                       (void *) yy_start_stack, new_size );
-
-               if ( ! yy_start_stack )
-                       YY_FATAL_ERROR(
-                       "out of memory expanding start-condition stack" );
-               }
-
-       yy_start_stack[yy_start_stack_ptr++] = YY_START;
-
-       BEGIN(new_state);
-       }
-#endif
-
-
-#ifndef YY_NO_POP_STATE
-static void yy_pop_state()
-       {
-       if ( --yy_start_stack_ptr < 0 )
-               YY_FATAL_ERROR( "start-condition stack underflow" );
-
-       BEGIN(yy_start_stack[yy_start_stack_ptr]);
-       }
-#endif
-
-
-#ifndef YY_NO_TOP_STATE
-static int yy_top_state()
-       {
-       return yy_start_stack[yy_start_stack_ptr - 1];
-       }
-#endif
-
-#ifndef YY_EXIT_FAILURE
-#define YY_EXIT_FAILURE 2
-#endif
-
-#ifdef YY_USE_PROTOS
-static void yy_fatal_error( yyconst char msg[] )
-#else
-static void yy_fatal_error( msg )
-char msg[];
-#endif
-       {
-       (void) fprintf( stderr, "%s\n", msg );
-       exit( YY_EXIT_FAILURE );
-       }
-
-
-
-/* Redefine yyless() so it works in section 3 code. */
-
-#undef yyless
-#define yyless(n) \
-       do \
-               { \
-               /* Undo effects of setting up yytext. */ \
-               yytext[yyleng] = yy_hold_char; \
-               yy_c_buf_p = yytext + n; \
-               yy_hold_char = *yy_c_buf_p; \
-               *yy_c_buf_p = '\0'; \
-               yyleng = n; \
-               } \
-       while ( 0 )
-
-
-/* Internal utility routines. */
-
-#ifndef yytext_ptr
-#ifdef YY_USE_PROTOS
-static void yy_flex_strncpy( char *s1, yyconst char *s2, int n )
-#else
-static void yy_flex_strncpy( s1, s2, n )
-char *s1;
-yyconst char *s2;
-int n;
-#endif
-       {
-       register int i;
-       for ( i = 0; i < n; ++i )
-               s1[i] = s2[i];
-       }
-#endif
-
-#ifdef YY_NEED_STRLEN
-#ifdef YY_USE_PROTOS
-static int yy_flex_strlen( yyconst char *s )
-#else
-static int yy_flex_strlen( s )
-yyconst char *s;
-#endif
-       {
-       register int n;
-       for ( n = 0; s[n]; ++n )
-               ;
-
-       return n;
-       }
-#endif
-
-
-#ifdef YY_USE_PROTOS
-static void *yy_flex_alloc( yy_size_t size )
-#else
-static void *yy_flex_alloc( size )
-yy_size_t size;
-#endif
-       {
-       return (void *) malloc( size );
-       }
-
-#ifdef YY_USE_PROTOS
-static void *yy_flex_realloc( void *ptr, yy_size_t size )
-#else
-static void *yy_flex_realloc( ptr, size )
-void *ptr;
-yy_size_t size;
-#endif
-       {
-       /* The cast to (char *) in the following accommodates both
-        * implementations that use char* generic pointers, and those
-        * that use void* generic pointers.  It works with the latter
-        * because both ANSI C and C++ allow castless assignment from
-        * any pointer type to void*, and deal with argument conversions
-        * as though doing an assignment.
-        */
-       return (void *) realloc( (char *) ptr, size );
-       }
-
-#ifdef YY_USE_PROTOS
-static void yy_flex_free( void *ptr )
-#else
-static void yy_flex_free( ptr )
-void *ptr;
-#endif
-       {
-       free( ptr );
-       }
-
-#if YY_MAIN
-int main()
-       {
-       yylex();
-       return 0;
-       }
-#endif
-#line 734 "../parser.l"
-
-
-
-static char *StringToLex;
-
-#ifndef FLEX_SCANNER
-static FILE *lexFP;
-
-static int input()
-{
-    int ret;
-
-    if (StringToLex != NULL) {
-       ret = *StringToLex;
-       if (ret == NULLCHAR)
-         ret = EOF;
-       else
-         StringToLex++;
-    } else if (unputCount > 0) {
-       ret = unputBuffer[--unputCount];
-    } else {
-       ret = fgetc(lexFP);
-    }
-
-    if (ret == EOF)
-      return 0;
-    else
-      return ret;
+       // ********* Could not match to anything. Return offending character ****
+       (*p)++;
+       return Nothing;
 }
 
-/*
- * Return offset of next pattern within current file
- */
-int yyoffset()
-{
-    int offset = ftell(lexFP) - unputCount;
-
-    if (offset < 0) {
-       offset = 0;
-    }
-    return(offset);
-}
-
-static void output(ch)
-     int ch;
-{
-    fprintf(stderr, "PARSER BUG: unmatched character '%c' (0%o)\n",
-           ch, ch);
-}
-
-static void unput(ch)
-     int ch;
-{
-    if (ch == 0) return;
-    if (StringToLex != NULL) {
-       StringToLex--;
-    } else {
-       if (unputCount >= UNPUT_BUF_SIZE)
-         fprintf(stderr, "PARSER BUG: unput buffer overflow '%c' (0%o)\n",
-                 ch, ch);
-       unputBuffer[unputCount++] = ch;
-    }
-}
-
-/* Get ready to lex from a new file.  Kludge below sticks
-   an artificial newline at the front of the file, which the
-   above grammar ignores, but which makes ^ at start of pattern
-   match at the real start of the file.
-*/
-void yynewfile(f)
-     FILE *f;
-{
-    lexFP = f;
-    StringToLex = NULL;
-    unputCount = 0;
-    unput('\n'); /* kludge */
-}
-
-/* Get ready to lex from a string.  ^ at start of pattern WON'T
-   match at the start of the string!
-*/
-void yynewstr(s)
-     char *s;
-{
-    lexFP = NULL;
-    StringToLex = s;
-    unputCount = 0;
-}
-#endif /*!FLEX_SCANNER*/
-
-#ifdef FLEX_SCANNER
-void my_yy_input(buf, result, max_size)
-     char *buf;
-     int *result;
-     int max_size;
-{
-    int count;
-
-    if (StringToLex != NULL) {
-       count = 0;
-       while (*StringToLex != NULLCHAR) {
-           *buf++ = *StringToLex++;
-           count++;
-       }
-       *result = count;
-       return;
-    } else {
-       count = fread(buf, 1, max_size, yyin);
-       if (count == 0) {
-           *result = YY_NULL;
-       } else {
-           *result = count;
-       }
-       return;
-    }
-}
-
-static YY_BUFFER_STATE my_file_buffer = NULL;
-
 /*
     Return offset of next pattern in the current file.
 */
-int yyoffset()
-{
-    int pos = yy_c_buf_p - yy_current_buffer->yy_ch_buf;
-
-    return(ftell(yy_current_buffer->yy_input_file) -
-         yy_n_chars + pos);
-}
-
-
-void yynewstr(s)
-     char *s;
-{
-    if (my_file_buffer != NULL)
-      yy_delete_buffer(my_file_buffer);
-    StringToLex = s;
-    my_file_buffer = yy_create_buffer(stdin, YY_BUF_SIZE);
-    yy_switch_to_buffer(my_file_buffer);
-}
-
-void yynewfile(f)
-     FILE *f;
-{
-    if (my_file_buffer != NULL)
-      yy_delete_buffer(my_file_buffer);
-    StringToLex = NULL;
-    my_file_buffer = yy_create_buffer(f, YY_BUF_SIZE);
-    yy_switch_to_buffer(my_file_buffer);
-}
-#endif /*FLEX_SCANNER*/
-
-int yywrap()
-{
-    return TRUE;
-}
-
-/* Parse a move from the given string s */
-/* ^ at start of pattern WON'T work here unless using flex */
-ChessMove yylexstr(boardIndex, s)
-     int boardIndex;
-     char *s;
+int
+yyoffset ()
+{
+    return ftell(inputFile) - (inPtr - parsePtr); // subtract what is read but not yet parsed
+}
+
+void
+yynewfile (FILE *f)
+{   // prepare parse buffer for reading file
+    inputFile = f;
+    inPtr = parsePtr = inputBuf;
+    fromString = 0;
+    lastChar = '\n';
+    *inPtr = NULLCHAR; // make sure we will start by reading a line
+}
+
+void
+yynewstr P((char *s))
+{
+    parsePtr = s;
+    inputFile = NULL;
+    fromString = 1;
+}
+
+int
+yylex ()
+{   // this replaces the flex-generated parser
+    int result = NextUnit(&parsePtr);
+    char *p = parseStart, *q = yytext;
+    if(p == yytext) return result;   // kludge to allow kanji expansion
+    while(p < parsePtr) *q++ = *p++; // copy the matched text to yytext[]
+    *q = NULLCHAR;
+    lastChar = q[-1];
+    return result;
+}
+
+int
+Myylex ()
+{   // [HGM] wrapper for yylex, which treats nesting of parentheses
+    int symbol, nestingLevel = 0, i=0;
+    char *p;
+    static char buf[256*MSG_SIZ];
+    buf[0] = NULLCHAR;
+    do { // eat away anything not at level 0
+        symbol = yylex();
+        if(symbol == Open) nestingLevel++;
+        if(nestingLevel) { // save all parsed text between (and including) the ()
+            for(p=yytext; *p && i<256*MSG_SIZ-2;) buf[i++] = *p++;
+            buf[i] = NULLCHAR;
+        }
+        if(symbol == 0) break; // ran into EOF
+        if(symbol == Close) symbol = Comment, nestingLevel--;
+    } while(nestingLevel || symbol == Nothing);
+    yy_text = buf[0] ? buf : (char*)yytext;
+    return symbol;
+}
+
+ChessMove
+yylexstr (int boardIndex, char *s, char *buf, int buflen)
 {
     ChessMove ret;
-    char *oldStringToLex;
-#ifdef FLEX_SCANNER
-    YY_BUFFER_STATE buffer, oldBuffer;
-#endif
-
+    char *savPP = parsePtr;
+    fromString = 1;
     yyboardindex = boardIndex;
-    oldStringToLex = StringToLex;
-    StringToLex = s;
-#ifdef FLEX_SCANNER
-    buffer = yy_create_buffer(stdin, YY_BUF_SIZE);
-    oldBuffer = YY_CURRENT_BUFFER;
-    yy_switch_to_buffer(buffer);
-#endif /*FLEX_SCANNER*/
-
-    ret = (ChessMove) yylex();
-
-#ifdef FLEX_SCANNER
-    if (oldBuffer != NULL)
-      yy_switch_to_buffer(oldBuffer);
-    yy_delete_buffer(buffer);
-#endif /*FLEX_SCANNER*/
-    StringToLex = oldStringToLex;
-
+    parsePtr = s;
+    ret = (ChessMove) Myylex();
+    strncpy(buf, yy_text, buflen-1);
+    buf[buflen-1] = NULLCHAR;
+    parsePtr = savPP;
+    fromString = 0;
     return ret;
 }