/* A Bison parser, made by GNU Bison 2.7.12-4996.  */

/* Bison implementation for Yacc-like parsers in C

      Copyright (C) 1984, 1989-1990, 2000-2013 Free Software Foundation, Inc.

   This program 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 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.

   You should have received a copy of the GNU General Public License

   along with this program.  If not, see <http://www.gnu.org/licenses/>.  */

/* As a special exception, you may create a larger work that contains

   part or all of the Bison parser skeleton and distribute that work

   under terms of your choice, so long as that work isn't itself a

   parser generator using the skeleton or a modified version thereof

   as a parser skeleton.  Alternatively, if you modify or redistribute

   the parser skeleton itself, you may (at your option) remove this

   special exception, which will cause the skeleton and the resulting

   Bison output files to be licensed under the GNU General Public

   License without this special exception.

   This special exception was added by the Free Software Foundation in

   version 2.2 of Bison.  */

/* C LALR(1) parser skeleton written by Richard Stallman, by

   simplifying the original so-called "semantic" parser.  */

/* All symbols defined below should begin with yy or YY, to avoid

   infringing on user name space.  This should be done even for local

   variables, as they might otherwise be expanded by user macros.

   There are some unavoidable exceptions within include files to

   define necessary library symbols; they are noted "INFRINGES ON

   USER NAME SPACE" below.  */

/* Identify Bison output.  */

#define YYBISON 1

/* Bison version.  */

#define YYBISON_VERSION "2.7.12-4996"

/* Skeleton name.  */

#define YYSKELETON_NAME "yacc.c"

/* Pure parsers.  */

#define YYPURE 0

/* Push parsers.  */

#define YYPUSH 0

/* Pull parsers.  */

#define YYPULL 1

/* Copy the first part of user declarations.  */

/* Line 371 of yacc.c  */

#line 1 "../../../gmp/demos/calc/calc.y"

/* A simple integer desk calculator using yacc and gmp.

Copyright 2000-2002 Free Software Foundation, Inc.

This file is part of the GNU MP Library.

This program 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 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.

You should have received a copy of the GNU General Public License along with

this program.  If not, see https://www.gnu.org/licenses/.  */

/* This is a simple program, meant only to show one way to use GMP for this

   sort of thing.  There's few features, and error checking is minimal.

   Standard input is read, calc_help() below shows the inputs accepted.

   Expressions are evaluated as they're read.  If user defined functions

   were wanted it'd be necessary to build a parse tree like pexpr.c does, or

   a list of operations for a stack based evaluator.  That would also make

   it possible to detect and optimize evaluations "mod m" like pexpr.c does.

   A stack is used for intermediate values in the expression evaluation,

   separate from the yacc parser stack.  This is simple, makes error

   recovery easy, minimizes the junk around mpz calls in the rules, and

   saves initializing or clearing "mpz_t"s during a calculation.  A

   disadvantage though is that variables must be copied to the stack to be

   worked on.  A more sophisticated calculator or language system might be

   able to avoid that when executing a compiled or semi-compiled form.

   Avoiding repeated initializing and clearing of "mpz_t"s is important.  In

   this program the time spent parsing is obviously much greater than any

   possible saving from this, but a proper calculator or language should

   take some trouble over it.  Don't be surprised if an init/clear takes 3

   or more times as long as a 10 limb addition, depending on the system (see

   the mpz_init_realloc_clear example in tune/README).  */

#include <stdio.h>

#include <stdlib.h>

#include <string.h>

#include "gmp.h"

#define NO_CALC_H /* because it conflicts with normal calc.c stuff */

#include "calc-common.h"

#define numberof(x)  (sizeof (x) / sizeof ((x)[0]))

void

calc_help (void)

