Changeset 10088

Timestamp:

2018-09-05T15:35:32+02:00 (6 years ago)

Author:

rblod

Message:

update conv

Location:

vendors/AGRIF/CMEMS_2020/LIB

Files:

• DiversListe.c (modified) (3 diffs)
• Makefile (modified) (4 diffs)
• SubLoopCreation.c (modified) (21 diffs)
• UtilAgrif.c (modified) (1 diff)
• UtilFortran.c (modified) (5 diffs)
• UtilListe.c (modified) (10 diffs)
• WorkWithlistdatavariable.c (modified) (5 diffs)
• WorkWithlistvarindoloop.c (modified) (16 diffs)
• WriteInFile.c (modified) (1 diff)
• Writedeclarations.c (modified) (25 diffs)
• decl.h (modified) (13 diffs)
• fortran.c (modified) (52 diffs)
• main.c (modified) (60 diffs)
• toamr.c (modified) (17 diffs)

vendors/AGRIF/CMEMS_2020/LIB/DiversListe.c

@@ -479 +479 @@
         strcpy(newvar->var->v_nomvar,name);
         strcpy(newvar->var->v_modulename,curmodulename);
+        if (strcasecmp(curmodulename,""))
+        {
+        newvar->var->v_module=1;
+        }
         strcpy(newvar->var->v_subroutinename,subroutinename);
         strcpy(newvar->var->v_commoninfile,cur_filename);
@@ -522 +526 @@
 
             Init_Variable(newvar->var);
-
             newvar->var->v_save = 1;
             strcpy(newvar->var->v_nomvar,parcours->var->v_nomvar);
+            strcpy(newvar->var->v_dimchar,parcours->var->v_dimchar);
             strcpy(newvar->var->v_modulename,curmodulename);
             strcpy(newvar->var->v_subroutinename,subroutinename);
@@ -531 +535 @@
 
             newvar->var->v_nbdim = parcours->var->v_nbdim;
+            strcpy(newvar->var->v_typevar,parcours->var->v_typevar);
+            strcpy(newvar->var->v_precision,parcours->var->v_precision);
             newvar->var->v_catvar = parcours->var->v_catvar;
             newvar->var->v_dimension = parcours->var->v_dimension;
             newvar->var->v_dimensiongiven=parcours->var->v_dimensiongiven;
+            newvar->var->v_allocatable = parcours->var->v_allocatable;
+            newvar->var->v_initialvalue = parcours->var->v_initialvalue;
+            newvar->var->v_initialvalue_array = parcours->var->v_initialvalue_array;
             newvar->suiv = List_Save_Var;
             List_Save_Var = newvar;

vendors/AGRIF/CMEMS_2020/LIB/Makefile

@@ -18 +18 @@
    @echo ===================================================
    @echo
-
+# Modif Laurent Debreu car Version de bison trop ancienne => Eviter l'appel a Bison
 #main.c: convert.y convert.lex
 #  @echo ===================================================
@@ -24 +24 @@
 #  @echo ===================================================
 #  $(MAKE) -f Makefile.lex main.c
-
+#
 #fortran.c: fortran.y fortran.lex
 #  @echo ===================================================
@@ -32 +32 @@
 
 conv: $(OBJS)
-   $(CC) $(CFLAGS) -g $(OBJS) -o ../$@
+   $(CC) $(CFLAGS) $(OBJS) -o ./$@
 
 %.o: %.c
-   $(CC) $(CFLAGS) -g -c $< -o $@
+   $(CC) $(CFLAGS) -c $< -o $@
 
 main.o : main.c
@@ -62 +62 @@
 
 clean:
-#  $(MAKE) -f Makefile.lex clean
+   $(MAKE) -f Makefile.lex clean
    $(RM) *.o conv
    
+clean-all: clean
+   $(MAKE) -f Makefile.lex clean-all

vendors/AGRIF/CMEMS_2020/LIB/SubLoopCreation.c

@@ -58 +58 @@
       if ( todebug == 1 ) printf("> enter in WriteBeginof_SubLoop : IsTabvarsUseInArgument_0() == 1\n");
       /* we should add the use agrif_uti l if it is necessary                 */
+      if (todebug == 1) fprintf(fortran_out,"\n      !DEBUG: Avant WriteHeadofSubroutineLoop\n");
       WriteHeadofSubroutineLoop();
+      if (todebug == 1) fprintf(fortran_out,"      !DEBUG: Apres WriteHeadofSubroutineLoop\n");
+      fflush(fortran_out);
+      if (todebug == 1) {
+      fprintf(fortran_out,"      !DEBUG: Avant WriteUsemoduleDeclaration\n");
+      }
+      
       WriteUsemoduleDeclaration(subroutinename);
       if ( ImplicitNoneInSubroutine() == 1 ) fprintf(fortran_out, "      implicit none\n");
       WriteIncludeDeclaration(fortran_out);
+      if (todebug == 1) fprintf(fortran_out,"      !DEBUG: Avant WriteIncludeDeclaration\n");
       /*                                                                      */
       /* We should write once the declaration of tables (extract              */
@@ -77 +85 @@
       AddUseAgrifUtil_0(fortran_out);
       WriteUsemoduleDeclaration(subroutinename);
+      if ( ImplicitNoneInSubroutine() == 1 ) fprintf(fortran_out, "      implicit none\n");
       WriteIncludeDeclaration(fortran_out);
-      if ( ImplicitNoneInSubroutine() == 1 ) fprintf(fortran_out, "      implicit none\n");
       WriteLocalParamDeclaration(fortran_out);
       WriteArgumentDeclaration_beforecall();
+      if (todebug == 1) fprintf(fortran_out,"      !DEBUG: Avant WriteFunctionDeclaration\n");
       if ( functiondeclarationisdone == 0 ) WriteFunctionDeclaration(fortran_out, 1);
 /*    writesub_loopdeclaration_scalar(List_SubroutineArgument_Var,fortran_out);
@@ -102 +111 @@
 /*                                                                            */
 /******************************************************************************/
-void WriteVariablelist_subloop(char *ligne)
+void WriteVariablelist_subloop(char **ligne, size_t *line_length)
 {
    listvar *parcours;
@@ -117 +126 @@
       if ( !strcasecmp(parcours->var->v_subroutinename,subroutinename) )
       {
-         if ( didvariableadded == 1 )   strcat(ligne,",");
-         strcat(ligne,parcours->var->v_nomvar);
+         if ( didvariableadded == 1 )   strcat(*ligne,",");
+         if ( (strlen(*ligne)+strlen(parcours->var->v_nomvar)+100) > *line_length )
+         {
+            *line_length += LONG_M;
+            *ligne = realloc( *ligne, *line_length*sizeof(char) );
+         }
+         strcat(*ligne,parcours->var->v_nomvar);
          didvariableadded = 1;
       }
@@ -128 +142 @@
       if ( !strcasecmp(parcours->var->v_subroutinename,subroutinename) )
       {
-         if ( didvariableadded == 1 )   strcat(ligne,",");
-         strcat(ligne,parcours->var->v_nomvar);
+         if ( didvariableadded == 1 )   strcat(*ligne,",");
+         if ( (strlen(*ligne)+strlen(parcours->var->v_nomvar)+100) > *line_length )
+         {
+            *line_length += LONG_M;
+            *ligne = realloc( *ligne, *line_length*sizeof(char) );
+         }
+         strcat(*ligne,parcours->var->v_nomvar);
          didvariableadded = 1;
       }
@@ -152 +171 @@
 /*                                                                            */
 /******************************************************************************/
-void WriteVariablelist_subloop_Call(char **ligne, size_t line_length)
+void WriteVariablelist_subloop_Call(char **ligne, size_t *line_length)
 {
    listvar *parcours;
    char ligne2[LONG_M];
    int i;
-   size_t cur_length;
-
-   cur_length = line_length;
 
    if ( todebug == 1 ) printf("> enter in WriteVariablelist_subloop_Call\n");
@@ -170 +186 @@
       /*    in the output file                                                */
       if ( !strcasecmp(parcours->var->v_subroutinename,subroutinename)  &&
-           (parcours->var->v_pointerdeclare == 0 || !strcasecmp(parcours->var->v_typevar,"type"))
+           (parcours->var->v_pointerdeclare >= 0 || !strcasecmp(parcours->var->v_typevar,"type"))
          )
       {
          if ( didvariableadded == 1 )   strcat(*ligne,",");
          const char *vres = vargridcurgridtabvars(parcours->var, 0);
-         if ( (strlen(*ligne)+strlen(vres)+100) > cur_length )
+         if ( (strlen(*ligne)+strlen(parcours->var->v_nomvar)+100) > *line_length )
          {
-            cur_length += LONG_M;
-            *ligne = realloc( *ligne, cur_length*sizeof(char) );
+            *line_length += LONG_M;
+            *ligne = realloc( *ligne, *line_length*sizeof(char) );
          }
          strcat(*ligne, vres);
@@ -186 +202 @@
          if (  SubloopScalar != 0 &&
                (
-               (parcours->var->v_pointerdeclare == 0 || !strcasecmp(parcours->var->v_typevar,"type"))) &&
+               (parcours->var->v_pointerdeclare >= 0 || !strcasecmp(parcours->var->v_typevar,"type"))) &&
                parcours->var->v_nbdim != 0 )
          {
@@ -231 +247 @@
 /*                                                                            */
 /******************************************************************************/
-void WriteVariablelist_subloop_Def(char *ligne)
+void WriteVariablelist_subloop_Def(char **ligne, size_t *line_length)
 {
    listvar *parcours;
@@ -244 +260 @@
       /*    in the output file                                                */
       if ( !strcasecmp(parcours->var->v_subroutinename,subroutinename)  &&
-           (parcours->var->v_pointerdeclare == 0 || !strcasecmp(parcours->var->v_typevar,"type")) )
+           (parcours->var->v_pointerdeclare >= 0 || !strcasecmp(parcours->var->v_typevar,"type")) )
       {
-         if ( didvariableadded == 1 )   strcat(ligne,",");
-         strcat(ligne,parcours->var->v_nomvar);
+         if ( didvariableadded == 1 )   strcat(*ligne,",");
+         if ( (strlen(*ligne)+strlen(parcours->var->v_nomvar)+100) > *line_length )
+         {
+            *line_length += LONG_M;
+            *ligne = realloc( *ligne, *line_length*sizeof(char) );
+         }
+         strcat(*ligne,parcours->var->v_nomvar);
          didvariableadded = 1;
       }
       parcours = parcours -> suiv;
    }
-   Save_Length(ligne,41);
+
    if ( todebug == 1 ) printf("<   out of WriteVariablelist_subloop_Def\n");
 }
@@ -272 +293 @@
 void WriteHeadofSubroutineLoop()
 {
-   char ligne[LONG_M];
+   char *ligne;
    FILE * subloop;
-
-   if ( todebug == 1 ) printf("> enter in WriteHeadofSubroutineLoop\n");
+   size_t line_length;
+
+   ligne = (char*) calloc(LONG_M, sizeof(char));
+   line_length = LONG_M;
+
+   if ( todebug == 1 ) printf("> enter in WriteHeadofSubroutineLoop subroutine %s\n",subroutinename);
    tofich(fortran_out,"\n",1);
+
    /* Open this newfile                                                       */
    sprintf(ligne,"Sub_Loop_%s.h",subroutinename);
@@ -283 +309 @@
    if (isrecursive) sprintf(ligne,"recursive subroutine Sub_Loop_%s(",subroutinename);
    else             sprintf(ligne,"subroutine Sub_Loop_%s(",subroutinename);
+
    /*                                                                         */
-   WriteVariablelist_subloop(ligne);
-   WriteVariablelist_subloop_Def(ligne);
+   if (todebug == 1) fprintf(subloop,"      !DEBUG: Avant WriteVariablelist_subloop\n");
+   WriteVariablelist_subloop(&ligne,&line_length);
+   WriteVariablelist_subloop_Def(&ligne,&line_length);
    /*                                                                         */
    strcat(ligne,")");
    tofich(subloop,ligne,1);
+
    /* if USE agrif_Uti l should be add                                        */
+   if (todebug == 1) fprintf(subloop,"      !DEBUG: Avant AddUseAgrifUtil_0\n");
    AddUseAgrifUtil_0(subloop);
+
    /*                                                                         */
+   if (todebug == 1) fprintf(subloop,"      !DEBUG: Apres AddUseAgrifUtil_0\n");
    oldfortran_out = fortran_out;
    fortran_out = subloop;
+   
    if ( todebug == 1 ) printf("<   out of WriteHeadofSubroutineLoop\n");
+   
+   free(ligne);
 }
 
@@ -313 +348 @@
 {
    char *ligne;
+   size_t line_length;
 
    if ( firstpass == 1 )    return;
@@ -318 +354 @@
 
    ligne = (char*) calloc(LONG_M, sizeof(char));
+   line_length = LONG_M;
 
    if ( IsTabvarsUseInArgument_0() == 1 )
@@ -331 +368 @@
 
       AddUseAgrifUtilBeforeCall_0(fortran_out);
+           
       WriteArgumentDeclaration_beforecall();
+      if (todebug == 1) fprintf(fortran_out,"      !DEBUG: Avant WriteFunctionDeclaration\n");
+
       if ( functiondeclarationisdone == 0 ) WriteFunctionDeclaration(fortran_out, 0);
       if ( !strcasecmp(subofagrifinitgrids,subroutinename) )
@@ -339 +379 @@
       sprintf(ligne,"  call Sub_Loop_%s(",subroutinename);
       /* Write the list of the local variables used in this new subroutine    */
-      WriteVariablelist_subloop(ligne);
+      WriteVariablelist_subloop(&ligne,&line_length);
       /* Write the list of the global tables used in this new subroutine      */
       /*    in doloop                                                         */
-      WriteVariablelist_subloop_Call(&ligne, LONG_M);
+      WriteVariablelist_subloop_Call(&ligne, &line_length);
       /* Close the parenthesis of the new subroutine called                   */
       strcat(ligne,")\n");
@@ -358 +398 @@
     oldfortran_out = (FILE *)NULL;
     if ( todebug == 1 ) printf("<   out of closeandcallsubloopandincludeit_0\n");
+    
+    free(ligne);
 }
 
@@ -363 +405 @@
 {
    char *ligne;
+   size_t line_length;
 
    if ( todebug == 1 ) printf("> enter in closeandcallsubloop_contains_0\n");
@@ -368 +411 @@
    {
       ligne = (char*) calloc(LONG_M, sizeof(char));
+      line_length = LONG_M;
       RemoveWordCUR_0(fortran_out,9);   // Remove word 'contains'
       tofich(fortran_out,"\n",1);
@@ -376 +420 @@
 
       AddUseAgrifUtilBeforeCall_0(fortran_out);
-
       if ( ImplicitNoneInSubroutine() == 1 ) fprintf(fortran_out, "      implicit none\n");
       WriteLocalParamDeclaration(fortran_out);
+            printf("ICI3\n");
       WriteArgumentDeclaration_beforecall();
+      if (todebug == 1) fprintf(fortran_out,"      !DEBUG: Avant WriteFunctionDeclaration\n");
       if ( functiondeclarationisdone == 0 ) WriteFunctionDeclaration(fortran_out, 0);
 /*      WriteSubroutineDeclaration(0);*/
@@ -388 +433 @@
       sprintf(ligne,"  call Sub_Loop_%s(",subroutinename);
       /* Write the list of the local variables used in this new subroutine    */
-      WriteVariablelist_subloop(ligne);
+      WriteVariablelist_subloop(&ligne,&line_length);
       /* Write the list of the global tables used in this new subroutine      */
       /*    in doloop                                                         */
-      WriteVariablelist_subloop_Call(&ligne, LONG_M);
+      WriteVariablelist_subloop_Call(&ligne, &line_length);
       /* Close the parenthesis of the new subroutine called                   */
       strcat(ligne,")\n");

vendors/AGRIF/CMEMS_2020/LIB/UtilAgrif.c

@@ -150 +150 @@
     {
         // remove the variable
-        RemoveWordCUR_0(fortran_out,lengthname);
+ //       RemoveWordCUR_0(fortran_out,lengthname);
         // then write the new name
-        if ( inagrifcallargument == 1 && agrif_parentcall == 0 )
-            fprintf(fortran_out,"%d",newvar->var->v_indicetabvars);
-        else
-        {
-            if ( retour77 == 0 )
-                fprintf(fortran_out,"Agrif_%s & \n      ", tabvarsname(newvar->var));
-            else
-            {
-               fprintf(fortran_out,"Agrif_%s", tabvarsname(newvar->var));
-               fprintf(fortran_out," \n     & ");
-            }
-            fprintf(fortran_out,"%s",vargridcurgridtabvarswithoutAgrif_Gr(newvar->var));
-        }
+ //        if ( inagrifcallargument == 1 && agrif_parentcall == 0 )
+//             fprintf(fortran_out,"%d",newvar->var->v_indicetabvars);
+//         else
+//         {
+//             if ( retour77 == 0 )
+//                 fprintf(fortran_out,"Agrif_%s & \n      ", tabvarsname(newvar->var));
+//             else
+//             {
+//                fprintf(fortran_out,"Agrif_%s", tabvarsname(newvar->var));
+//                fprintf(fortran_out," \n     & ");
+//             }
+//             fprintf(fortran_out,"%s",vargridcurgridtabvarswithoutAgrif_Gr(newvar->var));
+//         }
     }
     else

vendors/AGRIF/CMEMS_2020/LIB/UtilFortran.c

@@ -423 +423 @@
                                                                   doloopout = 1;
          else parcours = parcours->suiv;
+        
       }
       if (  doloopout == 0 ) out = 0;
@@ -591 +592 @@
     out = 0;
 
+    return (out == 0);
+    
     if ( !strcasecmp(ident,"size") ||
          !strcasecmp(ident,"if")   ||
@@ -596 +599 @@
          !strcasecmp(ident,"min")  )
     {
+    printf("ident = %s\n",ident);
         newvar = List_SubroutineDeclaration_Var;
         while ( newvar && out == 0 )
@@ -611 +615 @@
             while ( newvar && out == 0 )
             {
+            printf("llll = %s\n",newvar->var->v_nomvar);
                 if ( !strcasecmp(ident, newvar->var->v_nomvar) ) out = 1;
                 newvar = newvar -> suiv ;
@@ -617 +622 @@
     }
     return (out == 0);
+}
+
+/* removenewline */
+/* REMOVE UNWANTED character */
+/* from a NAME{NEWLINE77]NAME flex match */
+
+void removenewline(char *nom)
+{
+char temp_nom[LONG_VNAME];
+int size_nom,i,j;
+
+size_nom=strlen(nom);
+
+j=0;
+for (i=0;i<size_nom;)
+{
+if (nom[i]=='\n')
+{
+/* REMOVE RETURN - blank and column 6 character */
+i=i+7;
+}
+else if (nom[i]==' ' || nom[i]=='\t')
+{
+i=i+1;
+}
+else
+{
+temp_nom[j]=nom[i];
+j++;
+i++;
+}
+}
+temp_nom[j]='\0';
+
+strcpy(nom,temp_nom);
 }
 

vendors/AGRIF/CMEMS_2020/LIB/UtilListe.c

@@ -52 +52 @@
    strcpy(var->v_subroutinename     , "");
    strcpy(var->v_precision          , "");
-   strcpy(var->v_initialvalue       , "");
+   var->v_initialvalue = (listname *)NULL;
+   var->v_initialvalue_array = (listname *)NULL;
+   var->v_do_loop = NULL;
    strcpy(var->v_IntentSpec         , "");
    strcpy(var->v_readedlistdimension, "");
@@ -103 +105 @@
             newvar->suiv = l;
         }
+        newvar=glob;
+        while (newvar)
+        {
+        newvar=newvar->suiv;
+        }
     }
     return glob;
@@ -117 +124 @@
 void CreateAndFillin_Curvar(const char *type, variable *curvar)
 {
+listname *newvar;
+
     if ( !strcasecmp(type, "character") && strcasecmp(CharacterSize, "") )
     {
@@ -150 +159 @@
     if (InitialValueGiven == 1 )
     {
-        strcpy(curvar->v_initialvalue,InitValue);
+    curvar->v_initialvalue=Insertname(curvar->v_initialvalue,InitValue,0);
+    
+//        strcpy(curvar->v_initialvalue,InitValue);
+        
         Save_Length(InitValue,14);
     }
@@ -481 +493 @@
       v = newvar->var;
       strcpy(v->v_typevar,nom);
+      
       v->v_catvar = get_cat_var(v);
+
       newvar = newvar->suiv;
    }
@@ -502 +516 @@
    {
       v=newvar->var;
-      printf("nom = %s, allocatable = %d dim = %s\n",v->v_nomvar,v->v_allocatable,(v->v_dimension)->dim.last);
       newvar=newvar->suiv;
    }
@@ -564 +577 @@
 }
 
+int testandextractfromlist(listname **lin, char*nom)
+{
+listname *newvar;
+int val_1, val_2;
+int return_stmt;
+
+printname(*lin);
+if (!(*lin))
+ {
+  return 0;
+ }
+else
+ {
+ sscanf(nom,"%d",&val_1);
+ sscanf((*lin)->n_name,"%d",&val_2);
+ if (val_1==val_2)
+   {
+/*   newvar = *lin;
+   *lin = (*lin)->suiv;
+   free(newvar);*/
+   /* continue to remove while the label stays the same */
+/*   return_stmt=testandextractfromlist(lin,nom);*/
+   return 1;
+   }
+ else
+  {
+  return 0;
+  }
+ }
+}
+
+void removefromlist(listname **lin, char*nom)
+{
+listname *newvar,*prev;
+int val_1, val_2;
+int return_stmt;
+int out;
+
+printname(*lin);
+if (*lin)
+ {
+ sscanf(nom,"%d",&val_1);
+ prev=(listname *) calloc(1,sizeof(listname));
+ prev->suiv=*lin;
+ *lin=prev;
+ newvar=(*lin)->suiv;
+ out = 0;
+ while (newvar && out == 0)
+ {
+ sscanf((newvar)->n_name,"%d",&val_2);
+ if (val_1==val_2)
+   {
+   prev->suiv=newvar->suiv;
+   free(newvar);
+   }
+  if (prev->suiv) 
+    {
+    prev=prev->suiv;
+    newvar=prev->suiv;
+    }
+   else
+   {
+   out = 1;
+   }
+  }
+ prev=*lin;
+ *lin=(*lin)->suiv;
+ free(prev);
+ }
+}
+
 listname *concat_listname(listname *l1, listname *l2)
 {
@@ -606 +690 @@
    while (newvar)
    {
-      printf("nom = %s \n",newvar->n_name);
       newvar=newvar->suiv;
    }
@@ -694 +777 @@
 int get_cat_var(variable *var)
 {
+
     if (!strcasecmp(var->v_typevar, "CHARACTER"))
         return 1;
@@ -705 +789 @@
         return 0;
 }
+
+void Insertdoloop(variable *var,char *do_var,char *do_begin, char *do_end, char *do_step)
+{
+listdoloop *new_do_loop;
+listdoloop *tmploop;
+new_do_loop = (listdoloop *) calloc(1,sizeof(listdoloop));
+
+new_do_loop->cur_do_loop = (do_loop *) calloc(1,sizeof(do_loop));
+
+strcpy(new_do_loop->cur_do_loop->do_variable,do_var);
+strcpy(new_do_loop->cur_do_loop->do_begin,do_begin);
+strcpy(new_do_loop->cur_do_loop->do_end,do_end);
+strcpy(new_do_loop->cur_do_loop->do_step,do_step);
+new_do_loop->suiv = NULL;
+
+if (!var->v_do_loop)
+{
+  var->v_do_loop = new_do_loop;
+}
+else
+{
+  new_do_loop->suiv = var->v_do_loop;
+  var->v_do_loop = new_do_loop;
+      
+//   tmploop = var->v_do_loop;
+//   while (tmploop->suiv)
+//   {
+//     tmploop=tmploop->suiv;
+//   }
+//   tmploop->suiv = new_do_loop ;
+//   }
+}
+}

vendors/AGRIF/CMEMS_2020/LIB/WorkWithlistdatavariable.c

@@ -70 +70 @@
         strcpy(ligne,values);
        
-     strcpy(newvar->var->v_initialvalue,ligne);
+     newvar->var->v_initialvalue=Insertname(newvar->var->v_initialvalue,ligne,0);
+     
+     // strcpy(newvar->var->v_initialvalue,ligne);
      Save_Length(ligne,14);
      newvar->suiv = NULL;
@@ -85 +87 @@
 }
 
-void Add_Data_Var_Names_01 (listvar **curlist,listname *l1,listname *l2)
+void Add_Data_Var_Names_01 (listvar **curlist,listvar *l1,listname *l2)
 {
     listvar *newvar;
     listvar *tmpvar;
-    listname *tmpvar1;
-    listname *tmpvar2;  
+    listvar *tmpvar1;
+    listname *tmpvar2;
+    char tempname[LONG_M];
     variable *found_var = NULL;
+    int out;
+    size_t i = 0;
+    char chartmp[2];
     
     tmpvar1 = l1;
@@ -98 +104 @@
     while (tmpvar1)
     {
-        newvar = (listvar *) calloc(1,sizeof(listvar));
-        newvar->var = (variable *) calloc(1,sizeof(variable));
-
-        Init_Variable(newvar->var);
-
-        if ( inmoduledeclare == 1 ) newvar->var->v_module=1;
-     
-        found_var = get_variable_in_list_from_name(List_Common_Var, tmpvar1->n_name);
-        if ( ! found_var )  found_var = get_variable_in_list_from_name(List_Global_Var,tmpvar1->n_name);
-        if ( ! found_var )  found_var = get_variable_in_list_from_name(List_SubroutineDeclaration_Var,tmpvar1->n_name);
-        
-        if ( found_var && found_var->v_nbdim > 0 )
+//    printf("TMPVAR 1 nomvar = %s, initialvaluearra = %s\n",tmpvar1->var->v_nomvar,tmpvar1->var->v_initialvalue_array->n_name);
+       strcpy(tempname,tmpvar1->var->v_nomvar);
+//        while ( i < strlen(tmpvar1->var->v_nomvar) )
+//        {
+//        if (tmpvar1->var->v_nomvar[i]=='(') break;
+//          sprintf(chartmp,"%c",tmpvar1->var->v_nomvar[i]);
+//          strcat(tempname,chartmp);
+//          i++;
+//        }
+        found_var = get_variable_in_list_from_name(List_Common_Var, tempname);
+        if ( ! found_var )  found_var = get_variable_in_list_from_name(List_Global_Var,tempname);
+        if ( ! found_var )  found_var = get_variable_in_list_from_name(List_SubroutineDeclaration_Var,tempname);
+        
+        if ( found_var && found_var->v_nbdim > 1000 )
         {
             printf("##############################################################################################################\n");
@@ -118 +126 @@
         }
         
-        strcpy(newvar->var->v_nomvar,tmpvar1->n_name);
+        if (tmpvar1->var->v_initialvalue_array)
+        {
+        if ((firstpass == 1) && strcmp(tmpvar1->var->v_initialvalue_array->n_name,""))
+        {
+        DecomposeTheName(tmpvar1->var->v_initialvalue_array->n_name);
+        }
+        }
+        
+        // Search for existing newvar
+        
+        tmpvar = *curlist;
+        out = 0;
+        while (tmpvar)
+        {
+        if (!strcasecmp(tempname,tmpvar->var->v_nomvar) && !strcasecmp(subroutinename,tmpvar->var->v_subroutinename) && !strcasecmp(curmodulename,tmpvar->var->v_modulename) && !strcasecmp(cur_filename,tmpvar->var->v_commoninfile) )
+        {
+        out = 1;
+        break;
+        }
+        tmpvar=tmpvar->suiv;
+        }
+        if (out == 0)
+        {
+        newvar = (listvar *) calloc(1,sizeof(listvar));
+        newvar->var = (variable *) calloc(1,sizeof(variable));
+
+        Init_Variable(newvar->var);
+
+        if ( inmoduledeclare == 1 ) newvar->var->v_module=1;
+        
+        strcpy(newvar->var->v_nomvar,tempname);
         strcpy(newvar->var->v_subroutinename,subroutinename);
         strcpy(newvar->var->v_modulename,curmodulename);
         strcpy(newvar->var->v_commoninfile,cur_filename);
-        strcpy(newvar->var->v_initialvalue,tmpvar2->n_name);
+        /*printf("TMPVAR 2 nomvar = %s\n",tmpvar2->n_name);*/
+        newvar->var->v_initialvalue=Insertname(newvar->var->v_initialvalue,tmpvar2->n_name,0);
+        
+        if (tmpvar1->var->v_initialvalue_array)
+        {
+        if (strcmp(tmpvar1->var->v_initialvalue_array->n_name,""))
+        {
+        newvar->var->v_initialvalue_array=Insertname(newvar->var->v_initialvalue_array,tmpvar1->var->v_initialvalue_array->n_name,0);
+        }
+        }
+        newvar->var->v_do_loop=tmpvar1->var->v_do_loop;
+//        strcpy(newvar->var->v_initialvalue,tmpvar2->n_name);
+//        strcpy(newvar->var->v_initialvalue_array,tmpvar1->var->v_initialvalue_array);
+        
+        newvar->var->v_dimension=tmpvar1->var->v_dimension;
 
         Save_Length(tmpvar2->n_name,14);
@@ -139 +191 @@
             *curlist  = newvar ;
         }
+        tmpvar=newvar;
+        }
+        else // out = 1
+        {
+        tmpvar->var->v_initialvalue=Insertname(tmpvar->var->v_initialvalue,tmpvar2->n_name,0);
+        if (strcmp(tmpvar1->var->v_initialvalue_array->n_name,""))
+        {
+        tmpvar->var->v_initialvalue_array=Insertname(tmpvar->var->v_initialvalue_array,tmpvar1->var->v_initialvalue_array->n_name,0);
+        }
+        tmpvar->var->v_do_loop=tmpvar1->var->v_do_loop;
+        }
      
         tmpvar1 = tmpvar1->suiv;
-        tmpvar2 = tmpvar2->suiv;  
+        tmpvar2 = tmpvar2->suiv;
     }
+    
+    while (tmpvar2)
+    {
+    strcpy(tempname,tmpvar2->n_name);
+    tmpvar->var->v_initialvalue = Insertname(tmpvar->var->v_initialvalue,tempname,1);
+    tmpvar2 = tmpvar2->suiv; 
+    }
+    
 }

vendors/AGRIF/CMEMS_2020/LIB/WorkWithlistvarindoloop.c

@@ -119 +119 @@
   if ( !List_UsedInSubroutine_Var )
   {
+  printf("LISTE VIDE\n");
       newvar=(listvar *)calloc(1,sizeof(listvar));
       newvar->var=(variable *)calloc(1,sizeof(variable));
@@ -161 +162 @@
          }
       }
+      
       if ( out == 2 || out == 0 )
       {
@@ -175 +177 @@
 
          /* we should find this new variable to know the tabvars indice       */
+
          if ( variableisglobal(newvar, List_Global_Var) == 1 )
          {
@@ -271 +274 @@
 void Merge_Variables(variable *var1, variable *var2)
 {
+
     if ( !strcasecmp(var1->v_typevar,"") )
             strcpy(var1->v_typevar,var2->v_typevar);
-    else
-      {
-      strcpy(var2->v_typevar,var1->v_typevar);
-      }
+    else    strcpy(var2->v_typevar,var1->v_typevar);
 
     if ( !strcasecmp(var1->v_oldname,"") )
@@ -310 +311 @@
     else    strcpy(var2->v_precision,var1->v_precision);
 
-    if ( !strcasecmp(var1->v_initialvalue,"") )
-            strcpy(var1->v_initialvalue,var2->v_initialvalue);
-    else    strcpy(var2->v_initialvalue,var1->v_initialvalue);
-
+//     if ( !strcasecmp(var1->v_initialvalue,"") )
+//             strcpy(var1->v_initialvalue,var2->v_initialvalue);
+//     else    strcpy(var2->v_initialvalue,var1->v_initialvalue);
+
+    if ( var1->v_initialvalue )
+            var2->v_initialvalue = var1->v_initialvalue;
+    else    var1->v_initialvalue = var2->v_initialvalue;
+
+    if ( var1->v_initialvalue_array )
+            var2->v_initialvalue_array = var1->v_initialvalue_array;
+    else    var1->v_initialvalue_array = var2->v_initialvalue_array;
+    
+    if ( var1->v_do_loop )
+            var2->v_do_loop = var1->v_do_loop;
+    else    var1->v_do_loop = var2->v_do_loop;
+    
+//     if ( !strcasecmp(var1->v_initialvalue_array,"") )
+//             strcpy(var1->v_initialvalue_array,var2->v_initialvalue_array);
+//     else    strcpy(var2->v_initialvalue_array,var1->v_initialvalue_array);
+    
     if ( !strcasecmp(var1->v_IntentSpec,"") )
             strcpy(var1->v_IntentSpec,var2->v_IntentSpec);
@@ -490 +507 @@
          /*                                                                   */
          newvar->suiv = NULL;
+
          Merge_Variables(parcours->var,newvar->var);
          strcpy(newvar->var->v_subroutinename,parcours->var->v_subroutinename);
@@ -1155 +1173 @@
                 newvar->var->v_VariableIsParameter,
                 newvar->var->v_typevar,
-                newvar->var->v_initialvalue );
+                newvar->var->v_initialvalue->n_name );
         newvar = newvar->suiv;
     }
@@ -1173 +1191 @@
                                         strcpy(parcours->var->v_typevar,"REAL");
          else strcpy(parcours->var->v_typevar,"INTEGER");
+         parcours->var->v_catvar = get_cat_var(parcours->var);
       }
       parcours = parcours -> suiv ;
@@ -1185 +1204 @@
                                         strcpy(parcours->var->v_typevar,"REAL");
          else strcpy(parcours->var->v_typevar,"INTEGER");
+         parcours->var->v_catvar = get_cat_var(parcours->var);
       }
       parcours = parcours -> suiv ;
@@ -1197 +1217 @@
                                         strcpy(parcours->var->v_typevar,"REAL");
          else strcpy(parcours->var->v_typevar,"INTEGER");
+         parcours->var->v_catvar = get_cat_var(parcours->var);
       }
       parcours = parcours -> suiv ;
@@ -1209 +1230 @@
                                         strcpy(parcours->var->v_typevar,"REAL");
          else strcpy(parcours->var->v_typevar,"INTEGER");
