diff tests/agcl/oldagsrc/good/pgg24c.cpp @ 0:13d2b8934445

Import AnaGram (near-)release tree into Mercurial.
author David A. Holland
date Sat, 22 Dec 2007 17:52:45 -0500
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tests/agcl/oldagsrc/good/pgg24c.cpp	Sat Dec 22 17:52:45 2007 -0500
@@ -0,0 +1,3357 @@
+/*
+   AnaGram Syntax Analyzer.
+   Copyright (c) Jerome T. Holland, 1989, 1990, 1991, 1992
+   All Rights Reserved.
+*/
+  #include HEADERS
+  #include STDLIB
+  #include STDIO
+  #include STRING
+  #include DATA
+  #include TREES
+  #include STK
+  #include CTYPE
+	#include ASSERT
+  #include PGG
+  #include MYALLOC
+  #include UT
+
+/*
+ * AnaGram, A System for Syntax Directed Programming
+ * File generated by: ...
+ *
+ * AnaGram Parsing Engine
+ * Copyright 1993-2002 Parsifal Software. All Rights Reserved.
+ *
+ * This software is provided 'as-is', without any express or implied
+ * warranty.  In no event will the authors be held liable for any damages
+ * arising from the use of this software.
+ *
+ * Permission is granted to anyone to use this software for any purpose,
+ * including commercial applications, and to alter it and redistribute it
+ * freely, subject to the following restrictions:
+ *
+ * 1. The origin of this software must not be misrepresented; you must not
+ *    claim that you wrote the original software. If you use this software
+ *    in a product, an acknowledgment in the product documentation would be
+ *    appreciated but is not required.
+ * 2. Altered source versions must be plainly marked as such, and must not be
+ *    misrepresented as being the original software.
+ * 3. This notice may not be removed or altered from any source distribution.
+ */
+
+#ifndef PGG24C_H
+#include "pgg24c.h"
+#endif
+
+#ifndef PGG24C_H
+#error Mismatched header file
+#endif
+
+#include <ctype.h>
+#include <stdio.h>
+
+#define RULE_CONTEXT (&((PCB).cs[(PCB).ssx]))
+#define ERROR_CONTEXT ((PCB).cs[(PCB).error_frame_ssx])
+#define CONTEXT ((PCB).cs[(PCB).ssx])
+
+
+#define CHANGE_REDUCTION(x) pgg_change_reduction(pgg_##x##_token)
+int pgg_change_reduction(pgg_token_type);
+
+#define TOKEN_NAMES pgg_token_names
+const char *const pgg_token_names[244] = {
+  "syntax definition",
+  "",
+  "\"->\"",
+  "",
+  "",
+  "",
+  "",
+  "','",
+  "",
+  "",
+  "",
+  "\"...\"",
+  "",
+  "'='",
+  "",
+  "'!'",
+  "",
+  "'{'",
+  "",
+  "'['",
+  "",
+  "'('",
+  "",
+  "'-'",
+  "",
+  "'+'",
+  "",
+  "']'",
+  "",
+  "'}'",
+  "",
+  "')'",
+  "",
+  "single quote",
+  "",
+  "'~'",
+  "",
+  "'|'",
+  "syntax definition",
+  "",
+  "",
+  "",
+  "",
+  "statement",
+  "",
+  "",
+  "eof",
+  "production",
+  "",
+  "left hand side",
+  "right hand side",
+  "",
+  "",
+  "",
+  "definition",
+  "embedded c",
+  "configuration section",
+  "token name list",
+  "type definition",
+  "",
+  "name",
+  "'$'",
+  "",
+  "error",
+  "",
+  "vp rule spec",
+  "",
+  "",
+  "reduction procedure",
+  "vp rules",
+  "grammar rule",
+  "",
+  "rule element",
+  "parameter name",
+  "",
+  "c expression",
+  "';'",
+  "type name",
+  "",
+  "",
+  "",
+  "\"::\"",
+  "",
+  "",
+  "",
+  "",
+  "template field head",
+  "'>'",
+  "'<'",
+  "",
+  "",
+  "'*'",
+  "",
+  "",
+  "letter",
+  "",
+  "",
+  "\"enum\"",
+  "blank char",
+  "c comment",
+  "continuation",
+  "comment",
+  "",
+  "carriage return",
+  "",
+  "newline",
+  "",
+  "vertical space",
+  "\"//\"",
+  "",
+  "",
+  "",
+  "character",
+  "signed number",
+  "'^'",
+  "",
+  "quoted character",
+  "char const",
+  "",
+  "",
+  "",
+  "decimal number",
+  "'0'",
+  "octal number",
+  "\"0x\"",
+  "\"0X\"",
+  "",
+  "hex number",
+  "",
+  "",
+  "",
+  "hex digit",
+  "",
+  "token",
+  "mid rule action",
+  "",
+  "virtual production",
+  "",
+  "",
+  "'&'",
+  "",
+  "",
+  "escape sequence",
+  "octal escape",
+  "",
+  "hex escape",
+  "character range",
+  "\"..\"",
+  "enum definition",
+  "enum statement",
+  "keyword string",
+  "keyword string head",
+  "string",
+  "double quote",
+  "",
+  "",
+  "",
+  "string char",
+  "simple string char",
+  "\"\\\\a\"",
+  "\"\\\\b\"",
+  "\"\\\\f\"",
+  "\"\\\\n\"",
+  "\"\\\\r\"",
+  "\"\\\\t\"",
+  "\"\\\\v\"",
+  "\"\\\\\\\\\"",
+  "\"\\\\?\"",
+  "\"\\\\\\'\"",
+  "\"\\\\\\\"\"",
+  "",
+  "backslash",
+  "",
+  "\"\\\\x\"",
+  "any digit",
+  "nonoctal digit",
+  "':'",
+  "",
+  "",
+  "configuration parameters",
+  "configuration parameter list",
+  "",
+  "configuration parameter",
+  "attribute statement",
+  "keyword kluge",
+  "\"distinguish\"",
+  "\"left\"",
+  "token list",
+  "\"right\"",
+  "\"nonassoc\"",
+  "\"sticky\"",
+  "\"subgrammar\"",
+  "\"hidden\"",
+  "",
+  "",
+  "\"disregard\"",
+  "\"lexeme\"",
+  "\"reserve\"",
+  "\"keywords\"",
+  "\"rename\"",
+  "\"macro\"",
+  "macro name",
+  "",
+  "tokens",
+  "'\\?'",
+  "\"}...\"",
+  "\"]...\"",
+  "\"?...\"",
+  "\"}/...\"",
+  "\"]/...\"",
+  "embedded c head",
+  "",
+  "",
+  "",
+  "",
+  "c code first",
+  "",
+  "",
+  "c character constant",
+  "c string constant",
+  "",
+  "simple c char",
+  "",
+  "",
+  "",
+  "",
+  "\"\\\\\\n\"",
+  "",
+  "\"*/\"",
+  "\"/*\"",
+  "",
+  "c literal elem",
+  "",
+  "",
+  "",
+  "",
+  "",
+  "",
+  "",
+  "",
+  "",
+  "",
+  "",
+  "",
+
+};
+
+
+/*  Line -, pgg24c.syn */
+  int null_warning(int n) {
+    extern void warning_here(const char *,...);
+    if (n == 0) warning_here("Null character in keyword string");
+    return n;
+  }
+/*  Line -, pgg24c.syn */
+pgg_pcb_type pgcb;
+#define PCB pgcb
+
+#define PARSER_STACK_OVERFLOW parse_stack_overflow()
+#define SYNTAX_ERROR log_syntax_error()
+#define GET_CONTEXT CONTEXT.y = PCB.line, CONTEXT.x = PCB.column;
+
+#define REDUCTION_TOKEN_ERROR reduction_token_error()
+
+int save_case_sensitive;
+
+void reduction_token_error(void) {
+	assert(0);
+}
+
+extern tsd *rename_macro_list;
+
+extern int parse_abort_flag;
+void log_error_location(int, int);
+void log_error(void);
+void show_error(void);
+
+void parse_stack_overflow(void) {
+  int eline = PCB.line, ecol = PCB.column;
+  reset_stk();
+  log_error_location(ecol,eline);
+  ass("Nesting too deep");
+  log_error();
+  sss("Syntax Analysis aborted");
+  show_error();
+  parse_abort_flag = 1;
+  PCB.exit_flag = AG_SEMANTIC_ERROR_CODE;
+}
+
+extern string_dict   *cast_dict;
+extern int            character_seen;
+extern int            enum_base;
+extern unsigned char *input_base;
+extern int            nest_comments;
+extern int            precedence_level;
+extern int            syntax_error_flag;
+extern int            case_sensitive;
+extern int            n_statements;
+
+       void log_error_location(int,int);
+       void log_error_here(void);
+       void log_error(void);
+
+       //node make_or_node(node,node);
+       //node make_and_node(node,node);
+       //node make_minus_node(node,node);
+       //node make_tilde_node(node);
+       //node ss1(int);
+       //node ss2(void);
+       CharSetExpression *ss2(void);
+       //node ss3(void);
+
+       void acs(int);
+       void aws(int);
+       void atkn(unsigned);
+       void copyoff(void);
+       void copyon(void);
+       //void definition_1(node);
+       void definition_1(CharSetExpression *);
+       void definition_2(int);
+       void definition_3(int);
+       //int  form_element_1(node);
+       int  form_element_1(CharSetExpression *);
+       int  form_spec_2(int, int);
+       int  form1(void);
+       int  form2(void);
+       void gp2(void);
+       void gp3(void);
+       void gp4(int);
+       void gp5(int);
+       int  head_list_1(int);
+       int  head_list_2(int);
+static int head_list_3(int);
+       void ics(void);
+       //int  identify_node(node);
+       int  identify_node(CharSetExpression *);
+       //void init_reserve(int);
+       void iws(void);
+       int  mid_line(int);
+       int  new_cast_spec_1(void);
+       int  new_cast_spec_2(void);
+       //void new_reserve(void);
+       int  null_warning(int);
+/*       void pf2(int, int, int); */
+       void pf2x(int, int);
+       int  pr3(int);
+       int  pr4(int);
+       int  proc_spec_4(int);
+       int  proc_spec_5(void);
+       void production(int);
+       void range(int, int);
+       void scs(int);
+static void set_prec(int,int);
+/*
+       void suppress(void);
+       void suppress_all(void);
+       void suppress_except(void);
+       void suppress_initial(void);
+*/
+       void sws(int);
+       void tp4(int);
+       int vp_form3(int);
+       int vp_s(void);
+       int vp_1(void);
+       int vp_2(void);
+       int vp_3(void);
+       int vp_4(void);
+       int vp_5(int);
+       int vp_6(int);
+       int vp_7(int);
+       int vp_8(int);
+       int vp_8a(int);
+       int vp_9(void);
+       int vp_10(void);
+
+/*
+static int reserve(int pt) {
+  int key = map_token_number[vp_s()].key;
+  map_key_word[key].reserve = pt;
+  return pt;
+}
+*/
+
+/*
+static void anomalous(void) {
+  map_token_number[vp_s()].anomalous = 1;
+}
+*/
+
+int *disregard_list = NULL;
+int n_disregard_list = 0;
+
+static void disregard(int tn) {
+  iws();
+  if (n_disregard_list) {
+    int *p = disregard_list;
+    while (n_disregard_list--) aws(*p++);
+    free(disregard_list);
+  }
+  xws(tn);
+  disregard_list = build_list();
+  n_disregard_list = fis();
+}
+
+extern tsd *syntax_errors;
+
+static void log_syntax_error(void) {
+  int eline = PCB.line, ecol = PCB.column;
+  int flag = PCB.error_frame_token == pgg_c_comment_token ||
+             PCB.error_frame_token == pgg_embedded_c_token;
+
+  reset_stk();
+  if (flag && PCB.token_number == pgg_eof_token) {
+    eline = ERROR_CONTEXT.y;
+    ecol = ERROR_CONTEXT.x;
+  }
+  log_error_location(ecol,eline);
+  apprintf("%s in %s",
+    PCB.error_message,pgg_token_names[PCB.error_frame_token]);
+  log_error();
+  syntax_error_flag++;
+	if (syntax_errors->nt < 50) return;
+	sss("Too many syntax errors, parse aborted");
+	log_error();
+	PCB.exit_flag = AG_SYNTAX_ERROR_CODE;
+}
+
+static int head_list_3(int type)   {
+  int i, n = tis();
+  for (i = 0; i < n; i ++) {
+    int tn = list_base[i];
+    token_number_map *tp = &map_token_number[tn];
+    int ptt = tp->value_type;
+    if (ptt && ptt != type) {
+      log_error_here();
+      apprintf("Type Redefinition of T%03d: ", tn);
+        atkn(tn);
+      log_error();
+    }
+    tp->value_type = type;
+    if (ptt == 0 && tp->rp_arg && type == void_token_type)  {
+      log_error_here();
+      apprintf("Void token, %s, used as parameter",
+          dict_str(tkn_dict,tp->token_name));
+      log_error();
+    }
+  }
+  return type;
+}
+
+static void set_prec(int left, int right){
+  int n = tis();
+  precedence_level++;
+  while (n--) {
+    int k = list_base[n];
+    token_number_map *tp = &map_token_number[k];
+    tp->left_associative = left;
+    tp->right_associative = right;
+    tp->precedence_level = precedence_level;
+  }
+  rws();
+}
+
+static void set_sticky(void){
+  int n = tis();
+  while (n--) {
+    int k = list_base[n];
+    token_number_map *tp = &map_token_number[k];
+    tp->sticky = 1;
+  }
+  rws();
+}
+
+static void set_subgrammar(void){
+  int n = tis();
+  while (n--) {
+    int k = list_base[n];
+    token_number_map *tp = &map_token_number[k];
+    tp->subgrammar = 1;
+  }
+  rws();
+}
+
+void set_hidden(void) {
+  int *lb = list_base;
+  int n = tis();
+  while (n--) map_token_number[*lb++].fine_structure = 1;
+  rws();
+}
+
+void set_lexeme(void) {
+  int n = tis();
+  while (n--) {
+    token_number_map *tp = &map_token_number[list_base[n]];
+/*    tp->lexeme = tp->subgrammar = 1; */
+    tp->lexeme = 1;
+  }
+  rws();
+}
+
+void set_reserved_words(void) {
+  int n = tis();
+  while (n--) {
+    token_number_map *tp = &map_token_number[list_base[n]];
+    tp->reserved_word = 1;
+  }
+  rws();
+}
+
+void parse(void) {
+  pgcb.pointer = input_base;
+  pgg();
+}
+
+#ifndef CONVERT_CASE
+#define CONVERT_CASE(c) (c)
+#endif
+#ifndef TAB_SPACING
+#define TAB_SPACING 8
+#endif
+
+static void ag_rp_1(void) {
+/* Line -, pgg24c.syn */
+  n_statements++;
+}
+
+static void ag_rp_2(void) {
+/* Line -, pgg24c.syn */
+  n_statements++;
+}
+
+static void ag_rp_3(int t) {
+/* Line -, pgg24c.syn */
+  production(t);
+}
+
+static void ag_rp_4(void) {
+/* Line -, pgg24c.syn */
+  n_statements++;
+}
+
+static void ag_rp_5(int t) {
+/* Line -, pgg24c.syn */
+  production(t);
+}
+
+static void ag_rp_6(void) {
+/* Line -, pgg24c.syn */
+  n_statements++;
+}
+
+static int ag_rp_7(int type) {
+/* Line -, pgg24c.syn */
+  return iws(),type;
+}
+
+static int ag_rp_8(int type, void x) {
+/* Line -, pgg24c.syn */
+  return concat_list(),type;
+}
+
+static int ag_rp_9(void) {
+/* Line -, pgg24c.syn */
+  return n_statements++, 0;
+}
+
+static int ag_rp_10(int d) {
+/* Line -, pgg24c.syn */
+  return n_statements++, head_list_3(d);
+}
+
+static void ag_rp_11(int x) {
+/* Line -, pgg24c.syn */
+  sws(head_list_2(x));
+}
+
+static void ag_rp_12(int x) {
+/* Line -, pgg24c.syn */
+  aws(head_list_2(x));
+}
+
+static int ag_rp_13(void) {
+/* Line -, pgg24c.syn */
+  return 0;
+}
+
+static int ag_rp_14(void) {
+/* Line -, pgg24c.syn */
+  return 1;
+}
+
+static int ag_rp_15(void) {
+/* Line -, pgg24c.syn */
+  return ids(cast_dict),fis();
+}
+
+static void ag_rp_16(int n) {
+/* Line -, pgg24c.syn */
+  sws(n);
+}
+
+static void ag_rp_17(int n) {
+/* Line -, pgg24c.syn */
+  aws(n);
+}
+
+static void ag_rp_18(int pn) {
+/* Line -, pgg24c.syn */
+  sws((iws(),vp_form3(pn)));
+}
+
+static int ag_rp_19(int s) {
+/* Line -, pgg24c.syn */
+  return vp_form3(s);
+}
+
+static void ag_rp_20(int n) {
+/* Line -, pgg24c.syn */
+  sws(form_spec_2(form1(),n));
+}
+
+static void ag_rp_21(int n) {
+/* Line -, pgg24c.syn */
+  sws(n);
+}
+
+static void ag_rp_22(int n) {
+/* Line -, pgg24c.syn */
+  aws(n);
+}
+
+static int ag_rp_23(int s) {
+/* Line -, pgg24c.syn */
+  return form_spec_2(form2(),s);
+}
+
+static void ag_rp_24(int e, int p) {
+/* Line -, pgg24c.syn */
+  iws(),pf2x(e,p);
+}
+
+static void ag_rp_25(int e, int p) {
+/* Line -, pgg24c.syn */
+  pf2x(e,p);
+}
+
+static int ag_rp_26(void) {
+/* Line -, pgg24c.syn */
+  return 0;
+}
+
+static int ag_rp_27(void) {
+/* Line -, pgg24c.syn */
+  return proc_spec_4(0);
+}
+
+static int ag_rp_28(void) {
+/* Line -, pgg24c.syn */
+  return proc_spec_4(1);
+}
+
+static void ag_rp_29(void) {
+/* Line -, pgg24c.syn */
+  concat_string();
+}
+
+static void ag_rp_30(void) {
+/* Line -, pgg24c.syn */
+  sss("::");
+}
+
+static void ag_rp_31(void) {
+/* Line -, pgg24c.syn */
+  concat_string();
+}
+
+static void ag_rp_32(void x) {
+/* Line -, pgg24c.syn */
+  ass("::");
+}
+
+static void ag_rp_33(void x) {
+/* Line -, pgg24c.syn */
+  concat_string();
+}
+
+static void ag_rp_34(void) {
+/* Line -, pgg24c.syn */
+  concat_string();
+}
+
+static void ag_rp_35(void) {
+/* Line -, pgg24c.syn */
+  acs('>'), concat_string();
+}
+
+static void ag_rp_36(void) {
+/* Line -, pgg24c.syn */
+  acs('<');
+}
+
+static void ag_rp_37(void) {
+/* Line -, pgg24c.syn */
+  acs(','), concat_string();
+}
+
+static void ag_rp_38(void) {
+/* Line -, pgg24c.syn */
+  scs('(');
+}
+
+static void ag_rp_39(void) {
+/* Line -, pgg24c.syn */
+  concat_string(), acs(')');
+}
+
+static void ag_rp_40(void) {
+/* Line -, pgg24c.syn */
+  sss(" *");
+}
+
+static void ag_rp_41(void) {
+/* Line -, pgg24c.syn */
+  concat_string();
+}
+
+static void ag_rp_42(void) {
+/* Line -, pgg24c.syn */
+  concat_string();
+}
+
+static void ag_rp_43(int c) {
+/* Line -, pgg24c.syn */
+  scs(c);
+}
+
+static void ag_rp_44(int c) {
+/* Line -, pgg24c.syn */
+  acs(c);
+}
+
+static void ag_rp_45(int c) {
+/* Line -, pgg24c.syn */
+  acs(' '), acs(c);
+}
+
+static void ag_rp_46(int c) {
+/* Line -, pgg24c.syn */
+  sss("enum "), acs(c);
+}
+
+static void ag_rp_47(int c) {
+/* Line -, pgg24c.syn */
+  acs(c);
+}
+
+static void ag_rp_48(int c) {
+/* Line -, pgg24c.syn */
+  acs(' '), acs(c);
+}
+
+static int ag_rp_49(int x) {
+/* Line -, pgg24c.syn */
+  return x & 0x1f;
+}
+
+static int ag_rp_50(int c) {
+/* Line -, pgg24c.syn */
+  return (character_seen=1),c;
+}
+
+static int ag_rp_51(int s, int n) {
+/* Line -, pgg24c.syn */
+  return s*n;
+}
+
+static int ag_rp_52(void) {
+/* Line -, pgg24c.syn */
+  return 1;
+}
+
+static int ag_rp_53(void) {
+/* Line -, pgg24c.syn */
+  return -1;
+}
+
+static int ag_rp_54(int n) {
+/* Line -, pgg24c.syn */
+  return n;
+}
+
+static int ag_rp_55(int n) {
+/* Line -, pgg24c.syn */
+  return n;
+}
+
+static int ag_rp_56(int d) {
+/* Line -, pgg24c.syn */
+  return d - '0';
+}
+
+static int ag_rp_57(int n, int d) {
+/* Line -, pgg24c.syn */
+  return 10*n + d - '0';
+}
+
+static int ag_rp_58(void) {
+/* Line -, pgg24c.syn */
+  return 0;
+}
+
+static int ag_rp_59(int n, int d) {
+/* Line -, pgg24c.syn */
+  return 8*n + d - '0';
+}
+
+static int ag_rp_60(int d) {
+/* Line -, pgg24c.syn */
+  return d;
+}
+
+static int ag_rp_61(int n, int d) {
+/* Line -, pgg24c.syn */
+  return 16*n + d;
+}
+
+static int ag_rp_62(int d) {
+/* Line -, pgg24c.syn */
+  return d-'0';
+}
+
+static int ag_rp_63(int d) {
+/* Line -, pgg24c.syn */
+  return (d&7)+9;
+}
+
+static int ag_rp_64(int p) {
+/* Line -, pgg24c.syn */
+  return vp_8a(p);
+}
+
+static int ag_rp_65(CharSetExpression * n) {
+/* Line -, pgg24c.syn */
+  return form_element_1(n);
+}
+
+static CharSetExpression * ag_rp_66(CharSetExpression * u, CharSetExpression * i) {
+/* Line -, pgg24c.syn */
+  return new CharSetUnion(u,i);
+}
+
+static CharSetExpression * ag_rp_67(CharSetExpression * u, CharSetExpression * i) {
+/* Line -, pgg24c.syn */
+  return new CharSetDifference(u,i);
+}
+
+static CharSetExpression * ag_rp_68(CharSetExpression * i, CharSetExpression * n) {
+/* Line -, pgg24c.syn */
+  return new CharSetIntersection(i,n);
+}
+
+static CharSetExpression * ag_rp_69(CharSetExpression * n) {
+/* Line -, pgg24c.syn */
+  return new CharSetComplement(n);
+}
+
+static int ag_rp_70(int c) {
+/* Line -, pgg24c.syn */
+  return case_sensitive ? (c) : toupper(c);
+}
+
+static CharSetExpression * ag_rp_71(int c) {
+/* Line -, pgg24c.syn */
+  return new IndividualCode(c);
+}
+
+static CharSetExpression * ag_rp_72(int c) {
+/* Line -, pgg24c.syn */
+  return new IndividualChar(c);
+}
+
+static CharSetExpression * ag_rp_73(void) {
+/* Line -, pgg24c.syn */
+  return ss2();
+}
+
+static CharSetExpression * ag_rp_74(CharSetExpression * x) {
+/* Line -, pgg24c.syn */
+  return x;
+}
+
+static CharSetExpression * ag_rp_75(int l, int r) {
+/* Line -, pgg24c.syn */
+  return (character_seen=1),new CharRange(l,r);
+}
+
+static CharSetExpression * ag_rp_76(int l, int r) {
+/* Line -, pgg24c.syn */
+  return new CodeRange(l,r);
+}
+
+static void ag_rp_77(CharSetExpression * n) {
+/* Line -, pgg24c.syn */
+  definition_1(n);
+}
+
+static void ag_rp_78(int p) {
+/* Line -, pgg24c.syn */
+  definition_2(p);
+}
+
+static void ag_rp_79(int p) {
+/* Line -, pgg24c.syn */
+  definition_2(vp_8a(p));
+}
+
+static void ag_rp_80(void) {
+/* Line -, pgg24c.syn */
+  definition_3(enum_base++);
+}
+
+static void ag_rp_81(int n) {
+/* Line -, pgg24c.syn */
+  definition_3(enum_base = n), enum_base++;
+}
+
+static void ag_rp_82(int n) {
+/* Line -, pgg24c.syn */
+  definition_3(enum_base = n), enum_base++;
+}
+
+static void ag_rp_83(void) {
+/* Line -, pgg24c.syn */
+  ics();
+}
+
+static int ag_rp_84(int n) {
+/* Line -, pgg24c.syn */
+  return null_warning(n);
+}
+
+static int ag_rp_85(void) {
+/* Line -, pgg24c.syn */
+  return '\a';
+}
+
+static int ag_rp_86(void) {
+/* Line -, pgg24c.syn */
+  return '\b';
+}
+
+static int ag_rp_87(void) {
+/* Line -, pgg24c.syn */
+  return '\f';
+}
+
+static int ag_rp_88(void) {
+/* Line -, pgg24c.syn */
+  return '\n';
+}
+
+static int ag_rp_89(void) {
+/* Line -, pgg24c.syn */
+  return '\r';
+}
+
+static int ag_rp_90(void) {
+/* Line -, pgg24c.syn */
+  return '\t';
+}
+
+static int ag_rp_91(void) {
+/* Line -, pgg24c.syn */
+  return '\v';
+}
+
+static int ag_rp_92(void) {
+/* Line -, pgg24c.syn */
+  return '\\';
+}
+
+static int ag_rp_93(void) {
+/* Line -, pgg24c.syn */
+  return '\?';
+}
+
+static int ag_rp_94(void) {
+/* Line -, pgg24c.syn */
+  return '\'';
+}
+
+static int ag_rp_95(void) {
+/* Line -, pgg24c.syn */
+  return '"';
+}
+
+static int ag_rp_96(int n) {
+/* Line -, pgg24c.syn */
+  return n&7;
+}
+
+static int ag_rp_97(int n, int d) {
+/* Line -, pgg24c.syn */
+  return n*8 + (d&7);
+}
+
+static int ag_rp_98(int n, int d) {
+/* Line -, pgg24c.syn */
+  return n*8 + (d&7);
+}
+
+static int ag_rp_99(int x) {
+/* Line -, pgg24c.syn */
+  return x;
+}
+
+static void ag_rp_100(int c) {
+/* Line -, pgg24c.syn */
+  acs(c);
+}
+
+static void ag_rp_101(int c) {
+/* Line -, pgg24c.syn */
+  acs(c);
+}
+
+static void ag_rp_102(int c) {
+/* Line -, pgg24c.syn */
+  acs(c);
+}
+
+static void ag_rp_103(int c) {
+/* Line -, pgg24c.syn */
+  acs(c);
+}
+
+static void ag_rp_104(int c) {
+/* Line -, pgg24c.syn */
+  acs(c);
+}
+
+static void ag_rp_105(int c) {
+/* Line -, pgg24c.syn */
+  acs(null_warning(c));
+}
+
+static void ag_rp_106(int c) {
+/* Line -, pgg24c.syn */
+  acs(null_warning(c));
+}
+
+static void ag_rp_107(int c) {
+/* Line -, pgg24c.syn */
+  acs(null_warning(c));
+}
+
+static void ag_rp_108(int c) {
+/* Line -, pgg24c.syn */
+  acs(null_warning(c));
+}
+
+static int ag_rp_109(void) {
+/* Line -, pgg24c.syn */
+  return 0;
+}
+
+static int ag_rp_110(void) {
+/* Line -, pgg24c.syn */
+  return ids(cvar_dict),fis();
+}
+
+static void ag_rp_111(int c) {
+/* Line -, pgg24c.syn */
+  scs(c);
+}
+
+static void ag_rp_112(int c) {
+/* Line -, pgg24c.syn */
+  acs(c);
+}
+
+static void ag_rp_113(void) {
+/* Line -, pgg24c.syn */
+  gp4(1);
+}
+
+static void ag_rp_114(void) {
+/* Line -, pgg24c.syn */
+  gp4(0);
+}
+
+static void ag_rp_115(void) {
+/* Line -, pgg24c.syn */
+  gp2();
+}
+
+static void ag_rp_116(void) {
+/* Line -, pgg24c.syn */
+  gp3();
+}
+
+static void ag_rp_117(void) {
+/* Line -, pgg24c.syn */
+  gp3();
+}
+
+static void ag_rp_118(int n) {
+/* Line -, pgg24c.syn */
+  gp5(n);
+}
+
+static void ag_rp_119(void) {
+/* Line -, pgg24c.syn */
+  concat_string(), gp4(1);
+}
+
+static void ag_rp_120(void) {
+/* Line -, pgg24c.syn */
+  sss("distinguish_");
+}
+
+static void ag_rp_121(void) {
+/* Line -, pgg24c.syn */
+  set_prec(1,0);
+}
+
+static void ag_rp_122(void) {
+/* Line -, pgg24c.syn */
+  set_prec(0,1);
+}
+
+static void ag_rp_123(void) {
+/* Line -, pgg24c.syn */
+  set_prec(0,0);
+}
+
+static void ag_rp_124(void) {
+/* Line -, pgg24c.syn */
+  set_sticky();
+}
+
+static void ag_rp_125(void) {
+/* Line -, pgg24c.syn */
+  set_subgrammar();
+}
+
+static void ag_rp_126(void) {
+/* Line -, pgg24c.syn */
+  set_hidden();
+}
+
+static void ag_rp_127(int t) {
+/* Line -, pgg24c.syn */
+  disregard(t);
+}
+
+static void ag_rp_128(void) {
+/* Line -, pgg24c.syn */
+  set_lexeme();
+}
+
+static void ag_rp_129(void) {
+/* Line -, pgg24c.syn */
+  set_reserved_words();
+}
+
+static void ag_rp_130(int oldName, int newName) {
+/* Line -, pgg24c.syn */
+  at(rename_macro_list,oldName,newName);
+}
+
+static int ag_rp_131(void) {
+/* Line -, pgg24c.syn */
+  return (PCB).pointer-input_base-1;
+}
+
+static void ag_rp_132(CharSetExpression * n) {
+/* Line -, pgg24c.syn */
+  distinguishSets.push(identify_node(n));
+}
+
+static void ag_rp_133(CharSetExpression * n) {
+/* Line -, pgg24c.syn */
+  distinguishSets.push(identify_node(n));
+}
+
+static void ag_rp_134(int t) {
+/* Line -, pgg24c.syn */
+  sws(t);
+}
+
+static void ag_rp_135(int t) {
+/* Line -, pgg24c.syn */
+  aws(t);
+}
+
+static int ag_rp_136(void) {
+/* Line -, pgg24c.syn */
+  return vp_s();
+}
+
+static int ag_rp_137(void) {
+/* Line -, pgg24c.syn */
+  return vp_5(vp_s());
+}
+
+static int ag_rp_138(void) {
+/* Line -, pgg24c.syn */
+  return vp_1();
+}
+
+static int ag_rp_139(void) {
+/* Line -, pgg24c.syn */
+  return vp_2();
+}
+
+static int ag_rp_140(void) {
+/* Line -, pgg24c.syn */
+  return vp_3();
+}
+
+static int ag_rp_141(void) {
+/* Line -, pgg24c.syn */
+  return vp_4();
+}
+
+static int ag_rp_142(CharSetExpression * n) {
+/* Line -, pgg24c.syn */
+  return vp_5(form_element_1(n));
+}
+
+static int ag_rp_143(CharSetExpression * n) {
+/* Line -, pgg24c.syn */
+  return vp_6(form_element_1(n));
+}
+
+static int ag_rp_144(CharSetExpression * n) {
+/* Line -, pgg24c.syn */
+  return vp_7(form_element_1(n));
+}
+
+static int ag_rp_145(void) {
+/* Line -, pgg24c.syn */
+  return vp_9();
+}
+
+static int ag_rp_146(void) {
+/* Line -, pgg24c.syn */
+  return vp_10();
+}
+
+static int ag_rp_147(void) {
+/* Line -, pgg24c.syn */
+  return mid_line(proc_spec_4(0));
+}
+
+static int ag_rp_148(void) {
+/* Line -, pgg24c.syn */
+  return mid_line(proc_spec_4(1));
+}
+
+static void ag_rp_149(void) {
+/* Line -, pgg24c.syn */
+  copyon();
+}
+
+static void ag_rp_150(void) {
+/* Line -, pgg24c.syn */
+  copyoff();
+}
+
+static void ag_rp_151(void) {
+/* Line -, pgg24c.syn */
+  copyoff();
+}
+
+static void ag_rp_152(void) {
+/* Line -, pgg24c.syn */
+  copyon();
+}
+
+static void ag_rp_153(void) {
+/* Line -, pgg24c.syn */
+  copyoff();
+}
+
+static void ag_rp_154(void) {
+/* Line -, pgg24c.syn */
+if (nest_comments) PCB.reduction_token = pgg_c_comment_head_token;
+}
+
+
+#define READ_COUNTS 
+#define WRITE_COUNTS 
+#undef V
+#define V(i,t) (*t (&(PCB).vs[(PCB).ssx + i]))
+#undef VS
+#define VS(i) (PCB).vs[(PCB).ssx + i]
+
+#ifndef GET_CONTEXT
+#define GET_CONTEXT CONTEXT = (PCB).input_context
+#endif
+
+typedef enum {
+  ag_action_1,
+  ag_action_2,
+  ag_action_3,
+  ag_action_4,
+  ag_action_5,
+  ag_action_6,
+  ag_action_7,
+  ag_action_8,
+  ag_action_9,
+  ag_action_10,
+  ag_action_11,
+  ag_action_12
+} ag_parser_action;
+
+
+#ifndef NULL_VALUE_INITIALIZER
+#define NULL_VALUE_INITIALIZER = { 0 }
+#endif
+
+static pgg_vs_type const ag_null_value NULL_VALUE_INITIALIZER;
+
+static const unsigned char ag_rpx[] = {
+    0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  1,  2,  0,  0,  0,  0,  0,  0,
+    0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  3,  4,  5,  6,
+    7,  0,  8,  0,  0,  0,  0,  0,  0,  0,  9, 10, 11, 12, 13, 14, 15,  0,
+   16,  0, 17, 18,  0,  0,  0, 19, 20, 21,  0, 22, 23, 24, 25,  0, 26, 27,
+   28,  0,  0,  0,  0, 29,  0, 30, 31, 32, 33,  0,  0, 34, 35, 36, 37, 38,
+   39, 40,  0, 41,  0, 42, 43, 44, 45, 46, 47, 48,  0,  0,  0,  0,  0,  0,
+    0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,
+    0, 49, 50, 51,  0,  0, 52, 53,  0, 54,  0,  0, 55, 56, 57, 58, 59, 60,
+   61, 62, 63,  0, 64, 65,  0,  0, 66, 67,  0, 68,  0, 69, 70,  0,  0,  0,
+    0,  0, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82,  0,  0,  0,  0,
+    0,  0, 83,  0,  0, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96,
+   97, 98,  0,  0, 99,100,101,102,103,104,105,106,107,108,109,110,111,112,
+    0,  0,  0,  0,  0,  0,  0,113,114,115,116,117,118,  0,119,120,121,122,
+  123,124,125,126,  0,  0,127,128,129,130,131,  0,  0,  0,  0,  0,132,133,
+    0,134,135,136,137,138,139,140,141,142,143,144,145,146,147,148,  0,  0,
+    0,  0,  0,  0,149,150,151,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,
+    0,  0,152,153,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,154
+};
+
+static const unsigned char ag_key_itt[] = {
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0
+};
+
+static const unsigned short ag_key_pt[] = {
+  0, 11,  0,147,0
+};
+
+static const unsigned char ag_key_ch[] = {
+    0, 42, 47,255, 47,255, 42, 47,255, 46,255, 46,255, 42, 47,255, 88,120,
+  255, 46, 47,255,114,116,255,115,255,105,255,102,120,255,101,255,110,115,
+  255,101,105,255,116,117,255, 46, 47,255, 45, 46, 47, 48, 58, 63, 93,100,
+  101,104,108,110,114,115,125,255, 47,255, 42, 47,255,114,116,255,115,255,
+  105,255,102,120,255,101,255,110,115,255,101,105,255,116,117,255, 47,100,
+  101,104,108,110,114,115,255, 42, 47,255, 88,120,255, 47, 48, 58,255, 42,
+   47,255, 46, 47,255, 46, 47,255, 45, 46, 47, 58, 63, 93,125,255, 58,255,
+   45, 47,255, 42, 47,255, 88,120,255, 47, 48, 58, 92,125,255, 47,255, 47,
+   58,255,114,116,255,115,255,105,255,102,120,255,101,255,110,115,255,101,
+  105,255,116,117,255, 47,100,101,104,108,110,114,115,255, 42, 47,255, 88,
+  120,255, 47, 48, 58, 92,255, 88,120,255, 48,255, 42, 47,255, 45, 47,255,
+   42, 47,255, 88,120,255, 47, 48,255, 88,120,255, 47, 48,255, 88,120,255,
+   47, 48, 58, 92,125,255, 47, 58,255,114,116,255,115,255,105,255,102,120,
+  255,101,255,110,115,255,101,105,255,116,117,255,100,101,104,108,110,114,
+  115,255, 42, 47,255, 46, 47,255, 46, 47,255, 47, 93,125,255, 42, 47,255,
+   47, 92,255, 92,255, 42, 47,255, 88,120,255, 47, 48,125,255, 34, 39, 63,
+   92, 97, 98,102,110,114,116,118,120,255, 92,255, 88,120,255, 48,125,255,
+   46, 47,255, 46, 47,255, 47, 93,125,255, 46,255, 46,255, 46, 47,255, 46,
+   47,255, 46, 47, 63, 93,125,255, 46, 47,255, 46, 47,255, 46, 47, 63, 93,
+  125,255, 46, 47, 63,255, 46, 47,255, 46, 47,255, 93,125,255, 46, 47,255,
+   93,255, 46, 47,255,125,255,125,255, 46,255, 46,255, 42, 47,255, 46, 47,
+  255, 46, 47,255, 46, 47, 63, 93,125,255, 47,107,255, 47,109,255, 88,120,
+  255, 47, 48,255, 88,120,255, 48, 58,255, 47, 92,255, 42, 47,255, 46, 47,
+  255, 46, 47,255, 46, 47, 63, 93,125,255
+};
+
+static const unsigned char ag_key_act[] = {
+  0,0,0,4,2,4,3,3,4,5,4,6,4,0,0,4,0,0,4,3,3,4,3,3,4,2,4,2,4,3,3,4,2,4,3,
+  3,4,2,3,4,3,3,4,3,3,4,3,2,2,2,3,3,2,2,3,3,2,3,2,2,2,4,3,4,0,0,4,3,3,4,
+  2,4,2,4,3,3,4,2,4,3,3,4,2,3,4,3,3,4,2,2,3,3,2,3,2,2,4,0,0,4,0,0,4,2,2,
+  3,4,0,0,4,3,3,4,3,3,4,3,7,2,3,3,2,2,4,3,4,3,3,4,0,0,4,0,0,4,2,2,3,3,3,
+  4,3,4,3,3,4,3,3,4,2,4,2,4,3,3,4,2,4,3,3,4,2,3,4,3,3,4,3,2,3,3,2,3,2,2,
+  4,0,0,4,0,0,4,2,2,3,3,4,0,0,4,2,4,0,0,4,3,2,4,0,0,4,0,0,4,2,2,4,0,0,4,
+  3,2,4,0,0,4,3,2,3,3,3,4,3,3,4,3,3,4,2,4,2,4,3,3,4,2,4,3,3,4,2,3,4,3,3,
+  4,2,3,3,2,3,2,2,4,0,0,4,3,3,4,3,3,4,2,2,2,4,0,0,4,2,3,4,3,4,0,0,4,0,0,
+  4,2,2,3,4,0,0,0,0,0,0,0,0,0,0,0,0,4,2,4,0,0,4,2,3,4,3,3,4,3,3,4,3,2,2,
+  4,5,4,6,4,3,3,4,3,3,4,2,3,3,2,2,4,3,3,4,3,3,4,7,3,3,2,2,4,7,3,3,4,3,3,
+  4,3,3,4,2,2,4,3,3,4,2,4,3,3,4,2,4,3,4,5,4,6,4,0,0,4,3,3,4,3,3,4,2,2,3,
+  2,2,4,3,3,4,3,3,4,0,0,4,3,2,4,0,0,4,2,3,4,3,3,4,0,0,4,3,3,4,3,3,4,7,2,
+  3,2,2,4
+};
+
+static const unsigned char ag_key_parm[] = {
+    0,229,108,  0,  0,  0,228,229,  0,  0,  0,  2,  0,229,108,  0,125,124,
+    0,206,209,  0,195,185,  0,  0,  0,  0,  0,186,196,  0,  0,  0,199,197,
+    0,  0,188,  0,190,191,  0,205,208,  0,  2,  0,  0,  0, 81,207,  0,  0,
+   97,192,  0,189,  0,  0,  0,  0,108,  0,229,108,  0,195,185,  0,  0,  0,
+    0,  0,186,196,  0,  0,  0,199,197,  0,  0,188,  0,190,191,  0,  0,  0,
+   97,192,  0,189,  0,  0,  0,229,108,  0,125,124,  0,  0,  0, 81,  0,229,
+  108,  0,206,209,  0,205,208,  0,  2,  0,  0, 81,207,  0,  0,  0, 81,  0,
+    2,108,  0,229,108,  0,125,124,  0,  0,  0, 81,226,205,  0,229,  0,108,
+   81,  0,195,185,  0,  0,  0,  0,  0,186,196,  0,  0,  0,199,197,  0,  0,
+  188,  0,190,191,  0,108,  0, 97,192,  0,189,  0,  0,  0,229,108,  0,125,
+  124,  0,  0,  0, 81,226,  0,125,124,  0,  0,  0,229,108,  0,  2,  0,  0,
+  229,108,  0,125,124,  0,  0,  0,  0,125,124,  0,108,  0,  0,125,124,  0,
+  229,  0, 81,226,205,  0,229, 81,  0,195,185,  0,  0,  0,  0,  0,186,196,
+    0,  0,  0,199,197,  0,  0,188,  0,190,191,  0,  0, 97,192,  0,189,  0,
+    0,  0,229,108,  0,206,209,  0,205,208,  0,  0,  0,  0,  0,229,108,  0,
+    0,226,  0,226,  0,229,108,  0,125,124,  0,  0,  0,205,  0,169,168,167,
+  166,159,160,161,162,163,164,165,173,  0,  0,  0,125,124,  0,  0,205,  0,
+  206,209,  0,205,208,  0,108,  0,  0,  0,  0,  0,  2,  0,206,209,  0,205,
+  208,  0,  0,108,207,  0,  0,  0,206,209,  0,205,208,  0,  0,108,207,  0,
+    0,  0,  0,108,207,  0,206,209,  0,205,208,  0,  0,  0,  0,206,209,  0,
+    0,  0,205,208,  0,  0,  0,205,  0,  0,  0,  2,  0,229,108,  0,206,209,
+    0,205,208,  0,  0,  0,207,  0,  0,  0,229,198,  0,229,200,  0,125,124,
+    0,229,  0,  0,125,124,  0,  0, 81,  0,229,226,  0,229,108,  0,206,209,
+    0,205,208,  0,  0,  0,207,  0,  0,  0
+};
+
+static const unsigned short ag_key_jmp[] = {
+    0,  0,  0,  0,  1,  0,  0,  2,  0,  0,  0,  9,  0,  0,  0,  0,  0,  0,
+    0, 12, 15,  0, 19, 25,  0, 22,  0, 25,  0, 43, 45,  0, 29,  0, 57, 61,
+    0, 34, 66,  0, 70, 75,  0, 84, 87,  0,  4, 11, 13, 16,  6,  8, 19, 27,
+   33, 37, 32, 49, 37, 40, 43,  0, 91,  0,  0,  0,  0, 93, 99,  0, 67,  0,
+   70,  0,117,119,  0, 74,  0,131,135,  0, 79,140,  0,144,149,  0, 64, 72,
+  107,111, 77,123, 82, 85,  0,  0,  0,  0,  0,  0,  0, 97,100,158,  0,  0,
+    0,  0,171,174,  0,178,181,  0,160,162,107,165,167,110,113,  0,185,  0,
+  187,189,  0,  0,  0,  0,  0,  0,  0,129,132,191,193,195,  0,199,  0,201,
+  203,  0,207,213,  0,146,  0,149,  0,231,233,  0,153,  0,245,249,  0,158,
+  254,  0,258,263,  0,205,151,221,225,156,237,161,164,  0,  0,  0,  0,  0,
+    0,  0,176,179,272,274,  0,  0,  0,  0,187,  0,  0,  0,  0,276,192,  0,
+    0,  0,  0,  0,  0,  0,198,201,  0,  0,  0,  0,278,207,  0,  0,  0,  0,
+  280,213,282,284,286,  0,290,292,  0,294,300,  0,225,  0,228,  0,318,320,
+    0,232,  0,332,336,  0,237,341,  0,345,350,  0,230,308,312,235,324,240,
+  243,  0,  0,  0,  0,359,362,  0,366,369,  0,254,257,260,  0,  0,  0,  0,
+  267,373,  0,375,  0,  0,  0,  0,  0,  0,  0,275,278,377,  0,  0,  0,  0,
+    0,  0,  0,  0,  0,  0,  0,  0,  0,  0,285,  0,  0,  0,  0,300,381,  0,
+  387,390,  0,394,397,  0,385,306,309,  0,  0,  0,316,  0,407,410,  0,414,
+  417,  0,318,401,403,320,323,  0,430,433,  0,437,440,  0,421,424,426,332,
+  335,  0,444,447,449,  0,453,456,  0,460,463,  0,348,351,  0,467,470,  0,
+  357,  0,474,477,  0,362,  0,481,  0,  0,  0,369,  0,  0,  0,  0,489,492,
+    0,496,499,  0,371,373,485,376,379,  0,503,505,  0,513,515,  0,  0,  0,
+    0,520,394,  0,  0,  0,  0,400,522,  0,524,526,  0,  0,  0,  0,535,538,
+    0,542,545,  0,528,409,531,412,415,  0
+};
+
+static const unsigned short ag_key_index[] = {
+    4,  6, 46, 62,  0,  0,  0, 88,  0,  0,  0,  0,  0,103,  4,116,  0,124,
+   88,  4,126,  0,126,126, 62, 62,  0,  0,  0,  0,  0,135,  0,  4,116,141,
+  143,  0,167,  0,  0,  0,  0,  0,  0,  4,  0,182,190,195,126,126,204,  0,
+  204,210,  4,195, 62, 62,216,141,141,  0,222,124, 62,  4,246,263,  0,  0,
+    0,  0,  0,  4,263,270,273,204,281,298,190,303,312,204,204,190,  0,298,
+  204,190,326,190,338,344,338,190,312, 62,273, 62,204,190, 62,216,  0,141,
+    4, 62,  0, 62,  0,141,141,141,141,141, 62, 62,141,141,141,141,141,141,
+    4,  0,141,  0, 62, 62,  0,  0,  0,  4,273,  0,  0,  0,298,298,298,298,
+  298,354,360,365,367,367,263,  0,382,382,382,382,  0,  0,204,204,263,263,
+  263,190,190,312,  4,  0,  0,  0,222,  4,388,391,388,141,397,  0,  0,190,
+    0,  4,  0,141,403, 88,  0,  4,  0,  0,406,263,298,263,263,263,190,263,
+  263,382,382,298,418,418,190,190,338,338,  0,263,141,141,141,190, 62, 62,
+    0,  0,  0,263,141,141, 62,190,190,141,190,298, 62,141,  0, 62
+};
+
+static const unsigned char ag_key_ends[] = {
+47,0, 42,0, 62,0, 58,0, 46,46,46,0, 46,46,0, 46,46,46,0, 
+101,103,97,114,100,0, 105,110,103,117,105,115,104,0, 110,117,109,0, 
+105,100,100,101,110,0, 116,0, 101,109,101,0, 
+111,110,97,115,115,111,99,0, 97,109,101,0, 101,114,118,101,0, 
+103,104,116,0, 105,99,107,121,0, 98,103,114,97,109,109,97,114,0, 
+46,46,0, 46,46,46,0, 47,0, 101,103,97,114,100,0, 
+105,110,103,117,105,115,104,0, 110,117,109,0, 105,100,100,101,110,0, 
+116,0, 101,109,101,0, 111,110,97,115,115,111,99,0, 97,109,101,0, 
+101,114,118,101,0, 103,104,116,0, 105,99,107,121,0, 
+98,103,114,97,109,109,97,114,0, 58,0, 62,0, 46,46,0, 58,0, 
+46,46,46,0, 46,46,0, 46,46,46,0, 46,46,0, 46,46,46,0, 58,0, 
+62,0, 47,0, 58,0, 10,0, 46,46,46,0, 42,0, 47,0, 58,0, 47,0, 
+101,103,97,114,100,0, 105,110,103,117,105,115,104,0, 110,117,109,0, 
+105,100,100,101,110,0, 116,0, 101,109,101,0, 
+111,110,97,115,115,111,99,0, 97,109,101,0, 101,114,118,101,0, 
+103,104,116,0, 105,99,107,121,0, 98,103,114,97,109,109,97,114,0, 
+58,0, 10,0, 62,0, 47,0, 42,0, 58,0, 10,0, 46,46,46,0, 42,0, 
+58,0, 101,103,97,114,100,0, 105,110,103,117,105,115,104,0, 
+110,117,109,0, 105,100,100,101,110,0, 116,0, 101,109,101,0, 
+111,110,97,115,115,111,99,0, 97,109,101,0, 101,114,118,101,0, 
+103,104,116,0, 105,99,107,121,0, 98,103,114,97,109,109,97,114,0, 
+46,46,0, 46,46,46,0, 46,46,0, 46,46,46,0, 10,0, 10,0, 
+46,46,46,0, 46,46,46,0, 47,0, 46,46,0, 46,46,46,0, 46,46,0, 
+46,46,46,0, 47,0, 46,46,46,0, 46,46,0, 46,46,46,0, 46,46,0, 
+46,46,46,0, 46,46,0, 47,0, 46,46,46,0, 46,46,0, 46,46,46,0, 
+46,46,0, 46,46,46,0, 46,46,0, 47,0, 46,46,46,0, 46,46,0, 
+46,46,46,0, 46,46,0, 46,46,46,0, 46,46,0, 46,46,46,0, 46,46,0, 
+46,46,46,0, 46,46,46,0, 46,46,46,0, 46,46,0, 46,46,46,0, 
+46,46,0, 46,46,46,0, 42,0, 101,121,119,111,114,100,115,0, 42,0, 
+97,99,114,111,0, 42,0, 58,0, 42,0, 10,0, 46,46,0, 46,46,46,0, 
+46,46,0, 46,46,46,0, 46,46,0, 46,46,46,0, 
+};
+
+#define AG_TCV(x) ag_tcv[(x)]
+
+static const unsigned char ag_tcv[] = {
+   46,242,242,242,242,242,242,242,242, 98,105,107,107,103,242,242,242,242,
+  242,242,242,242,242,242,242,242, 46,242,242,242,242,242, 98, 15,153,243,
+   61,243,139, 33, 21, 31, 91, 25,  7, 23,243,243,122,240,240,240,240,240,
+  240,240,241,241,176, 76, 88, 13, 87,204,243,132,132,132,132,132,132,239,
+  239,239,239,239,239,239,239,239,239,239,239,239,239,239,239,239,239,239,
+  239, 19,171, 27,114,239,243,132,132,132,132,132,132,239,239,239,239,239,
+  239,239,239,239,239,239,239,239,239,239,239,239,239,239,239, 17, 37, 29,
+   35,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,
+  242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,
+  242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,
+  242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,
+  242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,
+  242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,
+  242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,242,
+  242,242,242,242
+};
+
+#ifndef SYNTAX_ERROR
+#define SYNTAX_ERROR fprintf(stderr,"%s, line %d, column %d\n", \
+  (PCB).error_message, (PCB).line, (PCB).column)
+#endif
+
+#ifndef FIRST_LINE
+#define FIRST_LINE 1
+#endif
+
+#ifndef FIRST_COLUMN
+#define FIRST_COLUMN 1
+#endif
+
+#ifndef PARSER_STACK_OVERFLOW
+#define PARSER_STACK_OVERFLOW {fprintf(stderr, \
+   "\nParser stack overflow, line %d, column %d\n",\
+   (PCB).line, (PCB).column);}
+#endif
+
+#ifndef REDUCTION_TOKEN_ERROR
+#define REDUCTION_TOKEN_ERROR {fprintf(stderr, \
+    "\nReduction token error, line %d, column %d\n", \
+    (PCB).line, (PCB).column);}
+#endif
+
+
+#ifndef INPUT_CODE
+#define INPUT_CODE(T) (T)
+#endif
+
+typedef enum
+  {ag_accept_key, ag_set_key, ag_jmp_key, ag_end_key, ag_no_match_key,
+   ag_cf_accept_key, ag_cf_set_key, ag_cf_end_key} key_words;
+
+static void ag_get_key_word(int ag_k) {
+  int ag_save = (int) ((PCB).la_ptr - (PCB).pointer);
+  const  unsigned char *ag_p;
+  int ag_ch;
+  while (1) {
+    switch (ag_key_act[ag_k]) {
+    case ag_cf_end_key: {
+      const  unsigned char *sp = ag_key_ends + ag_key_jmp[ag_k];
+      do {
+        if ((ag_ch = *sp++) == 0) {
+          int ag_k1 = ag_key_parm[ag_k];
+          int ag_k2 = ag_key_pt[ag_k1];
+          if (ag_key_itt[ag_k2 + CONVERT_CASE(*(PCB).la_ptr)]) goto ag_fail;
+          (PCB).token_number = (pgg_token_type) ag_key_pt[ag_k1 + 1];
+          return;
+        }
+      } while (CONVERT_CASE(*(PCB).la_ptr++) == ag_ch);
+      goto ag_fail;
+    }
+    case ag_end_key: {
+      const  unsigned char *sp = ag_key_ends + ag_key_jmp[ag_k];
+      do {
+        if ((ag_ch = *sp++) == 0) {
+          (PCB).token_number = (pgg_token_type) ag_key_parm[ag_k];
+          return;
+        }
+      } while (CONVERT_CASE(*(PCB).la_ptr++) == ag_ch);
+    }
+    case ag_no_match_key:
+ag_fail:
+      (PCB).la_ptr = (PCB).pointer + ag_save;
+      return;
+    case ag_cf_set_key: {
+      int ag_k1 = ag_key_parm[ag_k];
+      int ag_k2 = ag_key_pt[ag_k1];
+      ag_k = ag_key_jmp[ag_k];
+      if (ag_key_itt[ag_k2 + CONVERT_CASE(*(PCB).la_ptr)]) break;
+      ag_save = (int) ((PCB).la_ptr - (PCB).pointer);
+      (PCB).token_number = (pgg_token_type) ag_key_pt[ag_k1+1];
+      break;
+    }
+    case ag_set_key:
+      ag_save = (int) ((PCB).la_ptr - (PCB).pointer);
+      (PCB).token_number = (pgg_token_type) ag_key_parm[ag_k];
+    case ag_jmp_key:
+      ag_k = ag_key_jmp[ag_k];
+      break;
+    case ag_accept_key:
+      (PCB).token_number = (pgg_token_type) ag_key_parm[ag_k];
+      return;
+    case ag_cf_accept_key: {
+      int ag_k1 = ag_key_parm[ag_k];
+      int ag_k2 = ag_key_pt[ag_k1];
+      if (ag_key_itt[ag_k2 + CONVERT_CASE(*(PCB).la_ptr)])
+        (PCB).la_ptr = (PCB).pointer + ag_save;
+      else (PCB).token_number = (pgg_token_type) ag_key_pt[ag_k1+1];
+      return;
+    }
+    }
+    ag_ch = CONVERT_CASE(*(PCB).la_ptr++);
+    ag_p = &ag_key_ch[ag_k];
+    if (ag_ch <= 255) while (*ag_p < ag_ch) ag_p++;
+    if (ag_ch > 255 || *ag_p != ag_ch) {
+      (PCB).la_ptr = (PCB).pointer + ag_save;
+      return;
+    }
+    ag_k = (int) (ag_p - ag_key_ch);
+  }
+}
+
+
+#ifndef AG_NEWLINE
+#define AG_NEWLINE 10
+#endif
+
+#ifndef AG_RETURN
+#define AG_RETURN 13
+#endif
+
+#ifndef AG_FORMFEED
+#define AG_FORMFEED 12
+#endif
+
+#ifndef AG_TABCHAR
+#define AG_TABCHAR 9
+#endif
+
+static void ag_track(void) {
+  int ag_k = (int) ((PCB).la_ptr - (PCB).pointer);
+  while (ag_k--) {
+    switch (*(PCB).pointer++) {
+    case AG_NEWLINE:
+      (PCB).column = 1, (PCB).line++;
+    case AG_RETURN:
+    case AG_FORMFEED:
+      break;
+    case AG_TABCHAR:
+      (PCB).column += (TAB_SPACING) - ((PCB).column - 1) % (TAB_SPACING);
+      break;
+    default:
+      (PCB).column++;
+    }
+  }
+}
+
+
+static void ag_prot(void) {
+  int ag_k;
+  ag_k = 128 - ++(PCB).btsx;
+  if (ag_k <= (PCB).ssx) {
+    (PCB).exit_flag = AG_STACK_ERROR_CODE;
+    PARSER_STACK_OVERFLOW;
+    return;
+  }
+  (PCB).bts[(PCB).btsx] = (PCB).sn;
+  (PCB).bts[ag_k] = (PCB).ssx;
+  (PCB).vs[ag_k] = (PCB).vs[(PCB).ssx];
+  (PCB).ss[ag_k] = (PCB).ss[(PCB).ssx];
+  (PCB).cs[ag_k] = (PCB).cs[(PCB).ssx];
+}
+
+static void ag_undo(void) {
+  if ((PCB).drt == -1) return;
+  while ((PCB).btsx) {
+    int ag_k = 128 - (PCB).btsx;
+    (PCB).sn = (PCB).bts[(PCB).btsx--];
+    (PCB).ssx = (PCB).bts[ag_k];
+    (PCB).vs[(PCB).ssx] = (PCB).vs[ag_k];
+    (PCB).ss[(PCB).ssx] = (PCB).ss[ag_k];
+    (PCB).cs[(PCB).ssx] = (PCB).cs[ag_k];
+  }
+  (PCB).token_number = (pgg_token_type) (PCB).drt;
+  (PCB).ssx = (PCB).dssx;
+  (PCB).sn = (PCB).dsn;
+  (PCB).drt = -1;
+}
+
+
+
+static const int ag_rtt[] = {
+   99,227,  0
+};
+
+static const unsigned char ag_tstt[] = {
+239,229,132,108,105,103,98,46,21,19,17,0,3,4,5,38,99,227,
+243,242,241,240,239,229,228,204,176,171,153,139,132,122,114,107,105,103,98,
+  91,88,87,76,61,37,35,33,31,29,27,25,23,21,19,17,15,13,7,0,99,227,
+229,98,0,3,99,227,
+239,132,108,105,103,46,21,19,17,0,39,40,101,104,
+243,242,241,240,239,204,176,171,153,139,132,122,114,107,105,103,98,91,88,87,
+  76,61,37,35,33,31,29,27,25,23,21,19,17,15,13,7,0,110,111,
+105,0,
+105,103,0,104,
+239,229,199,197,196,195,192,191,190,189,188,186,185,132,108,107,105,103,98,
+  97,46,35,27,21,19,17,0,3,99,101,104,106,227,
+239,132,63,46,21,19,17,0,20,41,42,45,47,48,49,54,55,56,57,58,59,60,93,210,
+243,242,241,240,239,204,176,171,153,139,132,122,114,107,98,91,88,87,76,61,
+  37,35,33,31,29,27,25,23,21,19,17,15,13,7,0,
+105,0,
+105,103,0,104,
+105,0,
+241,240,239,229,132,125,124,122,114,108,105,103,98,91,81,35,33,25,23,21,0,3,
+  4,8,9,99,100,101,102,104,227,
+243,242,241,240,239,229,204,176,171,153,139,132,122,114,108,107,105,103,98,
+  91,88,87,76,61,37,35,33,31,29,27,25,23,21,19,15,13,7,0,104,212,213,214,
+241,240,239,229,209,208,207,206,205,204,176,139,132,122,108,105,103,98,91,
+  88,87,81,61,46,37,31,29,27,25,23,21,13,11,7,2,0,3,4,5,99,227,
+31,0,
+239,132,81,0,60,62,77,93,
+239,229,199,197,196,195,192,191,190,189,188,186,185,132,108,105,103,98,97,
+  35,27,0,3,4,5,99,179,227,
+243,242,241,240,239,229,204,176,171,153,139,132,122,114,108,107,98,91,88,87,
+  76,61,37,35,33,31,29,27,25,23,21,19,15,13,7,0,99,101,211,215,218,219,
+  227,
+108,105,103,61,46,13,7,2,0,12,
+239,132,0,57,59,60,93,
+108,105,103,46,7,2,0,6,
+108,105,103,46,2,0,1,50,
+108,105,103,0,39,101,104,
+108,105,103,0,39,101,104,
+239,132,63,46,21,19,17,0,20,41,43,44,47,48,49,54,55,56,57,58,59,60,93,210,
+46,0,
+105,0,
+105,0,
+105,103,0,102,104,
+243,242,241,240,239,229,226,205,204,176,171,153,139,132,125,124,122,114,108,
+  107,105,103,98,91,88,87,81,61,37,35,33,31,29,27,25,23,21,19,17,15,13,7,
+  0,3,99,100,101,102,104,227,
+105,0,
+243,242,241,240,239,229,204,176,171,153,139,132,122,114,108,107,105,103,98,
+  91,88,87,76,61,37,35,33,31,29,27,25,23,21,19,15,13,7,0,104,212,
+241,240,239,229,132,122,98,0,3,99,227,
+239,229,132,98,0,82,
+108,105,103,91,88,87,81,31,27,21,7,0,78,79,86,
+31,0,
+239,199,197,196,195,192,191,190,189,188,186,185,132,108,105,103,97,35,27,0,
+  39,40,101,104,
+27,0,26,
+243,242,241,240,239,204,176,171,153,139,132,122,114,107,98,91,88,87,76,61,
+  37,35,33,31,29,27,25,23,21,19,17,15,13,7,0,233,234,235,
+243,242,241,240,239,204,176,171,153,139,132,122,114,107,98,91,88,87,76,61,
+  37,35,33,31,29,27,25,23,21,19,17,15,13,7,0,236,237,238,
+153,0,
+33,0,
+105,103,0,104,
+243,242,241,240,239,229,204,176,171,153,139,132,122,114,108,107,105,103,98,
+  91,88,87,76,61,37,35,33,31,29,27,25,23,21,19,17,15,13,7,0,216,
+29,0,28,
+243,242,241,240,239,229,226,204,176,171,153,139,132,125,124,122,114,108,107,
+  105,103,98,91,88,87,81,61,37,35,33,31,27,25,23,21,19,17,15,13,7,0,3,4,8,
+  9,99,100,101,102,104,227,
+241,240,239,153,132,125,124,122,114,35,33,25,23,21,19,17,15,0,14,16,18,20,
+  22,24,34,60,93,112,113,116,118,120,134,135,136,137,138,140,146,150,151,
+229,108,105,103,98,46,7,2,0,3,4,5,99,227,
+108,105,103,61,46,7,2,0,
+108,105,103,46,7,2,0,6,
+241,240,239,229,153,132,125,124,122,114,108,105,103,98,35,33,29,25,23,21,19,
+  17,15,0,3,4,8,9,99,100,101,102,104,227,
+239,132,0,59,60,93,
+241,240,239,229,153,132,125,124,122,114,108,105,103,98,46,37,35,33,25,23,21,
+  19,17,15,13,0,3,4,5,99,227,
+241,240,239,153,132,125,124,122,114,108,105,103,46,37,35,33,25,23,21,19,17,
+  15,13,0,12,14,16,18,20,22,24,34,53,60,68,70,71,72,74,93,112,113,116,118,
+  120,133,134,135,136,137,138,140,146,150,151,
+239,229,132,108,107,105,103,98,46,21,19,17,0,3,99,101,104,106,227,
+239,229,132,108,107,105,103,98,46,37,21,19,17,2,0,1,3,36,50,51,52,99,101,
+  104,106,227,
+108,105,103,46,0,39,101,104,
+108,105,103,46,0,39,101,104,
+229,98,0,3,4,99,227,
+239,229,132,98,0,3,4,5,99,227,
+239,229,132,98,0,83,
+91,21,0,20,80,84,85,89,90,92,
+239,229,132,98,81,0,3,4,5,99,227,
+239,132,81,0,60,62,77,93,
+108,105,103,91,87,31,27,21,7,0,
+239,229,132,108,105,103,98,0,3,4,8,9,99,100,101,102,104,227,
+239,199,197,196,195,192,191,190,189,188,186,185,132,97,35,27,0,34,60,93,96,
+  149,180,181,182,183,184,193,
+229,209,208,206,205,176,108,105,103,98,46,37,29,27,13,7,0,3,4,5,99,227,
+243,242,241,240,239,204,176,171,153,139,132,122,114,107,105,103,98,91,88,87,
+  76,61,37,35,33,31,29,27,25,23,21,19,17,15,13,7,0,232,
+243,242,241,240,239,204,176,171,139,132,122,114,107,98,91,88,87,76,61,37,35,
+  33,31,29,27,25,23,21,19,17,15,13,7,0,233,
+243,242,241,240,239,204,176,171,153,139,132,122,114,107,105,103,98,91,88,87,
+  76,61,37,35,33,31,29,27,25,23,21,19,17,15,13,7,0,232,
+243,242,241,240,239,204,176,171,153,139,132,122,114,107,98,91,88,87,76,61,
+  37,35,31,29,27,25,23,21,19,17,15,13,7,0,236,
+105,0,
+243,242,241,240,239,229,204,176,171,153,139,132,122,114,108,107,105,103,98,
+  91,88,87,76,61,37,35,33,31,29,27,25,23,21,19,17,15,13,7,0,99,101,218,
+  219,220,227,
+229,209,208,206,205,176,108,105,103,98,46,37,29,27,13,7,0,3,4,5,99,227,
+243,242,241,240,239,229,226,204,176,171,153,139,132,122,114,108,107,105,103,
+  98,91,88,87,61,37,35,33,31,27,25,23,21,19,17,15,13,7,0,3,4,8,9,99,100,
+  101,102,104,227,
+243,242,241,240,239,226,204,176,171,153,139,132,122,114,107,91,88,87,61,37,
+  35,33,31,27,25,23,21,19,17,15,13,7,0,55,75,210,222,
+241,240,239,229,153,132,125,124,122,114,108,105,103,98,35,33,25,23,21,19,17,
+  15,0,3,4,8,9,99,100,101,102,104,227,
+241,240,239,229,205,153,132,125,124,122,114,108,105,103,98,37,35,33,29,25,
+  23,21,19,17,15,13,0,3,4,8,9,99,100,101,102,104,227,
+243,242,241,240,239,204,176,173,171,169,168,167,166,165,164,163,162,161,160,
+  159,139,132,122,114,107,98,91,88,87,76,61,37,35,33,31,29,27,25,23,21,19,
+  17,15,13,7,0,142,143,144,145,152,154,155,156,157,170,172,
+241,240,239,153,132,125,124,122,114,35,33,25,23,21,19,17,15,0,14,16,18,20,
+  22,24,34,60,64,65,70,72,74,93,112,113,116,118,120,133,134,135,136,137,
+  138,140,146,150,151,
+241,240,239,205,153,132,125,124,122,114,37,35,33,29,25,23,21,19,17,15,13,0,
+  12,14,16,18,20,22,24,34,60,64,65,67,68,69,70,72,74,93,112,113,116,118,
+  120,133,134,135,136,137,138,140,146,150,151,
+209,208,206,205,204,176,108,105,103,46,37,29,27,13,7,0,
+241,240,239,229,132,125,124,122,114,108,105,103,98,35,33,25,23,21,0,3,4,8,9,
+  99,100,101,102,104,227,
+241,240,239,229,132,125,124,122,114,108,105,103,98,35,33,25,23,21,0,3,4,8,9,
+  99,100,101,102,104,227,
+241,240,125,124,122,0,119,121,126,
+243,241,240,239,204,176,171,153,139,132,122,114,91,88,87,76,61,37,35,33,31,
+  29,27,25,23,21,19,17,15,13,7,0,
+243,242,241,240,239,204,176,173,171,169,168,167,166,165,164,163,162,161,160,
+  159,153,139,132,122,114,107,98,91,88,87,76,61,37,35,31,29,27,25,23,21,
+  19,17,15,13,7,0,117,142,143,144,145,170,172,
+241,240,239,229,132,125,124,122,114,108,105,103,98,35,33,25,23,21,0,3,4,8,9,
+  99,100,101,102,104,227,
+241,240,239,132,125,124,122,114,35,33,25,23,21,0,20,22,24,34,60,93,112,113,
+  116,118,120,135,137,138,140,146,
+209,208,207,206,205,204,176,147,139,108,105,103,46,37,31,29,27,25,23,13,11,
+  7,0,
+241,240,239,132,125,124,122,114,35,33,25,23,21,0,20,22,24,34,60,93,112,113,
+  116,118,120,138,140,146,
+139,0,
+207,204,108,105,103,46,25,23,11,0,10,22,24,
+209,208,207,206,205,204,176,108,105,103,46,37,29,27,25,23,13,11,7,0,10,22,
+  24,
+241,240,239,153,132,125,124,122,114,35,33,25,23,21,19,17,15,0,14,16,18,20,
+  22,24,34,60,72,93,112,113,116,118,120,133,134,135,136,137,138,140,146,
+  150,151,
+209,208,206,205,176,108,105,103,46,37,29,27,13,7,0,73,
+108,105,103,46,37,13,7,0,6,12,68,
+243,242,241,240,239,226,204,176,171,153,139,132,122,114,107,91,88,87,61,37,
+  35,33,31,27,25,23,21,19,17,15,13,7,0,55,75,210,222,
+37,0,36,51,
+241,240,239,229,153,132,125,124,122,114,108,105,103,98,35,33,25,23,21,19,17,
+  15,0,3,4,8,9,99,100,101,102,104,227,
+241,240,239,153,132,125,124,122,114,35,33,25,23,21,19,17,15,0,14,16,18,20,
+  22,24,34,60,70,71,72,74,93,112,113,116,118,120,133,134,135,136,137,138,
+  140,146,150,151,
+37,0,36,51,
+229,98,0,3,99,227,
+239,132,0,60,93,
+239,229,132,98,0,3,4,5,99,227,
+239,229,132,108,105,103,98,91,87,31,27,21,7,0,3,4,5,99,227,
+239,132,0,60,93,
+91,21,0,20,80,84,85,89,90,92,
+91,21,0,20,85,89,90,92,
+87,7,0,
+229,98,0,3,4,99,227,
+229,98,0,3,4,99,227,
+229,98,0,3,4,99,227,
+229,98,0,3,4,99,187,227,
+229,98,0,3,4,99,227,
+108,105,103,29,7,0,6,100,101,102,104,194,202,
+108,105,103,29,7,0,6,100,101,102,104,194,202,
+229,98,0,3,4,99,187,227,
+229,98,0,3,4,99,187,227,
+229,98,0,3,4,99,187,227,
+229,98,0,3,4,99,187,227,
+229,98,0,3,4,99,187,227,
+229,98,0,3,4,99,187,227,
+229,108,105,103,98,0,3,4,8,99,100,101,102,104,227,
+239,132,0,60,93,
+241,240,239,229,132,122,98,13,0,3,4,5,99,227,
+239,132,0,60,93,
+108,105,103,27,13,0,12,
+108,105,103,27,0,39,40,101,104,
+153,0,
+33,0,
+105,103,0,104,
+243,242,241,240,239,229,204,176,171,153,139,132,122,114,108,107,105,103,98,
+  91,88,87,76,61,37,35,33,31,29,27,25,23,21,19,17,15,13,7,0,216,
+243,242,241,240,239,226,204,176,171,153,139,132,122,114,107,91,88,87,61,37,
+  35,33,31,27,25,23,21,19,15,13,7,0,218,219,223,224,
+76,0,
+240,122,0,
+241,240,132,122,0,127,131,
+240,122,0,
+240,122,0,
+241,132,0,
+241,240,132,122,0,
+243,242,239,204,176,173,171,169,168,167,166,165,164,163,162,161,160,159,153,
+  139,114,107,98,91,88,87,76,61,37,35,33,31,29,27,25,23,21,19,17,15,13,7,
+  0,142,143,144,145,157,170,172,
+209,208,206,205,37,29,27,13,7,0,6,12,68,
+209,206,37,27,0,26,36,66,
+208,37,0,36,66,
+37,0,36,66,
+205,29,0,28,
+229,209,208,206,205,176,108,105,103,98,46,37,29,27,13,7,0,3,4,5,99,227,
+241,240,132,122,0,127,131,
+240,229,209,208,207,206,205,204,176,147,139,122,108,105,103,98,46,37,31,29,
+  27,25,23,13,11,7,0,123,
+241,240,122,0,
+229,209,208,207,206,205,204,176,147,139,108,105,103,98,46,37,31,29,27,25,23,
+  13,11,7,0,3,4,5,99,227,
+229,209,208,207,206,205,204,176,147,139,108,105,103,98,46,37,31,29,27,25,23,
+  13,11,7,0,3,4,5,99,227,
+33,23,0,32,
+31,25,23,0,22,24,30,
+241,240,229,125,124,122,114,108,105,103,98,25,23,0,3,4,8,9,99,100,101,102,
+  104,227,
+241,240,239,229,132,125,124,122,114,108,105,103,98,35,33,25,23,21,0,3,4,8,9,
+  99,100,101,102,104,227,
+229,209,208,206,205,176,108,105,103,98,46,37,29,27,13,7,0,3,4,5,99,227,
+229,209,208,206,205,176,108,105,103,98,46,37,29,27,13,7,0,3,4,5,99,227,
+229,209,208,206,205,176,108,105,103,98,46,37,29,27,13,7,0,3,4,5,99,227,
+241,240,239,132,125,124,122,114,35,33,25,23,21,0,20,22,24,34,60,93,112,113,
+  116,118,120,137,138,140,146,
+241,240,239,132,125,124,122,114,35,33,25,23,21,0,20,22,24,34,60,93,112,113,
+  116,118,120,137,138,140,146,
+209,208,206,205,176,108,105,103,46,37,29,27,13,7,0,73,
+239,229,132,108,105,103,98,0,3,4,8,9,99,100,101,102,104,227,
+76,0,
+239,132,0,60,93,
+31,0,30,
+239,229,132,98,81,0,3,4,5,99,227,
+229,108,105,103,98,91,87,31,27,21,7,0,3,4,5,99,227,
+239,229,198,132,98,0,3,99,227,
+229,200,98,0,3,99,227,
+229,198,98,0,3,99,227,
+229,98,17,0,3,16,99,227,
+241,240,239,229,153,132,125,124,122,114,98,35,33,25,23,21,19,17,0,3,16,18,
+  20,22,24,34,60,93,99,112,113,116,118,120,133,135,136,137,138,140,146,
+  150,151,227,
+29,0,28,
+239,132,0,60,93,148,
+241,240,239,132,125,124,122,114,35,33,29,25,23,21,0,20,22,24,34,60,93,112,
+  113,116,118,120,135,137,138,140,146,
+17,0,16,
+241,240,239,229,132,122,108,105,103,98,17,0,3,99,100,101,102,104,227,
+13,0,12,
+241,240,239,229,132,122,98,0,3,99,227,
+241,240,239,153,132,125,124,122,81,25,23,0,22,24,60,62,77,93,113,118,120,
+  150,151,
+239,229,199,197,196,195,192,191,190,189,188,186,185,132,108,107,105,103,98,
+  97,35,27,0,3,34,60,93,96,99,101,104,106,149,182,183,184,193,227,
+105,0,
+243,242,241,240,239,229,204,176,171,153,139,132,122,114,108,107,105,103,98,
+  91,88,87,76,61,37,35,33,31,29,27,25,23,21,19,17,15,13,7,0,99,101,218,
+  219,220,227,
+153,0,
+33,0,
+243,242,241,240,239,229,226,204,176,171,153,139,132,122,114,107,98,91,88,87,
+  76,61,37,35,33,31,27,25,23,21,19,15,13,7,0,3,99,218,219,224,227,
+229,209,208,206,205,176,108,105,103,98,46,37,29,27,13,7,0,3,4,5,99,227,
+243,242,241,240,239,204,176,173,171,169,168,167,166,165,164,163,162,161,160,
+  159,153,139,132,122,114,107,98,91,88,87,76,61,37,35,33,31,29,27,25,23,
+  21,19,17,15,13,7,0,131,
+229,209,208,206,205,204,176,108,105,103,98,46,37,29,27,13,7,0,3,4,5,99,227,
+229,209,208,206,205,176,108,105,103,98,46,37,29,27,13,7,0,3,4,5,99,227,
+229,209,208,206,205,176,108,105,103,98,46,37,29,27,13,7,0,3,4,5,99,227,
+241,240,239,153,132,125,124,122,114,35,33,25,23,21,19,17,15,0,14,16,18,20,
+  22,24,34,60,65,70,72,74,93,112,113,116,118,120,133,134,135,136,137,138,
+  140,146,150,151,
+229,209,208,206,205,176,108,105,103,98,46,37,29,27,13,7,0,3,4,5,99,227,
+229,209,208,206,205,176,108,105,103,98,46,37,29,27,13,7,0,3,4,5,99,227,
+241,240,229,209,208,207,206,205,204,176,147,139,132,122,108,105,103,98,46,
+  37,31,29,27,25,23,13,11,7,0,131,
+240,229,209,208,207,206,205,204,176,147,139,122,108,105,103,98,46,37,31,29,
+  27,25,23,13,11,7,0,
+243,242,241,240,239,204,176,173,171,169,168,167,166,165,164,163,162,161,160,
+  159,153,139,132,122,114,107,98,91,88,87,76,61,37,35,31,29,27,25,23,21,
+  19,17,15,13,7,0,117,142,143,144,145,170,172,
+229,209,208,207,206,205,204,176,139,108,105,103,98,46,37,31,29,27,25,23,13,
+  11,7,0,3,4,5,99,227,
+229,209,208,207,206,205,204,176,139,108,105,103,98,87,46,37,31,29,27,25,23,
+  13,11,7,0,3,4,5,99,227,
+241,240,125,124,122,114,25,23,0,22,24,112,113,118,120,
+241,240,239,132,125,124,122,114,35,33,25,23,21,0,20,22,24,34,60,93,112,113,
+  116,118,120,138,140,146,
+209,208,207,206,205,204,176,139,108,105,103,46,37,31,29,27,25,23,13,11,7,0,
+209,208,207,206,205,204,176,139,108,105,103,46,37,31,29,27,25,23,13,11,7,0,
+239,132,0,177,178,
+229,209,208,206,205,108,105,103,98,46,37,29,27,0,3,4,5,99,227,
+229,98,0,3,4,99,227,
+229,98,0,3,4,99,227,
+229,98,0,3,4,99,187,227,
+241,240,239,153,132,125,124,122,114,35,33,25,23,21,19,17,0,16,18,20,22,24,
+  34,60,93,112,113,116,118,120,133,135,136,137,138,140,146,150,151,203,
+108,105,103,29,13,7,0,12,
+108,105,103,29,25,23,7,0,22,24,
+239,132,0,60,93,148,
+153,0,150,151,
+33,0,32,
+241,240,239,229,209,208,206,205,132,122,108,105,103,98,46,37,29,27,13,7,0,3,
+  4,5,99,227,
+229,98,17,0,3,16,99,227,
+239,229,132,98,0,3,99,201,227,
+108,105,103,29,7,0,6,100,101,102,104,194,202,
+241,240,125,124,122,114,33,25,23,0,22,24,112,113,116,118,120,
+241,240,239,132,125,124,122,114,35,33,25,23,21,0,20,22,24,34,60,93,112,113,
+  116,118,120,135,137,138,140,146,
+241,240,239,229,132,122,98,0,3,4,99,227,
+241,240,239,153,132,125,124,122,114,35,33,29,25,23,21,19,17,0,16,18,20,22,
+  24,34,60,93,112,113,116,118,120,133,135,136,137,138,140,146,150,151,
+243,242,241,240,239,204,176,173,171,169,168,167,166,165,164,163,162,161,160,
+  159,153,139,132,122,114,107,98,91,88,87,76,61,37,35,31,29,27,25,23,21,
+  19,17,15,13,7,0,117,142,143,144,145,170,172,
+108,105,103,29,25,23,7,0,22,24,
+239,229,132,98,0,3,99,201,227,
+33,0,32,
+241,240,239,132,122,108,105,103,27,0,
+
+};
+
+
+static unsigned const char ag_astt[4209] = {
+  5,1,5,8,8,8,1,5,5,5,5,7,1,1,1,0,1,1,3,3,3,3,3,1,3,3,3,3,3,3,3,3,3,3,3,3,3,
+  3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,7,2,1,1,9,5,3,3,1,8,8,1,8,1,5,8,8,8,
+  7,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,5,5,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
+  1,1,1,1,7,1,3,3,7,8,1,7,1,5,1,5,5,5,5,5,5,5,5,5,5,5,5,1,9,8,1,9,5,5,5,5,5,
+  5,5,7,3,3,1,1,3,1,2,2,1,8,1,1,1,7,1,1,1,1,1,1,1,1,1,1,1,1,2,1,1,1,9,9,9,9,
+  9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,5,3,7,8,1,7,1,
+  3,7,5,5,5,1,5,5,5,5,5,1,8,1,1,5,5,5,5,5,5,5,7,1,1,3,3,1,3,1,3,1,1,5,5,5,5,
+  5,5,5,5,5,5,5,5,5,5,5,5,8,1,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,7,1,1,1,
+  2,10,10,10,1,5,5,5,5,5,5,5,5,10,10,5,5,5,1,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,
+  5,7,1,1,3,1,1,3,7,2,2,1,7,1,1,1,1,5,1,5,5,5,5,5,5,5,5,5,5,5,5,8,8,8,1,5,5,
+  5,7,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,4,1,1,
+  1,1,1,1,1,1,7,1,1,1,1,1,1,1,4,4,4,1,4,1,4,4,7,1,2,2,7,1,2,1,1,4,4,4,4,1,4,
+  7,1,4,4,4,4,1,7,1,3,1,8,1,7,1,1,1,1,8,1,7,1,1,1,2,2,1,5,1,1,1,7,1,3,3,3,1,
+  1,1,1,1,1,1,1,2,1,1,1,3,7,3,7,1,7,8,1,7,3,1,5,5,5,5,5,1,5,5,5,5,5,5,5,5,5,
+  5,5,5,1,5,8,1,9,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,7,3,3,3,1,3,1,1,3,7,
+  5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,8,1,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,
+  7,1,3,2,2,2,1,2,2,9,5,3,3,1,4,4,4,4,7,1,5,5,5,8,1,5,1,5,5,8,5,7,1,1,1,1,7,
+  8,8,8,8,8,8,8,8,8,8,8,8,8,1,8,1,8,8,5,7,1,1,1,1,1,7,3,1,1,1,1,1,1,1,1,5,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,7,1,1,3,1,1,1,1,1,1,1,1,1,
+  1,1,1,1,1,1,1,1,1,1,1,1,1,5,1,1,1,1,1,1,1,1,1,1,1,7,1,1,3,3,7,3,7,8,1,7,1,
+  8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,5,8,8,8,8,8,8,8,8,
+  8,7,1,1,7,3,5,5,5,5,5,1,5,5,5,5,5,5,5,5,5,5,5,1,5,8,1,1,5,5,5,5,5,5,5,5,5,
+  5,5,5,5,5,5,5,5,5,7,1,1,2,2,1,2,1,2,1,1,5,5,2,2,2,5,5,5,1,1,1,1,1,1,1,1,1,
+  7,1,1,1,1,2,2,1,2,1,1,1,2,1,2,2,1,2,1,1,1,1,1,1,1,5,5,5,1,5,5,5,7,1,1,2,1,
+  1,4,4,4,1,4,4,4,7,4,4,4,4,1,4,7,1,5,5,5,1,5,5,5,5,5,5,1,8,1,1,5,5,5,5,5,5,
+  5,5,5,7,1,1,3,3,1,3,1,3,1,1,2,2,7,2,1,1,5,5,5,1,5,5,5,5,5,5,5,5,5,1,5,5,5,
+  5,5,5,5,5,5,5,5,7,1,1,3,1,1,5,5,2,2,2,5,5,5,1,4,4,4,4,4,1,1,1,1,1,1,1,1,1,
+  7,1,1,1,1,1,2,2,1,1,2,2,1,2,1,1,1,1,1,2,1,2,1,2,1,1,1,1,1,1,1,1,4,1,4,1,9,
+  8,1,9,4,4,4,4,7,3,3,1,1,3,1,4,1,4,1,9,8,1,9,4,1,4,4,4,1,7,1,3,1,2,1,1,3,1,
+  1,3,1,1,8,1,4,7,1,1,1,1,8,1,4,7,1,1,1,1,1,5,1,1,1,1,8,1,8,1,7,1,1,1,1,1,4,
+  4,4,4,7,1,1,1,7,2,2,1,2,1,1,1,5,1,5,1,5,7,1,1,2,1,1,2,2,1,7,1,1,1,1,5,5,5,
+  5,5,5,5,5,5,7,5,1,5,1,8,1,1,7,1,1,2,2,1,2,1,2,1,1,2,1,1,1,1,1,1,1,1,1,1,1,
+  2,1,1,5,7,1,1,1,1,1,1,3,1,1,1,1,1,5,5,5,5,5,5,5,5,1,5,5,5,5,5,5,7,1,1,3,1,
+  1,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,
+  7,3,9,9,9,9,9,9,9,1,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,5,3,
+  3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,7,
+  3,9,9,9,9,9,9,9,1,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,5,3,3,
+  7,9,9,9,9,9,1,9,9,9,1,9,9,9,9,1,9,9,9,9,9,9,9,9,9,9,9,1,9,4,9,9,9,9,9,1,9,
+  9,9,7,3,1,1,1,3,1,1,5,5,5,5,5,5,5,5,1,5,5,5,5,5,5,7,1,1,3,1,1,5,5,5,5,5,1,
+  5,5,5,5,5,5,5,5,5,1,5,8,1,1,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,7,1,1,2,2,1,
+  2,1,2,1,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1,4,4,4,
+  7,2,1,1,1,5,5,5,1,5,5,5,5,5,5,1,8,1,1,5,5,5,5,5,5,5,5,7,1,1,3,3,1,3,1,3,1,
+  1,5,5,5,1,5,5,5,5,5,5,5,1,8,1,1,5,5,5,5,5,5,5,5,5,5,5,7,1,1,3,3,1,3,1,3,1,
+  1,2,2,2,2,2,2,2,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,7,2,2,2,2,1,1,1,1,2,1,1,5,5,2,2,2,5,5,5,1,1,1,1,1,1,1,1,
+  1,7,1,1,1,1,2,2,1,2,1,2,1,1,1,1,1,1,2,1,2,1,2,1,1,1,1,1,1,1,1,5,5,2,4,2,2,
+  5,5,5,1,4,1,1,4,1,1,1,1,1,1,1,7,1,1,1,1,1,2,2,1,2,1,2,1,2,1,1,1,1,1,1,1,2,
+  1,2,1,2,1,1,1,1,1,1,1,1,4,4,4,4,1,4,4,4,4,4,4,4,4,4,4,7,5,5,5,1,5,5,5,5,5,
+  1,8,1,1,5,5,5,5,5,7,1,1,3,3,1,3,1,3,1,1,5,5,5,1,5,5,5,5,5,1,8,1,1,5,5,5,5,
+  5,7,1,1,3,3,1,3,1,3,1,1,2,2,1,1,1,7,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,7,2,2,2,2,2,2,2,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,7,1,1,1,1,1,1,1,5,5,5,1,5,
+  5,5,5,5,1,8,1,1,5,5,5,5,5,7,1,1,3,3,1,3,1,3,1,1,5,5,2,2,5,5,5,1,1,1,1,1,1,
+  7,1,2,2,1,2,1,1,1,2,1,2,1,1,1,1,1,4,4,4,4,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,
+  4,4,7,5,5,2,2,5,5,5,1,1,1,1,1,1,7,1,2,2,1,2,1,1,1,2,1,2,2,2,2,1,5,1,1,4,4,
+  4,4,1,1,1,7,2,1,1,4,4,1,4,4,1,4,4,4,4,4,4,4,4,1,1,4,1,4,7,2,1,1,5,5,2,2,2,
+  5,5,5,1,1,1,1,1,1,1,1,1,7,1,1,1,1,2,2,1,2,1,1,1,1,2,1,2,1,2,1,1,1,1,1,1,1,
+  1,4,4,4,4,1,4,4,4,4,4,4,4,4,4,7,2,4,4,4,4,4,1,1,7,3,1,2,4,4,4,4,4,4,4,4,4,
+  4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1,4,4,4,7,2,1,1,1,1,5,1,3,5,5,5,1,5,
+  5,5,5,5,5,1,8,1,1,5,5,5,5,5,5,5,5,7,1,1,3,3,1,3,1,3,1,1,5,5,2,2,2,5,5,5,1,
+  1,1,1,1,1,1,1,1,7,1,1,1,1,2,2,1,2,1,2,1,1,1,1,1,2,1,2,1,2,1,1,1,1,1,1,1,1,
+  1,5,1,3,1,9,5,3,3,1,2,2,7,2,1,8,1,8,1,7,1,1,1,1,1,5,1,5,5,5,5,1,5,5,5,5,5,
+  5,7,1,1,2,1,1,2,2,5,2,1,1,1,7,2,1,1,1,1,1,1,1,1,5,2,2,1,1,2,1,1,7,1,1,7,1,
+  1,1,1,1,1,7,1,1,1,1,1,1,7,1,1,1,1,1,1,7,1,1,1,2,1,1,1,7,1,1,1,1,1,8,1,8,1,
+  7,1,1,1,1,1,3,1,1,8,1,8,1,7,1,1,1,1,1,3,1,1,1,7,1,1,1,2,1,1,1,7,1,1,1,2,1,
+  1,1,7,1,1,1,2,1,1,1,7,1,1,1,2,1,1,1,7,1,1,1,2,1,1,1,7,1,1,1,2,1,1,1,8,1,1,
+  7,1,1,1,1,1,1,1,1,1,2,2,7,2,1,10,10,10,1,10,10,1,8,7,1,1,1,1,1,2,2,7,2,1,4,
+  4,4,4,1,7,1,1,8,1,5,7,1,3,1,1,3,7,3,7,8,1,7,1,8,8,8,8,8,8,8,8,8,8,8,8,8,8,
+  8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,7,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,7,1,1,1,1,1,7,2,2,7,2,2,2,2,7,1,2,
+  2,2,5,2,2,5,2,2,5,10,10,10,10,5,2,2,2,2,2,1,1,2,2,2,2,2,2,2,2,2,2,2,1,2,2,
+  2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,7,2,2,2,2,2,1,1,4,4,4,4,4,4,4,1,
+  1,7,3,1,2,1,1,1,1,7,2,1,3,1,1,5,1,3,1,5,1,3,1,1,7,2,1,5,5,5,5,5,5,5,5,1,5,
+  5,5,5,5,5,7,1,1,2,1,1,2,2,2,2,7,1,2,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,
+  4,4,4,4,4,4,4,7,1,10,10,10,5,1,5,5,5,5,5,5,5,5,5,5,5,5,1,5,5,5,5,5,5,5,5,5,
+  5,7,1,1,2,1,1,1,5,5,5,5,5,5,5,5,5,5,5,5,1,5,5,5,5,5,5,5,5,5,5,7,1,1,2,1,1,
+  1,1,7,2,1,1,1,7,1,1,2,8,8,1,8,8,8,8,1,8,1,1,8,8,7,1,1,1,1,1,1,1,1,1,1,8,8,
+  8,1,8,8,8,8,8,1,8,1,1,8,8,8,8,8,7,1,1,1,1,1,1,1,1,1,1,1,5,5,5,5,5,5,5,5,1,
+  5,5,5,5,5,5,7,1,1,3,1,1,1,5,5,5,5,5,5,5,5,1,5,5,5,5,5,5,7,1,1,2,1,1,1,5,5,
+  5,5,5,5,5,5,1,5,5,5,5,5,5,7,1,1,2,1,1,5,5,2,2,5,5,5,1,1,1,1,1,1,7,1,2,2,1,
+  2,1,1,1,2,1,2,1,1,1,1,5,5,2,2,5,5,5,1,1,1,1,1,1,7,1,2,2,1,2,1,1,1,2,1,2,1,
+  1,1,1,4,4,4,4,1,4,4,4,4,4,4,4,4,4,7,2,8,1,8,1,8,1,1,7,1,1,1,1,1,1,1,1,1,1,
+  1,7,2,2,7,2,1,1,7,2,5,1,5,1,5,7,1,1,2,1,1,1,5,5,5,1,5,5,5,5,5,5,7,1,1,2,1,
+  1,4,1,1,4,9,7,3,3,1,1,1,9,7,3,3,1,1,1,9,7,3,3,1,1,9,1,7,3,1,3,1,5,5,2,1,2,
+  2,5,5,5,1,9,1,1,1,1,1,1,1,7,3,1,1,1,2,2,1,2,1,3,1,1,2,1,2,2,1,2,1,1,1,1,1,
+  1,1,1,7,3,2,2,5,1,1,3,5,5,2,2,5,5,5,1,1,1,5,1,1,1,7,1,2,2,1,2,1,1,1,2,1,2,
+  1,1,1,1,1,1,7,1,2,2,2,1,2,2,1,8,1,9,5,7,3,3,3,1,3,1,1,1,7,1,2,2,2,1,2,2,9,
+  5,3,3,1,5,5,2,2,2,5,5,5,1,1,1,7,2,2,1,2,1,1,2,1,2,2,1,2,1,1,1,1,1,1,1,1,1,
+  1,1,1,2,1,9,8,1,9,1,1,5,7,3,1,1,1,1,3,1,1,3,1,3,3,1,1,1,3,7,9,9,9,9,9,1,9,
+  9,9,1,9,9,9,9,1,9,9,9,9,9,9,9,9,9,9,9,1,9,3,9,9,9,9,9,1,9,9,9,7,3,1,1,1,3,
+  1,3,7,3,7,9,9,9,9,9,1,9,9,9,9,1,9,9,9,9,9,9,9,9,9,4,9,9,9,1,9,9,9,9,9,9,9,
+  9,9,7,3,3,1,1,3,1,1,5,5,5,5,5,5,5,5,1,5,5,5,5,5,5,7,1,1,2,1,1,4,4,2,2,4,4,
+  4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,2,2,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,
+  4,4,4,7,2,1,5,5,5,5,5,5,5,5,5,1,5,5,5,5,5,5,7,1,1,3,1,1,1,5,5,5,5,5,5,5,5,
+  1,5,5,5,5,5,5,7,1,1,2,1,1,1,5,5,5,5,5,5,5,5,1,5,5,5,5,5,5,7,1,1,2,1,1,5,5,
+  2,2,2,5,5,5,1,1,1,1,1,1,1,1,1,7,1,1,1,1,2,2,1,2,2,1,1,1,1,1,1,2,1,2,1,2,1,
+  1,1,1,1,1,1,1,1,5,5,5,5,5,5,5,5,1,5,5,5,5,5,5,7,1,1,2,1,1,1,5,5,5,5,5,5,5,
+  5,1,5,5,5,5,5,5,7,1,1,2,1,1,2,2,4,4,4,4,4,4,4,4,4,4,2,2,4,4,4,4,4,4,4,4,4,
+  4,4,4,4,4,7,2,10,4,4,4,4,4,4,4,4,4,4,10,4,4,4,4,4,4,4,4,4,4,4,4,4,4,7,2,2,
+  2,2,2,2,2,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,7,1,1,1,1,1,1,1,1,5,5,5,5,5,5,5,5,5,5,5,1,5,5,5,5,5,5,5,5,5,5,
+  7,1,1,3,1,1,1,5,5,5,5,5,5,5,5,5,5,5,1,5,5,5,5,5,5,5,5,5,5,5,7,1,1,3,1,1,5,
+  5,5,5,5,1,1,1,7,2,2,2,2,1,2,5,5,2,2,5,5,5,1,1,1,1,1,1,7,1,2,2,1,2,1,1,1,2,
+  1,2,2,2,2,4,4,4,4,4,4,4,1,4,4,4,4,4,4,4,4,4,4,4,4,4,7,4,4,4,4,4,4,4,1,4,4,
+  4,4,4,4,4,4,4,4,4,4,4,7,2,2,7,2,1,1,5,5,5,5,5,5,5,1,5,5,5,5,7,1,1,2,1,1,1,
+  1,7,1,1,1,1,1,1,7,1,1,1,1,1,1,7,1,1,1,2,1,5,5,2,2,2,5,5,5,1,1,1,1,1,1,1,1,
+  7,1,1,1,2,2,1,2,1,1,1,2,1,2,2,1,2,1,1,1,1,1,1,1,4,4,4,4,1,4,7,1,4,4,4,4,1,
+  1,4,7,1,1,2,2,7,1,1,3,2,7,2,1,1,7,2,10,10,10,1,5,5,5,5,10,10,5,5,5,1,5,5,5,
+  5,5,5,7,1,1,3,1,1,1,9,1,7,3,1,3,1,2,1,2,9,7,3,3,1,1,1,8,1,8,1,7,1,1,1,1,1,
+  3,1,5,5,5,5,5,1,1,1,1,7,2,2,2,2,2,1,2,5,5,2,2,5,5,5,1,1,1,1,1,1,7,1,2,2,1,
+  2,1,1,1,2,1,2,1,1,1,1,1,9,9,9,1,9,9,1,7,1,1,1,1,5,5,2,2,2,5,5,5,1,1,1,5,1,
+  1,1,1,1,7,1,1,1,2,2,1,2,1,1,1,2,1,2,2,1,2,1,1,1,1,1,1,2,2,2,2,2,2,2,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,7,1,
+  1,1,1,1,1,1,4,4,4,4,1,1,4,7,1,1,2,1,2,9,7,3,3,1,1,1,7,2,9,9,9,9,9,4,4,4,4,
+  7
+};
+
+
+static const unsigned short ag_pstt[] = {
+3,1,3,3,3,3,2,3,3,3,3,0,2,2,3,0,2,1,
+301,301,301,301,301,1,299,301,301,301,301,301,301,301,301,301,301,301,301,
+  301,301,301,301,301,301,301,301,301,301,301,301,301,301,301,301,301,301,
+  301,1,302,1,
+1,2,4,2,2,1,
+8,8,4,5,5,23,8,8,8,3,7,8,6,5,
+9,9,9,9,9,9,9,9,9,9,9,9,9,9,123,123,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,
+  4,9,125,
+118,5,
+10,10,6,10,
+24,1,24,24,24,24,24,24,24,24,24,24,24,24,4,120,12,12,119,24,24,24,24,24,24,
+  24,7,119,119,11,12,119,1,
+96,96,16,27,13,18,14,8,17,26,26,27,25,24,23,24,24,24,22,21,48,20,15,19,
+122,122,122,122,122,122,122,122,122,122,122,122,122,122,122,122,122,122,122,
+  122,122,122,122,122,122,122,122,122,122,122,122,122,122,122,124,
+117,10,
+28,28,11,28,
+115,12,
+6,6,6,1,6,6,6,6,6,4,29,29,31,6,6,6,6,6,6,6,13,31,31,14,14,31,14,30,14,29,1,
+272,272,272,272,272,272,272,272,272,272,272,272,272,272,272,272,32,32,272,
+  272,272,272,272,272,272,272,272,272,272,272,272,272,272,272,272,272,272,
+  14,32,33,33,274,
+97,97,97,1,3,3,3,3,3,3,3,3,97,97,3,3,3,34,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,
+  15,34,34,102,34,1,
+53,16,
+96,96,35,17,36,37,36,15,
+3,1,3,3,3,3,3,3,3,3,3,3,3,3,38,38,38,2,3,3,3,18,2,2,38,2,39,1,
+45,45,45,45,45,1,45,45,45,40,45,45,45,45,4,45,45,45,45,45,45,45,45,45,41,45,
+  275,45,45,45,45,45,45,45,45,19,45,44,46,45,43,42,1,
+50,50,50,49,50,47,50,50,20,48,
+96,96,21,51,48,50,15,
+46,46,46,46,52,46,22,53,
+36,36,36,36,54,23,55,37,
+4,5,5,24,56,6,5,
+4,5,5,25,57,6,5,
+96,96,16,27,13,18,14,26,17,26,30,30,59,58,23,58,58,58,22,21,48,20,15,19,
+31,27,
+116,28,
+60,29,
+29,29,30,108,29,
+105,105,105,105,105,1,105,105,105,105,105,105,105,105,105,105,105,105,4,105,
+  29,29,2,105,105,105,105,105,105,105,105,105,105,105,105,105,105,105,105,
+  105,105,105,31,2,2,106,30,106,29,1,
+269,32,
+273,273,273,273,273,273,273,273,273,273,273,273,273,273,273,273,32,32,273,
+  273,273,273,273,273,273,273,273,273,273,273,273,273,273,273,273,273,273,
+  33,32,271,
+98,98,98,1,98,98,2,4,2,2,1,
+79,79,79,79,35,61,
+73,73,73,63,64,73,62,73,73,63,73,36,66,63,65,
+67,37,
+68,68,68,68,68,68,68,68,68,68,68,68,68,4,5,5,68,68,23,38,7,68,6,5,
+69,39,217,
+71,71,71,71,71,71,71,70,308,71,71,71,71,71,71,71,71,71,71,71,71,71,71,71,71,
+  71,71,71,71,71,71,71,71,71,40,71,71,310,
+73,73,73,73,73,73,73,72,73,73,73,73,73,73,73,73,73,73,73,73,73,73,316,73,73,
+  73,73,73,73,73,73,73,73,73,41,73,73,318,
+281,42,
+280,43,
+74,74,44,74,
+75,75,75,75,75,75,75,75,75,75,75,75,75,75,75,75,75,75,75,75,75,75,75,75,75,
+  75,75,75,282,75,75,75,75,75,75,75,75,75,45,75,
+76,46,268,
+6,6,6,6,6,1,6,6,6,6,6,6,6,6,6,6,6,4,6,29,29,31,6,6,6,6,6,6,6,6,6,6,6,6,6,6,
+  6,6,6,6,47,31,31,10,10,31,10,30,10,29,1,
+130,130,96,182,96,130,130,130,88,90,89,85,86,13,79,80,77,48,78,83,82,91,133,
+  132,93,166,15,92,92,165,87,132,172,95,171,94,94,94,94,84,81,
+1,3,3,3,2,3,3,3,49,2,2,51,2,1,
+50,50,50,49,50,50,50,50,
+47,47,47,47,52,47,51,53,
+6,6,6,1,6,6,6,6,6,6,4,29,29,31,6,6,6,6,6,6,6,6,6,52,31,31,8,8,31,8,30,8,29,
+  1,
+96,96,53,49,50,15,
+3,3,3,1,3,3,3,3,3,3,3,3,3,2,3,3,3,3,3,3,3,3,3,3,3,54,2,2,5,2,1,
+130,130,96,182,96,130,130,130,88,70,70,70,70,70,90,89,85,86,13,79,80,77,47,
+  55,100,78,83,82,91,133,132,93,101,166,62,99,63,98,97,15,92,92,165,87,
+  132,98,148,96,98,94,94,94,94,84,81,
+33,1,33,4,120,12,12,119,33,33,33,33,56,119,119,11,12,119,1,
+32,1,32,4,120,12,12,119,32,102,32,32,32,54,57,55,119,103,38,104,104,119,11,
+  12,119,1,
+4,5,5,35,58,56,6,5,
+4,5,5,34,59,57,6,5,
+1,105,112,105,105,105,1,
+106,1,106,2,61,2,2,106,2,1,
+81,81,81,81,62,107,
+108,13,63,89,77,111,77,110,109,111,
+3,1,3,2,3,64,2,2,87,2,1,
+96,96,35,65,36,112,36,15,
+74,74,74,76,74,74,74,76,74,66,
+6,1,6,4,29,29,31,67,31,31,52,52,31,52,30,52,29,1,
+96,114,115,116,117,120,121,122,123,124,125,113,96,126,90,218,68,129,130,15,
+  128,118,131,220,131,131,127,119,
+1,3,3,3,3,3,3,3,3,2,3,3,3,3,3,3,69,2,2,17,2,1,
+305,305,305,305,305,305,305,305,305,305,305,305,305,305,305,305,305,305,305,
+  305,305,305,305,305,305,305,305,305,305,305,305,305,305,305,305,305,70,
+  305,
+307,307,307,307,307,307,307,70,307,307,307,307,307,307,307,307,307,307,307,
+  307,307,307,307,307,307,307,307,307,307,307,307,307,307,309,307,
+313,313,313,313,313,313,313,313,313,313,313,313,313,313,313,313,313,313,313,
+  313,313,313,313,313,313,313,313,313,313,313,313,313,313,313,313,313,72,
+  313,
+315,315,315,315,315,315,315,72,315,315,315,315,315,315,315,315,315,315,315,
+  315,315,315,315,315,315,315,315,315,315,315,315,315,315,317,315,
+279,74,
+283,283,283,283,283,1,283,283,283,40,283,283,283,283,4,283,283,283,283,283,
+  283,283,283,283,283,283,41,283,276,283,283,283,283,283,135,283,283,283,
+  75,283,134,133,132,283,1,
+1,3,3,3,3,3,3,3,3,2,3,3,3,3,3,3,76,2,2,18,2,1,
+6,6,6,6,6,1,6,6,6,6,6,6,6,6,6,4,6,29,29,31,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,
+  6,77,31,31,11,11,31,11,30,11,29,1,
+290,290,290,290,290,290,290,290,290,290,290,290,290,290,290,290,290,290,290,
+  290,290,290,290,290,290,290,290,290,14,290,290,290,78,266,137,19,136,
+6,6,6,1,6,6,6,6,6,6,4,29,29,31,6,6,6,6,6,6,6,6,79,31,31,13,13,31,13,30,13,
+  29,1,
+6,6,6,1,6,6,6,6,6,6,6,4,29,29,31,6,6,6,6,6,6,6,6,6,6,6,80,31,31,12,12,31,12,
+  30,12,29,1,
+203,203,204,204,203,203,203,139,138,196,195,194,193,192,191,190,189,188,187,
+  186,203,204,204,203,203,203,203,203,203,203,203,203,203,203,203,203,203,
+  203,203,203,203,203,203,203,203,81,203,208,185,210,144,143,142,144,203,
+  141,140,
+130,130,96,182,96,130,130,130,88,90,89,85,86,13,79,80,77,82,78,83,82,91,133,
+  132,93,166,146,54,145,98,97,15,92,92,165,87,132,98,148,96,98,94,94,94,
+  94,84,81,
+130,130,96,70,182,96,130,130,130,88,70,90,89,70,85,86,13,79,80,77,47,83,100,
+  78,83,82,91,133,132,93,166,147,54,148,57,149,145,98,97,15,92,92,165,87,
+  132,98,148,96,98,94,94,94,94,84,81,
+255,255,255,255,150,255,255,255,255,255,255,255,255,255,255,84,
+6,6,6,1,6,6,6,6,6,4,29,29,31,6,6,6,6,6,85,31,31,16,16,31,16,30,16,29,1,
+6,6,6,1,6,6,6,6,6,4,29,29,31,6,6,6,6,6,86,31,31,15,15,31,15,30,15,29,1,
+139,139,151,151,152,87,154,153,151,
+155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155,
+  155,155,155,155,155,155,155,155,155,155,155,155,88,
+158,158,158,158,158,158,158,139,138,196,195,194,193,192,191,190,189,188,187,
+  186,158,158,158,158,158,158,158,158,158,158,158,158,158,158,158,158,158,
+  158,158,158,158,158,158,158,158,89,156,156,156,156,156,141,140,
+6,6,6,1,6,6,6,6,6,4,29,29,31,6,6,6,6,6,90,31,31,21,21,31,21,30,21,29,1,
+130,130,96,96,130,130,130,88,90,89,85,86,13,91,91,133,132,93,166,15,92,92,
+  165,87,132,157,94,94,94,94,
+164,164,164,164,164,164,164,158,164,164,164,164,164,164,164,164,164,164,164,
+  164,164,164,92,
+130,130,96,96,130,130,130,88,90,89,85,86,13,93,91,133,132,93,166,15,92,92,
+  165,87,132,157,157,157,
+159,151,
+161,162,170,170,170,170,85,86,160,95,263,163,164,
+149,149,161,149,149,162,149,149,149,149,149,149,149,149,85,86,149,160,149,
+  96,263,163,164,
+130,130,96,182,96,130,130,130,88,90,89,85,86,13,79,80,77,97,78,83,82,91,133,
+  132,93,166,165,15,92,92,165,87,132,165,148,96,165,94,94,94,94,84,81,
+212,212,212,212,166,212,212,212,212,212,212,212,212,212,98,67,
+70,70,70,70,70,47,52,99,69,100,66,
+290,290,290,290,290,290,290,290,290,290,290,290,290,290,290,290,290,290,290,
+  290,290,290,290,290,290,290,290,290,14,290,290,290,100,71,167,19,136,
+102,42,103,64,
+6,6,6,1,6,6,6,6,6,6,4,29,29,31,6,6,6,6,6,6,6,6,102,31,31,22,22,31,22,30,22,
+  29,1,
+130,130,96,182,96,130,130,130,88,90,89,85,86,13,79,80,77,103,78,83,82,91,
+  133,132,93,166,99,65,98,97,15,92,92,165,87,132,98,148,96,98,94,94,94,94,
+  84,81,
+102,41,103,40,
+1,2,113,2,2,1,
+96,96,106,80,15,
+168,1,168,2,107,2,2,168,2,1,
+3,1,3,3,3,3,2,3,3,3,3,3,3,108,2,2,91,2,1,
+96,96,92,93,15,
+108,13,110,89,169,111,169,110,109,111,
+108,13,83,89,85,110,109,95,
+171,170,112,
+1,172,113,172,172,172,1,
+1,173,114,173,173,173,1,
+1,174,115,174,174,174,1,
+1,175,116,175,175,175,241,1,
+1,176,117,176,176,176,1,
+4,29,29,177,52,118,178,177,30,177,29,239,177,
+4,29,29,177,52,119,179,177,30,177,29,238,177,
+1,175,120,175,175,175,237,1,
+1,175,121,175,175,175,236,1,
+1,175,122,175,175,175,235,1,
+1,175,123,175,175,175,234,1,
+1,175,124,175,175,175,233,1,
+1,175,125,175,175,175,232,1,
+1,4,29,29,181,126,181,181,180,181,180,30,180,29,1,
+96,96,127,230,15,
+100,100,100,1,100,100,183,182,128,183,183,182,183,1,
+96,96,129,224,15,
+223,223,223,223,47,130,184,
+4,5,5,23,131,185,219,6,5,
+289,132,
+288,133,
+186,186,134,186,
+187,187,187,187,187,187,187,187,187,187,187,187,187,187,187,187,187,187,187,
+  187,187,187,187,187,187,187,187,187,187,187,187,187,187,187,187,187,187,
+  187,135,187,
+190,190,190,190,190,190,190,190,190,40,190,190,190,190,190,190,190,190,190,
+  190,190,41,190,190,190,190,190,190,190,190,190,136,189,188,190,190,
+191,137,
+197,197,138,
+145,145,146,145,139,192,143,
+199,199,201,
+198,198,200,
+207,207,180,
+206,206,206,206,179,
+205,205,205,205,205,139,138,196,195,194,193,192,191,190,189,188,187,186,193,
+  205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,
+  205,205,205,205,205,144,205,209,185,211,205,141,140,
+70,70,70,70,70,70,70,47,52,145,69,100,61,
+194,195,102,69,146,259,196,55,
+197,102,60,196,55,
+102,59,196,58,
+198,76,149,257,
+1,3,3,3,3,3,3,3,3,2,3,3,3,3,3,3,150,2,2,256,2,1,
+145,145,146,145,151,199,143,
+141,141,141,141,141,141,141,141,141,141,141,141,141,141,141,141,141,141,141,
+  141,141,141,141,141,141,141,152,200,
+140,140,140,134,
+1,3,3,3,3,3,3,3,3,3,3,3,3,2,3,3,3,3,3,3,3,3,3,3,154,2,2,129,2,1,
+1,3,3,3,3,3,3,3,3,3,3,3,3,2,3,3,3,3,3,3,3,3,3,3,155,2,2,127,2,1,
+202,201,156,128,
+203,85,86,157,163,164,167,
+204,204,1,204,204,204,204,4,29,29,31,204,204,158,31,31,204,204,31,204,30,
+  204,29,1,
+205,205,205,1,205,205,205,205,205,4,29,29,31,205,205,205,205,205,159,31,31,
+  205,205,31,205,30,205,29,1,
+1,3,3,3,3,3,3,3,3,2,3,3,3,3,3,3,160,2,2,9,2,1,
+1,3,3,3,3,3,3,3,3,2,3,3,3,3,3,3,161,2,2,262,2,1,
+1,3,3,3,3,3,3,3,3,2,3,3,3,3,3,3,162,2,2,261,2,1,
+130,130,96,96,130,130,130,88,90,89,85,86,13,163,91,133,132,93,166,15,92,92,
+  165,87,132,206,206,206,206,
+130,130,96,96,130,130,130,88,90,89,85,86,13,164,91,133,132,93,166,15,92,92,
+  165,87,132,207,207,207,207,
+212,212,212,212,166,212,212,212,212,212,212,212,212,212,165,68,
+208,1,208,4,29,29,31,166,31,31,208,208,31,208,30,208,29,1,
+209,167,
+96,96,168,82,15,
+203,169,90,
+3,1,3,2,3,170,2,2,88,2,1,
+1,3,3,3,2,3,3,3,3,3,3,171,2,2,86,2,1,
+231,1,210,231,2,172,2,2,1,
+1,211,2,173,2,2,1,
+1,212,2,174,2,2,1,
+1,2,80,175,2,213,2,1,
+130,130,96,1,182,96,130,130,130,88,2,90,89,85,86,13,79,80,176,2,83,82,91,
+  133,132,93,166,15,2,92,92,165,87,132,240,96,240,94,94,94,94,84,81,1,
+76,177,249,
+96,96,247,214,15,177,
+130,130,96,96,130,130,130,88,90,89,247,85,86,13,179,91,133,132,93,166,15,92,
+  92,165,87,132,215,94,94,94,94,
+80,180,216,
+99,99,99,1,99,99,4,29,29,2,105,181,2,2,106,30,106,29,1,
+47,182,217,
+101,101,101,1,101,101,2,4,2,2,1,
+130,130,96,182,96,130,130,130,35,85,86,184,133,132,36,225,36,15,228,87,132,
+  226,81,
+96,1,114,115,116,117,120,121,122,123,124,125,113,96,4,120,12,12,119,126,90,
+  24,185,119,129,130,15,128,119,11,12,119,118,222,222,127,119,1,
+287,186,
+283,283,283,283,283,1,283,283,283,40,283,283,283,283,4,283,283,283,283,283,
+  283,283,283,283,283,283,41,283,285,283,283,283,283,283,135,283,283,283,
+  187,283,134,133,132,283,1,
+298,188,
+297,189,
+293,293,293,293,293,1,293,293,293,293,40,293,293,293,293,293,294,293,293,
+  293,291,293,293,293,41,293,293,293,293,293,293,293,293,293,190,294,294,
+  189,188,293,1,
+1,3,3,3,3,3,3,3,3,2,3,3,3,3,3,3,191,2,2,267,2,1,
+202,202,145,145,202,202,202,202,202,202,202,202,202,202,202,202,202,202,202,
+  202,202,202,146,145,202,202,202,202,202,202,202,202,202,202,202,202,202,
+  202,202,202,202,202,202,202,202,202,192,144,
+1,3,3,3,3,3,3,3,3,3,2,3,3,3,3,3,3,193,2,2,178,2,1,
+1,3,3,3,3,3,3,3,3,2,3,3,3,3,3,3,194,2,2,265,2,1,
+1,3,3,3,3,3,3,3,3,2,3,3,3,3,3,3,195,2,2,260,2,1,
+130,130,96,182,96,130,130,130,88,90,89,85,86,13,79,80,77,196,78,83,82,91,
+  133,132,93,166,56,145,98,97,15,92,92,165,87,132,98,148,96,98,94,94,94,
+  94,84,81,
+1,3,3,3,3,3,3,3,3,2,3,3,3,3,3,3,197,2,2,264,2,1,
+1,3,3,3,3,3,3,3,3,2,3,3,3,3,3,3,198,2,2,258,2,1,
+145,145,138,138,138,138,138,138,138,138,138,138,146,145,138,138,138,138,138,
+  138,138,138,138,138,138,138,138,138,199,144,
+142,135,135,135,135,135,135,135,135,135,135,142,135,135,135,135,135,135,135,
+  135,135,135,135,135,135,135,200,
+158,158,158,158,158,158,158,139,138,196,195,194,193,192,191,190,189,188,187,
+  186,158,158,158,158,158,158,158,158,158,158,158,158,158,158,158,158,158,
+  158,158,158,158,158,158,158,158,201,218,218,218,218,218,141,140,
+1,3,3,3,3,3,3,3,3,3,3,3,2,3,3,3,3,3,3,3,3,3,3,202,2,2,20,2,1,
+1,3,3,3,3,3,3,3,3,3,3,3,2,3,3,3,3,3,3,3,3,3,3,3,203,2,2,19,2,1,
+130,130,130,130,130,88,85,86,204,133,132,169,169,87,132,
+130,130,96,96,130,130,130,88,90,89,85,86,13,205,91,133,132,93,166,15,92,92,
+  165,87,132,155,155,155,
+153,153,153,153,153,153,153,159,153,153,153,153,153,153,153,153,153,153,153,
+  153,153,206,
+152,152,152,152,152,152,152,159,152,152,152,152,152,152,152,152,152,152,152,
+  152,152,207,
+214,214,208,213,219,
+1,3,3,3,3,3,3,3,2,3,3,3,3,209,2,2,72,2,1,
+1,220,210,220,220,220,1,
+1,221,211,221,221,221,1,
+1,175,212,175,175,175,242,1,
+130,130,96,182,96,130,130,130,88,90,89,85,86,13,79,80,213,83,82,91,133,132,
+  93,166,15,92,92,165,87,132,253,96,253,94,94,94,94,84,81,222,
+173,173,173,173,47,173,214,223,
+251,251,251,251,85,86,251,215,163,164,
+96,96,216,214,15,176,
+182,217,227,81,
+202,218,168,
+215,215,215,1,3,3,3,3,215,215,3,3,3,2,3,3,3,3,3,3,219,2,2,216,2,1,
+1,2,80,220,2,224,2,1,
+244,1,244,2,221,2,2,225,1,
+4,29,29,177,52,222,226,177,30,177,29,252,177,
+130,130,130,130,130,88,227,85,86,223,133,132,174,174,175,87,132,
+130,130,96,96,130,130,130,88,90,89,85,86,13,224,91,133,132,93,166,15,92,92,
+  165,87,132,228,94,94,94,94,
+245,245,245,1,245,245,229,225,229,229,229,1,
+130,130,96,182,96,130,130,130,88,90,89,247,85,86,13,79,80,226,83,82,91,133,
+  132,93,166,15,92,92,165,87,132,254,96,254,94,94,94,94,84,81,
+158,158,158,158,158,158,158,139,138,196,195,194,193,192,191,190,189,188,187,
+  186,158,158,158,158,158,158,158,158,158,158,158,158,158,158,158,158,158,
+  158,158,158,158,158,158,158,158,227,230,230,230,230,230,141,140,
+250,250,250,250,85,86,250,228,163,164,
+244,1,244,2,229,2,2,231,1,
+202,230,128,
+245,245,245,245,245,243,243,243,243,231,
+
+};
+
+
+static const unsigned short ag_sbt[] = {
+     0,  18,  59,  65,  79, 118, 120, 124, 157, 181, 216, 218, 222, 224,
+   255, 297, 338, 340, 348, 376, 419, 429, 436, 444, 452, 459, 466, 490,
+   492, 494, 496, 501, 551, 553, 593, 604, 610, 625, 627, 651, 654, 692,
+   730, 732, 734, 738, 778, 781, 832, 873, 887, 895, 903, 937, 943, 974,
+  1029,1048,1074,1082,1090,1097,1107,1113,1123,1134,1142,1152,1170,1198,
+  1220,1258,1293,1331,1366,1368,1413,1435,1483,1520,1553,1590,1647,1694,
+  1749,1765,1794,1823,1832,1864,1917,1946,1976,1999,2027,2029,2042,2065,
+  2108,2124,2135,2172,2176,2209,2255,2259,2265,2270,2280,2299,2304,2314,
+  2322,2325,2332,2339,2346,2354,2361,2374,2387,2395,2403,2411,2419,2427,
+  2435,2450,2455,2469,2474,2481,2490,2492,2494,2498,2538,2574,2576,2579,
+  2586,2589,2592,2595,2600,2650,2663,2671,2676,2680,2684,2706,2713,2741,
+  2745,2775,2805,2809,2816,2840,2869,2891,2913,2935,2964,2993,3009,3027,
+  3029,3034,3037,3048,3065,3074,3081,3088,3096,3140,3143,3149,3180,3183,
+  3202,3205,3216,3239,3277,3279,3324,3326,3328,3369,3391,3439,3462,3484,
+  3506,3552,3574,3596,3626,3653,3706,3735,3765,3780,3808,3830,3852,3857,
+  3876,3883,3890,3898,3938,3946,3956,3962,3966,3969,3995,4003,4012,4025,
+  4042,4072,4084,4124,4177,4187,4196,4199,4209
+};
+
+
+static const unsigned short ag_sbe[] = {
+    11,  56,  61,  74, 115, 119, 122, 150, 164, 215, 217, 220, 223, 244,
+   292, 332, 339, 343, 369, 411, 427, 431, 442, 449, 455, 462, 473, 491,
+   493, 495, 498, 543, 552, 590, 600, 608, 621, 626, 646, 652, 688, 726,
+   731, 733, 736, 776, 779, 821, 849, 881, 894, 901, 926, 939, 968, 997,
+  1041,1062,1078,1086,1092,1101,1111,1115,1128,1137,1151,1159,1186,1214,
+  1256,1291,1329,1364,1367,1406,1429,1472,1515,1542,1579,1635,1664,1715,
+  1764,1783,1812,1828,1863,1909,1935,1959,1998,2012,2028,2038,2061,2082,
+  2122,2131,2167,2173,2198,2226,2256,2261,2267,2274,2293,2301,2306,2316,
+  2324,2327,2334,2341,2348,2356,2366,2379,2389,2397,2405,2413,2421,2429,
+  2440,2452,2463,2471,2479,2485,2491,2493,2496,2536,2569,2575,2578,2583,
+  2588,2591,2594,2599,2642,2659,2667,2673,2677,2682,2700,2710,2739,2744,
+  2769,2799,2807,2812,2829,2858,2885,2907,2929,2948,2977,3007,3016,3028,
+  3031,3035,3042,3059,3070,3077,3084,3091,3114,3141,3145,3163,3181,3194,
+  3203,3212,3227,3261,3278,3317,3325,3327,3362,3385,3437,3456,3478,3500,
+  3523,3568,3590,3624,3652,3698,3729,3759,3773,3793,3829,3851,3854,3870,
+  3878,3885,3892,3914,3944,3953,3958,3963,3967,3989,3998,4007,4017,4034,
+  4055,4079,4101,4169,4184,4191,4197,4208,4209
+};
+
+
+static const unsigned char ag_fl[] = {
+  1,1,2,0,1,2,0,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,1,1,2,0,1,0,2,4,2,2,1,
+  1,1,2,3,1,2,3,2,1,1,1,1,2,1,3,1,3,4,2,1,2,2,1,2,1,1,2,1,1,2,2,2,2,3,2,
+  0,2,4,1,2,0,1,3,1,0,4,0,5,1,1,2,4,2,4,1,3,2,1,2,1,2,1,2,3,3,2,3,2,1,1,
+  1,2,1,2,1,0,1,2,3,1,2,3,3,2,2,2,1,2,0,1,2,1,3,3,3,0,1,1,1,1,2,1,1,2,1,
+  2,0,2,1,2,1,1,1,1,1,1,1,3,3,1,4,1,2,1,1,1,1,1,1,1,1,1,3,5,4,3,3,3,1,3,
+  3,4,3,4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,1,1,2,1,1,2,2,2,1,2,
+  1,2,0,3,1,2,2,3,0,2,3,1,3,1,2,3,3,4,3,1,2,2,2,2,2,2,2,2,2,2,3,2,4,7,1,
+  2,0,1,1,2,6,3,4,1,3,1,3,3,4,3,4,3,3,2,4,4,2,4,3,2,1,2,0,1,2,0,2,1,1,3,
+  2,2,0,2,1,3,1,3,2,2,0,2,1,2,2,1,1,2,2,2,1,2,2,1,1,2,1,2,0,1,2,1,1,2,1,
+  2,0,1,2,1
+};
+
+static const unsigned char ag_ptt[] = {
+    0,  4,  4,  5,  5,  1,  9,  9,  6, 10, 12, 14, 16, 18, 20, 22, 24, 26,
+   28, 30, 32, 34, 36, 40, 40, 42, 42, 44, 44, 45, 45, 38, 41, 41, 43, 43,
+   47, 47, 47, 52, 52, 47, 50, 48, 48, 48, 49, 49, 57, 57, 59, 59, 58, 58,
+   64, 64, 66, 67, 67, 69, 69, 65, 53, 53, 53, 51, 71, 70, 70, 74, 68, 68,
+   68, 62, 62, 79, 79, 62, 77, 82, 77, 83, 77, 80, 80, 80, 78, 86, 86, 89,
+   85, 90, 92, 92, 84, 84, 93, 93, 93, 96, 96, 96, 60,  3,  3,  8,  8,  8,
+  100,100,104,104,102,102,106,106,106, 39, 39, 39, 39,110,110,111,111,101,
+  112,112,116,113,120,120,118,118,119,119,126,126,119,121,121,123,123,127,
+  127,131,131, 72, 72,133,133,135,135,135,137,137,138,138,117,117,117,117,
+  117,140,140,140,140,140,146,146, 54, 54, 54,148,148,148,149,149,150,152,
+  152,152,151,157,157,157,142,142,142,142,142,142,142,142,142,142,142,170,
+  172,144,143,143,145,154,154,154,154,154,155,155,156,156, 73, 73,178,178,
+  177, 56,181,181,179,180,180,182,182,182,182,182,182,182,182,184,183,183,
+  183,183,183,183,183,183,183,183,183,183,201,201,202,202,202,194,193,193,
+  187,203,203,136,136,136,136,136,136,136,136,136,136,136,134,134, 55,212,
+  213,213,214,214,210,211,211,215,215,215,215,215,216,216,220,220,220,220,
+  220,220,222, 75,223,223,223,224,224,224,224, 99,227,227, 99,233,233,233,
+  234,234,235,235,219,236,236,236,237,237,238,238,218,232
+};
+
+static const unsigned char  *ag_valid(int ag_k) {
+  const unsigned char  *ag_tp = &ag_tstt[ag_sbt[(PCB).sn+1]];
+  while (*--ag_tp != (unsigned char) ag_k) if (*ag_tp == 0) return NULL;
+  return ag_tp;
+}
+
+int pgg_change_reduction(pgg_token_type ag_k) {
+  if (!ag_valid(ag_k)) return 0;
+  (PCB).reduction_token = ag_k;
+  return 1;
+}
+
+static void ag_default(const  int *ag_tp) {
+  (PCB).ag_dsn = (PCB).sn;
+  (PCB).ag_dtl = ag_tp;
+  while (!ag_valid((pgg_token_type) *ag_tp)) ag_tp++;
+  (PCB).reduction_token = (pgg_token_type) *ag_tp;
+}
+
+
+
+static void ag_ra(void)
+{
+  switch(ag_rpx[(PCB).ag_ap]) {
+    case 1: ag_rp_1(); break;
+    case 2: ag_rp_2(); break;
+    case 3: ag_rp_3(V(0,(int *))); break;
+    case 4: ag_rp_4(); break;
+    case 5: ag_rp_5(V(0,(int *))); break;
+    case 6: ag_rp_6(); break;
+    case 7: V(0,(int *)) = ag_rp_7(V(0,(int *))); break;
+    case 8: V(0,(int *)) = ag_rp_8(V(0,(int *)), V(2,(void *))); break;
+    case 9: V(0,(int *)) = ag_rp_9(); break;
+    case 10: V(0,(int *)) = ag_rp_10(V(0,(int *))); break;
+    case 11: ag_rp_11(V(0,(int *))); break;
+    case 12: ag_rp_12(V(2,(int *))); break;
+    case 13: V(0,(int *)) = ag_rp_13(); break;
+    case 14: V(0,(int *)) = ag_rp_14(); break;
+    case 15: V(0,(int *)) = ag_rp_15(); break;
+    case 16: ag_rp_16(V(0,(int *))); break;
+    case 17: ag_rp_17(V(1,(int *))); break;
+    case 18: ag_rp_18(V(0,(int *))); break;
+    case 19: V(0,(int *)) = ag_rp_19(V(1,(int *))); break;
+    case 20: ag_rp_20(V(0,(int *))); break;
+    case 21: ag_rp_21(V(0,(int *))); break;
+    case 22: ag_rp_22(V(1,(int *))); break;
+    case 23: V(0,(int *)) = ag_rp_23(V(1,(int *))); break;
+    case 24: ag_rp_24(V(0,(int *)), V(1,(int *))); break;
+    case 25: ag_rp_25(V(1,(int *)), V(2,(int *))); break;
+    case 26: V(0,(int *)) = ag_rp_26(); break;
+    case 27: V(0,(int *)) = ag_rp_27(); break;
+    case 28: V(0,(int *)) = ag_rp_28(); break;
+    case 29: ag_rp_29(); break;
+    case 30: ag_rp_30(); break;
+    case 31: ag_rp_31(); break;
+    case 32: ag_rp_32(V(-2,(void *))); break;
+    case 33: ag_rp_33(V(0,(void *))); break;
+    case 34: ag_rp_34(); break;
+    case 35: ag_rp_35(); break;
+    case 36: ag_rp_36(); break;
+    case 37: ag_rp_37(); break;
+    case 38: ag_rp_38(); break;
+    case 39: ag_rp_39(); break;
+    case 40: ag_rp_40(); break;
+    case 41: ag_rp_41(); break;
+    case 42: ag_rp_42(); break;
+    case 43: ag_rp_43(V(0,(int *))); break;
+    case 44: ag_rp_44(V(1,(int *))); break;
+    case 45: ag_rp_45(V(2,(int *))); break;
+    case 46: ag_rp_46(V(2,(int *))); break;
+    case 47: ag_rp_47(V(1,(int *))); break;
+    case 48: ag_rp_48(V(2,(int *))); break;
+    case 49: V(0,(int *)) = ag_rp_49(V(1,(int *))); break;
+    case 50: V(0,(int *)) = ag_rp_50(V(1,(int *))); break;
+    case 51: V(0,(int *)) = ag_rp_51(V(0,(int *)), V(1,(int *))); break;
+    case 52: V(0,(int *)) = ag_rp_52(); break;
+    case 53: V(0,(int *)) = ag_rp_53(); break;
+    case 54: V(0,(int *)) = ag_rp_54(V(1,(int *))); break;
+    case 55: V(0,(int *)) = ag_rp_55(V(1,(int *))); break;
+    case 56: V(0,(int *)) = ag_rp_56(V(0,(int *))); break;
+    case 57: V(0,(int *)) = ag_rp_57(V(0,(int *)), V(1,(int *))); break;
+    case 58: V(0,(int *)) = ag_rp_58(); break;
+    case 59: V(0,(int *)) = ag_rp_59(V(0,(int *)), V(1,(int *))); break;
+    case 60: V(0,(int *)) = ag_rp_60(V(0,(int *))); break;
+    case 61: V(0,(int *)) = ag_rp_61(V(0,(int *)), V(1,(int *))); break;
+    case 62: V(0,(int *)) = ag_rp_62(V(0,(int *))); break;
+    case 63: V(0,(int *)) = ag_rp_63(V(0,(int *))); break;
+    case 64: V(0,(int *)) = ag_rp_64(V(0,(int *))); break;
+    case 65: V(0,(int *)) = ag_rp_65(V(0,(CharSetExpression * *))); break;
+    case 66: V(0,(CharSetExpression * *)) = ag_rp_66(V(0,(CharSetExpression * *)), V(2,(CharSetExpression * *))); break;
+    case 67: V(0,(CharSetExpression * *)) = ag_rp_67(V(0,(CharSetExpression * *)), V(2,(CharSetExpression * *))); break;
+    case 68: V(0,(CharSetExpression * *)) = ag_rp_68(V(0,(CharSetExpression * *)), V(3,(CharSetExpression * *))); break;
+    case 69: V(0,(CharSetExpression * *)) = ag_rp_69(V(1,(CharSetExpression * *))); break;
+    case 70: V(0,(int *)) = ag_rp_70(V(0,(int *))); break;
+    case 71: V(0,(CharSetExpression * *)) = ag_rp_71(V(0,(int *))); break;
+    case 72: V(0,(CharSetExpression * *)) = ag_rp_72(V(0,(int *))); break;
+    case 73: V(0,(CharSetExpression * *)) = ag_rp_73(); break;
+    case 74: V(0,(CharSetExpression * *)) = ag_rp_74(V(1,(CharSetExpression * *))); break;
+    case 75: V(0,(CharSetExpression * *)) = ag_rp_75(V(1,(int *)), V(3,(int *))); break;
+    case 76: V(0,(CharSetExpression * *)) = ag_rp_76(V(0,(int *)), V(3,(int *))); break;
+    case 77: ag_rp_77(V(2,(CharSetExpression * *))); break;
+    case 78: ag_rp_78(V(2,(int *))); break;
+    case 79: ag_rp_79(V(2,(int *))); break;
+    case 80: ag_rp_80(); break;
+    case 81: ag_rp_81(V(2,(int *))); break;
+    case 82: ag_rp_82(V(2,(int *))); break;
+    case 83: ag_rp_83(); break;
+    case 84: V(0,(int *)) = ag_rp_84(V(0,(int *))); break;
+    case 85: V(0,(int *)) = ag_rp_85(); break;
+    case 86: V(0,(int *)) = ag_rp_86(); break;
+    case 87: V(0,(int *)) = ag_rp_87(); break;
+    case 88: V(0,(int *)) = ag_rp_88(); break;
+    case 89: V(0,(int *)) = ag_rp_89(); break;
+    case 90: V(0,(int *)) = ag_rp_90(); break;
+    case 91: V(0,(int *)) = ag_rp_91(); break;
+    case 92: V(0,(int *)) = ag_rp_92(); break;
+    case 93: V(0,(int *)) = ag_rp_93(); break;
+    case 94: V(0,(int *)) = ag_rp_94(); break;
+    case 95: V(0,(int *)) = ag_rp_95(); break;
+    case 96: V(0,(int *)) = ag_rp_96(V(1,(int *))); break;
+    case 97: V(0,(int *)) = ag_rp_97(V(0,(int *)), V(1,(int *))); break;
+    case 98: V(0,(int *)) = ag_rp_98(V(0,(int *)), V(1,(int *))); break;
+    case 99: V(0,(int *)) = ag_rp_99(V(1,(int *))); break;
+    case 100: ag_rp_100(V(0,(int *))); break;
+    case 101: ag_rp_101(V(0,(int *))); break;
+    case 102: ag_rp_102(V(1,(int *))); break;
+    case 103: ag_rp_103(V(1,(int *))); break;
+    case 104: ag_rp_104(V(1,(int *))); break;
+    case 105: ag_rp_105(V(0,(int *))); break;
+    case 106: ag_rp_106(V(1,(int *))); break;
+    case 107: ag_rp_107(V(0,(int *))); break;
+    case 108: ag_rp_108(V(1,(int *))); break;
+    case 109: V(0,(int *)) = ag_rp_109(); break;
+    case 110: V(0,(int *)) = ag_rp_110(); break;
+    case 111: ag_rp_111(V(0,(int *))); break;
+    case 112: ag_rp_112(V(1,(int *))); break;
+    case 113: ag_rp_113(); break;
+    case 114: ag_rp_114(); break;
+    case 115: ag_rp_115(); break;
+    case 116: ag_rp_116(); break;
+    case 117: ag_rp_117(); break;
+    case 118: ag_rp_118(V(2,(int *))); break;
+    case 119: ag_rp_119(); break;
+    case 120: ag_rp_120(); break;
+    case 121: ag_rp_121(); break;
+    case 122: ag_rp_122(); break;
+    case 123: ag_rp_123(); break;
+    case 124: ag_rp_124(); break;
+    case 125: ag_rp_125(); break;
+    case 126: ag_rp_126(); break;
+    case 127: ag_rp_127(V(2,(int *))); break;
+    case 128: ag_rp_128(); break;
+    case 129: ag_rp_129(); break;
+    case 130: ag_rp_130(V(4,(int *)), V(6,(int *))); break;
+    case 131: V(0,(int *)) = ag_rp_131(); break;
+    case 132: ag_rp_132(V(5,(CharSetExpression * *))); break;
+    case 133: ag_rp_133(V(2,(CharSetExpression * *))); break;
+    case 134: ag_rp_134(V(0,(int *))); break;
+    case 135: ag_rp_135(V(2,(int *))); break;
+    case 136: V(0,(int *)) = ag_rp_136(); break;
+    case 137: V(0,(int *)) = ag_rp_137(); break;
+    case 138: V(0,(int *)) = ag_rp_138(); break;
+    case 139: V(0,(int *)) = ag_rp_139(); break;
+    case 140: V(0,(int *)) = ag_rp_140(); break;
+    case 141: V(0,(int *)) = ag_rp_141(); break;
+    case 142: V(0,(int *)) = ag_rp_142(V(0,(CharSetExpression * *))); break;
+    case 143: V(0,(int *)) = ag_rp_143(V(0,(CharSetExpression * *))); break;
+    case 144: V(0,(int *)) = ag_rp_144(V(0,(CharSetExpression * *))); break;
+    case 145: V(0,(int *)) = ag_rp_145(); break;
+    case 146: V(0,(int *)) = ag_rp_146(); break;
+    case 147: V(0,(int *)) = ag_rp_147(); break;
+    case 148: V(0,(int *)) = ag_rp_148(); break;
+    case 149: ag_rp_149(); break;
+    case 150: ag_rp_150(); break;
+    case 151: ag_rp_151(); break;
+    case 152: ag_rp_152(); break;
+    case 153: ag_rp_153(); break;
+    case 154: ag_default(&ag_rtt[0]); ag_rp_154(); break;
+  }
+  (PCB).la_ptr = (PCB).pointer;
+}
+
+
+static const unsigned char ag_ctn[] = {
+    0,0, 99,1,  0,0,  0,0,101,1,  0,0,  0,0,  0,0,  0,0,  0,0,  0,0,  0,0,
+    0,0,  0,0,210,1, 60,1, 58,1, 58,1, 56,1, 55,1,  0,0, 49,1, 57,1, 47,1,
+    0,0,  0,0,  0,0,  0,0,  0,0,  0,0,100,1,  0,0,  0,0,  0,0,  0,0, 77,1,
+    0,0, 58,2,179,1, 56,2,219,1,218,1,215,1,215,1,215,1,  0,0, 55,2,  0,0,
+   54,2,  0,0,  0,0, 57,1,  0,0, 57,2, 50,1, 50,1,  0,0,  0,0,  0,0,  0,0,
+    0,0, 77,2, 77,2,  0,0, 86,1,  0,0,  0,0, 58,3,179,2,  0,0,  0,0,  0,0,
+    0,0,  0,0,215,2,  0,0,  0,0,134,1,134,1,136,1,  0,0,150,1,136,1,136,1,
+  136,1,  0,0,  0,0,113,1,112,1,  0,0,  0,0,  0,0,146,1,  0,0,  0,0,136,1,
+  136,1, 70,1, 70,1,  0,0, 68,1,  0,0,  0,0,  0,0,  0,0,  0,0, 77,3, 77,3,
+    0,0,  0,0,  0,0,  0,0,  0,0,182,1,183,1,183,1,183,1,183,1,183,1,183,1,
+  183,1,183,1,183,1,183,1,183,1,183,1,182,1,182,1,182,1,182,1,182,1,  0,0,
+    0,0,  0,0,  0,0,  0,0, 75,1,134,2,143,1,145,1,  0,0,143,1,152,1,152,1,
+  152,1, 65,1,  0,0, 69,1, 69,1,136,2,136,2,  0,0,  0,0,121,1,113,2,112,2,
+    0,0,  0,0,146,2,  0,0,  0,0,136,2,136,2,  0,0,  0,0, 70,2, 73,1, 68,2,
+   77,4,  0,0, 86,3,  0,0,  0,0,  0,0,  0,0,187,1,  0,0,  0,0,149,2,183,2,
+  149,2,  0,0,182,2,  0,0,182,2,  0,0,  0,0,  0,0,  0,0,  0,0,  0,0,134,3,
+  127,1,150,3,136,3,136,3,  0,0,136,3,136,3,127,1,123,1,146,3,  0,0,  0,0,
+  146,3,  0,0,  0,0,  0,0, 73,2, 68,3,183,3,183,3,183,3,187,2,148,1,  0,0,
+  149,3,182,3,146,4,  0,0,  0,0,  0,0,203,1,148,2,183,5,201,1,203,2,116,1,
+    0,0,  0,0,116,2,201,1
+};
+
+#ifndef MISSING_FORMAT
+#define MISSING_FORMAT "Missing %s"
+#endif
+#ifndef UNEXPECTED_FORMAT
+#define UNEXPECTED_FORMAT "Unexpected %s"
+#endif
+#ifndef UNNAMED_TOKEN
+#define UNNAMED_TOKEN "input"
+#endif
+
+
+static void ag_diagnose(void) {
+  int ag_snd = (PCB).sn;
+  int ag_k = ag_sbt[ag_snd];
+
+  if (*TOKEN_NAMES[ag_tstt[ag_k]] && ag_astt[ag_k + 1] == ag_action_8) {
+    sprintf((PCB).ag_msg, MISSING_FORMAT, TOKEN_NAMES[ag_tstt[ag_k]]);
+  }
+  else if (ag_astt[ag_sbe[(PCB).sn]] == ag_action_8
+          && (ag_k = (int) ag_sbe[(PCB).sn] + 1) == (int) ag_sbt[(PCB).sn+1] - 1
+          && *TOKEN_NAMES[ag_tstt[ag_k]]) {
+    sprintf((PCB).ag_msg, MISSING_FORMAT, TOKEN_NAMES[ag_tstt[ag_k]]);
+  }
+  else if ((PCB).token_number && *TOKEN_NAMES[(PCB).token_number]) {
+    sprintf((PCB).ag_msg, UNEXPECTED_FORMAT, TOKEN_NAMES[(PCB).token_number]);
+  }
+  else if (isprint(INPUT_CODE((*(PCB).pointer))) && INPUT_CODE((*(PCB).pointer)) != '\\') {
+    char buf[20];
+    sprintf(buf, "\'%c\'", (char) INPUT_CODE((*(PCB).pointer)));
+    sprintf((PCB).ag_msg, UNEXPECTED_FORMAT, buf);
+  }
+  else sprintf((PCB).ag_msg, UNEXPECTED_FORMAT, UNNAMED_TOKEN);
+  (PCB).error_message = (PCB).ag_msg;
+
+
+{
+  int ag_sx, ag_t;
+
+  ag_sx = (PCB).ssx;
+  (PCB).ss[ag_sx] = (PCB).sn;
+  do {
+    while (ag_sx && ag_ctn[2*(ag_snd = (PCB).ss[ag_sx])] == 0) ag_sx--;
+    if (ag_sx) {
+      ag_t = ag_ctn[2*ag_snd];
+      ag_sx -= ag_ctn[2*ag_snd +1];
+      ag_snd = (PCB).ss[ag_sx];
+    }
+    else {
+      ag_snd = 0;
+      ag_t = ag_ptt[0];
+    }
+  } while (ag_sx && *TOKEN_NAMES[ag_t]==0);
+  if (*TOKEN_NAMES[ag_t] == 0) ag_t = 0;
+  (PCB).error_frame_ssx = ag_sx;
+  (PCB).error_frame_token = (pgg_token_type) ag_t;
+}
+
+
+}
+static int ag_action_1_r_proc(void);
+static int ag_action_2_r_proc(void);
+static int ag_action_3_r_proc(void);
+static int ag_action_4_r_proc(void);
+static int ag_action_1_s_proc(void);
+static int ag_action_3_s_proc(void);
+static int ag_action_1_proc(void);
+static int ag_action_2_proc(void);
+static int ag_action_3_proc(void);
+static int ag_action_4_proc(void);
+static int ag_action_5_proc(void);
+static int ag_action_6_proc(void);
+static int ag_action_7_proc(void);
+static int ag_action_8_proc(void);
+static int ag_action_9_proc(void);
+static int ag_action_10_proc(void);
+static int ag_action_11_proc(void);
+static int ag_action_8_proc(void);
+
+
+static int (*const  ag_r_procs_scan[])(void) = {
+  ag_action_1_r_proc,
+  ag_action_2_r_proc,
+  ag_action_3_r_proc,
+  ag_action_4_r_proc
+};
+
+static int (*const  ag_s_procs_scan[])(void) = {
+  ag_action_1_s_proc,
+  ag_action_2_r_proc,
+  ag_action_3_s_proc,
+  ag_action_4_r_proc
+};
+
+static int (*const  ag_gt_procs_scan[])(void) = {
+  ag_action_1_proc,
+  ag_action_2_proc,
+  ag_action_3_proc,
+  ag_action_4_proc,
+  ag_action_5_proc,
+  ag_action_6_proc,
+  ag_action_7_proc,
+  ag_action_8_proc,
+  ag_action_9_proc,
+  ag_action_10_proc,
+  ag_action_11_proc,
+  ag_action_8_proc
+};
+
+
+static int ag_action_1_er_proc(void);
+static int ag_action_2_er_proc(void);
+static int ag_action_3_er_proc(void);
+static int ag_action_4_er_proc(void);
+
+static int (*const  ag_er_procs_scan[])(void) = {
+  ag_action_1_er_proc,
+  ag_action_2_er_proc,
+  ag_action_3_er_proc,
+  ag_action_4_er_proc
+};
+
+
+static void ag_error_resynch(void) {
+  int ag_k;
+  int ag_ssx = (PCB).ssx;
+
+  ag_diagnose();
+  SYNTAX_ERROR;
+  if ((PCB).exit_flag != AG_RUNNING_CODE) return;
+  while (1) {
+    ag_k = ag_sbt[(PCB).sn];
+    while (ag_tstt[ag_k] != 63 && ag_tstt[ag_k]) ag_k++;
+    if (ag_tstt[ag_k] || (PCB).ssx == 0) break;
+    (PCB).sn = (PCB).ss[--(PCB).ssx];
+  }
+  if (ag_tstt[ag_k] == 0) {
+    (PCB).sn = PCB.ss[(PCB).ssx = ag_ssx];
+    (PCB).exit_flag = AG_SYNTAX_ERROR_CODE;
+    return;
+  }
+  ag_k = ag_sbt[(PCB).sn];
+  while (ag_tstt[ag_k] != 63 && ag_tstt[ag_k]) ag_k++;
+  (PCB).ag_ap = ag_pstt[ag_k];
+  (ag_er_procs_scan[ag_astt[ag_k]])();
+  while (1) {
+    ag_k = ag_sbt[(PCB).sn];
+    while (ag_tstt[ag_k] != (unsigned char) (PCB).token_number && ag_tstt[ag_k])
+      ag_k++;
+    if (ag_tstt[ag_k] && ag_astt[ag_k] != ag_action_10) break;
+    if ((PCB).token_number == 46)
+       {(PCB).exit_flag = AG_SYNTAX_ERROR_CODE; return;}
+    {(PCB).la_ptr = (PCB).pointer + 1; ag_track();}
+    (PCB).token_number = (pgg_token_type) AG_TCV(INPUT_CODE(*(PCB).la_ptr));
+    (PCB).la_ptr++;
+    if (ag_key_index[(PCB).sn]) {
+      unsigned ag_k = ag_key_index[(PCB).sn];
+      int ag_ch = CONVERT_CASE(INPUT_CODE(*(PCB).pointer));
+      if (ag_ch <= 255) {
+        while (ag_key_ch[ag_k] < ag_ch) ag_k++;
+        if (ag_key_ch[ag_k] == ag_ch) ag_get_key_word(ag_k);
+      }
+    }
+  }
+  (PCB).la_ptr =  (PCB).pointer;
+}
+
+
+static int ag_action_10_proc(void) {
+  int ag_t = (PCB).token_number;
+  (PCB).btsx = 0, (PCB).drt = -1;
+  do {
+    ag_track();
+    (PCB).token_number = (pgg_token_type) AG_TCV(INPUT_CODE(*(PCB).la_ptr));
+    (PCB).la_ptr++;
+    if (ag_key_index[(PCB).sn]) {
+      unsigned ag_k = ag_key_index[(PCB).sn];
+      int ag_ch = CONVERT_CASE(INPUT_CODE(*(PCB).pointer));
+      if (ag_ch <= 255) {
+        while (ag_key_ch[ag_k] < ag_ch) ag_k++;
+        if (ag_key_ch[ag_k] == ag_ch) ag_get_key_word(ag_k);
+      }
+    }
+  } while ((PCB).token_number == (pgg_token_type) ag_t);
+  (PCB).la_ptr =  (PCB).pointer;
+  return 1;
+}
+
+static int ag_action_11_proc(void) {
+  int ag_t = (PCB).token_number;
+
+  (PCB).btsx = 0, (PCB).drt = -1;
+  do {
+    (*(int *) &(PCB).vs[(PCB).ssx]) = *(PCB).pointer;
+    (PCB).ssx--;
+    ag_track();
+    ag_ra();
+    if ((PCB).exit_flag != AG_RUNNING_CODE) return 0;
+    (PCB).ssx++;
+    (PCB).token_number = (pgg_token_type) AG_TCV(INPUT_CODE(*(PCB).la_ptr));
+    (PCB).la_ptr++;
+    if (ag_key_index[(PCB).sn]) {
+      unsigned ag_k = ag_key_index[(PCB).sn];
+      int ag_ch = CONVERT_CASE(INPUT_CODE(*(PCB).pointer));
+      if (ag_ch <= 255) {
+        while (ag_key_ch[ag_k] < ag_ch) ag_k++;
+        if (ag_key_ch[ag_k] == ag_ch) ag_get_key_word(ag_k);
+      }
+    }
+  }
+  while ((PCB).token_number == (pgg_token_type) ag_t);
+  (PCB).la_ptr =  (PCB).pointer;
+  return 1;
+}
+
+static int ag_action_3_r_proc(void) {
+  int ag_sd = ag_fl[(PCB).ag_ap] - 1;
+  if (ag_sd) (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd];
+  (PCB).btsx = 0, (PCB).drt = -1;
+  (PCB).reduction_token = (pgg_token_type) ag_ptt[(PCB).ag_ap];
+  ag_ra();
+  return (PCB).exit_flag == AG_RUNNING_CODE;
+}
+
+static int ag_action_3_s_proc(void) {
+  int ag_sd = ag_fl[(PCB).ag_ap] - 1;
+  if (ag_sd) (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd];
+  (PCB).btsx = 0, (PCB).drt = -1;
+  (PCB).reduction_token = (pgg_token_type) ag_ptt[(PCB).ag_ap];
+  ag_ra();
+  return (PCB).exit_flag == AG_RUNNING_CODE;
+}
+
+static int ag_action_4_r_proc(void) {
+  int ag_sd = ag_fl[(PCB).ag_ap] - 1;
+  if (ag_sd) (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd];
+  (PCB).reduction_token = (pgg_token_type) ag_ptt[(PCB).ag_ap];
+  return 1;
+}
+
+static int ag_action_2_proc(void) {
+  (PCB).btsx = 0, (PCB).drt = -1;
+  if ((PCB).ssx >= 128) {
+    (PCB).exit_flag = AG_STACK_ERROR_CODE;
+    PARSER_STACK_OVERFLOW;
+  }
+  (*(int *) &(PCB).vs[(PCB).ssx]) = *(PCB).pointer;
+  GET_CONTEXT;
+  (PCB).ss[(PCB).ssx] = (PCB).sn;
+  (PCB).ssx++;
+  (PCB).sn = (PCB).ag_ap;
+  ag_track();
+  return 0;
+}
+
+static int ag_action_9_proc(void) {
+  if ((PCB).drt == -1) {
+    (PCB).drt=(PCB).token_number;
+    (PCB).dssx=(PCB).ssx;
+    (PCB).dsn=(PCB).sn;
+  }
+  ag_prot();
+  (PCB).vs[(PCB).ssx] = ag_null_value;
+  GET_CONTEXT;
+  (PCB).ss[(PCB).ssx] = (PCB).sn;
+  (PCB).ssx++;
+  (PCB).sn = (PCB).ag_ap;
+  (PCB).la_ptr =  (PCB).pointer;
+  return (PCB).exit_flag == AG_RUNNING_CODE;
+}
+
+static int ag_action_2_r_proc(void) {
+  (PCB).ssx++;
+  (PCB).sn = (PCB).ag_ap;
+  return 0;
+}
+
+static int ag_action_7_proc(void) {
+  --(PCB).ssx;
+  (PCB).la_ptr =  (PCB).pointer;
+  (PCB).exit_flag = AG_SUCCESS_CODE;
+  return 0;
+}
+
+static int ag_action_1_proc(void) {
+  ag_track();
+  (PCB).exit_flag = AG_SUCCESS_CODE;
+  return 0;
+}
+
+static int ag_action_1_r_proc(void) {
+  (PCB).exit_flag = AG_SUCCESS_CODE;
+  return 0;
+}
+
+static int ag_action_1_s_proc(void) {
+  (PCB).exit_flag = AG_SUCCESS_CODE;
+  return 0;
+}
+
+static int ag_action_4_proc(void) {
+  int ag_sd = ag_fl[(PCB).ag_ap] - 1;
+  (PCB).reduction_token = (pgg_token_type) ag_ptt[(PCB).ag_ap];
+  (PCB).btsx = 0, (PCB).drt = -1;
+  (*(int *) &(PCB).vs[(PCB).ssx]) = *(PCB).pointer;
+  if (ag_sd) (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd];
+  else GET_CONTEXT;
+  (PCB).ss[(PCB).ssx] = (PCB).sn;
+  ag_track();
+  while ((PCB).exit_flag == AG_RUNNING_CODE) {
+    unsigned ag_t1 = ag_sbe[(PCB).sn] + 1;
+    unsigned ag_t2 = ag_sbt[(PCB).sn+1] - 1;
+    do {
+      unsigned ag_tx = (ag_t1 + ag_t2)/2;
+      if (ag_tstt[ag_tx] < (unsigned char)(PCB).reduction_token) ag_t1 = ag_tx + 1;
+      else ag_t2 = ag_tx;
+    } while (ag_t1 < ag_t2);
+    if (ag_tstt[ag_t1] != (PCB).reduction_token) {
+      (PCB).exit_flag = AG_REDUCTION_ERROR_CODE; 
+      REDUCTION_TOKEN_ERROR; break;}
+      (PCB).ag_ap = ag_pstt[ag_t1];
+    if ((ag_s_procs_scan[ag_astt[ag_t1]])() == 0) break;
+  }
+  return 0;
+}
+
+static int ag_action_3_proc(void) {
+  int ag_sd = ag_fl[(PCB).ag_ap] - 1;
+  (PCB).btsx = 0, (PCB).drt = -1;
+  (*(int *) &(PCB).vs[(PCB).ssx]) = *(PCB).pointer;
+  if (ag_sd) (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd];
+  else GET_CONTEXT;
+  (PCB).ss[(PCB).ssx] = (PCB).sn;
+  ag_track();
+  (PCB).reduction_token = (pgg_token_type) ag_ptt[(PCB).ag_ap];
+  ag_ra();
+  while ((PCB).exit_flag == AG_RUNNING_CODE) {
+    unsigned ag_t1 = ag_sbe[(PCB).sn] + 1;
+    unsigned ag_t2 = ag_sbt[(PCB).sn+1] - 1;
+    do {
+      unsigned ag_tx = (ag_t1 + ag_t2)/2;
+      if (ag_tstt[ag_tx] < (unsigned char)(PCB).reduction_token) ag_t1 = ag_tx + 1;
+      else ag_t2 = ag_tx;
+    } while (ag_t1 < ag_t2);
+    if (ag_tstt[ag_t1] != (PCB).reduction_token) {
+      (PCB).exit_flag = AG_REDUCTION_ERROR_CODE; 
+      REDUCTION_TOKEN_ERROR; break;}
+      (PCB).ag_ap = ag_pstt[ag_t1];
+    if ((ag_s_procs_scan[ag_astt[ag_t1]])() == 0) break;
+  }
+  return 0;
+}
+
+static int ag_action_8_proc(void) {
+  int ag_k = ag_sbt[(PCB).sn];
+  while (ag_tstt[ag_k] != 63 && ag_tstt[ag_k]) ag_k++;
+  if (ag_tstt[ag_k] == 0) ag_undo();
+  (PCB).la_ptr =  (PCB).pointer;
+  ag_error_resynch();
+  return (PCB).exit_flag == AG_RUNNING_CODE;
+}
+
+static int ag_action_5_proc(void) {
+  int ag_sd = ag_fl[(PCB).ag_ap];
+  (PCB).btsx = 0, (PCB).drt = -1;
+  if (ag_sd) (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd];
+  else {
+    GET_CONTEXT;
+    (PCB).ss[(PCB).ssx] = (PCB).sn;
+  }
+  (PCB).la_ptr =  (PCB).pointer;
+  (PCB).reduction_token = (pgg_token_type) ag_ptt[(PCB).ag_ap];
+  ag_ra();
+  while ((PCB).exit_flag == AG_RUNNING_CODE) {
+    unsigned ag_t1 = ag_sbe[(PCB).sn] + 1;
+    unsigned ag_t2 = ag_sbt[(PCB).sn+1] - 1;
+    do {
+      unsigned ag_tx = (ag_t1 + ag_t2)/2;
+      if (ag_tstt[ag_tx] < (unsigned char)(PCB).reduction_token) ag_t1 = ag_tx + 1;
+      else ag_t2 = ag_tx;
+    } while (ag_t1 < ag_t2);
+    if (ag_tstt[ag_t1] != (PCB).reduction_token) {
+      (PCB).exit_flag = AG_REDUCTION_ERROR_CODE; 
+      REDUCTION_TOKEN_ERROR; break;}
+      (PCB).ag_ap = ag_pstt[ag_t1];
+    if ((ag_r_procs_scan[ag_astt[ag_t1]])() == 0) break;
+  }
+  return (PCB).exit_flag == AG_RUNNING_CODE;
+}
+
+static int ag_action_6_proc(void) {
+  int ag_sd = ag_fl[(PCB).ag_ap];
+  (PCB).reduction_token = (pgg_token_type) ag_ptt[(PCB).ag_ap];
+  if ((PCB).drt == -1) {
+    (PCB).drt=(PCB).token_number;
+    (PCB).dssx=(PCB).ssx;
+    (PCB).dsn=(PCB).sn;
+  }
+  if (ag_sd) {
+    (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd];
+  }
+  else {
+    ag_prot();
+    (PCB).vs[(PCB).ssx] = ag_null_value;
+    GET_CONTEXT;
+    (PCB).ss[(PCB).ssx] = (PCB).sn;
+  }
+  (PCB).la_ptr =  (PCB).pointer;
+  while ((PCB).exit_flag == AG_RUNNING_CODE) {
+    unsigned ag_t1 = ag_sbe[(PCB).sn] + 1;
+    unsigned ag_t2 = ag_sbt[(PCB).sn+1] - 1;
+    do {
+      unsigned ag_tx = (ag_t1 + ag_t2)/2;
+      if (ag_tstt[ag_tx] < (unsigned char)(PCB).reduction_token) ag_t1 = ag_tx + 1;
+      else ag_t2 = ag_tx;
+    } while (ag_t1 < ag_t2);
+    if (ag_tstt[ag_t1] != (PCB).reduction_token) {
+      (PCB).exit_flag = AG_REDUCTION_ERROR_CODE; 
+      REDUCTION_TOKEN_ERROR; break;}
+      (PCB).ag_ap = ag_pstt[ag_t1];
+    if ((ag_r_procs_scan[ag_astt[ag_t1]])() == 0) break;
+  }
+  return (PCB).exit_flag == AG_RUNNING_CODE;
+}
+
+
+static int ag_action_2_er_proc(void) {
+  (PCB).btsx = 0, (PCB).drt = -1;
+  (*(int *) &(PCB).vs[(PCB).ssx]) = *(PCB).pointer;
+  (PCB).ssx++;
+  (PCB).sn = (PCB).ag_ap;
+  return 0;
+}
+
+static int ag_action_1_er_proc(void) {
+  (PCB).btsx = 0, (PCB).drt = -1;
+  (PCB).exit_flag = AG_SUCCESS_CODE;
+  return 0;
+}
+
+static int ag_action_4_er_proc(void) {
+  int ag_sd = ag_fl[(PCB).ag_ap] - 1;
+  (PCB).btsx = 0, (PCB).drt = -1;
+  (PCB).reduction_token = (pgg_token_type) ag_ptt[(PCB).ag_ap];
+  if (ag_sd) (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd];
+  else (PCB).ss[(PCB).ssx] = (PCB).sn;
+  while ((PCB).exit_flag == AG_RUNNING_CODE) {
+    unsigned ag_t1 = ag_sbe[(PCB).sn] + 1;
+    unsigned ag_t2 = ag_sbt[(PCB).sn+1] - 1;
+    do {
+      unsigned ag_tx = (ag_t1 + ag_t2)/2;
+      if (ag_tstt[ag_tx] < (unsigned char)(PCB).reduction_token) ag_t1 = ag_tx + 1;
+      else ag_t2 = ag_tx;
+    } while (ag_t1 < ag_t2);
+    if (ag_tstt[ag_t1] != (PCB).reduction_token) {
+      (PCB).exit_flag = AG_REDUCTION_ERROR_CODE; 
+      REDUCTION_TOKEN_ERROR; break;}
+      (PCB).ag_ap = ag_pstt[ag_t1];
+    if ((ag_s_procs_scan[ag_astt[ag_t1]])() == 0) break;
+  }
+  return 0;
+}
+
+static int ag_action_3_er_proc(void) {
+  int ag_sd = ag_fl[(PCB).ag_ap] - 1;
+  (PCB).btsx = 0, (PCB).drt = -1;
+  if (ag_sd) (PCB).sn = (PCB).ss[(PCB).ssx -= ag_sd];
+  else (PCB).ss[(PCB).ssx] = (PCB).sn;
+  (PCB).reduction_token = (pgg_token_type) ag_ptt[(PCB).ag_ap];
+  ag_ra();
+  while ((PCB).exit_flag == AG_RUNNING_CODE) {
+    unsigned ag_t1 = ag_sbe[(PCB).sn] + 1;
+    unsigned ag_t2 = ag_sbt[(PCB).sn+1] - 1;
+    do {
+      unsigned ag_tx = (ag_t1 + ag_t2)/2;
+      if (ag_tstt[ag_tx] < (unsigned char)(PCB).reduction_token) ag_t1 = ag_tx + 1;
+      else ag_t2 = ag_tx;
+    } while (ag_t1 < ag_t2);
+    if (ag_tstt[ag_t1] != (PCB).reduction_token) {
+      (PCB).exit_flag = AG_REDUCTION_ERROR_CODE; 
+      REDUCTION_TOKEN_ERROR; break;}
+      (PCB).ag_ap = ag_pstt[ag_t1];
+    if ((ag_s_procs_scan[ag_astt[ag_t1]])() == 0) break;
+  }
+  return 0;
+}
+
+
+void init_pgg(void) {
+  (PCB).la_ptr = (PCB).pointer;
+  (PCB).ss[0] = (PCB).sn = (PCB).ssx = 0;
+  (PCB).exit_flag = AG_RUNNING_CODE;
+  (PCB).line = FIRST_LINE;
+  (PCB).column = FIRST_COLUMN;
+  (PCB).btsx = 0, (PCB).drt = -1;
+}
+
+void pgg(void) {
+  init_pgg();
+  (PCB).exit_flag = AG_RUNNING_CODE;
+  while ((PCB).exit_flag == AG_RUNNING_CODE) {
+    unsigned ag_t1 = ag_sbt[(PCB).sn];
+    if (ag_tstt[ag_t1]) {
+      unsigned ag_t2 = ag_sbe[(PCB).sn] - 1;
+      (PCB).token_number = (pgg_token_type) AG_TCV(INPUT_CODE(*(PCB).la_ptr));
+      (PCB).la_ptr++;
+      if (ag_key_index[(PCB).sn]) {
+        unsigned ag_k = ag_key_index[(PCB).sn];
+        int ag_ch = CONVERT_CASE(INPUT_CODE(*(PCB).pointer));
+        if (ag_ch <= 255) {
+          while (ag_key_ch[ag_k] < ag_ch) ag_k++;
+          if (ag_key_ch[ag_k] == ag_ch) ag_get_key_word(ag_k);
+        }
+      }
+      do {
+        unsigned ag_tx = (ag_t1 + ag_t2)/2;
+        if (ag_tstt[ag_tx] > (unsigned char)(PCB).token_number)
+          ag_t1 = ag_tx + 1;
+        else ag_t2 = ag_tx;
+      } while (ag_t1 < ag_t2);
+      if (ag_tstt[ag_t1] != (unsigned char)(PCB).token_number)
+        ag_t1 = ag_sbe[(PCB).sn];
+    }
+    (PCB).ag_ap = ag_pstt[ag_t1];
+    (ag_gt_procs_scan[ag_astt[ag_t1]])();
+  }
+}
+
+