{

  printf ("Examples:\n");

  printf ("    2+3*4        expressions are evaluated\n");

  printf ("    x=5^6        variables a to z can be set and used\n");

  printf ("Operators:\n");

  printf ("    + - *        arithmetic\n");

  printf ("    / %%          division and remainder (rounding towards negative infinity)\n");

  printf ("    ^            exponentiation\n");

  printf ("    !            factorial\n");

  printf ("    << >>        left and right shifts\n");

  printf ("    <= >= >      \\ comparisons, giving 1 if true, 0 if false\n");

  printf ("    == != <      /\n");

  printf ("    && ||        logical and/or, giving 1 if true, 0 if false\n");

  printf ("Functions:\n");

  printf ("    abs(n)       absolute value\n");

  printf ("    bin(n,m)     binomial coefficient\n");

  printf ("    fib(n)       fibonacci number\n");

  printf ("    gcd(a,b,..)  greatest common divisor\n");

  printf ("    kron(a,b)    kronecker symbol\n");

  printf ("    lcm(a,b,..)  least common multiple\n");

  printf ("    lucnum(n)    lucas number\n");

  printf ("    nextprime(n) next prime after n\n");

  printf ("    powm(b,e,m)  modulo powering, b^e%%m\n");

  printf ("    root(n,r)    r-th root\n");

  printf ("    sqrt(n)      square root\n");

  printf ("Other:\n");

  printf ("    hex          \\ set hex or decimal for input and output\n");

  printf ("    decimal      /   (\"0x\" can be used for hex too)\n");

  printf ("    quit         exit program (EOF works too)\n");

  printf ("    ;            statements are separated with a ; or newline\n");

  printf ("    \\            continue expressions with \\ before newline\n");

  printf ("    # xxx        comments are # though to newline\n");

  printf ("Hex numbers must be entered in upper case, to distinguish them from the\n");

  printf ("variables a to f (like in bc).\n");

}

int  ibase = 0;

int  obase = 10;

/* The stack is a fixed size, which means there's a limit on the nesting

   allowed in expressions.  A more sophisticated program could let it grow

   dynamically.  */

mpz_t    stack[100];

mpz_ptr  sp = stack[0];

#define CHECK_OVERFLOW()                                                  \

  if (sp >= stack[numberof(stack)])	/* FIXME */			\

    {                                                                     \

      fprintf (stderr,                                                    \

               "Value stack overflow, too much nesting in expression\n"); \

      YYERROR;                                                            \

    }

#define CHECK_EMPTY()                                                   \

  if (sp != stack[0])                                                   \

    {                                                                   \

      fprintf (stderr, "Oops, expected the value stack to be empty\n"); \

      sp = stack[0];                                                    \

    }

mpz_t  variable[26];

#define CHECK_VARIABLE(var)                                             \

  if ((var) < 0 || (var) >= numberof (variable))                        \

    {                                                                   \

      fprintf (stderr, "Oops, bad variable somehow: %d\n", var);        \

      YYERROR;                                                          \

    }

#define CHECK_UI(name,z)                        \

  if (! mpz_fits_ulong_p (z))                   \

    {                                           \

      fprintf (stderr, "%s too big\n", name);   \

      YYERROR;                                  \

    }

/* Line 371 of yacc.c  */

#line 209 "calc.c"

# ifndef YY_NULL

#  if defined __cplusplus && 201103L <= __cplusplus

#   define YY_NULL nullptr

#  else

#   define YY_NULL 0

#  endif

# endif

/* Enabling verbose error messages.  */

#ifdef YYERROR_VERBOSE

# undef YYERROR_VERBOSE

# define YYERROR_VERBOSE 1

#else

# define YYERROR_VERBOSE 0

#endif

/* In a future release of Bison, this section will be replaced

   by #include "y.tab.h".  */

#ifndef YY_YY_CALC_H_INCLUDED

# define YY_YY_CALC_H_INCLUDED

/* Enabling traces.  */

#ifndef YYDEBUG

# define YYDEBUG 0

#endif

#if YYDEBUG

extern int yydebug;

#endif

/* Tokens.  */

#ifndef YYTOKENTYPE

# define YYTOKENTYPE

   /* Put the tokens into the symbol table, so that GDB and other debuggers

      know about them.  */

   enum yytokentype {

     EOS = 258,

     BAD = 259,

     HELP = 260,

     HEX = 261,

     DECIMAL = 262,

     QUIT = 263,

     ABS = 264,

     BIN = 265,

     FIB = 266,

     GCD = 267,

     KRON = 268,

     LCM = 269,

     LUCNUM = 270,

     NEXTPRIME = 271,

     POWM = 272,

     ROOT = 273,

     SQRT = 274,

     NUMBER = 275,

     VARIABLE = 276,

     LOR = 277,

     LAND = 278,

     GE = 279,

     LE = 280,

     NE = 281,

     EQ = 282,

     RSHIFT = 283,

     LSHIFT = 284,

     UMINUS = 285

   };

#endif

/* Tokens.  */

#define EOS 258

#define BAD 259

#define HELP 260

#define HEX 261

#define DECIMAL 262

#define QUIT 263

#define ABS 264

#define BIN 265

#define FIB 266

#define GCD 267

#define KRON 268

#define LCM 269

#define LUCNUM 270

#define NEXTPRIME 271

#define POWM 272

#define ROOT 273

#define SQRT 274

#define NUMBER 275

#define VARIABLE 276