+         parcours->var->v_catvar = get_cat_var(parcours->var);
+      }
+      parcours = parcours -> suiv ;
+   }
+   
+   /*                                                                         */
+   parcours = List_Parameter_Var;
+   while ( parcours )
+   {
+      if ( !strcasecmp(parcours->var->v_typevar,"") )
+      {
+         if ( IsVariableReal(parcours->var->v_nomvar) == 1 )
+                                        strcpy(parcours->var->v_typevar,"REAL");
+         else strcpy(parcours->var->v_typevar,"INTEGER");
+         parcours->var->v_catvar = get_cat_var(parcours->var);
+      }
+      parcours = parcours -> suiv ;
+   }
+   
+   /*                                                                         */
+   parcours = List_GlobalParameter_Var;
+   while ( parcours )
+   {
+      if ( !strcasecmp(parcours->var->v_typevar,"") )
+      {
+         if ( IsVariableReal(parcours->var->v_nomvar) == 1 )
+                                        strcpy(parcours->var->v_typevar,"REAL");
+         else strcpy(parcours->var->v_typevar,"INTEGER");
+         parcours->var->v_catvar = get_cat_var(parcours->var);
       }
       parcours = parcours -> suiv ;
@@ -1509 +1559 @@
 void update_indicemaxtabvars(variable *var,listindice **Listofindices)
 {
-
-
             if ( Listofindices[var->v_catvar] )
             {
@@ -1547 +1595 @@
           )
       {
+            /* The type may has not been given if the variable was only declared with dimension */
+
+            if ( !strcasecmp(parcours->var->v_typevar,"") )
+            {
+                  if ( IsVariableReal(parcours->var->v_nomvar) == 1 )
+                                        strcpy(parcours->var->v_typevar,"REAL");
+                  else strcpy(parcours->var->v_typevar,"INTEGER");
+                  parcours->var->v_catvar = get_cat_var(parcours->var);
+             }
+             
          indicemaxtabvars[parcours->var->v_catvar] = indicemaxtabvars[parcours->var->v_catvar] + 1 ;
          parcours->var->v_indicetabvars = indicemaxtabvars[parcours->var->v_catvar];
@@ -1626 +1684 @@
               parcours->var->v_notgrid == 0                              &&
               ( ( parcours->var->v_nbdim != 0 || !strcasecmp(parcours->var->v_typevar,"type") )
-              || strcasecmp(parcours->var->v_initialvalue,"") )
+              || parcours->var->v_initialvalue )
             )
          {
@@ -1658 +1716 @@
               !strcasecmp(parcours->var->v_commoninfile,cur_filename)       &&
               ( ( parcours->var->v_nbdim != 0 || !strcasecmp(parcours->var->v_typevar,"type") )
-              || strcasecmp(parcours->var->v_initialvalue,"") )
+              || parcours->var->v_initialvalue )
             )
          {
@@ -1845 +1903 @@
       printf("dimensiongiven - %d \n", parcours->var->v_dimensiongiven);
       printf("dimsempty      - %d \n", parcours->var->v_dimsempty);
-      printf("initialvalue   - %s \n", parcours->var->v_initialvalue);
+      printf("initialvalue   - %s \n", parcours->var->v_initialvalue->n_name);
       printf("readedlistdim  - %s \n", parcours->var->v_readedlistdimension);
       printf("-------------------------------------\n");

vendors/AGRIF/CMEMS_2020/LIB/WriteInFile.c

@@ -141 +141 @@
     fseek(filout, position, SEEK_SET);
     tofich_blanc(filout, sizetoremove);
-    fseek(filout, position, SEEK_SET);
+
 }
 

vendors/AGRIF/CMEMS_2020/LIB/Writedeclarations.c

@@ -66 +66 @@
   /* We should give the precision of the variable if it has been given        */
   precision_given = 0;
+  
   if ( strcasecmp(v->v_precision,"") )
   {
@@ -128 +129 @@
     {
         strcat(line," = ");
-        strcat(line, v->v_initialvalue);
+        strcat(line, v->v_initialvalue->n_name);
     }
     Save_Length(line, 45);
@@ -173 +174 @@
     {
         strcat(ligne," = ");
-        strcat(ligne,v->v_initialvalue);
+        strcat(ligne,v->v_initialvalue->n_name);
     }
     Save_Length(ligne,45);
@@ -206 +207 @@
         WriteTableDeclaration(v, ligne, value);
 
-     if ( v->v_VariableIsParameter != 1 && strcasecmp(v->v_initialvalue,"") )
+     if ( v->v_VariableIsParameter != 1 && v->v_initialvalue)
      {
         strcat(ligne," = ");
-        strcat(ligne,v->v_initialvalue);
+        strcat(ligne,v->v_initialvalue->n_name);
      }
      tofich(filecommon, ligne, 1);
@@ -241 +242 @@
     while ( parcours )
     {
+    if (!strcmp(parcours->var->v_typevar, ""))
+    {
+     /* Default type*/
+          if ( IsVariableReal(parcours->var->v_nomvar) == 1 )
+                                         strcpy(parcours->var->v_typevar,"REAL");
+          else strcpy(parcours->var->v_typevar,"INTEGER");
+     }
         if ( !strcasecmp(parcours->var->v_subroutinename, subroutinename) &&
               strcasecmp(parcours->var->v_typevar, "") )
@@ -261 +269 @@
         if ( !strcasecmp(v->v_subroutinename, subroutinename)   &&
              (v->v_save == 0)                                   &&
-             (v->v_pointerdeclare == 0)                         &&
              (v->v_VariableIsParameter == 0)                    &&
              (v->v_common == 0) )
@@ -285 +292 @@
     listvar *parcours;
     variable *v;
-    char ligne[LONG_M];
-
+    char *ligne;
+    size_t line_length;
+    int res;
+    int global_check;
+
+    ligne = (char*) calloc(LONG_M, sizeof(char));
+    line_length = LONG_M;
+    
+    global_check = 0;
+   
+   
     fprintf(fortran_out,"#include \"Param_BeforeCall_%s.h\"\n",subroutinename);
 
@@ -303 +319 @@
             position++;
             WriteVarDeclaration(v, fortran_out, 0, 1);
-            neededparameter = writedeclarationintoamr(List_Parameter_Var, paramtoamr,
-                                    v, v->v_subroutinename, neededparameter, subroutinename);
+            res = writedeclarationintoamr(List_Parameter_Var, paramtoamr,
+                                    v, v->v_subroutinename, &neededparameter, subroutinename, global_check);
             parcours = List_SubroutineArgument_Var;
         }
         else parcours = parcours -> suiv;
     }
-    Save_Length(ligne,45);
 
     // Write interface for 'Sub_Loop_machin' in 'Param_BeforeCall_machin.h' when outside a module
@@ -317 +332 @@
         if (isrecursive) sprintf(ligne,"  recursive subroutine Sub_Loop_%s(", subroutinename);
         else             sprintf(ligne,"  subroutine Sub_Loop_%s(", subroutinename);
-        WriteVariablelist_subloop(ligne);
-        WriteVariablelist_subloop_Def(ligne);
+        WriteVariablelist_subloop(&ligne,&line_length);
+        WriteVariablelist_subloop_Def(&ligne,&line_length);
         strcat(ligne,")");
-        Save_Length(ligne,45);
+
         tofich(paramtoamr,ligne,1);
 
@@ -353 +368 @@
 
     parcours = List_SubroutineArgument_Var;
+    
     while ( parcours )
     {
@@ -399 +415 @@
 /*                                                                            */
 /******************************************************************************/
-listnom *writedeclarationintoamr (listvar * deb_common, FILE *fileout,
+int writedeclarationintoamr (listvar * deb_common, FILE *fileout,
                               variable *var , const char *commonname,
-                           listnom *neededparameter, const char *name_common)
+                           listnom **neededparameter, const char *name_common, int global_check)
 {
   listvar *newvar;
@@ -410 +426 @@
   int writeit;
   listnom *parcours;
+  listname *parcours_name_array;
+  int res;
+  
+  res = 0;
 
   /* we should list the needed parameter                                      */
+
   if ( !strcasecmp(name_common,commonname) )
-     neededparameter = DecomposeTheNameinlistnom(var->v_readedlistdimension,neededparameter);
+     {
+     *neededparameter = DecomposeTheNameinlistnom(var->v_readedlistdimension,*neededparameter);
+     parcours_name_array = var->v_initialvalue_array;
+     while (parcours_name_array)
+     {
+     *neededparameter = DecomposeTheNameinlistnom(parcours_name_array->n_name,*neededparameter);
+     parcours_name_array=parcours_name_array->suiv;
+     }
+     }
+
   /*                                                                          */
-  parcours = neededparameter;
+  parcours = *neededparameter;
+
   while (parcours)
   {
@@ -423 +454 @@
      while ( newvar && out == 0 )
      {
-
-        if ( !strcasecmp(parcours->o_nom,newvar->var->v_nomvar) && !strcasecmp(var->v_subroutinename,newvar->var->v_subroutinename))
+        if ( (global_check == 0) && !strcasecmp(parcours->o_nom,newvar->var->v_nomvar) && !strcasecmp(var->v_subroutinename,newvar->var->v_subroutinename))
         {
            out=1;
         /* add the name to the list of needed parameter                       */
-           neededparameter = DecomposeTheNameinlistnom(
-                 newvar->var->v_initialvalue,
-                 neededparameter );
+           *neededparameter = DecomposeTheNameinlistnom(
+                 newvar->var->v_initialvalue->n_name,
+                 *neededparameter );
+        }
+        else if ( (global_check == 1) && !strcasecmp(parcours->o_nom,newvar->var->v_nomvar) && !strcasecmp(var->v_modulename,newvar->var->v_modulename))
+        {
+           out=1;
+        /* add the name to the list of needed parameter                       */
+           *neededparameter = DecomposeTheNameinlistnom(
+                 newvar->var->v_initialvalue->n_name,
+                 *neededparameter );
         }
         else newvar=newvar->suiv;
@@ -437 +475 @@
    }
   /*                                                                          */
-  parcours = neededparameter;
+  parcours = *neededparameter;
+  
   while (parcours)
   {
@@ -444 +483 @@
      while ( newvar && out == 0 )
      {
-        if ( !strcasecmp(parcours->o_nom,newvar->var->v_nomvar) && !strcasecmp(var->v_subroutinename,newvar->var->v_subroutinename))
+        if ( (global_check == 0) && !strcasecmp(parcours->o_nom,newvar->var->v_nomvar) && !strcasecmp(var->v_subroutinename,newvar->var->v_subroutinename))
         {
            out=1;
         /* add the name to the list of needed parameter                       */
-           neededparameter = DecomposeTheNameinlistnom(
-                 newvar->var->v_initialvalue,
-                 neededparameter );
+           *neededparameter = DecomposeTheNameinlistnom(
+                 newvar->var->v_initialvalue->n_name,
+                 *neededparameter );
+        }
+        else if ( (global_check == 1) && !strcasecmp(parcours->o_nom,newvar->var->v_nomvar) && !strcasecmp(var->v_modulename,newvar->var->v_modulename))
+        {
+           out=1;
+        /* add the name to the list of needed parameter                       */
+           *neededparameter = DecomposeTheNameinlistnom(
+                 newvar->var->v_initialvalue->n_name,
+                 *neededparameter );
         }
         else newvar=newvar->suiv;
@@ -456 +503 @@
      parcours=parcours->suiv;
    }
-  parcours = neededparameter;
+  parcours = *neededparameter;
   while (parcours)
   {
@@ -463 +510 @@
      while ( newvar && writeit == 0 )
      {
-        if ( !strcasecmp(parcours->o_nom,newvar->var->v_nomvar) &&
+        if ( (global_check == 0) && !strcasecmp(parcours->o_nom,newvar->var->v_nomvar) &&
             !strcasecmp(var->v_subroutinename,newvar->var->v_subroutinename) && parcours->o_val == 0 )
+        {
+           writeit=1;
+           parcours->o_val = 1;
+        }
+        else if ( (global_check == 1) && !strcasecmp(parcours->o_nom,newvar->var->v_nomvar) &&
+            !strcasecmp(var->v_modulename,newvar->var->v_modulename) && parcours->o_val == 0 )
         {
            writeit=1;
@@ -490 +543 @@
            v->v_allocatable = 1;
         }
+        res = 1;
      }
      else
@@ -503 +557 @@
   }
   Save_Length(ligne,45);
-  return neededparameter;
+  return res;
 }
 
@@ -532 +586 @@
      if ( newvar->var->v_nbdim == 0 &&
           !strcasecmp(newvar->var->v_subroutinename,subroutinename)  &&
-           (newvar->var->v_pointerdeclare == 0 || !strcasecmp(newvar->var->v_typevar,"type")) )
+           (newvar->var->v_pointerdeclare >= 0 || !strcasecmp(newvar->var->v_typevar,"type")) )
      {
         v = newvar->var;
-
         WriteBeginDeclaration(v,ligne,1);
         WriteScalarDeclaration(v,ligne);
@@ -570 +623 @@
 //  printf("newvar = %s %d %s\n",newvar->var->v_nomvar,newvar->var->v_pointerdeclare,newvar->var->v_typevar);
      if ( (v->v_nbdim != 0)  && !strcasecmp(v->v_subroutinename, subroutinename) &&
-          (v->v_pointerdeclare == 0 || !strcasecmp(v->v_typevar,"type")) )
+          (v->v_pointerdeclare >= 0 || !strcasecmp(v->v_typevar,"type")) )
      {
         changeval = 0;
@@ -596 +649 @@
      newvar = newvar->suiv;
   }
+
   Save_Length(ligne,45);
 }
@@ -619 +673 @@
             if (firstpass == 0 && out == 0 && VariableIsParameter == 0 && SaveDeclare == 0)
             {
+            
+            /* The type may has not been given if the variable was only declared with dimension */
+
+            if ( !strcasecmp(v->v_typevar,"") )
+            {
+                  if ( IsVariableReal(v->v_nomvar) == 1 )
+                                        strcpy(v->v_typevar,"REAL");
+                  else strcpy(v->v_typevar,"INTEGER");
+                  v->v_catvar = get_cat_var(v);
+             }
+             
                 WriteVarDeclaration(v, fortran_out, 1, 1);
             }
@@ -639 +704 @@
     char ligne[LONG_M];
     char initialvalue[LONG_M];
-
+    listname *parcours_name;
+    
     if (insubroutinedeclare == 1)
     {
@@ -651 +717 @@
             if (out)   break;
 
-            if (strncasecmp(parcours->var->v_initialvalue,"(/",2))
+            strcpy(initialvalue,"");
+            parcours_name = parcours->var->v_initialvalue;
+            while (parcours_name)
             {
-                strcpy(initialvalue,parcours->var->v_initialvalue);
+            if (strncasecmp(parcours_name->n_name,"(/",2))
+            {
+                strcat(initialvalue,parcours_name->n_name);
+                if (parcours_name->suiv)
+                {
+                strcat(initialvalue,",");
+                }
             }
             else
             {
-                strncpy(initialvalue,&parcours->var->v_initialvalue[2],strlen(parcours->var->v_initialvalue)-4);
-                strcpy(&initialvalue[strlen(parcours->var->v_initialvalue)-4],"\0");
+            printf("A TRAITER DANS REWRITEDATA STATEMETN ");
+            exit(1);
+                strncpy(initialvalue,&parcours_name->n_name[2],strlen(parcours_name->n_name)-4);
+                strcpy(&initialvalue[strlen(parcours_name->n_name)-4],"\0");
+            }
+            parcours_name=parcours_name->suiv;
             }
             sprintf(ligne,"data %s/%s/",parcours->var->v_nomvar,initialvalue);
             tofich(filout,ligne,1);
-
+            
             parcours = parcours->suiv;
         }

vendors/AGRIF/CMEMS_2020/LIB/decl.h

@@ -36 +36 @@
 #define LONG_FNAME 1000    // Max length for a file name
 #define LONG_C     200
-#define LONG_M     2000
+#define LONG_M     1500
 
 #define NB_CAT_VARIABLES 5
@@ -55 +55 @@
    struct listdim *suiv;
 } listdim;                 /* list of the dimensions of a variable            */
+
+typedef struct listname
+{
+   char n_name[LONG_M];
+   struct  listname* suiv;
+} listname ;            /* list of names                                  */
+
+typedef struct do_loop
+{
+   char do_variable[LONG_VNAME];
+   char do_begin[LONG_VNAME];
+   char do_end[LONG_VNAME];
+   char do_step[LONG_VNAME];
+} do_loop ;
+
+typedef struct listdoloop
+{
+   do_loop *cur_do_loop;
+   struct listdoloop* suiv;
+} listdoloop;
 
 typedef struct variable
@@ -68 +88 @@
    char v_commoninfile[LONG_FNAME];
    char v_subroutinename[LONG_VNAME];
+   listdoloop *v_do_loop;
    char v_precision[LONG_C];
-   char v_initialvalue[LONG_M];
+   listname *v_initialvalue;
+   listname *v_initialvalue_array;
    char v_IntentSpec[LONG_M];
    char v_readedlistdimension[LONG_M];
@@ -126 +148 @@
 } listparameter ;           /* list of names                                  */
 
-typedef struct listname
-{
-   char n_name[LONG_VNAME];
-   struct  listname* suiv;
-} listname ;            /* list of names                                  */
-
 typedef struct listcouple
 {
@@ -198 +214 @@
  listname *List_Pointer_Var;
  listname *List_ImplicitNoneSubroutine;
+ 
+ listname *List_Do_labels; 
+ /* A list that contains the do labels if any */
 
  listusemodule *List_NameOfModuleUsed;
@@ -321 +340 @@
  char curmodulename[LONG_VNAME];
  char subroutinename[LONG_VNAME];
+ char old_subroutinename[LONG_VNAME]; // For internal subprogramm
  char cur_filename[LONG_FNAME];     // Name of the current parsed Fortran file
  char config_file[LONG_FNAME];      // Name of conv configuration file (ex: amr.in)
@@ -331 +351 @@
  FILE *fortran_in;           /* Input File                                     */
  FILE *oldfortran_out;
+ FILE *old_oldfortran_out; // For internal subprogramm
  FILE *subloop;
  FILE *module_declar;
@@ -433 +454 @@
 /******************************************************************************/
 extern void WriteBeginof_SubLoop();
-extern void WriteVariablelist_subloop(char *ligne);
-extern void WriteVariablelist_subloop_Call(char **ligne, size_t line_length);
-extern void WriteVariablelist_subloop_Def(char *ligne);
+extern void WriteVariablelist_subloop(char **ligne, size_t *line_length);
+extern void WriteVariablelist_subloop_Call(char **ligne, size_t *line_length);
+extern void WriteVariablelist_subloop_Def(char **ligne, size_t *line_length);
 extern void WriteHeadofSubroutineLoop();
 extern void closeandcallsubloopandincludeit_0(int suborfun);
@@ -516 +537 @@
 extern int varistyped_0(char *ident);
 extern void dump_var(const variable* var);
+extern void removenewline(char *nom);
 /******************************************************************************/
 /*********** UtilListe.c ******************************************************/
@@ -532 +554 @@
 extern int IsinListe(listvar *lin,char *nom);
 extern listname *Insertname(listname *lin,char *nom,int sens);
+extern int testandextractfromlist(listname **lin, char*nom);
+extern void removefromlist(listname **lin, char*nom);
 extern listname *concat_listname(listname *l1, listname *l2);
 extern void createstringfromlistname(char *ligne, listname *lin);
@@ -540 +564 @@
 extern void  addprecision_derivedfromkind(variable *curvar);
 extern int get_cat_var(variable *var);
+extern void Insertdoloop(variable *var,char *do_var, char *do_begin, char *do_end, char *do_step);
 /******************************************************************************/
 /*********** UtilNotGridDep.c *************************************************/
@@ -560 +585 @@
 /******************************************************************************/
 extern void Add_Data_Var_1 (listvar **curlist,char *name,char *values);
-extern void Add_Data_Var_Names_01 (listvar **curlist,listname *l1, listname *l2);
+extern void Add_Data_Var_Names_01 (listvar **curlist,listvar *l1, listname *l2);
 /******************************************************************************/
 /*********** WorkWithlistmoduleinfile.c ***************************************/
@@ -641 +666 @@
 extern void WriteArgumentDeclaration_beforecall();
 extern void WriteArgumentDeclaration_Sort(FILE* tofile);
-extern listnom * writedeclarationintoamr(listvar *deb_common, FILE *fileout, variable *var,
-                  const char *commonname, listnom *neededparameter, const char *name_common);
+extern int writedeclarationintoamr(listvar *deb_common, FILE *fileout, variable *var,
+                  const char *commonname, listnom **neededparameter, const char *name_common, int global_check);
 extern void writesub_loopdeclaration_scalar(listvar *deb_common, FILE *fileout);
 extern void writesub_loopdeclaration_tab(listvar *deb_common, FILE *fileout);

vendors/AGRIF/CMEMS_2020/LIB/fortran.c

@@ -45 +45 @@
 
 /* Bison version.  */
+#define YYBISON_VERSION "2.7"
 
 /* Skeleton name.  */
@@ -79 +80 @@
 
 extern int line_num_input;
-extern char *fortran_text;
 
 char c_selectorname[LONG_M];
@@ -87 +87 @@
 int c_selectorgiven=0;
 listvar *curlistvar;
+int in_select_case_stmt=0;
 typedim c_selectordim;
 listcouple *coupletmp;
 int removeline=0;
+int token_since_endofstmt = 0;
+int increment_nbtokens = 1;
+int in_complex_literal = 0;
+int close_or_connect = 0;
+long int my_position;
+long int my_position_before;
+int suborfun = 0;
+int indeclaration = 0;
+int endoffile = 0;
+int in_inquire = 0;
+int in_char_selector = 0;
+int in_kind_selector =0;
+int char_length_toreset = 0;
+
+typedim my_dim;
+
 listvar *test;
+
+char linebuf1[1024];
+char linebuf2[1024];
 
 int fortran_error(const char *s)
 {
-    printf("%s line %d, file %s motclef = |%s|\n", s, line_num_input, cur_filename, fortran_text);
+  if (endoffile == 1) 
+  {
+  endoffile = 0;
+  return 0;
+  }
+    printf("%s line %d, file %s culprit = |%s|\n", s, line_num_input, cur_filename, strcat(linebuf1, linebuf2));
     exit(1);
 }
@@ -100 +125 @@
 
 /* Line 371 of yacc.c  */
-#line 104 "fortran.tab.c"
+#line 128 "fortran.tab.c"
 
 # ifndef YY_NULL
@@ -156 +181 @@
      TOK_PROGRAM = 279,
      TOK_FUNCTION = 280,
-     TOK_FORMAT = 281,
-     TOK_MAX = 282,
-     TOK_TANH = 283,
-     TOK_WHERE = 284,
-     TOK_ELSEWHEREPAR = 285,
-     TOK_ELSEWHERE = 286,
-     TOK_ENDWHERE = 287,
-     TOK_MAXVAL = 288,
-     TOK_TRIM = 289,
-     TOK_NULL_PTR = 290,
-     TOK_SUM = 291,
-     TOK_SQRT = 292,
-     TOK_CASE = 293,
-     TOK_SELECTCASE = 294,
-     TOK_FILE = 295,
-     TOK_UNIT = 296,
-     TOK_FMT = 297,
-     TOK_NML = 298,
-     TOK_END = 299,
-     TOK_EOR = 300,
-     TOK_ERR = 301,
-     TOK_EXIST = 302,
-     TOK_MIN = 303,
-     TOK_FLOAT = 304,
-     TOK_EXP = 305,
-     TOK_COS = 306,
-     TOK_COSH = 307,
-     TOK_ACOS = 308,
-     TOK_NINT = 309,
-     TOK_CYCLE = 310,
-     TOK_SIN = 311,
-     TOK_SINH = 312,
-     TOK_ASIN = 313,
-     TOK_EQUIVALENCE = 314,
-     TOK_BACKSPACE = 315,
-     TOK_LOG = 316,
-     TOK_TAN = 317,
-     TOK_ATAN = 318,
-     TOK_RECURSIVE = 319,
-     TOK_ABS = 320,
-     TOK_MOD = 321,
-     TOK_SIGN = 322,
-     TOK_MINLOC = 323,
-     TOK_MAXLOC = 324,
-     TOK_EXIT = 325,
-     TOK_MINVAL = 326,
-     TOK_PUBLIC = 327,
-     TOK_PRIVATE = 328,
-     TOK_ALLOCATABLE = 329,
-     TOK_RETURN = 330,
-     TOK_THEN = 331,
-     TOK_ELSEIF = 332,
-     TOK_ELSE = 333,
-     TOK_ENDIF = 334,
-     TOK_PRINT = 335,
-     TOK_PLAINGOTO = 336,
-     TOK_LOGICALIF = 337,
-     TOK_PLAINDO = 338,
-     TOK_CONTAINS = 339,
-     TOK_ENDDO = 340,
-     TOK_MODULE = 341,
-     TOK_ENDMODULE = 342,
-     TOK_WHILE = 343,
-     TOK_CONCURRENT = 344,
-     TOK_ALLOCATE = 345,
-     TOK_OPEN = 346,
-     TOK_CLOSE = 347,
-     TOK_INQUIRE = 348,
-     TOK_WRITE = 349,
-     TOK_FLUSH = 350,
-     TOK_READ = 351,
-     TOK_REWIND = 352,
-     TOK_DEALLOCATE = 353,
-     TOK_NULLIFY = 354,
-     TOK_DIMENSION = 355,
-     TOK_ENDSELECT = 356,
-     TOK_EXTERNAL = 357,
-     TOK_INTENT = 358,
-     TOK_INTRINSIC = 359,
-     TOK_NAMELIST = 360,
-     TOK_DEFAULT = 361,
-     TOK_OPTIONAL = 362,
-     TOK_POINTER = 363,
-     TOK_CONTINUE = 364,
-     TOK_SAVE = 365,
-     TOK_TARGET = 366,
-     TOK_IMPLICIT = 367,
-     TOK_NONE = 368,
-     TOK_CALL = 369,
-     TOK_STAT = 370,
-     TOK_POINT_TO = 371,
-     TOK_COMMON = 372,
-     TOK_GLOBAL = 373,
-     TOK_LEFTAB = 374,
-     TOK_RIGHTAB = 375,
-     TOK_PAUSE = 376,
-     TOK_PROCEDURE = 377,
-     TOK_STOP = 378,
-     TOK_REAL8 = 379,
-     TOK_FOURDOTS = 380,
-     TOK_HEXA = 381,
-     TOK_ASSIGNTYPE = 382,
-     TOK_OUT = 383,
-     TOK_INOUT = 384,
-     TOK_IN = 385,
-     TOK_USE = 386,
-     TOK_TRUE = 387,
-     TOK_FALSE = 388,
-     TOK_LABEL = 389,
-     TOK_TYPE = 390,
-     TOK_TYPEPAR = 391,
-     TOK_ENDTYPE = 392,
-     TOK_REAL = 393,
-     TOK_INTEGER = 394,
-     TOK_LOGICAL = 395,
-     TOK_DOUBLEPRECISION = 396,
-     TOK_ENDSUBROUTINE = 397,
-     TOK_ENDFUNCTION = 398,
-     TOK_ENDPROGRAM = 399,
-     TOK_ENDUNIT = 400,
-     TOK_CHARACTER = 401,
-     TOK_CHAR_CONSTANT = 402,
-     TOK_CHAR_CUT = 403,
-     TOK_DATA = 404,
-     TOK_CHAR_MESSAGE = 405,
-     TOK_CSTREAL = 406,
-     TOK_COMPLEX = 407,
-     TOK_DOUBLECOMPLEX = 408,
-     TOK_NAME = 409,
-     TOK_CSTINT = 410
+     TOK_LABEL_FORMAT = 281,
+     TOK_LABEL_CONTINUE = 282,
+     TOK_LABEL_END_DO = 283,
+     TOK_MAX = 284,
+     TOK_TANH = 285,
+     TOK_COMMENT = 286,
+     TOK_WHERE = 287,
+     TOK_ELSEWHEREPAR = 288,
+     TOK_ELSEWHERE = 289,
+     TOK_ENDWHERE = 290,
+     TOK_MAXVAL = 291,
+     TOK_TRIM = 292,
+     TOK_NULL_PTR = 293,
+     TOK_SUM = 294,
+     TOK_SQRT = 295,
+     TOK_CASE = 296,
+     TOK_SELECTCASE = 297,
+     TOK_FILE = 298,
+     TOK_REC = 299,
+     TOK_NAME_EQ = 300,
+     TOK_IOLENGTH = 301,
+     TOK_ACCESS = 302,
+     TOK_ACTION = 303,
+     TOK_FORM = 304,
+     TOK_RECL = 305,
+     TOK_STATUS = 306,
+     TOK_UNIT = 307,
+     TOK_OPENED = 308,
+     TOK_FMT = 309,
+     TOK_NML = 310,
+     TOK_END = 311,
+     TOK_EOR = 312,
+     TOK_EOF = 313,
+     TOK_ERR = 314,
+     TOK_POSITION = 315,
+     TOK_IOSTAT = 316,
+     TOK_IOMSG = 317,
+     TOK_EXIST = 318,
+     TOK_MIN = 319,
+     TOK_FLOAT = 320,
+     TOK_EXP = 321,
+     TOK_LEN = 322,
+     TOK_COS = 323,
+     TOK_COSH = 324,
+     TOK_ACOS = 325,
+     TOK_NINT = 326,
+     TOK_CYCLE = 327,
+     TOK_SIN = 328,
+     TOK_SINH = 329,
+     TOK_ASIN = 330,
+     TOK_EQUIVALENCE = 331,
+     TOK_BACKSPACE = 332,
+     TOK_LOG = 333,
+     TOK_TAN = 334,
+     TOK_ATAN = 335,
+     TOK_RECURSIVE = 336,
+     TOK_ABS = 337,
+     TOK_MOD = 338,
+     TOK_SIGN = 339,
+     TOK_MINLOC = 340,
+     TOK_MAXLOC = 341,
+     TOK_EXIT = 342,
+     TOK_KIND = 343,
+     TOK_MOLD = 344,
+     TOK_SOURCE = 345,
+     TOK_ERRMSG = 346,
+     TOK_MINVAL = 347,
+     TOK_PUBLIC = 348,
+     TOK_PRIVATE = 349,
+     TOK_ALLOCATABLE = 350,
+     TOK_RETURN = 351,
+     TOK_THEN = 352,
+     TOK_ELSEIF = 353,
+     TOK_ELSE = 354,
+     TOK_ENDIF = 355,
+     TOK_PRINT = 356,
+     TOK_PLAINGOTO = 357,
+     TOK_LOGICALIF = 358,
+     TOK_LOGICALIF_PAR = 359,
+     TOK_PLAINDO = 360,
+     TOK_CONTAINS = 361,
+     TOK_ENDDO = 362,
+     TOK_MODULE = 363,
+     TOK_ENDMODULE = 364,
+     TOK_WHILE = 365,
+     TOK_CONCURRENT = 366,
+     TOK_ALLOCATE = 367,
+     TOK_OPEN = 368,
+     TOK_CLOSE = 369,
+     TOK_INQUIRE = 370,
+     TOK_WRITE_PAR = 371,
+     TOK_WRITE = 372,
+     TOK_FLUSH = 373,
+     TOK_READ_PAR = 374,
+     TOK_READ = 375,
+     TOK_REWIND = 376,
+     TOK_DEALLOCATE = 377,
+     TOK_NULLIFY = 378,
+     TOK_DIMENSION = 379,
+     TOK_ENDSELECT = 380,
+     TOK_EXTERNAL = 381,
+     TOK_INTENT = 382,
+     TOK_INTRINSIC = 383,
+     TOK_NAMELIST = 384,
+     TOK_DEFAULT = 385,
+     TOK_OPTIONAL = 386,
+     TOK_POINTER = 387,
+     TOK_CONTINUE = 388,
+     TOK_SAVE = 389,
+     TOK_TARGET = 390,
+     TOK_IMPLICIT = 391,
+     TOK_NONE = 392,
+     TOK_CALL = 393,
+     TOK_STAT = 394,
+     TOK_POINT_TO = 395,
+     TOK_COMMON = 396,
+     TOK_GLOBAL = 397,
+     TOK_LEFTAB = 398,
+     TOK_RIGHTAB = 399,
+     TOK_PAUSE = 400,
+     TOK_PROCEDURE = 401,
+     TOK_STOP = 402,
+     TOK_FOURDOTS = 403,
+     TOK_HEXA = 404,
+     TOK_ASSIGNTYPE = 405,
+     TOK_OUT = 406,
+     TOK_INOUT = 407,
+     TOK_IN = 408,
+     TOK_USE = 409,
+     TOK_EQUALEQUAL = 410,
+     TOK_SLASHEQUAL = 411,
+     TOK_INFEQUAL = 412,
+     TOK_SUPEQUAL = 413,
+     TOK_TRUE = 414,
+     TOK_FALSE = 415,
+     TOK_LABEL = 416,
+     TOK_LABEL_DJVIEW = 417,
+     TOK_PLAINDO_LABEL_DJVIEW = 418,
+     TOK_PLAINDO_LABEL = 419,
+     TOK_TYPE = 420,
+     TOK_TYPEPAR = 421,
+     TOK_ENDTYPE = 422,
+     TOK_COMMACOMPLEX = 423,
+     TOK_REAL = 424,
+     TOK_INTEGER = 425,
+     TOK_LOGICAL = 426,
+     TOK_DOUBLEPRECISION = 427,
+     TOK_ENDSUBROUTINE = 428,
+     TOK_ENDFUNCTION = 429,
+     TOK_ENDPROGRAM = 430,
+     TOK_ENDUNIT = 431,
+     TOK_CHARACTER = 432,
+     TOK_CHAR_CONSTANT = 433,
+     TOK_CHAR_CUT = 434,
+     TOK_DATA = 435,
+     TOK_CHAR_MESSAGE = 436,
+     TOK_CSTREAL = 437,
+     TOK_COMPLEX = 438,
+     TOK_DOUBLECOMPLEX = 439,
+     TOK_NAME = 440,
+     TOK_CSTINT = 441
    };
 #endif
@@ -294 +350 @@
 {
 /* Line 387 of yacc.c  */
-#line 65 "fortran.y"
+#line 89 "fortran.y"
 
     char        na[LONG_M];
@@ -306 +362 @@
 
 /* Line 387 of yacc.c  */
-#line 310 "fortran.tab.c"
+#line 365 "fortran.tab.c"
 } YYSTYPE;
 # define YYSTYPE_IS_TRIVIAL 1
@@ -334 +390 @@
 
 /* Line 390 of yacc.c  */
-#line 338 "fortran.tab.c"
+#line 393 "fortran.tab.c"
 
 #ifdef short
@@ -554 +610 @@
 #define YYFINAL  2
 /* YYLAST -- Last index in YYTABLE.  */
-#define YYLAST   6268
+#define YYLAST   4537
 
 /* YYNTOKENS -- Number of terminals.  */
-#define YYNTOKENS  169
+#define YYNTOKENS  203
 /* YYNNTS -- Number of nonterminals.  */
-#define YYNNTS  206
+#define YYNNTS  518
 /* YYNRULES -- Number of rules.  */
-#define YYNRULES  597
+#define YYNRULES  1063
 /* YYNRULES -- Number of states.  */
-#define YYNSTATES  1051
+#define YYNSTATES  1719
 
 /* YYTRANSLATE(YYLEX) -- Bison symbol number corresponding to YYLEX.  */
 #define YYUNDEFTOK  2
-#define YYMAXUTOK   410
+#define YYMAXUTOK   441
 
 #define YYTRANSLATE(YYX)                  \
@@ -576 +632 @@
 {
        0,     2,     2,     2,     2,     2,     2,     2,     2,     2,
-     166,     2,     2,     2,     2,     2,     2,     2,     2,     2,
+     197,     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,   168,     2,     2,
-     162,   163,    21,    19,     3,    20,     2,   167,     2,     2,
+       2,     2,     2,     2,     2,     2,     2,   199,     2,     2,
+     193,   194,    21,    19,     3,    20,     2,   198,     2,     2,
        2,     2,     2,     2,     2,     2,     2,     2,     4,     2,
-     164,     5,   165,     2,     2,     2,     2,     2,     2,     2,
+     195,     5,   196,     2,     2,     2,     2,     2,     2,     2,
        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
-       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
+       2,   201,     2,   202,     2,   200,     2,     2,     2,     2,
        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
@@ -616 +672 @@
      141,   142,   143,   144,   145,   146,   147,   148,   149,   150,
      151,   152,   153,   154,   155,   156,   157,   158,   159,   160,
-     161
+     161,   162,   163,   164,   165,   166,   167,   168,   169,   170,
+     171,   172,   173,   174,   175,   176,   177,   178,   179,   180,
+     181,   182,   183,   184,   185,   186,   187,   188,   189,   190,
+     191,   192
 };
 
@@ -624 +683 @@
 static const yytype_uint16 yyprhs[] =
 {
-       0,     0,     3,     4,     7,     9,    11,    14,    16,    19,
-      21,    25,    28,    31,    33,    37,    41,    44,    47,    51,
-      53,    54,    55,    57,    58,    61,    66,    69,    75,    78,
-      80,    83,    85,    87,    88,    91,    95,    96,    99,   103,
-     105,   109,   111,   113,   116,   121,   124,   127,   132,   135,
-     137,   139,   141,   143,   145,   147,   149,   151,   153,   158,
-     162,   166,   169,   172,   173,   175,   177,   179,   181,   183,
-     185,   187,   189,   191,   193,   195,   197,   199,   201,   203,
-     205,   207,   209,   211,   213,   215,   217,   219,   221,   223,
-     225,   229,   233,   239,   241,   245,   249,   252,   257,   259,
-     263,   264,   266,   269,   273,   275,   277,   280,   282,   286,
-     291,   296,   305,   307,   311,   314,   318,   324,   328,   330,
-     331,   334,   336,   341,   345,   348,   352,   356,   360,   364,
-     365,   367,   370,   374,   380,   384,   386,   392,   398,   401,
-     405,   408,   412,   414,   416,   420,   424,   427,   431,   437,
-     439,   442,   444,   448,   451,   453,   457,   458,   460,   462,
-     466,   470,   473,   475,   479,   482,   485,   491,   498,   499,
-     502,   505,   509,   513,   514,   517,   522,   526,   530,   535,
-     538,   540,   542,   544,   546,   548,   550,   552,   553,   556,
-     558,   562,   563,   566,   570,   572,   576,   579,   583,   585,
-     587,   589,   591,   593,   594,   598,   599,   601,   605,   607,
-     611,   613,   615,   617,   620,   622,   627,   629,   631,   633,
-     635,   637,   639,   641,   643,   645,   647,   648,   652,   654,
-     658,   660,   662,   665,   668,   672,   674,   676,   678,   680,
-     682,   686,   690,   694,   699,   704,   708,   713,   718,   722,
-     727,   732,   737,   742,   747,   752,   757,   762,   767,   772,
-     777,   782,   787,   791,   796,   800,   805,   810,   812,   816,
-     818,   820,   822,   825,   828,   831,   833,   835,   838,   841,
-     844,   847,   850,   853,   856,   859,   862,   866,   870,   873,
-     876,   879,   882,   885,   888,   891,   894,   897,   900,   901,
-     903,   906,   909,   912,   914,   916,   918,   920,   921,   923,
-     926,   931,   937,   942,   947,   951,   953,   956,   958,   962,
-     964,   966,   970,   976,   981,   985,   988,   991,   993,   995,
-     997,   999,  1001,  1003,  1005,  1007,  1010,  1013,  1015,  1018,
-    1020,  1022,  1023,  1025,  1031,  1032,  1034,  1036,  1038,  1039,
-    1042,  1045,  1051,  1054,  1059,  1066,  1073,  1075,  1077,  1081,
-    1085,  1087,  1091,  1095,  1097,  1099,  1101,  1103,  1105,  1107,
-    1109,  1111,  1113,  1116,  1118,  1120,  1123,  1126,  1129,  1133,
-    1136,  1142,  1148,  1151,  1154,  1157,  1160,  1162,  1167,  1169,
-    1172,  1175,  1178,  1181,  1183,  1185,  1187,  1189,  1195,  1202,
-    1203,  1207,  1208,  1213,  1214,  1219,  1224,  1226,  1228,  1230,
-    1232,  1234,  1238,  1243,  1245,  1248,  1250,  1253,  1254,  1255,
-    1258,  1262,  1264,  1269,  1271,  1273,  1278,  1281,  1287,  1291,
-    1295,  1297,  1302,  1305,  1312,  1321,  1327,  1331,  1333,  1335,
-    1337,  1339,  1341,  1344,  1351,  1352,  1354,  1357,  1361,  1362,
-    1364,  1367,  1371,  1379,  1385,  1391,  1398,  1400,  1403,  1405,
-    1408,  1414,  1419,  1420,  1422,  1425,  1429,  1436,  1441,  1444,
-    1448,  1450,  1453,  1457,  1459,  1461,  1465,  1467,  1470,  1473,
-    1477,  1479,  1481,  1483,  1485,  1487,  1489,  1491,  1493,  1495,
-    1496,  1501,  1509,  1511,  1515,  1518,  1521,  1524,  1525,  1529,
-    1530,  1532,  1535,  1538,  1540,  1542,  1546,  1548,  1551,  1553,
-    1555,  1556,  1558,  1561,  1564,  1565,  1568,  1572,  1576,  1580,
-    1582,  1586,  1588,  1590,  1594,  1596,  1598,  1600,  1604,  1610,
-    1615,  1618,  1621,  1622,  1624,  1626,  1628,  1630,  1632,  1634,
-    1636,  1638,  1640,  1644,  1646,  1648,  1652,  1656,  1660,  1664,
-    1667,  1671,  1674,  1677,  1680,  1683,  1686,  1689,  1692,  1696,
-    1698,  1700,  1702,  1704,  1708,  1711,  1716,  1719,  1722,  1728,
-    1729,  1731,  1734,  1736,  1738,  1740,  1742,  1746,  1750,  1754,
-    1758,  1762,  1766,  1772,  1778,  1784,  1790,  1798,  1807,  1810,
-    1812,  1816,  1818,  1820,  1824,  1825,  1830,  1832
+       0,     0,     3,     4,     7,     9,    11,    13,    16,    18,
+      20,    24,    27,    29,    33,    37,    39,    43,    45,    46,
+      48,    50,    52,    54,    56,    58,    59,    61,    63,    65,
+      68,    71,    74,    76,    78,    81,    84,    87,    90,    93,
+      96,    99,   102,   105,   109,   113,   116,   119,   122,   125,
+     128,   131,   134,   137,   140,   143,   144,   146,   149,   152,
+     155,   157,   159,   161,   163,   164,   166,   169,   170,   176,
+     177,   184,   186,   187,   193,   198,   200,   203,   205,   209,
+     211,   213,   217,   223,   228,   232,   235,   238,   240,   242,
+     244,   246,   248,   250,   252,   254,   257,   260,   262,   265,
+     267,   269,   270,   272,   273,   275,   278,   279,   281,   282,
+     284,   286,   289,   291,   293,   295,   297,   299,   301,   303,
+     305,   307,   309,   311,   313,   314,   316,   319,   320,   322,
+     324,   327,   329,   331,   332,   334,   338,   339,   341,   343,
+     346,   348,   350,   352,   354,   356,   358,   360,   362,   364,
+     366,   368,   370,   372,   374,   376,   378,   380,   382,   384,
+     386,   388,   390,   392,   394,   396,   398,   401,   406,   409,
+     411,   413,   415,   417,   419,   421,   423,   425,   427,   429,
+     431,   433,   435,   437,   439,   441,   443,   445,   447,   449,
+     451,   453,   454,   456,   458,   460,   461,   463,   465,   467,
+     469,   471,   472,   475,   479,   483,   484,   488,   489,   493,
+     494,   498,   499,   503,   504,   508,   509,   513,   514,   516,
+     520,   526,   529,   531,   534,   536,   540,   542,   544,   546,
+     549,   551,   555,   561,   563,   565,   567,   569,   571,   573,
+     574,   577,   578,   580,   582,   592,   598,   604,   614,   618,
+     624,   627,   631,   635,   637,   639,   641,   643,   645,   647,
+     648,   653,   658,   666,   667,   670,   671,   674,   676,   680,
+     682,   684,   688,   690,   693,   697,   698,   700,   702,   705,
+     707,   712,   713,   715,   719,   721,   725,   727,   729,   734,
+     736,   738,   742,   747,   748,   752,   754,   756,   757,   759,
+     762,   765,   768,   770,   772,   777,   779,   783,   785,   789,
+     793,   798,   800,   804,   806,   810,   812,   814,   816,   820,
+     824,   826,   828,   830,   832,   836,   838,   840,   846,   852,
+     860,   862,   863,   864,   871,   872,   875,   876,   878,   881,
+     885,   887,   889,   890,   896,   898,   899,   905,   907,   909,
+     911,   913,   915,   917,   919,   923,   928,   930,   932,   933,
+     935,   938,   941,   944,   946,   948,   950,   951,   952,   957,
+     959,   961,   963,   965,   967,   969,   973,   977,   979,   981,
+     983,   985,   989,   991,   994,   996,  1000,  1002,  1006,  1007,
+    1010,  1011,  1014,  1016,  1020,  1023,  1025,  1027,  1029,  1030,
+    1035,  1036,  1039,  1041,  1045,  1047,  1049,  1050,  1056,  1057,
+    1059,  1062,  1066,  1071,  1073,  1077,  1079,  1083,  1085,  1087,
+    1097,  1109,  1111,  1115,  1117,  1119,  1121,  1123,  1126,  1129,
+    1132,  1134,  1136,  1138,  1140,  1142,  1143,  1146,  1148,  1150,
+    1152,  1154,  1156,  1158,  1160,  1162,  1164,  1165,  1166,  1173,
+    1174,  1180,  1181,  1189,  1190,  1191,  1199,  1201,  1205,  1209,
+    1210,  1211,  1218,  1219,  1221,  1222,  1224,  1226,  1230,  1232,
+    1234,  1236,  1238,  1239,  1244,  1245,  1251,  1253,  1257,  1262,
+    1264,  1268,  1270,  1274,  1282,  1283,  1290,  1292,  1296,  1298,
+    1302,  1304,  1308,  1309,  1316,  1318,  1322,  1324,  1326,  1328,
+    1329,  1330,  1338,  1339,  1341,  1343,  1347,  1348,  1350,  1351,
+    1356,  1358,  1362,  1364,  1365,  1371,  1373,  1375,  1377,  1379,
+    1381,  1383,  1385,  1387,  1389,  1391,  1393,  1395,  1397,  1399,
+    1401,  1406,  1411,  1415,  1418,  1419,  1423,  1425,  1426,  1432,
+    1434,  1436,  1438,  1440,  1445,  1446,  1448,  1452,  1455,  1457,
+    1460,  1464,  1469,  1472,  1474,  1478,  1483,  1486,  1488,  1491,
+    1495,  1500,  1503,  1504,  1506,  1507,  1508,  1517,  1518,  1521,
+    1523,  1527,  1530,  1534,  1536,  1538,  1540,  1544,  1547,  1549,
+    1551,  1552,  1556,  1558,  1562,  1565,  1566,  1569,  1571,  1573,
+    1574,  1575,  1584,  1586,  1590,  1591,  1594,  1596,  1600,  1603,
+    1607,  1609,  1611,  1613,  1615,  1619,  1621,  1623,  1627,  1629,
+    1633,  1635,  1638,  1642,  1644,  1647,  1649,  1651,  1653,  1655,
+    1657,  1659,  1663,  1665,  1667,  1671,  1673,  1675,  1677,  1679,
+    1681,  1683,  1685,  1687,  1689,  1691,  1693,  1695,  1697,  1700,
+    1702,  1706,  1708,  1712,  1714,  1718,  1720,  1722,  1724,  1726,
+    1728,  1730,  1732,  1734,  1736,  1737,  1739,  1741,  1743,  1745,
+    1747,  1749,  1751,  1753,  1758,  1764,  1770,  1778,  1783,  1784,
+    1788,  1790,  1794,  1796,  1800,  1803,  1807,  1809,  1811,  1815,
+    1817,  1819,  1821,  1827,  1833,  1834,  1837,  1838,  1842,  1843,
+    1847,  1853,  1855,  1857,  1859,  1861,  1863,  1868,  1874,  1877,
+    1881,  1884,  1888,  1889,  1891,  1892,  1895,  1897,  1899,  1901,
+    1905,  1909,  1914,  1917,  1923,  1927,  1932,  1935,  1941,  1945,
+    1950,  1953,  1959,  1963,  1970,  1979,  1985,  1989,  1991,  1993,
+    1995,  1998,  2002,  2007,  2009,  2011,  2015,  2018,  2020,  2022,
+    2024,  2026,  2028,  2030,  2032,  2035,  2040,  2042,  2044,  2046,
+    2048,  2050,  2052,  2054,  2056,  2061,  2065,  2068,  2072,  2076,
+    2079,  2080,  2082,  2086,  2092,  2093,  2095,  2098,  2101,  2102,
+    2104,  2107,  2110,  2119,  2126,  2133,  2141,  2144,  2148,  2151,
+    2155,  2161,  2165,  2166,  2168,  2171,  2174,  2175,  2184,  2185,
+    2192,  2196,  2201,  2202,  2206,  2207,  2212,  2213,  2218,  2220,
+    2222,  2226,  2228,  2231,  2234,  2238,  2240,  2243,  2247,  2251,
+    2262,  2266,  2269,  2273,  2275,  2277,  2279,  2281,  2283,  2285,
+    2287,  2288,  2289,  2297,  2299,  2303,  2305,  2308,  2311,  2314,
+    2317,  2320,  2323,  2326,  2329,  2332,  2336,  2338,  2340,  2341,
+    2348,  2350,  2354,  2356,  2359,  2362,  2365,  2369,  2375,  2382,
+    2387,  2394,  2400,  2407,  2412,  2419,  2421,  2425,  2427,  2429,
+    2432,  2434,  2436,  2439,  2442,  2445,  2448,  2451,  2454,  2457,
+    2459,  2461,  2463,  2465,  2469,  2471,  2473,  2475,  2479,  2481,
+    2483,  2489,  2491,  2495,  2497,  2499,  2505,  2513,  2517,  2523,
+    2525,  2529,  2531,  2534,  2537,  2540,  2543,  2547,  2553,  2555,
+    2559,  2561,  2564,  2567,  2570,  2573,  2574,  2582,  2583,  2593,
+    2594,  2596,  2600,  2602,  2605,  2608,  2611,  2614,  2617,  2620,
+    2623,  2627,  2630,  2633,  2636,  2637,  2643,  2644,  2646,  2647,
+    2652,  2653,  2660,  2661,  2663,  2664,  2666,  2669,  2670,  2672,
+    2674,  2677,  2679,  2681,  2683,  2686,  2687,  2688,  2697,  2698,
+    2710,  2711,  2713,  2717,  2718,  2720,  2726,  2727,  2729,  2730,
+    2732,  2733,  2738,  2739,  2740,  2747,  2748,  2750,  2751,  2753,
+    2755,  2756,  2759,  2761,  2765,  2769,  2771,  2775,  2777,  2779,
+    2781,  2783,  2785,  2789,  2794,  2796,  2800,  2802,  2807,  2809,
+    2813,  2815,  2819,  2820,  2826,  2827,  2831,  2832,  2838,  2839,
+    2840,  2848,  2849,  2854,  2856,  2858,  2860,  2862,  2866,  2868,
+    2872,  2874,  2876,  2878,  2879,  2881,  2883,  2886,  2888,  2890,
+    2892,  2898,  2899,  2900,  2911,  2913,  2915,  2916,  2918,  2923,
+    2924,  2932,  2933,  2935,  2941,  2942,  2949,  2951,  2958,  2959,
+    2960,  2962,  2963,  2964,  2969,  2970,  2972,  2974,  2978,  2980,
+    2982,  2986,  2991,  2992,  2997,  2999,  3001,  3005,  3009,  3011,
+    3015,  3017,  3018,  3020
 };
 