#define LOR 277

#define LAND 278

#define GE 279

#define LE 280

#define NE 281

#define EQ 282

#define RSHIFT 283

#define LSHIFT 284

#define UMINUS 285

#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED

typedef union YYSTYPE

{

/* Line 387 of yacc.c  */

#line 142 "../../../gmp/demos/calc/calc.y"

  char  *str;

  int   var;

/* Line 387 of yacc.c  */

#line 318 "calc.c"

} YYSTYPE;

# define YYSTYPE_IS_TRIVIAL 1

# define yystype YYSTYPE /* obsolescent; will be withdrawn */

# define YYSTYPE_IS_DECLARED 1

#endif

extern YYSTYPE yylval;

#ifdef YYPARSE_PARAM

#if defined __STDC__ || defined __cplusplus

int yyparse (void *YYPARSE_PARAM);

#else

int yyparse ();

#endif

#else /* ! YYPARSE_PARAM */

#if defined __STDC__ || defined __cplusplus

int yyparse (void);

#else

int yyparse ();

#endif

#endif /* ! YYPARSE_PARAM */

#endif /* !YY_YY_CALC_H_INCLUDED  */

/* Copy the second part of user declarations.  */

/* Line 390 of yacc.c  */

#line 346 "calc.c"

#ifdef short

# undef short

#endif

#ifdef YYTYPE_UINT8

typedef YYTYPE_UINT8 yytype_uint8;

#else

typedef unsigned char yytype_uint8;

#endif

#ifdef YYTYPE_INT8

typedef YYTYPE_INT8 yytype_int8;

#elif (defined __STDC__ || defined __C99__FUNC__ \

     || defined __cplusplus || defined _MSC_VER)

typedef signed char yytype_int8;

#else

typedef short int yytype_int8;

#endif

#ifdef YYTYPE_UINT16

typedef YYTYPE_UINT16 yytype_uint16;

#else

typedef unsigned short int yytype_uint16;

#endif

#ifdef YYTYPE_INT16

typedef YYTYPE_INT16 yytype_int16;

#else

typedef short int yytype_int16;

#endif

#ifndef YYSIZE_T

# ifdef __SIZE_TYPE__

#  define YYSIZE_T __SIZE_TYPE__

# elif defined size_t

#  define YYSIZE_T size_t

# elif ! defined YYSIZE_T && (defined __STDC__ || defined __C99__FUNC__ \

     || defined __cplusplus || defined _MSC_VER)

#  include <stddef.h> /* INFRINGES ON USER NAME SPACE */

#  define YYSIZE_T size_t

# else

#  define YYSIZE_T unsigned int

# endif

#endif

#define YYSIZE_MAXIMUM ((YYSIZE_T) -1)

#ifndef YY_

# if defined YYENABLE_NLS && YYENABLE_NLS

#  if ENABLE_NLS

#   include <libintl.h> /* INFRINGES ON USER NAME SPACE */

#   define YY_(Msgid) dgettext ("bison-runtime", Msgid)

#  endif

# endif

# ifndef YY_

#  define YY_(Msgid) Msgid

# endif

#endif

#ifndef __attribute__

/* This feature is available in gcc versions 2.5 and later.  */

# if (! defined __GNUC__ || __GNUC__ < 2 \

      || (__GNUC__ == 2 && __GNUC_MINOR__ < 5))

#  define __attribute__(Spec) /* empty */

# endif

#endif

/* Suppress unused-variable warnings by "using" E.  */

#if ! defined lint || defined __GNUC__

# define YYUSE(E) ((void) (E))

#else

# define YYUSE(E) /* empty */

#endif

/* Identity function, used to suppress warnings about constant conditions.  */

#ifndef lint

# define YYID(N) (N)

#else

#if (defined __STDC__ || defined __C99__FUNC__ \

     || defined __cplusplus || defined _MSC_VER)

static int

YYID (int yyi)

#else

static int

YYID (yyi)

    int yyi;

#endif

{

  return yyi;

}

#endif

#if ! defined yyoverflow || YYERROR_VERBOSE

/* The parser invokes alloca or malloc; define the necessary symbols.  */

# ifdef YYSTACK_USE_ALLOCA

#  if YYSTACK_USE_ALLOCA

#   ifdef __GNUC__

#    define YYSTACK_ALLOC __builtin_alloca

#   elif defined __BUILTIN_VA_ARG_INCR

#    include <alloca.h> /* INFRINGES ON USER NAME SPACE */

#   elif defined _AIX

#    define YYSTACK_ALLOC __alloca

#   elif defined _MSC_VER