@@ -689 +795 @@
 static const yytype_int16 yyrhs[] =
 {
-     170,     0,    -1,    -1,   170,   171,    -1,   172,    -1,   173,
-      -1,   140,   173,    -1,     1,    -1,   166,   175,    -1,    24,
-      -1,   172,   166,   175,    -1,   172,    24,    -1,   172,   140,
-      -1,   174,    -1,   173,    24,   166,    -1,   173,    24,   174,
-      -1,   178,   175,    -1,   186,   175,    -1,    28,   181,   175,
-      -1,   282,    -1,    -1,    -1,    70,    -1,    -1,    26,   183,
-      -1,   176,    29,   180,   182,    -1,    30,   180,    -1,   176,
-      31,   180,   182,   177,    -1,    92,   160,    -1,   161,    -1,
-     179,   161,    -1,   160,    -1,   153,    -1,    -1,   162,   163,
-      -1,   162,   184,   163,    -1,    -1,   162,   163,    -1,   162,
-     184,   163,    -1,   185,    -1,   184,     3,   185,    -1,   160,
-      -1,    21,    -1,   228,   196,    -1,   141,   187,   195,   336,
-      -1,   143,   336,    -1,   114,   190,    -1,   198,   162,   221,
-     163,    -1,   198,   221,    -1,   215,    -1,   203,    -1,   225,
-      -1,   211,    -1,   213,    -1,   212,    -1,   276,    -1,   223,
-      -1,   209,    -1,    66,   162,   249,   163,    -1,   108,   195,
-     214,    -1,   110,   195,   189,    -1,    65,   191,    -1,   199,
-     166,    -1,    -1,   244,    -1,    42,    -1,    34,    -1,    39,
-      -1,    54,    -1,    77,    -1,    40,    -1,    43,    -1,    60,
-      -1,    55,    -1,    56,    -1,    57,    -1,    58,    -1,    59,
-      -1,    62,    -1,    63,    -1,    64,    -1,    67,    -1,    68,
-      -1,    69,    -1,    72,    -1,    73,    -1,    74,    -1,    75,
-      -1,   160,    -1,   188,    -1,   189,     3,   188,    -1,   162,
-     194,   163,    -1,   190,     3,   162,   194,   163,    -1,   192,
-      -1,   191,     3,   192,    -1,   162,   193,   163,    -1,   267,
-     245,    -1,   193,     3,   267,   245,    -1,   249,    -1,   194,
-       3,   249,    -1,    -1,   131,    -1,   226,   227,    -1,   197,
-     180,   182,    -1,    31,    -1,    25,    -1,   155,   200,    -1,
-     201,    -1,   200,   220,   201,    -1,   160,    22,   202,    22,
-      -1,   206,    22,   202,    22,    -1,   162,   257,     3,   368,
-     163,    22,   202,    22,    -1,   207,    -1,   207,     3,   202,
-      -1,   204,   205,    -1,   204,   219,   205,    -1,   203,   220,
-     219,   220,   205,    -1,   203,     3,   205,    -1,   116,    -1,
-      -1,   160,   245,    -1,   160,    -1,   160,   162,   249,   163,
-      -1,   206,     3,   206,    -1,   208,   268,    -1,   207,    19,
-     207,    -1,   207,    20,   207,    -1,   207,    21,   207,    -1,
-     207,   167,   207,    -1,    -1,   253,    -1,   111,   267,    -1,
-     111,   219,   267,    -1,   209,   220,   219,   220,   267,    -1,
-     209,     3,   267,    -1,   106,    -1,   210,   220,   160,   245,
-     233,    -1,   211,     3,   160,   245,   233,    -1,    79,   166,
-      -1,    79,   195,   214,    -1,    78,   166,    -1,    78,   195,
-     214,    -1,   160,    -1,   133,    -1,   214,     3,   160,    -1,
-     214,     3,   133,    -1,   216,   217,    -1,   216,   219,   217,
-      -1,   215,   220,   219,   220,   217,    -1,   123,    -1,   124,
-     123,    -1,   218,    -1,   217,     3,   218,    -1,   160,   245,
-      -1,    18,    -1,    22,   160,    22,    -1,    -1,     3,    -1,
-     222,    -1,   221,     3,   222,    -1,   160,     5,   249,    -1,
-     128,   224,    -1,   160,    -1,   224,     3,   160,    -1,   118,
-     119,    -1,   118,   130,    -1,   240,   160,   245,   233,   274,
-      -1,   226,     3,   160,   245,   233,   274,    -1,    -1,   232,
-     235,    -1,   231,   229,    -1,   232,    21,   161,    -1,   142,
-     237,   163,    -1,    -1,    21,   161,    -1,    21,   162,   230,
-     163,    -1,   162,   230,   163,    -1,   160,   238,   239,    -1,
-     160,     5,   238,   239,    -1,   238,   239,    -1,   152,    -1,
-     145,    -1,   146,    -1,   144,    -1,   158,    -1,   159,    -1,
-     147,    -1,    -1,    21,   234,    -1,   249,    -1,   162,    21,
-     163,    -1,    -1,    21,   236,    -1,   162,   237,   163,    -1,
-     249,    -1,   162,    21,   163,    -1,   160,   238,    -1,   160,
-       5,   238,    -1,   160,    -1,   161,    -1,   133,    -1,   249,
-      -1,    21,    -1,    -1,     3,   160,   238,    -1,    -1,   131,
-      -1,     3,   241,   131,    -1,   242,    -1,   241,     3,   242,
-      -1,    25,    -1,   244,    -1,    80,    -1,   106,   245,    -1,
-     108,    -1,   109,   162,   243,   163,    -1,   110,    -1,   113,
-      -1,   114,    -1,   116,    -1,   117,    -1,   136,    -1,   134,
-      -1,   135,    -1,    78,    -1,    79,    -1,    -1,   162,   246,
-     163,    -1,   247,    -1,   246,     3,   247,    -1,   248,    -1,
-       4,    -1,   249,     4,    -1,     4,   249,    -1,   249,     4,
-     248,    -1,    21,    -1,   249,    -1,   252,    -1,   275,    -1,
-     250,    -1,   162,   249,   163,    -1,    42,   251,   163,    -1,
-      33,   251,   163,    -1,    34,   162,   251,   163,    -1,    39,
-     162,   251,   163,    -1,    54,   251,   163,    -1,    77,   162,
-     251,   163,    -1,    40,   162,   249,   163,    -1,    43,   249,
-     163,    -1,   144,   162,   251,   163,    -1,    60,   162,   249,
-     163,    -1,    55,   162,   249,   163,    -1,    56,   162,   249,
-     163,    -1,    57,   162,   249,   163,    -1,    58,   162,   249,
-     163,    -1,    59,   162,   249,   163,    -1,    62,   162,   249,
-     163,    -1,    63,   162,   249,   163,    -1,    64,   162,   249,
-     163,    -1,    67,   162,   249,   163,    -1,    68,   162,   249,
-     163,    -1,    69,   162,   249,   163,    -1,    71,   249,   163,
-      -1,    72,   162,   251,   163,    -1,    73,   251,   163,    -1,
-      74,   162,   251,   163,    -1,    75,   162,   251,   163,    -1,
-     249,    -1,   251,     3,   249,    -1,   257,    -1,   268,    -1,
-     262,    -1,   249,   254,    -1,   253,   249,    -1,    11,   249,
-      -1,    19,    -1,    20,    -1,    19,   249,    -1,    20,   249,
-      -1,    21,   249,    -1,    23,   249,    -1,    13,   249,    -1,
-       7,   249,    -1,    16,   249,    -1,   165,   249,    -1,   164,
-     249,    -1,   165,     5,   249,    -1,   164,     5,   249,    -1,
-      17,   249,    -1,    14,   249,    -1,    15,   249,    -1,    12,
-     249,    -1,     6,   249,    -1,     8,   249,    -1,     9,   249,
-      -1,    10,   249,    -1,    22,   255,    -1,     5,   256,    -1,
-      -1,   249,    -1,     5,   249,    -1,    22,   249,    -1,     5,
-     249,    -1,   249,    -1,   267,    -1,   261,    -1,   259,    -1,
-      -1,   260,    -1,   260,   271,    -1,   261,   162,   263,   163,
-      -1,   261,   162,   263,   163,   271,    -1,   267,   162,   263,
-     163,    -1,   257,   168,   356,   257,    -1,   125,   366,   126,
-      -1,   258,    -1,   258,   264,    -1,   265,    -1,   264,     3,
-     265,    -1,   249,    -1,   266,    -1,   249,     4,   249,    -1,
-     249,     4,   249,     4,   249,    -1,     4,   249,     4,   249,
-      -1,     4,     4,   249,    -1,     4,   249,    -1,   249,     4,
-      -1,     4,    -1,   160,    -1,   138,    -1,   139,    -1,    41,
-      -1,   161,    -1,   157,    -1,   132,    -1,   268,   160,    -1,
-     269,   270,    -1,   153,    -1,   269,   153,    -1,   156,    -1,
-     154,    -1,    -1,   271,    -1,   162,   272,     4,   272,   163,
-      -1,    -1,   249,    -1,   166,    -1,   249,    -1,    -1,     5,
-     249,    -1,   122,   249,    -1,   162,   252,     3,   252,   163,
-      -1,   277,   160,    -1,   277,   160,     3,   278,    -1,   277,
-     160,     3,    27,     4,   166,    -1,   277,   160,     3,    27,
-       4,   280,    -1,   137,    -1,   279,    -1,   278,     3,   279,
-      -1,   160,   122,   160,    -1,   281,    -1,   280,     3,   281,
-      -1,   160,   122,   160,    -1,   160,    -1,   283,    -1,   331,
-      -1,   284,    -1,   300,    -1,   320,    -1,   310,    -1,   287,
-      -1,   115,    -1,   338,   340,    -1,   369,    -1,   341,    -1,
-     357,   352,    -1,   359,   350,    -1,   100,   352,    -1,   100,
-     352,   366,    -1,   103,   353,    -1,    96,   162,   370,   373,
-     163,    -1,   104,   162,   372,   373,   163,    -1,    76,   272,
-      -1,    81,   273,    -1,    61,   273,    -1,   348,   273,    -1,
-     339,    -1,   105,   162,   374,   163,    -1,   333,    -1,   334,
-     336,    -1,   332,   336,    -1,   335,   336,    -1,    93,   336,
-      -1,   319,    -1,   286,    -1,    90,    -1,   249,    -1,    35,
-     162,   294,   163,   293,    -1,   291,   172,   288,   289,   290,
-     297,    -1,    -1,   288,   292,   172,    -1,    -1,   289,   295,
-     172,   288,    -1,    -1,   290,   296,   172,   288,    -1,    35,
-     162,   294,   163,    -1,   293,    -1,   286,    -1,   287,    -1,
-     285,    -1,   249,    -1,    36,   294,   163,    -1,    36,   294,
-     163,   160,    -1,    37,    -1,    37,   160,    -1,    38,    -1,
-      38,   160,    -1,    -1,    -1,   299,   282,    -1,   299,   282,
-     172,    -1,   301,    -1,   302,   172,   307,   308,    -1,   303,
-      -1,   304,    -1,   160,     4,    89,   179,    -1,    89,   179,
-      -1,   160,     4,    89,   179,   305,    -1,    89,   179,   305,
-      -1,   160,     4,    89,    -1,    89,    -1,   160,     4,    89,
-     305,    -1,    89,   305,    -1,   220,   306,     5,   249,     3,
-     249,    -1,   220,   306,     5,   249,     3,   249,     3,   249,
-      -1,   220,    94,   162,   249,   163,    -1,   220,    95,   298,
-      -1,   267,    -1,   299,    -1,   309,    -1,   330,    -1,    91,
-      -1,    91,   160,    -1,   315,   172,   299,   311,   313,   318,
-      -1,    -1,   312,    -1,   311,   312,    -1,   316,   172,   299,
-      -1,    -1,   314,    -1,   313,   312,    -1,   317,   172,   299,
-      -1,   160,     4,    88,   162,   249,   163,    82,    -1,    88,
-     162,   249,   163,    82,    -1,    83,   162,   249,   163,    82,
-      -1,    83,   162,   249,   163,    82,   160,    -1,    84,    -1,
-      84,   160,    -1,    85,    -1,    85,   160,    -1,    88,   162,
-     249,   163,   284,    -1,   323,   172,   321,   325,    -1,    -1,
-     322,    -1,   321,   322,    -1,   324,   172,   299,    -1,   160,
-       4,    45,   162,   249,   163,    -1,    45,   162,   249,   163,
-      -1,    44,   326,    -1,    44,   326,   160,    -1,   107,    -1,
-     107,   160,    -1,   162,   327,   163,    -1,   112,    -1,   328,
-      -1,   327,     3,   328,    -1,   329,    -1,   329,     4,    -1,
-       4,   329,    -1,   329,     4,   329,    -1,   249,    -1,   115,
-      -1,    32,    -1,   148,    -1,   151,    -1,   150,    -1,   149,
-      -1,   166,    -1,   160,    -1,    -1,   267,   337,   245,   245,
-      -1,   338,   168,   356,   267,   337,   245,   245,    -1,   161,
-      -1,   339,     3,   161,    -1,     5,   249,    -1,   122,   249,
-      -1,   344,   342,    -1,    -1,   162,   343,   163,    -1,    -1,
-     346,    -1,   345,   101,    -1,   345,   160,    -1,   120,    -1,
-     347,    -1,   346,     3,   347,    -1,   249,    -1,    21,   161,
-      -1,   127,    -1,   129,    -1,    -1,   363,    -1,   352,   349,
-      -1,   358,   351,    -1,    -1,     3,   363,    -1,   162,   354,
-     163,    -1,   162,   267,   163,    -1,   162,   161,   163,    -1,
-     161,    -1,   162,   252,   163,    -1,   160,    -1,   355,    -1,
-     354,     3,   355,    -1,   360,    -1,    21,    -1,    23,    -1,
-     267,   249,   245,    -1,   267,   249,   168,   356,   338,    -1,
-     267,   162,   266,   163,    -1,   267,    21,    -1,   267,    23,
-      -1,    -1,    97,    -1,    98,    -1,   101,    -1,   361,    -1,
-      21,    -1,   102,    -1,    99,    -1,    86,    -1,   361,    -1,
-     162,   360,   163,    -1,   257,    -1,   268,    -1,   360,   362,
-     360,    -1,   360,    21,   360,    -1,   360,    22,   360,    -1,
-     360,    23,   360,    -1,   362,   360,    -1,   360,    18,   360,
-      -1,    46,   249,    -1,    47,   249,    -1,    49,   249,    -1,
-      48,   249,    -1,    53,   249,    -1,    52,   249,    -1,    50,
-     249,    -1,   160,     5,   249,    -1,   250,    -1,    19,    -1,
-      20,    -1,   364,    -1,   363,     3,   364,    -1,   257,   365,
-      -1,   162,   363,   163,   365,    -1,   250,   365,    -1,   268,
-     365,    -1,   162,   363,     3,   368,   163,    -1,    -1,   254,
-      -1,   365,   254,    -1,   275,    -1,   250,    -1,   252,    -1,
-     367,    -1,   252,     3,   249,    -1,   252,     3,   367,    -1,
-     367,     3,   249,    -1,   367,     3,   367,    -1,   366,     3,
-     249,    -1,   366,     3,   367,    -1,   162,   252,     3,   368,
-     163,    -1,   162,   366,     3,   368,   163,    -1,   162,   367,
-       3,   368,   163,    -1,   160,     5,   249,     3,   249,    -1,
-     160,     5,   249,     3,   249,     3,   249,    -1,    87,   162,
-     249,     3,   249,   163,     3,   249,    -1,    87,   161,    -1,
-     371,    -1,   370,     3,   371,    -1,   257,    -1,   371,    -1,
-     372,     3,   371,    -1,    -1,     3,   121,     5,   257,    -1,
-     267,    -1,   374,     3,   267,    -1
+     204,     0,    -1,    -1,   204,   205,    -1,   206,    -1,   207,
+      -1,     1,    -1,   197,   209,    -1,    24,    -1,    64,    -1,
+     206,   197,   209,    -1,   206,    24,    -1,   208,    -1,   207,
+      24,   197,    -1,   207,    24,   208,    -1,   210,    -1,    28,
+     212,   209,    -1,    37,    -1,    -1,   652,    -1,   211,    -1,
+     632,    -1,   691,    -1,   702,    -1,   184,    -1,    -1,     3,
+      -1,   219,    -1,   232,    -1,   501,   216,    -1,   215,   501,
+      -1,    11,   501,    -1,    19,    -1,    20,    -1,    19,   501,
+      -1,    20,   501,    -1,    21,   501,    -1,    23,   501,    -1,
+      13,   501,    -1,     7,   501,    -1,    16,   501,    -1,   196,
+     501,    -1,   195,   501,    -1,   196,     5,   501,    -1,   195,
+       5,   501,    -1,    17,   501,    -1,    14,   501,    -1,    15,
+     501,    -1,    12,   501,    -1,     6,   501,    -1,     8,   501,
+      -1,     9,   501,    -1,    10,   501,    -1,    22,   217,    -1,
+       5,   218,    -1,    -1,   501,    -1,     5,   501,    -1,    22,
+     501,    -1,     5,   501,    -1,   501,    -1,   231,    -1,   226,
+      -1,   221,    -1,    -1,   224,    -1,   224,   443,    -1,    -1,
+     226,   193,   222,   227,   194,    -1,    -1,   226,   193,   223,
+     227,   194,   443,    -1,   109,    -1,    -1,   231,   193,   225,
+     227,   194,    -1,   219,   199,   719,   219,    -1,   220,    -1,
+     220,   228,    -1,   229,    -1,   228,     3,   229,    -1,   501,
+      -1,   230,    -1,   501,     4,   501,    -1,   501,     4,   501,
+       4,   501,    -1,     4,   501,     4,   501,    -1,     4,     4,
+     501,    -1,     4,   501,    -1,   501,     4,    -1,     4,    -1,
+     191,    -1,   165,    -1,   166,    -1,    44,    -1,   192,    -1,
+     188,    -1,   155,    -1,   232,   191,    -1,   233,   234,    -1,
+     184,    -1,   233,   184,    -1,   187,    -1,   185,    -1,    -1,
+     443,    -1,    -1,   501,    -1,   237,   238,    -1,    -1,   645,
+      -1,    -1,   239,    -1,   240,    -1,   239,   240,    -1,   290,
+      -1,   392,    -1,   631,    -1,   406,    -1,   251,    -1,   330,
+      -1,   513,    -1,   514,    -1,   539,    -1,   587,    -1,   714,
+      -1,   606,    -1,    -1,   242,    -1,   252,   243,    -1,    -1,
+     244,    -1,   245,    -1,   244,   245,    -1,   252,    -1,   631,
+      -1,    -1,   247,    -1,   112,   206,   248,    -1,    -1,   249,
+      -1,   250,    -1,   249,   250,    -1,   691,    -1,   702,    -1,
+     364,    -1,   422,    -1,   369,    -1,   386,    -1,   416,    -1,
+     669,    -1,   672,    -1,   412,    -1,   397,    -1,   253,    -1,
+     539,    -1,   569,    -1,   559,    -1,   525,    -1,   457,    -1,
+     513,    -1,   677,    -1,   600,    -1,   587,    -1,   558,    -1,
+     474,    -1,   585,    -1,   584,    -1,   622,    -1,    78,   235,
+      -1,   129,   193,   720,   194,    -1,   115,   717,    -1,   568,
+      -1,   625,    -1,   593,    -1,   514,    -1,   606,    -1,   604,
+      -1,   714,    -1,   619,    -1,   588,    -1,   524,    -1,   605,
+      -1,   586,    -1,   231,    -1,   256,    -1,   257,    -1,   258,
+      -1,   276,    -1,   279,    -1,   289,    -1,   280,    -1,   288,
+      -1,   231,    -1,    -1,   260,    -1,   167,    -1,   192,    -1,
+      -1,   262,    -1,   168,    -1,   506,    -1,    21,    -1,     4,
+      -1,    -1,   265,   266,    -1,   172,   266,   194,    -1,   172,
+     314,   194,    -1,    -1,   176,   267,   273,    -1,    -1,   175,
+     268,   273,    -1,    -1,   178,   269,   273,    -1,    -1,   189,
+     270,   273,    -1,    -1,   183,   271,   284,    -1,    -1,   177,
+     272,   273,    -1,    -1,   274,    -1,   193,   511,   194,    -1,
+     193,    94,     5,   511,   194,    -1,    21,   192,    -1,   276,
+      -1,   488,   276,    -1,   192,    -1,   192,   200,   277,    -1,
+     192,    -1,   191,    -1,   279,    -1,   488,   279,    -1,   188,
+      -1,   188,   200,   277,    -1,   193,   281,   174,   282,   194,
+      -1,   275,    -1,   278,    -1,   231,    -1,   275,    -1,   278,
+      -1,   258,    -1,    -1,    21,   287,    -1,    -1,   285,    -1,
+     286,    -1,   193,    73,     5,   263,     3,    94,     5,   511,
+     194,    -1,   193,   263,     3,   511,   194,    -1,   193,    94,
+       5,   511,   194,    -1,   193,    94,     5,   511,     3,    73,
+       5,   263,   194,    -1,   193,   263,   194,    -1,   193,    73,
+       5,   263,   194,    -1,    21,   287,    -1,    21,   287,     3,
+      -1,   193,   263,   194,    -1,   276,    -1,   184,    -1,   187,
+      -1,   185,    -1,   165,    -1,   166,    -1,    -1,   292,   291,
+     300,   299,    -1,   171,   293,   191,   206,    -1,   171,   294,
+     191,   193,   297,   194,   206,    -1,    -1,   294,   154,    -1,
+      -1,     3,   295,    -1,   296,    -1,   295,     3,   296,    -1,
+     346,    -1,   298,    -1,   297,     3,   298,    -1,   191,    -1,
+     173,   206,    -1,   173,   191,   206,    -1,    -1,   301,    -1,
+     302,    -1,   301,   302,    -1,   303,    -1,   264,   304,   307,
+     206,    -1,    -1,   154,    -1,     3,   305,   154,    -1,   306,
+      -1,   305,     3,   306,    -1,   346,    -1,   101,    -1,   130,
+     193,   310,   194,    -1,   138,    -1,   308,    -1,   307,     3,
+     308,    -1,   231,   309,   283,   311,    -1,    -1,   193,   310,
+     194,    -1,   350,    -1,   356,    -1,    -1,   312,    -1,     5,
+     508,    -1,   146,   345,    -1,   146,   313,    -1,   432,    -1,
+     231,    -1,   231,   193,   315,   194,    -1,   316,    -1,   315,
+       3,   316,    -1,   263,    -1,   254,     5,   263,    -1,   314,
+     193,   194,    -1,   314,   193,   318,   194,    -1,   319,    -1,
+     318,     3,   319,    -1,   320,    -1,   254,     5,   320,    -1,
+     501,    -1,   520,    -1,   523,    -1,   149,   322,   150,    -1,
+     323,   322,   324,    -1,   325,    -1,   201,    -1,   202,    -1,
+     326,    -1,   325,     3,   326,    -1,   501,    -1,   327,    -1,
+     193,   325,     3,   328,   194,    -1,   329,     5,   506,     3,
+     506,    -1,   329,     5,   506,     3,   506,     3,   506,    -1,
+     545,    -1,    -1,    -1,   331,   264,   333,   339,   332,   206,
+      -1,    -1,   334,   154,    -1,    -1,   335,    -1,     3,   336,
+      -1,   335,     3,   336,    -1,   346,    -1,   101,    -1,    -1,
+     130,   193,   337,   349,   194,    -1,   132,    -1,    -1,   133,
+     193,   338,   363,   194,    -1,   134,    -1,   137,    -1,    25,
+      -1,   138,    -1,   140,    -1,   141,    -1,   340,    -1,   339,
+       3,   340,    -1,   342,   347,   283,   343,    -1,   231,    -1,
+     191,    -1,    -1,   344,    -1,     5,   508,    -1,   146,   345,
+      -1,   146,   313,    -1,   675,    -1,    99,    -1,   100,    -1,
+      -1,    -1,   193,   348,   349,   194,    -1,   350,    -1,   354,
+      -1,   356,    -1,   358,    -1,   361,    -1,   351,    -1,   350,
+       3,   351,    -1,   352,     4,   353,    -1,   353,    -1,   507,
+      -1,   507,    -1,   355,    -1,   354,     3,   355,    -1,     4,
+      -1,   352,     4,    -1,   357,    -1,   356,     3,   357,    -1,
+       4,    -1,   359,   360,    21,    -1,    -1,   350,     3,    -1,
+      -1,   352,     4,    -1,   362,    -1,   361,     3,   362,    -1,
+     360,    21,    -1,   159,    -1,   157,    -1,   158,    -1,    -1,
+     346,   366,   365,   206,    -1,    -1,   400,   367,    -1,   368,
+      -1,   367,     3,   368,    -1,   191,    -1,   668,    -1,    -1,
+     186,   373,   371,   370,   206,    -1,    -1,   372,    -1,   427,
+     373,    -1,   372,   427,   373,    -1,   374,    22,   375,    22,
+      -1,   376,    -1,   374,     3,   376,    -1,   381,    -1,   375,
+       3,   381,    -1,   434,    -1,   377,    -1,   193,   378,     3,
+     380,     5,   511,     3,   511,   194,    -1,   193,   378,     3,
+     380,     5,   511,     3,   511,     3,   511,   194,    -1,   379,
+      -1,   378,     3,   379,    -1,   451,    -1,   449,    -1,   377,
+      -1,   545,    -1,   384,   382,    -1,   276,   382,    -1,   288,
+     382,    -1,   275,    -1,   278,    -1,   345,    -1,   313,    -1,
+     317,    -1,    -1,    21,   383,    -1,   255,    -1,   384,    -1,
+     275,    -1,   278,    -1,   345,    -1,   313,    -1,   317,    -1,
+     385,    -1,   432,    -1,    -1,    -1,   387,   130,   400,   389,
+     388,   206,    -1,    -1,   191,   193,   390,   349,   194,    -1,
+      -1,   389,     3,   191,   193,   391,   349,   194,    -1,    -1,
+      -1,    25,   393,   193,   395,   194,   394,   206,    -1,   396,
+      -1,   395,     3,   396,    -1,   191,     5,   508,    -1,    -1,
+      -1,   398,   140,   400,   401,   399,   206,    -1,    -1,   154,
+      -1,    -1,   402,    -1,   403,    -1,   402,     3,   403,    -1,
+     341,    -1,   404,    -1,   426,    -1,   231,    -1,    -1,   405,
+     142,   408,   206,    -1,    -1,   405,   142,   143,   407,   206,
+      -1,   409,    -1,   408,     3,   409,    -1,   264,   193,   410,
+     194,    -1,   411,    -1,   410,     3,   411,    -1,   191,    -1,
+     191,    20,   191,    -1,   135,    22,   191,    22,   414,   413,
+     206,    -1,    -1,   413,   427,    22,   191,    22,   414,    -1,
+     415,    -1,   414,     3,   415,    -1,   435,    -1,    82,   417,
+     206,    -1,   418,    -1,   417,     3,   418,    -1,    -1,   193,
+     419,   421,     3,   420,   194,    -1,   421,    -1,   420,     3,
+     421,    -1,   435,    -1,   451,    -1,   443,    -1,    -1,    -1,
+     147,   423,   425,   429,   428,   424,   206,    -1,    -1,   426,
+      -1,    18,    -1,    22,   191,    22,    -1,    -1,     3,    -1,
+      -1,   428,   427,   426,   429,    -1,   430,    -1,   429,     3,
+     430,    -1,   191,    -1,    -1,   191,   193,   431,   349,   194,
+      -1,   451,    -1,   452,    -1,   450,    -1,   443,    -1,   434,
+      -1,   432,    -1,   231,    -1,   437,    -1,   434,    -1,   434,
+      -1,   440,    -1,   434,    -1,   442,    -1,   434,    -1,   445,
+      -1,   445,   193,   444,   194,    -1,   288,   193,   444,   194,
+      -1,   505,     4,   505,    -1,   447,   446,    -1,    -1,   446,
+     199,   447,    -1,   231,    -1,    -1,   231,   193,   448,   453,
+     194,    -1,   450,    -1,   445,    -1,   445,    -1,   445,    -1,
+     445,   193,   444,   194,    -1,    -1,   454,    -1,   453,     3,
+     454,    -1,   501,   455,    -1,     4,    -1,     4,   501,    -1,
+       4,     4,   501,    -1,     4,   501,     4,   501,    -1,   154,
+     501,    -1,   456,    -1,   231,     5,   501,    -1,   231,     5,
+      21,   260,    -1,    21,   260,    -1,     4,    -1,     4,   501,
+      -1,     4,     4,   501,    -1,     4,   501,     4,   501,    -1,
+     154,   501,    -1,    -1,   504,    -1,    -1,    -1,   118,   193,
+     458,   465,   460,   194,   459,   206,    -1,    -1,     3,   461,
+      -1,   462,    -1,   461,     3,   462,    -1,    97,   464,    -1,
+     145,     5,   463,    -1,   441,    -1,   439,    -1,   466,    -1,
+     465,     3,   466,    -1,   467,   468,    -1,   435,    -1,   450,
+      -1,    -1,   193,   469,   194,    -1,   470,    -1,   469,     3,
+     470,    -1,   471,   473,    -1,    -1,   472,     4,    -1,   506,
+      -1,   506,    -1,    -1,    -1,   128,   193,   475,   477,   478,
+     194,   476,   206,    -1,   467,    -1,   477,     3,   467,    -1,
+      -1,     3,   479,    -1,   480,    -1,   479,     3,   480,    -1,
+      97,   464,    -1,   145,     5,   463,    -1,   432,    -1,   257,
+      -1,   321,    -1,   675,    -1,   193,   501,   194,    -1,   481,
+      -1,   482,    -1,   482,   486,   483,    -1,   483,    -1,   484,
+     487,   483,    -1,   484,    -1,   488,   484,    -1,   485,   488,
+     484,    -1,   275,    -1,   485,   275,    -1,    23,    -1,    21,
+      -1,    22,    -1,    19,    -1,    20,    -1,   485,    -1,   489,
+     490,   485,    -1,    18,    -1,   489,    -1,   489,   492,   489,
+      -1,    13,    -1,    12,    -1,    17,    -1,    15,    -1,    16,
+      -1,    14,    -1,   161,    -1,   162,    -1,   195,    -1,   163,
+      -1,   196,    -1,   164,    -1,   491,    -1,   497,   491,    -1,
+     493,    -1,   494,   498,   493,    -1,   494,    -1,   495,   499,
+     494,    -1,   495,    -1,   496,   500,   495,    -1,    11,    -1,
+      10,    -1,     9,    -1,     7,    -1,     6,    -1,   496,    -1,
+     503,    -1,   501,    -1,   501,    -1,    -1,   506,    -1,   504,
+      -1,   506,    -1,   501,    -1,   510,    -1,   503,    -1,   512,
+      -1,   504,    -1,   434,     5,   501,   206,    -1,   260,   434,
+       5,   501,   206,    -1,   432,   515,   146,   520,   206,    -1,
+     432,   193,   517,   194,   146,   520,   206,    -1,   432,   146,
+     523,   206,    -1,    -1,   193,   516,   194,    -1,   518,    -1,
+     516,     3,   518,    -1,   519,    -1,   517,     3,   519,    -1,
+     472,     4,    -1,   472,     4,   473,    -1,   434,    -1,   191,
+      -1,   433,   199,   521,    -1,   501,    -1,   521,    -1,   522,
+      -1,    38,   193,   532,   194,   531,    -1,   529,   526,   527,
+     528,   535,    -1,    -1,   526,   530,    -1,    -1,   527,   533,
+     526,    -1,    -1,   528,   534,   526,    -1,    38,   193,   532,
+     194,   206,    -1,   531,    -1,   524,    -1,   525,    -1,   513,
+      -1,   501,    -1,    39,   532,   194,   206,    -1,    39,   532,
+     194,   191,   206,    -1,    40,   206,    -1,    40,   191,   206,
+      -1,    41,   206,    -1,    41,   191,   206,    -1,    -1,   538,
+      -1,    -1,   538,   245,    -1,   540,    -1,   549,    -1,   540,
+      -1,   541,   546,   547,    -1,   543,   546,   547,    -1,   191,
+       4,   170,   206,    -1,   170,   206,    -1,   191,     4,   170,
+     544,   206,    -1,   170,   544,   206,    -1,   191,     4,   169,
+     206,    -1,   169,   206,    -1,   191,     4,   169,   544,   206,
+      -1,   169,   544,   206,    -1,   191,     4,   111,   206,    -1,
+     111,   206,    -1,   191,     4,   111,   544,   206,    -1,   111,
+     544,   206,    -1,   213,   545,     5,   501,     3,   501,    -1,
+     213,   545,     5,   501,     3,   501,     3,   501,    -1,   213,
+     116,   193,   501,   194,    -1,   213,   117,   536,    -1,   231,
+      -1,   537,    -1,   548,    -1,   262,   587,    -1,   261,   113,
+     206,    -1,   261,   113,   191,   206,    -1,   550,    -1,   553,
+      -1,   541,   546,   551,    -1,   262,   552,    -1,   457,    -1,
+     513,    -1,   677,    -1,   600,    -1,   474,    -1,   622,    -1,
+     585,    -1,   127,   718,    -1,   129,   193,   720,   194,    -1,
+     568,    -1,   625,    -1,   593,    -1,   606,    -1,   604,    -1,
+     619,    -1,   524,    -1,   605,    -1,   541,   546,   554,   555,
+      -1,   541,   546,   555,    -1,   542,   546,    -1,   554,   542,
+     546,    -1,   542,   546,   556,    -1,   262,   253,    -1,    -1,
+     191,    -1,    78,   557,   206,    -1,   564,   537,   560,   562,
+     567,    -1,    -1,   561,    -1,   560,   561,    -1,   565,   537,
+      -1,    -1,   563,    -1,   562,   561,    -1,   566,   537,    -1,
+     259,   191,     4,   110,   501,   194,   103,   206,    -1,   259,
+     110,   501,   194,   103,   206,    -1,   104,   193,   501,   194,
+     103,   206,    -1,   104,   193,   501,   194,   103,   191,   206,
+      -1,   105,   206,    -1,   105,   191,   206,    -1,   106,   206,
+      -1,   106,   191,   206,    -1,   259,   110,   501,   194,   253,
+      -1,   572,   570,   576,    -1,    -1,   571,    -1,   570,   571,
+      -1,   575,   537,    -1,    -1,   191,     4,    48,   193,   501,
+     194,   573,   206,    -1,    -1,    48,   193,   501,   194,   574,
+     206,    -1,    47,   579,   206,    -1,    47,   579,   191,   206,
+      -1,    -1,   131,   577,   206,    -1,    -1,   131,   191,   578,
+     206,    -1,    -1,   193,   580,   581,   194,    -1,   136,    -1,
+     582,    -1,   581,     3,   582,    -1,   583,    -1,   583,     4,
+      -1,     4,   583,    -1,   583,     4,   583,    -1,   501,    -1,
+      93,   206,    -1,    93,   191,   206,    -1,   108,   260,   206,
+      -1,   259,   110,   501,   194,   260,     3,   260,     3,   260,
+     206,    -1,   259,   139,   206,    -1,   153,   206,    -1,   153,
+     589,   206,    -1,   509,    -1,   511,    -1,   591,    -1,    21,
+      -1,   592,    -1,   506,    -1,   438,    -1,    -1,    -1,   119,
+     193,   594,   596,   194,   595,   206,    -1,   597,    -1,   596,
+       3,   597,    -1,   591,    -1,    58,   591,    -1,    53,   502,
+      -1,    54,   502,    -1,    65,   260,    -1,    49,   598,    -1,
+      55,   502,    -1,    67,   441,    -1,    66,   502,    -1,    56,
+     506,    -1,    57,     5,   502,    -1,   502,    -1,   439,    -1,
+      -1,   120,   193,   601,   602,   194,   206,    -1,   603,    -1,
+     602,     3,   603,    -1,   591,    -1,    58,   591,    -1,    67,
+     441,    -1,    65,   260,    -1,    57,     5,   502,    -1,   259,
+     125,   607,   194,   206,    -1,   259,   125,   607,   194,   611,
+     206,    -1,   259,   126,   610,   206,    -1,   259,   126,   610,
+       3,   611,   206,    -1,   259,   122,   607,   194,   206,    -1,
+     259,   122,   607,   194,   613,   206,    -1,   259,   107,   610,
+     206,    -1,   259,   107,   610,     3,   613,   206,    -1,   609,
+      -1,   607,     3,   609,    -1,   191,    -1,   590,    -1,    58,
+     590,    -1,   610,    -1,   608,    -1,    61,   608,    -1,    60,
+     610,    -1,    62,   260,    -1,    63,   260,    -1,    65,   260,
+      -1,    67,   441,    -1,    50,   506,    -1,   503,    -1,   260,
+      -1,    21,    -1,   612,    -1,   611,     3,   612,    -1,   434,
+      -1,   615,    -1,   614,    -1,   613,     3,   614,    -1,   501,
+      -1,   615,    -1,   193,   616,     3,   618,   194,    -1,   617,
+      -1,   616,     3,   617,    -1,   612,    -1,   614,    -1,   545,
+       5,   506,     3,   506,    -1,   545,     5,   506,     3,   506,
+       3,   506,    -1,   127,   591,   206,    -1,   127,   193,   620,
+     194,   206,    -1,   621,    -1,   620,     3,   621,    -1,   591,
+      -1,    58,   591,    -1,    68,   599,    -1,    67,   441,    -1,
+      65,   260,    -1,   124,   591,   206,    -1,   124,   193,   623,
+     194,   206,    -1,   624,    -1,   623,     3,   624,    -1,   591,
+      -1,    58,   591,    -1,    67,   441,    -1,    68,   599,    -1,
+      65,   260,    -1,    -1,   121,   628,   193,   629,   194,   626,
+     206,    -1,    -1,   121,   628,   193,    52,   441,   194,   613,
+     627,   206,    -1,    -1,   630,    -1,   629,     3,   630,    -1,
+     591,    -1,    58,   591,    -1,    49,   598,    -1,    53,   439,
+      -1,    54,   439,    -1,    65,   260,    -1,    69,   436,    -1,
+      67,   441,    -1,    51,     5,   439,    -1,    59,   436,    -1,
+      56,   441,    -1,    32,   206,    -1,    -1,   635,   653,   634,
+     633,   637,    -1,    -1,   641,    -1,    -1,   114,   191,   636,
+     206,    -1,    -1,   405,   182,   639,   640,   638,   206,    -1,
+      -1,   114,    -1,    -1,   191,    -1,   715,   642,    -1,    -1,
+     643,    -1,   644,    -1,   643,   644,    -1,   691,    -1,   702,
+      -1,   647,    -1,   645,   647,    -1,    -1,    -1,   405,   160,
+     646,   650,   191,   662,   648,   206,    -1,    -1,   405,   160,
+     646,   650,   191,     3,    27,     4,   651,   649,   206,    -1,
+      -1,   154,    -1,     3,   661,   154,    -1,    -1,   665,    -1,
+     654,   653,   241,   246,   656,    -1,    -1,   236,    -1,    -1,
+     242,    -1,    -1,    30,   191,   655,   206,    -1,    -1,    -1,
+     657,   182,   659,   660,   658,   206,    -1,    -1,    30,    -1,
+      -1,   191,    -1,   134,    -1,    -1,     3,   663,    -1,   664,
+      -1,   663,     3,   664,    -1,   191,   146,   191,    -1,   666,
+      -1,   665,     3,   666,    -1,   668,    -1,   667,    -1,   664,
+      -1,   191,    -1,   191,    -1,   132,   670,   206,    -1,   132,
+     154,   670,   206,    -1,   671,    -1,   670,     3,   671,    -1,
+     191,    -1,   134,   400,   673,   206,    -1,   674,    -1,   673,
+       3,   674,    -1,   191,    -1,   684,   193,   194,    -1,    -1,
+     684,   193,   676,   685,   194,    -1,    -1,   682,   678,   206,
+      -1,    -1,   682,   193,   194,   679,   206,    -1,    -1,    -1,
+     682,   193,   680,   685,   194,   681,   206,    -1,    -1,   259,
+     144,   683,   684,    -1,   231,    -1,   124,    -1,   175,    -1,
+     686,    -1,   685,     3,   686,    -1,   687,    -1,   254,     5,
+     687,    -1,   501,    -1,   434,    -1,   231,    -1,    -1,   689,
+      -1,   690,    -1,   689,   690,    -1,   264,    -1,   114,    -1,
+      87,    -1,   692,   653,   241,   246,   699,    -1,    -1,    -1,
+     688,    31,   695,   193,   693,   711,   194,   697,   694,   206,
+      -1,   191,    -1,   191,    -1,    -1,   698,    -1,    26,   193,
+     191,   194,    -1,    -1,   405,   182,   701,   640,   707,   700,
+     206,    -1,    -1,    31,    -1,   703,   653,   241,   246,   706,
+      -1,    -1,   688,    29,   705,   709,   704,   206,    -1,   191,
+      -1,   405,   182,   708,   640,   707,   206,    -1,    -1,    -1,
+      29,    -1,    -1,    -1,   193,   710,   711,   194,    -1,    -1,
+     712,    -1,   713,    -1,   712,     3,   713,    -1,   696,    -1,
+      21,    -1,   259,   102,   206,    -1,   259,   102,   506,   206,
+      -1,    -1,   259,   112,   716,   206,    -1,   197,    -1,   191,
+      -1,   193,   231,   194,    -1,   193,   192,   194,    -1,   192,
+      -1,   193,   214,   194,    -1,   191,    -1,    -1,   231,    -1,
+     720,     3,   231,    -1
 };
 
@@ -878 +1103 @@
 static const yytype_uint16 yyrline[] =
 {
-       0,   313,   313,   314,   316,   317,   318,   319,   322,   323,
-     324,   325,   326,   329,   330,   331,   334,   335,   336,   344,
-     347,   350,   351,   354,   355,   358,   366,   375,   392,   411,
-     412,   415,   417,   419,   420,   421,   423,   424,   425,   427,
-     439,   451,   452,   454,   455,   456,   457,   458,   475,   492,
-     493,   498,   499,   536,   549,   550,   551,   552,   553,   554,
-     555,   556,   557,   570,   571,   578,   579,   580,   581,   582,
-     583,   584,   585,   586,   587,   588,   589,   590,   591,   592,
-     593,   594,   595,   596,   597,   598,   599,   600,   601,   604,
-     605,   608,   609,   612,   613,   615,   618,   619,   622,   623,
-     625,   626,   629,   695,   710,   712,   716,   719,   720,   723,
-     729,   734,   748,   749,   752,   753,   754,   755,   758,   760,
-     761,   764,   765,   766,   769,   770,   771,   772,   773,   775,
-     776,   779,   780,   781,   782,   785,   792,   802,   814,   815,
-     818,   819,   822,   823,   824,   825,   828,   834,   842,   852,
-     853,   856,   857,   860,   868,   874,   881,   882,   885,   886,
-     889,   905,   908,   909,   912,   921,   923,   945,   970,   972,
-     973,   974,   975,   977,   978,   979,   980,   983,   984,   985,
-     987,   990,   991,   992,   993,   994,   995,   997,   998,  1001,
-    1002,  1004,  1005,  1006,  1008,  1009,  1012,  1013,  1023,  1024,
-    1025,  1028,  1029,  1031,  1032,  1034,  1035,  1036,  1038,  1039,
-    1042,  1043,  1044,  1045,  1046,  1047,  1049,  1050,  1051,  1052,
-    1053,  1056,  1057,  1058,  1061,  1062,  1064,  1065,  1073,  1079,
-    1086,  1087,  1088,  1089,  1090,  1093,  1094,  1096,  1097,  1098,
-    1099,  1103,  1104,  1105,  1106,  1107,  1108,  1109,  1110,  1111,
-    1112,  1113,  1114,  1115,  1116,  1117,  1118,  1119,  1120,  1121,
-    1122,  1123,  1124,  1125,  1126,  1127,  1128,  1130,  1131,  1133,
-    1134,  1135,  1136,  1137,  1138,  1140,  1141,  1145,  1146,  1147,
-    1148,  1149,  1150,  1151,  1152,  1153,  1154,  1155,  1156,  1157,
-    1158,  1159,  1160,  1161,  1162,  1163,  1164,  1165,  1167,  1168,
-    1169,  1170,  1173,  1174,  1177,  1178,  1179,  1183,  1194,  1195,
-    1196,  1197,  1200,  1209,  1216,  1219,  1220,  1223,  1224,  1227,
-    1228,  1231,  1232,  1233,  1234,  1235,  1236,  1237,  1239,  1285,
-    1286,  1287,  1288,  1289,  1290,  1291,  1293,  1296,  1297,  1298,
-    1299,  1301,  1302,  1305,  1307,  1308,  1311,  1312,  1314,  1315,
-    1321,  1329,  1332,  1352,  1379,  1399,  1439,  1446,  1450,  1457,
-    1467,  1468,  1476,  1486,  1498,  1499,  1504,  1505,  1506,  1507,
-    1508,  1513,  1514,  1515,  1516,  1517,  1518,  1519,  1520,  1521,
-    1522,  1523,  1524,  1525,  1526,  1527,  1528,  1529,  1530,  1567,
-    1576,  1587,  1595,  1617,  1618,  1619,  1657,  1661,  1665,  1668,
-    1669,  1672,  1673,  1676,  1677,  1682,  1686,  1687,  1688,  1692,
-    1696,  1701,  1702,  1707,  1708,  1713,  1714,  1718,  1722,  1723,
-    1724,  1729,  1734,  1739,  1740,  1745,  1746,  1747,  1748,  1753,
-    1754,  1755,  1756,  1761,  1762,  1763,  1764,  1768,  1772,  1776,
-    1777,  1782,  1783,  1787,  1790,  1791,  1792,  1796,  1799,  1800,
-    1801,  1804,  1809,  1810,  1815,  1816,  1821,  1822,  1827,  1828,
-    1832,  1836,  1839,  1840,  1841,  1844,  1849,  1850,  1855,  1856,
-    1861,  1862,  1867,  1868,  1872,  1873,  1878,  1879,  1880,  1881,
-    1885,  1889,  1893,  1897,  1905,  1912,  1919,  1926,  1927,  1930,
-    1933,  1944,  1950,  1951,  1954,  1955,  1957,  1970,  1971,  1973,
-    1974,  1977,  1978,  2000,  2003,  2004,  2007,  2015,  2018,  2019,
-    2022,  2023,  2026,  2027,  2029,  2030,  2032,  2035,  2036,  2037,
-    2038,  2039,  2042,  2043,  2046,  2047,  2048,  2049,  2050,  2051,
-    2052,  2053,  2056,  2059,  2060,  2061,  2063,  2064,  2067,  2068,
-    2069,  2072,  2073,  2076,  2077,  2078,  2079,  2080,  2081,  2082,
-    2083,  2084,  2085,  2086,  2087,  2088,  2089,  2090,  2091,  2092,
-    2094,  2095,  2097,  2098,  2104,  2105,  2106,  2107,  2108,  2110,
-    2111,  2112,  2115,  2116,  2117,  2118,  2119,  2120,  2121,  2122,
-    2123,  2124,  2127,  2128,  2129,  2131,  2132,  2134,  2135,  2138,
-    2139,  2142,  2145,  2146,  2148,  2149,  2152,  2153
+       0,   512,   512,   513,   515,   516,   517,   519,   521,   522,
+     523,   524,   527,   528,   529,   531,   532,   540,   558,   562,
+     563,   564,   568,   569,   582,   850,   851,  1102,  1103,  1104,
+    1105,  1106,  1108,  1109,  1113,  1114,  1115,  1116,  1117,  1118,
+    1119,  1120,  1121,  1122,  1123,  1124,  1125,  1126,  1127,  1128,
+    1129,  1130,  1131,  1132,  1133,  1135,  1136,  1137,  1138,  1141,
+    1142,  1145,  1146,  1147,  1151,  1162,  1163,  1164,  1164,  1165,
+    1165,  1167,  1168,  1168,  1177,  1189,  1190,  1193,  1194,  1197,
+    1198,  1201,  1202,  1203,  1204,  1205,  1206,  1207,  1209,  1256,
+    1257,  1258,  1259,  1260,  1261,  1262,  1264,  1267,  1268,  1269,
+    1270,  1272,  1273,  1283,  1284,  1336,  1339,  1340,  1365,  1366,
+    1370,  1371,  1384,  1385,  1386,  1387,  1388,  1389,  1390,  1391,
+    1392,  1393,  1394,  1395,  1398,  1399,  1403,  1406,  1407,  1411,
+    1412,  1416,  1417,  1420,  1421,  1425,  1429,  1430,  1433,  1434,
+    1438,  1439,  1443,  1444,  1445,  1446,  1447,  1448,  1449,  1450,
+    1451,  1456,  1457,  1458,  1459,  1460,  1468,  1469,  1470,  1471,
+    1472,  1473,  1474,  1475,  1476,  1477,  1478,  1479,  1480,  1502,
+    1503,  1504,  1505,  1506,  1507,  1508,  1509,  1510,  1511,  1512,
+    1513,  1517,  1520,  1525,  1526,  1530,  1531,  1532,  1533,  1535,
+    1539,  1558,  1559,  1563,  1564,  1568,  1569,  1573,  1577,  1578,
+    1579,  1590,  1590,  1592,  1593,  1598,  1598,  1600,  1600,  1602,
+    1602,  1604,  1604,  1606,  1606,  1608,  1608,  1613,  1614,  1620,
+    1622,  1624,  1631,  1632,  1637,  1638,  1643,  1644,  1660,  1661,
+    1666,  1667,  1674,  1680,  1681,  1682,  1686,  1687,  1688,  1691,
+    1692,  1697,  1698,  1703,  1704,  1705,  1706,  1707,  1711,  1713,
+    1715,  1716,  1720,  1722,  1727,  1728,  1729,  1733,  1734,  1738,
+    1738,  1743,  1744,  1747,  1748,  1751,  1752,  1755,  1756,  1760,
+    1763,  1764,  1767,  1771,  1772,  1775,  1776,  1780,  1781,  1785,
+    1789,  1792,  1793,  1794,  1797,  1798,  1802,  1803,  1804,  1805,
+    1808,  1809,  1813,  1836,  1837,  1841,  1842,  1845,  1846,  1850,
+    1851,  1852,  1856,  1861,  1863,  1866,  1867,  1871,  1872,  1876,
+    1877,  1880,  1881,  1885,  1886,  1890,  1891,  1892,  1896,  1898,
+    1913,  1917,  1921,  1925,  1926,  1931,  1932,  1936,  1941,  1943,
+    1948,  1952,  1953,  1952,  2020,  2021,  2024,  2025,  2029,  2030,
+    2034,  2035,  2037,  2037,  2039,  2041,  2041,  2043,  2044,  2046,
+    2048,  2050,  2052,  2057,  2059,  2064,  2098,  2101,  2104,  2105,
+    2109,  2115,  2121,  2130,  2134,  2136,  2141,  2142,  2142,  2147,
+    2149,  2151,  2153,  2155,  2159,  2165,  2174,  2176,  2181,  2186,
+    2190,  2196,  2205,  2207,  2212,  2218,  2227,  2232,  2255,  2256,
+    2275,  2276,  2280,  2281,  2285,  2289,  2291,  2293,  2299,  2298,
+    2317,  2318,  2322,  2324,  2329,  2330,  2335,  2334,  2349,  2350,
+    2353,  2354,  2358,  2368,  2370,  2376,  2378,  2383,  2384,  2388,
+    2394,  2401,  2403,  2408,  2409,  2413,  2417,  2422,  2424,  2426,
+    2428,  2429,  2430,  2431,  2432,  2436,  2437,  2453,  2454,  2455,
+    2456,  2457,  2458,  2459,  2465,  2473,  2478,  2480,  2478,  2525,
+    2525,  2534,  2534,  2547,  2548,  2547,  2567,  2569,  2574,  2591,
+    2592,  2591,  2599,  2600,  2603,  2604,  2607,  2608,  2612,  2614,
+    2615,  2619,  2623,  2627,  2629,  2628,  2640,  2641,  2645,  2648,
+    2649,  2653,  2654,  2658,  2661,  2662,  2664,  2665,  2669,  2673,
+    2676,  2677,  2681,  2681,  2684,  2685,  2689,  2690,  2691,  2696,
+    2697,  2696,  2706,  2707,  2715,  2721,  2729,  2730,  2733,  2734,
+    2738,  2740,  2748,  2754,  2754,  2763,  2764,  2765,  2766,  2775,
+    2778,  2791,  2794,  2798,  2802,  2805,  2809,  2812,  2815,  2819,
+    2820,  2822,  2837,  2842,  2847,  2848,  2853,  2855,  2855,  2867,
+    2871,  2876,  2881,  2883,  2890,  2891,  2893,  2915,  2917,  2919,
+    2921,  2923,  2925,  2927,  2928,  2930,  2932,  2936,  2938,  2940,
+    2942,  2944,  2947,  2961,  2965,  2966,  2965,  2974,  2975,  2979,
+    2980,  2984,  2985,  2989,  2993,  2997,  2998,  3002,  3006,  3007,
+    3010,  3011,  3015,  3016,  3020,  3023,  3024,  3028,  3032,  3036,
+    3037,  3036,  3042,  3043,  3046,  3047,  3051,  3052,  3056,  3057,
+    3066,  3076,  3077,  3078,  3079,  3084,  3089,  3090,  3094,  3095,
+    3102,  3103,  3105,  3107,  3108,  3113,  3117,  3119,  3123,  3125,
+    3130,  3131,  3136,  3139,  3140,  3145,  3146,  3147,  3148,  3149,
+    3150,  3151,  3152,  3153,  3155,  3156,  3158,  3163,  3164,  3170,
+    3171,  3177,  3178,  3183,  3184,  3189,  3193,  3197,  3201,  3202,
+    3206,  3209,  3213,  3217,  3221,  3222,  3225,  3229,  3236,  3240,
+    3244,  3247,  3251,  3257,  3258,  3270,  3271,  3272,  3280,  3281,
+    3285,  3286,  3290,  3291,  3295,  3299,  3303,  3306,  3315,  3319,
+    3320,  3321,  3325,  3329,  3332,  3333,  3336,  3337,  3340,  3341,
+    3345,  3349,  3350,  3351,  3355,  3359,  3363,  3364,  3368,  3369,
+    3374,  3375,  3379,  3383,  3386,  3387,  3392,  3393,  3397,  3402,
+    3403,  3414,  3415,  3416,  3417,  3420,  3421,  3422,  3423,  3427,
+    3428,  3429,  3430,  3435,  3436,  3437,  3438,  3442,  3446,  3455,
+    3456,  3460,  3461,  3472,  3473,  3479,  3489,  3494,  3495,  3496,
+    3497,  3498,  3499,  3500,  3501,  3502,  3503,  3504,  3505,  3506,
+    3507,  3508,  3509,  3510,  3520,  3521,  3524,  3525,  3536,  3541,
+    3544,  3545,  3549,  3553,  3556,  3557,  3558,  3561,  3564,  3565,
+    3566,  3569,  3573,  3574,  3578,  3579,  3583,  3584,  3588,  3589,
+    3593,  3597,  3600,  3601,  3602,  3605,  3609,  3609,  3610,  3610,
+    3614,  3615,  3619,  3619,  3620,  3620,  3625,  3625,  3626,  3630,
+    3631,  3636,  3637,  3638,  3639,  3643,  3647,  3648,  3652,  3656,
+    3660,  3664,  3665,  3669,  3670,  3674,  3675,  3676,  3680,  3684,
+    3688,  3688,  3688,  3691,  3692,  3696,  3697,  3698,  3699,  3700,
+    3701,  3702,  3703,  3704,  3705,  3706,  3710,  3714,  3718,  3718,
+    3722,  3723,  3727,  3728,  3729,  3730,  3731,  3735,  3736,  3737,
+    3738,  3742,  3743,  3747,  3748,  3750,  3751,  3754,  3758,  3759,
+    3760,  3761,  3762,  3763,  3764,  3765,  3766,  3767,  3768,  3772,
+    3773,  3774,  3777,  3778,  3781,  3782,  3786,  3787,  3791,  3792,
+    3796,  3799,  3800,  3804,  3805,  3809,  3810,  3814,  3815,  3819,
+    3820,  3824,  3825,  3826,  3827,  3828,  3832,  3833,  3837,  3838,
+    3842,  3843,  3844,  3845,  3846,  3852,  3851,  3855,  3854,  3859,
+    3863,  3864,  3868,  3869,  3870,  3871,  3872,  3873,  3874,  3875,
+    3876,  3877,  3878,  3882,  3886,  3886,  3889,  3890,  3895,  3894,
+    3915,  3914,  3939,  3940,  3943,  3944,  3947,  3950,  3951,  3954,
+    3955,  3958,  3959,  3962,  3963,  3967,  3972,  3971,  4010,  4009,
+    4061,  4062,  4063,  4067,  4068,  4073,  4076,  4077,  4080,  4081,
+    4086,  4085,  4099,  4100,  4099,  4111,  4112,  4114,  4115,  4118,
+    4122,  4125,  4131,  4135,  4144,  4154,  4156,  4165,  4173,  4181,
+    4189,  4193,  4197,  4198,  4201,  4202,  4205,  4209,  4213,  4214,
+    4217,  4221,  4222,  4222,  4229,  4228,  4242,  4241,  4254,  4255,
+    4254,  4269,  4269,  4293,  4294,  4295,  4299,  4300,  4305,  4313,
+    4324,  4325,  4335,  4338,  4339,  4343,  4344,  4348,  4350,  4352,
+    4357,  4362,  4363,  4361,  4386,  4411,  4416,  4417,  4421,  4438,
+    4437,  4442,  4443,  4447,  4452,  4451,  4466,  4483,  4488,  4532,
+    4533,  4537,  4538,  4538,  4543,  4544,  4549,  4561,  4575,  4577,
+    4582,  4583,  4588,  4587,  4623,  4624,  4731,  4732,  4733,  4734,
+    4735,  4752,  4845,  4846
 };
 #endif