#    include <malloc.h> /* INFRINGES ON USER NAME SPACE */

#    define alloca _alloca

#   else

#    define YYSTACK_ALLOC alloca

#    if ! defined _ALLOCA_H && ! defined EXIT_SUCCESS && (defined __STDC__ || defined __C99__FUNC__ \

     || defined __cplusplus || defined _MSC_VER)

#     include <stdlib.h> /* INFRINGES ON USER NAME SPACE */

      /* Use EXIT_SUCCESS as a witness for stdlib.h.  */

#     ifndef EXIT_SUCCESS

#      define EXIT_SUCCESS 0

#     endif

#    endif

#   endif

#  endif

# endif

# ifdef YYSTACK_ALLOC

   /* Pacify GCC's `empty if-body' warning.  */

#  define YYSTACK_FREE(Ptr) do { /* empty */; } while (YYID (0))

#  ifndef YYSTACK_ALLOC_MAXIMUM

    /* The OS might guarantee only one guard page at the bottom of the stack,

       and a page size can be as small as 4096 bytes.  So we cannot safely

       invoke alloca (N) if N exceeds 4096.  Use a slightly smaller number

       to allow for a few compiler-allocated temporary stack slots.  */

#   define YYSTACK_ALLOC_MAXIMUM 4032 /* reasonable circa 2006 */

#  endif

# else

#  define YYSTACK_ALLOC YYMALLOC

#  define YYSTACK_FREE YYFREE

#  ifndef YYSTACK_ALLOC_MAXIMUM

#   define YYSTACK_ALLOC_MAXIMUM YYSIZE_MAXIMUM

#  endif

#  if (defined __cplusplus && ! defined EXIT_SUCCESS \

       && ! ((defined YYMALLOC || defined malloc) \

	     && (defined YYFREE || defined free)))

#   include <stdlib.h> /* INFRINGES ON USER NAME SPACE */

#   ifndef EXIT_SUCCESS

#    define EXIT_SUCCESS 0

#   endif

#  endif

#  ifndef YYMALLOC

#   define YYMALLOC malloc

#   if ! defined malloc && ! defined EXIT_SUCCESS && (defined __STDC__ || defined __C99__FUNC__ \

     || defined __cplusplus || defined _MSC_VER)

void *malloc (YYSIZE_T); /* INFRINGES ON USER NAME SPACE */

#   endif

#  endif

#  ifndef YYFREE

#   define YYFREE free

#   if ! defined free && ! defined EXIT_SUCCESS && (defined __STDC__ || defined __C99__FUNC__ \

     || defined __cplusplus || defined _MSC_VER)

void free (void *); /* INFRINGES ON USER NAME SPACE */

#   endif

#  endif

# endif

#endif /* ! defined yyoverflow || YYERROR_VERBOSE */

#if (! defined yyoverflow \

     && (! defined __cplusplus \

	 || (defined YYSTYPE_IS_TRIVIAL && YYSTYPE_IS_TRIVIAL)))

/* A type that is properly aligned for any stack member.  */

union yyalloc

{

  yytype_int16 yyss_alloc;

  YYSTYPE yyvs_alloc;

};

/* The size of the maximum gap between one aligned stack and the next.  */

# define YYSTACK_GAP_MAXIMUM (sizeof (union yyalloc) - 1)

/* The size of an array large to enough to hold all stacks, each with

   N elements.  */

# define YYSTACK_BYTES(N) \

     ((N) * (sizeof (yytype_int16) + sizeof (YYSTYPE)) \

      + YYSTACK_GAP_MAXIMUM)

# define YYCOPY_NEEDED 1

/* Relocate STACK from its old location to the new one.  The

   local variables YYSIZE and YYSTACKSIZE give the old and new number of

   elements in the stack, and YYPTR gives the new location of the

   stack.  Advance YYPTR to a properly aligned location for the next

   stack.  */

# define YYSTACK_RELOCATE(Stack_alloc, Stack)				\

    do									\

      {									\

	YYSIZE_T yynewbytes;						\

	YYCOPY (&yyptr->Stack_alloc, Stack, yysize);			\

	Stack = &yyptr->Stack_alloc;					\

	yynewbytes = yystacksize * sizeof (*Stack) + YYSTACK_GAP_MAXIMUM; \

	yyptr += yynewbytes / sizeof (*yyptr);				\

      }									\

    while (YYID (0))

#endif

#if defined YYCOPY_NEEDED && YYCOPY_NEEDED

/* Copy COUNT objects from SRC to DST.  The source and destination do

   not overlap.  */