@@ -951 +1223 @@
   "'*'", "TOK_SLASH", "TOK_DASTER", "TOK_SEMICOLON", "TOK_PARAMETER",
   "TOK_RESULT", "TOK_ONLY", "TOK_INCLUDE", "TOK_SUBROUTINE", "TOK_PROGRAM",
-  "TOK_FUNCTION", "TOK_FORMAT", "TOK_MAX", "TOK_TANH", "TOK_WHERE",
+  "TOK_FUNCTION", "TOK_LABEL_FORMAT", "TOK_LABEL_CONTINUE",
+  "TOK_LABEL_END_DO", "TOK_MAX", "TOK_TANH", "TOK_COMMENT", "TOK_WHERE",
   "TOK_ELSEWHEREPAR", "TOK_ELSEWHERE", "TOK_ENDWHERE", "TOK_MAXVAL",
   "TOK_TRIM", "TOK_NULL_PTR", "TOK_SUM", "TOK_SQRT", "TOK_CASE",
-  "TOK_SELECTCASE", "TOK_FILE", "TOK_UNIT", "TOK_FMT", "TOK_NML",
-  "TOK_END", "TOK_EOR", "TOK_ERR", "TOK_EXIST", "TOK_MIN", "TOK_FLOAT",
-  "TOK_EXP", "TOK_COS", "TOK_COSH", "TOK_ACOS", "TOK_NINT", "TOK_CYCLE",
-  "TOK_SIN", "TOK_SINH", "TOK_ASIN", "TOK_EQUIVALENCE", "TOK_BACKSPACE",
-  "TOK_LOG", "TOK_TAN", "TOK_ATAN", "TOK_RECURSIVE", "TOK_ABS", "TOK_MOD",
-  "TOK_SIGN", "TOK_MINLOC", "TOK_MAXLOC", "TOK_EXIT", "TOK_MINVAL",
-  "TOK_PUBLIC", "TOK_PRIVATE", "TOK_ALLOCATABLE", "TOK_RETURN", "TOK_THEN",
-  "TOK_ELSEIF", "TOK_ELSE", "TOK_ENDIF", "TOK_PRINT", "TOK_PLAINGOTO",
-  "TOK_LOGICALIF", "TOK_PLAINDO", "TOK_CONTAINS", "TOK_ENDDO",
+  "TOK_SELECTCASE", "TOK_FILE", "TOK_REC", "TOK_NAME_EQ", "TOK_IOLENGTH",
+  "TOK_ACCESS", "TOK_ACTION", "TOK_FORM", "TOK_RECL", "TOK_STATUS",
+  "TOK_UNIT", "TOK_OPENED", "TOK_FMT", "TOK_NML", "TOK_END", "TOK_EOR",
+  "TOK_EOF", "TOK_ERR", "TOK_POSITION", "TOK_IOSTAT", "TOK_IOMSG",
+  "TOK_EXIST", "TOK_MIN", "TOK_FLOAT", "TOK_EXP", "TOK_LEN", "TOK_COS",
+  "TOK_COSH", "TOK_ACOS", "TOK_NINT", "TOK_CYCLE", "TOK_SIN", "TOK_SINH",
+  "TOK_ASIN", "TOK_EQUIVALENCE", "TOK_BACKSPACE", "TOK_LOG", "TOK_TAN",
+  "TOK_ATAN", "TOK_RECURSIVE", "TOK_ABS", "TOK_MOD", "TOK_SIGN",
+  "TOK_MINLOC", "TOK_MAXLOC", "TOK_EXIT", "TOK_KIND", "TOK_MOLD",
+  "TOK_SOURCE", "TOK_ERRMSG", "TOK_MINVAL", "TOK_PUBLIC", "TOK_PRIVATE",
+  "TOK_ALLOCATABLE", "TOK_RETURN", "TOK_THEN", "TOK_ELSEIF", "TOK_ELSE",
+  "TOK_ENDIF", "TOK_PRINT", "TOK_PLAINGOTO", "TOK_LOGICALIF",
+  "TOK_LOGICALIF_PAR", "TOK_PLAINDO", "TOK_CONTAINS", "TOK_ENDDO",
   "TOK_MODULE", "TOK_ENDMODULE", "TOK_WHILE", "TOK_CONCURRENT",
-  "TOK_ALLOCATE", "TOK_OPEN", "TOK_CLOSE", "TOK_INQUIRE", "TOK_WRITE",
-  "TOK_FLUSH", "TOK_READ", "TOK_REWIND", "TOK_DEALLOCATE", "TOK_NULLIFY",
-  "TOK_DIMENSION", "TOK_ENDSELECT", "TOK_EXTERNAL", "TOK_INTENT",
-  "TOK_INTRINSIC", "TOK_NAMELIST", "TOK_DEFAULT", "TOK_OPTIONAL",
-  "TOK_POINTER", "TOK_CONTINUE", "TOK_SAVE", "TOK_TARGET", "TOK_IMPLICIT",
-  "TOK_NONE", "TOK_CALL", "TOK_STAT", "TOK_POINT_TO", "TOK_COMMON",
-  "TOK_GLOBAL", "TOK_LEFTAB", "TOK_RIGHTAB", "TOK_PAUSE", "TOK_PROCEDURE",
-  "TOK_STOP", "TOK_REAL8", "TOK_FOURDOTS", "TOK_HEXA", "TOK_ASSIGNTYPE",
-  "TOK_OUT", "TOK_INOUT", "TOK_IN", "TOK_USE", "TOK_TRUE", "TOK_FALSE",
-  "TOK_LABEL", "TOK_TYPE", "TOK_TYPEPAR", "TOK_ENDTYPE", "TOK_REAL",
+  "TOK_ALLOCATE", "TOK_OPEN", "TOK_CLOSE", "TOK_INQUIRE", "TOK_WRITE_PAR",
+  "TOK_WRITE", "TOK_FLUSH", "TOK_READ_PAR", "TOK_READ", "TOK_REWIND",
+  "TOK_DEALLOCATE", "TOK_NULLIFY", "TOK_DIMENSION", "TOK_ENDSELECT",
+  "TOK_EXTERNAL", "TOK_INTENT", "TOK_INTRINSIC", "TOK_NAMELIST",
+  "TOK_DEFAULT", "TOK_OPTIONAL", "TOK_POINTER", "TOK_CONTINUE", "TOK_SAVE",
+  "TOK_TARGET", "TOK_IMPLICIT", "TOK_NONE", "TOK_CALL", "TOK_STAT",
+  "TOK_POINT_TO", "TOK_COMMON", "TOK_GLOBAL", "TOK_LEFTAB", "TOK_RIGHTAB",
+  "TOK_PAUSE", "TOK_PROCEDURE", "TOK_STOP", "TOK_FOURDOTS", "TOK_HEXA",
+  "TOK_ASSIGNTYPE", "TOK_OUT", "TOK_INOUT", "TOK_IN", "TOK_USE",
+  "TOK_EQUALEQUAL", "TOK_SLASHEQUAL", "TOK_INFEQUAL", "TOK_SUPEQUAL",
+  "TOK_TRUE", "TOK_FALSE", "TOK_LABEL", "TOK_LABEL_DJVIEW",
+  "TOK_PLAINDO_LABEL_DJVIEW", "TOK_PLAINDO_LABEL", "TOK_TYPE",
+  "TOK_TYPEPAR", "TOK_ENDTYPE", "TOK_COMMACOMPLEX", "TOK_REAL",
   "TOK_INTEGER", "TOK_LOGICAL", "TOK_DOUBLEPRECISION", "TOK_ENDSUBROUTINE",
   "TOK_ENDFUNCTION", "TOK_ENDPROGRAM", "TOK_ENDUNIT", "TOK_CHARACTER",
   "TOK_CHAR_CONSTANT", "TOK_CHAR_CUT", "TOK_DATA", "TOK_CHAR_MESSAGE",
   "TOK_CSTREAL", "TOK_COMPLEX", "TOK_DOUBLECOMPLEX", "TOK_NAME",
-  "TOK_CSTINT", "'('", "')'", "'<'", "'>'", "'\\n'", "'/'", "'%'",
-  "$accept", "input", "line", "line-break", "suite_line_list",
-  "suite_line", "fin_line", "opt_recursive", "opt_result", "entry",
-  "label", "name_routine", "filename", "arglist", "arglist_after_result",
-  "args", "arg", "spec", "opt_spec", "name_intrinsic",
-  "use_intrinsic_list", "list_couple", "list_expr_equi", "expr_equi",
-  "list_expr_equi1", "list_expr", "opt_sep", "after_type",
-  "before_function", "before_parameter", "data_stmt", "data_stmt_set_list",
-  "data_stmt_set", "data_stmt_value_list", "save", "before_save",
-  "varsave", "datanamelist", "expr_data", "opt_signe", "namelist",
-  "before_dimension", "dimension", "private", "public", "use_name_list",
-  "common", "before_common", "var_common_list", "var_common", "comblock",
-  "opt_comma", "paramlist", "paramitem", "module_proc_stmt",
-  "proc_name_list", "implicit", "dcl", "nodimsgiven", "type", "c_selector",
-  "c_attribute", "before_character", "typespec", "lengspec",
-  "proper_lengspec", "selector", "proper_selector", "attribute", "clause",
-  "opt_clause", "options", "attr_spec_list", "attr_spec", "intent_spec",
-  "access_spec", "dims", "dimlist", "dim", "ubound", "expr",
-  "predefinedfunction", "minmaxlist", "uexpr", "signe", "operation",
-  "after_slash", "after_equal", "lhs", "beforefunctionuse",
-  "array_ele_substring_func_ref", "begin_array", "structure_component",
-  "vec", "funarglist", "funargs", "funarg", "triplet", "ident",
-  "simple_const", "string_constant", "opt_substring", "substring",
-  "optexpr", "opt_expr", "initial_value", "complex_const", "use_stat",
-  "word_use", "rename_list", "rename_name", "only_list", "only_name",
-  "execution-part-construct", "executable-construct", "action-stmt",
-  "assignment-stmt", "where-stmt", "where-construct",
-  "opt-where-body-construct", "opt-masked-elsewhere-construct",
-  "opt-elsewhere-construct", "where-construct-stmt",
-  "where-body-construct", "where-assignment-stmt", "mask-expr",
-  "masked-elsewhere-stmt", "elsewhere-stmt", "end-where-stmt",
-  "forall-header", "block", "do-construct", "block-do-construct",
-  "do-stmt", "label-do-stmt", "nonlabel-do-stmt", "loop-control",
-  "do-variable", "do-block", "end-do", "end-do-stmt", "if-construct",
+  "TOK_CSTINT", "'('", "')'", "'<'", "'>'", "'\\n'", "'/'", "'%'", "'_'",
+  "'['", "']'", "$accept", "input", "line", "line-break",
+  "suite_line_list", "suite_line", "fin_line", "program-unit",
+  "external-subprogram", "filename", "opt_comma", "uexpr", "signe",
+  "operation", "after_slash", "after_equal", "lhs", "beforefunctionuse",
+  "array_ele_substring_func_ref", "$@4", "$@5", "begin_array", "$@6",
+  "structure_component", "funarglist", "funargs", "funarg", "triplet",
+  "ident", "simple_const", "string_constant", "opt_substring", "opt_expr",
+  "specification-part", "opt-use-stmt-list",
+  "opt-declaration-construct-list", "declaration-construct-list",
+  "declaration-construct", "opt-execution-part", "execution-part",
+  "opt-execution-part-construct-list", "execution-part-construct-list",
+  "execution-part-construct", "opt-internal-subprogram-part",
+  "internal-subprogram-part", "opt-internal-subprogram",
+  "internal-subprogram-list", "internal-subprogram",
+  "other-specification-stmt", "executable-construct", "action-stmt",
+  "keyword", "scalar-constant", "constant", "literal-constant",
+  "named-constant", "opt-label", "label", "opt-label-djview",
+  "label-djview", "type-param-value", "declaration-type-spec", "$@7",
+  "intrinsic-type-spec", "$@8", "$@9", "$@10", "$@11", "$@12", "$@13",
+  "opt-kind-selector", "kind-selector", "signed-int-literal-constant",
+  "int-literal-constant", "kind-param", "signed-real-literal-constant",
+  "real-literal-constant", "complex-literal-constant", "real-part",
+  "imag-part", "opt-char_length-star", "opt-char-selector",
+  "char-selector", "length-selector", "char-length",
+  "char-literal-constant", "logical-literal-constant", "derived-type-def",
+  "$@14", "derived-type-stmt", "opt-type-attr-spec-list-comma-fourdots",
+  "opt-type-attr-spec-list-comma", "type-attr-spec-list", "type-attr-spec",
+  "type-param-name-list", "type-param-name", "end-type-stmt",
+  "opt-component-part", "component-part", "component-def-stmt",
+  "data-component-def-stmt", "opt-component-attr-spec-list-comma-2points",
+  "component-attr-spec-list", "component-attr-spec", "component-decl-list",
+  "component-decl", "opt-component-array-spec", "component-array-spec",
+  "opt-component-initialization", "component-initialization",
+  "initial-data-target", "derived-type-spec", "type-param-spec-list",
+  "type-param-spec", "structure-constructor", "component-spec-list",
+  "component-spec", "component-data-source", "array-constructor",
+  "ac-spec", "lbracket", "rbracket", "ac-value-list", "ac-value",
+  "ac-implied-do", "ac-implied-do-control", "ac-do-variable",
+  "type-declaration-stmt", "$@15", "$@16", "opt-attr-spec-construct",
+  "opt-attr-spec-comma-list", "attr-spec-comma-list", "attr-spec", "$@17",
+  "$@18", "entity-decl-list", "entity-decl", "object-name",
+  "object-name-noident", "opt-initialization", "initialization",
+  "null-init", "access-spec", "opt-array-spec-par", "$@19", "array-spec",
+  "explicit-shape-spec-list", "explicit-shape-spec", "lower-bound",
+  "upper-bound", "assumed-shape-spec-list", "assumed-shape-spec",
+  "deferred-shape-spec-list", "deferred-shape-spec", "assumed-size-spec",
+  "opt-explicit-shape-spec-list-comma", "opt-lower-bound-2points",
+  "implied-shape-spec-list", "implied-shape-spec", "intent-spec",
+  "access-stmt", "$@20", "opt-access-id-list", "access-id-list",
+  "access-id", "data-stmt", "$@21", "opt-data-stmt-set-nlist",
+  "data-stmt-set-nlist", "data-stmt-set", "data-stmt-object-list",
+  "data-stmt-value-list", "data-stmt-object", "data-implied-do",
+  "data-i-do-object-list", "data-i-do-object", "data-i-do-variable",
+  "data-stmt-value", "opt-data-stmt-star", "data-stmt-constant",
+  "scalar-constant-subobject", "constant-subobject", "dimension-stmt",
+  "$@22", "$@23", "array-name-spec-list", "$@24", "$@25", "parameter-stmt",
+  "$@26", "$@27", "named-constant-def-list", "named-constant-def",
+  "save-stmt", "$@28", "$@29", "opt-TOK_FOURDOTS", "opt-saved-entity-list",
+  "saved-entity-list", "saved-entity", "proc-pointer-name",
+  "get_my_position", "implicit-stmt", "$@30", "implicit-spec-list",
+  "implicit-spec", "letter-spec-list", "letter-spec", "namelist-stmt",
+  "opt-namelist-other", "namelist-group-object-list",
+  "namelist-group-object", "equivalence-stmt", "equivalence-set-list",
+  "equivalence-set", "$@31", "equivalence-object-list",
+  "equivalence-object", "common-stmt", "$@32", "$@33",
+  "opt-common-block-name", "common-block-name", "opt-comma",
+  "opt-common-block-list", "common-block-object-list",
+  "common-block-object", "$@34", "designator", "scalar-variable",
+  "variable", "variable-name", "scalar-logical-variable",
+  "logical-variable", "char-variable", "scalar-default-char-variable",
+  "default-char-variable", "scalar-int-variable", "int-variable",
+  "substring", "substring-range", "data-ref", "opt-part-ref", "part-ref",
+  "$@35", "scalar-structure-component", "structure-component",
+  "array-element", "array-section", "section-subscript-list",
+  "section-subscript", "section_subscript_ambiguous", "vector-subscript",
+  "allocate-stmt", "$@36", "$@37", "opt-alloc-opt-list-comma",
+  "alloc-opt-list", "alloc-opt", "stat-variable", "errmsg-variable",
+  "allocation-list", "allocation", "allocate-object",
+  "opt-allocate-shape-spec-list-par", "allocate-shape-spec-list",
+  "allocate-shape-spec", "opt-lower-bound-expr", "lower-bound-expr",
+  "upper-bound-expr", "deallocate-stmt", "$@38", "$@39",
+  "allocate-object-list", "opt-dealloc-opt-list-comma", "dealloc-opt-list",
+  "dealloc-opt", "primary", "level-1-expr", "mult-operand", "add-operand",
+  "level-2-expr", "power-op", "mult-op", "add-op", "level-3-expr",
+  "concat-op", "level-4-expr", "rel-op", "and-operand", "or-operand",
+  "equiv-operand", "level-5-expr", "not-op", "and-op", "or-op", "equiv-op",
+  "expr", "scalar-default-char-expr", "default-char-expr", "int-expr",
+  "opt-scalar-int-expr", "scalar-int-expr", "specification-expr",
+  "constant-expr", "scalar-default-char-constant-expr",
+  "default-char-constant-expr", "scalar-int-constant-expr",
+  "int-constant-expr", "assignment-stmt", "pointer-assignment-stmt",
+  "opt-bounds-spec-list-par", "bounds-spec-list", "bounds-remapping-list",
+  "bounds-spec", "bounds-remapping", "data-target",
+  "procedure-component-name", "proc-component-ref", "proc-target",
+  "where-stmt", "where-construct", "opt-where-body-construct",
+  "opt-masked-elsewhere-construct", "opt-elsewhere-construct",
+  "where-construct-stmt", "where-body-construct", "where-assignment-stmt",
+  "mask-expr", "masked-elsewhere-stmt", "elsewhere-stmt", "end-where-stmt",
+  "forall-header", "block", "opt-execution-part-construct", "do-construct",
+  "block-do-construct", "label-do-stmt", "label-do-stmt-djview",
+  "nonlabel-do-stmt", "loop-control", "do-variable", "do-block", "end-do",
+  "end-do-stmt", "nonblock-do-construct", "action-term-do-construct",
+  "do-term-action-stmt", "do-term-action-stmt-special",
+  "outer-shared-do-construct", "label-do-stmt-djview-do-block-list",
+  "inner-shared-do-construct", "do-term-shared-stmt",
+  "opt-do-construct-name", "cycle-stmt", "if-construct",
   "opt-else-if-stmt-block", "else-if-stmt-block", "opt-else-stmt-block",
   "else-stmt-block", "if-then-stmt", "else-if-stmt", "else-stmt",
   "end-if-stmt", "if-stmt", "case-construct", "opt_case-stmt-block",
-  "case-stmt-block", "select-case-stmt", "case-stmt", "end-select-stmt",
-  "case-selector", "case-value-range-list", "case-value-range",
-  "case-value", "continue-stmt", "format-stmt", "word_endsubroutine",
-  "word_endunit", "word_endprogram", "word_endfunction", "opt_name",
-  "before_dims", "ident_dims", "int_list", "after_ident_dims", "call",
-  "opt_call", "opt_callarglist", "keywordcall", "before_call",
-  "callarglist", "callarg", "stop", "option_inlist", "option_read",
-  "opt_inlist", "ioctl", "after_rewind", "ctllist", "ioclause",
-  "declare_after_percent", "iofctl", "infmt", "read", "fexpr",
-  "unpar_fexpr", "addop", "inlist", "inelt", "opt_operation", "outlist",
-  "other", "dospec", "goto", "allocation_list", "allocate_object",
-  "allocate_object_list", "opt_stat_spec", "pointer_name_list", YY_NULL
+  "case-stmt-block", "select-case-stmt", "$@40", "$@41", "case-stmt",
+  "end-select-stmt", "$@42", "$@43", "case-selector", "$@44",
+  "case-value-range-list", "case-value-range", "case-value", "exit-stmt",
+  "goto-stmt", "arithmetic-if-stmt", "continue-stmt", "stop-stmt",
+  "stop-code", "io-unit", "file-unit-number", "internal-file-variable",
+  "open-stmt", "$@45", "$@46", "connect-spec-list", "connect-spec",
+  "file-name-expr", "iomsg-variable", "close-stmt", "$@47",
+  "close-spec-list", "close-spec", "read-stmt", "write-stmt", "print-stmt",
+  "io-control-spec-list", "namelist-group-name", "io-control-spec",
+  "format", "input-item-list", "input-item", "output-item-list",
+  "output-item", "io-implied-do", "io-implied-do-object-list",
+  "io-implied-do-object", "io-implied-do-control", "rewind-stmt",
+  "position-spec-list", "position-spec", "flush-stmt", "flush-spec-list",
+  "flush-spec", "inquire-stmt", "$@48", "$@49", "set_in_inquire",
+  "inquire-spec-list", "inquire-spec", "format-stmt", "module", "$@50",
+  "opt-module-subprogram-part", "module-stmt", "$@51", "end-module-stmt",
+  "$@52", "opt-tok-module", "opt-ident", "module-subprogram-part",
+  "opt-module-subprogram-list", "module-subprogram-list",
+  "module-subprogram", "use-stmt-list", "save_olduse", "use-stmt", "$@53",
+  "$@54", "opt-module-nature-2points", "opt-only-list", "main-program",
+  "opt-specification-part", "program-stmt", "$@55", "end-program-stmt",
+  "$@56", "$@57", "opt-tok-program", "opt-tok-name", "module-nature",
+  "opt-rename-list", "rename-list", "rename", "only-list", "only",
+  "only-use-name", "generic-spec", "external-stmt", "external-name-list",
+  "external-name", "intrinsic-stmt", "intrinsic-procedure-name-list",
+  "intrinsic-procedure-name", "function-reference", "$@58", "call-stmt",
+  "$@59", "$@60", "$@61", "$@62", "before-call-stmt", "$@63",
+  "procedure-designator", "actual-arg-spec-list", "actual-arg-spec",
+  "actual-arg", "opt-prefix", "prefix", "prefix-spec",
+  "function-subprogram", "function-stmt", "$@64", "$@65", "function-name",
+  "dummy-arg-name", "opt-suffix", "suffix", "end-function-stmt", "$@66",
+  "opt-tok-function", "subroutine-subprogram", "subroutine-stmt", "$@67",
+  "subroutine-name", "end-subroutine-stmt", "close_subroutine",
+  "opt-tok-subroutine", "opt-dummy-arg-list-par", "$@68",
+  "opt-dummy-arg-list", "dummy-arg-list", "dummy-arg", "return-stmt",
+  "contains-stmt", "$@69", "opt_name", "after_rewind",
+  "declare_after_percent", "pointer_name_list", YY_NULL
 };
 #endif
@@ -1051 +1429 @@
      389,   390,   391,   392,   393,   394,   395,   396,   397,   398,
      399,   400,   401,   402,   403,   404,   405,   406,   407,   408,
-     409,   410,    40,    41,    60,    62,    10,    47,    37
+     409,   410,   411,   412,   413,   414,   415,   416,   417,   418,
+     419,   420,   421,   422,   423,   424,   425,   426,   427,   428,
+     429,   430,   431,   432,   433,   434,   435,   436,   437,   438,
+     439,   440,   441,    40,    41,    60,    62,    10,    47,    37,
+      95,    91,    93
 };
 # endif