# ifndef YYCOPY

#  if defined __GNUC__ && 1 < __GNUC__

#   define YYCOPY(Dst, Src, Count) \

      __builtin_memcpy (Dst, Src, (Count) * sizeof (*(Src)))

#  else

#   define YYCOPY(Dst, Src, Count)              \

      do                                        \

        {                                       \

          YYSIZE_T yyi;                         \

          for (yyi = 0; yyi < (Count); yyi++)   \

            (Dst)[yyi] = (Src)[yyi];            \

        }                                       \

      while (YYID (0))

#  endif

# endif

#endif /* !YYCOPY_NEEDED */

/* YYFINAL -- State number of the termination state.  */

#define YYFINAL  41

/* YYLAST -- Last index in YYTABLE.  */

#define YYLAST   552

/* YYNTOKENS -- Number of terminals.  */

#define YYNTOKENS  44

/* YYNNTS -- Number of nonterminals.  */

#define YYNNTS  7

/* YYNRULES -- Number of rules.  */

#define YYNRULES  49

/* YYNRULES -- Number of states.  */

#define YYNSTATES  118

/* YYTRANSLATE(YYLEX) -- Bison symbol number corresponding to YYLEX.  */

#define YYUNDEFTOK  2

#define YYMAXUTOK   285

#define YYTRANSLATE(YYX)						\

  ((unsigned int) (YYX) <= YYMAXUTOK ? yytranslate[YYX] : YYUNDEFTOK)

/* YYTRANSLATE[YYLEX] -- Bison symbol number corresponding to YYLEX.  */

static const yytype_uint8 yytranslate[] =

{

       0,     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,    39,     2,     2,     2,    36,     2,     2,

      41,    42,    34,    32,    43,    33,     2,    35,     2,     2,

       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,

      24,    40,    25,     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,    38,     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,     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,     2,

       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,

       2,     2,     2,     2,     2,     2,     1,     2,     3,     4,

       5,     6,     7,     8,     9,    10,    11,    12,    13,    14,

      15,    16,    17,    18,    19,    20,    21,    22,    23,    26,

      27,    28,    29,    30,    31,    37

};

#if YYDEBUG

/* YYPRHS[YYN] -- Index of the first RHS symbol of rule number YYN in

   YYRHS.  */

static const yytype_uint8 yyprhs[] =

{

       0,     0,     3,     5,     8,    11,    15,    18,    19,    21,

      25,    27,    29,    31,    33,    37,    41,    45,    49,    53,

      57,    61,    65,    69,    72,    75,    79,    83,    87,    91,

      95,    99,   103,   107,   112,   119,   124,   129,   136,   141,

     146,   151,   160,   167,   172,   174,   176,   178,   182,   184

};

/* YYRHS -- A `-1'-separated list of the rules' RHS.  */

static const yytype_int8 yyrhs[] =

{

      45,     0,    -1,    47,    -1,    46,    47,    -1,    47,     3,

      -1,    46,    47,     3,    -1,     1,     3,    -1,    -1,    48,

      -1,    21,    40,    48,    -1,     5,    -1,     6,    -1,     7,

      -1,     8,    -1,    41,    48,    42,    -1,    48,    32,    48,

      -1,    48,    33,    48,    -1,    48,    34,    48,    -1,    48,

      35,    48,    -1,    48,    36,    48,    -1,    48,    38,    48,

      -1,    48,    31,    48,    -1,    48,    30,    48,    -1,    48,

      39,    -1,    33,    48,    -1,    48,    24,    48,    -1,    48,

      27,    48,    -1,    48,    29,    48,    -1,    48,    28,    48,

      -1,    48,    26,    48,    -1,    48,    25,    48,    -1,    48,

      23,    48,    -1,    48,    22,    48,    -1,     9,    41,    48,

      42,    -1,    10,    41,    48,    43,    48,    42,    -1,    11,

      41,    48,    42,    -1,    12,    41,    49,    42,    -1,    13,

      41,    48,    43,    48,    42,    -1,    14,    41,    50,    42,

      -1,    15,    41,    48,    42,    -1,    16,    41,    48,    42,

      -1,    17,    41,    48,    43,    48,    43,    48,    42,    -1,

      18,    41,    48,    43,    48,    42,    -1,    19,    41,    48,

      42,    -1,    21,    -1,    20,    -1,    48,    -1,    49,    43,

      48,    -1,    48,    -1,    50,    43,    48,    -1

};

/* YYRLINE[YYN] -- source line where rule number YYN was defined.  */

static const yytype_uint16 yyrline[] =

{

       0,   167,   167,   168,   171,   172,   173,   175,   177,   182,

     188,   189,   190,   191,   197,   198,   199,   200,   201,   202,

     203,   205,   207,   209,   211,   213,   214,   215,   216,   217,

     218,   220,   221,   223,   224,   226,   228,   229,   231,   232,

     234,   235,   236,   238,   240,   246,   257,   258,   261,   262

};

#endif

#if YYDEBUG || YYERROR_VERBOSE || 0

/* YYTNAME[SYMBOL-NUM] -- String name of the symbol SYMBOL-NUM.

   First, the terminals, then, starting at YYNTOKENS, nonterminals.  */

static const char *const yytname[] =

{

  "$end", "error", "$undefined", "EOS", "BAD", "HELP", "HEX", "DECIMAL",

  "QUIT", "ABS", "BIN", "FIB", "GCD", "KRON", "LCM", "LUCNUM", "NEXTPRIME",

  "POWM", "ROOT", "SQRT", "NUMBER", "VARIABLE", "LOR", "LAND", "'<'",

  "'>'", "GE", "LE", "NE", "EQ", "RSHIFT", "LSHIFT", "'+'", "'-'", "'*'",

  "'/'", "'%'", "UMINUS", "'^'", "'!'", "'='", "'('", "')'", "','",

  "$accept", "top", "statements", "statement", "e", "gcdlist", "lcmlist", YY_NULL

};

#endif

# ifdef YYPRINT

/* YYTOKNUM[YYLEX-NUM] -- Internal token number corresponding to

   token YYLEX-NUM.  */

static const yytype_uint16 yytoknum[] =

{

       0,   256,   257,   258,   259,   260,   261,   262,   263,   264,

     265,   266,   267,   268,   269,   270,   271,   272,   273,   274,

     275,   276,   277,   278,    60,    62,   279,   280,   281,   282,

     283,   284,    43,    45,    42,    47,    37,   285,    94,    33,

      61,    40,    41,    44

};

# endif

/* YYR1[YYN] -- Symbol number of symbol that rule YYN derives.  */

static const yytype_uint8 yyr1[] =

{

       0,    44,    45,    45,    46,    46,    46,    47,    47,    47,

      47,    47,    47,    47,    48,    48,    48,    48,    48,    48,

      48,    48,    48,    48,    48,    48,    48,    48,    48,    48,

      48,    48,    48,    48,    48,    48,    48,    48,    48,    48,

      48,    48,    48,    48,    48,    48,    49,    49,    50,    50

};

/* YYR2[YYN] -- Number of symbols composing right hand side of rule YYN.  */

static const yytype_uint8 yyr2[] =

{

       0,     2,     1,     2,     2,     3,     2,     0,     1,     3,

       1,     1,     1,     1,     3,     3,     3,     3,     3,     3,

       3,     3,     3,     2,     2,     3,     3,     3,     3,     3,

       3,     3,     3,     4,     6,     4,     4,     6,     4,     4,

       4,     8,     6,     4,     1,     1,     1,     3,     1,     3

};

/* YYDEFACT[STATE-NAME] -- Default reduction number in state STATE-NUM.

   Performed when YYTABLE doesn't specify something else to do.  Zero

   means the default is an error.  */

static const yytype_uint8 yydefact[] =

{

       0,     0,    10,    11,    12,    13,     0,     0,     0,     0,

       0,     0,     0,     0,     0,     0,     0,    45,    44,     0,

       0,     0,     7,     2,     8,     6,     0,     0,     0,     0,

       0,     0,     0,     0,     0,     0,     0,     0,    44,    24,

       0,     1,     3,     4,     0,     0,     0,     0,     0,     0,

       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,

      23,     0,     0,     0,    46,     0,     0,    48,     0,     0,

       0,     0,     0,     0,     9,    14,     5,    32,    31,    25,

      30,    29,    26,    28,    27,    22,    21,    15,    16,    17,

      18,    19,    20,    33,     0,    35,    36,     0,     0,    38,

       0,    39,    40,     0,     0,    43,     0,    47,     0,    49,

       0,     0,    34,    37,     0,    42,     0,    41

};

/* YYDEFGOTO[NTERM-NUM].  */

static const yytype_int8 yydefgoto[] =

{

      -1,    21,    22,    23,    24,    65,    68

};

/* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing

   STATE-NUM.  */

#define YYPACT_NINF -39

static const yytype_int16 yypact[] =