@@ -1058 +1440 @@
 static const yytype_uint16 yyr1[] =
 {
-       0,   169,   170,   170,   171,   171,   171,   171,   172,   172,
-     172,   172,   172,   173,   173,   173,   174,   174,   174,   174,
-     175,   176,   176,   177,   177,   178,   178,   178,   178,   179,
-     179,   180,   181,   182,   182,   182,   183,   183,   183,   184,
-     184,   185,   185,   186,   186,   186,   186,   186,   186,   186,
-     186,   186,   186,   186,   186,   186,   186,   186,   186,   186,
-     186,   186,   186,   187,   187,   188,   188,   188,   188,   188,
-     188,   188,   188,   188,   188,   188,   188,   188,   188,   188,
-     188,   188,   188,   188,   188,   188,   188,   188,   188,   189,
-     189,   190,   190,   191,   191,   192,   193,   193,   194,   194,
-     195,   195,   196,   196,   197,   198,   199,   200,   200,   201,
-     201,   201,   202,   202,   203,   203,   203,   203,   204,   205,
-     205,   206,   206,   206,   207,   207,   207,   207,   207,   208,
-     208,   209,   209,   209,   209,   210,   211,   211,   212,   212,
-     213,   213,   214,   214,   214,   214,   215,   215,   215,   216,
-     216,   217,   217,   218,   219,   219,   220,   220,   221,   221,
-     222,   223,   224,   224,   225,   225,   226,   226,   227,   228,
-     228,   228,   228,   229,   229,   229,   229,   230,   230,   230,
-     231,   232,   232,   232,   232,   232,   232,   233,   233,   234,
-     234,   235,   235,   235,   236,   236,   237,   237,   237,   237,
-     237,   238,   238,   239,   239,   240,   240,   240,   241,   241,
-     242,   242,   242,   242,   242,   242,   242,   242,   242,   242,
-     242,   243,   243,   243,   244,   244,   245,   245,   246,   246,
-     247,   247,   247,   247,   247,   248,   248,   249,   249,   249,
-     249,   250,   250,   250,   250,   250,   250,   250,   250,   250,
-     250,   250,   250,   250,   250,   250,   250,   250,   250,   250,
-     250,   250,   250,   250,   250,   250,   250,   251,   251,   252,
-     252,   252,   252,   252,   252,   253,   253,   254,   254,   254,
-     254,   254,   254,   254,   254,   254,   254,   254,   254,   254,
-     254,   254,   254,   254,   254,   254,   254,   254,   255,   255,
-     255,   255,   256,   256,   257,   257,   257,   258,   259,   259,
-     259,   259,   260,   261,   262,   263,   263,   264,   264,   265,
-     265,   266,   266,   266,   266,   266,   266,   266,   267,   268,
-     268,   268,   268,   268,   268,   268,   268,   269,   269,   269,
-     269,   270,   270,   271,   272,   272,   273,   273,   274,   274,
-     274,   275,   276,   276,   276,   276,   277,   278,   278,   279,
-     280,   280,   281,   281,   282,   282,   283,   283,   283,   283,
-     283,   284,   284,   284,   284,   284,   284,   284,   284,   284,
-     284,   284,   284,   284,   284,   284,   284,   284,   284,   284,
-     284,   284,   284,   284,   284,   284,   285,   286,   287,   288,
-     288,   289,   289,   290,   290,   291,   292,   292,   292,   293,
-     294,   295,   295,   296,   296,   297,   297,   298,   299,   299,
-     299,   300,   301,   302,   302,   303,   303,   303,   303,   304,
-     304,   304,   304,   305,   305,   305,   305,   306,   307,   308,
-     308,   309,   309,   310,   311,   311,   311,   312,   313,   313,
-     313,   314,   315,   315,   316,   316,   317,   317,   318,   318,
-     319,   320,   321,   321,   321,   322,   323,   323,   324,   324,
-     325,   325,   326,   326,   327,   327,   328,   328,   328,   328,
-     329,   330,   331,   332,   333,   334,   335,   336,   336,   337,
-     338,   338,   339,   339,   340,   340,   341,   342,   342,   343,
-     343,   344,   344,   345,   346,   346,   347,   347,   348,   348,
-     349,   349,   350,   350,   351,   351,   352,   353,   353,   353,
-     353,   353,   354,   354,   355,   355,   355,   355,   355,   355,
-     355,   355,   356,   357,   357,   357,   358,   358,   359,   359,
-     359,   360,   360,   361,   361,   361,   361,   361,   361,   361,
-     361,   361,   361,   361,   361,   361,   361,   361,   361,   361,
-     362,   362,   363,   363,   364,   364,   364,   364,   364,   365,
-     365,   365,   366,   366,   366,   366,   366,   366,   366,   366,
-     366,   366,   367,   367,   367,   368,   368,   369,   369,   370,
-     370,   371,   372,   372,   373,   373,   374,   374
+       0,   203,   204,   204,   205,   205,   205,   206,   206,   206,
+     206,   206,   207,   207,   207,   208,   208,   208,   209,   210,
+     210,   210,   211,   211,   212,   213,   213,   214,   214,   214,
+     214,   214,   215,   215,   216,   216,   216,   216,   216,   216,
+     216,   216,   216,   216,   216,   216,   216,   216,   216,   216,
+     216,   216,   216,   216,   216,   217,   217,   217,   217,   218,
+     218,   219,   219,   219,   220,   221,   221,   222,   221,   223,
+     221,   224,   225,   224,   226,   227,   227,   228,   228,   229,
+     229,   230,   230,   230,   230,   230,   230,   230,   231,   232,
+     232,   232,   232,   232,   232,   232,   232,   233,   233,   233,
+     233,   234,   234,   235,   235,   236,   237,   237,   238,   238,
+     239,   239,   240,   240,   240,   240,   240,   240,   240,   240,
+     240,   240,   240,   240,   241,   241,   242,   243,   243,   244,
+     244,   245,   245,   246,   246,   247,   248,   248,   249,   249,
+     250,   250,   251,   251,   251,   251,   251,   251,   251,   251,
+     251,   252,   252,   252,   252,   252,   253,   253,   253,   253,
+     253,   253,   253,   253,   253,   253,   253,   253,   253,   253,
+     253,   253,   253,   253,   253,   253,   253,   253,   253,   253,
+     253,   254,   255,   256,   256,   257,   257,   257,   257,   257,
+     258,   259,   259,   260,   260,   261,   261,   262,   263,   263,
+     263,   265,   264,   264,   264,   267,   266,   268,   266,   269,
+     266,   270,   266,   271,   266,   272,   266,   273,   273,   274,
+     274,   274,   275,   275,   276,   276,   277,   277,   278,   278,
+     279,   279,   280,   281,   281,   281,   282,   282,   282,   283,
+     283,   284,   284,   285,   285,   285,   285,   285,   286,   286,
+     286,   286,   287,   287,   288,   288,   288,   289,   289,   291,
+     290,   292,   292,   293,   293,   294,   294,   295,   295,   296,
+     297,   297,   298,   299,   299,   300,   300,   301,   301,   302,
+     303,   304,   304,   304,   305,   305,   306,   306,   306,   306,
+     307,   307,   308,   309,   309,   310,   310,   311,   311,   312,
+     312,   312,   313,   314,   314,   315,   315,   316,   316,   317,
+     317,   318,   318,   319,   319,   320,   320,   320,   321,   321,
+     322,   323,   324,   325,   325,   326,   326,   327,   328,   328,
+     329,   331,   332,   330,   333,   333,   334,   334,   335,   335,
+     336,   336,   337,   336,   336,   338,   336,   336,   336,   336,
+     336,   336,   336,   339,   339,   340,   341,   342,   343,   343,
+     344,   344,   344,   345,   346,   346,   347,   348,   347,   349,
+     349,   349,   349,   349,   350,   350,   351,   351,   352,   353,
+     354,   354,   355,   355,   356,   356,   357,   358,   359,   359,
+     360,   360,   361,   361,   362,   363,   363,   363,   365,   364,
+     366,   366,   367,   367,   368,   368,   370,   369,   371,   371,
+     372,   372,   373,   374,   374,   375,   375,   376,   376,   377,
+     377,   378,   378,   379,   379,   379,   380,   381,   381,   381,
+     381,   381,   381,   381,   381,   382,   382,   383,   383,   383,
+     383,   383,   383,   383,   384,   385,   387,   388,   386,   390,
+     389,   391,   389,   393,   394,   392,   395,   395,   396,   398,
+     399,   397,   400,   400,   401,   401,   402,   402,   403,   403,
+     403,   404,   405,   406,   407,   406,   408,   408,   409,   410,
+     410,   411,   411,   412,   413,   413,   414,   414,   415,   416,
+     417,   417,   419,   418,   420,   420,   421,   421,   421,   423,
+     424,   422,   425,   425,   426,   426,   427,   427,   428,   428,
+     429,   429,   430,   431,   430,   432,   432,   432,   432,   433,
+     434,   435,   436,   437,   438,   439,   440,   441,   442,   443,
+     443,   443,   444,   445,   446,   446,   447,   448,   447,   449,
+     450,   451,   452,   452,   453,   453,   453,   454,   454,   454,
+     454,   454,   454,   454,   454,   454,   454,   455,   455,   455,
+     455,   455,   455,   456,   458,   459,   457,   460,   460,   461,
+     461,   462,   462,   463,   464,   465,   465,   466,   467,   467,
+     468,   468,   469,   469,   470,   471,   471,   472,   473,   475,
+     476,   474,   477,   477,   478,   478,   479,   479,   480,   480,
+     481,   481,   481,   481,   481,   482,   483,   483,   484,   484,
+     485,   485,   485,   485,   485,   486,   487,   487,   488,   488,
+     489,   489,   490,   491,   491,   492,   492,   492,   492,   492,
+     492,   492,   492,   492,   492,   492,   492,   493,   493,   494,
+     494,   495,   495,   496,   496,   497,   498,   499,   500,   500,
+     501,   502,   503,   504,   505,   505,   506,   507,   508,   509,
+     510,   511,   512,   513,   513,   514,   514,   514,   515,   515,
+     516,   516,   517,   517,   518,   519,   520,   521,   522,   523,
+     523,   523,   524,   525,   526,   526,   527,   527,   528,   528,
+     529,   530,   530,   530,   531,   532,   533,   533,   534,   534,
+     535,   535,   536,   537,   538,   538,   539,   539,   539,   540,
+     540,   541,   541,   541,   541,   542,   542,   542,   542,   543,
+     543,   543,   543,   544,   544,   544,   544,   545,   546,   547,
+     547,   548,   548,   549,   549,   550,   551,   552,   552,   552,
+     552,   552,   552,   552,   552,   552,   552,   552,   552,   552,
+     552,   552,   552,   552,   553,   553,   554,   554,   555,   556,
+     557,   557,   558,   559,   560,   560,   560,   561,   562,   562,
+     562,   563,   564,   564,   565,   565,   566,   566,   567,   567,
+     568,   569,   570,   570,   570,   571,   573,   572,   574,   572,
+     575,   575,   577,   576,   578,   576,   580,   579,   579,   581,
+     581,   582,   582,   582,   582,   583,   584,   584,   585,   586,
+     587,   588,   588,   589,   589,   590,   590,   590,   591,   592,
+     594,   595,   593,   596,   596,   597,   597,   597,   597,   597,
+     597,   597,   597,   597,   597,   597,   598,   599,   601,   600,
+     602,   602,   603,   603,   603,   603,   603,   604,   604,   604,
+     604,   605,   605,   606,   606,   607,   607,   608,   609,   609,
+     609,   609,   609,   609,   609,   609,   609,   609,   609,   610,
+     610,   610,   611,   611,   612,   612,   613,   613,   614,   614,
+     615,   616,   616,   617,   617,   618,   618,   619,   619,   620,
+     620,   621,   621,   621,   621,   621,   622,   622,   623,   623,
+     624,   624,   624,   624,   624,   626,   625,   627,   625,   628,
+     629,   629,   630,   630,   630,   630,   630,   630,   630,   630,
+     630,   630,   630,   631,   633,   632,   634,   634,   636,   635,
+     638,   637,   639,   639,   640,   640,   641,   642,   642,   643,
+     643,   644,   644,   645,   645,   646,   648,   647,   649,   647,
+     650,   650,   650,   651,   651,   652,   653,   653,   241,   241,
+     655,   654,   657,   658,   656,   659,   659,   660,   660,   661,
+     662,   662,   663,   663,   664,   665,   665,   666,   666,   666,
+     667,   668,   669,   669,   670,   670,   671,   672,   673,   673,
+     674,   675,   676,   675,   678,   677,   679,   677,   680,   681,
+     677,   683,   682,   684,   684,   684,   685,   685,   686,   686,
+     687,   687,   687,   688,   688,   689,   689,   690,   690,   690,
+     691,   693,   694,   692,   695,   696,   697,   697,   698,   700,
+     699,   701,   701,   702,   704,   703,   705,   706,   707,   708,
+     708,   709,   710,   709,   711,   711,   712,   712,   713,   713,
+     714,   714,   716,   715,   717,   717,   718,   718,   718,   718,
+     718,   719,   720,   720
 };
 
@@ -1123 +1552 @@
 static const yytype_uint8 yyr2[] =
 {
-       0,     2,     0,     2,     1,     1,     2,     1,     2,     1,
-       3,     2,     2,     1,     3,     3,     2,     2,     3,     1,
-       0,     0,     1,     0,     2,     4,     2,     5,     2,     1,
-       2,     1,     1,     0,     2,     3,     0,     2,     3,     1,
-       3,     1,     1,     2,     4,     2,     2,     4,     2,     1,
-       1,     1,     1,     1,     1,     1,     1,     1,     4,     3,
-       3,     2,     2,     0,     1,     1,     1,     1,     1,     1,
+       0,     2,     0,     2,     1,     1,     1,     2,     1,     1,
+       3,     2,     1,     3,     3,     1,     3,     1,     0,     1,
+       1,     1,     1,     1,     1,     0,     1,     1,     1,     2,
+       2,     2,     1,     1,     2,     2,     2,     2,     2,     2,
+       2,     2,     2,     3,     3,     2,     2,     2,     2,     2,
+       2,     2,     2,     2,     2,     0,     1,     2,     2,     2,
+       1,     1,     1,     1,     0,     1,     2,     0,     5,     0,
+       6,     1,     0,     5,     4,     1,     2,     1,     3,     1,
+       1,     3,     5,     4,     3,     2,     2,     1,     1,     1,
+       1,     1,     1,     1,     1,     2,     2,     1,     2,     1,
+       1,     0,     1,     0,     1,     2,     0,     1,     0,     1,
+       1,     2,     1,     1,     1,     1,     1,     1,     1,     1,
+       1,     1,     1,     1,     0,     1,     2,     0,     1,     1,
+       2,     1,     1,     0,     1,     3,     0,     1,     1,     2,
        1,     1,     1,     1,     1,     1,     1,     1,     1,     1,
        1,     1,     1,     1,     1,     1,     1,     1,     1,     1,
-       3,     3,     5,     1,     3,     3,     2,     4,     1,     3,
-       0,     1,     2,     3,     1,     1,     2,     1,     3,     4,
-       4,     8,     1,     3,     2,     3,     5,     3,     1,     0,
-       2,     1,     4,     3,     2,     3,     3,     3,     3,     0,
-       1,     2,     3,     5,     3,     1,     5,     5,     2,     3,
-       2,     3,     1,     1,     3,     3,     2,     3,     5,     1,
-       2,     1,     3,     2,     1,     3,     0,     1,     1,     3,
-       3,     2,     1,     3,     2,     2,     5,     6,     0,     2,
-       2,     3,     3,     0,     2,     4,     3,     3,     4,     2,
-       1,     1,     1,     1,     1,     1,     1,     0,     2,     1,
-       3,     0,     2,     3,     1,     3,     2,     3,     1,     1,
-       1,     1,     1,     0,     3,     0,     1,     3,     1,     3,
-       1,     1,     1,     2,     1,     4,     1,     1,     1,     1,
-       1,     1,     1,     1,     1,     1,     0,     3,     1,     3,
-       1,     1,     2,     2,     3,     1,     1,     1,     1,     1,
-       3,     3,     3,     4,     4,     3,     4,     4,     3,     4,
-       4,     4,     4,     4,     4,     4,     4,     4,     4,     4,
-       4,     4,     3,     4,     3,     4,     4,     1,     3,     1,
-       1,     1,     2,     2,     2,     1,     1,     2,     2,     2,
-       2,     2,     2,     2,     2,     2,     3,     3,     2,     2,
-       2,     2,     2,     2,     2,     2,     2,     2,     0,     1,
-       2,     2,     2,     1,     1,     1,     1,     0,     1,     2,
-       4,     5,     4,     4,     3,     1,     2,     1,     3,     1,
-       1,     3,     5,     4,     3,     2,     2,     1,     1,     1,
-       1,     1,     1,     1,     1,     2,     2,     1,     2,     1,
-       1,     0,     1,     5,     0,     1,     1,     1,     0,     2,
-       2,     5,     2,     4,     6,     6,     1,     1,     3,     3,
-       1,     3,     3,     1,     1,     1,     1,     1,     1,     1,
-       1,     1,     2,     1,     1,     2,     2,     2,     3,     2,
-       5,     5,     2,     2,     2,     2,     1,     4,     1,     2,
-       2,     2,     2,     1,     1,     1,     1,     5,     6,     0,
-       3,     0,     4,     0,     4,     4,     1,     1,     1,     1,
-       1,     3,     4,     1,     2,     1,     2,     0,     0,     2,
-       3,     1,     4,     1,     1,     4,     2,     5,     3,     3,
-       1,     4,     2,     6,     8,     5,     3,     1,     1,     1,
-       1,     1,     2,     6,     0,     1,     2,     3,     0,     1,
-       2,     3,     7,     5,     5,     6,     1,     2,     1,     2,
-       5,     4,     0,     1,     2,     3,     6,     4,     2,     3,
-       1,     2,     3,     1,     1,     3,     1,     2,     2,     3,
-       1,     1,     1,     1,     1,     1,     1,     1,     1,     0,
-       4,     7,     1,     3,     2,     2,     2,     0,     3,     0,
-       1,     2,     2,     1,     1,     3,     1,     2,     1,     1,
-       0,     1,     2,     2,     0,     2,     3,     3,     3,     1,
-       3,     1,     1,     3,     1,     1,     1,     3,     5,     4,
-       2,     2,     0,     1,     1,     1,     1,     1,     1,     1,
-       1,     1,     3,     1,     1,     3,     3,     3,     3,     2,
-       3,     2,     2,     2,     2,     2,     2,     2,     3,     1,
-       1,     1,     1,     3,     2,     4,     2,     2,     5,     0,
-       1,     2,     1,     1,     1,     1,     3,     3,     3,     3,
-       3,     3,     5,     5,     5,     5,     7,     8,     2,     1,
-       3,     1,     1,     3,     0,     4,     1,     3
+       1,     1,     1,     1,     1,     1,     2,     4,     2,     1,
+       1,     1,     1,     1,     1,     1,     1,     1,     1,     1,
+       1,     1,     1,     1,     1,     1,     1,     1,     1,     1,
+       1,     0,     1,     1,     1,     0,     1,     1,     1,     1,
+       1,     0,     2,     3,     3,     0,     3,     0,     3,     0,
+       3,     0,     3,     0,     3,     0,     3,     0,     1,     3,
+       5,     2,     1,     2,     1,     3,     1,     1,     1,     2,
+       1,     3,     5,     1,     1,     1,     1,     1,     1,     0,
+       2,     0,     1,     1,     9,     5,     5,     9,     3,     5,
+       2,     3,     3,     1,     1,     1,     1,     1,     1,     0,
+       4,     4,     7,     0,     2,     0,     2,     1,     3,     1,
+       1,     3,     1,     2,     3,     0,     1,     1,     2,     1,
+       4,     0,     1,     3,     1,     3,     1,     1,     4,     1,
+       1,     3,     4,     0,     3,     1,     1,     0,     1,     2,
+       2,     2,     1,     1,     4,     1,     3,     1,     3,     3,
+       4,     1,     3,     1,     3,     1,     1,     1,     3,     3,
+       1,     1,     1,     1,     3,     1,     1,     5,     5,     7,
+       1,     0,     0,     6,     0,     2,     0,     1,     2,     3,
+       1,     1,     0,     5,     1,     0,     5,     1,     1,     1,
+       1,     1,     1,     1,     3,     4,     1,     1,     0,     1,
+       2,     2,     2,     1,     1,     1,     0,     0,     4,     1,
+       1,     1,     1,     1,     1,     3,     3,     1,     1,     1,
+       1,     3,     1,     2,     1,     3,     1,     3,     0,     2,
+       0,     2,     1,     3,     2,     1,     1,     1,     0,     4,
+       0,     2,     1,     3,     1,     1,     0,     5,     0,     1,
+       2,     3,     4,     1,     3,     1,     3,     1,     1,     9,
+      11,     1,     3,     1,     1,     1,     1,     2,     2,     2,
+       1,     1,     1,     1,     1,     0,     2,     1,     1,     1,
+       1,     1,     1,     1,     1,     1,     0,     0,     6,     0,
+       5,     0,     7,     0,     0,     7,     1,     3,     3,     0,
+       0,     6,     0,     1,     0,     1,     1,     3,     1,     1,
+       1,     1,     0,     4,     0,     5,     1,     3,     4,     1,
+       3,     1,     3,     7,     0,     6,     1,     3,     1,     3,
+       1,     3,     0,     6,     1,     3,     1,     1,     1,     0,
+       0,     7,     0,     1,     1,     3,     0,     1,     0,     4,
+       1,     3,     1,     0,     5,     1,     1,     1,     1,     1,
+       1,     1,     1,     1,     1,     1,     1,     1,     1,     1,
+       4,     4,     3,     2,     0,     3,     1,     0,     5,     1,
+       1,     1,     1,     4,     0,     1,     3,     2,     1,     2,
+       3,     4,     2,     1,     3,     4,     2,     1,     2,     3,
+       4,     2,     0,     1,     0,     0,     8,     0,     2,     1,
+       3,     2,     3,     1,     1,     1,     3,     2,     1,     1,
+       0,     3,     1,     3,     2,     0,     2,     1,     1,     0,
+       0,     8,     1,     3,     0,     2,     1,     3,     2,     3,
+       1,     1,     1,     1,     3,     1,     1,     3,     1,     3,
+       1,     2,     3,     1,     2,     1,     1,     1,     1,     1,
+       1,     3,     1,     1,     3,     1,     1,     1,     1,     1,
+       1,     1,     1,     1,     1,     1,     1,     1,     2,     1,
+       3,     1,     3,     1,     3,     1,     1,     1,     1,     1,
+       1,     1,     1,     1,     0,     1,     1,     1,     1,     1,
+       1,     1,     1,     4,     5,     5,     7,     4,     0,     3,
+       1,     3,     1,     3,     2,     3,     1,     1,     3,     1,
+       1,     1,     5,     5,     0,     2,     0,     3,     0,     3,
+       5,     1,     1,     1,     1,     1,     4,     5,     2,     3,
+       2,     3,     0,     1,     0,     2,     1,     1,     1,     3,
+       3,     4,     2,     5,     3,     4,     2,     5,     3,     4,
+       2,     5,     3,     6,     8,     5,     3,     1,     1,     1,
+       2,     3,     4,     1,     1,     3,     2,     1,     1,     1,
+       1,     1,     1,     1,     2,     4,     1,     1,     1,     1,
+       1,     1,     1,     1,     4,     3,     2,     3,     3,     2,
+       0,     1,     3,     5,     0,     1,     2,     2,     0,     1,
+       2,     2,     8,     6,     6,     7,     2,     3,     2,     3,
+       5,     3,     0,     1,     2,     2,     0,     8,     0,     6,
+       3,     4,     0,     3,     0,     4,     0,     4,     1,     1,
+       3,     1,     2,     2,     3,     1,     2,     3,     3,    10,
+       3,     2,     3,     1,     1,     1,     1,     1,     1,     1,
+       0,     0,     7,     1,     3,     1,     2,     2,     2,     2,
+       2,     2,     2,     2,     2,     3,     1,     1,     0,     6,
+       1,     3,     1,     2,     2,     2,     3,     5,     6,     4,
+       6,     5,     6,     4,     6,     1,     3,     1,     1,     2,
+       1,     1,     2,     2,     2,     2,     2,     2,     2,     1,
+       1,     1,     1,     3,     1,     1,     1,     3,     1,     1,
+       5,     1,     3,     1,     1,     5,     7,     3,     5,     1,
+       3,     1,     2,     2,     2,     2,     3,     5,     1,     3,
+       1,     2,     2,     2,     2,     0,     7,     0,     9,     0,
+       1,     3,     1,     2,     2,     2,     2,     2,     2,     2,
+       3,     2,     2,     2,     0,     5,     0,     1,     0,     4,
+       0,     6,     0,     1,     0,     1,     2,     0,     1,     1,
+       2,     1,     1,     1,     2,     0,     0,     8,     0,    11,
+       0,     1,     3,     0,     1,     5,     0,     1,     0,     1,
+       0,     4,     0,     0,     6,     0,     1,     0,     1,     1,
+       0,     2,     1,     3,     3,     1,     3,     1,     1,     1,
+       1,     1,     3,     4,     1,     3,     1,     4,     1,     3,
+       1,     3,     0,     5,     0,     3,     0,     5,     0,     0,
+       7,     0,     4,     1,     1,     1,     1,     3,     1,     3,
+       1,     1,     1,     0,     1,     1,     2,     1,     1,     1,
+       5,     0,     0,    10,     1,     1,     0,     1,     4,     0,
+       7,     0,     1,     5,     0,     6,     1,     6,     0,     0,
+       1,     0,     0,     4,     0,     1,     1,     3,     1,     1,
+       3,     4,     0,     4,     1,     1,     3,     3,     1,     3,
+       1,     0,     1,     3
 };
 
@@ -1190 +1666 @@
 static const yytype_uint16 yydefact[] =
 {
-       2,     0,     1,     7,     9,   105,     0,     0,   482,     0,
-       0,     0,     0,     0,    22,   344,   100,   100,     0,   540,
-       0,     0,   156,   395,     0,     0,     0,   533,   534,   539,
-       0,   535,   538,     0,     0,     0,   135,   100,   100,     0,
-       0,   371,   118,     0,   503,   149,     0,   508,     0,   509,
-     356,    21,    63,     0,     0,   183,   181,   182,   186,   483,
-     486,   485,   484,   180,     0,   184,   185,   328,   492,    20,
-       3,     4,     5,    13,     0,    20,    20,     0,     0,    50,
-     119,    57,   156,    52,    54,    53,    49,     0,    56,    51,
-     205,   173,   191,   489,    55,     0,    19,   364,   366,   394,
-     370,     0,   367,   421,     0,   423,   424,   369,     0,   393,
-     368,     0,   365,     0,   388,     0,     0,     0,   386,   374,
-     497,     0,     0,     0,     0,   373,    32,    20,    31,    26,
-       0,     0,     0,   275,   276,     0,     0,     0,     0,   331,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,   334,   329,   330,     0,   337,   340,   339,   333,
-     328,   332,     0,   346,   347,   239,   237,     0,   269,   306,
-     308,   305,   271,   304,   270,   341,   384,   238,     0,    61,
-      93,     0,   345,   382,   101,   140,     0,   138,     0,   383,
-     588,     0,     0,   157,    29,   156,     0,   432,    28,   488,
-     487,   392,     0,     0,   377,   521,   519,     0,   379,     0,
-       0,     0,     0,   154,     0,     0,   131,     0,    46,   164,
-     165,   150,   162,   161,     6,   224,   225,   100,    64,   200,
-     198,   199,     0,    45,   121,     0,   156,   107,     0,     0,
-       8,    11,    12,    20,    21,     0,     0,    16,    17,     0,
-       0,    48,   158,    62,   119,     0,   226,   114,   119,   157,
-       0,     0,     0,     0,   226,   146,   151,     0,     0,   104,
-     206,    43,     0,   168,     0,     0,     0,   170,     0,     0,
-     169,   226,   352,   399,   418,   418,   462,   390,   389,   391,
-       0,     0,   532,   372,     0,   499,   496,   501,   502,   385,
-     375,   560,   561,   537,     0,     0,     0,     0,     0,     0,
-       0,   328,     0,   559,   543,   544,   376,   510,   514,     0,
-     536,     0,    18,   410,     0,     0,   274,   267,     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,   573,   574,   572,     0,   575,
-       0,     0,   237,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,   298,     0,
-       0,     0,   272,   273,   532,   344,   309,   307,   307,   335,
-     338,   336,   342,     0,   226,     0,     0,   143,   142,   141,
-     139,     0,     0,    30,   428,     0,   417,   437,     0,   591,
-     594,   589,   525,   526,     0,   304,     0,   522,   524,   541,
-     378,   332,   237,   304,   592,   594,   596,     0,    59,    66,
-      67,    70,    65,    71,    68,    73,    74,    75,    76,    77,
-      72,    78,    79,    80,    81,    82,    83,    84,    85,    86,
-      87,    69,    88,    89,    60,     0,   132,     0,    98,     0,
-       0,     0,     0,   202,   196,   201,   172,   129,     0,     0,
-       0,     0,   129,     0,     0,   156,    10,    14,    15,    33,
-      33,     0,     0,     0,   117,   156,     0,   120,   115,   134,
-     156,   226,   226,   156,   153,     0,   147,   210,   212,   226,
-     214,     0,   216,   217,   218,   219,   220,     0,   208,   211,
-      33,     0,   102,   226,   174,     0,   328,     0,   203,   332,
-       0,   192,   194,     0,   226,     0,   401,   438,     0,   444,
-       0,     0,   463,     0,   494,   495,     0,   493,     0,   506,
-       0,   500,   504,   551,   552,   554,   553,   557,   556,   555,
-       0,   524,     0,   569,   569,   569,   512,   511,   562,     0,
-     513,     0,     0,     0,     0,     0,   549,   405,   467,     0,
-     242,     0,     0,     0,   241,   248,   245,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,   262,
-       0,   264,     0,     0,     0,   237,     0,     0,     0,     0,
-     314,     0,     0,   240,     0,     0,   303,   297,   292,   282,
-     293,   294,   295,   291,   281,   289,   290,   283,   288,   277,
-     278,   279,     0,     0,   299,   296,   280,     0,   285,     0,
-     284,     0,     0,   315,     0,     0,     0,    95,    96,    94,
-      58,     0,     0,     0,     0,   436,     0,     0,     0,     0,
-     530,   531,   307,   226,     0,   516,   518,   520,   517,     0,
-       0,     0,   387,     0,   155,     0,    91,     0,   163,    44,
-     197,     0,   112,     0,   130,     0,     0,   108,   121,   123,
-       0,     0,     0,   156,   431,     0,    25,    23,   160,    47,
-     159,   119,   231,   235,     0,   228,   230,   236,     0,   187,
-     187,     0,   152,   213,     0,     0,   207,   103,   226,   187,
-       0,     0,   203,   176,     0,   179,     0,   193,   490,     0,
-       0,   353,   357,   396,   409,   407,   408,   403,     0,   406,
-     419,   441,   481,   422,   439,   440,     0,   448,   445,     0,
-     473,     0,   468,   470,   464,   461,   418,   489,   507,   498,
-       0,   558,   542,     0,   570,   566,   564,   567,     0,   515,
-     550,   546,   547,   548,   545,   397,   268,   243,   244,   247,
-     251,   252,   253,   254,   255,   250,   256,   257,   258,   259,
-     260,   261,   263,   265,   266,   246,     0,     0,     0,   576,
-     577,   580,   581,   578,   579,   249,   237,   302,   300,   301,
-     287,   286,   313,   344,   327,   319,   316,   317,   320,   310,
-     312,   226,   145,   144,     0,     0,   453,     0,   460,     0,
-       0,     0,   590,   380,     0,     0,   532,   527,   523,   593,
-     381,   597,    90,    99,     0,   109,   129,   129,   129,   129,
-     129,   124,   122,     0,     0,   110,     0,     0,   427,    42,
-      41,    34,     0,    39,    36,    27,   116,   233,     0,   227,
-     232,   133,     0,   136,   137,   148,   222,   223,   221,     0,
-     209,   187,   348,   175,   203,   177,     0,   195,     0,     0,
-       0,     0,     0,     0,   400,   420,   442,     0,   456,   446,
-       0,   449,     0,   418,     0,   480,     0,   474,   476,   469,
-     471,   465,   226,   505,     0,   569,   571,   563,   328,     0,
-       0,     0,   351,     0,     0,   325,   326,     0,   311,    97,
-       0,     0,     0,   435,     0,     0,   529,     0,    92,   113,
-     125,   126,   127,   128,     0,     0,   466,     0,     0,    35,
-       0,    24,   229,   234,   236,     0,   188,   189,   215,   348,
-       0,     0,   166,   178,   204,   363,   354,   355,   360,   359,
-     358,     0,   413,   415,     0,   398,   399,     0,   457,   458,
-     450,   443,   418,   447,   478,     0,   472,   477,   226,     0,
-     565,   582,   583,   584,   343,   324,     0,   321,   318,     0,
-       0,     0,   433,   595,   528,     0,   129,   452,    40,    37,
-       0,     0,   167,   349,   350,     0,     0,   411,   414,   416,
-     399,   402,     0,   459,   451,   475,   479,   491,   568,   323,
-       0,   587,     0,     0,     0,     0,     0,    38,   190,   362,
-     361,   412,   404,   454,   322,   434,   585,   111,   455,     0,
-     586
+       2,     0,     1,     6,     8,     0,     0,    17,     9,  1019,
+    1018,     0,    18,     3,     4,     5,    12,    15,    20,  1017,
+       0,    21,   106,    19,   106,     0,   201,  1015,    22,   106,
+      23,   106,    24,    18,   960,   928,   207,   205,   215,   209,
+     213,   211,    88,   303,     0,     0,     7,    11,    18,   201,
+     202,   957,   108,     0,   107,   943,   191,   191,     0,     0,
+    1018,  1016,   191,   191,    16,     0,     0,   217,   217,   217,
+     217,   241,   217,     0,   203,   204,    10,    13,    14,   453,
+       0,     0,   364,   365,    25,     0,   462,     0,   499,   193,
+      25,   263,   254,   256,     0,   255,    88,   194,   536,   105,
+     109,   110,   116,     0,   192,     0,   112,   259,   117,   201,
+     400,   142,   144,   145,     0,   113,   150,     0,     0,   115,
+     149,   146,   143,   520,     0,   518,   529,   534,   517,   515,
+     516,   118,   119,   120,   706,   704,   704,   707,   733,   734,
+     121,   123,   114,   147,   148,   122,   945,   944,     0,   192,
+     924,   927,   201,     0,     0,   103,     0,     0,     0,     0,
+       0,     0,   909,     0,     0,     0,     0,     0,    88,   133,
+     125,   191,   151,     0,   156,   162,   157,   172,   178,   155,
+     684,   152,   161,   154,   704,   169,   153,   782,   164,   163,
+     180,   160,   177,   171,   159,   174,   179,   173,   176,   165,
+     170,   158,   994,   175,  1036,  1041,  1024,     0,   133,   133,
+     961,   929,     0,     0,   208,   218,   206,   216,   210,     0,
+       0,   214,   242,   243,   212,   200,   645,   618,   619,   199,
+    1004,     0,   257,   258,  1005,   230,   224,     0,   321,   536,
+       0,   601,   307,   613,   185,   186,   188,   189,   187,     0,
+     305,   602,     0,   600,   605,   606,   608,   610,   620,     0,
+     623,   637,   639,   641,   643,   650,     0,   653,   656,   198,
+     603,     0,     0,   923,   492,     0,   490,    26,   720,     0,
+       0,     0,   986,     0,   984,   463,     0,     0,   502,   712,
+       0,     0,     0,     0,     0,   506,     0,   413,   418,   520,
+     417,     0,   537,   111,     0,     0,     0,     0,   654,   201,
+     334,   398,     0,   462,   462,   201,     0,     0,     0,     0,
+     654,   533,   728,   191,   195,   195,   950,  1052,   472,   936,
+     201,   939,   941,   942,     0,     0,    88,   536,   166,   104,
+       0,     0,   806,     0,  1055,  1054,   168,   564,   820,   838,
+       0,     0,   818,     0,     0,     0,   589,     0,   811,   652,
+     660,   662,   813,   659,   814,   661,     0,     0,     0,   962,
+     134,   126,   191,   129,   131,   132,     0,     0,     0,     0,
+    1001,     0,   686,   764,     0,     0,   783,   704,   998,     0,
+    1042,  1034,  1021,   472,   472,   221,     0,     0,     0,   253,
+     250,     0,     0,     0,     0,     0,   320,   323,   326,   325,
+       0,     0,   536,   613,   234,   186,     0,     0,     0,     0,
+       0,   304,     0,   615,     0,   616,   617,     0,   614,   222,
+       0,   185,   611,   626,   625,   630,   628,   629,   627,   622,
+     631,   632,   634,   636,   633,   635,     0,     0,   646,     0,
+     647,     0,   649,   648,     0,   638,   992,     0,     0,     0,
+     489,     0,   702,   727,     0,   722,     0,     0,   982,   990,
+       0,   988,     0,   504,     0,     0,   503,   714,   266,   267,
+     269,     0,   264,     0,   425,     0,   421,   540,   424,   539,
+     423,   507,   406,   506,     0,     0,     0,    25,    25,   544,
+    1050,     0,   871,   224,   870,   652,   869,     0,   810,     0,
+       0,     0,   655,   281,     0,   201,   277,   279,     0,     0,
+       0,   337,     0,   404,   401,   402,   405,     0,   464,   474,
+       0,     0,   476,    88,   600,     0,   519,   679,   680,   681,
+       0,     0,   587,     0,     0,   670,   672,     0,     0,     0,
+       0,   705,   197,    25,     0,     0,   191,   704,   709,   729,
+     735,     0,   755,   191,   710,     0,   951,     0,     0,     0,
+     925,   940,   695,     0,     0,   762,   807,   808,     0,     0,
+       0,     0,     0,     0,     0,     0,   653,   900,     0,   898,
+     896,     0,     0,     0,     0,   891,     0,   889,   887,     0,
+    1062,     0,   812,     0,   201,   955,     0,   130,     0,   816,
+       0,     0,     0,     0,     0,     0,     0,     0,    88,   524,
+     819,   858,   815,   817,     0,   861,   855,   860,     0,     0,
+       0,     0,     0,   694,   692,   693,   688,   685,   691,     0,
+     768,   765,   704,   798,   796,     0,   792,   784,   781,   785,
+     996,     0,   995,  1044,     0,  1044,     0,  1020,     0,  1033,
+       0,   219,     0,     0,     0,     0,   248,     0,   325,   318,
+       0,   227,   226,   231,   225,     0,   186,   604,   308,   306,
+     322,   319,   185,   607,   609,   612,   621,   624,   640,   642,
+     644,   991,     0,     0,     0,   456,   521,     0,   496,   498,
+     529,   497,   491,     0,   726,     0,   983,   985,     0,   987,
+       0,     0,   512,   508,   510,     0,   261,     0,     0,     0,
+       0,   410,   414,   536,   430,   222,   431,   228,   435,   433,
+       0,   434,   432,     0,   415,   435,   444,   302,     0,   363,
+     719,     0,   711,     0,   548,     0,     0,   536,     0,   545,
+     553,   562,   563,  1051,     0,   853,     0,   531,   654,     0,
+     282,     0,     0,   260,   278,   349,   341,     0,   344,     0,
+     347,   348,   350,   351,   352,   338,   340,   357,   332,   353,
+     366,   335,     0,   399,     0,     0,   447,   356,   468,   460,
+     465,   466,   469,   470,     0,     0,   201,   473,     0,   667,
+     674,     0,   669,     0,     0,   676,     0,   663,   530,   535,
+     716,     0,     0,     0,     0,     0,     0,     0,   737,   741,
+     738,   752,   736,   746,   743,   730,   748,   740,   750,   753,
+     749,   751,   742,   747,   739,   756,   704,   754,     0,   969,
+       0,   970,  1053,   932,     0,   788,   578,   540,   579,   567,
+     575,   580,     0,     0,     0,     0,     0,     0,     0,     0,
+       0,     0,   825,     0,   823,     0,     0,     0,     0,   842,
+       0,   840,     0,     0,     0,     0,     0,     0,     0,     0,
+       0,     0,     0,   912,     0,   910,   901,   904,   528,   902,
+     527,   526,   837,   525,   903,     0,     0,   892,   895,   894,
+     893,     0,     0,   592,   594,     0,   167,     0,   135,   201,
+     138,   140,   141,   965,   191,   868,   816,   859,   863,   857,
+     862,   864,   865,   866,   867,     0,     0,     0,     0,   849,
+    1003,  1002,     0,     0,     0,   684,     0,     0,   766,     0,
+     769,   704,   767,     0,     0,   790,   794,     0,     0,   536,
+       0,  1011,  1010,     0,  1006,  1008,  1049,  1025,  1048,     0,
+    1045,  1046,  1035,     0,  1031,  1039,     0,   252,     0,     0,
+       0,     0,   324,   190,   238,   236,   237,     0,     0,     0,
+       0,   454,     0,   654,     0,     0,   989,   521,   484,   486,
+     488,   505,   513,     0,   500,   268,   272,     0,   270,   536,
+     422,     0,   426,   407,   411,   537,     0,   428,   429,     0,
+       0,   412,   427,   223,   229,   721,   713,     0,   549,   556,
+     552,     0,     0,   538,   557,     0,   547,     0,   878,     0,
+     876,   879,   664,   532,   287,     0,   289,     0,   284,   286,
+     293,     0,   290,     0,   273,   342,   345,     0,     0,   367,
+     239,   339,   403,   449,     0,     0,     0,     0,   475,   481,
+       0,   479,   477,   677,   678,   675,   588,     0,   671,     0,
+     673,     0,   665,   718,    25,     0,   731,     0,  1060,  1058,
+       0,   744,     0,     0,   191,   758,   757,   952,     0,   946,
+     933,   934,   690,   682,     0,     0,     0,     0,   577,   836,
+     651,   830,   827,   828,   831,   834,     0,   826,   829,   833,
+     832,     0,   821,     0,   843,   845,   844,     0,     0,   914,
+       0,     0,   915,   916,   922,   913,   523,   921,   522,   917,
+     919,   918,     0,   905,   899,   897,   890,   888,     0,     0,
+    1063,     0,   139,   966,   967,     0,   780,     0,   192,   856,
+     851,     0,     0,   847,   874,     0,   872,   875,     0,     0,
+       0,     0,     0,   684,   683,   687,     0,     0,   776,     0,
+     770,   763,   771,     0,   805,     0,   799,   801,   791,     0,
+     793,   997,     0,     0,   999,  1043,     0,  1026,  1032,   934,
+    1040,   934,   220,     0,   249,     0,   246,   245,   536,     0,
+       0,   330,   232,   993,   658,   458,   457,     0,     0,   494,
+       0,   725,     0,     0,   506,   388,   511,     0,     0,     0,
+       0,     0,     0,   190,   437,   182,   183,   184,   439,   440,
+     442,   443,   441,   436,   438,   309,     0,     0,   311,   313,
+     676,   315,   316,   317,   416,   550,     0,     0,   554,   546,
+       0,   558,   561,   878,   883,   884,   875,     0,   881,     0,
+     854,     0,     0,   283,     0,   239,     0,   280,   274,   388,
+       0,   354,   333,   388,     0,   358,   388,     0,   448,   461,
+     467,     0,     0,   478,   674,     0,     0,   715,     0,   732,
+       0,     0,    32,    33,    91,    71,    94,   257,   258,   254,
+     256,   255,   230,   224,     0,     0,    27,    63,    65,    62,
+     536,    28,   101,   653,     0,     0,   759,     0,     0,   971,
+     972,     0,   935,   930,   789,     0,     0,   568,   569,   576,
+     565,     0,   582,     0,     0,   835,   824,     0,   846,   841,
+     839,   920,     0,   911,     0,     0,     0,   593,   595,   596,
+     590,   786,   968,   963,   773,     0,     0,   852,     0,   848,
+     850,     0,     0,     0,   698,     0,   700,   689,     0,   777,
+       0,   778,   803,     0,   797,   802,   795,   536,  1009,  1007,
+       0,  1047,     0,  1022,  1027,  1038,  1038,     0,     0,   327,
+       0,   455,     0,   493,   530,   723,   487,   483,     0,   382,
+       0,   369,   374,     0,   377,   370,   380,   371,   384,   372,
+     390,     0,   373,   392,   657,   379,   501,     0,   271,   262,
+       0,   235,   233,     0,     0,   310,   551,   555,   559,     0,
+       0,   877,   386,     0,   295,     0,   296,   285,     0,   297,
+     291,     0,   396,   397,   395,     0,     0,   240,     0,     0,
+     355,   359,     0,   451,   482,   480,   666,   717,     0,    31,
+    1057,  1059,    30,  1061,    66,   529,    67,    72,  1056,    95,
+      98,    96,   102,     0,     0,     0,     0,     0,     0,     0,
+       0,     0,     0,     0,     0,     0,     0,     0,    55,     0,
+       0,     0,    29,   745,   191,   953,     0,     0,   947,     0,
+     574,   571,     0,     0,     0,     0,   581,   584,   586,   822,
+     907,   906,   598,     0,     0,     0,     0,     0,     0,     0,
+     873,     0,     0,   696,   699,   701,     0,   779,   800,   804,
+    1000,     0,     0,  1029,     0,     0,     0,     0,   495,     0,
+       0,   514,   389,   383,     0,     0,     0,     0,   378,   394,
+     390,   509,     0,   314,   312,   560,     0,   882,     0,   288,
+       0,     0,   294,     0,     0,   292,   298,   343,   346,   368,
+     360,   362,   361,   302,   450,   388,     0,    64,    64,    64,
+       0,    54,    60,    49,    39,    50,    51,    52,    48,    38,
+      46,    47,    40,    45,    34,    35,    36,     0,     0,    53,
+      56,    37,     0,    42,     0,    41,   980,   948,   979,   954,
+     975,   978,   977,   974,   973,   931,   573,   572,   570,   566,
+     583,     0,   599,   597,   591,   787,   964,   191,     0,   772,
+     697,     0,   774,     0,  1023,     0,  1037,     0,     0,     0,
+     724,     0,   375,   376,   379,   382,     0,   381,   385,   391,
+     387,   393,     0,     0,   880,   299,   301,   300,     0,    74,
+      61,    75,     0,     0,     0,    59,    57,    58,    44,    43,
+       0,     0,   908,     0,   775,  1028,  1030,   244,   247,   328,
+       0,   383,     0,   419,     0,   452,    72,    87,    76,    77,
+      80,    79,    68,     0,    73,   949,   976,   809,     0,   485,
+       0,     0,     0,    85,     0,    86,    70,   329,   420,   885,
+      84,     0,    78,    81,     0,    83,     0,   886,    82
 };
 