{

      41,     3,   -39,   -39,   -39,   -39,     2,     4,    27,    32,

      35,    36,    39,    42,    45,    46,    47,   -39,   -18,   124,

     124,    89,    91,    87,   464,   -39,   124,   124,   124,   124,

     124,   124,   124,   124,   124,   124,   124,   124,   -39,   -36,

     254,   -39,    88,   -39,   124,   124,   124,   124,   124,   124,

     124,   124,   124,   124,   124,   124,   124,   124,   124,   124,

     -39,   275,   144,   296,   464,   -38,   166,   464,    29,   317,

     338,   188,   210,   359,   464,   -39,   -39,   481,   497,   513,

     513,   513,   513,   513,   513,    31,    31,   -15,   -15,   -36,

     -36,   -36,   -36,   -39,   124,   -39,   -39,   124,   124,   -39,

     124,   -39,   -39,   124,   124,   -39,   380,   464,   401,   464,

     232,   422,   -39,   -39,   124,   -39,   443,   -39

};

/* YYPGOTO[NTERM-NUM].  */

static const yytype_int8 yypgoto[] =

{

     -39,   -39,   -39,    70,   -19,   -39,   -39

};

/* YYTABLE[YYPACT[STATE-NUM]].  What to do in state STATE-NUM.  If

   positive, shift that token.  If negative, reduce the rule which

   number is the opposite.  If YYTABLE_NINF, syntax error.  */

#define YYTABLE_NINF -8

static const yytype_int8 yytable[] =

{

      39,    40,    59,    60,    96,    97,    25,    61,    62,    63,

      64,    66,    67,    69,    70,    71,    72,    73,    74,    56,

      57,    58,    37,    59,    60,    77,    78,    79,    80,    81,

      82,    83,    84,    85,    86,    87,    88,    89,    90,    91,

      92,    -7,     1,    26,    -7,    27,     2,     3,     4,     5,

       6,     7,     8,     9,    10,    11,    12,    13,    14,    15,

      16,    17,    18,    54,    55,    56,    57,    58,    28,    59,

      60,    99,   100,    29,    19,   106,    30,    31,   107,   108,

      32,   109,    20,    33,   110,   111,    34,    35,    36,    41,

      43,    76,    42,     0,     0,   116,     2,     3,     4,     5,

       6,     7,     8,     9,    10,    11,    12,    13,    14,    15,

      16,    17,    18,     0,     0,     0,     0,     0,     0,     0,

       0,     0,     0,     0,    19,     0,     0,     0,     0,     0,

       0,     0,    20,     6,     7,     8,     9,    10,    11,    12,

      13,    14,    15,    16,    17,    38,     0,     0,     0,     0,

       0,     0,     0,     0,     0,     0,     0,    19,     0,     0,

       0,     0,     0,     0,     0,    20,    44,    45,    46,    47,

      48,    49,    50,    51,    52,    53,    54,    55,    56,    57,

      58,     0,    59,    60,     0,     0,     0,    94,    44,    45,

      46,    47,    48,    49,    50,    51,    52,    53,    54,    55,

      56,    57,    58,     0,    59,    60,     0,     0,     0,    98,

      44,    45,    46,    47,    48,    49,    50,    51,    52,    53,

      54,    55,    56,    57,    58,     0,    59,    60,     0,     0,

       0,   103,    44,    45,    46,    47,    48,    49,    50,    51,

      52,    53,    54,    55,    56,    57,    58,     0,    59,    60,

       0,     0,     0,   104,    44,    45,    46,    47,    48,    49,

      50,    51,    52,    53,    54,    55,    56,    57,    58,     0,

      59,    60,     0,     0,     0,   114,    44,    45,    46,    47,

      48,    49,    50,    51,    52,    53,    54,    55,    56,    57,

      58,     0,    59,    60,     0,     0,    75,    44,    45,    46,

      47,    48,    49,    50,    51,    52,    53,    54,    55,    56,

      57,    58,     0,    59,    60,     0,     0,    93,    44,    45,

      46,    47,    48,    49,    50,    51,    52,    53,    54,    55,

      56,    57,    58,     0,    59,    60,     0,     0,    95,    44,

      45,    46,    47,    48,    49,    50,    51,    52,    53,    54,

      55,    56,    57,    58,     0,    59,    60,     0,     0,   101,

      44,    45,    46,    47,    48,    49,    50,    51,    52,    53,

      54,    55,    56,    57,    58,     0,    59,    60,     0,     0,

     102,    44,    45,    46,    47,    48,    49,    50,    51,    52,

      53,    54,    55,    56,    57,    58,     0,    59,    60,     0,

       0,   105,    44,    45,    46,    47,    48,    49,    50,    51,

      52,    53,    54,    55,    56,    57,    58,     0,    59,    60,

       0,     0,   112,    44,    45,    46,    47,    48,    49,    50,

      51,    52,    53,    54,    55,    56,    57,    58,     0,    59,

      60,     0,     0,   113,    44,    45,    46,    47,    48,    49,

      50,    51,    52,    53,    54,    55,    56,    57,    58,     0,

      59,    60,     0,     0,   115,    44,    45,    46,    47,    48,

      49,    50,    51,    52,    53,    54,    55,    56,    57,    58,

       0,    59,    60,     0,     0,   117,    44,    45,    46,    47,

      48,    49,    50,    51,    52,    53,    54,    55,    56,    57,

      58,     0,    59,    60,    45,    46,    47,    48,    49,    50,

      51,    52,    53,    54,    55,    56,    57,    58,     0,    59,

      60,    46,    47,    48,    49,    50,    51,    52,    53,    54,

      55,    56,    57,    58,     0,    59,    60,    -8,    -8,    -8,

      -8,    -8,    -8,    52,    53,    54,    55,    56,    57,    58,

       0,    59,    60

};

#define yypact_value_is_default(Yystate) \

  (!!((Yystate) == (-39)))

#define yytable_value_is_error(Yytable_value) \

  (!!((Yytable_value) == (-8)))

static const yytype_int8 yycheck[] =

{

      19,    20,    38,    39,    42,    43,     3,    26,    27,    28,

      29,    30,    31,    32,    33,    34,    35,    36,    37,    34,

      35,    36,    40,    38,    39,    44,    45,    46,    47,    48,

      49,    50,    51,    52,    53,    54,    55,    56,    57,    58,

      59,     0,     1,    41,     3,    41,     5,     6,     7,     8,

       9,    10,    11,    12,    13,    14,    15,    16,    17,    18,

      19,    20,    21,    32,    33,    34,    35,    36,    41,    38,

      39,    42,    43,    41,    33,    94,    41,    41,    97,    98,

      41,   100,    41,    41,   103,   104,    41,    41,    41,     0,

       3,     3,    22,    -1,    -1,   114,     5,     6,     7,     8,

       9,    10,    11,    12,    13,    14,    15,    16,    17,    18,

      19,    20,    21,    -1,    -1,    -1,    -1,    -1,    -1,    -1,

      -1,    -1,    -1,    -1,    33,    -1,    -1,    -1,    -1,    -1,

      -1,    -1,    41,     9,    10,    11,    12,    13,    14,    15,

      16,    17,    18,    19,    20,    21,    -1,    -1,    -1,    -1,

      -1,    -1,    -1,    -1,    -1,    -1,    -1,    33,    -1,    -1,

      -1,    -1,    -1,    -1,    -1,    41,    22,    23,    24,    25,

      26,    27,    28,    29,    30,    31,    32,    33,    34,    35,

      36,    -1,    38,    39,    -1,    -1,    -1,    43,    22,    23,

      24,    25,    26,    27,    28,    29,    30,    31,    32,    33,

      34,    35,    36,    -1,    38,    39,    -1,    -1,    -1,    43,

      22,    23,    24,    25,    26,    27,    28,    29,    30,    31,

      32,    33,    34,    35,    36,    -1,    38,    39,    -1,    -1,

      -1,    43,    22,    23,    24,    25,    26,    27,    28,    29,

      30,    31,    32,    33,    34,    35,    36,    -1,    38,    39,

      -1,    -1,    -1,    43,    22,    23,    24,    25,    26,    27,

      28,    29,    30,    31,    32,    33,    34,    35,    36,    -1,

      38,    39,    -1,    -1,    -1,    43,    22,    23,    24,    25,

      26,    27,    28,    29,    30,    31,    32,    33,    34,    35,

      36,    -1,    38,    39,    -1,    -1,    42,    22,    23,    24,

      25,    26,    27,    28,    29,    30,    31,    32,    33,    34,

      35,    36,    -1,    38,    39,    -1,    -1,    42,    22,    23,

      24,    25,    26,    27,    28,    29,    30,    31,    32,    33,

      34,    35,    36,    -1,    38,    39,    -1,    -1,    42,    22,

      23,    24,    25,    26,    27,    28,    29,    30,    31,    32,

      33,    34,    35,    36,    -1,    38,    39,    -1,    -1,    42,

      22,    23,    24,    25,    26,    27,    28,    29,    30,    31,

      32,    33,    34,    35,    36,    -1,    38,    39,    -1,    -1,

      42,    22,    23,    24,    25,    26,    27,    28,    29,    30,