@@ -1301 +1843 @@
 static const yytype_int16 yydefgoto[] =
 {
-      -1,     1,    70,    71,    72,    73,   250,    74,   865,    75,
-     205,   129,   127,   696,   951,   862,   863,    76,   237,   463,
-     464,   228,   189,   190,   403,   467,   196,   281,   282,    77,
-      78,   246,   247,   681,    79,    80,   267,   248,   682,   683,
-      81,    82,    83,    84,    85,   409,    86,    87,   275,   276,
-     225,   206,   261,   262,    88,   233,    89,   283,   522,    90,
-     287,   527,    91,    92,   873,   956,   290,   531,   242,   528,
-     725,   284,   517,   518,   879,   519,   497,   704,   705,   706,
-     337,   175,   338,   176,   177,   392,   635,   617,   178,   643,
-     179,   180,   181,   182,   645,   816,   817,   818,   183,   184,
-     185,   401,   396,   193,   186,   962,   187,    94,    95,   731,
-     732,   967,   968,   740,    97,    98,   734,    99,   100,   536,
-     737,   892,   101,   738,   739,   334,   893,   974,   975,   655,
-     537,   102,   103,   104,   105,   106,   207,   418,   538,   743,
-     744,   107,   747,   748,   900,   901,   108,   749,   902,   981,
-     109,   110,   541,   542,   111,   543,   755,   752,   906,   907,
-     908,   745,   112,   113,   114,   115,   116,   211,   291,   117,
-     118,   303,   119,   306,   550,   120,   121,   551,   552,   122,
-     566,   326,   570,   214,   218,   426,   427,   546,   123,   328,
-     124,   428,   429,   331,   567,   568,   765,   368,   369,   854,
-     125,   420,   421,   435,   658,   437
+      -1,     1,    13,    14,    15,    16,    46,    17,    18,    33,
+     279,  1304,  1305,  1492,  1599,  1581,  1306,  1661,  1307,  1577,
+    1578,  1308,  1579,  1309,  1662,  1688,  1689,  1690,   337,  1311,
+    1312,  1471,   338,    51,    52,    99,   100,   101,   169,   170,
+     371,   372,   373,   369,   370,   908,   909,   910,   102,   171,
+     172,   240,  1224,  1225,   241,   974,   173,   104,   555,  1084,
+     242,    19,    20,    44,    68,    67,    70,    72,    71,    69,
+     214,   215,   243,   244,   673,   414,   245,   246,   416,   977,
+    1275,   221,   222,   223,   400,   247,   248,   106,   309,   107,
+     292,   293,   478,   479,   997,   998,   763,   514,   515,   516,
+     517,   761,  1037,  1038,  1041,  1042,  1265,  1433,  1565,  1566,
+     729,   730,   249,   250,   731,  1237,  1238,  1239,   251,   405,
+     252,   681,   406,   407,   408,  1199,  1200,   108,   109,  1048,
+     519,   520,   521,   775,  1269,  1270,   778,   779,   788,   780,
+    1450,  1451,   732,   110,  1050,  1273,  1400,  1401,  1402,  1403,
+    1404,  1405,  1406,  1407,  1408,  1409,  1410,  1411,  1412,  1413,
+    1445,   111,   522,   311,   524,   525,   112,   719,   492,   493,
+     295,   296,   733,   297,   298,   485,   486,  1001,   734,  1007,
+    1233,   735,   736,   113,   114,  1055,   786,  1276,  1575,   115,
+     272,  1207,   694,   695,   116,   117,  1056,   286,   789,   790,
+     791,   792,    53,   119,   794,   531,   532,  1060,  1061,   120,
+    1214,   988,   989,   121,   275,   276,   458,  1208,   697,   122,
+     288,  1217,   475,   793,   494,   994,   713,   714,  1215,   253,
+     535,   124,   846,  1127,  1128,   620,   892,   893,  1616,   890,
+     125,   510,   126,   321,   127,   499,   488,   128,   129,   130,
+     748,   749,  1026,   750,   174,   578,  1504,  1096,  1327,  1328,
+    1617,  1501,   849,   850,   851,  1098,  1331,  1332,  1333,  1334,
+    1065,   175,   599,  1515,   904,  1139,  1348,  1349,   254,   255,
+     256,   257,   258,   424,   427,   259,   260,   446,   261,   447,
+     262,   263,   264,   265,   266,   449,   451,   454,   267,  1099,
+    1100,   268,   511,   352,  1415,  1205,   362,   363,   364,   365,
+     176,   177,   318,   543,   544,   545,   546,  1242,   538,   539,
+    1243,   178,   179,   382,   636,   934,   180,   637,   638,   573,
+     935,  1163,  1164,   704,   322,   323,   181,   134,   135,   557,
+     136,   280,   464,   324,   558,   559,   137,   138,   560,   822,
+     139,   561,   562,  1085,   340,   182,   183,   640,   641,   939,
+     940,   184,   642,   941,  1171,   185,   186,   385,   386,   187,
+    1516,  1094,   387,   648,   947,  1179,   645,   943,  1175,  1176,
+    1177,   188,   189,   190,   191,   192,   366,   621,   622,   623,
+     193,   579,  1337,   863,   864,  1101,   894,   194,   580,   870,
+     871,   195,   196,   197,   624,   625,   626,   627,  1155,  1254,
+    1029,  1030,  1031,  1257,  1258,  1558,   198,   596,   597,   199,
+     588,   589,   200,  1344,  1621,   350,   884,   885,   375,    21,
+     328,   150,    22,    66,   570,  1499,  1091,  1323,   151,   329,
+     330,   331,    54,   326,    55,  1321,  1670,   567,  1607,    23,
+      56,    24,    65,   605,   606,  1517,  1144,  1353,   840,  1089,
+    1319,  1608,  1609,  1610,  1611,   526,   143,   283,   284,   144,
+     470,   471,   270,   692,   201,   389,   948,   651,  1380,   202,
+     630,   271,   953,   954,   955,    25,    26,    27,    28,    29,
+     655,  1532,   207,   958,  1383,  1384,   657,  1635,  1189,    30,
+      31,   654,   205,   659,  1533,  1191,   391,   653,   959,   960,
+     961,   203,   152,   568,   346,  1081,  1576,   601
 };
 
 /* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing
    STATE-NUM.  */
-#define YYPACT_NINF -845
+#define YYPACT_NINF -1394
 static const yytype_int16 yypact[] =
 {
-    -845,   967,  -845,  -845,  -845,  -845,   -22,    45,  -845,    94,
-     186,  3621,   199,   238,  -845,  4658,    16,    36,  3621,  -845,
-     369,   256,    56,  -845,   299,   280,   268,  -845,  -845,  -845,
-     306,  -845,  -845,   409,   311,   350,  -845,   357,   357,   119,
-     354,  -845,  -845,    53,  -845,  -845,   420,  -845,   386,  -845,
-    -845,  5758,   363,   274,   280,  -845,  -845,  -845,  -845,  -845,
-    -845,  -845,  -845,  -845,   237,  -845,  -845,   549,  -845,  -845,
-    -845,   122,   563,  -845,   440,  -845,  -845,   319,   433,   436,
-     159,   495,   622,   624,  -845,  -845,   523,   329,  -845,  -845,
-     398,   102,   163,  -845,  -845,   471,  -845,  -845,  -845,  -845,
-    -845,   215,  -845,  -845,   215,  -845,  -845,  -845,   215,  -845,
-    -845,   215,  -845,   280,  -845,   280,   280,    20,   630,  -845,
-     472,    44,  3621,   306,  5477,  -845,  -845,  -845,  -845,  -845,
-    4658,  4658,  4658,  -845,  -845,  4658,   473,   474,   477,  -845,
-    4658,  4658,  4658,   478,   484,   486,   487,   488,   494,   496,
-     497,   498,   499,   500,   501,  4658,   505,  4658,   507,   508,
-     511,  4767,  -845,  -845,  -845,   512,  -845,  -845,  -845,  -845,
-    -845,  -845,  4658,  -845,  2490,  -845,  -845,  4658,   470,  -845,
-     513,   515,  -845,   516,   522,   270,  -845,  -845,   524,   654,
-    -845,  4658,  2490,  -845,  -845,  -845,   277,  -845,   277,  -845,
-    -845,  4658,  4658,  -845,  -845,   110,   326,  -845,  -845,  -845,
-    -845,  -845,   524,  5347,  4767,  -845,  -845,  4876,  -845,   524,
-     524,   277,  2573,  -845,   527,   524,  -845,  4658,   665,  -845,
-    -845,  -845,  -845,   680,   563,  -845,  -845,   357,  -845,  -845,
-    2967,  -845,   526,  -845,    88,   524,    32,  -845,   384,    82,
-    -845,  -845,  -845,  -845,  5621,    45,    45,  -845,  -845,   687,
-     533,   691,  -845,  -845,   535,   442,   534,  -845,   535,   524,
-     442,   537,   539,   442,   534,   699,  -845,   545,   847,  -845,
-    -845,  -845,    45,   714,   564,   434,  3874,  -845,  4985,   274,
-    -845,   534,   727,   122,   122,   122,   258,  -845,  -845,  -845,
-    4658,  4658,  -845,  -845,   571,  3983,  -845,  -845,  -845,  -845,
-    -845,  -845,  -845,  -845,  4658,  4658,  4658,  4658,  4658,  4658,
-    4658,   726,  5347,  -845,   470,   522,  -845,  1249,   730,   555,
-     561,  5523,  -845,  2490,   572,  1332,   875,  2490,    38,  4658,
-    4658,  4658,    48,  1353,    61,  4658,  4658,  4658,  4658,  4658,
-    4658,  4658,  4658,  4658,  4658,  4658,  4658,  1514,  4658,    68,
-    4658,  4658,  4658,  4767,  2490,  1533,   753,  1552,   278,   731,
-    4658,  1616,   733,  3294,  4658,  4658,  4658,  4658,  4658,  4658,
-    4658,  4658,  4658,  4658,  4658,  4658,  4658,  4658,  3076,  4658,
-    3403,  3512,  -845,   185,  -845,  4658,  -845,  -845,  -845,  -845,
-    -845,  -845,  -845,    69,   534,   199,  1635,  -845,  -845,   734,
-     734,  1129,  1713,  -845,  -845,   576,  -845,  -845,   736,   470,
-     739,  -845,  -845,  -845,  5523,  3765,    79,  -845,   555,  -845,
-     740,   581,   582,   439,  -845,   743,  -845,   105,   734,  -845,
-    -845,  -845,  -845,  -845,  -845,  -845,  -845,  -845,  -845,  -845,
-    -845,  -845,  -845,  -845,  -845,  -845,  -845,  -845,  -845,  -845,
-    -845,  -845,  -845,  -845,   744,   717,  -845,   106,  2490,   588,
-     591,   280,  4092,  -845,  -845,  2490,  -845,   598,  4658,    31,
-     237,   594,   598,   595,   602,   125,  -845,  -845,  -845,   609,
-     609,  4658,   109,   533,  -845,   622,  2531,  -845,  -845,  -845,
-     622,   534,   534,   622,  -845,   545,   699,  -845,  -845,   534,
-    -845,   615,  -845,  -845,  -845,  -845,  -845,   123,  -845,  -845,
-     609,   618,  -845,   534,  -845,  3874,  3185,   585,   750,    34,
-    4201,  -845,  2490,   592,   534,    80,  4331,  5955,    78,  5879,
-      13,    85,  -845,   215,  2490,  2490,   524,  -845,   619,  2490,
-     616,   778,  -845,  2490,  2490,  2490,  2490,  2490,  2490,  2490,
-    4658,   337,  1249,  2490,   706,  1732,  -845,   779,  -845,  1249,
-    -845,  5523,  5523,  5523,  5523,  5523,   760,  4658,  -845,  4658,
-    -845,   111,   115,  1751,  -845,  -845,  -845,  1796,  1815,  1834,
-    1912,  1931,  1995,  2014,  2033,  2092,  2111,  2130,  2194,  -845,
-     121,  -845,   130,   136,   149,   781,   785,   786,  4767,  4767,
-    -845,  4767,   150,  -845,  4658,  4658,  2490,  -845,   542,   542,
-     806,   806,   875,   887,   887,   887,   887,   887,   887,   164,
-     164,   185,  4658,  4658,  2490,  -845,   185,  4658,   887,  4658,
-     887,   524,   787,  2640,   627,   629,   524,  -845,  -845,  -845,
-    -845,   295,  4658,  6031,  4658,  -845,  4658,    19,   631,   337,
-    -845,  -845,  2640,    83,  5347,  -845,  -845,  -845,  -845,    19,
-     632,   524,  -845,  2573,  -845,  4658,  -845,  4658,  -845,  -845,
-    -845,   771,    42,   547,  -845,  2213,   636,  -845,   637,  -845,
-     776,  4658,  4658,   135,  -845,   242,  -845,   774,  2490,  -845,
-    -845,   535,  4658,  -845,   151,  -845,  -845,  1253,   524,   780,
-     780,   545,  -845,  -845,   476,   847,  -845,  -845,   534,   780,
-     641,  4092,   750,  -845,   645,  -845,   644,  -845,  -845,   804,
-     688,   809,  -845,  2490,  -845,  -845,  -845,   773,   215,  -845,
-     215,   653,  -845,  -845,  -845,  -845,   652,   536,  -845,   215,
-    -845,  2749,   655,   664,  -845,  -845,   122,  -845,  -845,  -845,
-    3983,  2490,  -845,   152,  -845,  2490,  2490,  2490,  1249,   779,
-     570,   760,   760,   760,   593,  -845,  2490,  -845,  -845,  -845,
-    -845,  -845,  -845,  -845,  -845,  -845,  -845,  -845,  -845,  -845,
-    -845,  -845,  -845,  -845,  -845,  -845,  5094,  5094,  5094,  2490,
-    -845,  2490,  -845,  2490,  -845,  -845,   667,   887,   887,   185,
-     887,   887,   470,  4658,  2858,  1415,   828,  -845,  -845,   513,
-    -845,   534,  -845,  -845,  2291,   670,  -845,   671,  -845,  2310,
-    1150,   829,  -845,  -845,  1233,   672,  -845,  -845,  -845,  -845,
-    -845,  -845,  -845,  2490,   153,  -845,   598,   598,   598,   598,
-     598,   522,  -845,   832,   676,  -845,  2329,  2374,  -845,  -845,
-    -845,  -845,   154,  -845,   678,  -845,  -845,  2490,  2531,  -845,
-    4440,  -845,  5203,  -845,  -845,   699,  -845,  -845,  -845,   679,
-    -845,   780,   231,  -845,   750,  -845,  4092,  -845,   291,   681,
-     683,  4658,   586,   215,   122,   122,  -845,  4658,   685,  -845,
-     454,  -845,   215,   122,  4658,  2490,   155,  -845,   842,  -845,
-    -845,  5955,   534,  -845,  1831,  2490,  -845,  -845,   832,   684,
-     686,   689,  -845,   690,  4658,  1435,  4658,  2640,  -845,  -845,
-     845,  4658,  4658,  -845,  4658,   524,  -845,   524,  -845,  -845,
-      66,    66,   693,   143,  4658,   833,  -845,   768,    60,  -845,
-     259,  -845,  -845,  -845,  2490,  4549,  -845,  2490,  -845,   231,
-    4658,  4658,  -845,  -845,  -845,   729,  -845,   851,  -845,  -845,
-    -845,   695,   696,   702,   215,  -845,   122,  2393,  -845,   703,
-    -845,  -845,   122,  5955,  -845,  2749,  -845,  4658,   534,   701,
-    2490,  -845,  -845,  -845,  -845,  2490,  4658,  1455,  -845,  4658,
-     704,  2412,  1171,   470,   697,  1192,   598,  -845,  -845,  -845,
-     157,   705,  -845,  2490,  2490,   709,   713,   716,  -845,  -845,
-     122,  4331,   784,  -845,  5955,  -845,  -845,  -845,  -845,  2490,
-    4658,  2490,  4658,  6107,  4658,  4658,   855,  -845,  -845,  -845,
-    -845,  -845,  4331,   719,  2490,  2490,  1213,  -845,  -845,  4658,
-    2490
+   -1394,  1431, -1394, -1394, -1394,   -49,   -36, -1394, -1394, -1394,
+      39,   837, -1394, -1394,   155,   218, -1394, -1394, -1394, -1394,
+     855, -1394,   194, -1394,   194,   189,   624, -1394, -1394,   194,
+   -1394,   194, -1394, -1394, -1394, -1394, -1394, -1394, -1394, -1394,
+   -1394, -1394, -1394,   101,   233,   268, -1394, -1394, -1394,   869,
+   -1394, -1394,  4057,   229,   194, -1394,   512,  2546,   303,   355,
+   -1394, -1394,  2546,  2546, -1394,   188,   188,    86,    86,    86,
+      86,    95,    86,   132, -1394, -1394, -1394, -1394, -1394, -1394,
+     188,   361, -1394, -1394,    98,   296,   421,   598, -1394, -1394,
+      98,   109, -1394, -1394,   800, -1394,   658, -1394,   434, -1394,
+    4057, -1394, -1394,   313,   697,   495, -1394, -1394, -1394,   549,
+     422, -1394, -1394, -1394,   604, -1394, -1394,   625,   651, -1394,
+   -1394, -1394, -1394,   -18,   764, -1394,   615, -1394, -1394, -1394,
+   -1394, -1394, -1394, -1394, -1394, -1394, -1394, -1394, -1394, -1394,
+   -1394, -1394, -1394, -1394, -1394, -1394, -1394, -1394,   691, -1394,
+   -1394, -1394,   892,   667,   669,  1351,   432,   -53,   475,   674,
+     676,   683, -1394,  3782,  3837,   687,   690,  3574,   812,   731,
+   -1394,  4247, -1394,  1042, -1394, -1394, -1394, -1394, -1394, -1394,
+   -1394, -1394, -1394, -1394, -1394, -1394, -1394,   827, -1394, -1394,
+   -1394, -1394, -1394, -1394, -1394, -1394, -1394, -1394, -1394, -1394,
+   -1394, -1394,   709, -1394, -1394,   716, -1394,   729,   731,   731,
+     155,   155,   700,  3103, -1394, -1394, -1394, -1394, -1394,   411,
+    1061, -1394, -1394, -1394, -1394, -1394, -1394, -1394, -1394, -1394,
+   -1394,  3867, -1394, -1394, -1394,   727,   730,  3882, -1394,    87,
+     927, -1394, -1394, -1394,   760, -1394, -1394,   495, -1394,    82,
+   -1394, -1394,  3867, -1394, -1394,   932, -1394,   756,   253,  1456,
+     951, -1394, -1394,   947,   949,   781,  2103, -1394, -1394, -1394,
+   -1394,   768,   769,   155, -1394,   103, -1394, -1394,   155,   322,
+     188,   783, -1394,   118, -1394, -1394,   786,   789,   610,   155,
+     188,   699,   790,   433,   487,   130,   608, -1394, -1394, -1394,
+   -1394,    13, -1394, -1394,  3574,  3585,   188,   967,  3882,   657,
+     210, -1394,   795,   421,   421,    14,  3913,  3882,   843,  3882,
+    3882,   798, -1394,  4169,   409,   834,   263, -1394, -1394, -1394,
+     895, -1394, -1394, -1394,  3882,  3882,   336,   434, -1394, -1394,
+     188,   188,   155,   188, -1394, -1394, -1394, -1394, -1394, -1394,
+     811,  3434, -1394,   188,  3464,   188, -1394,   819,   155, -1394,
+   -1394, -1394, -1394, -1394, -1394, -1394,   188,   362,   188, -1394,
+   -1394, -1394,  4270, -1394, -1394, -1394,  3882,  3133,  3133,  3585,
+   -1394,  1014,   556,   918,    -5,    76, -1394, -1394,   841,   188,
+   -1394, -1394, -1394, -1394, -1394, -1394,  1031,   846,   132, -1394,
+   -1394,  1032,  1038,   112,  3867,   898,  1048, -1394, -1394, -1394,
+     644,   644,   482,   871, -1394,   879,   888,  1456,   874,   132,
+     132, -1394,   868, -1394,  1456, -1394, -1394,  1456, -1394, -1394,
+    1456,   901,   756, -1394, -1394, -1394, -1394, -1394, -1394, -1394,
+   -1394, -1394, -1394, -1394, -1394, -1394,  2103,  2103, -1394,  3882,
+   -1394,  3882, -1394, -1394,  3882, -1394,   882,   887,   697,   361,
+     155,   886, -1394, -1394,  1087,   155,   118,   783,   155, -1394,
+     160, -1394,  1073, -1394,   906,   908, -1394,   155,  1101, -1394,
+   -1394,   188, -1394,   913, -1394,  1105, -1394, -1394, -1394, -1394,
+   -1394, -1394, -1394,   169,   800,   800,   762,    98,    98,  1119,
+     155,   188, -1394,   114, -1394, -1394, -1394,   195,   155,  3882,
+     916,  1113, -1394,   341,   952,   723, -1394, -1394,  1850,   933,
+     972,  1126,   188, -1394,  1128, -1394, -1394,   944,   158, -1394,
+     948,   201, -1394, -1394,    93,   946, -1394, -1394, -1394, -1394,
+     188,  1146, -1394,   115,   134, -1394, -1394,   697,   188,   957,
+     819, -1394, -1394,    98,  1149,  1043,  4345, -1394, -1394, -1394,
+   -1394,   -25, -1394,   331, -1394,  1025, -1394,   969,   188,   979,
+   -1394, -1394, -1394,   968,   971,   155,   155,   155,   819,  3218,
+    3519,  2975,  3882,   -53,   697,   697,   874, -1394,   137, -1394,
+     155,  3882,   -53,   697,   697, -1394,   138, -1394,   155,   819,
+   -1394,   147,   155,   970,   555, -1394,   987, -1394,   980, -1394,
+    3882,  3639,  3585,   982,   -53,   -53,   -53,   697, -1394, -1394,
+   -1394, -1394, -1394, -1394,   161, -1394, -1394, -1394,   168,   207,
+     440,  1060,   697, -1394, -1394, -1394,  1137, -1394, -1394,   984,
+     803, -1394, -1394, -1394, -1394,   442,   988, -1394, -1394, -1394,
+   -1394,  3882,   155,    83,   188,    83,   996, -1394,  1000, -1394,
+    3882, -1394,   990,   132,  3882,  3882, -1394,  1187,   874, -1394,
+    3867, -1394, -1394, -1394, -1394,   234,  1017, -1394, -1394, -1394,
+   -1394, -1394, -1394, -1394, -1394,   756,   253,  1175, -1394,   947,
+     949, -1394,  3882,  1189,   171, -1394,   496,  1195, -1394, -1394,
+    1007, -1394, -1394,  3882, -1394,  3882,   155, -1394,   786,   155,
+     819,  1183,  1013,  1204, -1394,   699,   155,  1018,   487,   188,
+     800, -1394, -1394,  1015, -1394,  1191, -1394, -1394,   176, -1394,
+    1021, -1394, -1394,   710, -1394,  1191, -1394,  1194,   534, -1394,
+     155,   188,   155,   188,  1176,   -53,  3882,   125,   174, -1394,
+   -1394,   116, -1394,   155,  3960,   155,   188, -1394,  3882,   659,
+   -1394,   819,   485, -1394, -1394, -1394, -1394,  1023, -1394,  1024,
+   -1394, -1394, -1394, -1394, -1394, -1394, -1394, -1394,  1215, -1394,
+    1026, -1394,  1850,   155,   795,  1027,  1218, -1394, -1394, -1394,
+    1219, -1394, -1394, -1394,   188,  1033,   549,   155,  1034,   155,
+    3882,  3882, -1394,  3882,  1077, -1394,   188,   155, -1394, -1394,
+     155,   188,  1062,   501,  1036,  3989,  1039,  1206, -1394, -1394,
+   -1394, -1394, -1394, -1394, -1394, -1394, -1394, -1394, -1394, -1394,
+   -1394, -1394, -1394, -1394, -1394,   834, -1394, -1394,  1095, -1394,
+    1084,  1236,   155,  1130,   476, -1394, -1394, -1394, -1394,  1239,
+   -1394,  1054,  3882,  3882,  3882,  3882,  3882,  1245,  3882,   -53,
+    3882,   697, -1394,   193, -1394,  1246,  3882,   -53,   697, -1394,
+     197, -1394,  3882,  1251,   697,   697,   697,   697,  3882,   697,
+     -53,   697,   697, -1394,   200, -1394, -1394, -1394, -1394, -1394,
+   -1394, -1394, -1394, -1394, -1394,  3434,   188, -1394, -1394, -1394,
+   -1394,  3464,   188, -1394,  1254,   819, -1394,  3882, -1394,   976,
+   -1394, -1394, -1394,  1228,  2759, -1394, -1394, -1394, -1394, -1394,
+   -1394, -1394, -1394, -1394, -1394,  3133,  3650,   425,   909,   155,
+   -1394, -1394,  3882,  3882,   864, -1394,  3882,   505, -1394,   645,
+   -1394, -1394, -1394,  1555,   188,   155, -1394,   188,   188,    87,
+    1255, -1394, -1394,   202, -1394, -1394, -1394, -1394, -1394,  1065,
+    1260, -1394,   155,  1071,  1235,  1238,  1075, -1394,   203,   205,
+    1076,  3867, -1394, -1394, -1394, -1394, -1394,  1080,   211,  3882,
+     887, -1394,   697,  3882,  1082,  1274, -1394, -1394,  1276, -1394,
+   -1394, -1394, -1394,   908,   567, -1394, -1394,   212, -1394,   182,
+   -1394,  1278, -1394,   155, -1394,   132,   579, -1394, -1394,  3697,
+     762, -1394, -1394, -1394, -1394,   155,   155,  3882,  1282, -1394,
+   -1394,  3734,  1119, -1394,  1634,  3882, -1394,  3960, -1394,   258,
+   -1394, -1394,   155, -1394, -1394,  1094, -1394,   353, -1394, -1394,
+    1097,   266, -1394,   188,   155, -1394, -1394,   933,   188, -1394,
+    1270, -1394, -1394, -1394,  1102,   188,   188,   158,   155,  1272,
+     214, -1394, -1394, -1394, -1394, -1394, -1394,  1291, -1394,  1292,
+   -1394,   697,   155,   155,    98,   188,   155,  3882,  2901,  2425,
+    3379, -1394,   819,  3882,  1839, -1394,   834, -1394,   143, -1394,
+   -1394,  1107,   155, -1394,   188,   414,  1108,  3882, -1394, -1394,
+   -1394, -1394, -1394, -1394, -1394, -1394,  3882, -1394, -1394, -1394,
+   -1394,  3218, -1394,  3882, -1394, -1394, -1394,  3519,   188, -1394,
+     697,  1111, -1394, -1394, -1394, -1394, -1394, -1394, -1394, -1394,
+   -1394, -1394,  3294, -1394, -1394,   155, -1394,   155,   445,  1115,
+   -1394,  1121, -1394, -1394,  1133,   188, -1394,  1592,   350, -1394,
+     155,   258,  3960,   155, -1394,   318, -1394, -1394,   318,  1123,
+    1132,   577,   613, -1394, -1394,   556,  1135,   188,   155,   623,
+   -1394, -1394, -1394,  3882, -1394,   220, -1394,  1295,   155,   188,
+     155,   155,  3882,  3882, -1394, -1394,    83,  1301, -1394,  1107,
+   -1394,  1107, -1394,  1242, -1394,  1264, -1394, -1394,   182,  1139,
+    1334, -1394, -1394, -1394, -1394, -1394, -1394,   188,   225, -1394,
+    1150, -1394,  3882,   819,   364,  1681, -1394,   188,   610,  1018,
+     188,  3882,   234,   540, -1394, -1394, -1394, -1394, -1394, -1394,
+   -1394, -1394, -1394, -1394, -1394, -1394,  1335,   240, -1394, -1394,
+    1144, -1394, -1394, -1394, -1394, -1394,  3882,   -53, -1394, -1394,
+    3882,  1342, -1394,   874, -1394, -1394, -1394,  1345, -1394,  3960,
+     155,  1923,   659, -1394,  1923,  1270,   819,   155,   155,  1681,
+     696, -1394,   155,  1681,   411,   105,  1681,  1160,   155,   155,
+   -1394,  1166,  1033, -1394, -1394,  3882,   188,   155,   188,   155,
+    1164,  3882, -1394, -1394, -1394, -1394, -1394,   582,   592,   634,
+     744,   865,   444,   562,  1165,  3882,  1167, -1394,   697,  1181,
+     491,  1188,   870,  1880,   243,  1186, -1394,  1378,  1237,  1381,
+   -1394,   188, -1394, -1394,   155,   697,  1382,  1383, -1394, -1394,
+   -1394,   246, -1394,  3882,  1384, -1394, -1394,   188, -1394, -1394,
+     155, -1394,  3960, -1394,   188,   697,  1387, -1394,  1390, -1394,
+   -1394, -1394, -1394, -1394,   155,  3882,   -53,   155,   909,   155,
+     155,  1293,   650,   188,   155,   188,   155,   556,  1296,   155,
+     188,   155, -1394,  1555, -1394,  3882,   155,   434, -1394, -1394,
+     188, -1394,  1201, -1394, -1394, -1394, -1394,  1393,  1395, -1394,
+    3882,   155,   697, -1394, -1394,  1392, -1394,   155,  1385, -1394,
+    1209,  1402, -1394,  1405, -1394,  1403, -1394,  1407, -1394, -1394,
+    3882,  1396,  1408, -1394, -1394,  1412,   155,   908, -1394,   155,
+    1415, -1394, -1394,  3913,  3913, -1394, -1394, -1394, -1394,  3882,
+    3960, -1394, -1394,  1226,  1419,  1420,  1407, -1394,  1229,   121,
+   -1394,  1231, -1394, -1394, -1394,  1232,  1233, -1394,  3882,   533,
+   -1394, -1394,  1234, -1394, -1394, -1394,   155,   155,   467, -1394,
+   -1394, -1394, -1394, -1394, -1394,  1007, -1394,   108, -1394, -1394,
+    1241, -1394, -1394,  2513,  3882,  3882,  3882,  3882,  3882,  3882,
+    3882,  3882,  3882,  3882,  3882,  3882,  3882,  3882,  2329,  3882,
+    2559,  2599, -1394, -1394,  1839,  1244,  1247,  1248,   155,   188,
+   -1394, -1394,   697,    50,   188,  3882, -1394, -1394, -1394,   155,
+    1427,   155, -1394,   697,   262,   188,   188,   188,  1243,  1433,
+   -1394,   188,   188,   155,   155,   155,   682,   155, -1394, -1394,
+     155,  1249,   188, -1394,   188,  3882,   132,  1439, -1394,  3882,
+    1252, -1394,  3882,  3771,  2016,  1440,  1441,  1428, -1394, -1394,
+    3882,  1204,  3882, -1394, -1394, -1394,  1445, -1394,  1257, -1394,
+    3882,  3882, -1394,  3882,   533, -1394, -1394, -1394, -1394, -1394,
+   -1394, -1394, -1394, -1394, -1394,  1681,    -1, -1394, -1394, -1394,
+    3882, -1394, -1394, -1394, -1394, -1394, -1394, -1394, -1394, -1394,
+   -1394, -1394, -1394, -1394, -1394, -1394, -1394,  3882,  3882, -1394,
+   -1394, -1394,  3882, -1394,  3882, -1394,  1237, -1394, -1394,  1450,
+   -1394, -1394, -1394, -1394, -1394,   155, -1394, -1394, -1394,   155,
+   -1394,   188, -1394, -1394,   155,   155,   155,  1839,   -53,   155,
+     155,   188,   155,  1262,   155,   188,   155,  1269,  1273,  3882,
+   -1394,  1432, -1394, -1394, -1394, -1394,  1454, -1394, -1394, -1394,
+   -1394, -1394,   247,  3882, -1394, -1394, -1394, -1394,  1275,  1167,
+    1280,  2127,  1283,  1286,  1287, -1394, -1394, -1394, -1394, -1394,
+     188,  1244,   155,   188,   155, -1394,   155, -1394, -1394,  1463,
+     819, -1394,  3882, -1394,  1471, -1394, -1394,  2220,  1481, -1394,
+   -1394,  1482, -1394,   697, -1394,   155, -1394,   155,  3882, -1394,
+    1299,  3882,  3882,  1483,  2127,  3882, -1394, -1394, -1394,  1487,
+   -1394,  3882, -1394,  1492,  3882, -1394,  3882, -1394, -1394
 };
 
@@ -1440 +2079 @@
 static const yytype_int16 yypgoto[] =
 {
-    -845,  -845,  -845,   -96,   830,   628,   -26,  -845,  -845,  -845,
-     399,   156,  -845,   -94,  -845,   -67,   -63,  -845,  -845,   232,
-    -845,  -845,  -845,   509,  -845,   234,    30,  -845,  -845,  -845,
-    -845,  -845,   444,  -464,  -845,  -845,  -238,   438,  -242,  -845,
-    -845,  -845,  -845,  -845,  -845,   -47,  -845,  -845,  -263,   417,
-     -27,   -50,   668,   437,  -845,  -845,  -845,  -845,  -845,  -845,
-    -845,   404,  -845,  -845,  -671,  -845,  -845,  -845,   642,  -231,
-    -656,  -845,  -845,   217,  -845,   882,  -236,  -845,    67,    70,
-     -11,   -78,    55,  -144,  -458,  -507,  -845,  -845,   -97,  -845,
-    -845,  -845,  -845,  -845,   540,  -845,     9,   279,     1,   -70,
-    -845,  -845,  -182,  -382,   365,   -20,  -128,  -845,  -845,  -845,
-      52,  -845,   -73,    43,  -845,  -630,  -845,  -515,  -514,  -844,
-    -845,  -845,  -845,  -845,  -566,  -718,  -845,  -845,  -845,  -845,
-    -294,  -845,  -845,  -845,  -845,  -845,  -185,  -845,  -845,  -845,
-    -845,  -845,  -845,  -663,  -845,  -845,  -845,  -845,  -845,  -845,
-    -845,  -845,  -845,   405,  -845,  -845,  -845,  -845,  -845,   -40,
-    -787,  -845,  -845,  -845,  -845,  -845,  -845,   -38,   190,    11,
-    -845,  -845,  -845,  -845,  -845,  -845,  -845,  -845,   191,  -845,
-    -845,  -845,  -845,   506,  -845,  -845,   288,  -384,  -845,  -845,
-    -845,   -39,   834,  -250,  -126,  -699,  -522,  -140,  -287,  -465,
-    -845,  -845,  -213,  -845,   519,  -845
+   -1394, -1394, -1394,   635, -1394,  1436,   548, -1394, -1394, -1394,
+   -1394, -1394, -1394, -1394, -1394, -1394,   -79, -1394, -1394, -1394,
+   -1394, -1394, -1394, -1394,  -666, -1394,  -206, -1394,   -11, -1394,
+   -1394, -1394, -1394, -1394, -1394, -1394, -1394,  1399,   857, -1394,
+   -1394, -1394,   119,   735, -1394, -1394, -1394,   595, -1394,   -68,
+    -892,  -632, -1394, -1394,   499,   500,   -42,    34, -1394,   627,
+    -217,   -80, -1394,  1488, -1394, -1394, -1394, -1394, -1394, -1394,
+    1050, -1394,  -205,  -183,  1096,  -448,  -195, -1394, -1394, -1394,
+     244, -1394, -1394, -1394,   236,   -37, -1394, -1394, -1394, -1394,
+   -1394, -1394, -1394,   796, -1394,   293, -1394, -1394, -1394,   998,
+   -1394, -1394, -1394,   252, -1394,   249, -1394,   256, -1394, -1394,
+    -972,  1510, -1394,  1103,   516, -1394,   100,   102, -1394,  1277,
+   -1394, -1394,  1124,  -598, -1394, -1394, -1394, -1394, -1394, -1394,
+   -1394, -1394, -1394,   748, -1394, -1394, -1394,   486, -1394, -1394,
+   -1394, -1394,  -971,  -254, -1394, -1394, -1189,  -438, -1112, -1170,
+   -1107, -1394,   -10,  -413,   -13, -1394, -1394,   131, -1394,    -4,
+   -1394, -1394, -1394, -1394, -1394,   763, -1394, -1394, -1394, -1394,
+    -415, -1394, -1394,  1045,  -247, -1394,   831, -1394,   541,  -603,
+   -1394,   547, -1394, -1394, -1394, -1394, -1394, -1394, -1394, -1394,
+   -1394, -1394, -1394,   574, -1394, -1394, -1394,   -29, -1394, -1394,
+     506, -1394,     9, -1394, -1394, -1394,   761, -1394,   276, -1394,
+   -1394,  -116,   356, -1394, -1394,  1109, -1394, -1394,  -939, -1394,
+   -1394, -1394, -1394,  -276,  -472, -1394,   153,   578, -1394,  1178,
+   -1394,  1964,  -452,   694, -1394, -1394,  -821, -1394,  -498, -1394,
+    -456,  -292,  -289, -1394,  1028, -1394, -1394,  -249,  -285, -1394,
+   -1394,   551, -1394, -1394,  1030, -1394, -1394, -1394, -1394,    74,
+      71,   248, -1394,   493,  -566, -1394, -1394,    84, -1394,  -251,
+     259,  1035, -1394, -1394, -1394, -1394, -1394,    80, -1394, -1394,
+     385,     1,  1151, -1394, -1394,  -193,  1148, -1394,  1330, -1394,
+    1152,  1147,  1145, -1394, -1394, -1394, -1394, -1394,  1529,  -755,
+    -140,  -163,   842,   -72,  -936, -1047, -1394, -1394,  -200, -1394,
+     -44,   332, -1394, -1394, -1394,   801,   807,  -508,   806, -1394,
+    1297,  -371,  -375,  -861, -1394, -1394, -1394, -1394,  -813,  -820,
+   -1394, -1394, -1394, -1394,  -166, -1394,   343, -1394, -1394,  1051,
+   -1394,   -74,  -694,  -106,  1290, -1394, -1394, -1394, -1394, -1394,
+   -1394, -1394,  1056, -1394, -1394, -1394, -1394, -1394,  -558, -1394,
+   -1394, -1394, -1394, -1394, -1394,  1055, -1394, -1394,  1240, -1394,
+   -1394, -1394, -1394, -1394, -1394, -1394, -1394, -1394, -1394,   250,
+   -1100, -1394,  1063, -1394,    -3, -1394, -1394,  1016,   507, -1394,
+    1074, -1394, -1394, -1394,   521,   765,  1040,  1079, -1394, -1394,
+     519,  1090,  1099,   -12,  1281,  1020,   725,  -234,   724,  -850,
+    -856,  -963,  -859, -1394,   221, -1394,  1104, -1394,   757,  1110,
+   -1394,   770,  1112, -1394, -1394, -1394, -1394,   531,   466, -1394,
+   -1394, -1394, -1394, -1394, -1394, -1394, -1394,  -434, -1394, -1394,
+   -1394,  1337, -1394, -1394,  1616, -1394, -1394, -1394, -1394, -1394,
+     681, -1394, -1394, -1394, -1394, -1394, -1394, -1394, -1394, -1394,
+   -1394, -1029, -1394,     0, -1394, -1393, -1394,  1394,  1210, -1394,
+   -1394,   973,  -479, -1394,  1131, -1394, -1394, -1394, -1394, -1394,
+   -1394,  1058,   994,   497,   511, -1394, -1394,  1663,  -129, -1394,
+   -1394, -1394, -1394, -1394, -1394, -1394, -1394, -1394, -1394,  -114,
+   -1394, -1394, -1394, -1394,   309, -1394, -1394, -1394,  1052, -1394,
+     517,   468, -1394, -1394, -1394, -1394, -1394,   616
 };
 
@@ -1466 +2136 @@
    positive, shift that token.  If negative, reduce the rule which
    number is the opposite.  If YYTABLE_NINF, syntax error.  */
-#define YYTABLE_NINF -542
+#define YYTABLE_NINF -1015
 static const yytype_int16 yytable[] =
 {
-     174,   539,    93,   402,   192,   293,   434,   174,   294,   474,
-     641,   775,   295,   642,   506,   296,   243,   366,   690,   684,
-     414,   735,   736,   828,   684,   300,   494,   324,   372,   265,
-     498,   270,   271,   367,   686,   203,   273,  -171,   504,   874,
-     226,   579,   766,   767,    96,   846,   323,   198,   882,   257,
-     258,   579,    93,   268,   325,   534,   764,   764,   764,   203,
-     277,   847,   848,   849,   579,  -171,   885,   221,   222,   917,
-     366,   579,   646,   432,   430,   297,   607,   298,   299,   575,
-    -430,   859,   664,   365,   899,   329,   367,   849,   373,   374,
-     375,   376,   377,   378,    96,   379,   380,   381,   382,   383,
-     384,   332,   385,   386,   387,   388,   389,   729,   671,   675,
-     477,   174,   493,   203,   579,   419,   324,   984,   579,   333,
-     335,   336,   419,   285,   579,   750,   715,   483,   203,   540,
-     343,   126,  1021,   579,  -426,   323,   365,   223,   203,   579,
-     831,   224,   301,   325,   357,   307,   251,   194,   479,  -429,
-     364,   410,   579,   579,   868,   914,   675,   948,   985,  -425,
-     948,   371,   847,   848,   849,  -171,   393,   194,   648,   741,
-     484,   485,   229,   971,   438,   751,  1042,   223,   575,   170,
-     406,   224,   195,   230,   288,   387,   388,   389,   302,   404,
-     411,   412,   753,   742,  -171,   342,   480,   344,  -106,   394,
-    1026,   580,   197,   364,   308,   128,   364,   417,   389,   850,
-     959,   584,   359,  1000,   425,   917,   468,   204,   433,   605,
-     860,   436,  -430,   606,   586,   324,   466,   486,   963,   475,
-     564,   601,   647,   850,   324,   367,   960,   980,   495,     4,
-     730,   680,   665,   500,   323,   496,   503,   390,   391,   563,
-     478,   836,   325,   323,   716,    93,   130,   565,   916,   916,
-     916,   325,   252,   859,   286,   709,   710,   471,   672,   676,
-     499,   413,   699,   713,   777,   475,  -426,   532,   778,   170,
-     859,   609,   251,   561,   792,   365,   204,   719,   253,   544,
-     545,  -429,   576,   793,   549,   722,   413,    96,   728,   794,
-     694,  -425,   540,   553,   554,   555,   556,   557,   558,   559,
-     850,   575,   795,   805,   869,   915,   938,   949,   986,   266,
-    1037,   800,   802,   425,   804,   289,   575,   324,   390,   391,
-     583,   919,   920,   921,   587,   588,   589,   590,   591,   592,
-     593,   594,   595,   596,   597,   598,   323,   223,   131,   390,
-     391,   224,   371,   961,   325,   571,   311,   312,   572,   573,
-     574,   188,   616,   618,   619,   620,   621,   622,   623,   624,
-     625,   626,   627,   628,   629,   630,   631,   634,   636,   638,
-     640,    69,   939,   199,   192,   659,   372,   481,   684,   684,
-     684,   684,   684,   990,   581,   582,   697,   244,   252,   245,
-     191,   278,   860,   828,   610,   861,   482,   239,   764,   575,
-     407,   489,   490,   600,   663,   602,   603,   604,   202,   860,
-     415,   416,  1009,   400,   253,   612,   717,   837,   822,   279,
-     212,   923,   395,   679,   240,   241,   763,   408,   520,   264,
-     209,   235,   236,   769,   832,   701,   210,   756,   875,   989,
-     708,   965,   937,   711,  -156,   823,   839,   966,  -156,   208,
-     223,   475,   911,   866,   224,   564,   775,   685,   213,   255,
-     806,   256,   564,   219,   324,   324,   324,   324,   324,   259,
-     698,   260,   881,   916,   563,   707,   170,   309,   194,   274,
-     884,   563,   565,   323,   323,   323,   323,   323,   269,   565,
-     762,   325,   325,   325,   325,   325,   735,   736,   858,   800,
-     802,   804,   220,  -156,   475,   475,   227,  -156,   372,   371,
-     575,   575,   575,   575,   575,   733,   203,   735,   736,   280,
-     200,   201,   770,   771,   772,   773,   774,   746,    93,   979,
-      93,  -156,  1036,   231,   812,  -156,   232,   757,   684,   761,
-     376,   377,   378,   249,   379,   380,   381,   382,   383,   384,
-     419,   385,   386,   387,   388,   389,   733,   324,   776,   215,
-     216,   217,   419,   571,   311,   312,   572,   573,   574,  -541,
-    -541,  -541,  -541,  -541,  -541,   929,   323,   254,   139,   311,
-     312,   572,   573,   574,   325,   524,   525,   799,   801,   263,
-     803,   398,   668,   364,   807,   940,   941,   942,   943,   983,
-     876,   877,   878,   851,   572,   573,   574,   133,   134,   746,
-     898,   808,   809,   972,   973,   203,   810,   272,   811,   310,
-     327,   292,   815,   304,   305,   339,   340,   928,   394,   341,
-     345,   824,   894,   829,   895,   830,   346,   821,   347,   348,
-     349,   834,   806,   903,    93,   964,   350,   405,   351,   352,
-     353,   354,   355,   356,   843,   425,   468,   358,   469,   360,
-     361,   564,   841,   362,   370,   395,   988,   397,   398,   162,
-     856,   857,   399,   470,   170,   163,   164,   465,  1024,   476,
-     563,   867,   491,   259,   493,   266,   496,   501,   565,   502,
-     166,   167,   505,   168,   169,   274,   390,   391,   171,   871,
-     475,   373,   374,   375,   376,   377,   378,   521,   379,   380,
-     381,   382,   383,   384,   523,   385,   386,   387,   388,   389,
-     535,   560,   547,   569,   611,   577,   614,   651,   654,   674,
-     905,   656,   657,   609,   666,   667,   669,   673,   723,   549,
-     677,   678,  1027,   724,   688,   727,   608,   691,  -237,  -237,
-    -237,  -237,  -237,  -237,   692,  -237,  -237,  -237,  -237,  -237,
-    -237,   695,  -237,  -237,  -237,  -237,  -237,   714,   718,   759,
-     758,   760,   768,   574,   796,   799,   801,   803,   797,   798,
-     819,   813,   820,   845,   833,   840,   853,   976,   855,   478,
-     864,   872,   192,   925,   883,   886,   982,   887,   888,   891,
-     889,   372,   890,   896,   897,   909,   378,   564,   379,   380,
-     381,   382,   383,   384,   910,   385,   386,   387,   388,   389,
-     922,   927,   931,   932,   935,   936,   563,   944,  1003,   945,
-     950,   969,   958,   730,   565,   978,   987,   991,   999,   992,
-    1007,  1015,   993,   994,  1016,  1006,  1018,   707,  1017,   954,
-     850,   957,  1019,  1023,  1028,   302,  1043,  1032,  1038,  1039,
-     390,   391,   507,   965,   394,   475,  1041,  1047,  1020,  1048,
-     333,   234,   488,  1010,   693,  1008,   977,   379,   380,   381,
-     382,   383,   384,   905,   385,   386,   387,   388,   389,  -542,
-    -542,  -542,  -542,  -542,  -542,   842,   385,   386,   387,   388,
-     389,   844,    93,   995,   649,   997,   815,  -237,  -237,   689,
-     333,  1001,   712,  1002,   687,   235,   236,   508,   492,   720,
-     700,   533,   880,  1005,   238,   952,   998,   644,    93,  1012,
-     953,   835,   970,  1040,   371,  1025,   754,   912,  1004,  1013,
-    1014,   913,   838,   509,   670,   510,   511,   512,   330,     0,
-     513,   514,     0,   515,   516,     0,     0,     2,     3,     0,
-     390,   391,     0,     0,   905,     0,   905,     0,     0,     0,
-       0,     0,     0,     0,    93,  1029,     0,     0,  1031,     0,
-       0,     4,     5,     0,     0,     6,   -21,     7,   -21,     8,
-       0,     0,     9,     0,     0,     0,     0,     0,     0,     0,
-     733,     0,    10,     0,     0,     0,     0,     0,     0,  1044,
-       0,   733,     0,  1045,  1046,    93,     0,     0,    11,     0,
-       0,   733,    12,    13,    93,     0,     0,    14,  1050,   390,
-     391,     0,     0,    15,     0,    16,    17,     0,    18,     0,
-       0,   390,   391,    19,    20,    21,    22,    23,     0,    24,
-      25,     0,     0,    26,    27,    28,    29,    30,    31,    32,
-      33,    34,    35,    36,     0,    37,     0,    38,    39,     0,
-       0,    40,    41,    42,     0,    43,     0,    44,     0,     0,
-      45,    46,     0,     0,    47,    48,    49,     0,     0,     0,
-       0,     0,     0,     0,    50,     0,     0,    51,    52,    53,
-      54,    55,    56,    57,    58,    59,    60,    61,    62,    63,
-       0,     0,    64,     0,     0,    65,    66,    67,    68,     0,
-       0,     0,   652,    69,   373,   374,   375,   376,   377,   378,
-       0,   379,   380,   381,   382,   383,   384,     0,   385,   386,
-     387,   388,   389,   934,     0,   373,   374,   375,   376,   377,
-     378,     0,   379,   380,   381,   382,   383,   384,     0,   385,
-     386,   387,   388,   389,  1034,     0,   373,   374,   375,   376,
-     377,   378,     0,   379,   380,   381,   382,   383,   384,     0,
-     385,   386,   387,   388,   389,  1035,     0,   373,   374,   375,
-     376,   377,   378,     0,   379,   380,   381,   382,   383,   384,
-       0,   385,   386,   387,   388,   389,  1049,     0,   373,   374,
-     375,   376,   377,   378,     0,   379,   380,   381,   382,   383,
-     384,     0,   385,   386,   387,   388,   389,   926,   373,   374,
-     375,   376,   377,   378,     0,   379,   380,   381,   382,   383,
-     384,     0,   385,   386,   387,   388,   389,   870,   373,   374,
-     375,   376,   377,   378,     0,   379,   380,   381,   382,   383,
-     384,     0,   385,   386,   387,   388,   389,     0,     0,     0,
-       0,     0,   135,   136,     0,     0,     0,     0,   137,   138,
-     139,   140,   141,   390,   391,     0,     0,     0,     0,     0,
-       0,     0,     0,   142,   143,   144,   145,   146,   147,   148,
-       0,   149,   150,   151,   390,   391,   152,   153,   154,     0,
-     155,   156,   157,   158,   159,     0,   160,     0,     0,     0,
-       0,     0,     0,     0,     0,   390,   391,   373,   374,   375,
-     376,   377,   378,     0,   379,   380,   381,   382,   383,   384,
-       0,   385,   386,   387,   388,   389,   390,   391,   373,   374,
-     375,   376,   377,   378,     0,   379,   380,   381,   382,   383,
-     384,     0,   385,   386,   387,   388,   389,   390,   391,     0,
-       0,   162,     0,     0,     0,     0,     0,   163,   164,     0,
-       0,     0,     0,   165,     0,     0,   613,   390,   391,     0,
-       0,     0,   166,   167,     0,   168,   169,     0,     0,   170,
-     171,   562,     0,     0,     0,     0,     0,   390,   391,   926,
-     373,   374,   375,   376,   377,   378,     0,   379,   380,   381,
-     382,   383,   384,     0,   385,   386,   387,   388,   389,   996,
-     373,   374,   375,   376,   377,   378,     0,   379,   380,   381,
-     382,   383,   384,     0,   385,   386,   387,   388,   389,  1030,
-     373,   374,   375,   376,   377,   378,     0,   379,   380,   381,
-     382,   383,   384,     0,   385,   386,   387,   388,   389,     0,
+      43,   269,   699,   403,   361,   487,   698,   635,   131,   490,
+     103,   634,   476,   397,   148,   105,   290,   739,   383,   950,
+     105,   720,  1146,   332,  1002,   105,   105,   360,   549,   310,
+     325,  1093,   413,   903,  1230,  1232,   399,   480,   333,   806,
+     141,    98,   415,  1209,   417,   489,    98,   484,   726,   140,
+     361,    98,    98,   428,  1122,  1123,   131,   105,   103,  1320,
+     950,   118,   239,   105,  1255,   430,   541,   105,  1157,  1157,
+    1151,   507,   972,  1372,  1165,   429,   431,  1156,  1156,   721,
+    1441,   312,   938,    98,  1446,   420,   889,  1452,   141,    98,
+     149,  1435,  -181,    98,  1435,   899,  -520,   140,  1102,  1103,
+    1104,   277,  1612,   374,   956,  1109,   459,   212,  1295,   118,
+    1448,  -537,   291,  1160,    89,   665,   219,  -194,   801,   924,
+    1024,   467,     4,   384,   497,  1008,  1563,     4,   316,  -537,
+    1021,   643,  1012,   491,   105,    32,   225,   803,  -194,    97,
+     895,   901,     4,   226,   553,   629,   413,  1325,   269,   413,
+     905,   227,   228,   229,  -408,    34,   415,   529,   417,   415,
+      98,   417,     8,   708,   925,   506,   554,     8,  1256,   700,
+    1317,   925,   491,   701,   980,   317,   473,  1022,  -194,    47,
+     474,   662,     8,   498,     4,   821,    11,  -727,   644,  1255,
+      42,   343,  1316,  -409,  -408,  1326,  1111,  1006,   754,   413,
+    1117,   332,   678,  1132,   796,  1183,  1193,   646,  1195,   415,
+     928,   417,     4,   518,  1183,  1219,   333,  1282,    58,     4,
+      59,   649,   676,  1373,     8,     4,   412,   976,  1392,   513,
+      35,     4,   501,  -409,   431,   530,   512,   506,   506,   506,
+    1546,   682,    49,  1424,   682,   542,   905,   431,   512,  1505,
+    1682,  1449,     8,   227,   228,   374,   230,  1290,   990,     8,
+     432,  1259,  -537,  -265,   776,     8,   565,  1564,   463,  1266,
+    1025,     8,   227,   228,   957,  1529,   421,  1201,  1612,   213,
+     302,   231,     4,    98,   527,   528,   105,  -520,   220,   847,
+       4,   724,  -520,  1256,    73,    12,  1431,   232,   233,  1341,
+      12,   727,  1367,   738,   374,  1004,   666,   234,  -194,   802,
+     847,  -194,    98,   725,   411,    12,    92,    93,   302,    95,
+     235,  1358,     8,    42,   236,   237,   269,  -408,   804,   848,
+       8,   896,   902,   238,  1318,   105,   752,   569,   633,   504,
+     412,   906,     4,   412,   759,   105,   600,   269,   269,    42,
+     848,  1335,    48,  1356,  -472,   926,  1262,    12,  1338,  1345,
+    -761,    98,   927,  1110,  -336,   981,  -409,   491,  1023,   308,
+    1116,    98,  1435,   972,  1646,   302,  1121,  1236,   918,  1124,
+    1546,  1170,     8,  1130,   132,    12,  1658,  1112,     4,   146,
+    1435,  1118,    12,   412,  1133,   133,  1184,  1194,    12,  1196,
+    -761,  1570,   656,   658,    12,  1203,  1220,  1346,  1283,   239,
+     603,   504,   504,   504,  1374,   304,   632,   566,   432,  1393,
+     305,   105,   235,   741,   743,    42,   236,    74,     8,   487,
+    1642,   685,   132,   490,  1425,   513,  1643,  1493,   461,   462,
+    1506,  1683,   551,   133,  -196,   236,   968,   696,  1642,     4,
+     281,   835,   306,  1538,  1643,    12,     4,   105,   105,   728,
+     966,   480,    75,    12,   969,   970,     4,  1255,  1614,   489,
+     975,   484,   506,   497,  1548,   911,   942,  1571,  1572,   811,
+     727,   428,   738,    98,    98,   723,  1510,   282,   747,     8,
+     912,   607,   429,   430,   204,   760,     8,   361,    89,  1157,
+       4,   361,   361,   429,  1500,  1039,     8,  1263,  1520,     4,
+     105,  1325,   820,    42,   817,    12,  1655,   787,   142,   105,
+     145,   838,  1218,    97,  1500,     4,   699,   739,   776,     4,
+     698,   739,   498,  -761,    92,    93,    98,    95,   915,    98,
+       8,    42,  1345,  1014,   830,    98,   206,   105,   105,     8,
+    1067,   950,  1069,   825,   274,  1013,   105,   105,  1229,  1326,
+     825,    12,   726,  1286,   230,     8,   142,   696,   145,     8,
+     491,  1256,  1347,    98,    98,   285,   285,   552,   553,    47,
+     105,    64,    98,    98, -1013,  -506, -1013,   482,   696,  -506,
+    1346,   269,  1656,  1657,   153,   105,    76,   149,   227,   228,
+     554,     4,  1146,   236,   398,    42,    98,  1644,  1548,    92,
+      93,   495,    95,  -462,  1548,   234,    42,   887,  1152,   930,
+     287,    98,    12,   341,   483,  1644,   898,   302,   473,    12,
+     496,    42,   474,   944,    89,   -93,    42,     4,   -93,    12,
+     949,     8,     9,    89,   410,  1093,   504,     4,   921,   922,
+     923,    92,    93, -1014,    95, -1014,  -235,   230,    42,    97,
+      92,    93,   301,    95,   973,  -235,   344,    42,    97,    60,
+     353,   355,   345,    12,     4,   302,  1043,     8,    42,    89,
+     294,   949,    12,   105,  1467,  1468,   512,     8,   308,   302,
+     -61,  1210,  1075,   700,  -926,  -536,  1167,   701,    12,   987,
+     210,   211,    12,   230,    97,    57,     4,   999,   234,    98,
+      62,     9,    63,  1010,     8,   273,   530,    92,    93,   278,
+      95,    11,   235,    89,    42,   289,   236,    11,  1066,   542,
+    1086,   542,  1011,  1005,   313,  1146,  1556,  -136,    60,  -536,
+      92,    93,  1398,    95,   232,   233,     8,    42,    97,   639,
+    1040,  1169,    48,   -92,   234,  1385,  1460,  1386,    82,    83,
+    1034,   990,   411,    92,    93,   314,    95,   235,  1363,   319,
+      42,   236,  1222,   -89,    12,  1172,   -89,   425,   426,  1019,
+     911,   227,   228,   -90,  1105,   506,   -90,   452,   453,  1035,
+     635,   342,  1236,   315,   634,   912,    11,  1036,    82,    83,
+     633,  1228,   358,   327,  1365,   724,   847,   105,   320,   683,
+      12,   415,   684,   738,  1370,   727,   367,   738,   -97,   -97,
+      12,   -97,   413,  1434,   105,   -97,  1434,   725,   -97,    11,
+    -275,   105,   415,    98,   417,   671,   672,   105,   105,   105,
+     105,  1522,   105,   368,   105,   105,   848,    12,  1436,   847,
+      98,  1436,  1464,  1442,  1443,  1444,  1472,    98,   587,   752,
+     334,   595,   335,    98,    98,    98,    98,   347,    98,   348,
+      98,    98,  1147,  1631,   384,   413,   349,   105,   632,    12,
+     356,    92,    93,   357,    95,   415,   230,   417,    42,   848,
+     105,   105,   395,  1108,  1140,    11,  -276,     5, -1013,     6,
+   -1013,  1115,   388,    98,  1161,  1162,     7,   639,   937,   390,
+     460,   512,  1663,  1664,  1129,   465,    98,    98,   468,   208,
+     209, -1013,   392, -1013, -1013,   477, -1013,   410,  -100,  -100,
+     411,  -100,   419,   269,  -222,  -100,   699,   234,  -100,   500,
+     698,   508,  1417,   393,   394,   105,    92,    93,  1148,    95,
+     235,   556,   563,    42,   236,   423,     9,   448,   450,   504,
+    1198,   456,   457,   433,   434,   435,   436,   437,   438,   439,
+     739,   696,   509,   728,   282,   575,   576,   469,   577,     9,
+     472,   481,     9,    10,    92,    93,   523,    95,   590,   547,
+     598,    42,   635,   294,   239,  1223,   634,   550,   239,   723,
+    1288,   602,   552,   604,   581, -1013,    60, -1013,  1039,    60,
+      42,   747,    36,    37,    38,    39,   412,  1422,   631,  1465,
+      40,  1420,   639,  1465,   652,   542,    41,   727,    42,   738,
+      36,    37,    38,    39,   105,   650,   660,   663,    40,   429,
+     661,    11,  1147,   664,    41,  -233,   787,   105,   669,   -99,
+     -99,   670,   -99,  -228,  1470,    93,   -99,    95,   361,   -99,
+      98,    42,   675,     9,    11,   225,    77,    11,   677,  1310,
+     680,   600,   226,    98,  -937,  -223,   691,  -938,   693,   703,
+     227,   228,   229,   105,   696,   739,   862,   869,   883,   886,
+      60,   399,   705,    92,    93,   710,    95,   711,   897,   712,
+      42,   706,  1152,   700,   715,   709,   717,   701,   718,    98,
+     757,   105,   440,   441,   442,   443,   716,   758,   216,   217,
+     218,   633,   224,   744,   777,   762,   781,   696,   105,   782,
+     226,   784,   740,   742,   401,   785,   753,    98,   227,   228,
+     745,   795,   755,  1414,   304,   798,   444,   445,    11,   305,
+     800,   808,   376,   812,    98,   402,   813,   783,  -137,   839,
+     841,   843,   844,   907,   377,   845,   797,   378,   379,   913,
+     932,  1377,   949,   919,   914,   799,   933,   936,   964,   946,
+    1017,   306,   965,   807,   967,   230,   380,   226,   810,  1414,
+     971,  -229,  1414,   439,   979,   227,   228,  1414,   982,   632,
+     983,  1414,   987,   842,  1414,   991,   992,   993,  1005,   996,
+     231,  1421,  1006,  1066,  1009,  -445,  1045,  1046,  1047,  1049,
+    1053,  1054,  1057,  1071,  1059,  1063,   232,   233,   990,  1077,
+     123,  1074,  1082,   381,   306,   123,   234,  1706,  1087,  1088,
+     123,   123,  1095,   230,  1090,    92,    93,  1097,    95,   235,
+    1106,  1113,    42,   236,   237,  1040,  1120,  1138,  1143,  1185,
+    1182,  1066,   238,  1186,   929,  1187,  1188,  1190,   231,  1192,
+    1197,   105,   299,   746,  1202,   105,  1211,  1212,   123,  1213,
+     945,  1427,   299,  1221,   232,   233,  1246,  1261,   105,   962,
+    1264,  1274,  1281,  1277,   234,  1284,  1285,    98,  1322,  1375,
+     230,    98,  1330,    92,    93,  1342,    95,   235,   105,  1350,
+      42,   236,   237,   305,    98,  1351,  1083,  1361,  1537,  1638,
+     238,   105,   355,   633,  1352,   231,  1362,  1382,   377,  1368,
+&nb