Programmer's ROM - The Computer Language Library/programmersrom.iso/ada/print/pret.src

Text File | 1988-05-03 | 326.9 KB | 7,123 lines

-------- SIMTEL20 Ada Software Repository Prologue ------------
--                                                           -*
-- Unit name    : Source Formatter
-- Version      : 1.0
-- Contact      : Lt. Colonel Falgiano
--              : ESD/SCW
--              : Hanscom AFB, MA  01731
-- Author       : Bill Toscano, Michael Gordon
--              : Intermetrics, Inc,
--              : 733 Concord Ave
--              : Cambridge, MA 02138
-- DDN Address  :
-- Copyright    : (c) 1985 Intermetrics, Inc.
-- Date created : 15 September 1985
-- Release date : 5 April 1985
-- Last update  : 17 March 1985
--                                                           -*
---------------------------------------------------------------
--                                                           -*
-- Keywords     :
----------------:
--
-- Abstract     : The standard format of source code listed with this tool
----------------: shall be the format used in the Ada LRM.  Options shall allow
----------------: the user to specify the number of spaces per indent level,
----------------: the form for printing categories of key words and identifiers
----------------: (eg, upper case, lower case, etc.), and similiar parameters
----------------: which can be varied without deviating from the LRM.
----------------:
----------------: This tool was developed as a precursor for
----------------: the WMCCS Information System (WIS).  An
----------------: executable version of the tool has been
----------------: demonstrated.  This source code has sub-
----------------: sequently been recompiled but has not under-
----------------: gone extensive testing.
----------------:
--                                                           -*
------------------ Revision history ---------------------------
--                                                           -*
-- DATE         VERSION AUTHOR                  HISTORY
-- 03/85        1.0  Bill Toscano               Initial Release
--                                                           -*
------------------ Distribution and Copyright -----------------
--                                                           -*
-- This prologue must be included in all copies of this software.
--
-- This software is copyright by the author.
--
-- This software is released to the Ada community.
-- This software is released to the Public Domain (note:
--   software released to the Public Domain is not subject
--   to copyright protection).
-- Restrictions on use or distribution:  NONE
--                                                           -*
----------------- Disclaimer ----------------------------------
--                                                           -*
-- This software and its documentation are provided "AS IS" and
-- without any expressed or implied warranties whatsoever.
--
-- No warranties as to performance, merchantability, or fitness
-- for a particular purpose exist.
--
-- Because of the diversity of conditions and hardware under
-- which this software may be used, no warranty of fitness for
-- a particular purpose is offered.  The user is advised to
-- test the software thoroughly before relying on it.  The user
-- must assume the entire risk and liability of using this
-- software.
--
-- In no event shall any person or organization of people be
-- held responsible for any direct, indirect, consequential
-- or inconsequential damages or lost profits.
--                                                          -*
----------------- END-PROLOGUE -------------------------------
--::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
--PPRDECLS.DAT
--::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

with ParseTables;
with Paginated_Output;

package Pretty_Printer_Declarations is
--| Declarations for pretty printer tool

--| Overview

--| This package contains declarations for the pretty printer tool.
--| These declarations serve to parameterize the pretty printer, and are
--| referred to throught all pretty printer routines.  All the "parameters,"
--| with the exception of those which are actual formal parameters to the
--| pretty print call are located in this package so that modifications to
--| them can be made easily.

--| Notes

--| Abbreviations Used:
--|
--| RH: Right Hand
--|
--| Installation specific values for "parameterizing" the pretty printer
--| should be inserted in this package.  See the installation guide for
--| details.

    ----------------------------------------------------------------
    -- Pretty_Printer File Declarations
    ----------------------------------------------------------------

    Output_File : Paginated_Output.Paginated_File_Handle;
    --| File handle to pass to Paginated Output routines

    ----------------------------------------------------------------
    -- Declarations to parameterize Pretty_Printer
    ----------------------------------------------------------------

    type Delimiter_Name is (Basic,     --| %, :, !
                            Extended); --| ", #, |
    Delimiters : Delimiter_Name := Extended;
    --| Determines whether to use the Basic or Extended character set for
    --| output.

    Max_Columns : constant := 133;
    subtype Column_Range is Positive range Positive'First .. Max_Columns;
    Page_Width : Column_Range := 80;
    --| Width of output page

    RH_Margin : Column_Range := 60;
    --| The column beyond which no indenting is performed.

    subtype Indentation_Range is
        Natural range 0 .. RH_Margin;
    Indentation_Level : Indentation_Range := 2;
    --| Indentation Level for all constructs

    Max_Depth : constant := 1000; -- arbitrary choice
    subtype Depth_Range is natural range 0 .. Max_Depth;
    Depth : Depth_Range := 0; --| Depth of pretty printing.
                              --| Depth = 0 --> Print everything
                              --| Depth = 1 --> Print only outermost scope
                              --| Depth = 2 --> Print outermost 2 scopes
                              --| etc.

    type Case_Name is (Uppercase,    --| abcd --> ABCD
                       Lowercase,    --| AbcD --> abcd
                       Capitalize1,  --| ABC_def --> ABC_Def
                       Capitalize2,  --| ABC_def --> Abc_Def
                       Bold,         --| lowercase and Bold according to
                                     --| Change_Case.Bold_Print
                       As_Is);       --| As it appeared in souce

    Keyword    : Case_Name := Bold;      --| How to print keywords
    Identifier : Case_Name := Uppercase; --| How to print identifiers

    type Switch is (On, Off);
    Comment_Formatting  : Switch := On;
    --| If off, just put comments at the same source line and column position
    --| as they appeared in the source.  If this is not possible, put at
    --| the same source column position on the next line.  If on, indent
    --| comments to source level, and precede comments preceding a statement
    --| with a blank line.

    Colon_Alignment     : Switch := On;
    --| If on, align colons in declarations

    Explicit_Param_Mode : Switch := On;
    --| If on, insert parameter modes of default parameters

    Closing_Identifiers : Switch := On;
    --| If on, insert closing identifiers and designators which didn't appear
    --| in the source.

    Paginated_Format    : Switch := Off;
    --| If on, print headers on each page and put page breaks in between
    --| pages.

    type Spacing is
        (After, Before, Around, None);

    Spacing_Table : Array(1 .. ParseTables.Comment_TokenValue) of Spacing := (
    -- unfortunately, type of ParseTables.xxxTokenValue has non-static bound,
    -- so positional rather than named associations must be used to initialize
    -- Spacing_Table.

    -- The spacing table determines, in general, how to space each token.
    -- However, the spacing of some tokens is context dependent, and so
    -- some of the spacing is dynamically handled in other places.
    -- Spaced_Token refers to Pretty_Printer_Utilities.Spaced_Token.
    -- The special cases are described below.

     -- ParseTables.Empty_TokenValue =>
        None,
     -- ParseTables.AbortTokenValue =>
        After,
     -- ParseTables.AbsTokenValue =>  -- Spaced_Token inserts space after
        None,                         -- unless followed by '('
     -- ParseTables.AcceptTokenValue =>
        After,
     -- ParseTables.AccessTokenValue =>
        After,
     -- ParseTables.AllTokenValue =>
        None,
     -- ParseTables.AndTokenValue =>
        Around,
     -- ParseTables.ArrayTokenValue =>
        None,
     -- ParseTables.AtTokenValue =>
        Around,
     -- ParseTables.BeginTokenValue =>
        None,
     -- ParseTables.BodyTokenValue =>
        After,
     -- ParseTables.CaseTokenValue =>  -- Spaced_Token inserts space after if
        None,                          -- not followed by ';'
     -- ParseTables.ConstantTokenValue =>  -- Spaced_Token inserts space before
        After,                             -- if not following ':='
     -- ParseTables.DeclareTokenValue =>
        None,
     -- ParseTables.DelayTokenValue =>
        After,
     -- ParseTables.DeltaTokenValue =>  -- Spaced_Token inserts space before if
        None,                           -- not following ''' or 'IS', after if
                                        -- not followed by ';'
     -- ParseTables.DigitsTokenValue => -- Spaced_Token inserts space before if
        None,                           -- not following ''', or 'IS' after if
                                        -- not followed by ';'
     -- ParseTables.DoTokenValue =>
        Before,
     -- ParseTables.ElseTokenValue =>
        After,
     -- ParseTables.ElsifTokenValue =>
        After,
     -- ParseTables.EndTokenValue =>  -- Spaced_Token inserts space after if
        None,                         -- not followed by ';'
     -- ParseTables.EntryTokenValue =>
        After,
     -- ParseTables.ExceptionTokenValue =>
        None,
     -- ParseTables.ExitTokenValue =>  -- Spaced_Token inserts space after if
        None,                          -- not followed by ';'
     -- ParseTables.ForTokenValue =>
        After,
     -- ParseTables.FunctionTokenValue =>
        After,
     -- ParseTables.GenericTokenValue =>
        None,
     -- ParseTables.GotoTokenValue =>
        After,
     -- ParseTables.IfTokenValue =>  -- Spaced_Token inserts space after if
        None,                        -- not followed by ';'
     -- ParseTables.InTokenValue =>  -- Spaced_Token inserts space before if
        After,                       -- not following ':'
     -- ParseTables.IsTokenValue =>
        Around,
     -- ParseTables.LimitedTokenValue =>
        After,
     -- ParseTables.LoopTokenValue =>  -- Spaced_Token inserts space after if
        None,                          -- not followed by ';' and space before
                                       -- if not following ':'
     -- ParseTables.ModTokenValue =>  -- Spaced_Token inserts space before if
        After,                        -- not following 'AT'
     -- ParseTables.NewTokenValue =>
        After,
     -- ParseTables.NotTokenValue =>
        After,
     -- ParseTables.NullTokenValue =>
        None,
     -- ParseTables.OfTokenValue =>
        Around,
     -- ParseTables.OrTokenValue =>
        Around,
     -- ParseTables.OthersTokenValue =>
        None,
     -- ParseTables.OutTokenValue =>
        After,
     -- ParseTables.PackageTokenValue =>
        After,
     -- ParseTables.PragmaTokenValue =>
        After,
     -- ParseTables.PrivateTokenValue =>
        None,
     -- ParseTables.ProcedureTokenValue =>
        After,
     -- ParseTables.RaiseTokenValue =>  -- Spaced_Token inserts space after if
        None,                           -- not followed by ';'
     -- ParseTables.RangeTokenValue =>  -- Spaced_Token inserts space before if
        None,                           -- not following ''' or 'IS', after if
                                        -- not followed by ';'
     -- ParseTables.RecordTokenValue =>  -- Spaced_Token inserts space after if
        None,                            -- not followed by ';'
     -- ParseTables.RemTokenValue =>
        Around,
     -- ParseTables.RenamesTokenValue =>
        Around,
     -- ParseTables.ReturnTokenValue =>  -- Spaced_Token inserts space after if
        Before,                          -- not followed by ';'
     -- ParseTables.ReverseTokenValue =>
        After,
     -- ParseTables.SelectTokenValue =>  -- Spaced_Token inserts space after if
        None,                            -- not followed by ';'
     -- ParseTables.SeparateTokenValue =>
        None,
     -- ParseTables.SubtypeTokenValue =>
        After,
     -- ParseTables.TaskTokenValue =>
        After,
     -- ParseTables.TerminateTokenValue =>
        None,
     -- ParseTables.ThenTokenValue =>  -- Spaced_Token inserts space before if
        After,                         -- not preceded by "and"
     -- ParseTables.TypeTokenValue =>
        After,
     -- ParseTables.UseTokenValue =>   -- Spaced_Token inserts space before if
        After,                         -- not preceded by ';'
     -- ParseTables.WhenTokenValue =>
        After,
     -- ParseTables.WhileTokenValue =>
        After,
     -- ParseTables.WithTokenValue =>
        After,
     -- ParseTables.XorTokenValue =>
        Around,
     -- ParseTables.IdentifierTokenValue =>
        None,
     -- ParseTables.NumericTokenValue =>
        None,
     -- ParseTables.StringTokenValue =>
        None,
     -- ParseTables.CharacterTokenValue =>
        None,
     -- ParseTables.Ampersand_TokenValue =>
        Around,
     -- ParseTables.Apostrophe_TokenValue =>
        None,
     -- ParseTables.LeftParen_TokenValue =>
        None,
     -- ParseTables.RightParen_TokenValue =>
        None,
     -- ParseTables.Star_TokenValue =>
        None,
     -- ParseTables.Plus_TokenValue =>  -- Parser.Apply_Actions inserts space
        None,                           -- after if it is a binary operator,
                                        -- before if not following '('
     -- ParseTables.Comma_TokenValue =>
        After,
     -- ParseTables.Minus_TokenValue =>  -- Parser.Apply_Actions inserts space
        None,                            -- after if it is a binary operator,
                                         -- before if not following '('
     -- ParseTables.Dot_TokenValue =>
        None,
     -- ParseTables.Slash_TokenValue =>
        None,
     -- ParseTables.Colon_TokenValue =>
        Around,
     -- ParseTables.SemiColon_TokenValue =>
        After,
     -- ParseTables.LT_TokenValue =>
        Around,
     -- ParseTables.EQ_TokenValue =>
        Around,
     -- ParseTables.GT_TokenValue =>
        Around,
     -- ParseTables.Bar_TokenValue =>
        Around,
     -- ParseTables.EQGT_TokenValue =>
        Around,
     -- ParseTables.DotDot_TokenValue =>
        Around,
     -- ParseTables.StarStar_TokenValue =>
        None,
     -- ParseTables.ColonEQ_TokenValue =>
        After,
     -- ParseTables.SlashEQ_TokenValue =>
        Around,
     -- ParseTables.GTEQ_TokenValue =>
        Around,
     -- ParseTables.LTEQ_TokenValue =>
        Around,
     -- ParseTables.LTLT_TokenValue =>
        None,
     -- ParseTables.GTGT_TokenValue =>
        After,
     -- ParseTables.LTGT_TokenValue =>
        None,
     -- ParseTables.Comment_TokenValue =>
        None);
     -----------------------------------------------------------------

end Pretty_Printer_Declarations;

----------------------------------------------------------------------
--::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
--PPRUTILS.SPC
--::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
---------------------------------------------------------------------

with ParserDeclarations;
with Lists;
with Stack_Pkg;

package Pretty_Printer_Utilities is
--| Utilities for pretty printer


--| Overview

--| This package contains all the utility subprograms for the pretty
--| printer called from Parser.Parse and Parser.Apply_Actions.  Each
--| utility is described in detail below in its specification.

    package PD renames ParserDeclarations;

    package Comment_Lists is new Lists(PD.ParseStackElement);

    Comment_Buffer : Comment_Lists.List;
    --| List of comments in between two tokens

    type Pop_To_Where is (To_Output, To_Nowhere);
    --| Used in popping closing identifiers/designators

    -----------------------------------------------------------------

    procedure Initialize;  --| Initializes the utilities

    -----------------------------------------------------------------

    procedure Put( --| Puts the token in the buffer or in the output file
        Next_Token : in out PD.ParseStackElement);
        --| Token that was just pushed on parse stack

    --| Effects

    --| Put examines the Buffering flag in
    --| Pretty_Printer_Declarations to see whether buffering is turned on.
    --| If buffering is turned on, the token is placed in the buffer; if not,
    --| Print_Token is called to print the token.

    -----------------------------------------------------------------

    procedure Put_Space(Spaces : in Natural := 1);
    --| Puts a space in the output file.

    --| Effects

    --| Paginated Output is used to put a space in the output file.  The
    --| current column information is also updated.

    -----------------------------------------------------------------

    procedure Print_Comments(Buffer : in out Comment_Lists.List);
    --| Outputs buffered comments

    --| Effects

    --| If comment formatting is off, comments are output at the same
    --| line and column position as they appeared in the source.  If this
    --| is not possible, the comment is positioned at the next line and the
    --| source column.  If comment formatting is on, comments in the
    --| declarative parts are printed alongside declarations; comments in
    --| the body are preceded by a blank line and indented to the level of
    --| the source if possible.  If a comment cannot be indented to the level
    --| of the source, it is handled the same way as comments with comment
    --| formatting off.

    -----------------------------------------------------------------

    procedure New_Line;  --| Requests a new line in the buffer or output

    --| Effects

    --| New_Line examines the Buffering flag in Pretty_Printer_Declarations
    --| to see whether buffering is turned on, and requests a new line
    --| in the buffer or the output.

    -----------------------------------------------------------------

    procedure Start_Buffering_Colon_Declarations;
    --| Starts buffering colon declarations

    --| Effects

    --| Starts buffering the colon declarations or other constructs
    --| containing colons.

    -----------------------------------------------------------------

    procedure Print_Colon_Declarations_Buffer;
    --| Writes the colon declarations buffer to the output file

    --| Effects

    --| Writes the contents of the buffer to the output file,
    --| after lining up the colons.

    -----------------------------------------------------------------

    procedure Increase_Indent;  --| Increases indent

    --| Effects

    --| Requests an increase of the indent by PPD.Indentation_Level.

    --| Requires

    --| It is expected that New_Line will be called with each call to
    --| Increase_Indent, in order to keep the Current_Column information
    --| up to date.

    -----------------------------------------------------------------

    procedure Decrease_Indent;  --| Decreases indent

    --| Effects

    --| Requests a decrease of the indent by PPD.Indentation_Level.

    --| Requires

    --| It is expected that New_Line will have been called before each call to
    --| Increase_Indent, in order to keep the Current_Column information
    --| up to date.

    -----------------------------------------------------------------

    procedure Change_Indent;   --| Changes the indent

    --| Effects

    --| Requests a change in  the indent by an amount other than
    --| PPD.Indentation_Level.  Indent is changed to the current column.
    --| This procedure is used to line up parameter lists or discriminant
    --| specification lists.

    --| Requires

    --| This pair of procedures (Change_Indent, Resume_Normal_Indentation)
    --| are expected to be called without any intervening Increase_Indent
    --| or Decrease_Indent calls.

    -----------------------------------------------------------------

    procedure Resume_Normal_Indentation;   --| Changes the indent back

    --| Effects

    --| Changes the indent back to what it was before Change_Indent was
    --| called.

    --| Requires

    --| This pair of procedures (Change_Indent, Resume_Normal_Indentation)
    --| are expected to be called without any intervening Increase_Indent
    --| or Decrease_Indent calls.

    -----------------------------------------------------------------

    procedure Pop_Identifier(Where : in Pop_To_Where := To_Nowhere);

    --| Effects

    --| Pops an identifier off the stack of identifiers/designators.  Stack is
    --| used for keeping track of beginning and closing identifiers/designators
    --| so that default closing identifiers/designators can be output.

    -----------------------------------------------------------------

    procedure Push_Identifier;

    --| Effects

    --| Pushes an identifier/designator on the identifier stack, which is used
    --| for keeping track of beginning and closing identifiers/designators, so
    --| that default closing identifiers can be filled in.

    -----------------------------------------------------------------

    procedure Push_Empty_Token;

    --| Effects

    --| Pushes the empty token on the stack of beginning/closing
    --| identifiers/designators.  This procedure exists to handle loop and
    --| block identifiers which are optional at both the beginning and end
    --| of the block.  If the identifier is left off, the empty
    --| empty token is pushed as the loop or block identifer in order
    --| to synchronize the stack when it is automatically popped at
    --| the end of a loop or block.

    -----------------------------------------------------------------

    procedure Insert_In_Token;

    --| Effects

    --| Inserts the token "in" into the output.  Called when subprogram
    --| specification with default parameters is found in the source.

    -----------------------------------------------------------------

    procedure Increment_Scope;

    --| Effects

    --| Requests that Current_Scope be incremented.  Scope is used with
    --| the Depth parameter to determine whether to print tokens or a
    --| place holder.

    -----------------------------------------------------------------

    procedure Decrement_Scope(Place_Holder : in String);

    --| Effects

    --| Requests that Current_Scope be decremented. Sets "requests" back to
    --| 0 and prints out a placeholder if printing had been suppressed for
    --| this scope.

    -----------------------------------------------------------------

    procedure Switch_Comment_Context;

    --| Effects

    --| Switches the current comment context from declarative part to body,
    --| in order that comments be formatted appropriately in each part.

---------------------------------------------------------------------

end Pretty_Printer_Utilities;

---------------------------------------------------------------------
--::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
--PARSE.BDY
--::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
-- $Source: /nosc/work/parser/RCS/Parse.bdy,v $
-- $Revision: 4.0 $ -- $Date: 85/02/19 12:00:03 $ -- $Author: carol $

----------------------------------------------------------------------

with Lex;                       -- the lexical analyzer
with ParseStack;                -- elements awaiting parsing
with StateStack;                -- stack of parse states
with ParseTables;               -- state tables generated by parser
                                -- generator
use ParseTables;

with Grammar_Constants;         -- constants generated by parser generator
use Grammar_Constants;

with Pretty_Printer_Utilities;-- Pretty_Printer specific routines

package body Parser is

    ------------------------------------------------------------------

    procedure Apply_Actions(
        Rule_Number : in PT.LeftHandSideRange) is separate;

    ------------------------------------------------------------------

    function Parse return PD.ParseStackElement is

    --| Overview
    --|
    --| The appropriate reference is:
    --|
    --| Using the NYU LALR Parser Generator. Philippe Charles and
    --| Gerald Fisher. Courant Institute, New York University, 251 Mercer
    --| Street, New York, N.Y.  10012. Unpublished paper. 1981.
    --|

    --|
    --| Notes
    --|
    --| Abbreviations Used:
    --|
    --| Cur : Current - used as prefix
    --| LH  : LeftHand
    --| RH  : RightHand
    --|

    ------------------------------------------------------------------
    -- Reduce Action Work Variables
    ------------------------------------------------------------------

    Reduce_Action_Number   : PT.LeftHandSideRange;
        --| reduction to perform

    Reduce_Action_LH_Value : GrammarSymbolRange;
        --| grammar symbol number of left hand side of reduction

    Reduce_Action_RH_Size  : PD.StateParseStacksIndex;
        --| number of elements in right hand side of reduction

    ------------------------------------------------------------------
    -- Other Objects
    ------------------------------------------------------------------

    Current_Action      : ActionRange;
        --| return from PT.GetAction.

    Start_State         : constant := 1;
        --| Start state for parser.

    Last_Element_Popped : PD.ParseStackElement;
        --| Last element popped from parse stack

    ------------------------------------------------------------------

    begin

    --|
    --| Algorithm
    --|
    --| Function PT.GetAction returns an action value,
    --| which indicate one of four possible actions:
    --|
    --| Error:  action value = 0.
    --| Shift:  0 < action value < StateCountPlusOne.
    --| Accept: action value = StateCountPlusOne.
    --| Reduce: action value > StateCountPlusOne.
    --|
    --| The action is processed (as described below).
    --| This is repeated until no more tokens are obtained.
    --|
    --| The basic action processing is:
    --|
    --| SHIFT ACTION: the next token is placed on the ParseStack.
    --|
    --| REDUCE ACTION: the handle (a grammar rule's right hand side)
    --| found on the ParseStack is replaced with a
    --| non-terminal (grammar rule's left hand side) to which
    --| it has been reduced, and a new state.
    --|
    --| ACCEPT ACTION: the ParseStack contains the root
    --| of the parse tree, and processing is finished for
    --| If another compilation unit is present, parsing continues.
    --|
    --| ERROR ACTION: the exception Parser_Error is raised.

    ------------------------------------------------------------------

        -- Initialize Lexical Analyzer
        Lex.Initialization;

        PD.CurToken := Lex.GetNextNonCommentToken;

        StateStack.Push(Start_State);

        Do_Parse: loop

            Current_Action := PT.GetAction(
                StateStack.CopyTop,
                PD.CurToken.gram_sym_val);

            -- Accept action
            exit when (Current_Action in PD.Accept_Action_Range);

            if Current_Action in PD.Shift_Action_Range then

                -- Pretty Printer Utility call
                Pretty_Printer_Utilities.Put(PD.CurToken);

                -- Shift token from CurToken to ParseStack.
                ParseStack.Push(PD.CurToken);

                -- Add new state to top of StateStack
                StateStack.Push(Current_Action);

                -- Get next token.
                PD.CurToken := Lex.GetNextNonCommentToken;

            elsif Current_Action in PD.Reduce_Action_Range then

                Reduce_Action_Number := Current_Action -
                    StateCountPlusOne;

                Reduce_Action_LH_Value  :=
                    PT.Get_LeftHandSide(Reduce_Action_Number);

                Reduce_Action_RH_Size :=
                    PT.Get_RightHandSide(Reduce_Action_Number);

                -- Reduce Parse Stack
                ParseStack.Reduce(Reduce_Action_RH_Size);

                ParseStack.Push((
                    gram_sym_val => Reduce_Action_LH_Value,
                    lexed_token => (
                        text => PD.Null_Source_Text,
                        srcpos_line => 0,
                        srcpos_column => 0)));

                -- Reduce State Stack
                StateStack.Reduce(Reduce_Action_RH_Size);

                StateStack.Push(PT.GetAction(
                    StateStack.CopyTop,
                    Reduce_Action_LH_Value));

                Apply_Actions(Reduce_Action_Number);

                else -- Current_Action is in PD.Error_Action_Range
                    raise PD.Parser_Error;
            end if;
        end loop Do_Parse;
        return ParseStack.Pop;

    exception
        when PD.MemoryOverflow =>
            -- raised if Parse runs out of newable memory.
            raise PD.MemoryOverflow;

    end Parse;

    ------------------------------------------------------------------

end Parser;

----------------------------------------------------------------------
--::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
--APPLYACT.SUB
--::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

 with Pretty_Printer_Declarations;
 with Pretty_Printer_Utilities;

 separate (Parser)
 procedure Apply_Actions(Rule_Number : in PT.LeftHandSideRange) is
 -- all procedure calls in this unit are procedures in package
 -- Pretty_Printer_Utilities

     use Pretty_Printer_Utilities;

 begin

     case Rule_Number is


 -- pragma ::= PRAGMA identifier ( general_component_associations ) ;

  when 1

 -- pragma ::= PRAGMA identifier ;

  | 2 =>

         New_Line;

 -- basic_declaration ::= generic_instantiation

  when 9 =>

         Decrease_Indent;
         Pop_Identifier;
         Decrement_Scope("generic instantiation");

 -- basic_colon_declaration ::= object_declaration

  when 11

 -- basic_colon_declaration ::= number_declaration

  | 12

 -- basic_colon_declaration ::= exception_declaration

  | 13

 -- basic_colon_declaration ::= renaming_colon_declaration

  | 14 =>

         New_Line;

 -- type_definition ::= record_type_definition ;

  when 30 =>

         Decrease_Indent;

 -- component_list ::= {pragma_decl} {component_declaration}
 --     component_declaration closing_{pragma_decl}

  when 66

 -- component_list ::= {pragma_decl} {component_declaration}' variant_part
 --     {pragma_decl}

  | 67 =>

         Decrease_Indent;

 -- component_list ::= null_statement {pragma_decl}

  when 68 =>

         -- buffering started at record_terminal so must print out
         Print_Colon_Declarations_Buffer;
         Decrease_Indent;

 -- component_declaration ::= identifier_list : subtype_indication
 --     [:=expression] ;

  when 69 =>

         New_Line;

 -- variant_part ::= CASE__identifier__IS {pragma_variant}__variant__{variant}
 --     END CASE ;

  when 71 =>

         New_Line;

 -- declarative_part ::= {basic_declarative_item}

  when 80

 -- declarative_part ::= {basic_declarative_item} body {later_declarative_item}


  | 81 =>

         Decrease_Indent;

 -- basic_declarative_item ::= basic_declaration

  when 82

 -- basic_declarative_item ::= representation_clause

  | 83

 -- basic_declarative_item ::= use_clause

  | 84

 -- later_declarative_item ::= subprogram_declaration

  | 86

 -- later_declarative_item ::= package_declaration

  | 87

 -- later_declarative_item ::= task_specification

  | 88

 -- later_declarative_item ::= generic_specification

  | 89

 -- later_declarative_item ::= use_clause

  | 90 =>

         New_Line;

 -- later_declarative_item ::= generic_instantiation

  when 91 =>

         New_Line;
         Decrease_Indent;
         Pop_Identifier;
         Decrement_Scope("generic instantiation");

 -- body ::= proper_body

  when 92

 -- body ::= body_stub

  | 93 =>

         New_Line;

 -- proper_body ::= subprogram_body

  when 94

 -- proper_body ::= package_body

  | 95

 -- proper_body ::= task_body

  | 96 =>

         Switch_Comment_Context;

 -- binary_adding_operator ::= +

  when 150

 -- binary_adding_operator ::= -

  | 151 =>

         Put_Space;

 -- sequence_of_statements ::= {pragma_stm} statement {statement}

  when 168 =>

         Decrease_Indent;

 -- simple_statement ::= assignment_statement

  when 174

 -- simple_statement ::= exit_statement

  | 175

 -- simple_statement ::= return_statement

  | 176

 -- simple_statement ::= goto_statement

  | 177

 -- simple_statement ::= abort_statement

  | 179

 -- simple_statement ::= raise_statement

  | 180

 -- simple_statement ::= code_statement

  | 181

 -- compound_statement ::= if_statement

  | 183

 -- compound_statement ::= case_statement

  | 184

 -- compound_statement ::= loop_statement

  | 185

 -- compound_statement ::= block_statement

  | 186

 -- compound_statement ::= select_statement

  | 188

 -- null_statement ::= NULL ;

  | 190 =>

         New_Line;

 -- subprogram_declaration ::= subprogram_specification ;

  when 214 =>

         Pop_Identifier;

 -- designator ::= identifier

  when 219

 -- designator ::= string_literal

  | 220 =>

         Push_Identifier;

 -- generic_parameter_mode ::= :

  when 224 =>

         Insert_In_Token;

 -- subprogram_body ::= subprogram_specification__IS
 --     declarative_part__begin_end_block [end_designator] ;

  when 227 =>

         Decrement_Scope("body");

 -- call_statement ::= name ;

  when 228 =>

         New_Line;

 -- package_declaration ::= package_specification ;

  when 229 =>

         Decrement_Scope("specification");

 -- package_body ::= PACKAGE__BODY__start_identifier__IS declarative_part END
 --     [identifier] ;

  when 232

 -- package_body ::= PACKAGE__BODY__start_identifier__IS
 --     declarative_part__begin_end_block [identifier] ;

  | 233 =>

         Decrement_Scope("body");

 -- renaming_declaration ::= PACKAGE start_identifier RENAMES expanded_name ;

  when 241

 -- renaming_declaration ::= subprogram_specification RENAMES name ;

  | 242

 -- task_specification ::= TASK start_identifier ;

  | 243

 -- task_specification ::= TASK TYPE start_identifier ;

  | 244 =>

         Pop_Identifier;

 -- task_body ::= TASK__BODY__start_identifier__IS
 --     declarative_part__begin_end_block [identifier] ;

  when 247 =>

         Decrement_Scope("body");

 -- entry_declaration ::= ENTRY identifier [(discrete_range)][formal_part] ;

  when 248 =>

         New_Line;

 -- accept_statement ::= ACCEPT start_identifier [(expression)][formal_part] ;

  when 249 =>

         Pop_Identifier;
         New_Line;

 -- accept_statement ::=
 --     ACCEPT__start_identifier__[(expression)][formal_part]__DO
 --     sequence_of_statements END [identifier] ;

  when 250

 -- delay_statement ::= DELAY simple_expression ;

  | 251 =>

         New_Line;

 -- select_alternative ::= {pragma_stm}
 --     WHEN__condition__=>__selective_wait_alternative

  when 256

 -- select_alternative ::= {pragma_stm} selective_wait_alternative

  | 257 =>

         Decrease_Indent;

 -- TERMINATE__; ::= TERMINATE ;

  when 264 =>

         New_Line;

 -- compilation_unit ::= pragma_header ( general_component_associations ) ;

  when 270

 -- compilation_unit ::= pragma_header ;

  | 271

 -- compilation_unit ::= context_clause library_or_secondary_unit

  | 272 =>

         New_Line;

 -- library_or_secondary_unit ::= generic_instantiation

  when 276 =>

         Decrease_Indent;
         Pop_Identifier;
         Decrement_Scope("generic instantiation");

 -- library_or_secondary_unit ::= subprogram_body

  when 277

 -- library_or_secondary_unit ::= package_body

  | 278 =>

         Switch_Comment_Context;

 -- body_stub ::= subprogram_specification IS SEPARATE ;

  when 282

 -- body_stub ::= PACKAGE BODY start_identifier IS SEPARATE ;

  | 283

 -- body_stub ::= TASK BODY start_identifier IS SEPARATE ;

  | 284 =>

         Pop_Identifier;

 -- generic_specification ::= generic_formal_part subprogram_specification ;

  when 292 =>

         Pop_Identifier;

 -- generic_specification ::= generic_formal_part package_specification ;

  when 293 =>

         Decrement_Scope("specification");

 -- generic_formal_part ::= generic_terminal {generic_parameter_declaration}

  when 294 =>

         Decrease_Indent;

 -- generic_parameter_declaration ::= identifier_list generic_parameter_mode
 --     type_mark [:=expression] ;

  when 295

 -- generic_parameter_declaration ::= TYPE identifier IS generic_type_definition

 --     ;

  | 296

 -- generic_parameter_declaration ::= TYPE identifier left_paren
 --     discriminant_specification {;discriminant_specification} right_paren IS

 --     generic_type_definition ;

  | 297 =>

         New_Line;

 -- generic_parameter_declaration ::= WITH subprogram_specification
 --     [IS__name__or__<>] ;

  when 298 =>

         New_Line;
         Pop_Identifier;

 -- representation_clause ::= record_representation_clause

  when 320 =>

         Decrease_Indent;

 -- component_clause ::= name AT simple_expression range_constraint ;

  when 325 =>

         New_Line;

 -- alignment_clause ::= AT MOD simple_expression ;

  when 326 =>

         New_Line;
         Increase_Indent;

 -- [loop_identifier:] ::= empty

  when 415 =>

         Push_Empty_Token;

 -- [loop_identifier:] ::= identifier :

  when 416 =>

         Push_Identifier;

 -- [identifier] ::= empty

  when 417 =>

         Pop_Identifier(To_Output);

 -- [identifier] ::= identifier

  when 418 =>

         Pop_Identifier;

 -- [block_identifier:] ::= empty

  when 419 =>

         Push_Empty_Token;

 -- [block_identifier:] ::= identifier :

  when 420 =>

         Push_Identifier;

 -- {pragma_alt}__exception_handler_list ::= {pragma_alt} exception_handler_list


  when 421 =>

         Decrease_Indent;

 -- [end_designator] ::= empty

  when 426 =>

         Pop_Identifier(To_Output);

 -- [end_designator] ::= identifier

  when 427

 -- [end_designator] ::= string_literal

  | 428 =>

         Pop_Identifier;

 -- {with_clause{use_clause}} ::= {with_clause{use_clause}} with_clause
 --     use_clause_list

  when 452 =>

         New_Line;

 -- record_terminal ::= RECORD

  when 470 =>

         New_Line;
         Increase_Indent;
         Start_Buffering_Colon_Declarations;

 -- closing_{pragma_decl} ::= {pragma_decl}

  when 471

 -- {component_declaration}' ::= {component_declaration}

  | 472 =>

         Print_Colon_Declarations_Buffer;

 -- start_of_record_type ::= EMPTY

  when 473 =>

         New_Line;
         Increase_Indent;

 -- CASE__identifier__IS ::= CASE identifier IS

  when 474 =>

         New_Line;
         Increase_Indent;

 -- WHEN__variant_choice__{|variant_choice}__=> ::= WHEN__choice__{|choice}__=>


  when 475

 -- WHEN__variant_OTHERS__=> ::= WHEN__OTHERS__=>

  | 476 =>

         Start_Buffering_Colon_Declarations;

 -- WHEN__choice__{|choice}__=> ::= WHEN choice {|choice} =>

  when 477

 -- WHEN__OTHERS__=> ::= WHEN OTHERS =>

  | 478

 -- generic_terminal ::= GENERIC

  | 479

 -- CASE__expression__IS ::= CASE expression IS

  | 480 =>

         New_Line;
         Increase_Indent;

 -- {pragma_alt}__case_statement_alternative__{case_statement_alternative} ::=
 --     {pragma_alt} case_statement_alternative {case_statement_alternative}

  when 481 =>

         Decrease_Indent;

 -- loop_terminal ::= LOOP

  when 482 =>

         New_Line;
         Increase_Indent;

 -- begin_terminal ::= BEGIN

  when 483 =>

         Switch_Comment_Context;
         New_Line;
         Increase_Indent;

 -- {pragma_variant}__variant__{variant} ::= {pragma_variant} variant {variant}


  when 484 =>

         Decrease_Indent;

 -- exception_terminal ::= EXCEPTION

  when 485 =>

         New_Line;
         Increase_Indent;

 -- declare_terminal ::= DECLARE

  when 486 =>

         Switch_Comment_Context;
         New_Line;
         Increase_Indent;

 -- PACKAGE__start_identifier__IS ::= PACKAGE start_identifier IS

  when 487 =>

         Increment_Scope;
         New_Line;
         Increase_Indent;

 -- start_identifier ::= identifier

  when 488 =>

         Push_Identifier;

 -- {basic_declarative_item}' ::= {basic_declarative_item}

  when 489

 -- {entry_declaration}__{representation_clause} ::= {entry_declaration}
 --     {representation_clause}

  | 490 =>

         Decrease_Indent;

 -- private_terminal ::= PRIVATE

  when 491 =>

         New_Line;
         Increase_Indent;

 -- PACKAGE__BODY__start_identifier__IS ::= PACKAGE BODY start_identifier IS

  when 492 =>

         Increment_Scope;
         New_Line;
         Increase_Indent;

 -- TASK__start_identifier__IS ::= TASK start_identifier IS

  when 493

 -- TASK__TYPE__start_identifier__IS ::= TASK TYPE start_identifier IS

  | 494 =>

         New_Line;
         Increase_Indent;

 -- TASK__BODY__start_identifier__IS ::= TASK BODY start_identifier IS

  when 495 =>

         Increment_Scope;
         New_Line;
         Increase_Indent;

 -- ACCEPT__start_identifier__[(expression)][formal_part]__DO ::= ACCEPT
 --     start_identifier [(expression)][formal_part] DO

  when 496

 -- select_terminal ::= SELECT

  | 497 =>

         New_Line;
         Increase_Indent;

 -- call_statement__[sequence_of_statements] ::= call_statement
 --     [sequence_of_statements]

  when 498 =>

         Decrease_Indent;

 -- delay_alternative_in_timed_entry ::= delay_alternative

  when 500

 -- WHEN__condition__=>__selective_wait_alternative ::= WHEN__condition__=>
 --     selective_wait_alternative

  | 501 =>

         Decrease_Indent;

 -- WHEN__condition__=> ::= WHEN condition =>

  when 502

 -- WHEN__exception_choice__{|exception_choice}__=> ::= WHEN exception_choice
 --     {|exception_choice} =>

  | 503 =>

         New_Line;
         Increase_Indent;

 -- FUNCTION__designator__IS ::= FUNCTION designator IS

  when 504

 -- subprogram_specification__IS ::= subprogram_specification IS

  | 505 =>

         Increment_Scope;
         New_Line;
         Increase_Indent;

 -- {component_clause}' ::= {component_clause}

  when 506 =>

         Decrease_Indent;

 -- SEPARATE__(__expanded_name__) ::= SEPARATE ( expanded_name )

  when 507 =>

         New_Line;

 -- {basic_colon_declaration} ::= start_{basic_colon_declaration}
 --     {basic_colon_declaration}' basic_colon_declaration {pragma_decl}

  when 508 =>

         Print_Colon_Declarations_Buffer;

 -- start_{basic_colon_declaration} ::= EMPTY

  when 509 =>

         Start_Buffering_Colon_Declarations;

 -- condition__THEN ::= condition THEN

  when 514

 -- ELSIF__condition__THEN ::= ELSIF condition THEN

  | 515

 -- else_terminal ::= ELSE

  | 516

 -- or_terminal ::= OR

  | 517 =>

         New_Line;
         Increase_Indent;

 -- discriminant_; ::= ;

  when 518

 -- parameter_; ::= ;

  | 519 =>

         New_Line;

 -- left_paren ::= (

  when 520 =>

         Change_Indent;
         Start_Buffering_Colon_Declarations;

 -- right_paren ::= )

  when 521 =>

         Print_Colon_Declarations_Buffer;
         Resume_Normal_Indentation;

     when others =>
         null;
     end case;
 end Apply_Actions;

--::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
--CHANGE.SPC
--::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

with Pretty_Printer_Declarations; use Pretty_Printer_Declarations;
-- to get visibility on =
with ParserDeclarations;

package Change_Text is
--| Subprograms for the manipulation of source text

--| Overview

--| This package provides several subprograms which manipulate source text
--| in various ways.
--|
--| Change_Case alters the case of the text passed in,
--| Change_Sharp changes the extended delimiter character '#' to the basic
--|     character ':' in the text of a based literal.
--| String_Value returns the text of a string with the extended and basic
--|     string delimiters represented appropriately within the string.
--| Bold_Print prints a token in bold form.

    package PPD renames Pretty_Printer_Declarations;
    package PD  renames ParserDeclarations;

    -----------------------------------------------------------------------

    function Change_Case(Token_Text : in PD.Source_Text;  --| text to change
                         To_Case    : in PPD.Case_Name    --| case in which to
                                                          --| print Token_Text
                         ) return String;
    --| Changes the case of Token_Text

    --| Effects

    --| The Token_Text is changed according to the To_Case passed in.  When
    --| To_Case is PPD.Bold, the return value is the same as if lowercase
    --| had been requested.  The actual bold printing is handled in procedure
    --| Bold_Print rather than here for two reasons:
    --|
    --|      1.  Tokens which would ordinarily be bold printed should be only
    --|          lowercased when bold printing is selected with
    --|          Paginated_Format off.  This is to prevent control characters
    --|          from being inserted into a file which is supposed to be
    --|          valid Ada.
    --|
    --|      2.  In determining the length of a token for placement in the
    --|          output, control characters which have no printable form,
    --|          and therefore do not take up any columns on the page, should
    --|          not be counted.
    --|

    -----------------------------------------------------------------------

    function Change_Sharp(Token_Text : in PD.Source_Text) return String;
    --| Changes the extended character '#' to the basic character ':'

    --| Effects

    --| This function changes all of the '#' characters in the passed-in
    --| Token_Text to ':' characters.  Its primary use should be for changing
    --| these characters in the text of a based literal.


    -----------------------------------------------------------------------

    function String_Value(Token_Text : in PD.Source_Text) return String;
    --| Returns the correct text for a string, based on its delimiters

    --| Effects

    --| This function returns a string with the correct delimiters (basic
    --| or extended) and embedded delimiter characters represented correctly.
    --| For example, the input string "Here is a % character" when output
    --| with Basic Delimiters must be converted to %Here is a %% character"
    --| with the embedded delimiter character doubled.  This ensures that
    --| valid Ada strings are reproduced.

    -----------------------------------------------------------------------

    procedure Bold_Print(Text : in String);
    --| Bold prints the Text passed in.

    --| Effects

    --| This procedure currently bold prints by inserting backspace characters
    --| in the output to overstrike the Text passed in twice.  The body of this
    --| procedure may be changed in order to support other methods of
    --| bold printing.

    -----------------------------------------------------------------------

end Change_Text;

---------------------------------------------------------------------------
--::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
--CHANGE.BDY
--::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

with Paginated_Output;

package body Change_Text is
--| Subprograms for the manipulation of source text

--| Overview

--| Change_Text, Change_Sharp and String_Value are all functions which which
--| take a parameter of type PD.Source_Text which is an access to a string
--| type and return a string.  Each dereferences its parameter, performs the
--| appropriate manipulations and returns the manipulated string.  Bold_Print
--| is a procedure bold prints the string passed in.

    package PO renames Paginated_Output;

    -----------------------------------------------------------------------
    -- Local Subprogram Specifications
    -----------------------------------------------------------------------

    function Uppercase (Char : in Character) return Character;
    --| Returns the uppercase value of the passed in character

    --| Effects

    --| If Char is alphabetic, its uppercase value is returned.  Otherwise,
    --| Char is returned unchanged.

    -----------------------------------------------------------------------

    function Lowercase (Char : in Character) return Character;
    --| Returns the lowercase value of the passed in character

    --| Effects

    --| If Char is alphabetic, its lowercase value is returned.  Otherwise,
    --| Char is returned unchanged.

    -----------------------------------------------------------------------
    -- External Subprogram Bodies
    -----------------------------------------------------------------------

    function Change_Case (Token_Text : in PD.Source_Text;
                          To_Case    : in PPD.Case_Name) return String is

        Preceding_Underscore : Boolean := True;
        --| Flags that the preceding character is an underscore, indicating
        --| that the following character should be capitalized.  Initialized
        --| to True so that the first character of the Token will be
        --| capitalized.

    begin

        -- case selectors match enumeration type PPD.Case_Name
        case To_Case is
            when PPD.Uppercase =>
                for I in Token_Text.all'Range loop
                    Token_Text.all(I) := Uppercase(Token_Text.all(I));
                end loop;
                return Token_Text.all;

            -- For Bold, lowercase and the bold printing will be handled
            -- in Print_Token routine.
            when PPD.Lowercase | PPD.Bold =>
                for I in Token_Text.all'Range loop
                    Token_Text.all(I) := Lowercase(Token_Text.all(I));
                end loop;
                return Token_Text.all;
            when PPD.Capitalize1 =>
                for I in Token_Text.all'Range loop
                    if Preceding_Underscore then
                        Token_Text.all(I) := Uppercase(Token_Text.all(I));
                    end if;
                    if Token_Text.all(I) = '_' then
                        Preceding_Underscore := True;
                    else
                        Preceding_Underscore := False;
                    end if;
                end loop;
                return Token_Text.all;
            when PPD.Capitalize2 =>
                for I in Token_Text.all'Range loop
                    if Preceding_Underscore then
                        Token_Text.all(I) := Uppercase(Token_Text.all(I));
                    else
                        Token_Text.all(I) := Lowercase(Token_Text.all(I));
                    end if;
                    if Token_Text.all(I) = '_' then
                        Preceding_Underscore := True;
                    else
                        Preceding_Underscore := False;
                    end if;
                end loop;
                return Token_Text.all;
            when PPD.As_Is =>
                return Token_Text.all;
        end case;
    end Change_Case;

    -----------------------------------------------------------------------

    function Change_Sharp (Token_Text : in PD.Source_Text) return String is
    begin
        for I in Token_Text.all'Range loop
            if Token_Text.all(I) = '#' then
                Token_Text.all(I) := ':';
            end if;
        end loop;
        return Token_Text.all;
    end Change_Sharp;

    -----------------------------------------------------------------------

    function String_Value (Token_Text : in PD.Source_Text) return String is
        Start_Slice      : Positive; --| Marks a point in the input string as
                                     --| the start of the next slice to be
                                     --| copied.
        String_Text      : PD.Source_Text; --| String being built
        Delimiter_Char   : Character := '"'; --| String delimiter character
        Delimiter_String : String(1 .. 1) := """";
        --| String to insert into the string being built as delimiter character

    begin
        if PPD.Delimiters = PPD.Basic then
            Delimiter_Char := '%';
            Delimiter_String := "%";
        else
            Delimiter_Char := '"';
            Delimiter_String := """";
        end if;
        String_Text := new String'(Delimiter_String);
        Start_Slice := Token_Text'First;
        for I in Token_Text'Range loop
            if Token_Text.all(i) = Delimiter_Char then
                String_Text := new String'(
                    String_Text.all & Token_Text.all(Start_Slice .. I) &
                    Delimiter_String);
                Start_Slice := I + 1;
            end if;
        end loop;
        return String_Text.all & Token_Text.all(Start_Slice ..
            Token_Text.all'Last) & Delimiter_String;
    end String_Value;

    -----------------------------------------------------------------------

    procedure Bold_Print(Text : in String) is
        Overstrikes : Constant := 3; --| Number of times to overstrike token.
    begin
        PO.Put(PPD.Output_File, Text);
        if PPD.Paginated_Format = PPD.On then
            for I in 1 .. Overstrikes loop
                for J in Text'First .. Text'Last loop
                    PO.Put(PPD.Output_File, ASCII.BS);
                end loop;
                PO.Put(PPD.Output_File, Text);
            end loop;
        end if;
    end Bold_Print;

    -----------------------------------------------------------------------
    -- Local Subprogram Bodies
    -----------------------------------------------------------------------

    function Uppercase (Char : in Character) return Character is
    begin
        if Char in 'a' .. 'z' then
            return Character'Val(Character'Pos(Char) - Character'Pos('a') +
                Character'Pos('A'));
        else
            return Char;
        end if;
    end Uppercase;

    -----------------------------------------------------------------------

    function Lowercase (Char : in Character) return Character is
    begin
        if Char in 'A' .. 'Z' then
            return Character'Val(Character'Pos(Char) - Character'Pos('A') +
                Character'Pos('a'));
        else
            return Char;
        end if;
    end Lowercase;

    -----------------------------------------------------------------------

end Change_Text;

---------------------------------------------------------------------------
--::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
--PRETTY.SPC
--::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

with Pretty_Printer_Declarations;   -- Parameters of pretty printer

procedure Pretty_Print(
--| Formats source code according to Ada Language Reference Manual (LRM)
--| conventions as the default or to the specified conventions.

    Source_File: in String;
    --| The name of the source file

    Output_File: in String := "";
    --| The name of the output file.  If "", standard output is used.

    Comment_Formatting : in Pretty_Printer_Declarations.Switch :=
        Pretty_Printer_Declarations.Comment_Formatting;
    --| Indicates whether or not to do comment formatting

    Paginated_Format : in Pretty_Printer_Declarations.Switch :=
        Pretty_Printer_Declarations.Paginated_Format;
    --| Indicates whether or not to have paginated output.
    --| Off implies that the pretty printer output is valid as Ada source which
    --| may be compiled.

    Depth : in Pretty_Printer_Declarations.Depth_Range :=
        Pretty_Printer_Declarations.Depth);
    --| Indicates the depth of pretty printing.  If 0, everything is pretty
    --| printed; If 1, only the outermost scope is pretty printed; If 2, only
    --| the outermost 2 scopes are printed, etc.

    --| Effects

    --| The pretty printer reformats source text to conform with the
    --| conventions used in the Ada Language Reference Manual by default
    --| or parameterized as on the command line and in the package
    --| Pretty_Printer_Declarations.  The defaults are as follows:
    --|
    --| - Colons are lined up vertically, if specified as such in
    --|   package Pretty_Printer_Declarations.
    --| - Indentation of all constructs is done as in the LRM
    --| - Identifiers and keywords are printed as in the LRM, or as specified
    --|   in the package Pretty_Printer_Declarations.
    --| - Parameter modes (in, out, or in out) are shown explicitly if
    --|   specified as such in Pretty_Printer_Declarations.
    --| - Closing identifiers (eg. end SQRT;) are printed, if specified in the
    --|   package Pretty_Printer_Declarations.
    --| - Comment formatting is done if requested:
    --|   - Blank lines between a declaration and the descriptive
    --|     comment following it are removed.
    --|   - Blank lines between comments and the statements
    --|     directly following them are removed.
    --|   - Comments are indented to the same level as the source text.
    --| - Output is either paginated or not, as specified.  If the output is
    --|   not paginated, it is valid as Ada source which may be compiled.
    --| - Delimiters are printed using either the Basic (%, :, !) or
    --|   extended (", #, |) character sets, as specified in package
    --|   Pretty_Printer_Declarations.

---------------------------------------------------------------------
--::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
--DRIVER.ADA
--::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

with Pretty_Print;
with Pretty_Printer_Declarations;
with Command_Line_Interface;
with ParserDeclarations;
with VMS_Lib;
with TEXT_IO;

procedure Pretty_Print_Driver is
--| Decodes command line and calls Pretty_Print

    package PD  renames ParserDeclarations;
    package PPD renames Pretty_Printer_Declarations;
    package CLI renames Command_Line_Interface;

    Incorrect_Call          : exception;
    --| Raised when too many or too few parameters given

    Bad_Comment_Switch      : exception;
    --| Raised when value other than on or off given for comment switch

    Bad_Paginate_Switch     : exception;
    --| Raised when value other than on or off given for paginate switch

    Bad_Depth_Value         : exception;
    --| Raised when value outside of PPD.Depth_Range is given for depth

    Required_Source_Missing : exception;
    --| Raised when Source parameter is omitted

    Input_File  : PD.Source_Text := new String'("");
    Output_File : PD.Source_Text := new String'("");
    -- Default is standard output.

    Positional  : Natural := 0; --| Number of positional parameters
    Total       : Natural := 0; --| Total number of parameters.

    Max_Parameters    : constant := 5;

    procedure Put_Help_Message is
    begin
        TEXT_IO.NEW_LINE;
        TEXT_IO.PUT_LINE("-- PRETTY_PRINT: Formats Ada source files");
        TEXT_IO.PUT_LINE("type SWITCH is (ON, OFF);");
        TEXT_IO.PUT_LINE("type DEPTH_RANGE is NATURAL RANGE " &
                         PPD.Depth_Range'Image(PPD.Depth_Range'First) &
                         " .." &
                         PPD.Depth_Range'Image(PPD.Depth_Range'Last) &
                         ";");
        TEXT_IO.NEW_LINE;
        TEXT_IO.PUT_LINE("procedure PRETTY_PRINT (SOURCE      : STRING;");
        TEXT_IO.PUT_LINE("                        OUTPUT      : STRING := """";" );
        TEXT_IO.PUT_LINE("                        COMMENTS    : SWITCH := " &
                         PPD.Switch'Image(PPD.Comment_Formatting) & ";");
        TEXT_IO.PUT_LINE("                        PAGINATE    : SWITCH := " &
                         PPD.Switch'Image(PPD.Paginated_Format) & ";");
        TEXT_IO.PUT_LINE("                        DEPTH       : DEPTH_RANGE " &
                         ":= " & PPD.Depth_Range'Image(PPD.Depth) & ");");
        TEXT_IO.NEW_LINE;
        TEXT_IO.PUT_LINE("-- SOURCE specifies the file to be pretty printed ");
        TEXT_IO.PUT_LINE("-- OUTPUT specifies the result file (default" &
                         " is standard output)");
        TEXT_IO.PUT_LINE("-- COMMENTS indicates whether or not to do " &
                         "comment formatting");
        TEXT_IO.PUT_LINE("-- PAGINATE indicates whether or not to " &
                         "paginate the output");
        TEXT_IO.PUT_LINE("-- DEPTH indicates the depth of the scope of " &
                         "pretty printing");
        TEXT_IO.NEW_LINE;
    end Put_Help_Message;

begin

    --------------------------------------------------------------------
    -- Change driver here to install values which "parameterize" the
    -- pretty printer, before default values are obtained from package
    -- Pretty_Printer_Declarations.  See installation guide for details.
    --------------------------------------------------------------------

    -- Error messages go to standard error
    VMS_Lib.Set_Error;
    CLI.Initialize;
    Positional := CLI.Positional_Arg_Count;
    Total := CLI.Named_Arg_Count + Positional;
    if (Total = 0) then
        raise Incorrect_Call;
    elsif (Total > Max_Parameters) then
        TEXT_IO.PUT_LINE("Too many parameters.");
        TEXT_IO.NEW_LINE;
        raise Incorrect_Call;
    end if;

    -- get all named values or defaults
    Input_File := new String'(CLI.Named_Arg_Value("SOURCE", ""));
    Output_File := new String'(CLI.Named_Arg_Value("OUTPUT", ""));
    begin
        PPD.Comment_Formatting := PPD.Switch'Value(CLI.Named_Arg_Value(
            "COMMENTS", PPD.Switch'Image(PPD.Comment_Formatting)));
    exception
        when Constraint_Error =>
            raise Bad_Comment_Switch;
    end;
    begin
        PPD.Paginated_Format := PPD.Switch'Value(CLI.Named_Arg_Value(
            "PAGINATE", PPD.Switch'Image(PPD.Paginated_Format)));
    exception
        when Constraint_Error =>
            raise Bad_Paginate_Switch;
    end;
    begin
        PPD.Depth := PPD.Depth_Range'Value(CLI.Named_Arg_Value("DEPTH",
            PPD.Depth_Range'Image(PPD.Depth)));
    exception
        when Constraint_Error =>
            raise Bad_Depth_Value;
    end;

    -- get any positional associations
    if Positional >= 1 then
        Input_File := new String'(CLI.Positional_Arg_Value(1));
        if Positional >= 2 then
            Output_File := new String'(CLI.Positional_Arg_Value(2));
            if Positional >= 3 then
                begin
                    PPD.Comment_Formatting := PPD.Switch'Value(
                        CLI.Positional_Arg_Value(3));
                exception
                    when Constraint_Error =>
                        raise Bad_Comment_Switch;
                end;
                if Positional >= 4 then
                    begin
                        PPD.Paginated_Format := PPD.Switch'Value(
                            CLI.Positional_Arg_Value(4));
                    exception
                        when Constraint_Error =>
                            raise Bad_Paginate_Switch;
                    end;
                    if Positional = Max_Parameters then
                        begin
                            PPD.Depth := PPD.Depth_Range'Value(
                                CLI.Positional_Arg_Value(Max_Parameters));
                        exception
                            when Constraint_Error =>
                                raise Bad_Depth_Value;
                        end;
                    end if;
                end if;
            end if;
        end if;
    end if;
    CLI.Finalize;
    if Input_File.all = "" then
        raise Required_Source_Missing;
    end if;

    -- Echo command line
    TEXT_IO.PUT_LINE("PRETTY_PRINT(SOURCE => """ & Input_File.all & """,");
    TEXT_IO.PUT_LINE("             OUTPUT => """ & Output_File.all & """,");
    TEXT_IO.PUT_LINE("             COMMENTS => " &
        PPD.Switch'Image(PPD.Comment_Formatting) & ",");
    TEXT_IO.PUT_LINE("             PAGINATE => " &
        PPD.Switch'Image(PPD.Paginated_Format) & ",");
    TEXT_IO.PUT_LINE("             DEPTH =>" &
        PPD.DEPTH_RANGE'IMAGE(PPD.DEPTH) & ");");
    TEXT_IO.NEW_LINE;

    Pretty_Print(Source_File => Input_File.all,
                 Output_File => Output_File.all,
                 Comment_Formatting => PPD.Comment_Formatting,
                 Paginated_Format => PPD.Paginated_Format,
                 Depth => PPD.Depth);
exception
    when Incorrect_Call =>
        Put_Help_Message;
    when Bad_Comment_Switch =>
        TEXT_IO.PUT_LINE("If optional parameter COMMENTS is specified, it " &
                         "must have the value ON or OFF.");
    when Bad_Paginate_Switch =>
        TEXT_IO.PUT_LINE("If optional parameter PAGINATE is specified, it " &
                         "must have the value ON or OFF.");
    when Bad_Depth_Value =>
        TEXT_IO.PUT_LINE("If optional parameter DEPTH is specified, it must " &
                         "be in the range " &
                         PPD.Depth_Range'Image(PPD.Depth_Range'First) &
                         " .." &
                         PPD.Depth_Range'Image(PPD.Depth_Range'Last));
    when Required_Source_Missing =>
        TEXT_IO.PUT_LINE("Required parameter SOURCE is missing.");
    when CLI.Invalid_Parameter_Order =>
        TEXT_IO.PUT_LINE("Error : No positional parameters may occur after" &
                         " a named parameter.");
        Put_Help_Message;
    when CLI.Missing_Positional_Arg =>
        TEXT_IO.PUT_LINE("Error : Positional parameter is missing.");
        Put_Help_Message;
    when CLI.Unreferenced_Named_Arg =>
        TEXT_IO.PUT_LINE("Error : Parameter name given does not exist.");
    Put_Help_Message;
    when CLI.Invalid_Named_Association =>
        TEXT_IO.PUT_LINE("Error : Named association has a missing value.");
        Put_Help_Message;
    when others =>
        TEXT_IO.PUT_LINE(ITEM => "Pretty_Print internal error.");
end Pretty_Print_Driver;

---------------------------------------------------------------------
--::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
--GETNEXT.SUB
--::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

with Pretty_Printer_Utilities;
separate (Lex)
function GetNextNonCommentToken return PD.ParseStackElement is
--| Buffers all comments preceding the next token and returns next token to
--| lexer

    package PPU renames Pretty_Printer_Utilities;

begin
    PPU.Comment_Buffer := PPU.Comment_Lists.Create;
    loop
        CST := GetNextSourceToken;
        exit when (CST.gram_sym_val = PT.EOF_TokenValue) or
            (CST.gram_sym_val /= PT.Comment_TokenValue);
        PPU.Comment_Lists.Attach(PPU.Comment_Buffer, CST);
    end loop;
    return CST;    -- return the token that is not a comment
end GetNextNonCommentToken;
--::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
--GRMCONST.BDY
--::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

Package body Grammar_Constants is

    function setGrammarSymbolCount return ParserInteger is
    begin
        return    363  ;
    end setGrammarSymbolCount;

    function setActionCount return ParserInteger is
    begin
        return   1520  ;
    end setActionCount;

    function setStateCountPlusOne return ParserInteger is
    begin
        return    997  ;
    end setStateCountPlusOne;

    function setLeftHandSideCount return ParserInteger is
    begin
    return    521  ;
    end setLeftHandSideCount;

    function setRightHandSideCount return ParserInteger is
    begin
        return    521  ;
    end setRightHandSideCount;

end Grammar_Constants;

--::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
--PPRUTILS.BDY
--::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

with Pretty_Printer_Declarations; use Pretty_Printer_Declarations; -- to get
    -- visibility on =
with Change_Text;
with Paginated_Output;
with ParseTables;
with Grammar_Constants; use Grammar_Constants;  -- to get visibility on =
with Unchecked_Deallocation;

package body Pretty_Printer_Utilities is
--| Utilities for pretty printer

    package PPD renames Pretty_Printer_Declarations;
    package CT  renames Change_Text;
    package PO  renames Paginated_Output;
    package PT  renames ParseTables;

    package Token_Stack_Pkg is new Stack_Pkg(PD.ParseStackElement);

    -----------------------------------------------------------------
    -- Local declarations for Utilities
    -----------------------------------------------------------------

    Identifier_Stack : Token_Stack_Pkg.Stack;
    --| Stack of identifiers/designators

    Current_Scope       : PPD.Depth_Range := 1;
    --| Current scope of units in input

    Beginning_Of_Line   : Boolean := True;
    --| Tells whether the current column is at the beginning of a line

    Current_Column      : PPD.Column_Range := PPD.Column_Range'First;
    --| Current column in output file

    Current_Indent      : PPD.Indentation_Range := 0;
    --| Current indentation in output file

    Temporary_Indent    : PPD.Indentation_Range := 0;
    --| Temporary indentation in output file, when statement or declaration
    --| with no embedded requests for newlines is too big to fit on one line.

    Previous_Indent     : PPD.Indentation_Range := 0;
    --| Saved indent for returning to after parameters or discriminants are
    --| lined up.

    Current_Change_Column : PPD.Indentation_Range := 0;
    --| Column to change indent to

    Unperformed_Indents : Natural := 0;
    --| The number of indents "requested" after the RH_Margin has been exceeded
    --| for situations where nesting is so deep that it is not
    --| worthwhile to further indent.

    Empty_Token         : PD.ParseStackElement :=
        (gram_sym_val => PT.Empty_TokenValue,
         lexed_token => (text => new string'(""),
                         srcpos_line => 0,
                         srcpos_column => 0));

    Previous_Token      : PD.ParseStackElement := Empty_Token;
    --| Previous Token from the input stream

    Saved_Token         : PD.ParseStackElement := Empty_Token;
    --| Previous identifier or string literal, saved so that it may be stacked
    --| and closing identifiers printed.

    type Context is (Declarative_Part, Body_Part);
    Comment_Context     : Context := Declarative_Part;
    --| Current Context for formatting comments

    type Request_Descriptor is
        record
            New_Lines  : Natural := 0;
            --| Number of times New_Line was called before printing new lines.
            Increases  : Natural := 0;
            --| Number of times Increase_Indent was called before processing
            --| any of these requests.
            Decreases  : Natural := 0;
            --| Number of times Decrease_Indent was called before processing
            --| any of these requests.
            Changes    : Natural := 0;
            --| Number of times Change_Indent was called before processing
            --| any of these requests.
            Resumes    : Natural := 0;
            --| Number of times Resume_Normal_Indentation was called before
            --| processing any of these requests
        end record;

    Requests : Request_Descriptor;

    type Scope_Request_Descriptor is
        record
            Increments : Natural := 0;
            --| Number of times Increment_Scope was called before processing
            --| any of these requests.
            Decrements : Natural := 0;
            --| Number of times Decrement_Scope was called before processing
            --| any of these requests.
        end record;

    type Token_Descriptor is
        record
            Token                 : PD.ParseStackElement;
            Comments              : Comment_Lists.List;
            Requests              : Request_Descriptor;
            Scope_Requests        : Scope_Request_Descriptor;
            Current_Change_Column : PPD.Indentation_Range := 0;
            -- for lining up parameter/discriminant lists
            Place_Holder          : PD.Source_Text := PD.Null_Source_Text;
            -- for depth processing
            Left_Side_Length      : Natural := 0; -- for lining up colons
        end record;

    Token_To_Buffer : Token_Descriptor;

    package Token_Lists is new Lists(Token_Descriptor);

    Token_Buffer        : Token_Lists.List;

    Buffering_Colon_Declarations : Boolean := False;
    --| Whether or not to save declarations in order to line up the colons.

    -----------------------------------------------------------------
    -- Local subprogram specifications
    -----------------------------------------------------------------

    procedure Initialize_Descriptor(Descriptor : in out Token_Descriptor);
    --| Initializes an object of type Token_Descriptor

    -----------------------------------------------------------------

    procedure Free is new
        Unchecked_Deallocation (String, PD.Source_Text);

    -----------------------------------------------------------------

    procedure Print_Token(Next_Token : in out PD.ParseStackElement);
    --| Prints Next_Token and updates column information

    -----------------------------------------------------------------

    function Token_Text(Token: in PD.ParseStackElement) return String;
    --| Returns the canonical "text" of a token (in extended character set)

    -----------------------------------------------------------------

    function Spaced_Token(Current, Previous : in PD.ParseStackElement) return
        String;
    --| Returns the text of a token with appropriate spaces around it, in
    --| accordance with PPD.Spacing_Table and any extra spaces that are
    --| necessary.

    -----------------------------------------------------------------

    procedure Print_New_Line;
    --| Puts a newline in the output and updates column information.

    -----------------------------------------------------------------

    procedure Process_Increase_Requests;
    --| Increases the indentation unless PPD.RH_Margin is exceeded,
    --| in which case Unperformed_Indents is incremented.

    -----------------------------------------------------------------

    procedure Process_Decrease_Requests;
    --| Decreases the indentation unless there were unperformed indents,
    --| in which case Unperformed_Indents is decremented.

    -----------------------------------------------------------------

    procedure Process_Change_Requests;
    --| Changes the indentation to the current column

    -----------------------------------------------------------------

    procedure Process_Resume_Requests;
    --| Resumes the indentation level before the call to
    --| Process_Change_Requests.

    -----------------------------------------------------------------
    -- External Subprogram Bodies
    -----------------------------------------------------------------

    procedure Initialize is
    begin
        Identifier_Stack := Token_Stack_Pkg.Create;
        Current_Scope := 1;
        Beginning_Of_Line := True;
        Current_Column := 1;
        Current_Indent := 0;
        Temporary_Indent := 0;
        Unperformed_Indents := 0;
        Empty_Token := (gram_sym_val => PT.Empty_TokenValue,
                        lexed_token => (text => new string'(""),
                        srcpos_line => 0, srcpos_column => 0));
        Previous_Token := Empty_Token;
        Saved_Token := Empty_Token;
        Requests := (0, 0, 0, 0, 0);

        Buffering_Colon_Declarations := False;
    end Initialize;

    -----------------------------------------------------------------

    procedure Put(Next_Token : in out PD.ParseStackElement) is
    begin

        -- if the Token_To_Buffer belonged in the colon Token_Buffer, attach
        -- it there.  (Values have been assigned to Token_To_Buffer but it
        -- has not been attached to the buffer)
        if Buffering_Colon_Declarations and (Token_To_Buffer.Token.gram_sym_val
            /= PT.Comment_TokenValue) then
            Token_Lists.Attach(Token_Buffer, Token_To_Buffer);
            Initialize_Descriptor(Token_To_Buffer);
        end if;

        -- function designator can be string literal or identifier, so save
        -- both, so closing identifier/designator can be printed.
        if (Next_Token.gram_sym_val = PT.IdentifierTokenValue) or
            (Next_Token.gram_sym_val = PT.StringTokenValue) then
            Saved_Token := Next_Token;
        end if;

        if Buffering_Colon_Declarations then
            Token_To_Buffer.Token := Next_Token;
            Token_To_Buffer.Comments := Comment_Buffer;
        elsif (PPD.Depth = 0) or (Current_Scope <= PPD.Depth) then
            Print_Comments(Comment_Buffer);
            Print_Token(Next_Token);
        else

            -- save previous token here in case comments come after
            -- a placeholder
            Previous_Token := Next_Token;
        end if;
    end Put;

    -----------------------------------------------------------------

    procedure Put_Space(Spaces : in Natural := 1) is
        Blank : constant String := "                    " &
            "                                                            ";
    begin
        if Buffering_Colon_Declarations then
            Token_Lists.Attach(Token_Buffer, Token_To_Buffer);
            Initialize_Descriptor(Token_To_Buffer);
            Token_To_Buffer.Token := Empty_Token;
            Token_To_Buffer.Token.lexed_token.text :=
                new String'(Blank(1 .. Spaces));
        elsif (PPD.Depth = 0) or (Current_Scope <= PPD.Depth) then
            if Current_Column + Spaces - 1 > PPD.Page_Width then
                Print_New_Line;
                Temporary_Indent := PPD.Indentation_Level;
                Current_Column := Current_Indent + Temporary_Indent + 1;
            end if;

            if Beginning_Of_Line then
                PO.Space(PPD.Output_File, Current_Column - 1);
            end if;
            PO.Space(PPD.Output_File, Spaces);
            Current_Column := Current_Column + Spaces;
        end if;
    end Put_Space;

    -----------------------------------------------------------------

    procedure Print_Comments(Buffer : in out Comment_Lists.List) is

        Iter           : Comment_Lists.ListIter; --| Iterates down comment list
        Comment_Token  : PD.ParseStackElement; --| Element in list of comments
        New_Lines      : Natural := 0;         --| number of new_lines
                                               --| between comments

    begin

        Iter := Comment_Lists.MakeListIter(Buffer);
        if (PPD.Comment_Formatting = PPD.On) and
            not Comment_Lists.IsEmpty(Buffer) and
            (Comment_Context = Body_Part) then

            -- process all "requests" dealing with indentation before printing
            -- comments if comments are being formatted and the context is the
            -- body part.  Process these first, so that Print_New_Line takes
            -- indentation into account.
            Process_Increase_Requests;
            Process_Decrease_Requests;
            Process_Change_Requests;
            Process_Resume_Requests;
            if Requests.New_Lines > 0 then
                Print_New_Line;
                Requests.New_Lines := 0;
            end if;

            -- print extra new line if not at the beginning of the line,
            -- to get to the beginning of a new line
            if not Beginning_Of_Line then
                Print_New_Line;
            end if;
            Print_New_Line;
        end if;
        while Comment_Lists.More(Iter) loop
            Comment_Lists.Next(Iter, Comment_Token);

            -- Print new lines between this comment token and
            -- previous token in source, unless new lines were already printed
            -- for comment formatting.
            New_Lines := Comment_Token.lexed_token.srcpos_line -
                Previous_Token.lexed_token.srcpos_line;
            if (PPD.Comment_Formatting = PPD.Off) or
                (Comment_Context = Declarative_Part) or
                (Previous_Token.gram_sym_val = PT.Comment_TokenValue) then
                for I in 1 .. New_Lines loop
                    Print_New_Line;
                end loop;
            end if;

            -- if Comment Formatting is on, try to indent to level of source
            if (PPD.Comment_Formatting = PPD.On) and
                ((PPD.Page_Width - Current_Column) >=
                Token_Text(Comment_Token)'Length) then
                if Beginning_Of_Line then
                    PO.Space(PPD.Output_File, Current_Column - 1);
                else

                    -- put extra space in so comment is separated from previous
                    -- token
                    Put_Space;
                end if;
            else
                if New_Lines > 0 then
                    Current_Column := 1;
                end if;

                -- if comment can't go where it was in source, put it at same
                -- column on next line.
                if Comment_Token.lexed_token.srcpos_column < Current_Column
                    then
                    PO.Skip_Line(PPD.Output_File);
                    PO.Space(PPD.Output_File, Comment_Token.lexed_token.
                        srcpos_column - 1);
                else
                    PO.Space(PPD.Output_File, Comment_Token.lexed_token.
                        srcpos_column - Current_Column);
                end if;
            end if;
            PO.Put(PPD.Output_File, Token_Text(Comment_Token));
            Free(Comment_Token.lexed_token.text);
            Previous_Token := Comment_Token;
        end loop;

        -- process any requests not handled earlier
        Process_Increase_Requests;
        Process_Decrease_Requests;
        Process_Change_Requests;
        Process_Resume_Requests;

        -- if there were some comments in buffer put new line after them
        if (not Comment_Lists.IsEmpty(Buffer)) then
            Print_New_Line;
        else
            for I in 1 .. Requests.New_Lines loop
                Print_New_Line;
            end loop;
        end if;
        Requests.New_Lines := 0;

        Comment_Lists.Destroy(Buffer);
    end Print_Comments;

    -----------------------------------------------------------------

    procedure New_Line is
    --| Requests a new_line for the output.  The newline is not actually
    --| printed here, in order that comments are put in the appropriate
    --| place.  The actual newline is printed in Print_New_Line.
    begin
        if Buffering_Colon_Declarations then
            Token_To_Buffer.Requests.New_Lines :=
                Token_To_Buffer.Requests.New_Lines + 1;
        else
            Requests.New_Lines := Requests.New_Lines + 1;
        end if;
    end New_Line;

    -----------------------------------------------------------------

    procedure Start_Buffering_Colon_Declarations is
    begin

        -- create new list if not already buffering and tokens are being
        -- printed for the current depth
        if not Buffering_Colon_Declarations and
            ((PPD.Depth = 0) or (Current_Scope <= PPD.Depth)) then
            Buffering_Colon_Declarations := True;
            Token_Buffer := Token_Lists.Create;
        end if;
    end Start_Buffering_Colon_Declarations;

    -----------------------------------------------------------------

    procedure Print_Colon_Declarations_Buffer is
        Iterator       : Token_Lists.ListIter;
        Buffered_Token : Token_Descriptor;
        Second_Buffer  : Token_Lists.List := Token_Lists.Create;
        Current_Length : Natural := 0;
        Max_Length     : Natural := 0;
    begin
        if (PPD.Depth = 0) or (Current_Scope <= PPD.Depth) then

            -- attach last token to list.  Token would usually be attached
            -- in the call to Put for the token following Token_To_Buffer.
            Token_Lists.Attach(Token_Buffer, Token_To_Buffer);

            Buffering_Colon_Declarations := False;

            -- get maximum identifier list length, updating tokens with length
            -- information, and attach each token to Second_Buffer with this
            -- new information.
            Iterator := Token_Lists.MakeListIter(Token_Buffer);
            while Token_Lists.More(Iterator) loop
                Token_Lists.Next(Iterator, Buffered_Token);

                -- This can't be a case statement because of non-static bound
                -- of type for PT.xxxTokenValue
                if (Buffered_Token.Token.gram_sym_val =
                    PT.IdentifierTokenValue) or
                    (Buffered_Token.Token.gram_sym_val = PT.Comma_TokenValue)
                    then
                    if not Comment_Lists.IsEmpty(Buffered_Token.Comments) then
                        if Current_Length > Max_Length then
                            Max_Length := Current_Length;
                        end if;
                        Current_Length := 0;
                    end if;
                    Current_Length := Current_Length +
                        Spaced_Token(Buffered_Token.Token,
                            Previous_Token)'Length;
                    Token_Lists.Attach(Second_Buffer, Buffered_Token);
                elsif (Buffered_Token.Token.gram_sym_val =
                    PT.Colon_TokenValue) or
                    (Buffered_Token.Token.gram_sym_val = PT.NullTokenValue)
                    then
                    if Current_Length > Max_Length then
                        Max_Length := Current_Length;
                    end if;
                    if Comment_Lists.IsEmpty(Buffered_Token.Comments) then
                        Buffered_Token.Left_Side_Length := Current_Length;
                    end if;
                    Current_Length := 0;
                    Token_Lists.Attach(Second_Buffer, Buffered_Token);

                    -- skip to semicolon
                    while Token_Lists.More(Iterator) and
                        Buffered_Token.Token.gram_sym_val /=
                        PT.SemiColon_TokenValue loop
                        Token_Lists.Next(Iterator, Buffered_Token);
                        Token_Lists.Attach(Second_Buffer, Buffered_Token);
                    end loop;
                end if;
            end loop;
            Token_Lists.Destroy(Token_Buffer);

            -- Print out Second_Buffer
            Iterator := Token_Lists.MakeListIter(Second_Buffer);
            while Token_Lists.More(Iterator) loop
                Token_Lists.Next(Iterator, Buffered_Token);
                if (PPD.Depth = 0) or (Current_Scope <= PPD.Depth) then
                    Print_Comments(Buffered_Token.Comments);
                    if (PPD.Colon_Alignment = PPD.On) and
                        (Buffered_Token.Token.gram_sym_val =
                        PT.Colon_TokenValue) then
                        Put_Space(Max_Length - Buffered_Token.Left_Side_Length);
                    end if;
                    Print_Token(Buffered_Token.Token);
                end if;
                Requests := Buffered_Token.Requests;
                Current_Change_Column := Buffered_Token.Current_Change_Column;
                for I in 1 .. Buffered_Token.Scope_Requests.Increments loop
                    Increment_Scope;
                end loop;
                for I in 1 .. Buffered_Token.Scope_Requests.Decrements loop
                    Decrement_Scope(Buffered_Token.Place_Holder.all);
                end loop;
            end loop;
            Token_Lists.Destroy(Second_Buffer);

            Initialize_Descriptor(Token_To_Buffer);
            Buffering_Colon_Declarations := False;
        end if;
    end Print_Colon_Declarations_Buffer;

    -----------------------------------------------------------------

    procedure Increase_Indent is
    --| Requests an increase in indentation.  The increase is not actually
    --| processed here, in order that comments are put in the appropriate
    --| place.  The actual increase is processed in Process_Increase_Requests.
    begin
        if Buffering_Colon_Declarations then
            Token_To_Buffer.Requests.Increases :=
                Token_To_Buffer.Requests.Increases + 1;
        else
            Requests.Increases := Requests.Increases + 1;
        end if;
    end Increase_Indent;

    -----------------------------------------------------------------

    procedure Decrease_Indent is
    --| Requests a decrease in indentation.  The decrease is not actually
    --| processed here, in order that comments are put in the appropriate
    --| place.  The actual decrease is processed in Process_Decrease_Requests.
    begin
        if Buffering_Colon_Declarations then
            Token_To_Buffer.Requests.Decreases :=
                Token_To_Buffer.Requests.Decreases + 1;
        else
            Requests.Decreases := Requests.Decreases + 1;
        end if;
    end Decrease_Indent;

    -----------------------------------------------------------------

    procedure Change_Indent is
    --| Requests a change in indentation.  The change is not actually
    --| processed here, in order that comments are put in the appropriate
    --| place.  The actual change is processed in Process_Change_Requests.
    begin
        if Buffering_Colon_Declarations then
            Token_To_Buffer.Requests.Changes :=
                Token_To_Buffer.Requests.Changes + 1;
            Token_To_Buffer.Current_Change_Column := Current_Column;
        else
            Requests.Changes := Requests.Changes + 1;
            Current_Change_Column := Current_Column;
        end if;
    end Change_Indent;

    -----------------------------------------------------------------

    procedure Resume_Normal_Indentation is
    --| Requests a resume of the previous indentation.  This is not actually
    --| processed here, in order that comments are put in the appropriate
    --| place.  The actual resume is processed in Process_Resume_Requests.
    begin
        if Buffering_Colon_Declarations then
            Token_To_Buffer.Requests.Resumes :=
                Token_To_Buffer.Requests.Resumes + 1;
        else
            Requests.Resumes := Requests.Resumes + 1;
        end if;
    end Resume_Normal_Indentation;

    -----------------------------------------------------------------

    procedure Pop_Identifier(Where : in Pop_To_Where := To_Nowhere) is
        Popped_Token : PD.ParseStackElement; --| The token popped off stack
    begin
        if (Where = To_Nowhere) or (PPD.Closing_Identifiers = PPD.Off) or
            ((PPD.Depth /= 0) and (Current_Scope > PPD.Depth)) then
            Token_Stack_Pkg.Pop(Identifier_Stack);
        else
            Token_Stack_Pkg.Pop(Identifier_Stack, Popped_Token);
            Put(Popped_Token);
        end if;
    end Pop_Identifier;

    -----------------------------------------------------------------

    procedure Push_Identifier is
    begin

        -- set source line and column to 0 so that new column and line may
        -- be assigned when the pushed token is output as a closing designator
        -- or identifier.
        Saved_Token.lexed_token.srcpos_line := 0;
        Saved_Token.lexed_token.srcpos_column := 0;
        Token_Stack_Pkg.Push(Identifier_Stack, Saved_Token);
    end Push_Identifier;

    -----------------------------------------------------------------

    procedure Push_Empty_Token is
    begin
        Token_Stack_Pkg.Push(Identifier_Stack, Empty_Token);
    end Push_Empty_Token;

    -----------------------------------------------------------------

    procedure Insert_In_Token is
        In_Token : PD.ParseStackElement := (gram_sym_val => PT.InTokenValue,
            lexed_token => (text => new string'("in"),
                            srcpos_line => 0,
                            srcpos_column => 0));
        --| "In" token with source line and column positions set to 0 so that
        --| new line and column positions may be assigned the token when it
        --| is output.
    begin
        if PPD.Explicit_Param_Mode = PPD.On then
            Put(In_Token);
        end if;
    end Insert_In_Token;

    -----------------------------------------------------------------

    procedure Increment_Scope is
    begin
        if Buffering_Colon_Declarations then
            Token_To_Buffer.Scope_Requests.Increments :=
                Token_To_Buffer.Scope_Requests.Increments + 1;
        else
            Current_Scope := Current_Scope + 1;
        end if;
    end Increment_Scope;

    -----------------------------------------------------------------

    procedure Decrement_Scope(Place_Holder : in String) is
    begin
        if Buffering_Colon_Declarations then
            Token_To_Buffer.Scope_Requests.Decrements :=
                Token_To_Buffer.Scope_Requests.Decrements + 1;
            Token_To_Buffer.Place_Holder := new String'(Place_Holder);
        else
            if (Current_Scope - PPD.Depth = 1) and (PPD.Depth /= 0) then
                Requests := (0, 0, 0, 0, 0);
                Current_Change_Column := 0;
                PO.Put(PPD.Output_File, "<" & Place_Holder & ">");
            end if;
            Current_Scope := Current_Scope - 1;
        end if;
    end Decrement_Scope;

    -----------------------------------------------------------------

    procedure Switch_Comment_Context is
    begin
        if Comment_Context = Declarative_Part then
            Comment_Context := Body_Part;
        else
            Comment_Context := Declarative_Part;
        end if;
    end Switch_Comment_Context;

    -----------------------------------------------------------------
    -- Local subprogram bodies
    -----------------------------------------------------------------

    procedure Initialize_Descriptor(Descriptor : in out Token_Descriptor) is
    begin

        Descriptor.Token := Empty_Token;
        -- Change grammar symbol to comment token value which it
        -- can never be (since comments are buffered separately)
        Descriptor.Token.gram_sym_val := PT.Comment_TokenValue;
        Descriptor.Requests := (0, 0, 0, 0, 0);
        Descriptor.Scope_Requests := (0, 0);
        Descriptor.Current_Change_Column := 0;
        Descriptor.Place_Holder := PD.Null_Source_Text;
        Descriptor.Left_Side_Length := 0;
    end Initialize_Descriptor;

    -----------------------------------------------------------------

    procedure Print_Token(Next_Token : in out PD.ParseStackElement) is

        Token_Length : Natural := 0;
        Blank_Lines  : Integer := 0;

    begin

        -- give line and column position to tokens being inserted that weren't
        -- in the source.
        if Next_Token.lexed_token.srcpos_line = 0 then
            Next_Token.lexed_token.srcpos_line := Previous_Token.lexed_token.
                srcpos_line;
            Next_Token.lexed_token.srcpos_column := Previous_Token.lexed_token.
                srcpos_column;
        end if;

        if (PPD.Comment_Formatting = PPD.Off) or
            (Comment_Context = Declarative_Part) or
            ((Comment_Context = Body_Part) and (Previous_Token.gram_sym_val /=
            PT.Comment_TokenValue)) then

            -- print out any blank lines that appeared in source between the
            -- previous token and this one.
            Blank_Lines := Next_Token.lexed_token.srcpos_line - Previous_Token.
                lexed_token.srcpos_line - 1;

            -- print extra new line if not at beginning of line, so blank line
            -- will be printed rather than just a new line
            if not Beginning_Of_Line and (Blank_Lines > 0) then
                Print_New_Line;
            end if;
            PO.Skip_Line(PPD.Output_File, Blank_Lines);
        end if;

        Token_Length := Spaced_Token(Next_Token, Previous_Token)'Length;

        -- If adding this token will make the line longer than the
        -- page width then go to the next line and indent.
        if (Current_Column + Token_Length - 1) > PPD.Page_Width then
            Print_New_Line;
            Temporary_Indent := PPD.Indentation_Level;
            Current_Column := Current_Indent + Temporary_Indent + 1;
        end if;

        -- output spaces if at the beginning of the line to get to the current
        -- indentation level.
        if Beginning_Of_Line then
            PO.Space(PPD.Output_File, Current_Column - 1);
        end if;

        -- Output token, bold printing if appropriate
        if ((Next_Token.gram_sym_val in PD.ReservedWordRange) and
            (PPD.Keyword = PPD.Bold)) or ((Next_Token.gram_sym_val =
            PT.IdentifierTokenValue) and (PPD.Identifier = PPD.Bold)) then
            CT.Bold_Print(Spaced_Token(Next_Token, Previous_Token));
        else
            PO.Put(PPD.Output_File, Spaced_Token(Next_Token, Previous_Token));
        end if;

        Beginning_Of_Line := False;

        -- if the token was too big to fit even on the new line allocated it,
        -- set the current_column to the next line
        if Token_Length > PPD.Page_Width - Current_Indent then
            Print_New_Line;
            Temporary_Indent := PPD.Indentation_Level;
            Current_Column := Current_Indent + Temporary_Indent + 1;
        else
            Current_Column := Current_Column + Token_Length;
        end if;
        if Next_Token.gram_sym_val /= PT.Empty_TokenValue then
            Previous_Token := Next_Token;
        end if;
    end Print_Token;

    -----------------------------------------------------------------

    function Token_Text(Token: in PD.ParseStackElement) return String is
    begin
        if (Token.gram_sym_val in PD.SingleDelimiterRange) or
            (Token.gram_sym_val in PD.DoubleDelimiterRange) then
            if Token.gram_sym_val = PT.Bar_TokenValue then
                if PPD.Delimiters = PPD.Basic then
                    return ("!");
                else
                    return ("|");
                end if;
            else
                return PT.Get_Grammar_Symbol(Token.gram_sym_val);
            end if;
        elsif Token.gram_sym_val = PT.StringTokenValue then
            return CT.String_Value(Token.lexed_token.text);
        elsif Token.gram_sym_val = PT.CharacterTokenValue then
            return (Token.lexed_token.text.all & "'");
        elsif Token.gram_sym_val = PT.Comment_TokenValue then
            return ("--" & Token.lexed_token.text.all);
        elsif Token.gram_sym_val in PD.ReservedWordRange then
            return CT.Change_Case(Token.lexed_token.text, PPD.Keyword);
        elsif Token.gram_sym_val = PT.IdentifierTokenValue then
            return CT.Change_Case(Token.lexed_token.text, PPD.Identifier);
        elsif (Token.gram_sym_val = PT.NumericTokenValue) and
            (PPD.Delimiters = PPD.Basic) then
            return CT.Change_Sharp(Token.lexed_token.text);
        else
            return Token.lexed_token.text.all;
        end if;
    end Token_Text;

    -----------------------------------------------------------------

    function Spaced_Token(Current, Previous : in PD.ParseStackElement) return
        String is
        Preceding_Space : Boolean := False;
    begin

        -- Given context of Current and Previous grammar symbols, determine
        -- whether space should precede current token.
        -- This can't be a case statement because of non-static bound of
        -- GrammarSymbolRange, which is the type of all names of the
        -- form PT.xxxTokenValue
        if (Current.gram_sym_val = PT.ModTokenValue) then
            if Previous.gram_sym_val /= PT.AtTokenValue then
                Preceding_Space := True;
            end if;
        elsif (Current.gram_sym_val = PT.UseTokenValue) then
            if Previous.gram_sym_val /= PT.SemiColon_TokenValue then
                Preceding_Space := True;
            end if;
        elsif (Current.gram_sym_val = PT.ColonEQ_TokenValue) then
            if Previous.gram_sym_val /= PT.ConstantTokenValue then
                Preceding_Space := True;
            end if;
        elsif (Current.gram_sym_val = PT.ThenTokenValue) then
            if Previous.gram_sym_val /= PT.AndTokenValue then
                Preceding_Space := True;
            end if;
        elsif (Current.gram_sym_val = PT.InTokenValue) or
              (Current.gram_sym_val = PT.LoopTokenValue) then
            if Previous.gram_sym_val /= PT.Colon_TokenValue then
                Preceding_Space := True;
            end if;
        elsif (Current.gram_sym_val = PT.Plus_TokenValue) or
              (Current.gram_sym_val = PT.Minus_TokenValue) then
            if Previous.gram_sym_val /= PT.LeftParen_TokenValue then
                Preceding_Space := True;
            end if;
        elsif (Current.gram_sym_val = PT.RangeTokenValue) or
              (Current.gram_sym_val = PT.DigitsTokenValue) or
              (Current.gram_sym_val = PT.DeltaTokenValue) then
            if (Previous.gram_sym_val /= PT.Apostrophe_TokenValue) and
               (Previous.gram_sym_val /= PT.IsTokenValue) then
                Preceding_Space := True;
            end if;
        elsif (Previous.gram_sym_val = PT.CaseTokenValue) or
               (Previous.gram_sym_val = PT.DeltaTokenValue) or
               (Previous.gram_sym_val = PT.DigitsTokenValue) or
               (Previous.gram_sym_val = PT.EndTokenValue) or
               (Previous.gram_sym_val = PT.ExitTokenValue) or
               (Previous.gram_sym_val = PT.IfTokenValue) or
               (Previous.gram_sym_val = PT.LoopTokenValue) or
               (Previous.gram_sym_val = PT.ReturnTokenValue) or
               (Previous.gram_sym_val = PT.RaiseTokenValue) or
               (Previous.gram_sym_val = PT.RangeTokenValue) or
               (Previous.gram_sym_val = PT.SelectTokenValue) then
            if (Current.gram_sym_val /= PT.SemiColon_TokenValue) and
                -- Empty Token handles pop of loop or block identifier.
                (Current.gram_sym_val /= PT.Empty_TokenValue) then
                Preceding_Space := True;
            end if;
        elsif (Previous.gram_sym_val = PT.AbsTokenValue) then
            if Current.gram_sym_val /= PT.LeftParen_TokenValue then
                Preceding_Space := True;
            end if;
        end if;

        -- Return the spaced token
        case PPD.Spacing_Table(Current.gram_sym_val) is
             when PPD.After =>
                 if Beginning_Of_Line or not Preceding_Space then
                     return Token_Text(Current) & " ";
                 else
                     return " " & Token_Text(Current) & " ";
                 end if;
             when PPD.Before =>
                 if Beginning_Of_Line then
                     return Token_Text(Current);
                 else
                     return " " & Token_Text(Current);
                 end if;
             when PPD.Around =>
                 if Beginning_of_Line then
                     return Token_Text(Current) & " ";
                 else
                     return " " & Token_Text(Current) & " ";
                 end if;
             when PPD.None =>
                 if Beginning_of_Line or not Preceding_Space then
                     return Token_Text(Current);
                 else
                     return " " & Token_Text(Current);
                 end if;
        end case;
    end Spaced_Token;

    -----------------------------------------------------------------

    procedure Print_New_Line is
    begin
        Temporary_Indent := 0;
        Current_Column := Current_Indent + 1;
        PO.Skip_Line(PPD.Output_File);
        Beginning_Of_Line := True;
    end Print_New_Line;

    -----------------------------------------------------------------

    procedure Process_Increase_Requests is
    begin
        for I in 1 .. Requests.Increases loop
            if Current_Indent + PPD.Indentation_Level < PPD.RH_Margin then
                Current_Indent := Current_Indent + PPD.Indentation_Level;
            else
                Unperformed_Indents := Unperformed_Indents + 1;
            end if;
        end loop;
        Requests.Increases := 0;
    end Process_Increase_Requests;

    -----------------------------------------------------------------

    procedure Process_Decrease_Requests is
    begin
        for I in 1 .. Requests.Decreases loop
            if Unperformed_Indents = 0 then
                Current_Indent := Current_Indent - PPD.Indentation_Level;
            else
                Unperformed_Indents := Unperformed_Indents - 1;
            end if;
        end loop;
        Requests.Decreases := 0;
    end Process_Decrease_Requests;

    -----------------------------------------------------------------

    procedure Process_Change_Requests is
    begin
        if Requests.Changes > 0 then
            Previous_Indent := Current_Indent;
            if Current_Change_Column < PPD.RH_Margin then
                Current_Indent := Current_Change_Column - 1;
            end if;

            -- Since new line does not always occur before change_indent,
            -- need to update current column info.
            Temporary_Indent := 0;
            Current_Column := Current_Indent + 1;
        end if;
        Requests.Changes := 0;
    end Process_Change_Requests;

    -----------------------------------------------------------------

    procedure Process_Resume_Requests is
    begin
        if Requests.Resumes > 0 then
            Current_Indent := Previous_Indent;
        end if;
        Requests.Resumes := 0;
    end Process_Resume_Requests;

    -----------------------------------------------------------------

end Pretty_Printer_Utilities;

---------------------------------------------------------------------
--::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
--PRETTY.BDY
--::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

with Pretty_Printer_Utilities;
with ParserDeclarations;            -- declarations for parser
with Parser;                        -- contains parse and Apply_Actions
with Host_Dependencies;
with Paginated_Output;
with TEXT_IO;

procedure Pretty_Print(
    Source_File : in String;
    Output_File : in String := "";
    Comment_Formatting : in Pretty_Printer_Declarations.Switch :=
        Pretty_Printer_Declarations.Comment_Formatting;
    Paginated_Format : in Pretty_Printer_Declarations.Switch :=
        Pretty_Printer_Declarations.Paginated_Format;
    Depth : in Pretty_Printer_Declarations.Depth_Range :=
        Pretty_Printer_Declarations.Depth) is

    use Pretty_Printer_Declarations;

    package PPD renames Pretty_Printer_Declarations;
    package PPU renames Pretty_Printer_Utilities;
    package PD  renames ParserDeclarations;
    package HD  renames Host_Dependencies;
    package PO  renames Paginated_Output;

                         -- Objects --

    Return_Value : PD.ParseStackElement;
    Input_File   : TEXT_IO.FILE_TYPE;

begin
    TEXT_IO.OPEN(FILE => Input_File,
                 MODE => TEXT_IO.IN_FILE,
                 NAME => Source_File);
    TEXT_IO.SET_INPUT(Input_File);
    PPD.Comment_Formatting := Comment_Formatting;
    PPD.Paginated_Format := Paginated_Format;
    PPD.Depth := Depth;
    PPU.Initialize;

    if PPD.Paginated_Format = PPD.On then
        PO.Create_Paginated_File(File_Handle => PPD.Output_File,
                                 File_Name => Output_File);
        PO.Set_Header(File_Handle => PPD.Output_File, Header_Line => 1,
            Header_Text => "Pretty Printer Output on ~d at " &
            "~t                                ~p");
        PO.Set_Header(File_Handle => PPD.Output_File, Header_Line => 2,
            Header_Text => "Source File: " & Source_File);
    else
        PO.Create_Paginated_File(File_Handle => PPD.Output_File,
                                 File_Name => Output_File,
                                 Header_Size => 0,
                                 Footer_Size => 0,
                                 Page_Size => 0);
    end if;

    -- main loop of pretty printer is Parser.Parse.  Pretty printing actions
    -- are in Parser.Apply_Actions which is called by Parse on each reduction.
    Return_Value := Parser.Parse;

    -- print any comments following the last token in the file.
    PPU.Print_Comments(PPU.Comment_Buffer);
    PO.Close_Paginated_File(PPD.Output_File);
    TEXT_IO.CLOSE(Input_File);

exception
    when TEXT_IO.NAME_ERROR =>
        TEXT_IO.PUT_LINE(ITEM => "Error opening file " & Source_File &
            " for input.");
    when PD.Parser_Error =>
        TEXT_IO.NEW_LINE;
        TEXT_IO.PUT_LINE(ITEM => "Syntax Error in Source: Line: " &
            HD.Source_Line'Image(PD.CurToken.lexed_token.srcpos_line) &
            " Column: " & HD.Source_Column'Image(
            PD.CurToken.lexed_token.srcpos_column));
    when PO.File_Error =>
        TEXT_IO.PUT_LINE(ITEM => "Error opening file " & Output_File &
            " for output.");

    -- Handle others in driver.
    when others =>
        raise;
end Pretty_Print;

---------------------------------------------------------------------
--::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
--PTBLS.BDY
--::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

package body ParseTables is
----------------------------------------------------------------------
-- The rest of the constants used to  the Parse Tables
----------------------------------------------------------------------

    DefaultValue : constant := 1 ; -- default for aggregates.

    ActionTableOneLength : constant GC.ParserInteger :=
          8544  ;
        --| Length (number of entries) in map ActionTableOne.
    subtype ActionTableOneRange is GC.ParserInteger
            range 1..ActionTableOneLength;

    ActionTableTwoLength : constant GC.ParserInteger :=
          8544  ;
        --| Length (number of entries) in map ActionTableTwo.
    subtype ActionTableTwoRange is GC.ParserInteger
            range 1..ActionTableTwoLength;

    DefaultMapLength : constant GC.ParserInteger :=
           996  ;
        --| Length (number of entries) in map Defaults.
    subtype DefaultMapRange is GC.ParserInteger range 1..DefaultMapLength;

    FollowMapLength : constant GC.ParserInteger :=
           267  ;
        --| Length (number of entries) in the FollowMap.

    GrammarSymbolCountPlusOne : constant GC.ParserInteger :=
           364  ;
        --| Number of symbols plus one in the parse tables.
        -- NYU Reference Name: NUM_INPUTS

    ActionTableSize : constant GC.ParserInteger :=
          5711  ;
        --| Maximum entry in Action Tables referenced by hash
        --| function. Entries above TableSize are collision chains.
        -- NYU Reference Name: TABLE_SIZE

    ------------------------------------------------------------------
    -- Tables generated by Parse Tables Generator
    ------------------------------------------------------------------

    subtype GrammarSymbolRepRangePlusZero is
        GrammarSymbolRepRangePlusZeroCommon;

    GrammarSymbolTableIndex : constant
        array (GrammarSymbolRange'first .. GrammarSymbolRange'last * 2)
        of GC.ParserInteger :=
         (    1,    0,    1,    5,    6,    8,    9,   14,   15,   20
,   21,   23,   24,   26,   27,   31,   32,   33,   34,   38
,   39,   42,   43,   46,   47,   54,   55,   61,   62,   66
,   67,   71,   72,   77,   78,   79,   80,   83,   84,   88
,   89,   91,   92,   96,   97,  105,  106,  109,  110,  112
,  113,  120,  121,  127,  128,  131,  132,  133,  134,  135
,  136,  137,  138,  144,  145,  148,  149,  151,  152,  154
,  155,  157,  158,  161,  162,  163,  164,  165,  166,  171
,  172,  174,  175,  181,  182,  187,  188,  194,  195,  203
,  204,  208,  209,  213,  214,  219,  220,  222,  223,  229
,  230,  235,  236,  242,  243,  248,  249,  256,  257,  263
,  264,  267,  268,  276,  277,  280,  281,  284,  285,  287
,  288,  291,  292,  296,  297,  300,  301,  303,  304,  313
,  314,  328,  329,  342,  343,  359,  360,  360,  361,  361
,  362,  362,  363,  363,  364,  364,  365,  365,  366,  366
,  367,  367,  368,  368,  369,  369,  370,  370,  371,  371
,  372,  372,  373,  373,  374,  374,  375,  377,  378,  379
,  380,  381,  382,  383,  384,  385,  386,  387,  388,  389
,  390,  391,  392,  393,  394,  395,  396,  397,  398,  412
,  413,  416,  417,  420,  421,  431,  432,  461,  462,  467
,  468,  483,  484,  500,  501,  519,  520,  541,  542,  560
,  561,  578,  579,  599,  600,  620,  621,  640,  641,  658
,  659,  681,  682,  699,  700,  720,  721,  746,  747,  761
,  762,  779,  780,  793,  794,  821,  822,  831,  832,  844
,  845,  865,  866,  892,  893,  916,  917,  931,  932,  941
,  942,  967,  968,  996,  997, 1007, 1008, 1034, 1035, 1057
, 1058, 1077, 1078, 1098, 1099, 1120, 1121, 1142, 1143, 1165
, 1166, 1174, 1175, 1184, 1185, 1206, 1207, 1222, 1223, 1247
, 1248, 1269, 1270, 1286, 1287, 1319, 1320, 1355, 1356, 1374
, 1375, 1402, 1403, 1420, 1421, 1445, 1446, 1475, 1476, 1499
, 1500, 1526, 1527, 1542, 1543, 1546, 1547, 1560, 1561, 1577
, 1578, 1582, 1583, 1602, 1603, 1617, 1618, 1631, 1632, 1644
, 1645, 1667, 1668, 1688, 1689, 1709, 1710, 1733, 1734, 1745
, 1746, 1759, 1760, 1779, 1780, 1815, 1816, 1858, 1859, 1865
, 1866, 1889, 1890, 1895, 1896, 1919, 1920, 1935, 1936, 1939
, 1940, 1963, 1964, 1985, 1986, 2006, 2007, 2016, 2017, 2038
, 2039, 2049, 2050, 2058, 2059, 2073, 2074, 2085, 2086, 2094
, 2095, 2111, 2112, 2129, 2130, 2138, 2139, 2146, 2147, 2166
, 2167, 2188, 2189, 2197, 2198, 2231, 2232, 2252, 2253, 2279
, 2280, 2309, 2310, 2327, 2328, 2356, 2357, 2391, 2392, 2429
, 2430, 2437, 2438, 2460, 2461, 2482, 2483, 2505, 2506, 2534
, 2535, 2562, 2563, 2602, 2603, 2609, 2610, 2666, 2667, 2702
, 2703, 2706, 2707, 2713, 2714, 2747, 2748, 2753, 2754, 2783
, 2784, 2807, 2808, 2816, 2817, 2836, 2837, 2855, 2856, 2877
, 2878, 2898, 2899, 2918, 2919, 2941, 2942, 2954, 2955, 2966
, 2967, 2975, 2976, 2986, 2987, 3008, 3009, 3024, 3025, 3042
, 3043, 3050, 3051, 3070, 3071, 3084, 3085, 3100, 3101, 3114
, 3115, 3129, 3130, 3144, 3145, 3159, 3160, 3173, 3174, 3187
, 3188, 3199, 3200, 3213, 3214, 3227, 3228, 3242, 3243, 3258
, 3259, 3274, 3275, 3279, 3280, 3318, 3319, 3366, 3367, 3396
, 3397, 3405, 3406, 3425, 3426, 3495, 3496, 3522, 3523, 3548
, 3549, 3564, 3565, 3582, 3583, 3595, 3596, 3607, 3608, 3621
, 3622, 3636, 3637, 3669, 3670, 3683, 3684, 3701, 3702, 3737
, 3738, 3756, 3757, 3772, 3773, 3796, 3797, 3812, 3813, 3835
, 3836, 3861, 3862, 3871, 3872, 3875, 3876, 3897, 3898, 3925
, 3926, 3941, 3942, 3962, 3963, 3991, 3992, 4016, 4017, 4032
, 4033, 4067, 4068, 4083, 4084, 4109, 4110, 4153, 4154, 4185
, 4186, 4217, 4218, 4248, 4249, 4265, 4266, 4292, 4293, 4349
, 4350, 4363, 4364, 4385, 4386, 4401, 4402, 4416, 4417, 4434
, 4435, 4458, 4459, 4505, 4506, 4531, 4532, 4549, 4550, 4566
, 4567, 4587, 4588, 4611, 4612, 4623, 4624, 4663, 4664, 4676
, 4677, 4687, 4688, 4719, 4720, 4726, 4727, 4744, 4745, 4757
, 4758, 4773, 4774, 4787, 4788, 4812, 4813, 4819, 4820, 4844
, 4845, 4862, 4863, 4873, 4874, 4902, 4903, 4949, 4950, 4966
, 4967, 4982, 4983, 5001, 5002, 5017, 5018, 5048, 5049, 5077
, 5078, 5100, 5101, 5118, 5119, 5137, 5138, 5159, 5160, 5183
, 5184, 5235, 5236, 5259, 5260, 5283, 5284, 5296, 5297, 5329
, 5330, 5343, 5344, 5371, 5372, 5390, 5391, 5406, 5407, 5422
, 5423, 5438, 5439, 5450, 5451, 5464, 5465, 5473, 5474, 5482
, 5483, 5536, 5537, 5561, 5562, 5574, 5575, 5587, 5588, 5602
, 5603, 5624, 5625, 5652, 5653, 5674, 5675, 5685, 5686, 5704
, 5705, 5727, 5728, 5758, 5759, 5773, 5774, 5792, 5793, 5810
, 5811, 5829, 5830, 5860, 5861, 5886)  ;

    GrammarSymbolTable : constant String :=
         ('A','B','O','R','T','A','B','S','A','C'
,'C','E','P','T','A','C','C','E','S','S'
,'A','L','L','A','N','D','A','R','R','A'
,'Y','A','T','B','E','G','I','N','B','O'
,'D','Y','C','A','S','E','C','O','N','S'
,'T','A','N','T','D','E','C','L','A','R'
,'E','D','E','L','A','Y','D','E','L','T'
,'A','D','I','G','I','T','S','D','O','E'
,'L','S','E','E','L','S','I','F','E','N'
,'D','E','N','T','R','Y','E','X','C','E'
,'P','T','I','O','N','E','X','I','T','F'
,'O','R','F','U','N','C','T','I','O','N'
,'G','E','N','E','R','I','C','G','O','T'
,'O','I','F','I','N','I','S','L','I','M'
,'I','T','E','D','L','O','O','P','M','O'
,'D','N','E','W','N','O','T','N','U','L'
,'L','O','F','O','R','O','T','H','E','R'
,'S','O','U','T','P','A','C','K','A','G'
,'E','P','R','A','G','M','A','P','R','I'
,'V','A','T','E','P','R','O','C','E','D'
,'U','R','E','R','A','I','S','E','R','A'
,'N','G','E','R','E','C','O','R','D','R'
,'E','M','R','E','N','A','M','E','S','R'
,'E','T','U','R','N','R','E','V','E','R'
,'S','E','S','E','L','E','C','T','S','E'
,'P','A','R','A','T','E','S','U','B','T'
,'Y','P','E','T','A','S','K','T','E','R'
,'M','I','N','A','T','E','T','H','E','N'
,'T','Y','P','E','U','S','E','W','H','E'
,'N','W','H','I','L','E','W','I','T','H'
,'X','O','R','i','d','e','n','t','i','f'
,'i','e','r','n','u','m','e','r','i','c'
,'_','l','i','t','e','r','a','l','s','t'
,'r','i','n','g','_','l','i','t','e','r'
,'a','l','c','h','a','r','a','c','t','e'
,'r','_','l','i','t','e','r','a','l','&'
,''','(',')','*','+',',','-','.','/',':'
,';','<','=','>',''','|',''','=','>','.'
,'.','*','*',':','=','/','=','>','=','<'
,'=','<','<','>','>','<','>','c','o','m'
,'m','e','n','t','_','l','i','t','e','r'
,'a','l','$','E','O','F','$','A','C','C'
,'c','o','m','p','i','l','a','t','i','o'
,'n','g','e','n','e','r','a','l','_','c'
,'o','m','p','o','n','e','n','t','_','a'
,'s','s','o','c','i','a','t','i','o','n'
,'s','p','r','a','g','m','a','t','y','p'
,'e','_','d','e','c','l','a','r','a','t'
,'i','o','n','b','a','s','i','c','_','d'
,'e','c','l','a','r','a','t','i','o','n'
,'s','u','b','t','y','p','e','_','d','e'
,'c','l','a','r','a','t','i','o','n','s'
,'u','b','p','r','o','g','r','a','m','_'
,'d','e','c','l','a','r','a','t','i','o'
,'n','p','a','c','k','a','g','e','_','d'
,'e','c','l','a','r','a','t','i','o','n'
,'t','a','s','k','_','s','p','e','c','i'
,'f','i','c','a','t','i','o','n','g','e'
,'n','e','r','i','c','_','s','p','e','c'
,'i','f','i','c','a','t','i','o','n','g'
,'e','n','e','r','i','c','_','i','n','s'
,'t','a','n','t','i','a','t','i','o','n'
,'r','e','n','a','m','i','n','g','_','d'
,'e','c','l','a','r','a','t','i','o','n'
,'o','b','j','e','c','t','_','d','e','c'
,'l','a','r','a','t','i','o','n','b','a'
,'s','i','c','_','c','o','l','o','n','_'
,'d','e','c','l','a','r','a','t','i','o'
,'n','n','u','m','b','e','r','_','d','e'
,'c','l','a','r','a','t','i','o','n','e'
,'x','c','e','p','t','i','o','n','_','d'
,'e','c','l','a','r','a','t','i','o','n'
,'r','e','n','a','m','i','n','g','_','c'
,'o','l','o','n','_','d','e','c','l','a'
,'r','a','t','i','o','n','i','d','e','n'
,'t','i','f','i','e','r','_','l','i','s'
,'t','s','u','b','t','y','p','e','_','i'
,'n','d','i','c','a','t','i','o','n','['
,':','=','e','x','p','r','e','s','s','i'
,'o','n',']','c','o','n','s','t','r','a'
,'i','n','e','d','_','a','r','r','a','y'
,'_','d','e','f','i','n','i','t','i','o'
,'n','e','x','p','r','e','s','s','i','o'
,'n','{',',','i','d','e','n','t','i','f'
,'i','e','r','}','f','u','l','l','_','t'
,'y','p','e','_','d','e','c','l','a','r'
,'a','t','i','o','n','i','n','c','o','m'
,'p','l','e','t','e','_','t','y','p','e'
,'_','d','e','c','l','a','r','a','t','i'
,'o','n','p','r','i','v','a','t','e','_'
,'t','y','p','e','_','d','e','c','l','a'
,'r','a','t','i','o','n','t','y','p','e'
,'_','d','e','f','i','n','i','t','i','o'
,'n','l','e','f','t','_','p','a','r','e'
,'n','d','i','s','c','r','i','m','i','n'
,'a','n','t','_','s','p','e','c','i','f'
,'i','c','a','t','i','o','n','{',';','d'
,'i','s','c','r','i','m','i','n','a','n'
,'t','_','s','p','e','c','i','f','i','c'
,'a','t','i','o','n','}','r','i','g','h'
,'t','_','p','a','r','e','n','e','n','u'
,'m','e','r','a','t','i','o','n','_','t'
,'y','p','e','_','d','e','f','i','n','i'
,'t','i','o','n','i','n','t','e','g','e'
,'r','_','t','y','p','e','_','d','e','f'
,'i','n','i','t','i','o','n','r','e','a'
,'l','_','t','y','p','e','_','d','e','f'
,'i','n','i','t','i','o','n','a','r','r'
,'a','y','_','t','y','p','e','_','d','e'
,'f','i','n','i','t','i','o','n','r','e'
,'c','o','r','d','_','t','y','p','e','_'
,'d','e','f','i','n','i','t','i','o','n'
,'a','c','c','e','s','s','_','t','y','p'
,'e','_','d','e','f','i','n','i','t','i'
,'o','n','d','e','r','i','v','e','d','_'
,'t','y','p','e','_','d','e','f','i','n'
,'i','t','i','o','n','t','y','p','e','_'
,'m','a','r','k','c','o','n','s','t','r'
,'a','i','n','t','t','y','p','e','_','n'
,'a','m','e','|','s','u','b','t','y','p'
,'e','_','n','a','m','e','r','a','n','g'
,'e','_','c','o','n','s','t','r','a','i'
,'n','t','f','l','o','a','t','i','n','g'
,'_','p','o','i','n','t','_','c','o','n'
,'s','t','r','a','i','n','t','f','i','x'
,'e','d','_','p','o','i','n','t','_','c'
,'o','n','s','t','r','a','i','n','t','s'
,'i','m','p','l','e','_','e','x','p','r'
,'e','s','s','i','o','n','e','n','u','m'
,'e','r','a','t','i','o','n','_','l','i'
,'t','e','r','a','l','_','s','p','e','c'
,'i','f','i','c','a','t','i','o','n','{'
,',','e','n','u','m','e','r','a','t','i'
,'o','n','_','l','i','t','e','r','a','l'
,'_','s','p','e','c','i','f','i','c','a'
,'t','i','o','n','}','e','n','u','m','e'
,'r','a','t','i','o','n','_','l','i','t'
,'e','r','a','l','f','l','o','a','t','i'
,'n','g','_','a','c','c','u','r','a','c'
,'y','_','d','e','f','i','n','i','t','i'
,'o','n','[','r','a','n','g','e','_','c'
,'o','n','s','t','r','a','i','n','t',']'
,'f','i','x','e','d','_','a','c','c','u'
,'r','a','c','y','_','d','e','f','i','n'
,'i','t','i','o','n','u','n','c','o','n'
,'s','t','r','a','i','n','e','d','_','a'
,'r','r','a','y','_','d','e','f','i','n'
,'i','t','i','o','n','i','n','d','e','x'
,'_','s','u','b','t','y','p','e','_','d'
,'e','f','i','n','i','t','i','o','n','{'
,',','i','n','d','e','x','_','s','u','b'
,'t','y','p','e','_','d','e','f','i','n'
,'i','t','i','o','n','}','i','n','d','e'
,'x','_','c','o','n','s','t','r','a','i'
,'n','t','n','a','m','e','d','i','s','c'
,'r','e','t','e','_','r','a','n','g','e'
,'{',',','d','i','s','c','r','e','t','e'
,'_','r','a','n','g','e','}','r','a','n'
,'g','e','s','t','a','r','t','_','o','f'
,'_','r','e','c','o','r','d','_','t','y'
,'p','e','r','e','c','o','r','d','_','t'
,'e','r','m','i','n','a','l','c','o','m'
,'p','o','n','e','n','t','_','l','i','s'
,'t','{','p','r','a','g','m','a','_','d'
,'e','c','l','}','{','c','o','m','p','o'
,'n','e','n','t','_','d','e','c','l','a'
,'r','a','t','i','o','n','}','c','o','m'
,'p','o','n','e','n','t','_','d','e','c'
,'l','a','r','a','t','i','o','n','c','l'
,'o','s','i','n','g','_','{','p','r','a'
,'g','m','a','_','d','e','c','l','}','{'
,'c','o','m','p','o','n','e','n','t','_'
,'d','e','c','l','a','r','a','t','i','o'
,'n','}',''','v','a','r','i','a','n','t'
,'_','p','a','r','t','n','u','l','l','_'
,'s','t','a','t','e','m','e','n','t','C'
,'A','S','E','_','_','i','d','e','n','t'
,'i','f','i','e','r','_','_','I','S','{'
,'p','r','a','g','m','a','_','v','a','r'
,'i','a','n','t','}','_','_','v','a','r'
,'i','a','n','t','_','_','{','v','a','r'
,'i','a','n','t','}','W','H','E','N','_'
,'_','v','a','r','i','a','n','t','_','c'
,'h','o','i','c','e','_','_','{','|','v'
,'a','r','i','a','n','t','_','c','h','o'
,'i','c','e','}','_','_','=','>','v','a'
,'r','i','a','n','t','W','H','E','N','_'
,'_','v','a','r','i','a','n','t','_','O'
,'T','H','E','R','S','_','_','=','>','c'
,'h','o','i','c','e','{','b','a','s','i'
,'c','_','d','e','c','l','a','r','a','t'
,'i','v','e','_','i','t','e','m','}','d'
,'e','c','l','a','r','a','t','i','v','e'
,'_','p','a','r','t','b','o','d','y','{'
,'l','a','t','e','r','_','d','e','c','l'
,'a','r','a','t','i','v','e','_','i','t'
,'e','m','}','b','a','s','i','c','_','d'
,'e','c','l','a','r','a','t','i','v','e'
,'_','i','t','e','m','r','e','p','r','e'
,'s','e','n','t','a','t','i','o','n','_'
,'c','l','a','u','s','e','u','s','e','_'
,'c','l','a','u','s','e','l','a','t','e'
,'r','_','d','e','c','l','a','r','a','t'
,'i','v','e','_','i','t','e','m','p','r'
,'o','p','e','r','_','b','o','d','y','b'
,'o','d','y','_','s','t','u','b','s','u'
,'b','p','r','o','g','r','a','m','_','b'
,'o','d','y','p','a','c','k','a','g','e'
,'_','b','o','d','y','t','a','s','k','_'
,'b','o','d','y','i','n','d','e','x','e'
,'d','_','c','o','m','p','o','n','e','n'
,'t','s','e','l','e','c','t','e','d','_'
,'c','o','m','p','o','n','e','n','t','a'
,'t','t','r','i','b','u','t','e','s','e'
,'l','e','c','t','o','r','a','t','t','r'
,'i','b','u','t','e','_','d','e','s','i'
,'g','n','a','t','o','r','c','o','m','p'
,'o','n','e','n','t','_','a','s','s','o'
,'c','i','a','t','i','o','n','s','a','g'
,'g','r','e','g','a','t','e','e','x','p'
,'r','e','s','s','i','o','n',',','e','x'
,'p','r','e','s','s','i','o','n','{',','
,'e','x','p','r','e','s','s','i','o','n'
,'}','[',',','o','t','h','e','r','s','='
,'>','e','x','p','r','e','s','s','i','o'
,'n',']','c','h','o','i','c','e','{','|'
,'c','h','o','i','c','e','}','=','>','e'
,'x','p','r','e','s','s','i','o','n','{'
,',','c','h','o','i','c','e','{','|','c'
,'h','o','i','c','e','}','=','>','e','x'
,'p','r','e','s','s','i','o','n','}','o'
,'t','h','e','r','s','=','>','e','x','p'
,'r','e','s','s','i','o','n','g','a','_'
,'e','x','p','r','e','s','s','i','o','n'
,'{',',','g','a','_','e','x','p','r','e'
,'s','s','i','o','n','}','i','d','e','n'
,'t','i','f','i','e','r','{','|','i','d'
,'e','n','t','i','f','i','e','r','}','='
,'>','e','x','p','r','e','s','s','i','o'
,'n','{',',','i','d','e','n','t','i','f'
,'i','e','r','{','|','i','d','e','n','t'
,'i','f','i','e','r','}','=','>','e','x'
,'p','r','e','s','s','i','o','n','}','r'
,'e','l','a','t','i','o','n','r','e','l'
,'a','t','i','o','n','{','A','N','D','_'
,'_','r','e','l','a','t','i','o','n','}'
,'r','e','l','a','t','i','o','n','{','O'
,'R','_','_','r','e','l','a','t','i','o'
,'n','}','r','e','l','a','t','i','o','n'
,'{','X','O','R','_','_','r','e','l','a'
,'t','i','o','n','}','r','e','l','a','t'
,'i','o','n','{','A','N','D','_','_','T'
,'H','E','N','_','_','r','e','l','a','t'
,'i','o','n','}','r','e','l','a','t','i'
,'o','n','{','O','R','_','_','E','L','S'
,'E','_','_','r','e','l','a','t','i','o'
,'n','}','[','r','e','l','a','t','i','o'
,'n','a','l','_','o','p','e','r','a','t'
,'o','r','_','_','s','i','m','p','l','e'
,'_','e','x','p','r','e','s','s','i','o'
,'n',']','[','N','O','T',']','I','N','['
,'u','n','a','r','y','_','a','d','d','i'
,'n','g','_','o','p','e','r','a','t','o'
,'r',']','t','e','r','m','{','b','i','n'
,'a','r','y','_','a','d','d','i','n','g'
,'_','o','p','e','r','a','t','o','r','_'
,'_','t','e','r','m','}','f','a','c','t'
,'o','r','{','m','u','l','t','i','p','l'
,'y','i','n','g','_','o','p','e','r','a'
,'t','o','r','_','_','f','a','c','t','o'
,'r','}','t','e','r','m','p','r','i','m'
,'a','r','y','[','e','x','p','o','n','e'
,'n','t','i','a','t','i','n','g','_','o'
,'p','e','r','a','t','o','r','_','_','p'
,'r','i','m','a','r','y',']','f','a','c'
,'t','o','r','h','i','g','h','_','p','r'
,'e','c','e','d','e','n','c','e','_','u'
,'n','a','r','y','_','o','p','e','r','a'
,'t','o','r','p','a','r','e','n','t','h'
,'e','s','i','z','e','d','_','e','x','p'
,'r','e','s','s','i','o','n','a','l','l'
,'o','c','a','t','o','r','q','u','a','l'
,'i','f','i','e','d','_','e','x','p','r'
,'e','s','s','i','o','n','r','e','l','a'
,'t','i','o','n','a','l','_','o','p','e'
,'r','a','t','o','r','b','i','n','a','r'
,'y','_','a','d','d','i','n','g','_','o'
,'p','e','r','a','t','o','r','u','n','a'
,'r','y','_','a','d','d','i','n','g','_'
,'o','p','e','r','a','t','o','r','m','u'
,'l','t','i','p','l','y','i','n','g','_'
,'o','p','e','r','a','t','o','r','e','x'
,'p','o','n','e','n','t','i','a','t','i'
,'n','g','_','o','p','e','r','a','t','o'
,'r','e','x','p','a','n','d','e','d','_'
,'n','a','m','e','{','p','r','a','g','m'
,'a','_','s','t','m','}','s','t','a','t'
,'e','m','e','n','t','{','s','t','a','t'
,'e','m','e','n','t','}','s','e','q','u'
,'e','n','c','e','_','o','f','_','s','t'
,'a','t','e','m','e','n','t','s','s','i'
,'m','p','l','e','_','s','t','a','t','e'
,'m','e','n','t','c','o','m','p','o','u'
,'n','d','_','s','t','a','t','e','m','e'
,'n','t','{','l','a','b','e','l','}','+'
,'a','s','s','i','g','n','m','e','n','t'
,'_','s','t','a','t','e','m','e','n','t'
,'e','x','i','t','_','s','t','a','t','e'
,'m','e','n','t','r','e','t','u','r','n'
,'_','s','t','a','t','e','m','e','n','t'
,'g','o','t','o','_','s','t','a','t','e'
,'m','e','n','t','d','e','l','a','y','_'
,'s','t','a','t','e','m','e','n','t','a'
,'b','o','r','t','_','s','t','a','t','e'
,'m','e','n','t','r','a','i','s','e','_'
,'s','t','a','t','e','m','e','n','t','c'
,'o','d','e','_','s','t','a','t','e','m'
,'e','n','t','c','a','l','l','_','s','t'
,'a','t','e','m','e','n','t','i','f','_'
,'s','t','a','t','e','m','e','n','t','c'
,'a','s','e','_','s','t','a','t','e','m'
,'e','n','t','l','o','o','p','_','s','t'
,'a','t','e','m','e','n','t','b','l','o'
,'c','k','_','s','t','a','t','e','m','e'
,'n','t','a','c','c','e','p','t','_','s'
,'t','a','t','e','m','e','n','t','s','e'
,'l','e','c','t','_','s','t','a','t','e'
,'m','e','n','t','l','a','b','e','l','c'
,'o','n','d','i','t','i','o','n','_','_'
,'T','H','E','N','_','_','s','e','q','u'
,'e','n','c','e','_','o','f','_','s','t'
,'a','t','e','m','e','n','t','s','{','E'
,'L','S','I','F','_','_','c','o','n','d'
,'i','t','i','o','n','_','_','T','H','E'
,'N','_','_','s','e','q','u','e','n','c'
,'e','_','o','f','_','s','t','a','t','e'
,'m','e','n','t','s','}','[','E','L','S'
,'E','_','_','s','e','q','u','e','n','c'
,'e','_','o','f','_','s','t','a','t','e'
,'m','e','n','t','s',']','c','o','n','d'
,'i','t','i','o','n','C','A','S','E','_'
,'_','e','x','p','r','e','s','s','i','o'
,'n','_','_','I','S','{','p','r','a','g'
,'m','a','_','a','l','t','}','_','_','c'
,'a','s','e','_','s','t','a','t','e','m'
,'e','n','t','_','a','l','t','e','r','n'
,'a','t','i','v','e','_','_','{','c','a'
,'s','e','_','s','t','a','t','e','m','e'
,'n','t','_','a','l','t','e','r','n','a'
,'t','i','v','e','}','W','H','E','N','_'
,'_','c','h','o','i','c','e','_','_','{'
,'|','c','h','o','i','c','e','}','_','_'
,'=','>','c','a','s','e','_','s','t','a'
,'t','e','m','e','n','t','_','a','l','t'
,'e','r','n','a','t','i','v','e','W','H'
,'E','N','_','_','O','T','H','E','R','S'
,'_','_','=','>','[','l','o','o','p','_'
,'i','d','e','n','t','i','f','i','e','r'
,':',']','l','o','o','p','_','t','e','r'
,'m','i','n','a','l','[','i','d','e','n'
,'t','i','f','i','e','r',']','i','t','e'
,'r','a','t','i','o','n','_','r','u','l'
,'e','b','e','g','i','n','_','e','n','d'
,'_','b','l','o','c','k','d','e','c','l'
,'a','r','a','t','i','v','e','_','p','a'
,'r','t','_','_','b','e','g','i','n','_'
,'e','n','d','_','b','l','o','c','k','b'
,'e','g','i','n','_','t','e','r','m','i'
,'n','a','l','e','x','c','e','p','t','i'
,'o','n','_','t','e','r','m','i','n','a'
,'l','{','p','r','a','g','m','a','_','a'
,'l','t','}','_','_','e','x','c','e','p'
,'t','i','o','n','_','h','a','n','d','l'
,'e','r','_','l','i','s','t','[','b','l'
,'o','c','k','_','i','d','e','n','t','i'
,'f','i','e','r',':',']','d','e','c','l'
,'a','r','e','_','t','e','r','m','i','n'
,'a','l','s','u','b','p','r','o','g','r'
,'a','m','_','s','p','e','c','i','f','i'
,'c','a','t','i','o','n','s','t','a','r'
,'t','_','i','d','e','n','t','i','f','i'
,'e','r','p','a','r','a','m','e','t','e'
,'r','_','s','p','e','c','i','f','i','c'
,'a','t','i','o','n','{',';','p','a','r'
,'a','m','e','t','e','r','_','s','p','e'
,'c','i','f','i','c','a','t','i','o','n'
,'}','d','e','s','i','g','n','a','t','o'
,'r','m','o','d','e','g','e','n','e','r'
,'i','c','_','p','a','r','a','m','e','t'
,'e','r','_','m','o','d','e','s','u','b'
,'p','r','o','g','r','a','m','_','s','p'
,'e','c','i','f','i','c','a','t','i','o'
,'n','_','_','I','S','[','e','n','d','_'
,'d','e','s','i','g','n','a','t','o','r'
,']','p','a','c','k','a','g','e','_','s'
,'p','e','c','i','f','i','c','a','t','i'
,'o','n','P','A','C','K','A','G','E','_'
,'_','s','t','a','r','t','_','i','d','e'
,'n','t','i','f','i','e','r','_','_','I'
,'S','{','b','a','s','i','c','_','d','e'
,'c','l','a','r','a','t','i','v','e','_'
,'i','t','e','m','}',''','p','r','i','v'
,'a','t','e','_','t','e','r','m','i','n'
,'a','l','P','A','C','K','A','G','E','_'
,'_','B','O','D','Y','_','_','s','t','a'
,'r','t','_','i','d','e','n','t','i','f'
,'i','e','r','_','_','I','S','{',',','e'
,'x','p','a','n','d','e','d','_','n','a'
,'m','e','}','T','A','S','K','_','_','s'
,'t','a','r','t','_','i','d','e','n','t'
,'i','f','i','e','r','_','_','I','S','{'
,'e','n','t','r','y','_','d','e','c','l'
,'a','r','a','t','i','o','n','}','_','_'
,'{','r','e','p','r','e','s','e','n','t'
,'a','t','i','o','n','_','c','l','a','u'
,'s','e','}','T','A','S','K','_','_','T'
,'Y','P','E','_','_','s','t','a','r','t'
,'_','i','d','e','n','t','i','f','i','e'
,'r','_','_','I','S','T','A','S','K','_'
,'_','B','O','D','Y','_','_','s','t','a'
,'r','t','_','i','d','e','n','t','i','f'
,'i','e','r','_','_','I','S','[','(','d'
,'i','s','c','r','e','t','e','_','r','a'
,'n','g','e',')',']','[','f','o','r','m'
,'a','l','_','p','a','r','t',']','e','n'
,'t','r','y','_','d','e','c','l','a','r'
,'a','t','i','o','n','[','(','e','x','p'
,'r','e','s','s','i','o','n',')',']','['
,'f','o','r','m','a','l','_','p','a','r'
,'t',']','A','C','C','E','P','T','_','_'
,'s','t','a','r','t','_','i','d','e','n'
,'t','i','f','i','e','r','_','_','[','('
,'e','x','p','r','e','s','s','i','o','n'
,')',']','[','f','o','r','m','a','l','_'
,'p','a','r','t',']','_','_','D','O','s'
,'e','l','e','c','t','i','v','e','_','w'
,'a','i','t','c','o','n','d','i','t','i'
,'o','n','a','l','_','e','n','t','r','y'
,'_','c','a','l','l','t','i','m','e','d'
,'_','e','n','t','r','y','_','c','a','l'
,'l','s','e','l','e','c','t','_','t','e'
,'r','m','i','n','a','l','s','e','l','e'
,'c','t','_','a','l','t','e','r','n','a'
,'t','i','v','e','{','O','R','_','_','s'
,'e','l','e','c','t','_','a','l','t','e'
,'r','n','a','t','i','v','e','}','W','H'
,'E','N','_','_','c','o','n','d','i','t'
,'i','o','n','_','_','=','>','_','_','s'
,'e','l','e','c','t','i','v','e','_','w'
,'a','i','t','_','a','l','t','e','r','n'
,'a','t','i','v','e','s','e','l','e','c'
,'t','i','v','e','_','w','a','i','t','_'
,'a','l','t','e','r','n','a','t','i','v'
,'e','a','c','c','e','p','t','_','a','l'
,'t','e','r','n','a','t','i','v','e','d'
,'e','l','a','y','_','a','l','t','e','r'
,'n','a','t','i','v','e','t','e','r','m'
,'i','n','a','t','e','_','a','l','t','e'
,'r','n','a','t','i','v','e','[','s','e'
,'q','u','e','n','c','e','_','o','f','_'
,'s','t','a','t','e','m','e','n','t','s'
,']','T','E','R','M','I','N','A','T','E'
,'_','_',';','c','a','l','l','_','s','t'
,'a','t','e','m','e','n','t','_','_','['
,'s','e','q','u','e','n','c','e','_','o'
,'f','_','s','t','a','t','e','m','e','n'
,'t','s',']','e','l','s','e','_','t','e'
,'r','m','i','n','a','l','o','r','_','t'
,'e','r','m','i','n','a','l','d','e','l'
,'a','y','_','a','l','t','e','r','n','a'
,'t','i','v','e','_','i','n','_','t','i'
,'m','e','d','_','e','n','t','r','y','{'
,',','n','a','m','e','}','{','c','o','m'
,'p','i','l','a','t','i','o','n','_','u'
,'n','i','t','}','p','r','a','g','m','a'
,'_','h','e','a','d','e','r','c','o','m'
,'p','i','l','a','t','i','o','n','_','u'
,'n','i','t','c','o','n','t','e','x','t'
,'_','c','l','a','u','s','e','l','i','b'
,'r','a','r','y','_','o','r','_','s','e'
,'c','o','n','d','a','r','y','_','u','n'
,'i','t','s','u','b','u','n','i','t','{'
,'w','i','t','h','_','c','l','a','u','s'
,'e','{','u','s','e','_','c','l','a','u'
,'s','e','}','}','{',',','u','s','e','d'
,'_','i','d','e','n','t','i','f','i','e'
,'r','}','w','i','t','h','_','c','l','a'
,'u','s','e','S','E','P','A','R','A','T'
,'E','_','_','(','_','_','e','x','p','a'
,'n','d','e','d','_','n','a','m','e','_'
,'_',')','W','H','E','N','_','_','e','x'
,'c','e','p','t','i','o','n','_','c','h'
,'o','i','c','e','_','_','{','|','e','x'
,'c','e','p','t','i','o','n','_','c','h'
,'o','i','c','e','}','_','_','=','>','e'
,'x','c','e','p','t','i','o','n','_','h'
,'a','n','d','l','e','r','e','x','c','e'
,'p','t','i','o','n','_','c','h','o','i'
,'c','e','g','e','n','e','r','i','c','_'
,'f','o','r','m','a','l','_','p','a','r'
,'t','g','e','n','e','r','i','c','_','t'
,'e','r','m','i','n','a','l','{','g','e'
,'n','e','r','i','c','_','p','a','r','a'
,'m','e','t','e','r','_','d','e','c','l'
,'a','r','a','t','i','o','n','}','g','e'
,'n','e','r','i','c','_','p','a','r','a'
,'m','e','t','e','r','_','d','e','c','l'
,'a','r','a','t','i','o','n','g','e','n'
,'e','r','i','c','_','t','y','p','e','_'
,'d','e','f','i','n','i','t','i','o','n'
,'[','I','S','_','_','n','a','m','e','_'
,'_','o','r','_','_','<','>',']','g','e'
,'n','e','r','i','c','_','a','s','s','o'
,'c','i','a','t','i','o','n','{',',','g'
,'e','n','e','r','i','c','_','a','s','s'
,'o','c','i','a','t','i','o','n','}','F'
,'U','N','C','T','I','O','N','_','_','d'
,'e','s','i','g','n','a','t','o','r','_'
,'_','I','S','[','g','e','n','e','r','i'
,'c','_','f','o','r','m','a','l','_','p'
,'a','r','a','m','e','t','e','r','=','>'
,']','g','e','n','e','r','i','c','_','a'
,'c','t','u','a','l','_','p','a','r','a'
,'m','e','t','e','r','g','e','n','e','r'
,'i','c','_','f','o','r','m','a','l','_'
,'p','a','r','a','m','e','t','e','r','g'
,'e','n','e','r','i','c','_','a','c','t'
,'u','a','l','_','p','a','r','a','m','e'
,'t','e','r','l','e','n','g','t','h','_'
,'c','l','a','u','s','e','e','n','u','m'
,'e','r','a','t','i','o','n','_','r','e'
,'p','r','e','s','e','n','t','a','t','i'
,'o','n','_','c','l','a','u','s','e','a'
,'d','d','r','e','s','s','_','c','l','a'
,'u','s','e','r','e','c','o','r','d','_'
,'r','e','p','r','e','s','e','n','t','a'
,'t','i','o','n','_','c','l','a','u','s'
,'e','{','c','o','m','p','o','n','e','n'
,'t','_','c','l','a','u','s','e','}','''
,'a','l','i','g','n','m','e','n','t','_'
,'c','l','a','u','s','e','c','o','m','p'
,'o','n','e','n','t','_','c','l','a','u'
,'s','e','{','p','r','a','g','m','a','_'
,'v','a','r','i','a','n','t','}','{','p'
,'r','a','g','m','a','_','a','l','t','}'
,'d','i','s','c','r','i','m','i','n','a'
,'n','t','_',';','{','v','a','r','i','a'
,'n','t','}','{','|','c','h','o','i','c'
,'e','}','{','b','a','s','i','c','_','d'
,'e','c','l','a','r','a','t','i','v','e'
,'_','i','t','e','m','}','_','_','b','a'
,'s','i','c','_','d','e','c','l','a','r'
,'a','t','i','v','e','_','i','t','e','m'
,'|','E','M','P','T','Y','{','b','a','s'
,'i','c','_','c','o','l','o','n','_','d'
,'e','c','l','a','r','a','t','i','o','n'
,'}','g','a','_','e','x','p','r','e','s'
,'s','i','o','n','{','|','i','d','e','n'
,'t','i','f','i','e','r','}','c','o','n'
,'d','i','t','i','o','n','_','_','T','H'
,'E','N','E','L','S','I','F','_','_','c'
,'o','n','d','i','t','i','o','n','_','_'
,'T','H','E','N','{','c','a','s','e','_'
,'s','t','a','t','e','m','e','n','t','_'
,'a','l','t','e','r','n','a','t','i','v'
,'e','}','e','x','c','e','p','t','i','o'
,'n','_','h','a','n','d','l','e','r','_'
,'l','i','s','t','p','a','r','a','m','e'
,'t','e','r','_',';','{','e','n','t','r'
,'y','_','d','e','c','l','a','r','a','t'
,'i','o','n','}','{','r','e','p','r','e'
,'s','e','n','t','a','t','i','o','n','_'
,'c','l','a','u','s','e','}','o','p','t'
,'i','o','n','a','l','_','s','e','q','u'
,'e','n','c','e','_','o','f','_','s','t'
,'a','t','e','m','e','n','t','s','u','s'
,'e','_','c','l','a','u','s','e','_','l'
,'i','s','t','{','|','e','x','c','e','p'
,'t','i','o','n','_','c','h','o','i','c'
,'e','}','{','c','o','m','p','o','n','e'
,'n','t','_','c','l','a','u','s','e','}'
,'W','H','E','N','_','_','c','o','n','d'
,'i','t','i','o','n','_','_','=','>','s'
,'t','a','r','t','_','{','b','a','s','i'
,'c','_','c','o','l','o','n','_','d','e'
,'c','l','a','r','a','t','i','o','n','}'
,'{','b','a','s','i','c','_','c','o','l'
,'o','n','_','d','e','c','l','a','r','a'
,'t','i','o','n','}',''')  ;
        --| Table of symbols used in the grammar.
        -- NYU Reference Name: NO_SYM

    LeftHandSide :
         constant array (LeftHandSideRange)
         of GrammarSymbolRange :=
          (  100,  100,  102,  102,  102,  102,  102,  102,  102,  102
,  111,  111,  111,  111,  110,  110,  110,  110,  112,  115
,  101,  101,  101,  121,  121,  124,  124,  124,  124,  124
,  124,  124,  103,  116,  116,  136,  137,  137,  137,  137
,  135,  139,  139,  129,  143,  145,  145,  130,  131,  131
,  140,  146,  141,  148,  132,  132,  149,  118,  150,  152
,  154,  154,  156,  156,  133,  159,  159,  159,  162,  126
,  165,  170,  170,  172,  172,  172,  134,  122,  122,  174
,  174,  177,  177,  177,  180,  180,  180,  180,  180,  180
,  180,  175,  175,  181,  181,  181,  153,  153,  153,  153
,  153,  153,  186,  187,  187,  189,  189,  189,  188,  190
,  190,  190,  190,  192,  191,  191,  191,  191,  191,  191
,   99,   99,   99,  119,  119,  119,  119,  119,  119,  201
,  201,  142,  211,  214,  214,  216,  212,  212,  212,  212
,  212,  212,  212,  219,  219,  219,  219,  219,  219,  220
,  220,  220,  221,  221,  215,  215,  222,  222,  222,  222
,  223,  218,  218,  217,  217,  217,  217,  228,  226,  226
,  226,  226,  229,  229,  229,  229,  229,  229,  229,  229
,  229,  229,  230,  230,  230,  230,  230,  230,  247,  166
,  232,  241,  251,  242,  255,  255,  243,  243,  260,  260
,  260,  262,  261,  261,  244,  244,  233,  233,  233,  233
,  234,  234,  235,  104,  268,  268,  268,  268,  272,  272
,  270,  273,  273,  274,  274,  274,  183,  240,  105,  277
,  277,  184,  184,  123,  123,  123,  123,  179,  114,  114
,  109,  109,  106,  106,  106,  106,  185,  288,  245,  245
,  236,  246,  246,  246,  291,  295,  295,  298,  298,  298
,  299,  300,  301,  303,  292,  293,  237,   98,  310,  311
,  311,  311,  313,  313,  313,  313,  313,  313,  313,  312
,  317,  182,  182,  182,  314,  113,  320,  321,  321,  238
,  238,  107,  107,  322,  325,  325,  325,  325,  326,  326
,  326,  326,  326,  326,  326,  326,  108,  108,  108,  108
,  108,  108,  328,  332,  332,  333,  178,  178,  178,  178
,  334,  335,  337,  337,  340,  339,  336,  239,  160,  160
,  341,  341,  225,  225,  342,  342,  117,  117,  120,  120
,  138,  224,  224,  144,  144,  147,  147,  151,  151,  155
,  155,  161,  161,  127,  127,  344,  344,  345,  345,  173
,  173,  173,  176,  176,  193,  193,  195,  196,  196,  194
,  194,  197,  348,  348,  348,  198,  198,  199,  200,  200
,  349,  349,  202,  202,  203,  203,  204,  204,  205,  205
,  206,  206,  207,  207,  208,  208,  209,  209,  209,  210
,  210,  213,  213,  227,  227,  231,  231,  248,  249,  249
,  250,  250,  352,  352,  257,  257,  259,  259,  266,  266
,  265,  353,  353,  271,  271,  276,  276,  276,  282,  282
,  355,  355,  356,  356,  287,  287,  287,  287,  289,  289
,  289,  289,  296,  296,  302,  302,  308,  308,  309,  309
,  315,  315,  358,  358,  316,  316,  359,  359,  324,  324
,  327,  327,  327,  329,  329,  331,  331,  360,  360,  158
,  163,  164,  157,  167,  169,  171,  254,  256,  323,  252
,  253,  258,  263,  168,  264,  267,  278,  269,  279,  284
,  280,  281,  283,  285,  286,  290,  294,  304,  357,  307
,  297,  361,  319,  330,  275,  338,  318,  347,  362,  363
,  363,  346,  346,  350,  351,  305,  306,  343,  354,  125
,  128)  ;
        --| Map of the grammar rule number (constant array ) to
        --| numeric value of left hand side symbol.
        -- NYU Reference Name: LHS

    RightHandSide :
         constant array (RightHandSideRange)
         of GC.ParserInteger :=
          (    6,    3,    1,    1,    1,    1,    1,    1,    1,    1
,    1,    1,    1,    1,    5,    6,    5,    6,    6,    2
,    1,    1,    1,    4,    8,    2,    2,    2,    2,    2
,    2,    2,    5,    1,    2,    1,    1,    1,    1,    3
,    2,    2,    4,    4,    1,    1,    1,    1,    1,    1
,    2,    2,    2,    2,    1,    1,    7,    4,    3,    4
,    2,    1,    1,    3,    5,    4,    4,    2,    5,    4
,    5,    2,    2,    1,    3,    2,    2,    3,    7,    1
,    3,    1,    1,    1,    1,    1,    1,    1,    1,    1
,    1,    1,    1,    1,    1,    1,    1,    1,    1,    1
,    1,    1,    4,    3,    3,    1,    1,    1,    3,    1
,    1,    1,    1,    3,    2,    5,    5,    3,    3,    1
,    1,    4,    2,    1,    1,    1,    1,    1,    1,    2
,    3,    1,    1,    2,    2,    3,    1,    1,    1,    1
,    1,    1,    1,    1,    1,    1,    1,    1,    1,    1
,    1,    1,    1,    1,    1,    1,    1,    1,    1,    1
,    1,    3,    3,    2,    5,    4,    4,    3,    1,    1
,    2,    2,    1,    1,    1,    1,    1,    1,    1,    1
,    1,    1,    1,    1,    1,    1,    1,    1,    3,    2
,    4,    7,    1,    5,    2,    2,    7,    8,    2,    4
,    5,    2,    3,    5,    5,    4,    2,    4,    3,    5
,    2,    3,    3,    2,    2,    6,    4,    8,    1,    1
,    4,    1,    2,    1,    2,    3,    4,    2,    2,    4
,    6,    5,    4,    6,   10,    5,    9,    4,    6,    6
,    5,    4,    3,    4,    5,    5,    4,    4,    4,    5
,    3,    1,    1,    1,    7,    2,    2,    1,    1,    1
,    2,    2,    2,    2,    8,    9,    4,    1,    2,    5
,    2,    2,    1,    1,    1,    1,    1,    1,    1,    1
,    4,    4,    6,    6,    2,    4,    2,    1,    1,    2
,    3,    3,    3,    2,    5,    5,    9,    4,    3,    2
,    2,    2,    2,    1,    1,    1,    4,    8,    4,    8
,    4,    8,    1,    1,    1,    1,    1,    1,    1,    1
,    5,    5,    9,   10,    5,    4,    6,    4,    0,    2
,    0,    2,    0,    2,    0,    2,    0,    2,    0,    3
,    1,    1,    3,    0,    3,    0,    1,    0,    3,    0
,    3,    0,    3,    0,    3,    0,    2,    0,    3,    1
,    3,    2,    1,    3,    3,    3,    4,    0,    3,    0
,    2,    3,    1,    3,    2,    1,    3,    4,    0,    3
,    0,    3,    3,    3,    3,    3,    3,    3,    4,    4
,    4,    4,    0,    2,    1,    2,    1,    2,    3,    1
,    3,    0,    2,    1,    3,    1,    2,    2,    0,    3
,    0,    2,    0,    2,    0,    2,    0,    1,    0,    2
,    2,    1,    2,    0,    3,    0,    1,    1,    0,    3
,    1,    3,    0,    3,    0,    4,    3,    7,    0,    4
,    3,    7,    0,    3,    1,    1,    0,    3,    1,    2
,    0,    3,    1,    3,    0,    3,    0,    3,    0,    2
,    0,    2,    2,    0,    3,    1,    3,    1,    3,    1
,    1,    1,    0,    3,    1,    1,    4,    3,    1,    3
,    3,    1,    1,    3,    1,    1,    3,    1,    1,    2
,    1,    4,    3,    4,    4,    4,    1,    2,    3,    1
,    2,    3,    4,    3,    2,    1,    4,    4,    0,    3
,    0,    3,    1,    2,    3,    1,    1,    1,    1,    1
,    1)  ;
        --| Map of the grammar rule number (constant array ) to
        --| size of right hand sides (number of symbols).
        -- NYU Reference Name: RHS

    ActionTableOne :
         constant array (ActionTableOneRange)
         of GC.ParserInteger :=
          ( 7231,   54,    0,    0,    0,   55,    0,    0,    0,    0
,  960,    0,  510,    0,   58,   59, 7234,   61, 7237,   63
,    0,    0,   64,   65,   66,   67,    0,   68,   69,   70
,   71,   72,   49,    0,   73,    0,    0,  313,    0,    0
,    0,    0,    0,  100,    0,  101,  102,  103,    0,    0
,    0,    0,    0,  356,    0,   50,    0,    0,    0,    0
,    0,    0,    0,    0,  620,    0,   51,  950,    0,    0
,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0
,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0
,    0,   79,    0,  625,    0,    0,  295,    0,  176,   52
,   53,   54,    0,    0,    0,   55,  178,  179,    0,  212
,  213, 7240, 7243,    0,   58,   59,   60, 7246,   62, 7249
,    0,  787,   64,   65, 7252, 7255,  398, 7259,   69, 7263
, 7266,   72,    0,    0, 7271,    0, 1496,  105,    0,  429
, 1412, 7274,    0, 7277, 7280,    0,    0,    0, 7283,    0
,    0,    0, 7286,    0, 1496,    0,    0,    0,    0,    0
,    0,  433,   38,   39,   40,    0,  434,    0,  435, 7289
,    0,    0,    0,  323,    0,  673,    0, 1412,   79,    0
,  436,    0,   43,   44,    0,    0,    0,    0,    0,    0
,    0,  425,  774, 7292,   43,   44,    0,    0,   45, 1416
,    0, 7295,    0, 7298, 7301,    0,    0,  437,    0,    0
,    0,    0,    0,  429, 7304,    0,    0, 7307,  431,    0
,  183,    0, 1412,   86,    0,    0,  432,    0,    0,    0
,  231,    0, 7310,    0,    0,  433,   93,  855,    0,    0
,  434,    0, 7313,    0,    0,  892,    0,    0,  981,    0
,    0, 1412,   97,    0,  436,    0,   43,   44,  523,    0
,    0, 7316,    0,    0,  698,    0,    0,    0, 7319, 7322
,  606,   16,    0,    0,    0,  144,    0, 7325,    0,    0
, 7328, 7331,  660,  763,    0,  607,    0,    0,    0,  438
,    0,    0, 7335,    0,  426,   80,    0,  608,    0,    0
,  609,   52, 7338,   54,   79,  428,   37,    0,    0,    0
,    0,    0,    0,   52,   53,   54,    0,    0,    0,   55
,    0,    0,    0,    0, 7341,   39,   40,    0,    0,  319
,    0,    0,    0,  183,    0,  232,   64,   65, 7346, 7349
,   40, 7352, 7355,   70, 7359, 7362,  444, 7365, 7368,  447
, 7371, 7374,  450, 7377, 7380, 7383, 7390, 7393, 7397,  457
, 7400,  459,  460,   46,    0,   47,    0, 7403,  122,   42
,   43, 7407, 7411,  996, 7414,   52,   53, 7417,    0, 7420
,    0,  463,   81,    0,    0,  611,    0, 7423,   39,   40
,  438,    0,    0,    0,    0,    0,    0,  777,  558,    0
,    0,    0,  545,    0,    0,  464,  465, 7426, 7430, 7433
,    0,  131,    0,    0,  373,  441,    0,  122, 7436, 7439
, 7442, 7445,  446, 7448,  448,  449, 7451,  451, 7454,  453
,  454, 7458,  456, 7461,  458,  459,  460,    0,  489,    0
,  118,  461,  171,  712,    0, 7464,  462,    0,    0,    0
,    0,    0,    0,    0,    0,  463, 7467, 7470,    0, 7473
,    0,    0,    3,  503,    0,    0,    0,    0,    0,  525
, 7476, 7479,    0,    0,    0,   52, 7483, 7486,   54,  464
,  465, 7489,  467, 7493,    0,    0,  240,    0,    0,   52
, 7496, 7499,  242,    0, 7502,   55,    0,    0,   64,   65
, 7505,   67,    0, 7508, 7511, 7514,   71,   72, 7518,    0
,   73,    0,   64,   65,   66,   67,    0,   68,   69, 7521
,   71, 7525,    0,  710, 7529,    0, 7532,    0,  161,  620
,  714,    0,  961,    0,    0,  715,    0,    0,   52,   53
,   54,    0,  243,  425,   55,  426,    0,    0,   82,    0
,    0, 7537,   39, 7540,   59, 7544, 7547,   62, 7550,    0
, 1165, 7553, 7556,   66, 7559,  429, 7562,   69, 7565, 7568
, 7571, 7576,    0,   73, 7579,  217,  470,  218,  432,  938
,  464,  385,   42,  386,   44,    0,    0, 7582,  717,  718
, 7586,  720, 7590, 7594, 7597,    0,  179,    0,    0,  543
,    0,  544, 1165, 1412,    0,    0,  436,    0,   43, 7601
,    0,    0,  259,  988,  768,    0,    0,    0,    0,    0
,  769,    0,    0,    0,    0,    0,    0,    0,    0,    0
,    0,    0,  619,  437,  865,  387,    0,    0,    0,    0
,    0,  883,    0,    0,    0,    0,  661,    0,    0,    0
,  511,  723,    0,    0,    0,    0, 7604,  116,  287,    0
,    0,    0,    0,    0,    0,    0,    0,    0,  233, 7607
,    0,    0,  162,    4,    5,    6,    7,    0,    0,    8
,    0,    0,    0,    0,    0,    0,    0,    0,   38, 7610
, 7613,   54,    0,  116,  439,    0,    0,  939,    0,    0
,  876,   38, 7616, 7620,   54,    0,    0,  440, 7623,    0
,    0,  715,  512,  841,    0,    0,    0,   58, 7626, 7629
, 7633, 7636, 7639,    0,   45,   64,   65, 7642, 7646, 7650
, 7653, 7656, 7659, 7662, 7665,    0,    0, 7668,    0,    0
,   46,    0,   47,  233,    0,  506,    0,    0,    0,    0
,    0,   38, 7671,   40,    0,    0,  464,    0,    0,    0
,    0,    0,    0,    0,  818,  718,  719, 7674,    0,  721
,  442,  443,  444,  445,  446,  447,  448,  449,  450, 7677
,  452, 7680, 7683, 7688, 7691, 7694,  458, 7697,  460,    0
,   46,    0,   47, 7700,    0,  268,    0,    0, 7703,    0
,    0,    0,    0,    0,    0,    0,  171,  463,  287,    0
,    0,    0,    0,    0,   38,   39, 7706,  471,    0,  171
,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0
,    0,  464,  465, 7709,  467, 7712,    0,    0,    0,   52
,   53, 7715,    0,  582, 7718, 7721,   43, 7724,  390, 7727
, 7730,    0, 7733, 7736,   54,   47,  116,    0, 7739,    0
,    0,    0, 7742,   65,   66, 7745,    0, 7748, 7751, 7754
, 7760, 7763,   63,    0,   73,   64,   65,   66,   67,    0
,   68,   69,   70,   71,   72,    0,    0,   73,    0,  165
,    0,    0,    0,    0, 7767,    0,    0,    0, 7770,    0
,    0,    0,   52,   53,   54,    0,    0,    0,   55,    0
,    0,    0,    0,    0,  111,  371,    0,   58,   59,   60
,   61, 7773,   63,    0,    0,   64,   65,   66,   67,    0
,   68,   69, 7776,   71,   72,    0,    0, 7780,    0,    0
,    0,    0,    0,    0,  116,    0,    0,    0,    0,    0
,  724,  495,    0,    0,    0,  184,    0,    0,  122,    0
,   43,   44,    0,    0,    0,   52,   53,   54,    0,    0
,    0,   55,    0,    0,    0,    0,  805,    0,    0,  260
,    0,    0,    0,    0,    0,    0,    0,    0,   64, 7783
,   66,   67,    0,   68, 7786,   70,   71, 7789,  390,  391
, 7792,    0,  601,    0,    0,    0,    0,  374,    0,    0
,  662,    0,    0,    0,    0, 7795,    0,  118,    0,    0
,   37,  270,  271,    0,    0,    0,    0,    0,    0,  940
,    0,    0,    0,    0,    0,    0,    0,    0,  167,  725
,    0,    0,    0,  620,    0,    0,  894,    0,    0,    0
,    0,    0, 7798,   39, 7802,    0,    0,    0,    0,    0
,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0
,  273,  953,  621, 7805,    0,    0,    0,    0,    0,   52
, 7808,   54,  122,   42,   43,   44,    0,    0,   45,    0
,    0,   46,    0, 7811,    0,  926,    0,  132,  261,    0
,    0,    0,    0, 7814,    0,    0,    0,   75,    0,   76
,    0,    0,    0,    0,    0,    0,    0,    0,    0,  626
,    0,  122,    0,   43,   44,    0,    0,    0,    0,    0
,    0,    0,  250,    0,    0,  790, 7817,    0,  954,    0
,    0,  375,    0,    0,    0,    0, 7820,    0,  134, 7823
,  136,    0,    0,  137,    0,    0,  138,  139,  140,  269
,    0,    0,  989,    0,    0,  884,    0,    0,    0,    0
,  171,    0,    0,    0,    0,    0,    0,  920,   38,   39
,   40,    0,    0,    0,    0,    0,    0,    0,  997,    0
,    0,    0,    0,    0,    0,  274,    0,    0,    0,    0
,  857,    0,    0,   52,   53,   54,    0,    0,  122, 7826
,   43,   44,    0,    0,   45,    0,    0,   46,    0, 7830
,    0,    0,    0,    0,    0,    0,   64,   65, 7833,   67
,    0,   68,   69, 7836, 7839,   72,    0,    0,   73,    0
,    0,    0,   52,   53,   54,    0,    0,    0,    0,  858
,    0,    0,    0,  927,    0,    0,    0,    0,    0,    0
,    0,    0,  496,    0,    0,    0,   38,   39,   40,    0
,    0,    0,    0,    0,  141,  142,    0,    0,    0,    0
,    0,    0,    0,    0,    0, 7842, 7845,    0,    0,    0
,    0,    0,    0,    0,    0,    0, 7848, 7851,   43,   44
,    0,    0,   45,    0,    0,   46,    0,   47,    0,   37
,    0,    0,    0,    0,  235,    0,    0,   38,   39,   40
,    0,    0,    0,    0,  750,    0,    0,    0,    0,   52
,   53,   54,    0,    0,    0,   55,    0,    0,    0,    0
,  806, 7854, 7857,   40,   58,   59, 7860, 7863, 7866, 7870
, 7873,    0,   64, 7876,   66,   67,   46,   68, 7879,   70
,   71,   72,    0,    0,   73,    0,    0,  969,    0,    0
,    0,  122, 7883, 7886, 7889,    0,    0,   45,    0,  836
,   46,    0,   47,  113,  171,    0,    0,    0,    0,    0
,  395, 7892,  473,  474,  475,  476, 7895, 7898,  271,    0
,    0,  567,    0,    0,   38, 7901,   40,    0,    0,    0
,    0,    0,  792,    0,    0,    0,    0, 7904,   53,   54
,    0,    0,    0,   55,  287, 7907,    0,    0,  272,    0
,    0,    0,   58,   59, 7910, 7913, 7918, 7921,  656,    0
, 7925,   65,   66, 7928,    0, 7932, 7935, 7938, 7941,   72
,    0,    0, 7944,    0,    0,    0,    0,    0,    0, 7947
,    0,    0,    0,    0,  262,    0,    0,    0,   52,   53
,   54,  246,    0,    0,   55,    0,    0,    0,  144,   38
,   39,   40, 7950, 7953, 7956,   60,   61,   62,   63,    0
,    0,   64, 7959, 7962, 7965,    0,   68, 7968, 7971, 7976
,   72, 7979,  146,   73,    0,    0,    0,  376,  147,  122
, 7982, 7985, 7988, 7991,    0, 7994,   65, 7998, 8001, 1448
, 8004,   69, 8007,   71,   72,  807,    0,   73,    0,    0
,    0,    0,    0,  866,    0,    0,    0,    0,  955,    0
,    0,    0,    0,    0,    0,    0,    0,  302,    0,    0
,    0,    0, 1265,    0,    0,   52,   53,   54,    0,    0
,    0,   55,  183, 8010,    0,  395,  146,    0,    0,    0
,  148,  274,  147,  275,    0,    0,    0,    0, 8013,   65
,   66, 8016,    0,   68,   69,   70, 8019,   72,    0,    0
,   73,    0,    0,    0,    0,    0,    0, 8022, 8025,    0
,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0
,    0,  428,  403,    0,    0,    0,  126,    0,    0,  184
,    0,    0,    0,  116,    0,    0,    0,    0,    0,    0
, 8029, 8032, 8036,    0,    0,    0,   55,    0,    0, 8039
,    0,  361,    0,    0,    0,   58,   59,   60, 8042,   62
,   63,  963,    0, 8047,   65,   66,   67,    0, 8050, 8053
, 8057, 8060, 8063, 8067,    0,   73,   45,  867,    0,   46
,    0,   47,  242,    0,    0,    0,    0,    0,    0,    0
,   38,   39,   40,    0,    0,  116,    0,    0,  751,    0
,    0,    0,  381,  382,    0,    0,  438,    0,    0,    0
,  132,  727, 8070,    0,    0,    0,  133,    0,    0,    0
, 8073,   42, 8076,   44,    0,    0,   45,    0, 1416,   46
,  427,   47, 8080,  428,   37,    0,    0,    0,    0,    0
,    0,    0,  429, 8083,    0,  729,  430, 8086,  664,    0
,    0, 1412,    0,    0,   38, 8089,   40,    0, 8092,    0
,    0,  134,  135,  136,  433,    0, 8095, 8099, 8102, 8105
, 8108, 8111,    0,    0, 8114,    0,    5, 8117,    7,    0
, 1412, 8121, 1505, 8124,  122, 8127, 8130,   44,    0,    0
, 8134, 8137, 8141, 8146,    0,   47,  122, 8149, 8153, 8156
, 1505, 1505,   45,    0,    0,   46,    0,   47,  171,    0
,  437, 1505, 1505,  886,   64, 8159, 8162,   67,    0,   68
, 8165, 8168, 8173, 8177,    0,    0, 8180,    0,    0,   46
,    0,   47,    0,    0,    0,    0,    0,    0,    0,    0
,    0,   52, 8183,   54,    0,    0,    0,   55,    0,  878
,    0,    0,  114,   38, 8186, 8191, 8194,   59,   60,   61
, 8198, 8201,    0,    0,   64,   65, 8205,   67,    0,   68
,   69, 8208, 8212, 8215, 8218,    0,   73,    0,    0,    0
,    0,  760,    0,  122, 8221, 8226, 8230, 8233,  142, 8238
,   45,    0,   46, 8241,   47,   47,    0,   50,    0,  143
,    0,   11,    0,   38, 8244, 8247, 8251,   54,   51,    0
,   12,   55,    0,  929, 1094,    0,    0,   52,   53,   54
,    0,    0,    0, 8255,    0,    0,    0,    0,   64,   65
,   66,   67,    0, 8258, 8261, 8264, 8267, 8270,  567,   45
, 8274, 8277, 8281, 8284,    0,   68, 8288, 8291, 8295,   72
,  445,  446, 8298, 8301, 8305,  450, 8309, 8313, 8316, 8319
, 8322, 8327,  457,  458, 8331, 8334,   66,   67,    0,   68
, 8337, 8340, 8344,   72,    0,  462, 8347, 8350, 1094, 1094
, 1094, 1094, 1336, 8353, 8356, 8360, 8363,  390, 8367, 1094
, 1094,    0,   38, 8370, 8373,    0, 1094, 1094, 1094,    0
,    0,    0,    0,    0,   52, 8376, 8379,   54,  464,  465
, 8382, 8386, 8389,    0,    0,    0,    0,    0,    0,    0
,   58, 8392, 8396, 8399, 8403, 8406,  895, 8409, 8412, 8417
, 8420, 8424,   68, 8428, 8432, 8436, 8440,   72,    0,   73
,   73,    0,    0,    0,    0,    0,    0,    0,    0,  564
,  115,    0,    0,    0,   52, 8443,   54, 8446,    0,    0
,   55,    0,    0,    0,  383,    0,    0,    0,    0,    0
,  808,    0, 8449,    0,    0,    0,  781,  497,   65,  297
,   67,    0,   68,   69,   70,   71, 8452,    0,    0,    0
,    0,    0,    0,    0,    0,   97,    0,    0,    0,  287
,    0,    0,    0,   74,    0,    0,    0,    0,    0,    0
,  171,    0,  665,    0,   16,    0,    0,  503,    0,  330
,    0,    0,  690,  116,    0, 8455,  183,    0,  730,    0
,    0,    0,    0, 8458,    0,    0,    0,    0,    0,    0
,    0,    0,    0, 8461,   53,   54,    0,    0,    0,   55
,    0,    0,    0,    0,    0,    0,    0,  330,   58,   59
, 8465,   61,   62,   63,    0,    0,   64,   65,   66, 8468
,    0,   68, 8471, 8474, 8478, 8481,    0,    0,   73,    0
,    0,    0,    0,  184,  279,  116,  280,  281,    0,    0
,    0,    0,    0,  565,  519,    0,  118,    0,    0,    0
,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0
,    0,    0,    0,  879,    0,    0,  176,    0,    0,    0
,    0,    0,    0,  908,    0,  314,    0,  782,    0,    0
,    0,    0,  184,    0,    0,    0,  733,    0,  734,    0
,    0,    0,  628,    0,    0, 8484,    0,    0,  868,    0
,    0,    0,    0,  395,  146,    0,  735,    0,  118,    0
,  147,  242,    0,  579,    0,    0,  964,    0,    0,    0
, 8487,    0,    0,    0,    0,    0,    0,    0,    0,    0
,    0,    0,  301,    0,    0,    0,    0,    0,    0,    0
,    0,    0,    0,    0,    0,  794,    0,    0,    0,    0
,    0,    0,    0,    0,    0,    0,    0,    0,  282,    0
,    0,  302,    0,    0,    0,    0,    0,   38,  144,   40
,    0,    0,    0,  250,    0,    0,    0,    0,    0,    0
,    0,  517,    0,    0,    0,    0,    0,  343,  426,  783
,    0,  145,  146,    0,  301,    0,    0, 8490, 8493, 8496
,   44,    0,    0,   45,  648,  752,    0,    0,    0,    0
,    0,    0,    0,    0,    0,    0,    0,  326,    0,    0
,    0,    0,    0,    0,    0,    0,    0,  183,    0,  317
,    0,    0,    0,    0,    0,   79,    0,  602,  773,    0
,    0,  710,    0,    0,    0,  711,    0,    0,  116,    0
,    0,  784,    0,    0,    0,    0,    0,    0,    0,    0
,  847,   37,    0,    0,  183,    0,    0,    0,    0,    0
,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0
,  503,    0, 8499,    0, 8502, 8505,    0,    0,  504,    0
,    0,    0,    0, 8508,   39,   40,  795,    0,  586,    0
,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0
,  116,    0,    0,    0,    0,  183,  956,    0,   52,   53
,   54,  699,    0,  122, 8511,   43,   44,    0,    0,   45
,    0,    0,   46, 1468, 8514, 8517,  505, 1350,    0,    0
,    0,  327,    0,    0,  172,    0,  368,    0,   70,   71
,   72,    0,    0,    0,    0,    0,    0,    0,    0,    0
,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0
,    0,    0,  184,    0,    0,    0,    0,    0,    0,    0
,    0,    0,    0,    0,    0,    0,  116, 8520,    0,    0
,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0
,  287,    0, 8523,  344,    0,    0, 8526,  566,  118,  629
,    0,  171,  328,    0,    0,    0,    0,    0,  492,   38
, 8529,   40,    0,    0,    0,    0,    0,    0,    0,  715
,    0,    0,    0,    0, 8532,   14,    0,  518,    0,  318
,    0,    0,  589,    0,   52,   53,   54,    0,    0,  122
, 8535,   43,   44,   16,    0,   45,    0,  519,   46, 8539
,   47,    0, 8544,    0,    0,  623,    0,   64,   65, 8548
,   67,  590,   68,   69, 8551, 8554, 8557,  702,    0,   73
,  363, 8560,  717,  718,  719,  720,    0, 8563,    0,  912
,    0,    0,    0,    0, 8566,   39,   40,    0,    0,  121
,   37,    0,    0,  387,    0,    0,    0,    0,    0,    0
,    0,    0,   18,   19,    0,   20,   21,    0,    0,    0
,    0,    0,    0,  845,  122,   42, 8569, 8572,    0,    0
,   45,    0,   38, 8575,   40, 8578,    0,  171,    0,    0
,    0,    0,  248,    0,    0, 8581,    0,    0,    0,    0
,   37,    0,    0,    0,    0,    0,    0,  503,    0,    0
,    0,    0, 8584,   42,   43, 8587,    0,    0,   45,    0
, 8590, 8593,   54,   47,    0,    0, 8597,    0,  504,    0
,    0,  326,   38,   39, 8600,   58,   59,   60,   61,   62
,   63,   22,   23,   64,   65,   66,   67,    0,   68,   69
,   70, 8604,   72,    0,    0,   73,    0,    0,   38,   39
,   40,    0, 8607, 8610, 8613,   44,    0,    0, 8617, 1357
,    0,   46,  809,   47,  242,    0,  991,    0,    0,    0
, 1357,  126,    0,    0, 1357, 1357, 1357,    0,  122, 8620
,   43,   44,  384,    0, 8623,   52,   53, 8626,    0,   47
, 8629, 8632, 8636, 1357, 8639,    0,  367,    0,    0,    0
,    0,    0,    0,    0, 1357, 1357,  567,  591, 8642, 8645
,   66,   67,    0,   68, 8649,   70, 8653,   72,    0,    0
,   73,    0,    0, 8656, 8660, 8663,   27,    0,  796, 8667
,    0,    0,    0,    0,    0,    0,    0,    0,    0,  810
, 8671,    0,    0,    0,    0,  329,   64,   65,   66, 8675
,    0,   68,   69, 8678, 8681, 8684, 8688,  630,   73,   45
,  754, 8691, 8694,    0,   47,    0, 8697,    0,   43, 8702
,   32,   33,   38, 8705, 8708,   54,    0,    0,   34,   55
,    0,    0,    0,    0,    0,    0,    0,    0,   58,   59
,   60,   61,   62,   63,  811,    0,   64,   65,   66, 8711
,   53, 8714, 8717, 8720, 8723, 8726,    0,    0, 8730,    0
,    0,   46,    0,   47,    0,    0,  328,    0,    0,    0
,    0,    0,   64, 8733,   66,   67,  184, 8737,   69,   70
, 8740,   72,    0,    0,   73,  568,  880,    0,  569,    0
,    0,  125,    0,    0,    0,    0,  145,  146,    0,    0
,    0,  944,    0,  147, 8743,    0,   49,    0,    0,  887
, 8746,    0,    0,    0,    0,    0,    0,    0,    0, 8749
,  825,    0,    0,    0,   52, 8752,   54,    0,    0, 8755
,   55,    0,    0,    0,    0,    0,   38, 8758, 8761,   54
,   51,  603,  506,    0,    0,    0,    0,   64,   65,   66
,   67,    0,   68,   69, 8764,   71,   72,    0,    0,   73
,    0,    0,    0,    0,   13, 8767,  122,   42,   43,   44
,    0,    0,   45, 8770,   53, 8773,    0,   47,    0, 8776
,  408,    0,    0,   16,    0,    0, 8779, 8782, 8785,   59
,   60,   61,   62,   63,  188,    0,   64,   65, 8789,   67
,    0,   68,   69, 8792,   71,   72, 8795,    0,   73,    0
,  756,  346,    0,    0,    0,    0, 8798,   42,   43,   44
,  744,    0,   45,   85,  503,   46,    0,   47,    0,    0
,    0,    0,  504, 1094,    0,  826,    0,    0,    0,    0
,    0,  233,  409, 8801,  411,  412,  413,    0, 8804,    0
,    0,    0,    0,    0,  171,   84, 1094,    0,    0,    0
, 1094,    0, 1094,    0,    0, 1094,    0,    0,    0,    0
,    0,    0,    0,    0,    0, 1094,  809,    0,    0,    0
,  992,  571,    0,    0,    0,  306,  931, 8807, 8810, 8813
, 8816,    0,    0, 8820,    0, 1094, 1094, 1094, 1094, 1094
, 1094, 1094, 8823, 8826, 8829, 8833,   62, 8836, 8839, 1094
,   64, 8842,   66, 8845,    0, 8849, 8852, 8856, 8860, 8864
,  208, 8868, 8871, 8875,  594,    0,  218,    0,    0,    0
,  595,  480,    0,    0,  957,  284,    0,   52,   53,   54
,    0,    0,    0,   55,    0,    0,    0,    0,    0,    0
,    0,    0,    0,  812,    0,    0,    0,  838,    0,    0
,   64,   65,   66,   67,  191, 8878, 8881, 8884, 8888, 8891
, 8895,  198, 8898,    0,    0, 1416,    0,  427,    0, 8901
,  428,    0,    0,    0, 8904,  201, 8907,    0,    0,  429
, 1412,    0,   37,  430,  431,    0,    0,    0, 1412,    0
,    0,    0,  432,    0, 1442,   37,  417,  765, 8910,    0
,  861,  433,    0,   25,    0,   26, 8913,   37,  435, 8916
,    0,  210,    0,  211, 8919,   39, 8922, 1412,    0,    0
,  436,    0,   43,   44,    0,  604,    0,   38, 8925,   40
,  204,  205,  206,    0,  207,  208, 8928,  102,  103,   38
,   39,   40,    0,    0, 8931,   42,  386, 8934,    0,    0
, 8938,   33,    0,   46,    0, 8941,    0,  122, 8944,   43
,   44,    0,    0,   45,    0,    0, 8947,    0,   47,  122
, 8950,   43,   44,  324,    0,   45,    0,    0,   46,    0
,   47,    0,    0,    0,    0,    0,    0,    0,    0,    0
,    0,    0,    0,    0,    0,    0,  506,    0,  387,    0
,    0,    0, 8953,   39,   40,    0,    0,    0,  439,    0
,    0,    0,    0, 1358,    0,    0,    0, 1358, 1358, 1358
,    0, 8956,   84,  365,    0,    0,  730,  363, 8960,    0
,   26,   27, 8963,   42, 8966, 8971, 8976, 1358, 8979,  106
,    0, 8982,   53, 8985,    0,  171,  124, 1358, 1358, 8988
,    0, 1358, 1358,    0,    0,    0,  250, 8991,    0,    0
,    0,    0,    0,    0,   85,   52,   53,   54,    0,    0
,    0,   55,    0,    0,    0,   32, 8994,    0,   52,   53
, 8997, 9000,   60, 9003, 9007, 9011,  444, 9014, 9018, 9022
, 9026, 9031, 9035, 9039, 9042, 9045, 9048, 9053,  456, 9056
, 9059, 9062, 9066,   66,   67,   58, 9069, 9073, 9078, 9081
, 9085,    0,  462, 9089, 9092,   66, 9095,    0,   68, 9098
, 9101, 9105,   72,  785,    0,   73,    0,  216,   38, 9108
, 9112,    0,    0,    0,  828,  572, 9115,    0,  307,    0
,    0,    0,  330,    0, 9118, 9121,  465, 9124,  467, 9127
, 1096, 1096, 1096, 9132, 9135, 9139, 9142, 1096, 9145, 9148
,   43, 9151, 1096, 1096,   45, 9154,    0, 9157,    0, 9160
, 1096, 1096, 1094,    0,    0,    0, 9163,   65, 9166,   67
,    0, 9169,   69,   70,   71,   72,    0,  183,   73, 9172
,    0, 1094,    0,    0,    0,    0,    0,    0,    0,  523
,    0,    0, 9175,   88,    0,    0, 9178, 9181,   37,    0
, 9184, 9187, 9191, 1094, 1094, 1094, 1094, 1094, 1094, 1094
, 1094,    0,    0, 1094, 1094, 1094, 9195, 1378, 1094, 9199
,    0, 1094, 9202, 1094,    0, 9205,    0,    0,  914,    0
,   38, 9208, 9211,    0,  184,    0,  171,    0,    0,    0
,    0,    0,    0,    0,    0,    0,    0,  666,    0,   37
,    0,   83,  811,  286,    0, 9214,    0,    0,    0,    0
,  122,   42,   43,   44,    0,    0,   45,    0,    0, 9217
,   53, 9221,    0,    0,    0,   55,    0,    0,    0,    0
,    0, 9224,   39,   40,   58,   59, 9227,   61,   62,   63
,  738, 9230, 9233,   65,   66,   67,    0,   68, 9236,   70
,   71,   72,  531,    0,   73,    0,    0,    0,  915,    0
,    0, 9239,   42, 9242, 9245,  535,  536, 9248,  538,  539
,   46,    0,   47,  540, 9251, 9254,    0,  985,    0,    0
,  543,    0,  544,  545,  704,    0,    0,  287,    0,    0
,    0,  546,    0,   38,   39,   40,    0,    0,  171,    0
,    0,    0,    0,    0,    0,    0,   38, 9257, 9260,   40
,    0,   37,    0,    0,    0, 9263,    0,    0,  217,    0
,  218,  330,    0,  122, 9266,   43, 9269,    0,    0,   45
,    0, 9272,   53,   54,  629,    0,  122, 9275, 9279, 9283
,   44,    0,   45, 9286,   39, 9289, 9292,   47,   47,  125
, 9295,    0,    0,    0,   64,   65,   66,   67,    0,   68
,   69,   70, 9298,   72, 9302,   44,   73,  251, 9305,    0
,    0,    0,  830,  122, 9308,   43,   44,    0,    0,   45
,    0,    0, 9311, 9314, 9317,    0,    0,  127,   55,  128
,    0,  129,    0, 9320, 9323, 9326,   40,   58,   59,   60
,   61,   62, 9329,    0,    0,   64,   65,   66,   67,    0
,   68, 9332, 9335, 9338, 9343,   44,    0,   73,   45,    0
,    0,   46,    0,   47, 9347, 9350, 9354,   44,  763,    0
,   45,  120,    0,   46,    0,   47,  309,    0,    0,  574
, 9357,    0,    0,    0,   52, 9360,   54,  118,    0,    0
, 9363,    0,  757,    0,    0,  395,  146,   52, 9366, 9369
,   54,  171,  147,   55,   55,    0,  567,    0,    0, 9372
,   67,    0,  298,   69,   70,   71, 9375,    0,  575,  679
,   64, 9378, 9381, 9384, 9388, 9391, 9394, 9398, 9401, 9405
, 9409,    0,   73,   73,   52,   53,   54,    0,    0,    0
, 9412,  287,    0,    0,    0,    0,    0,    0,   38,   39
,   40,    0, 9415,    0,    0,    0,    0,    0,   65,  173
,   67,    0, 9418,   69,   70,   71,   72,    0,  289,    0
,    0,    0,    0, 9421, 9424,   54,    0,    0,  122, 9427
,   43,   44,    0,    0, 9431, 9434, 9437, 9440,   58, 9443
,   60, 9446,   62,   63,  739,    0,   64,   65,   66,   67
,   58, 9449, 9453, 9456, 9459, 9462,  151,    0, 9465, 9468
,   66,   67,    0,   68, 9471, 9474, 9477, 9480,    0,    0
, 9483,    0,    0,   46,    0,   47,    0,   37,    0,    0
,    0,    0,    0,    0,    0,    0,    0,    0, 9486,    0
,    0,    0,    0,    0,    0,    0,  176,    0,  634,    0
,    0,    0,    0,  116,   37,  266,    0,    0,  392,   38
,   39,   40,  330,  153,    0,  705,  775, 9489,    0,  763
,    0,    0,    0,    0,    0,  432,    0,    0,    0,   37
,    0,  624,    0,    0,    0,    0,   38, 9492,   40,   41
,   42, 9495,   44,    0,    0,   45,    0,    0, 9498,   52
, 9501,   54, 9505,    0,  849,   55,  958,    0,    0,    0
,    0,   38,   39, 9508,    0,    0,  122,   42,   43,   44
,  395, 9511, 9514, 9517, 9520, 9523,  118, 9526,   69,   70
, 9530,   72,    0,    0, 9533,   52,   53, 9536,    0,    0
,    0, 9539,   42, 9542,   44,    0,    0, 9545,   88,    0
, 9548,    0,   47,    0,    0,    0,    0,    0, 9552,   65
,   66,   67,    0,   68,   69, 9555, 9558, 9561,   44,    0
,   73,    0, 9564,    0,    0,    0,    0,   51,    0,    0
,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0
,    0,    0,    0, 9567,  993,  888,    0,  767,  768,    0
,    0,    0,    0,   37, 9570,  923,  369,  763,    0,    0
,   52,   53, 9573,    0,  620,    0,   55,    0,  287,    0
,    0,    0,   56,   57,    0,   58,   59,   60,   61, 9576
,   63,    0,    0,   64, 9579, 9582, 9585, 9589, 9592, 9595
,   70,   71,   72, 9598,  935,   73,    0,    0,    0,    0
,    0,    0,  799,  419,    0,    0,    0,    0,    0,    0
,   64,   65, 9601, 9604, 9607, 9610, 9613, 9616, 9619,   72
,    0,   45,   73,    0,   46,    0,   47,   58,   59,   60
,   61,   62,   63,    0,    0,   64, 9623, 9626, 9629,    0
,   68,   69,   70, 9632,   72,  183,    0, 9635,    0,  871
,    0,    0,    0,    0,    0,    0,  523,    0,    0,  524
, 9638,    0,    0,  698,    0,    0,   37,  525,  526,    0
,   90,    0,    0,   93,    0,    0,    0,    0,    0,    0
,    0,    0,    0,  527,    0,    0,  528,    0,    0,    0
,    0,    0,  265,    0,    0,  529,    0,    0, 9641, 9644
,   40,    0,  973,  171,    0,    0,    0,    0,    0,    0
,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0
, 9647,    0, 9650,    0,    0,    0,    0,    0,  122,   42
,   43,   44,    0,    0,   45,    0,   52, 9653,   54,   47
,    0,    0,   55,    0,    0,    0,    0,    0,    0,    0
,    0,    0,    0,    0,    0,    0,    0,    0,    0,   64
,   65, 9656,   67,    0,   68,   69, 9659,   71,   72,  531
,    0, 9662,  975, 9665,    0,  532,    0,    0,    0,  337
,  533,  534,  535,  536,  537,  538,  539,    0,    0,    0
,  540,  541,  542,    0,  636,    0,    0,  543,    0,  544
,  545,    0,    0,    0,    0,  287,    0,    0,  546, 9668
,    0,    0,    0,    0,    0,    0,  171,  116,    0,    0
,    0,    0,    0,    0,    0,    0,    0,    0,    0,  233
,    0,    0,    0,   90,    0,    0,    0,    0,    0,  330
,    0,    0,  800,    0,    0,    0,   90,    0,   86,   52
,   53,   54,    0,    0,    0,   55,  977, 9671,  978,    0
,  524,   87,   88,    0, 9674,    0,    0,  508,  605,  606
,    0,    0,   64,   65,   66,   67,    0,   68, 9677,   70
,   71,   72,    0,    0, 9680,    0,    0,  503,  770,    0
,  118,    0,  655,    0,    0, 9683,  608,    0,    0,  609
,    0,    0,    0,    0,    0,    0,    0,  889,    0,    0
,    0,    0,    0,    0,  184,    0,    0,    0,    0,    0
,    0,    0,  222,  610,    0,    0,    0,    0,  620,  233
,    0,    0,    0,  965,    0,    0,    0,  223,    0,    0
,    0,    0,    0,  863,    0,    0,    0,    0,    0,    0
,  237,    0,    0,    0,  310, 9686, 9689, 9692, 9695,    0
,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0
, 9698,    0,  658,    0,    0,    0,  301,    0,    0,    0
,   37,    0,    0,    0,  611,    0,  612,   38, 9701,   40
,    0,    0,    0,    0,    0,    0,    0,    0,  176,    0
,    0,  545,    0,    0,    0,    0,    0,    0,  801,    0
,    0,   86,   38,   39,   40,    0,    0,  122,   42,   43
,   44,    0,    0, 9704,   87,   95,   46,    0,   47,    0
,   37,    0,    0,    0,   90,    0,    0,    0,    0,    0
,    0,    0, 9707,   42,   43,   44,  979,    0,   45,    0
,    0,   46,  484,   47,    0,    0,    0,    0,    0,    0
,    0,    0,   38,   39,   40,    0,    0,    0,    0,    0
,    0,    0,    0,    0,    0,   52, 9710,  312,    0,    0
,    0,    0,    0,    0,    0,    0,    0,  176,    0,    0
,    0,    0,  122,   42, 9713,   44,   49,    0, 9716,    0
,    0,   46,    0,   47,    0,  171,    0,    0,    0,    0
,    0,    0,    0,   96,    0,    0,  155,   79,    0,   50
,    0,    0,  740,  338,    0,    0,    0,    0,    0,    0
,   51,    0,    0,  683,    0,  395,  146,    0, 9719,   53
,   54, 9722,  147,    0,   55,    0,    0,    0,    0,    0
,    0,    0,    0,  378,    0,    0,    0,    0,  637,    0
,    0,   64,   65, 9725, 9728,   54,   68, 9731,   70, 9735
,   72,    0,    0,   73,    0, 9740,   57,   40, 9743,   59
, 9746,   61, 9749, 9752,    0,    0,   64,   65, 9755,   67
,    0,   68,   69, 9758, 9761,   72, 9764,   90,   73,  420
,    0,    0,    0,    0,    0,  122,   42,   43,   44,    0
,    0,   45,    0, 9767,   53,   54,    0,    0,    0,   55
,  525,  526,    0,    0,    0,    0,    0,    0,  292,    0
,    0,  273,    0,    0,    0,    0,   64, 9770,   66,   67
,  255,   68, 9774,   70, 9777,   72,    0,    0, 9780,  788
,    0,  144,    0,    0,  834,    0,    0,   37,    0,    0
,    0,    0,    0,    0,  313,    0,    0,    0,    0,    0
,    0,  890,  994,  872,    0,  641,    0,    0,    0,    0
,    0,  242,    0,    0,    0,    0,    0,    0,    0,   38
,   39,   40,    0,  171,    0,    0,    0,    0,    0,    0
,    0,    0,    0,    0,    0,    0,  577,    0,    0,    0
,    0,    0,    0,    0,    0,    0,    0,    0,   79, 9783
,   42, 9786, 9789,    0,    0, 9792,   52,   53, 9795,    0
,   47, 9799,   55,    0,    0,    0,    0,    0,    0,  901
,    0,  642, 9802,  643, 9805,  645,    0,    0,    0,    0
,  543, 9808, 9811, 9815,    0,    0, 9818,   71, 9821,    0
,    0,    0,    0,   38,   39,   40,    0,    0, 9824,    0
,    0,    0,    0,   49,   77,    0,    0,    0,    0,    0
,    0,  122,   42, 9827,   44,    0,    0,   45,  924,    0
,   46,    0,   47,  122, 9830,   43, 9833,    0,  598,   45
,    0,    0,   46,    0,   47,    0,    0,   51,    0,    0
,    0,    0,   45,    0,    0,    0,    0,    0,    0,    0
,   37,    0,    0,    0,    0,    0,   38,   39,   40,    0
,    0,    0,    0,    0,  947,    0,    0,    0,    0,    0
,   52,   53,   54,    0,  242,    0,   55,  123,  183,    0
,  864,  852, 9836, 9840,   40,   58, 9843, 9846, 9849, 9853
, 9857,    0,   45,   64,   65, 9860,   67,   47,   68, 9863
, 9866,   71,   72,    0,    0,   73,    0,    0,    0,  789
,    0,  125,  122,   42,   43,   44,  741,    0,   45,  396
,    0,   46,    0,   47,  547,    0, 9869,    0,    0,    0
,  126,    0, 9872,   53,   54, 9875,    0,    0, 9879,    0
,    0,  766,    0,    0,   52,   53,   54,  379,    0,  127
,   55,  128,  314,  129,    0, 9882, 9885, 9888,   67,   58
, 9891, 9894, 9897, 9900, 9905,    0, 9909, 9912, 9915,   66
,   67,    0,   68,   69, 9918,   71,   72,    0,  959,   73
,    0,    0,    0,    0,    0,    0,    0, 9921,    0, 9924
,    0,    0,    0,    0,  421,  133,    0,    0, 1390,    0
, 9927,    0,    0,    0,  145,  146,    0,   52,   53,   54
,  791,  147,    0, 9930,    0,  174,    0,    0,    0,    0
,    0,    0,  293, 1390,    0,    0,    0,    0,    0,    0
,   64, 9933, 9936, 9939, 9942, 9945,   69,   70,   71, 9949
,  134,  135, 9952, 1071, 1071,  256,    0,    0, 9955, 9959
, 9962,   61,   62,   63,    0,  176,   64,   65,   66,   67
,    0,   68,   69,   70, 9965,   72,  995,    0,   73,    0
,    0,  747,    0,  118,    0,  122,    0,   43, 9968,    0
,    0,    0,  556,    0,    0,    0,    0,    0,    0,    0
,    0,  966,    0,    0,    0,    0,   38,   39, 9971,    0
,    0,    0,  339,    0,  615,    0,    0,    0,    0,  177
,    0,    0,  315,    0,    0,    0,    0,    0,    0,    0
,    0,    0,  185,   13,   14,    0,  122,   42,   43,   44
,    0,    0,   45,    0,  330,   46,    0, 9974,    0,  225
,    0,    0,   16,    0,    0,  839,    0,  698,    0,    0
,    0,    0,  187,  226,    0,  903,  189, 9977,    0,  301
,  487,    0,    0,  616,  506,    0,  141,  142,    0,    0
,    0,    0,  891,    0,    0,    0,    0,    0,  143,    0
,    0,    0,    0,    0,    0,    0,    0,    0,   37,    0
,    0,    0,    0,    0,    0,    0,   52,   53, 9980,  192
, 9983,  194,  195, 9986,  197,  198,  199,    0,    0,    0
,    0,    0,    0,    0,  171,    0,    0,    0,  200,  201
, 9989,   39,   40,    0,    0,  672,    0,    0,    0,    0
,    0,    0,    0,   86,    0,    0,    0,    0,    0,    0
,    0,    0,  157,    0,  395,  146,   87, 9992, 9995, 9998
,  122,10001,   43,10004,    0,    0,   45,    0,    0,   46
,  422,   47,    0,    0,    0,    0,    0,  183,    0,    0
,   64,10008,   66,   67,  204,10011,10014,   70,   71,   72
,    0,    0,   73,    0,    0,    0,    0,    0,   79,    0
,  239,    0,    0,    0,    0,    0,    0,    0,    0,    0
,    0,    0,    0,    0,    0,    0,    0,    0,    0,  948
,    0,  185,  949,  250,    0,    0,  639,    0,    0,    0
,  321,    0,    0,    0,  184,   79,    0,10017,  423,    0
,    0,    0,    0,    0,  370,  708,  322,    0,  171,    0
,  700,  873,  702,    0,    0,    0,    0,    0,    0,    0
,    0,    0,    0,    0,    0,    0,    0,  424,    0,   38
,   39,   40,    0,    0,    0,  227,    0,    0,    0,    0
,  144,   52,10021,   54,   26,   27,    0,   55,    0,    0
,  210,    0,  211,    0,    0,  853,  294,    0,  854,  122
,   42,   43,   44,  145,10024,10028,   66,   67,   46,10032
,10035,   70,   71,   72,    0,    0,   73,    0,    0,    0
,    0,    0,    0,   79,    0,   98,    0,    0,   16,10039
,   33,    0,  316,    0,    0,    0,    0,10042,    0,10045
,    0,  212,  213,  214,  215,    0,    0,  175,    0,    0
,    0,    0,    0,  695,    0,    0,    0,    0,    0,    0
,    0,    0,    0,    0,  617,    0,    0,  176,  709,   38
,   39,   40,  257,    0,  557,    0,  287,    0,    0,  578
,10048,  146,    0,    0,  814,    0,10052,10055,    0,10058
,  937,    0,  229,    0,    0,    0,    0,  580,    0,   41
,   42,   43,10061,    0,    0,   45,    0,    0,   46,    0
,   47,    0,    0,    0,    0,  230,    0,    0,    0,    0
,   52,   53,  177,    0,   60,  116,    0,   62,   80,    0
,  214,   56,    0,  215,   57,    0,  425,   61,    0,  426
,   63,    0,  754,   66,    0, 1416,  685,   67,    0,  427
,   68,  158,    0, 1416,   70,    0,  428,   37,   71,  104
,    0, 1496,   73,    0,  815,  250,    0,  430,   28,    0
,  431,  686,    0, 1412,  106,    0,  432,  918,    0,  640
,  318,    0,   42,  426,    0,   46,  427,    0,   47, 1416
,    0,  233,  428,    0,  330, 1412,    0,  803,  430,    0
,  748,  183,    0,  302,  435,    0,  524,   74,    0,  439
,  107,    0,  605,  266,    0,  330,  438,    0,  882,  775
,    0,  440,  776,  437,    0,  618,   37,    0,   53,  840
,    0,  610,  756,   38,  216,    0,   38,   66,    0,   39
,   67,    0,  696,   68,    0,   69,  439,   94,    0,  442
,   71,    0,  443,   72,    0,  445,  710,    0,  446,   73
,    0,  448,  904,    0,  449,  711,    0,  451,  905,    0
,  452,  122,    0,  453,  874,  122,  440,   37,   42,    0
,  454,   43,    0,  455,   43,   44,    0,  456,   44,    0
,  458,   45,    0,  967,  461,  116,    0,  531,   44,  183
,    0,  974,  462,    0,  976,   45,    0,   46,   54,    0
,   47,  599,    0,  612,   38,    0,  466,  816,    2,    0
,  467,  817,    0,  468,   90,    0,  442,   42,    0,  443
,   43,    0,  444,   44,    0,  445,  296,    0,  447,   45
,    0,  450,   46,    0,  184,  452,   47,    0,  455,  266
,    0,  804,  457,    0,  266,  267,    0,  775,  600,    0
,  977,  875,    0,  978,  763,    0,  426,  526,    0,  504
,  399,  357,    0,   52,   53,    0,   53,   54,    0,  428
,  466,   55,    0,  742,  468,    0,   53,  241,    0,  432
,   54,    0,  287,  108,    0,  144,   66,    0,   68,  109
,    0,   69,  110,    0,  250,  171,   70,    0,  687,  340
,    0,  919,   70,   37,    0,   72,  258,  159,    0,   73
,  641,    0,  951,  713,  301,  160,    0,   38, 1416,    0
,   40,  427,   58,    0, 1416,   60,    0,  428,   61,    0
,  856,   63,    0, 1165,   64,    0, 1165,   65,    0, 1165
,   67,    0, 1412,   68,    0,  122,   70,    0,  430,   71
,    0,  431,   43,   72,  332,    0,  778,   44,    0, 1412
,  469,    0,   45,  716,  433,    0,   46,  719,  642,    0
,   47,  434,  643,    0,  721,  644,    0,  722,  435,  645
,    0,  893,   44,    0,  559,   37,    0,  171,   37,    0
,   52,   39,    0,   53,   40,    0,  713,   52,   39,    0
,   53,   40,    0,  968,   55,    0,   59,  122,    0,   60
,   37,   42,    0,   61,   43,    0,   62,   44,    0,   63
,  183,    0,   66,   52,   46,    0,  519,   67,   53,    0
,   54,   47,    0,  118,   68,    0,   69,  385,    0,   70
,   42,    0,   71,  386,    0,   72,   44,    0,   73,   45
,    0,   39,  244,    0,  720,  696,    0,  451,  184,    0
,  453,  122,    0,  233,  454,   37,   42,    0,  455,   43
,    0,  456,   44,    0,  457,  387,    0,  459,   45,    0
,  461,    9,    0,  462,  513,    0,  301,   40,    0,  466
,  514,    0,  468,  358,    0,  581,   54,    0,  749,  122
,    0,   42,   55,    0,  389,   44,    0,  787,  391,    0
,   45,  163,    0,   52,  320,    0,   46,   53,    0,   55
,  287,    0,  341,   64,    0,   67,  164,    0,   58,   68
,    0,   59,   69,    0,  815,   60,   79,  171,   70,    0
,   61,   71,    0,  646,   62,   72,    0,  743,  166,    0
,  952,  183,    0,  494,   62,    0,   79,  125,   70,    0
,   73,  234,    0,   65,  112,    0,   69,  490,    0,   72
,  389,    0,   73,  176,    0,  300,  245,    0,  877,  272
,   38,    0,   40,  180,    0,  759,  400,    0,   53,  819
,    0,  581,   47,    0,  301,  133,    0,  820,  560,    0
,  233,   37,    0,  982,  135,    0,  842,   42,   55,    0
,  432,   47,    0,  962,   66,    0,   79,   70,    0,   37
,   71,    0,   37,  287,    0,  488,  143,    0,  122,  171
,    0,   42,  501,    0,  990,   38,    0,  768,   39,    0
,   60,  242,    0,  122,   61,    0,  769,   42,   62,    0
,   43,   63,    0,   44,  561,    0,   45,   65,    0,   47
,   69,  116,    0,   37,   42,    0,  287,   43,    0,  663
,   44,    0,  146,  472,    0,  843,  477,    0,  147,  270
,    0,  688,   39,    0,   52,   78,    0,  941,  183,    0
,   60,  122,    0,  655,  171,   61,   42,    0,   62,   43
,    0,   63,   44,  401,    0,   64,   45,    0,  726,   67
,   46,    0,   68,   47,    0,   69,  273,    0,   70,   37
,    0,   71,  287,    0,   73,   45,    0,  491,  171,    0
,  699, 1448,    0,   58, 1448,    0,   59,  121,    0,   65
,   52,    0,   66,   53,    0,   67,   54,    0,   69,  242
,    0,   70,  380,   55, 1448,    0,   71,    2,    0,  145
, 1448,    0,   42, 1448,    0,  515,   43,    0,  921,   44
,    0,  983,  906,    0,  658,   64,   45,    0,   66,  181
,    0,   67,   46,    0,   68,   47,    0,  171,   70,    0
,  402,  359,    0,  689,   64,    0,   67,  333,    0,   71
,  124,    0,  125,  276,    0,  242,  821,   37,    0,   38
,   52,    0,   39,   53,  168,    0,   40,   54,    0,  183
,  360,    0,  547,  622,   37,   61,    0,   64,  334,    0
,  779,   68,    0,  859,   6   64,  334,    0
,  779,   68,    0,  859,   69,  250,    0,  122,   70,    0
,   42,   71,    0,   43,   72,  335,    0,  780,   44,    0
,  728,  627,    0,  425,  385,    0,   37,  426,  386,    0
, 1416,  302,    0,  885, 1412,    0,  431,  562,    0,   39
,  432,    0,  171,   37,    0,   38, 1505,  502,    0,   39
,  169,    0,   40,  118,    0,  434,  138,    0,  139,  342
,    0,  435,  140,    0,  516,  387,    0, 1505,  170,   10
,    0, 1505,    8,    0, 1505,  436,    0,   42,   43,    0
,   43,  793,   44,    0,   45,   38,    0,   52,   39,  236
,    0,  907,  822,   53,   40,    0,   46,   54,    0,   42
,   55,  287,    0,   43, 1505,    0,   44,  183,    0, 1505
,   65,    0, 1505,   66,    0,   69,   41,    0, 1507,   70
,   37,   42,    0,   37,   71,   43,    0,   72,   44,    0
,   73,   45,    0,  713,   53,    0,   38,  301,   39,  277
,    0,   39,   40,    0,   40,  184,   58,    0,  984,   62
,    0,  942,  674,   63,    0,  844,   66,    0,  439,   70
,   37,    0,  171,   71,    0,  266,   72,    0,  324,   49
,    0,  122,  761,  440,   42,    0,   42,  762,   43,    0
,   43,   44,    0,   44,  763,  141,  303,    0,  823,   45
,    0,   46,  325,    0,   52,   39,    0,   52,   53,   40
,    0,   53,  928,   54,    0,   55,   84,    0,   68,  122
,    0,   69,   42,    0,   70,   43,    0,   71,   44,    0
,   72, 1094,  404,    0,   73,   64,    0, 1094,   65,   52
,    0,   66,   53,    0, 1094,   67,   54,    0, 1094,   69
,    0,   70,  583,   55,    0,   71,  584,    0,   73,  447
,    0,  448,   56,  190,    0, 1094,  449,   57,    0, 1094
,  451,   58,    0,  452,   59,    0,  453,   60,    0,  454
,   61,    0,   37,  455,  362,   62,    0,  287,  456,   63
,    0,  459,   64,    0,  585,   65,    0,  461,   69,    0
, 1094,  171,   70,    0,  171,   71,    0, 1094,   73,    0
, 1094,  176,    0, 1094,  478,    0, 1094,  116,  463,    0
,  821, 1094,    0, 1336,  389,  405,    0, 1094,  391,    0
, 1094,   39,    0, 1094,   40,    0,   52,   53,    0,   53
,   54,    0,  116,  466,   55,    0,   55,  467,    0,  468
,  304,    0,   59,   79,  171,    0,   60,  774,    0,  930
,   61,   42,    0,   62,   43,    0,   63,   44,    0,  344
,   64,    0,   64,   45,  697,   65,    0,   65,   66,    0
,   66,  563,   67,    0,   67,   46,  406,    0,   68,   47
,   69,    0,   69,  116,   70,    0,   70,  647,   71,    0
,   71,   72,    0,  519,   53,    0,  255,  118,    0,  302
,  247,    0,   72,  263,    0,  771,  278,    0,  764,  731
,    0,   52,  732,  301,    0,  824,   60,    0,  822,   67
,    0,   69,  116,    0,  242,  837,   70,    0,  970,   71
,    0,   72,  183,    0,  330,  629,    0,  909,  675,    0
,  250,  122,    0,  147,   42,    0,  428,   43,    0,  698
,  676,    0, 1350,  438,    0,  649,  171,    0, 1468,   38
,    0,   42,   55,    0,  910,   47,    0,  943,  116,    0
,   37,  587,    0,  183,  407,    0,  736,  117,    0,  713
,   39,    0,  588,   13,    0,   42,   55,   15,    0,  330
,  184,  118,  377,    0,  869,   37,   17,    0,   66,  182
,    0,  464,   70,    0,  700,   71,    0,  701,   72,    0
,  716,  364,    0,  721,  911,    0,   38,  119,    0,  287
,   43,    0,   44,  183,    0,   39,   46,    0,  753,   47
,    0,  723,  301,    0,  122,  506,    0,   44,   83,    0
,  503,   52,    0,  726,   46,   53,    0,   37,   55,    0
,   40,  184,  325,    0,   71,  494,    0,  122,  125,    0
,  860,   42,    0,   43,   84,  264,    0,   45,  479,    0
,   42,  650,    0,   45,  503,    0,   46,   54,    0,  703
,  171,    0,   37,   55, 1357,    0,  504,  183,    0,  498
, 1357,    0,   64, 1357,    0,  592,   65, 1357,    0,   69
,  302, 1510,    0,   71,   24,    0,   38,   52,   25,    0
,   39,   53,    0,   40,   54,   26,    0,   55,  287,   28
,    0,  171,  507,   37,    0,   67,  184,    0,  122,   70
,    0,   42,   71,    0,  896,   43,   72,    0,   44,  520
,    0,  256,   29,    0,   46,   30,    0,  122,  171,  345
,   31,    0,   44,  183,    0,   52,   39,    0,   53,   40
,    0,   52,   67,    0,   54,   68,    0,   69,   41,    0
,   70,   42,    0,   71,   43,    0,   55,   72,   44,    0
,   73,   45,    0,   65,  846,  216,    0,   68,  593,    0
,   71,  494,    0,  945,   37,    0,  797,  631,    0,  727
,  305,    0,   53,   35,    0,  242,   50,    0,   52,   39
,    0,   53,   40,    0,   70,   37,    0,  847,   14,    0
,  677,   52,    0,   46,   54,    0,  302,   55,    0,   38
,  283,    0,   39,  570,    0,  755,   40,   58,    0,  190
,   66,    0,  250,   70,    0,  691,   83,    0,  122,  506
,    0,  287,  410,    0,  897,  551,    0,  932,   52,    0
,   53,  185,    0,   54,   13,    0, 1094,  250,   14,    0
,   55,  651,    0,   58, 1094,    0,   59, 1094,    0,   60
,  171, 1094,    0,   61,  186,    0,   63, 1094,    0, 1094
,   16,    0,   65, 1311,    0,   67, 1094,  414,    0,   68
, 1094,    0,  649,   69, 1094,    0,   70, 1094,  415,    0
,   71,  416,  187,    0,   72,  207,  188,    0,  971,  101
,    0,   73,  102,  189,    0,  103,  190,    0,   68,  192
,    0,   69,  193,    0,  425,   70,  194,    0,   71,  195
,    0,  426,   72,  196,    0,  521,  197,    0,   73,  199
,    0, 1416,   36,    0, 1442,  200,    0, 1442,  202,    0
,  183,  811,    0,  434,   27,    0,  522,   28,    0,  106
,   38,    0,   40,  285,    0,   39,  203,    0,  737,  101
,    0,  385,  121,    0,  437,  678,   44,    0,   32,   45
,    0,  438,   47,    0,   42,   34,    0,   46,  149,    0
,   37,   42,    0,   38, 1358,    0,  440,  287,  209,    0
,  922,   25,    0,  122,  171,    0,  632,   43, 1358,   28
,    0,  848,  745,   44,  183,    0, 1358,  210,    0,   45
,  211,    0,   52,   46,    0,   54,   47,    0,  652,  249
,    0, 1509,  125,    0,  126,   33,    0,   54,   58,    0
,  881,   59,    0,  116,   61,   34,    0,  442,   55,   62
,    0,  443,   63,    0,  445, 1096,  212,    0,  446,   64
,  213,    0,  447,   65,  214,    0,  448,   66,   52,  215
,    0,  449,   67,   53,    0,  450,  184,   54,    0,  451
,   68,    0,  452,   69,    0,  453,   70,    0,  454,   37
,   71,   55,    0,  455,   72,    0,  457,  366,    0,  458
,   73,    0,  459,   64,  367,    0,  460,   65,    0,  827
,   68,   59,    0,  461,   69,   60,  233,    0,   70,   61
,    0,   71,  499,   62,    0,   72, 1096,   63,    0,   73
,   64,    0, 1096,   65,    0, 1096,   67,    0, 1096,   69
,    0,  116,  171,   70,    0,  463,   71,    0,  898,   39
, 1096,    0,  809,   40,    0,  933,  829,    0, 1096,  250
,    0,  464,  596,    0,  466,  308,    0,  468,  183, 1096
, 1094,    0, 1096,   52,    0,  519, 1096,   53,    0, 1096
,   54,    0,  118, 1096,    0,  122, 1096,    0,   42,   55
,    0,   44, 1096,    0,  144, 1312,    0,   46, 1096,    0
,   47, 1096,    0,   64, 1094,    0,   66, 1094,    0,   68
, 1094,    0, 1094,   86,    0,  524,   87,    0,  438, 1094
,    0,  813,  388,    0,  525,  389,    0,  526,  390, 1094
,    0,  567,  391, 1094,    0,  913,  347, 1378,    0,  528
, 1094,    0,  250, 1094,    0,  287,  348,    0,  144,   39
,    0,  301,   40,    0,  530,  667,    0,   52,  573,   46
,    0,   54,   47,    0,   38,   89,    0,   60,  121,    0
,  395,  336,    0,   64,  146,    0,   69,  147,    0,  122
,   37,    0,  533,   43,    0,  534,   44,    0,  537,   45
,    0,  541,   37,    0,  542,   37,    0,   38,   39,    0
,   39,   40,    0,  633,   90,    0,  798,   42,    0,  552
,   44,    0,  746,   52,    0,  122,   42,   55,    0,   42
,  124,   43,    0,   43,   44,    0,   45,   38,    0,   46
,   40,    0,   46,  288,    0,   37,  418,    0,  122,   37
,   71,    0,   43,  692,    0,  126,  252,    0,  116,   42
,    0,   38,   52,    0,   39,   53,    0,   40,   54,    0
,  130,  372,    0,  899,   38,    0,   39,  150,    0,  831
,   63,    0,   69,  171,    0,  122,   70,    0,   42,   71
,  500,   91,    0,  266,   43,   72,    0,  122,  171,    0
,  775,  653,   42,    0,  762,   43,    0,  934,  481,    0
,  519,   53,    0,  862,   55,    0,   52,   53,    0,   53
,   54,    0,  972,  144,    0,   37,   72,    0,   64,   65
,    0,   65,   66,    0,   66,   52,   67,    0,   67,   53
,    0,   54,   68,    0,   68,   69,  219,    0,   69,   70
,    0,   70,   71,  220,    0,   71,  287,   72,    0,   72
,  870,    0,  171,   55,    0,  171,   37,    0,  368,   68
,    0,   52,  301,    0,   53,  349,    0,   42,   55,  350
,    0,   45,   38,    0,   52,   39,    0,   53,   40,    0
,   46,   54,    0,   47,   59,    0,   61,   55,    0,   68
,  666,   59,    0,   69,   60,    0,   70,   61,    0,   71
,   62,    0,   72,   63,    0,   73,   64,    0,  668,   65
,    0,   69,  122,    0,   70,   42,    0,   71,   43,    0
,   72,   44,    0,   73,   45,    0,  786,  152,    0,  946
,  393,    0,   39,  368,    0,  287,   43,    0, 1417,   46
,    0,   53,  680,   47,    0, 1417,  171,    0,   40, 1413
,    0, 1413,  146,    0,   64,   45,    0,   65,   48,    0
,   66,  519,    0,   67,   46,    0,   68,   47,  147,    0
,   71,  553,    0,   73,   86,    0,   54,  221,    0,  122
,   55,    0,   43,   49,    0,   45,   87,    0,   46, 1413
,  290,    0,  635,   64,    0,  122,   70,    0,   71,   50
,    0,   43,   72,    0,  253,   92,    0,  266,  654,    0
,  775,  769,    0,  301,   54,    0,  171,   62,    0,  589
,   65,    0,   38,   66,    0,   39,   89,   67,    0,   52
,   40,    0,   53,   68,    0,   54,   69,    0,   55,  832
,    0,   66,   52,    0,   67,   53,    0,   54,  681,    0
,   68,  122,    0,   69,   42,    0,   70,   43,    0,   71
,   55,   44,    0,   65,   52,    0,   66,   53,    0,   67
,   54,    0,   71,  482,    0,   73,   86,    0,   86,   93
,    0,  144,   38,    0,  900,   39,    0,  682,  154,    0
,  530,   74,    0,   46,   53,    0,  394,   66,    0,   70
,   94,    0,  974,   73,    0,  976,  351,    0,  903,  706
,    0,  523,  183,    0,  285,  291,    0,  620,   69,    0
,  607,   73,    0,  693,  656,    0,  250,   37,    0,  576
,   43,    0,  833,   44,    0,  936,  483,    0,  657,  531
,    0,  669,   39,    0,  554,   45,    0,   41,  311,    0
,  352,   53,    0,  287,   43,    0,  670,   45,    0,  850
,   52,    0,  916,  851,    0,   66,   52,    0,   67,   53
,    0,  620,   69,   75,    0,   71,   55,  287,   76,    0
,   56,   38,    0,  613,   58,    0,   60,  171,    0,  270
,   62,    0,  271,   63,    0,  503,   66,    0,  555,   70
,    0,  233,   71,    0,  986,  771,    0,  272,   52,    0
,  512,   65,  254,    0,  620,   69,    0,  772,   71,    0
,  787,   73,    0,   41,   37,    0,   43,   80,    0,   44
,  485,    0,   45,   74,    0,   46,  597,   54,    0,  547
,   37,    0,  902,  614,    0,  644,  233,    0,  509,   38
,    0,  544,   39,  299,    0,  758,   40,    0,  274,   70
,    0,  694,   72,    0,  116,  121,    0,  671,   43,    0
,   37,   42,    0,   50,   44,    0,  503,   56,   38,    0
,   57,   39,    0,   59,  122,    0,   60,   42,    0,   61
,  287,   43,    0,  773,   62,   44,    0,  504,   63,    0
,   66,   46,    0,   69,  171,    0,   70,  124,    0,  638
,  238,    0,  120,   52,    0,  438,  548,  156,    0,  917
,   55,    0,   64,  130,    0,  925,   65,    0,   66,  224
,    0,   68,   59,    0,   69,   60,    0,   70,   61,    0
,   71,  353,  287,   62,    0,  790,   72,   63,    0,  567
, 1390,    0,   73,   64,    0,  707,   65,    0,  171,   70
,    0,  250,  354,    0,  287,  132,    0,  116,  171,    0
,  116,   55,    0,   65, 1390,    0,   74,   66,    0,   52
,   67,    0,   53, 1390,    0,   54,   68,  175,    0,   55
,   72,    0,   73,  136,    0,   58,  486,  138,    0,   59
,  139,    0,   60,  140,    0,   37,   71,    0,  835,   44
,    0,   40,  684,    0,   47,  331,    0,  802,  190,    0
,   54,  191,    0,  355,  193,    0,  269,  196,    0,   38
,  202,    0,   52,   88,    0,   53,  549,    0,  987,   54
,    0,  147,   42,    0,   55,  550,   44,    0,   65,   78
,    0,   68,  205,    0,   69,  206,    0,  233,   37,  287
,    0,   53,  228,    0,  493,   64,  146,    0,  980,   45
,   65,    0,   68,   97,    0,   47,   69,  147,    0,   90
,   32,    0,   37,   34,    0,  659,   99,    0,  395,  146
,  317,    0,  147,   79,    0,  147,  171,    0,  579,  488
,    0,   44,  397,    0)  ;
        --| Actions to perform for all combinations of parser
        --| states and input tokens.
        -- NYU Reference Name: ACTION_TABLE1

    ActionTableTwo :
        constant array (ActionTableTwoRange)
        of GC.ParserInteger :=
         (    0,211308,    0,    0,    0,211312,    0,    0,    0,    0
,336959,    0,142787,    0,211321,211322,    0,211324,    0,211326
,    0,    0,211329,211330,211331,211332,    0,211334,211335,211336
,211337,211338,142807,    0,211341,    0,    0,148523,    0,    0
,    0,    0,    0,11465,    0,11467,11468,11469,    0,    0
,    0,    0,    0,91429,    0,142830,    0,    0,    0,    0
,    0,    0,    0,    0,182816,    0,142841,331305,    0,    0
,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0
,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0
,    0,148577,    0,182845,    0,    0,57206,    0,314203,142874
,142875,142876,    0,    0,    0,142880,28661,114327,    0,154306
,154307,    0,    0,    0,142889,142890,142891,    0,142893,    0
,    0,262827,142897,142898,    0,    0,114346,    0,142903,    0
,    0,142906,    0,    0,    0,    0,337085,11559,    0,337088
,337089,    0,    0,    0,    0,    0,    0,    0,    0,    0
,    0,    0,    0,    0,337103,    0,    0,    0,    0,    0
,    0,337110,245735,245736,245737,    0,337115,    0,337117,    0
,    0,    0,    0,74416,    0,200060,    0,337126, 5889,    0
,337129,    0,337131,337132,    0,    0,    0,    0,    0,    0
,    0,120122,245765,    0,245767,245768,    0,    0,245771,120130
,    0,    0,    0,    0,    0,    0,    0,337156,    0,    0
,    0,    0,    0,120144,    0,    0,    0,    0,120149,    0
,211527,    0,120153,40200,    0,    0,120157,    0,    0,    0
,34496,    0,    0,    0,    0,120166,40213,280076,    0,    0
,120171,    0,    0,    0,    0,302928,    0,    0,348619,    0
,    0,120182,11674,    0,120185,    0,120187,120188,325785,    0
,    0,    0,    0,    0,360057,    0,    0,    0,    0,    0
,325797,11693,    0,    0,    0,342935,    0,    0,    0,    0
,    0,    0,194456,245856,    0,325812,    0,    0,    0,120220
,    0,    0,    0,    0,217312,148781,    0,325824,    0,    0
,325827,337250,    0,337252,85969,217323,291567,    0,    0,    0
,    0,    0,    0,245886,245887,245888,    0,    0,    0,245892
,    0,    0,    0,    0,    0,51724,51725,    0,    0,68861
,    0,    0,    0,217351,    0,34601,245909,245910,    0,    0
,291601,    0,    0,245916,    0,    0,337295,    0,    0,337298
,    0,    0,337301,    0,    0,    0,    0,    0,    0,337308
,    0,337310,337311,51762,    0,51764,    0,    0,291629,291630
,291631,    0,    0,360166,    0,120306,120307,    0,    0,    0
,    0,337330, 6093,    0,    0,325912,    0,    0,91764,91765
,217408,    0,    0,    0,    0,    0,    0,245970,154595,    0
,    0,    0,325929,    0,    0,337354,337355,    0,    0,    0
,    0,17544,    0,    0,103212,120346,    0,91793,    0,    0
,    0,    0,120353,    0,120355,120356,    0,120358,    0,120360
,120361,    0,120363,    0,120365,120366,120367,    0,126080,    0
,126082,120372,51841,217461,    0,    0,120377,    0,    0,    0
,    0,    0,    0,    0,    0,120386,    0,    0,    0,    0
,    0,    0,  462,314568,    0,    0,    0,    0,    0,188932
,    0,    0,    0,    0,    0,51874,    0,    0,217496,120410
,120411,    0,120413,    0,    0,    0,40463,    0,    0,291750
,    0,    0,40469,    0,    0,291756,    0,    0,51897,51898
,    0,51900,    0,    0,    0,    0,51905,51906,    0,    0
,51909,    0,291773,291774,291775,291776,    0,291778,291779,    0
,291781,    0,    0,263229,    0,    0,    0,    0,23372,280368
,217548,    0,337481,    0,    0,217553,    0,    0,91914,91915
,91916,    0,40519,211850,91920,211852,    0,    0, 6259,    0
,    0,    0,228992,    0,91930,    0,    0,91933,    0,    0
,211867,    0,    0,91939,    0,211872,    0,91943,    0,    0
,    0,    0,    0,91949,    0,34841,120507,34843,211885,326106
,217598,229021,229022,229023,229024,    0,    0,    0,217606,217607
,    0,217609,    0,    0,    0,    0,29151,    0,    0,189062
,    0,189064,211909,211910,    0,    0,211913,    0,211915,    0
,    0,    0,46300,354695,354696,    0,    0,    0,    0,    0
,354702,    0,    0,    0,    0,    0,    0,    0,    0,    0
,    0,    0,177673,211940,286184,229075,    0,    0,    0,    0
,    0,297613,    0,    0,    0,    0,194820,    0,    0,    0
,143425,217669,    0,    0,    0,    0,    0,343317,229098,    0
,    0,    0,    0,    0,    0,    0,    0,    0,86333,    0
,    0,    0,23516,  673,  674,  675,  676,    0,    0,  679
,    0,    0,    0,    0,    0,    0,    0,    0,52087,    0
,    0,154888,    0,69225,212001,    0,    0,326224,    0,    0
,291961,126343,    0,    0,229144,    0,    0,212014,    0,    0
,    0,263417,143487,274841,    0,    0,    0,229157,    0,    0
,    0,    0,    0,    0,52123,229165,229166,    0,    0,    0
,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0
,126382,    0,126384,35009,    0,314850,    0,    0,    0,    0
,    0,92127,    0,92129,    0,    0,263462,    0,    0,    0
,    0,    0,    0,    0,263470,263471,263472,    0,    0,263475
,212077,212078,212079,212080,212081,212082,212083,212084,212085,    0
,212087,    0,    0,    0,    0,    0,212093,    0,212095,    0
,92166,    0,92168,    0,    0,52194,    0,    0,    0,    0
,    0,    0,    0,    0,    0,    0,52205,212114,126450,    0
,    0,    0,    0,    0,132167,132168,    0,120748,    0,126461
,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0
,    0,212138,212139,    0,212141,    0,    0,    0,    0,52238
,52239,    0,    0,160751,    0,    0,132199,    0,229288,    0
,    0,    0,    0,    0,126496,132208,40833,    0,    0,    0
,    0,    0,    0,52262,52263,    0,    0,    0,    0,    0
,    0,    0,126514,    0,52273,126517,126518,126519,126520,    0
,126522,126523,126524,126525,126526,    0,    0,126529,    0,23733
,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0
,    0,    0,92278,92279,92280,    0,    0,    0,92284,    0
,    0,    0,    0,    0,12336,98002,    0,92293,92294,92295
,92296,    0,92298,    0,    0,92301,92302,92303,92304,    0
,92306,92307,    0,92309,92310,    0,    0,    0,    0,    0
,    0,    0,    0,    0,63765,    0,    0,    0,    0,    0
,217968,132304,    0,    0,    0,246528,    0,    0,303641,    0
,303643,303644,    0,    0,    0,132318,132319,132320,    0,    0
,    0,132324,    0,    0,    0,    0,257971,    0,    0,46667
,    0,    0,    0,    0,    0,    0,    0,    0,132341,    0
,132343,132344,    0,132346,    0,132348,132349,    0,126640,126641
,    0,    0,172332,    0,    0,    0,    0,103805,    0,    0
,195184,    0,    0,    0,    0,    0,    0,63838,    0,    0
,52419,143796,143797,    0,    0,    0,    0,    0,    0,326556
,    0,    0,    0,    0,    0,    0,    0,    0,23882,218057
,    0,    0,    0,178084,    0,    0,303729,    0,    0,    0
,    0,    0,    0,52452,    0,    0,    0,    0,    0,    0
,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0
,143845,332309,178113,    0,    0,    0,    0,    0,    0,303762
,    0,303764,52481,52482,52483,52484,    0,    0,52487,    0
,    0,52490,    0,    0,    0,320911,    0,18230,46786,    0
,    0,    0,    0,    0,    0,    0,    0,35373,    0,35375
,    0,    0,    0,    0,    0,    0,    0,    0,    0,183871
,    0,275249,    0,275251,275252,    0,    0,    0,    0,    0
,    0,    0,109641,    0,    0,263841,    0,    0,332376,    0
,    0,103939,    0,    0,    0,    0,    0,    0,18281,    0
,18283,    0,    0,18286,    0,    0,18289,18290,18291,52558
,    0,    0,355244,    0,    0,298137,    0,    0,    0,    0
,52569,    0,    0,    0,    0,    0,    0,315282,132531,132532
,132533,    0,    0,    0,    0,    0,    0,    0, 1188,    0
,    0,    0,    0,    0,    0,143970,    0,    0,    0,    0
,281039,    0,    0,52602,52603,52604,    0,    0,132561,    0
,132563,132564,    0,    0,132567,    0,    0,132570,    0,    0
,    0,    0,    0,    0,    0,    0,52625,52626,    0,52628
,    0,52630,52631,    0,    0,52634,    0,    0,52637,    0
,    0,    0,275370,275371,275372,    0,    0,    0,    0,281088
,    0,    0,    0,321069,    0,    0,    0,    0,    0,    0
,    0,    0,132615,    0,    0,    0,155463,155464,155465,    0
,    0,    0,    0,    0,18407,18408,    0,    0,    0,    0
,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0
,    0,    0,    0,    0,    0,    0,    0,    0,155495,155496
,    0,    0,155499,    0,    0,155502,    0,155504,    0,104107
,    0,    0,    0,    0,35580,    0,    0,286867,286868,286869
,    0,    0,    0,    0,229764,    0,    0,    0,    0,132682
,132683,132684,    0,    0,    0,132688,    0,    0,    0,    0
,258335,    0,    0,104141,132697,132698,    0,    0,    0,    0
,    0,    0,132705,    0,132707,132708,286906,132710,    0,132712
,132713,132714,    0,    0,132717,    0,    0,344027,    0,    0
,    0,104169,    0,    0,    0,    0,    0,104175,    0,269796
,104178,    0,104180,12805,155581,    0,    0,    0,    0,    0
,344050,    0,121323,121324,121325,121326,    0,    0,52797,    0
,    0,286951,    0,    0,144179,    0,144181,    0,    0,    0
,    0,    0,252696,    0,    0,    0,    0,    0,155615,155616
,    0,    0,    0,155620,286974,    0,    0,    0,52827,    0
,    0,    0,155629,155630,    0,    0,    0,    0,309832,    0
,    0,155638,155639,    0,    0,    0,    0,    0,    0,155646
,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0
,    0,    0,    0,    0,47152,    0,    0,    0,287018,287019
,287020,41448,    0,    0,287024,    0,    0,    0,18611,92855
,92856,92857,    0,    0,    0,287035,287036,287037,287038,    0
,    0,287041,    0,    0,    0,    0,287046,    0,    0,    0
,287050,    0,18635,287053,    0,    0,    0,104305,18641,92885
,    0,    0,    0,    0,    0,    0,104314,    0,    0, 1519
,    0,104319,    0,104321,104322,258520,    0,104325,    0,    0
,    0,    0,    0,287083,    0,    0,    0,    0,332776,    0
,    0,    0,    0,    0,    0,    0,    0,184299,    0,    0
,    0,    0, 1552,    0,    0,144330,144331,144332,    0,    0
,    0,144336,41539,    0,    0,224294,224295,    0,    0,    0
,18703,52970,224301,52972,    0,    0,    0,    0,    0,144354
,144355,    0,    0,144358,144359,144360,    0,144362,    0,    0
,144365,    0,    0,    0,    0,    0,    0,    0,    0,    0
,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0
,    0,321427,115832,    0,    0,    0,92992,    0,    0,41596
,    0,    0,    0,264329,    0,    0,    0,    0,    0,    0
,    0,    0,    0,    0,    0,    0,93012,    0,    0,    0
,    0,93017,    0,    0,    0,93021,93022,93023,    0,93025
,93026,338600,    0,    0,93030,93031,93032,    0,    0,    0
,    0,    0,    0,    0,    0,93041,155863,287217,    0,155866
,    0,155868,64493,    0,    0,    0,    0,    0,    0,    0
,121611,121612,121613,    0,    0,138749,    0,    0,230128,    0
,    0,    0,110201,110202,    0,    0,321512,    0,    0,    0
,104498,218719,    0,    0,    0,    0,104504,    0,    0,    0
,    0,121642,    0,121644,    0,    0,121647,    0,161626,121650
,161628,121652,    0,161631,235875,    0,    0,    0,    0,    0
,    0,    0,161640,    0,    0,218753,161644,    0,195912,    0
,    0,161649,    0,    0,327271,    0,327273,    0,    0,    0
,    0,104549,104550,104551,161662,    0,    0,    0,    0,    0
,    0,    0,    0,    0,    0,    0, 1766,    0, 1768,    0
,161678,    0,218790,    0,327301,    0,    0,327304,    0,    0
,    0,    0,    0,    0,    0,327312,235937,    0,    0,    0
,218808,218809,235943,    0,    0,235946,    0,235948,121729,    0
,161708,218819,218820,298775,156001,    0,    0,156004,    0,156006
,    0,    0,    0,    0,    0,    0,    0,    0,    0,53218
,    0,53220,    0,    0,    0,    0,    0,    0,    0,    0
,    0,121762,    0,121764,    0,    0,    0,121768,    0,293100
,    0,    0,13264,93219,    0,    0,    0,121778,121779,121780
,    0,    0,    0,    0,121785,121786,    0,121788,    0,121790
,121791,    0,    0,    0,    0,    0,121797,    0,    0,    0
,    0,236022,    0,93249,    0,    0,    0,    0,104676,    0
,258875,    0,93258,    0,93260,258880,    0,53286,    0,104687
,    0, 1891,    0,59003,    0,    0,    0,327424,53297,    0
, 1900,327428,    0,321719,281743,    0,    0,236058,236059,236060
,    0,    0,    0,    0,    0,    0,    0,    0,327445,327446
,327447,327448,    0,    0,    0,    0,    0,    0,258923,59039
,    0,    0,    0,    0,    0,236086,    0,    0,    0,236090
,161848,161849,    0,    0,    0,161853,    0,    0,    0,    0
,    0,    0,161860,161861,    0,    0,53355,53356,    0,53358
,    0,    0,    0,53362,    0,161873,    0,    0,281807,281808
,281809,281810,281811,    0,    0,    0,    0,121908,    0,281818
,281819,    0,247555,    0,    0,    0,281825,281826,281827,    0
,    0,    0,    0,    0,93370,    0,    0,258992,161906,161907
,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0
,259005,    0,    0,    0,    0,    0,304699,    0,    0,    0
,    0,    0,93398,    0,    0,    0,    0,259022,    0,93405
,259025,    0,    0,    0,    0,    0,    0,    0,    0,156236
,13462,    0,    0,    0,59154,    0,59156,    0,    0,    0
,59160,    0,    0,    0,110563,    0,    0,    0,    0,    0
,259055,    0,    0,    0,    0,    0,247639,133420,59178,59179
,59180,    0,59182,59183,59184,59185,    0,    0,    0,    0
,    0,    0,    0,    0,    0,87750,    0,    0,    0,247662
,    0,    0,    0,53492,    0,    0,    0,    0,    0,    0
,247673,    0,196276,    0,87769,    0,    0,270524,    0,207705
,    0,    0,207708,344773,    0,    0,327643,    0,219136,    0
,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0
,    0,    0,    0,    0,247707,247708,    0,    0,    0,247712
,    0,    0,    0,    0,    0,    0,    0,264853,247721,247722
,    0,247724,247725,247726,    0,    0,247729,247730,247731,    0
,    0,247734,    0,    0,    0,    0,    0,    0,247741,    0
,    0,    0,    0,327700,53573,219193,53575,53576,    0,    0
,    0,    0,    0,156380,344844,    0,344846,    0,    0,    0
,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0
,    0,    0,    0,293464,    0,    0,202091,    0,    0,    0
,    0,    0,    0,310607,    0,82169,    0,247790,    0,    0
,    0,    0,127864,    0,    0,    0,219244,    0,219246,    0
,    0,    0,184984,    0,    0,    0,    0,    0,287788,    0
,    0,    0,    0,259238,259239,    0,219264,    0,219266,    0
,259245,333489,    0,259248,    0,    0,339205,    0,    0,    0
,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0
,    0,    0,344932,    0,    0,    0,    0,    0,    0,    0
,    0,    0,    0,    0,    0,253569,    0,    0,    0,    0
,    0,    0,    0,    0,    0,    0,    0,    0,53697,    0
,    0,333539,    0,    0,    0,    0,    0,25151,282147,25153
,    0,    0,    0,299285,    0,    0,    0,    0,    0,    0
,    0,145096,    0,    0,    0,    0,    0,87992,322144,247902
,    0,282170,282171,    0,219352,    0,    0,    0,    0,    0
,25184,    0,    0,25187,190807,230785,    0,    0,    0,    0
,    0,    0,    0,    0,    0,    0,    0,76600,    0,    0
,    0,    0,    0,    0,    0,    0,    0,322183,    0,82323
,    0,    0,    0,    0,    0,82329,    0,173707,270795,    0
,    0,322197,    0,    0,    0,322201,    0,    0,156585,    0
,    0,247964,    0,    0,    0,    0,    0,    0,    0,    0
,282239,105199,    0,    0,213711,    0,    0,    0,    0,    0
,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0
,139484,    0,    0,    0,    0,    0,    0,    0,139492,    0
,    0,    0,    0,    0,105232,105233,253720,    0,168057,    0
,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0
,31005,    0,    0,    0,    0,345115,333694,    0,25302,25303
,25304,213768,    0,105261,    0,105263,105264,    0,    0,105267
,    0,    0,105270,345133,    0,    0,139540,345137,    0,    0
,    0,76724,    0,    0,25328,    0,179527,    0,25332,25333
,25334,    0,    0,    0,    0,    0,    0,    0,    0,    0
,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0
,    0,    0,345172,    0,    0,    0,    0,    0,    0,    0
,    0,    0,    0,    0,    0,    0,145301,    0,    0,    0
,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0
,105338,    0,    0,88208,    0,    0,    0,156744,13970,219567
,    0,105349,76795,    0,    0,    0,    0,    0,128200,185311
,    0,185313,    0,    0,    0,    0,    0,    0,    0,322385
,    0,    0,    0,    0,    0, 2575,    0,145352,    0,82533
,    0,    0,168201,    0,105382,105383,105384,    0,    0,185341
,    0,185343,185344, 2593,    0,185347,    0,145372,185350,    0
,185352,    0,    0,    0,    0,179646,    0,105405,105406,    0
,105408,168230,105410,105411,    0,    0,    0,213924,    0,105417
,93996,    0,322438,322439,322440,322441,    0,    0,    0,311023
,    0,    0,    0,    0,    0,133988,133989,    0,    0,133992
,191103,    0,    0,185395,    0,    0,    0,    0,    0,    0
,    0,    0, 2652, 2653,    0, 2655, 2656,    0,    0,    0
,    0,    0,    0,276791,134017,134018,    0,    0,    0,    0
,134023,    0,191135,    0,191137,    0,    0,185429,    0,    0
,    0,    0,42659,    0,    0,    0,    0,    0,    0,    0
,156887,    0,    0,    0,    0,    0,    0,282536,    0,    0
,    0,    0,    0,191166,191167,    0,    0,    0,191171,    0
,    0,    0,185464,191176,    0,    0,    0,    0,356800,    0
,    0,76964,156919,156920,    0,185477,185478,185479,185480,185481
,185482, 2731, 2732,185485,185486,185487,185488,    0,185490,185491
,185492,    0,185494,    0,    0,185497,    0,    0,305431,305432
,305433,    0,    0,    0,    0,156952,    0,    0,    0,31314
,    0,156958,259757,156960,65585,    0,356848,    0,    0,    0
,31325,134124,    0,    0,31329,31330,31331,    0,305461,    0
,305463,305464,111291,    0,    0,134138,134139,    0,    0,305472
,    0,    0,    0,31348,    0,    0,134149,    0,    0,    0
,    0,    0,    0,    0,31359,31360,157003,168426,    0,    0
,134163,134164,    0,134166,    0,134168,    0,134170,    0,    0
,134173,    0,    0,    0,    0,    0, 2826,    0,254112,    0
,    0,    0,    0,    0,    0,    0,    0,    0,    0,259834
,    0,    0,    0,    0,    0,77088,191309,191310,191311,    0
,    0,191314,191315,    0,    0,    0,    0,185609,191321,254143
,231300,    0,    0,    0,254148,    0,    0,    0,328395,    0
, 2870, 2871,54271,    0,    0,157072,    0,    0, 2878,157076
,    0,    0,    0,    0,    0,    0,    0,    0,157085,157086
,157087,157088,157089,157090,259889,    0,157093,157094,157095,    0
,305583,    0,    0,    0,    0,    0,    0,    0,    0,    0
,    0,54310,    0,54312,    0,    0,77159,    0,    0,    0
,    0,    0,305605,    0,305607,305608,311320,    0,305611,305612
,    0,305614,    0,    0,305617,157132,294197,    0,157135,    0
,    0,254225,    0,    0,    0,    0,277074,277075,    0,    0
,    0,328478,    0,277081,    0,    0,54355,    0,    0,299931
,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0
,265676,    0,    0,    0,254258,    0,254260,    0,    0,    0
,254264,    0,    0,    0,    0,    0,225715,    0,    0,328516
,54389,174321,357074,    0,    0,    0,    0,254281,254282,254283
,254284,    0,254286,254287,    0,254289,254290,    0,    0,254293
,    0,    0,    0,    0,117234,    0,225745,225746,225747,225748
,    0,    0,225751,    0,54423,    0,    0,225756,    0,    0
,117250,    0,    0,117253,    0,    0,    0,    0,    0,54438
,54439,54440,54441,54442,117264,    0,54445,54446,    0,54448
,    0,54450,54451,    0,54453,54454,    0,    0,54457,    0
,231500,88726,    0,    0,    0,    0,    0,191530,191531,191532
,225799,    0,191535,83027,357156,191538,    0,191540,    0,    0
,    0,    0,357164,140147,    0,265791,    0,    0,    0,    0
,    0,174421,117312,    0,117314,117315,117316,    0,    0,    0
,    0,    0,    0,    0,225833, 8816,140170,    0,    0,    0
,140174,    0,140176,    0,    0,140179,    0,    0,    0,    0
,    0,    0,    0,    0,    0,140189,260121,    0,    0,    0
,357212,157328,    0,    0,    0,65956,322952,    0,    0,    0
,    0,    0,    0,    0,    0,140209,140210,140211,140212,140213
,140214,140215,    0,    0,    0,    0,225885,    0,    0,140223
,225889,    0,225891,    0,    0,    0,    0,    0,    0,    0
,117390,    0,    0,    0,168793,    0,168795,    0,    0,    0
,168799,123112,    0,    0,334422,54584,    0,191650,191651,191652
,    0,    0,    0,191656,    0,    0,    0,    0,    0,    0
,    0,    0,    0,260198,    0,    0,    0,271624,    0,    0
,191673,191674,191675,191676,31769,    0,    0,    0,    0,    0
,    0,31776,    0,    0,    0,294486,    0,294488,    0,    0
,294491,    0,    0,    0,    0,31790,    0,    0,    0,294500
,294501,    0,111751,294504,294505,    0,    0,    0,294509,    0
,    0,    0,294513,    0,294515,186007,117476,237408,    0,    0
,283099,294522,    0,117483,    0,117485,    0,94643,294529,    0
,    0,117491,    0,117493,    0,111784,    0,294538,    0,    0
,294541,    0,294543,294544,    0,174615,    0,186039,    0,186041
,31845,31846,31847,    0,31849,31850,    0,31852,31853,94675
,94676,94677,    0,    0,    0,111814,111815,    0,    0,    0
,    0,117531,    0,111822,    0,    0,    0,186069,    0,186071
,186072,    0,    0,186075,    0,    0,    0,    0,186080,94705
,    0,94707,94708,151819,    0,94711,    0,    0,94714,    0
,94716,    0,    0,    0,    0,    0,    0,    0,    0,    0
,    0,    0,    0,    0,    0,    0,357438,    0,111867,    0
,    0,    0,    0,134716,134717,    0,    0,    0,294629,    0
,    0,    0,    0,117593,    0,    0,    0,117597,117598,117599
,    0,    0,151868,94759,    0,    0,266092,317492,    0,    0
,31945,31946,    0,134746,    0,    0,    0,117617,    0,31954
,    0,    0,294663,    0,    0,186157,94782,117627,117628,    0
,    0,117631,117632,    0,    0,    0,43393,    0,    0,    0
,    0,    0,    0,    0, 9135,111934,111935,111936,    0,    0
,    0,111940,    0,    0,    0,31990,    0,    0,186190,186191
,    0,    0,111951,    0,    0,    0,294707,    0,    0,    0
,    0,    0,    0,    0,    0,    0,    0,    0,294719,    0
,    0,    0,    0,186215,186216,94841,    0,    0,    0,    0
,    0,    0,294733,    0,    0,94851,    0,    0,94854,    0
,    0,    0,94858,249056,    0,94861,    0,32042,214795,    0
,    0,    0,    0,    0,266200,157692,    0,    0,66319,    0
,    0,    0,169121,    0,    0,    0,294767,    0,294769,    0
,140574,140575,140576,    0,    0,    0,    0,140581,    0,    0
,214827,    0,140586,140587,214831,    0,    0,    0,    0,    0
,140594,140595,14954,    0,    0,    0,    0,134890,    0,134892
,    0,    0,134895,134896,134897,134898,    0,346207,134901,    0
,    0,14973,    0,    0,    0,    0,    0,    0,    0,311953
,    0,    0,    0, 9274,    0,    0,    0,    0,54967,    0
,    0,    0,    0,14995,14996,14997,14998,14999,15000,15001
,15002,    0,    0,15005,15006,15007,    0,15009,15010,    0
,    0,15013,    0,15015,    0,    0,    0,    0,311992,    0
,54999,    0,    0,    0,346264,    0,214913,    0,    0,    0
,    0,    0,    0,    0,    0,    0,    0,197791,    0,186371
,    0,37887,260617,55022,    0,    0,    0,    0,    0,    0
,55029,55030,55031,55032,    0,    0,55035,    0,    0,    0
,214947,    0,    0,    0,    0,214952,    0,    0,    0,    0
,    0,    0,186404,186405,214961,214962,    0,214964,214965,214966
,220678,    0,    0,214970,214971,214972,    0,214974,    0,214976
,214977,214978,312066,    0,214981,    0,    0,    0,312072,    0
,    0,    0,186434,    0,    0,312079,312080,    0,312082,312083
,186442,    0,186444,312087,    0,    0,    0,352068,    0,    0
,312094,    0,312096,312097,215011,    0,    0,55106,    0,    0
,    0,312105,    0,60823,60824,60825,    0,    0,55117,    0
,    0,    0,    0,    0,    0,    0,135079,    0,    0,300701
,    0,26575,    0,    0,    0,    0,    0,    0,32293,    0
,32295,255025,    0,60853,    0,60855,    0,    0,    0,60859
,    0,    0,55151,55152,226483,    0,135109,    0,    0,    0
,300732,    0,135115,    0,26608,    0,    0,135120,300740,186521
,    0,    0,    0,    0,55173,55174,55175,55176,    0,55178
,55179,55180,    0,55182,    0,283624,55185,43764,    0,    0
,    0,    0,266498,26637,    0,26639,26640,    0,    0,26643
,    0,    0,    0,    0,    0,    0,    0,186559,186560,186561
,    0,186563,    0,    0,    0,    0,158013,186569,186570,186571
,186572,186573,    0,    0,    0,186577,186578,186579,186580,    0
,186582,    0,    0,    0,    0,249408,    0,186589,249411,    0
,    0,249414,    0,249416,    0,    0,    0,158044,300820,    0
,158047,15273,    0,158050,    0,158052,66677,    0,    0,158056
,    0,    0,    0,    0,60974,    0,60976,192330,    0,    0
,    0,    0,232312,    0,    0,306558,306559,135230,    0,    0
,300852,26725,306565,135236,300856,    0,249459,    0,    0,    0
,61000,    0,61002,61003,61004,61005,    0,    0,158095,203784
,135253,    0,    0,    0,    0,    0,    0,    0,    0,    0
,    0,    0,135265,300885,26758,26759,26760,    0,    0,    0
,    0,158118,    0,    0,    0,    0,    0,    0,329455,329456
,329457,    0,    0,    0,    0,    0,    0,    0,26782,26783
,26784,    0,    0,26787,26788,26789,26790,    0,55347,    0
,    0,    0,    0,    0,    0,249528,    0,    0,329485,    0
,329487,329488,    0,    0,    0,    0,    0,    0,249541,    0
,249543,    0,249545,249546,220992,    0,249549,249550,249551,249552
,158177,    0,    0,    0,    0,    0,21119,    0,    0,    0
,158187,158188,    0,158190,    0,    0,    0,    0,    0,    0
,    0,    0,    0,55402,    0,55404,    0, 4007,    0,    0
,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0
,    0,    0,    0,    0,    0,    0,203911,    0,186780,    0
,    0,    0,    0,278161,318139,329562,    0,    0,112547, 4039
, 4040, 4041,215349,21176,    0,215352,329573,    0,    0,329576
,    0,    0,    0,    0,    0,243917,    0,    0,    0,301031
,    0,181102,    0,    0,    0,    0,318171,    0,318173, 4069
, 4070,    0, 4072,    0,    0, 4075,    0,    0,    0,329606
,    0,329608,    0,    0,278212,329612,335324,    0,    0,    0
,    0,301063,301064,    0,    0,    0,318201,318202,318203,318204
,152586,    0,    0,    0,    0,    0,278234,    0,329635,329636
,    0,329638,    0,    0,    0,55514,55515,    0,    0,    0
,    0,    0,301094,    0,301096,    0,    0,    0,38394,    0
,    0,    0,301104,    0,    0,    0,    0,    0,    0,55538
,55539,55540,    0,55542,55543,    0,    0,    0,118368,    0
,55549,    0,    0,    0,    0,    0,    0, 4157,    0,    0
,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0
,    0,    0,    0,    0,358256,301147,    0,244039,244040,    0
,    0,    0,    0,49871,    0,318290,95562,318292,    0,    0
, 4190, 4191,    0,    0,266900,    0, 4196,    0,301170,    0
,    0,    0, 4202, 4203,    0, 4205, 4206, 4207, 4208,    0
, 4210,    0,    0, 4213,    0,    0,    0,    0,    0,    0
, 4220, 4221, 4222,    0,324040, 4225,    0,    0,    0,    0
,    0,    0,255516,118453,    0,    0,    0,    0,    0,    0
,318345,318346,    0,    0,    0,    0,    0,    0,    0,318354
,    0,49939,318357,    0,49942,    0,49944,301229,301230,301231
,301232,301233,301234,    0,    0,301237,    0,    0,    0,    0
,301242,301243,301244,    0,301246,346935,    0,    0,    0,289829
,    0,    0,    0,    0,    0,    0,147061,    0,    0,147064
,    0,    0,    0,346953,    0,    0,55695,147072,147073,    0
,38566,    0,    0,84257,    0,    0,    0,    0,    0,    0
,    0,    0,    0,147088,    0,    0,147091,    0,    0,    0
,    0,    0,50010,    0,    0,147100,    0,    0,    0,    0
,55729,    0,346992,50021,    0,    0,    0,    0,    0,    0
,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0
,    0,    0,    0,    0,    0,    0,    0,    0,55757,55758
,55759,55760,    0,    0,55763,    0,50054,    0,50056,55768
,    0,    0,50060,    0,    0,    0,    0,    0,    0,    0
,    0,    0,    0,    0,    0,    0,    0,    0,    0,50077
,50078,    0,50080,    0,50082,50083,    0,50085,50086,147174
,    0,    0,347062,    0,    0,147180,    0,    0,    0,84363
,147185,147186,147187,147188,147189,147190,147191,    0,    0,    0
,147195,147196,147197,    0,187176,    0,    0,147202,    0,147204
,147205,    0,    0,    0,    0,55834,    0,    0,147213,    0
,    0,    0,    0,    0,    0,    0,55845,244309,    0,    0
,    0,    0,    0,    0,    0,    0,    0,    0,    0,152945
,    0,    0,    0,10174,    0,    0,    0,    0,    0,255753
,    0,    0,255756,    0,    0,    0,84430,    0,38744,55878
,55879,55880,    0,    0,    0,55884,347146,    0,347148,    0
,175820,38757,38758,    0,    0,    0,    0,141561,175828,175829
,    0,    0,55901,55902,55903,55904,    0,55906,    0,55908
,55909,55910,    0,    0,    0,    0,    0,284356,244380,    0
,244382,    0,192985,    0,    0,    0,175856,    0,    0,175859
,    0,    0,    0,    0,    0,    0,    0,301509,    0,    0
,    0,    0,    0,    0,118764,    0,    0,    0,    0,    0
,    0,    0,33107,175883,    0,    0,    0,    0,267264,84513
,    0,    0,    0,341512,    0,    0,    0,33122,    0,    0
,    0,    0,    0,284412,    0,    0,    0,    0,    0,    0
,38846,    0,    0,    0,67405,    0,    0,    0,    0,    0
,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0
,    0,    0,193065,    0,    0,    0,244468,    0,    0,    0
,90275,    0,    0,    0,175944,    0,175946,107415,    0,107417
,    0,    0,    0,    0,    0,    0,    0,    0,124559,    0
,    0,175961,    0,    0,    0,    0,    0,    0,255922,    0
,    0,10352,90307,90308,90309,    0,    0,107445,107446,107447
,107448,    0,    0,    0,10365,10366,107454,    0,107456,    0
,56059,    0,    0,    0,38930,    0,    0,    0,    0,    0
,    0,    0,    0,90338,90339,90340,347336,    0,90343,    0
,    0,90346,124613,90348,    0,    0,    0,    0,    0,    0
,    0,    0,56091,56092,56093,    0,    0,    0,    0,    0
,    0,    0,    0,    0,    0,67526,    0,67528,    0,    0
,    0,    0,    0,    0,    0,    0,    0,313111,    0,    0
,    0,    0,56121,56122,    0,56124,90391,    0,    0,    0
,    0,56130,    0,56132,    0,107533,    0,    0,    0,    0
,    0,    0,    0,10454,    0,    0,21879,39013,    0,90414
,    0,    0,221770,84707,    0,    0,    0,    0,    0,    0
,90425,    0,    0,204648,    0,113274,113275,    0,    0,107567
,107568,    0,113281,    0,107572,    0,    0,    0,    0,    0
,    0,    0,    0,107581,    0,    0,    0,    0,187540,    0
,    0,107589,107590,    0,    0,90460,107594,    0,107596,    0
,107598,    0,    0,107601,    0,    0,90471,61917,    0,90474
,    0,90476,    0,    0,    0,    0,90481,90482,    0,90484
,    0,90486,90487,    0,    0,90490,    0,10538,90493,119049
,    0,    0,    0,    0,    0,61945,61946,61947,61948,    0
,    0,61951,    0,    0,56243,56244,    0,    0,    0,56248
,267556,267557,    0,    0,    0,    0,    0,    0,56257,    0
,    0,210457,    0,    0,    0,    0,56265,    0,56267,56268
,44847,56270,    0,56272,    0,56274,    0,    0,    0,250452
,    0,267587,    0,    0,267590,    0,    0,233327,    0,    0
,    0,    0,    0,    0,67715,    0,    0,    0,    0,    0
,    0,301873,358984,290453,    0,267611,    0,    0,    0,    0
,    0,176241,    0,    0,    0,    0,    0,    0,    0,233359
,233360,233361,    0,62033,    0,    0,    0,    0,    0,    0
,    0,    0,    0,    0,    0,    0,159133,    0,    0,    0
,    0,    0,    0,    0,    0,    0,    0,    0,67769,    0
,233390,    0,    0,    0,    0,    0,62066,62067,    0,    0
,233400,    0,62072,    0,    0,    0,    0,    0,    0,307652
,    0,267677,    0,267679,    0,267681,    0,    0,    0,    0
,267686,    0,    0,    0,    0,    0,    0,62097,    0,    0
,    0,    0,    0,16415,16416,16417,    0,    0,    0,    0
,    0,    0,    0,233443, 5004,    0,    0,    0,    0,    0
,    0,107809,107810,    0,107812,    0,    0,107815,319123,    0
,107818,    0,107820,16445,    0,16447,    0,    0,170647,16451
,    0,    0,16454,    0,16456,    0,    0,233477,    0,    0
,    0,    0,90707,    0,    0,    0,    0,    0,    0,    0
,204935,    0,    0,    0,    0,    0,56455,56456,56457,    0
,    0,    0,    0,    0,330591,    0,    0,    0,    0,    0
,233510,233511,233512,    0,147849,    0,233516,16499,296339,    0
,284919,279209,    0,    0,204969,233525,    0,    0,    0,    0
,    0,    0,56491,233533,233534,    0,233536,56496,233538,    0
,    0,233541,233542,    0,    0,233545,    0,    0,    0,250682
,    0,16533,204997,204998,204999,205000,222134,    0,205003,113628
,    0,205006,    0,205008,147899,    0,    0,    0,    0,    0
,16552,    0,    0,107931,107932,    0,    0,    0,    0,    0
,    0,239292,    0,    0,16566,16567,16568,107945,    0,16571
,16572,16573,67973,16575,    0,    0,    0,    0,107956,16581
,    0,    0,    0,    0,    0,    0,    0,    0,    0,16591
,16592,    0,16594,16595,    0,16597,16598,    0,336416,16601
,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0
,    0,    0,    0,    0,119414,45172,    0,    0,45175,    0
,    0,    0,    0,    0,62314,62315,    0,56606,56607,56608
,250783,62321,    0,    0,    0,28059,    0,    0,    0,    0
,    0,    0,56621,45200,    0,    0,    0,    0,    0,    0
,56629,    0,    0,    0,    0,    0,56635,56636,56637,    0
,45217,45218,    0,45220,45221,45222,    0,    0,    0,    0
,    0,205136,205137,205138,    0,28099,205141,205142,205143,205144
,    0,205146,205147,205148,    0,205150,359348,    0,205153,    0
,    0,228000,    0,228002,    0,176605,    0,176607,    0,    0
,    0,    0,153768,    0,    0,    0,    0,    0,    0,    0
,    0,342240,    0,    0,    0,    0,307979,307980,    0,    0
,    0,    0,85256,    0,176634,    0,    0,    0,    0,28153
,    0,    0,68133,    0,    0,    0,    0,    0,    0,    0
,    0,    0,33877,33878,33879,    0,308009,308010,308011,308012
,    0,    0,308015,    0,79577,308018,    0,    0,    0,33894
,    0,    0,33897,    0,    0,273762,    0,290897,    0,    0
,    0,    0,33907,33908,    0,308038,33911,    0,    0,228088
,125291,    0,    0,176693,313758,    0,45343,45344,    0,    0
,    0,    0,302344,    0,    0,    0,    0,    0,45355,    0
,    0,    0,    0,    0,    0,    0,    0,    0,56787,    0
,    0,    0,    0,    0,    0,    0,176726,176727,    0,33954
,    0,33956,33957,    0,33959,33960,33961,    0,    0,    0
,    0,    0,    0,    0,308097,    0,    0,    0,33973,33974
,    0,56820,56821,    0,    0,199599,    0,    0,    0,    0
,    0,    0,    0,216740,    0,    0,    0,    0,    0,    0
,    0,    0,22575,    0,313838,313839,216753,    0,    0,    0
,56849,    0,56851,    0,    0,    0,56855,    0,    0,56858
,119680,56860,    0,    0,    0,    0,    0,279595,    0,    0
,308153,    0,308155,308156,34029,    0,    0,308160,308161,308162
,    0,    0,308165,    0,    0,    0,    0,    0,113997,    0
,39756,    0,    0,    0,    0,    0,    0,    0,    0,    0
,    0,    0,    0,    0,    0,    0,    0,    0,    0,331036
,    0,153997,331039,188265,    0,    0,188268,    0,    0,    0
,74052,    0,    0,    0,279652, 5525,    0,    0,119748,    0
,    0,    0,    0,    0,96910,216842,74068,    0,56937,    0
,291090,291091,291092,    0,    0,    0,    0,    0,    0,    0
,    0,    0,    0,    0,    0,    0,    0,119777,    0,211155
,211156,211157,    0,    0,    0,34120,    0,    0,    0,    0
,45547,56970,    0,56972,34129,34130,    0,56976,    0,    0
,34135,    0,34137,    0,    0,279713,56985,    0,279716,211185
,211186,211187,211188,45570,    0,    0,56995,56996,211194,    0
,    0,57000,57001,57002,    0,    0,57005,    0,    0,    0
,    0,    0,    0,28457,    0,11326,    0,    0,11329,    0
,34175,    0,68443,    0,    0,    0,    0,    0,    0,    0
,    0,34186,34187,34188,34189,    0,    0,85591,    0,    0
,    0,    0,    0,211239,    0,    0,    0,    0,    0,    0
,    0,    0,    0,    0,176984,    0,    0,85611,216965,142723
,142724,142725,45639,    0,154150,    0,211262,    0,    0,159866
,    0,325487,    0,    0,262669,    0,    0,    0,    0,    0
,325496,    0,34237,    0,    0,    0,    0,159884,    0,142753
,142754,142755,    0,    0,    0,142759,    0,    0,142762,    0
,142764,    0,    0,    0,    0,34260,    0,    0,    0,    0
,211306,211307,85665,    0,211323,199901,    0,211325, 5729,    0
,154308,142886,    0,154309,142887,    0,337066,142892,    0,337068
,142894,    0,274252,142899,    0,337074,205721,142900,    0,337076
,142902,22971,    0,337078,142904,    0,337079,245703,142905,11552
,    0,337083,142909,    0,262847,205737,    0,337092,11565,    0
,337093,205740,    0,337097,11570,    0,337101,314257,    0,188632
,68701,    0,245766,120124,    0,245774,120132,    0,245776,120134
,    0,154401,120135,    0,257209,120145,    0,257212,120148,    0
,228672,120163,    0,245815,120173,    0,325788,143036,    0,337217
,11690,    0,325796,245842,    0,297249,211584,    0,297252,245853
,    0,337230,245854,120212,    0,177333,51691,    0,337251,274430
,    0,325851,274452,51723,34590,    0,291599,245911,    0,291600
,245912,    0,337290,245914,    0,245915,120273,40319,    0,337293
,245917,    0,337294,245918,    0,337296,217365,    0,337297,245921
,    0,337299,308744,    0,337300,217369,    0,337302,308747,    0
,337303,51753,    0,337304,291616,217373,120286,91731,51754,    0
,337305,51755,    0,337306,217375,51756,    0,337307,217376,    0
,337309,51759,    0,343027,337316,126009,    0,325898,291632,274499
,    0,360165,337321,    0,360167,291635,    0,291638,120308,    0
,291640,171709,    0,325914,91763,    0,337356,263113,  407,    0
,337357,263114,    0,337358,40386,    0,120349,91794,    0,120350
,91795,    0,120351,91796,    0,120352,57531,    0,120354,91799
,    0,120357,91802,    0,274556,120359,91804,    0,120362,51830
,    0,257428,120364,    0,291706,51844,    0,291717,171786,    0
,360250,291718,    0,360252,291720,    0,263176,188933,    0,314576
,114691,91847,    0,217494,51875,    0,217495,51876,    0,263187
,120412,51880,    0,223212,120414,    0,291751,40467,    0,354573
,291752,    0,91870,11916,    0,188963,51899,    0,51902,11925
,    0,51903,11926,    0,206101,91881,51904,    0,206104,86173
,    0,314624,291780,228959,    0,291782,46209,23365,    0,291785
,188987,    0,331764,217544,126168,23370,    0,228991,211858,    0
,228993,211860,91929,    0,211862,91931,    0,211863,91932,    0
,280397,91934,    0,211868,91937,    0,211869,91938,    0,211871
,91940,    0,211873,91942,    0,154765,91944,    0,211876,91945
,    0,211877,154767,91946,80524,    0,246144,154768,    0,211881
,120505,    0,229027,217605,211894,    0,229030,217608,189053,    0
,229032,211899,189055,    0,217611,189056,    0,217612,211901,189057
,    0,303292,211916,    0,154853,52055,    0,229109,126311,    0
,154886,52088,    0,154887,52089,    0,263408,229142,126344,    0
,229143,126345,    0,343368,229148,    0,229158,52117,    0,229159
,92095,52118,    0,229160,52119,    0,229161,52120,    0,229162
,200607,    0,229167,212034,52126,    0,343388,229168,212035,    0
,212036,52128,    0,343390,229170,    0,229171,126373,    0,229172
,126374,    0,229173,126375,    0,229174,126376,    0,229177,126379
,    0,92128,40729,    0,263473,212074,    0,212086,200664,    0
,212088,92157,    0,257777,212089,132135,92158,    0,212090,92159
,    0,212091,92160,    0,212092,126427,    0,212094,92163,    0
,212100,  793,    0,212105,143573,    0,343476,132169,    0,212140
,143608,    0,212142,92211,    0,160749,52240,    0,229284,132197
,    0,132198,52244,    0,229287,132200,    0,263555,229289,    0
,132203,23694,    0,126494,69384,    0,132206,126495,    0,126500
,92234,    0,86527,52261,    0,52264,23709,    0,126509,52266
,    0,126510,52267,    0,263575,126511,115089,92245,52268,    0
,126512,52269,    0,189334,126513,52270,    0,223623,23738,    0
,332136,246471,    0,132274,92297,    0,155129,132285,92308,    0
,92313,35203,    0,132342,12411,    0,132347,126636,    0,132350
,126639,    0,132353,29555,    0,63836,40992,    0,292313,143827
,52451,    0,52453,29609,    0,235224,115293,    0,303763,263786
,    0,320909,52492,    0,63924,18236,    0,263842,155333,    0
,258141,132499,    0,349520,18282,    0,275337,132562,52608,    0
,355301,132572,    0,338177,52627,    0,115453,52632,    0,155431
,52633,    0,286835,132638,    0,138350,18419,    0,155493,132649
,    0,155494,138361,    0,355423,104139,    0,355424,104140,    0
,132699,121277,    0,286897,132700,    0,355430,286898,132701,    0
,286899,132702,    0,286900,155547,    0,286903,132706,    0,286908
,132711,29913,    0,144147,104170,    0,155570,104171,    0,195548
,104172,    0,344051,121322,    0,275524,121327,    0,344057,52796
,    0,207001,144180,    0,155614,35683,    0,326952,218443,    0
,155631,144209,    0,309829,286985,155632,144210,    0,155633,144211
,    0,155634,144212,115657,    0,155637,144215,    0,218461,155640
,144218,    0,155642,144220,    0,155643,52845,    0,155644,92823
,    0,155645,104246,    0,155649,52851,    0,127101,104257,    0
,218500, 1482,    0,287033, 1483,    0,287034,92860,    0,287042
,104290,    0,287043,104291,    0,287044,104292,    0,287047,184249
,    0,287048,110007,104296, 1498,    0,287049, 1499,    0,18634
, 1501,    0,92886, 1510,    0,144286,92887,    0,315617,92888
,    0,349884,309907,    0,309909,104313,92891,    0,104315,30072
,    0,104316,92894,    0,104318,92896,    0,144297,104320,    0
,115783,92939,    0,207174,144353,    0,144356,81535,    0,144361
,92962,    0,92973,52996,    0,281437,264304,155795,    0,155827
,93006,    0,155828,93007,24475,    0,155829,93008,    0,321455
,93015,    0,281487,178689,121579,93024,    0,93029,81607,    0
,247231,93034,    0,281498,93035,81613,    0,155857,93036,    0
,155858,93037,    0,155859,93038,81616,    0,247236,155860,    0
,218720,184454,    0,161618,121641,    0,327239,161620,121643,    0
,161630,64543,    0,298705,161641,    0,161645,155934,    0,327272
,161653,    0,155945,53147,    0,235907,218774,138820,    0,235908
,24601,    0,235909,138822,    0,161667,104557,    0,104558,87425
,    0,161669,104559,    0,144539,121695,    0,218785,24611, 1767
,    0,218789, 1771,    0,218791,161681,    0,327302,161683,    0
,327303,253060,161684,    0,327307,53179,    0,155978,53180,36047
,    0,310176,264488,155979,53181,    0,327310,155980,    0,235938
,155984,121718,    0,235939,218806,    0,235940,218807,    0,218823
,156002,    0,218824,156003,    0,156007,53209,    0,218829,156008
,93187,53210,    0,258807,156009,53211,    0,156010,53212,    0
,156013,53215,    0,321648,121763,    0,258839,138908,93220,53243
,    0,258840,93221,    0,258841,218864,121777,    0,350221,121781
,    0,327378,201736,121782,    0,275984,121787,    0,161769,121792
,58971,    0,327389,121793,    0,236014,121794,    0,76107,53263
,    0,258869,236025,161782,93250,    0,258870,236026,93251,    0
,258871,93252,    0,258872,236028,104675,64698,    0,264585,93255
,    0,258878,76126,    0,161802,59004,    0,327422,161803,59005
,    0,327423,321712,161804,    0,236064,76156,    0,327450,59033
,    0,327451,59034,    0,327452,59035,    0,327453,59036,    0
,327454,281766,116147,    0,327457,236081,    0,281770,236082,53330
,    0,236083,53331,    0,281772,236084,53332,    0,281775,236087
,    0,236088,161845,53336,    0,236089,161846,    0,236093,161850
,    0,161851,53342,41920,    0,281783,161852,53343,    0,281785
,161854,53345,    0,161855,53346,    0,161856,53347,    0,161857
,53348,    0,247523,161858,93326,53349,    0,258946,161859,53350
,    0,161862,53353,    0,161863,53354,    0,161868,53359,    0
,281800,93337,53360,    0,258957,53361,    0,281805,53365,    0
,281806,116187,    0,281812,121904,    0,281813,190437,161882,    0
,338924,281814,    0,281815,121907,116196,    0,281817,121909,    0
,281822,247556,    0,281823,247557,    0,258990,93371,    0,258991
,93372,    0,338949,161908,93376,    0,258996,161909,    0,161910
,64823,    0,259006,81965,59121,    0,259007,247585,    0,321829
,259008,247586,    0,259009,247587,    0,259010,247588,    0,281856
,93393,    0,259013,247591,213325,93394,    0,259014,93395,    0
,259015,156217,93396,    0,259016,247594,116241,    0,259018,247596
,93399,    0,259019,156221,93400,    0,259020,190488,93401,    0
,259021,93402,    0,190508,59155,    0,230487,190510,    0,247635
,42039,    0,59186,47764,    0,270532,53514,    0,236274,219141
,    0,247706,219151,190596,    0,264856,247723,    0,339108,247732
,    0,247735,144937,    0,310557,270580,247736,    0,344824,247737
,    0,247738,127807,    0,287785,184987,    0,310654,202145,    0
,116557,25181,    0,282177,25182,    0,322155,25183,    0,213729
,202307,    0,345084,322240,    0,190888,25269,    0,345093,105231
,    0,105262,25308,    0,310868,105272,    0,328002,13897,    0
,185279,168146,    0,202427,116762,    0,219564,13968,    0,322376
,185312,    0,168193, 2574,    0,185342,105388, 2590,    0,288149
,202484,145374,105397,    0,288152,133955, 2602,    0,105407,31164
,    0,322430,105412,    0,213922,105413,    0,213923,105414,    0
,322437,93997,    0,322443,311021,    0,133987,14056,    0,185418
,134019,    0,134020,116887,    0,191136,134026,    0,231115,134028
,    0,322501,145460,    0,191165,139766,    0,191168,82659,    0
,356792,185462,    0,265417,191174,185463,    0,305399,185468,    0
,156921,116944,82678,    0,185493,134094,    0,156949,134105,    0
,282592,156950,    0,156951,82708,48442,    0,156955,122689,    0
,305462,191242,    0,305467,139848,    0,305470,134140,    0,214097
,191253,    0,254075,134144,31346,    0,139856,31347,    0,134147
,31349,    0,134161,31363,    0,168428,134162,31364,    0,134167
,65635,31369,    0,134169, 2816,    0,254107,191286, 2823,    0
,254108,191287,    0,254109,191288, 2825,    0,191292,157026, 2829
,    0,157037,139904,54239,    0,191312,31404,    0,254137,191316
,    0,254138,191317,    0,305538,254139,191318,    0,254140,145631
,    0,179902, 2861,    0,254146, 2862,    0,328393,305549,88531
, 2866,    0,328396,311263,    0,157070,54272,    0,157071,54273
,    0,305582,157096,    0,305584,157098,    0,157099,54301,    0
,157100,54302,    0,157101,54303,    0,305588,157102,54304,    0
,157105,54307,    0,305606,277051,168542,    0,305610,168546,    0
,305613,254214,    0,328481,225683,    0,254244,185712,    0,265675
,65790,    0,254259, 2975,    0,334217,54378,    0,328514,225716
,    0,328515,225717,    0,254288,191467,    0,277143,117235,    0
,202908,54422,    0,225754,54424,    0,334267,54428,    0,191499
,54435,    0,191500,157234,    0,231478,191501,54437,    0,117268
,54447,    0,208649,54452,    0,208652, 8767,    0,191529,140130
,    0,225822,117313,    0,305781,151584,    0,322953,225866,    0
,225867,31693,    0,225868,31694,    0,140204,65961,31695,    0
,225872,191606,    0,225881,140216,    0,225882,140217,    0,225883
,191617,140218,    0,225884,31710,    0,225886,140221,    0,140222
,31713,    0,225890,140225,    0,225892,140227,117383,    0,225894
,140229,    0,265872,225895,140230,    0,225896,140231,117387,    0
,225897,117388,31723,    0,225898,117389,31724,    0,345831,117391
,    0,225901,117392,31727,    0,117393,31728,    0,191678,31770
,    0,191679,31771,    0,294478,191680,31772,    0,191681,31773
,    0,294480,191682,31774,    0,145995,31775,    0,191685,31777
,    0,294490, 3229,    0,294495,31789,    0,294497,31791,    0
,294519,260253,    0,294527,117486,    0,146044,117489,    0,117494
,111783,    0,111785,54675,    0,186040,31843,    0,220314,31851
,    0,111813,94680,    0,294568,203192,111816,    0,117530,111819
,    0,294576,111824,    0,186070,117538,    0,186078,20459,    0
,134683,94706,    0,134715,117582,    0,294642,111890,31936,    0
,317493,31943,    0,134745,111901,    0,186146,134747,117614,31949
,    0,277523,226124,134748,117615,    0,117616,31951,    0,134751
,31953,    0,294662,134754,    0,294664,134756,    0,191872,43386
,    0,117637,94793,    0,94812,31991,    0,186192,111949,    0
,294702,111950,    0,266149,111952,31998,    0,294705,186196,111953
,    0,294706,111954,    0,294708,140511,32002,    0,294709,111957
,32003,    0,294710,111958,32004,    0,294711,111959,94826,32005
,    0,294712,111960,94827,    0,294713,117672,94828,    0,294714
,111962,    0,294715,111963,    0,294716,111964,    0,294717,214763
,111965,94832,    0,294718,111966,    0,294720,94835,    0,294721
,111969,    0,294722,186213,94837,    0,294723,186214,    0,266172
,186218,94842,    0,294728,186219,94843,83421,    0,186220,94844
,    0,186221,134822,94845,    0,186222,140534,94846,    0,186225
,94849,    0,140538,94850,    0,140540,94852,    0,140543,94855
,    0,157677,134833,94856,    0,294742,94857,    0,306172,214796
,140553,    0,260485,214797,    0,323312,266202,    0,140568,66325
,    0,294766,169124,    0,294768,66328,    0,294770,289059,140573
,14931,    0,140577,134866,    0,266220,140578,134867,    0,140579
,134868,    0,266222,140580,    0,214825,140582,    0,214826,134872
,    0,214828,140585,    0,197699,140589,    0,214834,140591,    0
,214836,140593,    0,134889,14958,    0,134891,14960,    0,134894
,14963,    0,14971, 9260,    0,311956, 9273,    0,289116,14988
,    0,260562,112076,    0,311964,112079,    0,311965,112080,14993
,    0,214879,112081,14994,    0,311980,89251,15008,    0,311983
,15011,    0,89257,15014,    0,214902,89260,    0,311995,55000
,    0,266308,55001,    0,312019,197799,    0,214946,157836,55038
,    0,214948,55040,    0,186403, 9362,    0,214963,186408,    0
,203546,83615,    0,214969,203547,    0,214975,203553,    0,186433
,60791,    0,312077,186435,    0,312078,186436,    0,312081,186439
,    0,312088,135047,    0,312089,300667,    0,300699,135080,    0
,300700,135081,    0,186487, 9446,    0,255028,60854,    0,152232
,60856,    0,226480,55150,    0,300729,135110,55156,    0,300730
,186510,135111,    0,300731,135112,    0,300735,26607,    0,135118
,26609,    0,300738,55165,    0,249343,117990,    0,283621,157979
,55181,    0,283623,209380,    0,186540,43765,    0,192257,26638
,    0,249375,186554,    0,249376,186555,    0,249377,186556,    0
,186565,100900,    0,306497,158011,    0,158012,20948,    0,266528
,186574,    0,186583,60941,    0,249405,186584,    0,249406,186585
,135186, 9544,    0,300806,249407,186586,    0,158041,135197,    0
,300817,192308,158042,    0,300818,158043,    0,323676,123791,    0
,192328,60975,    0,283709,60980,    0,300850,135231,    0,300851
,135232,    0,346549,198063,    0,329423,61006,    0,300873,135254
,    0,300874,135255,    0,300875,283742,135256,    0,300876,283743
,    0,283744,135258,    0,300878,135259,32461,    0,300879,135260
,    0,300880,135261,32463,    0,300881,249482,135262,    0,300882
,289460,    0,249493,26764,    0,158129,55331,    0,180983,26786
,    0,249526,192416,    0,249527,89619,    0,329486,249532,89624
,    0,329491,55363,    0,158162,55364,    0,158163,55365,    0
,329494,158164,    0,329496,249542,    0,249544,158168,    0,249554
,198155,158178,    0,249555,158179,    0,249556,158180,    0,249557
,158181,    0,249558,158182,    0,249561,158185,    0,198163,158186
,    0,158191,55393,    0,158192,55394,    0,158193,55395,    0
,158194,55396,    0,158197,55399,    0,249591,21151,    0,329574
,112556,    0,318172,95443,    0,55470, 4071,    0,209674, 4078
,    0,329607,203965, 4080,    0,209678,55481,    0,301065,209689
,    0,209697,152587,    0,329629,318207,    0,329630, 4103,    0
,329631,278232,    0,329632,318210,    0,329634,318212,152593,    0
,329637,152596,    0,329641,38380,    0,55516,32672,    0,301093
,55520,    0,301095, 4123,    0,301099,38393,    0,301102,209726
,55529,    0,186890,55537,    0,118365,55544,    0,55545, 4146
,    0,118367,55546,    0,44129, 9863,    0,318278,192636,    0
,318289,244046,    0,278320, 4192,    0,301181, 4209,    0,215521
, 4214,    0,49903, 4215,    0,49904,38482, 4216,    0,318322
,49905,    0,318323, 4218,    0,318324, 4219,    0,318328,266929
,    0,318347,301214,    0,318348,301215,    0,301216,204129,    0
,318350,49933,    0,318351,49934,    0,318352,49935,    0,318353
,301220,49936,    0,301238,118486,    0,301239,118487,    0,301240
,118488,    0,301245,124204,    0,301249, 9988,    0,84244,10001
,    0,147103,55727,    0,307012,55728,    0,204235,21483,    0
,147127, 4352,    0,55766,50055,    0,112900,50079,    0,50084
,10107,    0,347061,50089,    0,347063,90068,    0,352810,215746
,    0,175817,118707,    0,135847,55893,    0,301480,55907,    0
,175844,55913,    0,210121,192988,    0,324401,107383,    0,158783
,67407,    0,267293,67408,    0,324404,124519,    0,193063,175930
,    0,198792,107416,    0,153139,107451,    0,90337,67493,    0
,90371,67527,    0,107522,56123,    0,198902,56127,    0,278896
,107566,    0,313165,278899,    0,107591,90458,    0,107592,90459
,    0,353168,107595, 4797,    0,107597,90464,56198, 4799,    0
,90470,61915,    0,176138,90473,    0,90475,56209,    0,210408
,90477,    0,210409,90478,    0,244680,90483,    0,153309,90488
,    0,318929,90489,    0,353197,244688,    0,210439,56242,    0
,210463,56266,44844,    0,301844,56271,    0,244736,56273,    0
,250451,56277,    0,233389,107747,    0,233391,39217,    0,233392
,124883,    0,233395,90620,    0,233398,170577,62068,    0,176291
,16383,    0,307655,176302,    0,267680,216281,    0,142045,107779
,    0,267688,107780,62092,    0,233423,107781,    0,210582,62096
,    0,210584,62098,    0,33553,16420,    0,199187,107811,    0
,56423,16446,    0,233466,16448,    0,313476,233522,204967,    0
,233523,204968,    0,233526,56485,    0,233527,56486,    0,233528
,107886,56487,    0,244951,233529,56488,    0,313484,233530,    0
,233535,56494,    0,233539,107897,    0,233540,16522,    0,187878
,39392,    0,136485,107930,    0,296396,147910,22268,    0,313532
,107936,    0,107953,16577,    0,319261,107954,    0,107955,33712
,    0,107958,16582,    0,107959,16583,    0,107960,16584,    0
,107961,90828,56562,16585,    0,250737,107962,16586,    0,205051
,45143,    0,107965,16589,    0,216475,16590,    0,56573,16596
,    0,245049,90852,    0,205074,45166,    0,227929,205085,    0
,302185,56612,    0,56630,45208,    0,233672,56631,    0,205118
,56632,    0,205119,45211,    0,205120,56634,28079,    0,205124
,56638,    0,56641,45219,    0,205133,125179,45225,    0,205134
,45226,    0,205135,45227,    0,307947,205149,    0,267984,176608
,    0,307981,205183,    0,308020,79580,    0,256641,33912,    0
,176728,33953,    0,91065,33955,    0,308086,33958,    0,56819
,33975,    0,308130,216754,    0,308131,148223,    0,353820,308132
,    0,313845,56850,    0,308136,148228,56852,    0,308154, 5471
,    0,308158,34030,    0,308159,34031,    0,336765,211123,56926
,    0,56971,34127,    0,131236,56993,45571,    0,348255,211191
,56994,    0,56998,11310,    0,211196,56999,45577,    0,216926
,34174,    0,142691,34182,    0,194092,11340,    0,325486,159867
,68491,    0,159873,68497,    0,325493,211273,    0,159876,125610
,    0,142756,114201,    0)  ;
        --| Hash values to check against to verify that
        --| correct action has been found for this
        --| parser state and input token.
        -- NYU Reference Name: ACTION_TABLE2

    DefaultMap :
        constant array (DefaultMapRange) of GC.ParserInteger :=
         ( 1448,    0,    0,    0,    0, 1446,    0, 1277, 1266, 1447
,    0, 1268,    0, 1476,    0,    0,    0, 1270, 1271, 1272
, 1273, 1274, 1275,    0, 1326,    0, 1326, 1326, 1269, 1276
,    0,    0, 1456,    0,    0, 1326, 1152,    0, 1153, 1135
,    0, 1134, 1096, 1095,    0, 1150, 1151,    0, 1370, 1390
, 1136, 1097, 1098, 1099, 1139, 1118, 1376, 1121, 1122, 1123
, 1124, 1125, 1126, 1129, 1130, 1394, 1399, 1397,    0, 1140
, 1137, 1138,    0, 1373, 1216, 1217,    0,    0, 1485,    0
, 1212,    0, 1502, 1211,    0,    0, 1077,    0, 1423, 1506
, 1226,    0, 1486,    0,    0, 1414,    0,    0,    0, 1282
, 1091, 1092, 1093,    0, 1326, 1326,    0,    0,    0, 1326
, 1291,    0, 1452, 1450, 1449, 1339, 1161, 1033, 1338,    0
,    0, 1094,    0,    0, 1136, 1355,    0, 1367, 1365, 1117
,    0, 1392,    0, 1143, 1141, 1145,    0, 1142, 1146, 1144
, 1127,    0,    0,    0,    0,    0,    0, 1372,    0, 1120
,    0,    0,    0,    0,    0,    0,    0,    0, 1149, 1147
, 1148,    0, 1156, 1157, 1154, 1155,    0, 1158, 1131,    0
, 1136, 1132, 1395, 1501,    0, 1517,    0,    0, 1484,    0
,    0,    0,    0, 1327,    0,    0,    0,    0,    0,    0
, 1000, 1079, 1001, 1002, 1003, 1004, 1005, 1006, 1007, 1018
, 1019, 1020, 1326, 1326, 1080, 1081, 1089, 1090,    0, 1326
, 1326, 1314, 1315, 1316, 1317, 1480, 1199, 1330, 1424, 1425
,    0, 1359, 1508,    0,    0,    0,    0,    0, 1414, 1488
, 1326, 1414, 1415,    0,    0,    0, 1414, 1289, 1290,    0
,    0, 1336,    0, 1457,    0,    0, 1326,    0,    0,    0
,    0,    0,    0, 1133,    0,    0, 1073,    0, 1111,    0
, 1112, 1367, 1267, 1393, 1371, 1060, 1128, 1391, 1039, 1109
, 1108, 1110, 1107, 1106, 1159, 1160,    0, 1102, 1103, 1105
, 1104, 1101, 1376, 1374,    0,    0, 1390, 1380,    0, 1382
, 1384, 1381, 1383, 1385,    0,    0, 1396, 1398, 1400, 1214
, 1338,    0, 1421, 1489, 1421, 1504,    0, 1308,    0, 1094
,    0, 1099,    0,    0,    0,    0,    0,    0,    0, 1426
, 1360, 1078,    0, 1502,    0, 1428,    0, 1430,    0,    0
,    0, 1224,    0,    0, 1304, 1227,    0,    0, 1230,    0
,    0,    0, 1458, 1017, 1221,    0,    0, 1306,    0, 1278
, 1451,    0, 1164, 1163, 1340, 1379, 1375, 1369, 1362, 1365
, 1116, 1072,    0,    0, 1363, 1365, 1368,    0, 1115,    0
,    0, 1100, 1119, 1378, 1377, 1386, 1388, 1387, 1389, 1221
,    0, 1219,    0,    0,    0,    0, 1313, 1461, 1310,    0
, 1463,    0,  999, 1470,    0,    0,    0,    0,    0,    0
,    0, 1490, 1240, 1470, 1075,    0,    0,    0, 1083, 1084
, 1085, 1086, 1088, 1082, 1087, 1326,    0,    0,    0, 1414
,    0, 1326, 1487, 1414,    0,    0,    0,    0,    0,    0
,    0,    0,    0,    0, 1494, 1094,    0, 1331,    0, 1170
, 1330, 1166, 1167,    0, 1171, 1172, 1173, 1174, 1175, 1176
, 1177, 1178, 1179, 1180, 1181, 1182, 1183, 1184, 1185, 1403
, 1332,    0,    0, 1330, 1249, 1250, 1251, 1330, 1200, 1482
, 1332, 1008, 1326, 1009, 1010, 1011,    0, 1461, 1414, 1229
, 1492, 1244,    0,    0,    0,    0,    0, 1222, 1334, 1461
, 1453, 1162, 1367, 1071, 1356, 1364, 1367, 1366, 1061, 1040
, 1220, 1334, 1518, 1516,    0,    0, 1213,    0,    0,    0
,    0,    0,    0,    0,    0, 1489,    0,    0, 1031, 1492
, 1491, 1241,    0,    0,    0,    0,    0,    0,    0,    0
, 1053, 1021,    0,    0,    0,    0,    0,    0,    0, 1045
, 1046, 1047, 1343, 1343, 1052,    0,    0, 1351,    0, 1235
, 1361, 1279, 1239,    0, 1432, 1429, 1326,    0, 1444, 1436
,    0,    0,    0, 1204,    0,    0, 1190, 1406,    0, 1330
, 1187, 1287,    0, 1208,    0,    0,    0,    0, 1225,    0
, 1401,    0, 1168, 1169, 1404,    0,    0,    0, 1479,    0
, 1330,    0, 1483, 1414, 1326,    0,    0, 1440,    0,    0
,    0,    0,    0, 1228,    0,    0,    0, 1301,    0,    0
, 1302, 1303,    0, 1351, 1460, 1459, 1295, 1337, 1223,    0
,    0,    0, 1114, 1113, 1218,    0, 1422,    0,    0, 1464
,    0,    0,    0, 1467, 1326, 1319, 1318,    0, 1238, 1030
,    0, 1032, 1034, 1035, 1036,    0, 1074,    0,    0, 1051
, 1049,    0, 1038, 1233, 1043, 1044, 1341, 1042, 1023, 1024
, 1025, 1026, 1027, 1028, 1029, 1344, 1048, 1050, 1467, 1326
,    0,    0, 1427, 1242,    0,    0, 1431, 1243,    0,    0
,    0, 1477, 1248,    0,    0, 1206, 1210, 1408, 1511, 1405
, 1288, 1209, 1186,    0,    0, 1330,    0,    0, 1333, 1330
, 1410, 1330,    0, 1196,    0, 1330,    0, 1414, 1414,    0
,    0,    0, 1330, 1330, 1330, 1253, 1254, 1255, 1256, 1257
, 1330,    0,    0, 1408, 1201,    0, 1330, 1419, 1418,    0
,    0,    0, 1334, 1334, 1031,    0, 1299, 1298, 1300, 1297
,    0, 1293,    0, 1335, 1292,    0, 1215, 1309, 1462,  998
, 1324,    0, 1326, 1465,    0, 1503, 1280,    0, 1281, 1345
, 1136, 1347, 1059,    0, 1231,    0,    0, 1349, 1326, 1334
, 1515,    0,    0,    0, 1136,    0, 1421, 1245,    0, 1264
,    0, 1421, 1493, 1246, 1205,    0, 1513,    0,    0, 1330
, 1330, 1325, 1188, 1402,    0,    0, 1355, 1192, 1478, 1193
,    0,    0,    0, 1203,    0,    0, 1261,    0,    0, 1259
, 1443, 1495, 1258, 1260, 1514, 1330, 1330, 1498,    0, 1330
, 1286, 1285, 1454, 1284, 1420,    0,    0, 1334, 1334,    0
, 1283,    0,    0,    0, 1305, 1296,    0, 1307,    0,    0
,    0,    0, 1326, 1037,    0,    0, 1058,    0, 1055, 1041
,    0,    0, 1469,    0, 1065, 1067, 1470, 1076, 1352, 1434
,    0, 1445, 1438,    0, 1207,    0,    0, 1409, 1407, 1191
, 1475,    0, 1411,    0, 1197, 1414,    0, 1202, 1247, 1499
, 1330,    0,    0,    0,    0, 1441,    0,    0,    0,    0
,    0, 1012, 1014,    0,    0,    0,    0,    0,    0, 1466
,    0,    0, 1056, 1057,    0, 1342, 1062,    0, 1326,    0
, 1326, 1328,    0,    0, 1022,    0, 1433,    0, 1437, 1512
,    0, 1474, 1198,    0, 1414,    0,    0, 1497,    0,    0
,    0, 1500, 1016, 1013, 1015, 1237, 1236,    0, 1323,    0
, 1320,    0,    0, 1346,    0, 1348,    0,    0, 1063,    0
, 1064,    0,    0,    0, 1234, 1421, 1421, 1189, 1194,    0
,    0,    0, 1252, 1455, 1294, 1321,    0, 1054,    0, 1334
, 1471,    0, 1329, 1326, 1353, 1326, 1472, 1473, 1232,    0
,    0, 1195, 1262,    0, 1322,    0,    0, 1069, 1481, 1070
, 1435, 1439, 1263, 1066, 1068, 1354)  ;
        --| Map of states (constant array ) to default reductions.
        -- NYU Reference Name: DEFAULT

    type FollowSymbolIndexArray is array ( PositiveParserInteger range <>)
        of GC.ParserInteger ;

    FollowSymbolMapIndex : constant FollowSymbolIndexArray :=
         (    1,    1,    2,    2,    3,    3,    4,   43,   44,   57
,   58,   71,   72,   85,   86,  102,  103,  119,  120,  133
,  134,  150,  151,  167,  168,  181,  182,  195,  196,  209
,  210,  223,  224,  237,  238,  251,  252,  252,  253,  254
,  255,  256,  257,  258,  259,  265,  266,  267,  268,  281
,  282,  295,  296,  309,  310,  323,  324,  334,  335,  336
,  337,  338,  339,  344,  345,  345,  346,  346,  347,  347
,  348,  348,  349,  349,  350,  350,  351,  351,  352,  385
,  386,  387,  388,  421,  422,  428,  429,  430,  431,  432
,  433,  454,  455,  456,  457,  458,  459,  460,  461,  463
,  464,  465,  466,  468,  469,  469,  470,  471,  472,  473
,  474,  474,  475,  508,  509,  511,  512,  513,  514,  523
,  524,  524,  525,  531,  532,  533,  534,  554,  555,  556
,  557,  561,  562,  563,  564,  564,  565,  567,  568,  594
,  595,  596,  597,  597,  598,  601,  602,  603,  604,  607
,  608,  609,  610,  621,  622,  623,  624,  632,  633,  640
,  641,  654,  655,  668,  669,  684,  685,  693,  694,  705
,  706,  714,  715,  726,  727,  738,  739,  750,  751,  784
,  785,  818,  819,  853,  854,  887,  888,  922,  923,  923
,  924,  953,  954,  955,  956,  956,  957,  958,  959,  960
,  961,  961,  962,  963,  964,  965,  966,  967,  968,  977
,  978,  985,  986,  993,  994, 1001, 1002, 1009, 1010, 1017
, 1018, 1027, 1028, 1038, 1039, 1063, 1064, 1092, 1093, 1117
, 1118, 1147, 1148, 1176, 1177, 1205, 1206, 1212, 1213, 1242
, 1243, 1272, 1273, 1302, 1303, 1313, 1314, 1322, 1323, 1331
, 1332, 1340, 1341, 1347, 1348, 1384, 1385, 1412, 1413, 1439
, 1440, 1465, 1466, 1470, 1471, 1497, 1498, 1524, 1525, 1544
, 1545, 1571, 1572, 1598, 1599, 1625, 1626, 1652, 1653, 1679
, 1680, 1706, 1707, 1733, 1734, 1760, 1761, 1787, 1788, 1814
, 1815, 1841, 1842, 1868, 1869, 1895, 1896, 1922, 1923, 1949
, 1950, 1969, 1970, 1972, 1973, 1975, 1976, 1976, 1977, 1980
, 1981, 1982, 1983, 1983, 1984, 2004, 2005, 2006, 2007, 2027
, 2028, 2030, 2031, 2051, 2052, 2052, 2053, 2053, 2054, 2056
, 2057, 2059, 2060, 2080, 2081, 2082, 2083, 2083, 2084, 2085
, 2086, 2097, 2098, 2100, 2101, 2105, 2106, 2107, 2108, 2109
, 2110, 2112, 2113, 2113, 2114, 2114, 2115, 2127, 2128, 2128
, 2129, 2129, 2130, 2143, 2144, 2145, 2146, 2157, 2158, 2170
, 2171, 2172, 2173, 2176, 2177, 2177, 2178, 2181, 2182, 2193
, 2194, 2194, 2195, 2198, 2199, 2200, 2201, 2221, 2222, 2248
, 2249, 2275, 2276, 2302, 2303, 2310, 2311, 2313, 2314, 2316
, 2317, 2319, 2320, 2322, 2323, 2325, 2326, 2328, 2329, 2331
, 2332, 2334, 2335, 2338, 2339, 2340, 2341, 2361, 2362, 2366
, 2367, 2367, 2368, 2369, 2370, 2377, 2378, 2379, 2380, 2387
, 2388, 2392, 2393, 2400, 2401, 2408, 2409, 2414, 2415, 2416
, 2417, 2424, 2425, 2428, 2429, 2449, 2450, 2451, 2452, 2453
, 2454, 2456, 2457, 2462, 2463, 2468, 2469, 2474, 2475, 2475
, 2476, 2476, 2477, 2478, 2479, 2480, 2481, 2481, 2482, 2483
, 2484, 2484, 2485, 2486, 2487, 2500, 2501, 2514, 2515, 2528
, 2529, 2542, 2543, 2543, 2544, 2548, 2549, 2553, 2554, 2555
, 2556, 2557, 2558, 2558, 2559, 2560, 2561, 2562, 2563, 2563
, 2564, 2575, 2576, 2577, 2578, 2579, 2580, 2600, 2601, 2621
, 2622, 2623, 2624, 2625, 2626, 2626, 2627, 2629, 2630, 2631
, 2632, 2634, 2635, 2641, 2642, 2643, 2644, 2647, 2648, 2650
, 2651, 2651, 2652, 2652)  ;

    FollowSymbolMap : constant FollowSymbolArray :=
         (   96,   96,   72,    2,    4,   10,   12,   14,   15,   19
,   20,   21,   22,   23,   24,   25,   26,   27,   28,   29
,   33,   37,   39,   42,   43,   44,   45,   46,   51,   53
,   54,   55,   56,   57,   59,   60,   61,   62,   63,   65
,   67,   68,   92,   10,   21,   25,   26,   27,   42,   43
,   44,   45,   55,   56,   59,   60,   65,   10,   21,   25
,   26,   27,   42,   43,   44,   45,   55,   56,   59,   60
,   65,   10,   21,   25,   26,   27,   42,   43,   44,   45
,   55,   56,   59,   60,   65,   10,   21,   25,   26,   27
,   42,   43,   44,   45,   54,   55,   56,   59,   60,   63
,   65,   96,   10,   21,   25,   26,   27,   42,   43,   44
,   45,   54,   55,   56,   59,   60,   63,   65,   96,   10
,   21,   25,   26,   27,   42,   43,   44,   45,   55,   56
,   59,   60,   65,   10,   21,   25,   26,   27,   42,   43
,   44,   45,   54,   55,   56,   59,   60,   63,   65,   96
,   10,   21,   25,   26,   27,   42,   43,   44,   45,   54
,   55,   56,   59,   60,   63,   65,   96,   10,   21,   25
,   26,   27,   42,   43,   44,   45,   55,   56,   59,   60
,   65,   10,   21,   25,   26,   27,   42,   43,   44,   45
,   55,   56,   59,   60,   65,   10,   21,   25,   26,   27
,   42,   43,   44,   45,   55,   56,   59,   60,   65,   10
,   21,   25,   26,   27,   42,   43,   44,   45,   55,   56
,   59,   60,   65,   10,   21,   25,   26,   27,   42,   43
,   44,   45,   55,   56,   59,   60,   65,   10,   21,   25
,   26,   27,   42,   43,   44,   45,   55,   56,   59,   60
,   65,   79,   80,   88,   72,   80,   80,   88,   31,   33
,   58,   72,   75,   80,   85,   75,   79,   10,   21,   25
,   26,   27,   42,   43,   44,   45,   55,   56,   59,   60
,   65,   10,   21,   25,   26,   27,   42,   43,   44,   45
,   55,   56,   59,   60,   65,   10,   21,   25,   26,   27
,   42,   43,   44,   45,   55,   56,   59,   60,   65,   10
,   21,   25,   26,   27,   42,   43,   44,   45,   55,   56
,   59,   60,   65,    3,   35,   36,   37,   65,   66,   67
,   68,   71,   74,   76,   72,   80,   72,   80,   18,   31
,   50,   51,   71,   80,   80,   80,   80,   80,   80,   80
,   80,    7,   16,   17,   30,   31,   33,   34,   36,   39
,   47,   49,   50,   58,   64,   69,   71,   72,   73,   74
,   75,   76,   78,   80,   81,   82,   83,   84,   85,   86
,   87,   88,   89,   90,   91,   80,   88,    7,   16,   17
,   30,   31,   33,   34,   36,   39,   47,   49,   50,   58
,   64,   69,   71,   72,   73,   74,   75,   76,   78,   80
,   81,   82,   83,   84,   85,   86,   87,   88,   89,   90
,   91,   33,   72,   75,   80,   84,   85,   88,   80,   88
,   80,   88,    7,   30,   31,   33,   36,   39,   47,   58
,   64,   72,   75,   80,   81,   82,   83,   84,   85,   86
,   88,   89,   90,   91,   72,   75,   72,   75,   72,   75
,   47,   80,   88,   80,   88,   47,   80,   88,   80,   72
,   75,   72,   75,   38,    7,    9,   30,   31,   33,   34
,   36,   39,   47,   49,   58,   64,   69,   70,   71,   72
,   73,   74,   75,   76,   77,   78,   80,   81,   82,   83
,   84,   85,   86,   87,   88,   89,   90,   91,   33,   72
,   75,   72,   75,    7,   31,   33,   39,   58,   64,   72
,   75,   80,   85,   48,   12,   21,   37,   43,   65,   67
,   68,   21,   61,   10,   12,   21,   22,   25,   26,   27
,   42,   43,   44,   45,   54,   55,   56,   59,   60,   61
,   63,   65,   67,   68,   12,   65,   12,   21,   43,   61
,   65,   21,   61,   12,   21,   43,   61,    2,    4,   10
,   12,   14,   15,   19,   20,   21,   23,   24,   25,   28
,   29,   33,   37,   39,   43,   46,   51,   53,   61,   62
,   65,   67,   68,   92,   43,   61,   21,   12,   37,   43
,   65,   21,   61,   12,   37,   43,   65,   84,   85,   10
,   21,   25,   26,   27,   42,   44,   45,   55,   56,   59
,   60,   10,   21,   10,   21,   26,   27,   42,   43,   45
,   56,   60,   10,   21,   26,   27,   42,   45,   56,   60
,   10,   21,   25,   26,   27,   42,   43,   44,   45,   55
,   56,   59,   60,   65,   10,   21,   25,   26,   27,   42
,   43,   44,   45,   55,   56,   59,   60,   65,   10,   21
,   25,   26,   27,   42,   43,   44,   45,   54,   55,   56
,   59,   60,   63,   65,   10,   21,   26,   27,   42,   43
,   45,   56,   60,   10,   21,   26,   27,   42,   43,   45
,   54,   56,   60,   63,   96,   10,   21,   26,   27,   42
,   43,   45,   56,   60,   10,   21,   26,   27,   42,   43
,   45,   54,   56,   60,   63,   96,   10,   21,   26,   27
,   42,   43,   45,   54,   56,   60,   63,   96,   10,   21
,   26,   27,   42,   43,   45,   54,   56,   60,   63,   96
,    7,    9,   30,   31,   33,   34,   36,   39,   47,   49
,   58,   64,   69,   70,   71,   72,   73,   74,   75,   76
,   77,   78,   80,   81,   82,   83,   84,   85,   86,   87
,   88,   89,   90,   91,    7,    9,   30,   31,   33,   34
,   36,   39,   47,   49,   58,   64,   69,   70,   71,   72
,   73,   74,   75,   76,   77,   78,   80,   81,   82,   83
,   84,   85,   86,   87,   88,   89,   90,   91,    7,    9
,   30,   31,   33,   34,   36,   39,   47,   49,   58,   60
,   64,   69,   70,   71,   72,   73,   74,   75,   76,   77
,   78,   80,   81,   82,   83,   84,   85,   86,   87,   88
,   89,   90,   91,    7,    9,   30,   31,   33,   34,   36
,   39,   47,   49,   58,   64,   69,   70,   71,   72,   73
,   74,   75,   76,   77,   78,   80,   81,   82,   83,   84
,   85,   86,   87,   88,   89,   90,   91,    7,    9,   30
,   31,   33,   34,   36,   39,   47,   49,   58,   60,   64
,   69,   70,   71,   72,   73,   74,   75,   76,   77,   78
,   80,   81,   82,   83,   84,   85,   86,   87,   88,   89
,   90,   91,   72,    7,   30,   31,   33,   34,   36,   39
,   47,   49,   58,   64,   69,   72,   73,   74,   75,   76
,   78,   80,   81,   82,   83,   84,   85,   86,   87,   88
,   89,   90,   91,   72,   75,   72,   72,   75,   72,   75
,   72,   72,   75,   72,   75,   72,   75,    7,   31,   33
,   39,   58,   64,   72,   75,   80,   85,    7,   31,   33
,   58,   72,   75,   80,   85,   31,   33,   39,   58,   72
,   75,   80,   85,   31,   33,   58,   64,   72,   75,   80
,   85,    7,   31,   33,   58,   72,   75,   80,   85,   31
,   33,   39,   58,   72,   75,   80,   85,    7,   31,   33
,   39,   58,   64,   72,   75,   80,   85,    3,   35,   36
,   37,   65,   66,   67,   68,   71,   74,   76,    7,   30
,   31,   33,   36,   39,   47,   58,   64,   69,   72,   74
,   75,   76,   80,   81,   82,   83,   84,   85,   86,   88
,   89,   90,   91,    7,   30,   31,   33,   34,   36,   39
,   47,   49,   58,   64,   69,   72,   73,   74,   75,   76
,   78,   80,   81,   82,   83,   84,   85,   86,   88,   89
,   90,   91,    7,   30,   31,   33,   36,   39,   47,   58
,   64,   69,   72,   74,   75,   76,   80,   81,   82,   83
,   84,   85,   86,   88,   89,   90,   91,    7,   30,   31
,   33,   34,   36,   39,   47,   49,   58,   64,   69,   72
,   73,   74,   75,   76,   78,   80,   81,   82,   83,   84
,   85,   86,   87,   88,   89,   90,   91,    7,   30,   31
,   33,   34,   36,   39,   47,   49,   58,   64,   69,   72
,   73,   74,   75,   76,   78,   80,   81,   82,   83,   84
,   85,   86,   88,   89,   90,   91,    7,   30,   31,   33
,   34,   36,   39,   47,   49,   58,   64,   69,   72,   73
,   74,   75,   76,   78,   80,   81,   82,   83,   84,   85
,   86,   88,   89,   90,   91,   35,   37,   65,   66,   67
,   68,   71,    7,   30,   31,   33,   34,   36,   39,   47
,   49,   58,   64,   69,   72,   73,   74,   75,   76,   78
,   80,   81,   82,   83,   84,   85,   86,   87,   88,   89
,   90,   91,    7,   30,   31,   33,   34,   36,   39,   47
,   49,   58,   64,   69,   72,   73,   74,   75,   76,   78
,   80,   81,   82,   83,   84,   85,   86,   87,   88,   89
,   90,   91,    7,   30,   31,   33,   34,   36,   39,   47
,   49,   58,   64,   69,   72,   73,   74,   75,   76,   78
,   80,   81,   82,   83,   84,   85,   86,   87,   88,   89
,   90,   91,    3,   35,   36,   37,   65,   66,   67,   68
,   71,   74,   76,    3,   35,   36,   37,   65,   66,   67
,   68,   71,    3,   35,   36,   37,   65,   66,   67,   68
,   71,    3,   35,   36,   37,   65,   66,   67,   68,   71
,   35,   37,   65,   66,   67,   68,   71,    7,   16,   17
,   30,   31,   33,   34,   36,   39,   47,   49,   50,   58
,   61,   64,   69,   70,   71,   72,   73,   74,   75,   76
,   77,   78,   80,   81,   82,   83,   84,   85,   86,   87
,   88,   89,   90,   91,    2,    4,   10,   12,   14,   15
,   19,   20,   21,   23,   24,   25,   28,   29,   33,   37
,   39,   43,   46,   51,   53,   57,   61,   62,   65,   67
,   68,   92,    2,    4,   10,   12,   14,   15,   19,   20
,   21,   23,   24,   25,   28,   29,   33,   37,   39,   43
,   46,   51,   53,   61,   62,   65,   67,   68,   92,    2
,    4,   10,   12,   14,   15,   19,   20,   21,   23,   24
,   25,   28,   29,   33,   37,   39,   46,   51,   53,   61
,   62,   65,   67,   68,   92,   19,   20,   21,   23,   61
,    2,    4,   10,   12,   14,   15,   19,   20,   21,   23
,   24,   25,   28,   29,   33,   37,   39,   43,   46,   51
,   53,   61,   62,   65,   67,   68,   92,    2,    4,   10
,   12,   14,   15,   19,   20,   21,   23,   24,   25,   28
,   29,   33,   37,   39,   43,   46,   51,   53,   61,   62
,   65,   67,   68,   92,    2,    4,   10,   12,   14,   15
,   24,   25,   28,   29,   33,   37,   46,   51,   53,   62
,   65,   67,   68,   92,    2,    4,   10,   12,   14,   15
,   19,   20,   21,   23,   24,   25,   28,   29,   33,   37
,   39,   43,   46,   51,   53,   61,   62,   65,   67,   68
,   92,    2,    4,   10,   12,   14,   15,   19,   20,   21
,   23,   24,   25,   28,   29,   33,   37,   39,   43,   46
,   51,   53,   61,   62,   65,   67,   68,   92,    2,    4
,   10,   12,   14,   15,   19,   20,   21,   23,   24,   25
,   28,   29,   33,   37,   39,   43,   46,   51,   53,   61
,   62,   65,   67,   68,   92,    2,    4,   10,   12,   14
,   15,   19,   20,   21,   23,   24,   25,   28,   29,   33
,   37,   39,   43,   46,   51,   53,   61,   62,   65,   67
,   68,   92,    2,    4,   10,   12,   14,   15,   19,   20
,   21,   23,   24,   25,   28,   29,   33,   37,   39,   43
,   46,   51,   53,   61,   62,   65,   67,   68,   92,    2
,    4,   10,   12,   14,   15,   19,   20,   21,   23,   24
,   25,   28,   29,   33,   37,   39,   43,   46,   51,   53
,   61,   62,   65,   67,   68,   92,    2,    4,   10,   12
,   14,   15,   19,   20,   21,   23,   24,   25,   28,   29
,   33,   37,   39,   43,   46,   51,   53,   61,   62,   65
,   67,   68,   92,    2,    4,   10,   12,   14,   15,   19
,   20,   21,   23,   24,   25,   28,   29,   33,   37,   39
,   43,   46,   51,   53,   61,   62,   65,   67,   68,   92
,    2,    4,   10,   12,   14,   15,   19,   20,   21,   23
,   24,   25,   28,   29,   33,   37,   39,   43,   46,   51
,   53,   61,   62,   65,   67,   68,   92,    2,    4,   10
,   12,   14,   15,   19,   20,   21,   23,   24,   25,   28
,   29,   33,   37,   39,   43,   46,   51,   53,   61,   62
,   65,   67,   68,   92,    2,    4,   10,   12,   14,   15
,   19,   20,   21,   23,   24,   25,   28,   29,   33,   37
,   39,   43,   46,   51,   53,   61,   62,   65,   67,   68
,   92,    2,    4,   10,   12,   14,   15,   19,   20,   21
,   23,   24,   25,   28,   29,   33,   37,   39,   43,   46
,   51,   53,   61,   62,   65,   67,   68,   92,    2,    4
,   10,   12,   14,   15,   19,   20,   21,   23,   24,   25
,   28,   29,   33,   37,   39,   43,   46,   51,   53,   61
,   62,   65,   67,   68,   92,    2,    4,   10,   12,   14
,   15,   19,   20,   21,   23,   24,   25,   28,   29,   33
,   37,   39,   43,   46,   51,   53,   61,   62,   65,   67
,   68,   92,    2,    4,   10,   12,   14,   15,   19,   20
,   21,   23,   24,   25,   28,   29,   33,   37,   39,   43
,   46,   51,   53,   61,   62,   65,   67,   68,   92,    2
,    4,   10,   12,   14,   15,   24,   25,   28,   29,   33
,   37,   46,   51,   53,   62,   65,   67,   68,   92,   19
,   20,   21,   19,   20,   21,   21,   33,   58,   80,   85
,   43,   61,   21,    2,    4,   10,   12,   14,   15,   24
,   25,   28,   29,   33,   37,   43,   46,   51,   53,   62
,   65,   67,   68,   92,   21,   61,    2,    4,   10,   12
,   14,   15,   24,   25,   28,   29,   33,   37,   43,   46
,   51,   53,   62,   65,   67,   68,   92,   25,   33,   62
,    2,    4,   10,   12,   14,   15,   24,   25,   28,   29
,   33,   37,   43,   46,   51,   53,   62,   65,   67,   68
,   92,   80,   33,   65,   67,   80,   65,   67,   80,    2
,    4,   10,   12,   14,   15,   24,   25,   28,   29,   33
,   37,   43,   46,   51,   53,   62,   65,   67,   68,   92
,   43,   61,   21,   10,   14,   10,   25,   26,   27,   42
,   43,   45,   55,   56,   59,   60,   65,   31,   50,   80
,   18,   31,   50,   71,   80,   72,   80,   72,   80,   31
,   51,   71,   65,   65,   10,   25,   26,   27,   35,   42
,   43,   45,   55,   56,   59,   60,   65,   80,   80,   21
,   25,   26,   27,   35,   42,   43,   44,   45,   55,   56
,   59,   60,   65,   21,   44,   21,   25,   26,   27,   42
,   43,   45,   55,   56,   59,   60,   65,   10,   21,   25
,   26,   27,   42,   43,   45,   55,   56,   59,   60,   65
,   75,   80,   21,   22,   25,   43,   21,   21,   22,   25
,   43,   10,   25,   26,   27,   42,   43,   45,   55,   56
,   59,   60,   65,   80,   21,   22,   25,   43,   18,   80
,    2,    4,   10,   12,   14,   15,   24,   25,   28,   29
,   33,   37,   43,   46,   51,   53,   62,   65,   67,   68
,   92,    2,    4,   10,   12,   14,   15,   19,   20,   21
,   23,   24,   25,   28,   29,   33,   37,   39,   43,   46
,   51,   53,   61,   62,   65,   67,   68,   92,    2,    4
,   10,   12,   14,   15,   19,   20,   21,   23,   24,   25
,   28,   29,   33,   37,   39,   43,   46,   51,   53,   61
,   62,   65,   67,   68,   92,    2,    4,   10,   12,   14
,   15,   19,   20,   21,   23,   24,   25,   28,   29,   33
,   37,   39,   43,   46,   51,   53,   61,   62,   65,   67
,   68,   92,    4,   15,   43,   57,   61,   65,   67,   68
,   19,   21,   39,   19,   21,   39,   19,   21,   39,   19
,   21,   39,   19,   21,   39,   19,   21,   39,   19,   21
,   39,   19,   21,   39,   19,   21,   39,   43,   19,   39
,    2,    4,   10,   12,   14,   15,   24,   25,   28,   29
,   33,   37,   43,   46,   51,   53,   62,   65,   67,   68
,   92,    4,   15,   43,   57,   61,   21,   75,   80,   26
,   27,   42,   43,   45,   54,   63,   96,   71,   80,   26
,   27,   42,   43,   45,   54,   63,   96,   26,   27,   42
,   45,   54,   26,   27,   42,   43,   45,   54,   63,   96
,   26,   27,   42,   43,   45,   54,   63,   96,   26,   27
,   42,   45,   54,   63,   75,   80,   26,   27,   42,   43
,   45,   54,   60,   63,   26,   42,   45,   56,    2,    4
,   10,   12,   14,   15,   24,   25,   28,   29,   33,   37
,   43,   46,   51,   53,   62,   65,   67,   68,   92,   21
,   61,   84,   85,   26,   42,   45,   26,   42,   45,   59
,   63,   65,   26,   42,   45,   59,   63,   65,   26,   42
,   45,   59,   63,   65,   80,   80,   72,   75,   72,   75
,   35,   72,   75,   85,   72,   75,   10,   21,   25,   26
,   27,   42,   43,   44,   45,   55,   56,   59,   60,   65
,   10,   21,   25,   26,   27,   42,   43,   44,   45,   55
,   56,   59,   60,   65,   10,   21,   25,   26,   27,   42
,   43,   44,   45,   55,   56,   59,   60,   65,   10,   21
,   25,   26,   27,   42,   43,   44,   45,   55,   56,   59
,   60,   65,   21,   21,   43,   65,   67,   68,   21,   43
,   65,   67,   68,   43,   61,   43,   61,   65,   21,   61
,   84,   85,   65,   10,   21,   25,   26,   27,   42,   44
,   45,   55,   56,   59,   60,   72,   75,   84,   85,    2
,    4,   10,   12,   14,   15,   24,   25,   28,   29,   33
,   37,   43,   46,   51,   53,   62,   65,   67,   68,   92
,    2,    4,   10,   12,   14,   15,   24,   25,   28,   29
,   33,   37,   43,   46,   51,   53,   62,   65,   67,   68
,   92,   21,   61,   21,   61,   65,   21,   22,   25,   21
,   25,   19,   21,   39,   26,   27,   42,   45,   54,   60
,   63,   84,   85,   21,   65,   67,   68,    4,   15,   57
,   65,   65)  ;
        --| Map of states to sets of follow symbols
        -- NYU Reference Name: FOLLOW

    ------------------------------------------------------------------
    -- Action_Token_Map
    ------------------------------------------------------------------


    type Action_Token_Array_Index is array(
        PositiveParserInteger range <>) of GC.ParserInteger ;
        --| For indexing the All Action Token Array.
        --| Maps a given state into the lower and upper bounds of a slice
        --| of the All Action Index Array.

    Action_Token_MapIndex : constant Action_Token_Array_Index :=
         (    1,    1,    2,    2,    3,    2,    3,    9,   10,   11
,   12,   11,   12,   16,   17,   17,   18,   17,   18,   17
,   18,   28,   29,   28,   29,   30,   31,   30,   31,   32
,   33,   33,   34,   34,   35,   34,   35,   34,   35,   34
,   35,   34,   35,   34,   35,   34,   35,   36,   37,   37
,   38,   38,   39,   39,   40,   39,   40,   39,   40,   39
,   40,   43,   44,   46,   47,   46,   47,   47,   48,   48
,   49,   48,   49,   48,   49,   49,   50,   49,   50,   49
,   50,   77,   78,   77,   78,   77,   78,   77,   78,   89
,   90,   89,   90,   89,   90,   90,   91,   90,   91,   99
,  100,  103,  104,  103,  104,  103,  104,  103,  104,  103
,  104,  104,  105,  104,  105,  107,  108,  108,  109,  109
,  110,  110,  111,  111,  112,  112,  113,  115,  116,  119
,  120,  119,  120,  120,  121,  120,  121,  127,  128,  127
,  128,  127,  128,  127,  128,  136,  137,  136,  137,  136
,  137,  136,  137,  139,  140,  140,  141,  140,  141,  141
,  142,  142,  143,  143,  144,  143,  144,  143,  144,  144
,  145,  158,  159,  167,  168,  168,  169,  170,  171,  170
,  171,  170,  171,  171,  172,  180,  181,  182,  183,  184
,  185,  185,  186,  187,  188,  188,  189,  189,  190,  189
,  190,  189,  190,  189,  190,  189,  190,  190,  191,  190
,  191,  190,  191,  191,  192,  192,  193,  193,  194,  193
,  194,  196,  197,  197,  198,  197,  198,  198,  199,  199
,  200,  199,  200,  200,  201,  200,  201,  202,  203,  204
,  205,  205,  206,  205,  206,  207,  208,  223,  224,  227
,  228,  227,  228,  228,  229,  229,  230,  229,  230,  229
,  230,  230,  231,  230,  231,  231,  232,  231,  232,  231
,  232,  231,  232,  242,  243,  242,  243,  242,  243,  242
,  243,  242,  243,  253,  254,  264,  265,  275,  276,  280
,  281,  291,  292,  295,  296,  295,  296,  306,  307,  307
,  308,  319,  320,  331,  332,  342,  343,  353,  354,  364
,  365,  375,  376,  376,  377,  377,  378,  377,  378,  377
,  378,  377,  378,  386,  387,  386,  387,  386,  387,  386
,  387,  386,  387,  395,  396,  395,  396,  395,  396,  402
,  403,  405,  406,  405,  406,  405,  406,  405,  406,  406
,  407,  406,  407,  407,  408,  408,  409,  408,  409,  409
,  410,  411,  412,  414,  415,  415,  416,  415,  416,  418
,  419,  420,  421,  421,  422,  424,  425,  425,  426,  426
,  427,  426,  427,  426,  427,  426,  427,  426,  427,  426
,  427,  426,  427,  426,  427,  426,  427,  426,  427,  426
,  427,  426,  427,  426,  427,  426,  427,  426,  427,  426
,  427,  426,  427,  426,  427,  426,  427,  429,  430,  429
,  430,  429,  430,  429,  430,  429,  430,  429,  430,  429
,  430,  429,  430,  429,  430,  429,  430,  429,  430,  429
,  430,  430,  431,  430,  431,  430,  431,  433,  434,  434
,  435,  436,  437,  439,  440,  440,  441,  441,  442,  441
,  442,  441,  442,  442,  443,  442,  443,  443,  444,  445
,  446,  446,  447,  447,  448,  447,  448,  447,  448,  448
,  449,  450,  451,  450,  451,  451,  452,  451,  452,  454
,  455,  456,  457,  456,  457,  467,  468,  468,  469,  469
,  470,  470,  471,  481,  482,  492,  493,  492,  493,  504
,  505,  515,  516,  515,  516,  517,  518,  517,  518,  529
,  530,  529,  530,  530,  531,  530,  531,  530,  531,  530
,  531,  531,  532,  531,  532,  531,  532,  532,  533,  532
,  533,  532,  533,  532,  533,  532,  533,  532,  533,  532
,  533,  532,  533,  533,  534,  533,  534,  533,  534,  533
,  534,  533,  534,  533,  534,  533,  534,  533,  534,  534
,  535,  545,  546,  553,  554,  553,  554,  564,  565,  564
,  565,  564,  565,  564,  565,  564,  565,  564,  565,  575
,  576,  586,  587,  586,  587,  586,  587,  586,  587,  586
,  587,  587,  588,  588,  589,  588,  589,  588,  589,  588
,  589,  588,  589,  599,  600,  599,  600,  601,  602,  602
,  603,  605,  606,  606,  607,  607,  608,  609,  610,  610
,  611,  611,  612,  612,  613,  614,  615,  617,  618,  618
,  619,  619,  620,  625,  626,  639,  640,  640,  641,  643
,  644,  644,  645,  645,  646,  646,  647,  647,  648,  668
,  669,  670,  671,  670,  671,  671,  672,  682,  683,  682
,  683,  682,  683,  683,  684,  684,  685,  684,  685,  685
,  686,  686,  687,  688,  689,  689,  690,  690,  691,  691
,  692,  692,  693,  703,  704,  703,  704,  704,  705,  704
,  705,  705,  706,  706,  707,  706,  707,  706,  707,  706
,  707,  706,  707,  706,  707,  706,  707,  706,  707,  706
,  707,  706,  707,  706,  707,  717,  718,  728,  729,  728
,  729,  728,  729,  728,  729,  740,  741,  740,  741,  751
,  752,  762,  763,  762,  763,  763,  764,  763,  764,  763
,  764,  763,  764,  763,  764,  763,  764,  763,  764,  765
,  766,  766,  767,  766,  767,  768,  769,  770,  771,  795
,  796,  820,  821,  820,  821,  820,  821,  820,  821,  821
,  822,  821,  822,  832,  833,  832,  833,  834,  835,  838
,  839,  849,  850,  850,  851,  851,  852,  852,  853,  853
,  854,  855,  856,  855,  856,  855,  856,  864,  865,  864
,  865,  865,  866,  867,  868,  869,  870,  869,  870,  869
,  870,  869,  870,  869,  870,  869,  870,  869,  870,  869
,  870,  869,  870,  871,  872,  872,  873,  876,  877,  877
,  878,  878,  879,  878,  879,  879,  880,  880,  881,  883
,  884,  884,  885,  895,  896,  906,  907,  909,  910,  910
,  911,  921,  922,  922,  923,  924,  925,  936,  937,  936
,  937,  937,  938,  938,  939,  938,  939,  943,  944,  943
,  944,  943,  944,  943,  944,  943,  944,  963,  964,  963
,  964,  963,  964,  963,  964,  963,  964,  963,  964,  963
,  964,  963,  964,  963,  964,  963,  964,  963,  964,  963
,  964,  963,  964,  963,  964,  963,  964,  963,  964,  963
,  964,  963,  964,  966,  967,  968,  969,  968,  969,  968
,  969,  968,  969,  968,  969,  968,  969,  968,  969,  968
,  969,  968,  969,  968,  969,  968,  969,  968,  969,  968
,  969,  968,  969,  969,  970,  969,  970,  970,  971,  970
,  971,  970,  971,  970,  971,  978,  979,  979,  980,  983
,  984,  984,  985,  985,  986,  986,  987,  987,  988,  987
,  988,  987,  988,  987,  988,  988,  989,  989,  990,  989
,  990,  989,  990,  990,  991,  990,  991,  990,  991,  990
,  991,  990,  991,  991,  992,  991,  992,  991,  992,  992
,  993,  993,  994,  993,  994,  995,  996, 1006, 1007, 1007
, 1008, 1018, 1019, 1030, 1031, 1031, 1032, 1032, 1033, 1033
, 1034, 1034, 1035, 1036, 1037, 1037, 1038, 1041, 1042, 1042
, 1043, 1042, 1043, 1042, 1043, 1043, 1044, 1044, 1045, 1055
, 1056, 1066, 1067, 1067, 1068, 1068, 1069, 1069, 1070, 1071
, 1072, 1071, 1072, 1071, 1072, 1072, 1073, 1073, 1074, 1074
, 1075, 1075, 1076, 1076, 1077, 1077, 1078, 1078, 1079, 1078
, 1079, 1078, 1079, 1078, 1079, 1079, 1080, 1080, 1081, 1080
, 1081, 1081, 1082, 1082, 1083, 1082, 1083, 1083, 1084, 1083
, 1084, 1084, 1085, 1084, 1085, 1084, 1085, 1085, 1086, 1086
, 1087, 1087, 1088, 1087, 1088, 1088, 1089, 1091, 1092, 1092
, 1093, 1093, 1094, 1094, 1095, 1105, 1106, 1105, 1106, 1108
, 1109, 1110, 1111, 1110, 1111, 1110, 1111, 1111, 1112, 1111
, 1112, 1111, 1112, 1111, 1112, 1113, 1114, 1113, 1114, 1114
, 1115, 1119, 1120, 1120, 1121, 1125, 1126, 1125, 1126, 1136
, 1137, 1137, 1138, 1162, 1163, 1162, 1163, 1162, 1163, 1162
, 1163, 1163, 1164, 1165, 1166, 1166, 1167, 1166, 1167, 1177
, 1178, 1177, 1178, 1178, 1179, 1178, 1179, 1179, 1180, 1179
, 1180, 1180, 1181, 1188, 1189, 1188, 1189, 1189, 1190, 1191
, 1192, 1205, 1206, 1209, 1210, 1211, 1212, 1211, 1212, 1212
, 1213, 1213, 1214, 1214, 1215, 1214, 1215, 1215, 1216, 1216
, 1217, 1216, 1217, 1216, 1217, 1217, 1218, 1217, 1218, 1217
, 1218, 1220, 1221, 1220, 1221, 1220, 1221, 1220, 1221, 1231
, 1232, 1232, 1233, 1234, 1235, 1234, 1235, 1234, 1235, 1234
, 1235, 1235, 1236, 1235, 1236, 1236, 1237, 1247, 1248, 1247
, 1248, 1248, 1249, 1249, 1250, 1250, 1251, 1251, 1252, 1251
, 1252, 1251, 1252, 1251, 1252, 1252, 1253, 1252, 1253, 1252
, 1253, 1263, 1264, 1263, 1264, 1263, 1264, 1263, 1264, 1263
, 1264, 1264, 1265, 1264, 1265, 1275, 1276, 1276, 1277, 1276
, 1277, 1276, 1277, 1277, 1278, 1277, 1278, 1277, 1278, 1277
, 1278, 1277, 1278, 1277, 1278, 1277, 1278, 1277, 1278, 1277
, 1278, 1277, 1278, 1277, 1278, 1277, 1278, 1277, 1278, 1277
, 1278, 1277, 1278, 1277, 1278, 1277, 1278, 1277, 1278, 1278
, 1279, 1279, 1280, 1281, 1282, 1282, 1283, 1282, 1283, 1293
, 1294, 1294, 1295, 1295, 1296, 1295, 1296, 1297, 1298, 1308
, 1309, 1310, 1311, 1310, 1311, 1310, 1311, 1311, 1312, 1322
, 1323, 1322, 1323, 1322, 1323, 1324, 1325, 1324, 1325, 1324
, 1325, 1324, 1325, 1324, 1325, 1324, 1325, 1325, 1326, 1326
, 1327, 1326, 1327, 1327, 1328, 1339, 1340, 1339, 1340, 1339
, 1340, 1339, 1340, 1339, 1340, 1340, 1341, 1340, 1341, 1341
, 1342, 1341, 1342, 1342, 1343, 1343, 1344, 1344, 1345, 1345
, 1346, 1356, 1357, 1360, 1361, 1360, 1361, 1360, 1361, 1360
, 1361, 1360, 1361, 1360, 1361, 1360, 1361, 1360, 1361, 1360
, 1361, 1360, 1361, 1362, 1363, 1365, 1366, 1367, 1368, 1367
, 1368, 1369, 1370, 1369, 1370, 1369, 1370, 1370, 1371, 1371
, 1372, 1374, 1375, 1376, 1377, 1377, 1378, 1378, 1379, 1383
, 1384, 1384, 1385, 1384, 1385, 1384, 1385, 1384, 1385, 1384
, 1385, 1385, 1386, 1385, 1386, 1387, 1388, 1387, 1388, 1387
, 1388, 1388, 1389, 1388, 1389, 1388, 1389, 1388, 1389, 1388
, 1389, 1388, 1389, 1389, 1390, 1389, 1390, 1390, 1391, 1391
, 1392, 1394, 1395, 1394, 1395, 1395, 1396, 1395, 1396, 1395
, 1396, 1399, 1400, 1399, 1400, 1399, 1400, 1400, 1401, 1400
, 1401, 1402, 1403, 1403, 1404, 1404, 1405, 1404, 1405, 1405
, 1406, 1405, 1406, 1407, 1408, 1408, 1409, 1435, 1436, 1439
, 1440, 1440, 1441, 1440, 1441, 1440, 1441, 1443, 1444, 1443
, 1444, 1444, 1445, 1444, 1445, 1444, 1445, 1444, 1445, 1444
, 1445, 1445, 1446, 1445, 1446, 1456, 1457, 1457, 1458, 1457
, 1458, 1457, 1458, 1457, 1458, 1457, 1458, 1458, 1459, 1459
, 1460, 1460, 1461, 1460, 1461, 1460, 1461, 1461, 1462, 1461
, 1462, 1473, 1474, 1474, 1475, 1475, 1476, 1475, 1476, 1476
, 1477, 1477, 1478, 1477, 1478, 1478, 1479, 1502, 1503, 1502
, 1503, 1502, 1503, 1502, 1503, 1502, 1503, 1503, 1504, 1503
, 1504, 1503, 1504, 1503, 1504, 1503, 1504, 1504, 1505, 1504
, 1505, 1504, 1505, 1505, 1506, 1505, 1506, 1505, 1506, 1505
, 1506, 1516, 1517, 1527, 1528, 1528, 1529, 1529, 1530, 1530
, 1531, 1530, 1531, 1531, 1532, 1532, 1533, 1535, 1536, 1535
, 1536, 1535, 1536, 1536, 1537, 1536, 1537, 1547, 1548, 1548
, 1549, 1549, 1550, 1553, 1554, 1553, 1554, 1553, 1554, 1555
, 1556, 1567, 1568, 1567, 1568, 1569, 1570, 1569, 1570, 1569
, 1570, 1571, 1572, 1572, 1573, 1573, 1574, 1574, 1575, 1575
, 1576, 1575, 1576, 1584, 1585, 1584, 1585, 1584, 1585, 1585
, 1586, 1587, 1588, 1590, 1591, 1591, 1592, 1593, 1594, 1593
, 1594, 1594, 1595, 1595, 1596, 1595, 1596, 1595, 1596, 1595
, 1596, 1595, 1596, 1597, 1598, 1597, 1598, 1608, 1609, 1608
, 1609, 1609, 1610, 1610, 1611, 1610, 1611, 1610, 1611, 1610
, 1611, 1610, 1611, 1611, 1612, 1613, 1614, 1614, 1615, 1619
, 1620, 1619, 1620, 1621, 1622, 1622, 1623, 1623, 1624, 1624
, 1625, 1626, 1627, 1626, 1627, 1626, 1627, 1630, 1631, 1638
, 1639, 1639, 1640, 1640, 1641, 1641, 1642, 1652, 1653, 1653
, 1654, 1654, 1655, 1657, 1658, 1657, 1658, 1657, 1658, 1668
, 1669, 1668, 1669, 1668, 1669, 1669, 1670, 1669, 1670, 1670
, 1671, 1670, 1671, 1670, 1671, 1671, 1672, 1672, 1673, 1672
, 1673, 1673, 1674, 1673, 1674, 1674, 1675, 1674, 1675, 1674
, 1675, 1675, 1676, 1675, 1676, 1675, 1676, 1676, 1677, 1677
, 1678, 1700, 1701, 1701, 1702, 1701, 1702, 1702, 1703, 1703
, 1704, 1705, 1706, 1705, 1706, 1705, 1706, 1705, 1706, 1705
, 1706, 1705, 1706, 1705, 1706, 1706, 1707, 1706, 1707, 1707
, 1708, 1707, 1708, 1708, 1709, 1709, 1710, 1709, 1710, 1713
, 1714, 1713, 1714, 1714, 1715, 1719, 1720, 1719, 1720, 1720
, 1721, 1721, 1722, 1722, 1723, 1724, 1725, 1725, 1726, 1725
, 1726, 1725, 1726, 1725, 1726, 1725, 1726, 1725, 1726, 1726
, 1727, 1727, 1728, 1728, 1729, 1728, 1729, 1728, 1729, 1728
, 1729, 1728, 1729, 1729, 1730, 1729, 1730, 1730, 1731, 1731
, 1732, 1731, 1732, 1732, 1733, 1732, 1733, 1733, 1734, 1733
, 1734, 1734, 1735, 1734, 1735, 1734, 1735, 1734, 1735, 1736
, 1737, 1738, 1739, 1738, 1739, 1738, 1739, 1739, 1740, 1739
, 1740, 1740, 1741, 1741, 1742, 1741, 1742, 1742, 1743, 1742
, 1743, 1742, 1743, 1742, 1743, 1742, 1743, 1742, 1743, 1742
, 1743, 1742)  ;

    Action_Token_Map : constant Action_Token_Array :=
         (   43,   65,   63,   26,   27,   42,   43,   45,   54,   71
,   80,   27,   45,   26,   42,   54,   63,    3,   35,   36
,   37,   65,   66,   68,   71,   67,   74,   76,   65,   67
,   65,   11,   65,   71,   80,   31,   35,   80,   35,   42
,   45,   26,   56,   26,   45,   42,   35,   65,   65,   30
,   49,   71,   72,   73,   74,   75,   76,   77,   78,   81
,   82,   83,   85,   86,   89,   91,    7,   34,   36,   39
,   47,   64,   69,   70,   84,   87,   90,   35,   36,   37
,   65,   67,   71,   74,   76,    3,   40,   66,   68,   72
,   30,   81,   83,   86,   89,   90,   91,   36,   82,   47
,   71,   77,   70,   75,    7,   64,   39,    7,   39,   64
,    7,   39,   76,   69,   74,   73,   34,   49,   78,   87
,   35,   37,   68,   71,   65,   66,   67,    3,   36,   65
,   67,   68,   71,   35,   37,   66,   31,   71,   51,   65
,   31,   71,   65,   65,   10,   21,   25,   26,   27,   44
,   55,   56,   42,   43,   45,   59,   60,   65,   25,   26
,   27,   42,   45,   55,   56,   59,   60,   10,   65,   67
,   65,   25,   26,   27,   42,   45,   55,   56,   59,   60
,   21,   44,   21,   10,   65,   65,   67,   11,   11,   31
,   65,   80,   80,   59,   65,   63,   65,   43,   60,   71
,   77,   70,   84,   85,   85,   75,   72,   36,   39,   64
,   81,   82,   84,   85,   86,    7,   30,   72,   75,   83
,   89,   90,   91,   47,   70,   71,   77,   72,   75,   80
,   30,    3,   71,   74,   76,   35,   36,   37,   65,   66
,   67,   68,   36,   37,   74,   76,    3,   35,   65,   66
,   67,   68,   71,   35,   71,    3,   36,   37,   65,   66
,   67,   68,   74,   76,    3,   36,   65,   66,   67,   68
,   71,   74,   35,   37,   76,   17,   47,   16,   65,   71
,   74,   76,    3,   35,   36,   37,   65,   66,   67,   68
,   71,   65,   67,   68,    6,   35,   74,   76,    3,   36
,   37,   65,   66,   67,   68,   71,   75,    3,   35,   58
,   65,   66,   67,   68,   71,   36,   37,   74,   76,   19
,   74,   76,    3,   35,   36,   37,   65,   66,   67,   68
,   71,    3,   37,   65,   66,   67,   68,   71,   76,   35
,   36,   74,    3,   35,   36,   37,   65,   66,   68,   74
,   76,   67,   71,   35,   36,   37,   71,   76,    3,   65
,   66,   67,   68,   74,    3,   36,   37,   65,   67,   71
,   74,   76,   35,   66,   68,   58,   19,   35,   71,    3
,   36,   37,   65,   66,   67,   68,   35,   36,   37,   65
,   67,   71,    3,   66,   68,   37,   65,   66,   67,   68
,   71,   35,   70,   71,   77,   65,   65,   31,   65,   72
,   77,   71,   77,   80,   65,   65,   67,   68,   11,   65
,   65,   11,   59,   65,   65,   65,   31,   50,   80,   80
,   71,   77,   80,   65,   59,   65,   31,   50,   80,   35
,   65,   65,   80,   51,   71,   65,   65,   65,   26,   45
,   79,   71,   77,   80,   75,   80,    3,   35,   36,   37
,   66,   67,   68,   71,   74,   76,   65,   71,   65,   65
,   36,   37,   65,    3,   35,   66,   67,   68,   71,   74
,   76,   35,   37,   74,   76,    3,   36,   65,   66,   67
,   68,   71,   35,   36,   37,   65,    3,   40,   66,   67
,   68,   71,   74,   76,   35,   65,   74,   76,    3,   36
,   37,   66,   67,   68,   71,   84,   85,    3,   35,   36
,   37,   65,   67,   68,   71,   74,   76,   40,   66,   75
,   86,   86,   72,   65,    3,   37,   65,   71,   74,   76
,   35,   36,   66,   67,   68,   30,   36,   81,   82,   83
,   89,   90,   91,    3,   36,   37,   65,   67,   68,   71
,   74,   35,   66,   76,   35,   37,   65,   66,   67,   68
,   74,   76,    3,   36,   71,   65,   66,   68,   71,   74
,   76,    3,   35,   36,   37,   67,   77,   79,    3,   36
,   66,   67,   74,   35,   37,   65,   68,   71,   76,   71
,   80,   60,   70,   71,   77,   60,   65,   31,   50,   31
,   65,   65,   80,   31,   31,   71,   80,   77,   43,   26
,   42,   45,   56,   27,   60,   21,   25,   26,   27,   45
,   55,   56,   59,   60,   10,   42,   43,   44,   65,   54
,   68,   65,   67,   43,   21,   22,   21,    2,   10,   24
,   29,   33,   37,   46,   51,   62,   65,   67,   68,    4
,   12,   14,   15,   25,   28,   43,   53,   92,   23,   21
,   65,   35,   36,   37,   66,   68,   71,   74,   76,    3
,   65,   67,   21,   80,   31,   80,   71,   31,   31,   75
,   30,   65,   35,   74,   76,    3,   36,   37,   65,   66
,   67,   68,   71,   65,   43,   72,   35,   36,   67,   76
,    3,   37,   65,   66,   68,   71,   74,   35,   36,   37
,   65,   67,   68,   71,   74,    3,   66,   76,   36,   37
,   40,   65,   66,   71,    3,   35,   67,   68,   74,   76
,   36,   37,   66,    3,   35,   65,   67,   68,   71,   74
,   76,   35,   65,   71,   76,    3,   36,   37,   66,   67
,   68,   74,   75,   30,   41,   65,   72,   80,   72,   80
,    7,   30,   34,   36,   39,   49,   69,   70,   71,   72
,   73,   74,   75,   83,   64,   76,   77,   78,   81,   82
,   85,   87,   89,   90,   91,   70,   71,   72,   77,   82
,   83,   90,   91,    7,   30,   34,   36,   39,   49,   64
,   69,   73,   74,   75,   76,   78,   81,   85,   87,   89
,   85,   35,   36,   37,   65,   66,   67,   71,   74,   76
,    3,   68,    9,   71,   16,   17,   65,   47,   35,   37
,    3,   36,   65,   66,   67,   68,   71,   74,   76,   31
,   65,   65,   31,   31,   80,    5,    8,   16,   17,   32
,   35,   44,   47,   71,   65,   75,   80,   11,   65,   31
,   80,   80,   70,   71,   77,   80,   65,   65,   25,   65
,   65,   67,   68,   65,   35,   36,   37,   67,   68,   71
,   74,   76,    3,   65,   66,   71,   74,   76,    3,   35
,   36,   37,   65,   66,   67,   68,   80,   61,   65,   65
,    3,   35,   36,   68,   74,   76,   37,   65,   66,   67
,   71,   80,   80,   65,   37,   68,   71,   74,   76,   80
,    3,   35,   36,   65,   66,   67,   79,   65,   70,   88
,   71,   77,   80,   10,   12,   15,   24,   28,   33,   46
,   62,   92,    2,    4,   14,   25,   29,   37,   51,   53
,   65,   67,   68,   33,   62,   25,   10,   14,   79,   65
,    8,   16,   17,   44,   47,   71,    5,   32,   65,   65
,   67,   94,   68,   80,   65,   41,   88,   75,   86,   75
,   88,   51,   65,   72,   75,   35,   37,   65,   67,   68
,   71,   74,   76,    3,   36,   66,   72,    3,   35,   37
,   65,   67,   68,   71,   76,   36,   66,   74,    3,   36
,   37,   66,   74,   76,   35,   40,   65,   67,   68,   71
,   48,   80,   80,   54,   77,   80,   80,   16,   17,   47
,   71,   54,   65,   71,    3,   35,   37,   66,   67,   71
,   76,   36,   65,   68,   74,   66,   67,   68,   71,   74
,   76,    3,   35,   36,   37,   65,   44,   65,   80,   65
,   68,   80,   80,   80,   80,   80,   80,   80,   47,   47
,   48,   79,   65,   43,   80,   71,   43,   80,   70,   71
,   77,   71,   31,   80,    3,   37,   65,   66,   67,   68
,   71,   74,   76,   35,   36,   61,   77,   80,   77,   80
,   58,   77,   80,   80,   10,   14,   25,   33,   62,   93
,   65,   16,   17,   47,   71,   35,   36,   37,   65,   66
,   67,   68,   74,    3,   71,   76,   43,    2,    4,   19
,   24,   37,   61,   62,   65,   67,   92,   10,   12,   14
,   15,   20,   21,   23,   25,   28,   29,   33,   46,   51
,   53,   68,   21,   43,   61,   65,   35,   67,   71,    3
,   36,   37,   65,   66,   68,   74,   76,   33,   65,   21
,    4,   15,   43,   57,   61,   65,   67,   68,   21,   43
,   61,   26,   44,   45,   55,   56,   10,   21,   25,   27
,   42,   43,   59,   60,   65,    8,   65,   13,   23,   75
,   72,   94,   94,   44,   94,   94,   80,   70,   71,   77
,   35,   65,   66,   67,   68,   71,   76,    3,   36,   37
,   74,   80,   75,   72,   65,   80,   36,   65,   66,   67
,   68,    3,   35,   37,   71,   74,   76,   80,   80,   75
,    9,   80,    3,   35,   36,   37,   66,   76,   65,   67
,   68,   71,   74,   80,    3,   65,   71,   74,   76,   35
,   36,   37,   66,   67,   68,   38,   80,   37,   65,   72
,   80,   77,   35,   36,   37,   65,   67,   68,   71,    3
,   66,   74,   76,   80,   43,   75,   80,   35,    3,   36
,   37,   65,   66,   67,   68,   71,   74,   76,   18,   80
,   80,   68,   71,   74,   76,    3,   35,   36,   37,   65
,   66,   67,   20,   19,   80,   80,   12,   40,   71,   76
,    3,   35,   36,   37,   65,   66,   67,   68,   74,   30
,   21,   80,   65,   65,   80,   71,   76,    3,   35,   36
,   37,   65,   66,   67,   68,   74,   70,   71,   77,   80
,   19,   39,   57,    4,   15,   19,   39,   65,   40,   61
,   71,    8,   65,   88,   50,   80,   88,   88,   16,   17
,   47,   50,   71,   80,   72,   72,   80,   80,   34,   43
,   21,   65,   67,   68,   72,   70,   71,   77,   47,   65
,   72,   75,   21,   43,   88,   31,   80,   65,    7,   71
,   72,   73,   74,   75,   82,   83,   89,   90,   91,   30
,   34,   36,   39,   47,   49,   64,   69,   70,   76,   77
,   78,   79,   81,   86,   87,   47,   70,   71,   77,   72
,   68,   65,   67,   72,   80,   35,   36,   37,   74,    3
,   65,   66,   67,   68,   71,   76,   21,   43,   80,   85
,   61,    3,   37,   65,   66,   67,   35,   36,   52,   68
,   71,   74,   76,   33,   21,   80,   80,   85,   10,   12
,   15,   24,   25,   28,   29,   33,   37,   39,   46,   53
,   62,   65,   67,   68,    2,    4,   14,   19,   21,   43
,   51,   92,   43,   21,   77,   37,   68,   76,    3,   35
,   36,   65,   66,   67,   71,   74,    3,   35,   36,   66
,   68,   76,   37,   65,   67,   71,   74,   88,   88,   65
,   80,   80,   65,   67,   68,   31,   35,   36,   37,   65
,   67,   68,   76,    3,   66,   71,   74,   21,   48,   70
,   71,   77,    9,   72,   75,   35,   36,   65,   66,   67
,   68,   71,   74,   94,    3,   37,   76,   72,   75,   68
,   65,   48,   65,   12,   43,    5,   44,    8,   16,   17
,   32,   35,   47,   71,   71,   72,   80,   70,   71,   77
,   71,   72,   80,   58,   29,   84,   85,    3,   35,   37
,   65,   66,   67,   68,   36,   71,   74,   76,   65,   33
,   21,   15,   43,   53,    4,   43,   57,   61,   15,   84
,   85,   80,   80,   80,   77,   80,   71,   80,   70,   77
,    5,   17,   32,   44,   47,    8,   16,   71,   80,   48
,   80,   35,   37,   65,   68,   76,    3,   36,   66,   67
,   71,   74,   43,   38,   67,   65,   68,   35,   36,   37
,   65,   67,   68,    3,   66,   71,   74,   76,   79,   65
,   44,   80,   65,   65,   80,   80,   65,   21,   24,   25
,   39,   46,   51,   53,   62,   65,   67,   68,   92,    2
,    4,   10,   12,   14,   15,   19,   28,   29,   33,   37
,   53,   21,   80,   40,   65,   80,   80,   47,   65,   47
,   70,   71,   77,   65,   43,   61,   65,   12,   21,   31
,   43,   21,   43,   61,   80,   80,   80,   53,   80,   94
,   88,   12,   37,   37,   80,   72,   72,   80,   80,   80
,   80,   61)  ;
        --| Action_Token_Map is an array that
        --| maps from each state (using action  map) to a set of
        --| action tokens. An action token is a terminal symbol
        --| (except EOF_Token) for which in the given state an
        --| explicit (non-default) shift or reduce action
        --| is defined.
        --| Used to cut reduce the
        --| number of primary recovery candidates.

    ------------------------------------------------------------------
    -- Shift_State_Map
    ------------------------------------------------------------------

    type Shift_State_Index_Array is array(
        PositiveParserInteger range <>) of GC.ParserInteger;
       --| For indexing the All Action Token Array.
       --| Maps a given state into the lower and upper bounds of a slice
       --| of the All Action Index Array.

    Shift_State_MapIndex : constant Shift_State_Index_Array :=
         (    1,    1,    2,    2,    3,    3,    4,    4,    5,    5
,    6,    6,    7,    9,   10,   11,   12,   14,   15,   15
,   16,   19,   20,   23,   24,   24,   25,   25,   26,   26
,   27,   29,   30,   32,   33,   33,   34,   36,   37,   37
,   38,   56,   57,   57,   58,   59,   60,   60,   61,   62
,   63,   64,   65,   65,   66,   66,   67,   68,   69,   72
,   73,   90,   91,   93,   94,   96,   97,   98,   99,  103
,  104,  105,  106,  107,  108,  109,  110,  113,  114,  116
,  117,  118,  119,  124,  125,  126,  127,  133,  134,  134
,  135,  135,  136,  140,  141,  145,  146,  146,  147,  150
,  151,  153,  154,  154,  155,  158,  159,  162,  163,  163
,  164,  166,  167,  167,  168,  171,  172,  174,  175,  177
,  178,  182,  183,  183,  184,  185,  186,  187,  188,  217
,  218,  218,  219,  223,  224,  226,  227,  227,  228,  231
,  232,  247,  248,  263,  264,  264,  265,  266,  267,  279
,  280,  281,  282,  283,  284,  284,  285,  290,  291,  384
,  385,  385,  386,  386,  387,  387,  388,  390,  391,  398
,  399,  402,  403,  403,  404,  406,  407,  407,  408,  408
,  409,  409,  410,  410,  411,  411,  412,  417,  418,  417
,  418,  417,  418,  417,  418,  418,  419,  423,  424,  427
,  428,  428,  429,  429,  430,  430,  431,  433,  434,  436
,  437,  438,  439,  441,  442,  444,  445,  445,  446,  446
,  447,  447,  448,  448,  449,  449,  450,  450,  451,  455
,  456,  463,  464,  471,  472,  474,  475,  490,  491,  491
,  492,  492,  493,  493,  494,  494,  495,  496,  497,  504
,  505,  507,  508,  509,  510,  519,  520,  520,  521,  521
,  522,  522,  523,  524,  525,  525,  526,  527,  528,  528
,  529,  536,  537,  537,  538,  538,  539,  545,  546,  547
,  548,  549,  550,  567,  568,  569,  570,  570,  571,  571
,  572,  572,  573,  574,  575,  575,  576,  576,  577,  578
,  579,  579,  580,  580,  581,  595,  596,  600,  601,  601
,  602,  603,  604,  605,  606,  607,  608,  610,  611,  626
,  627,  627,  628,  628,  629,  629,  630,  630,  631,  631
,  632,  633,  634,  634,  635,  635,  636,  636,  637,  638
,  639,  639,  640,  642,  643,  644,  645,  646,  647,  648
,  649,  649,  650,  650,  651,  652,  653,  655,  656,  656
,  657,  658,  659,  659,  660,  661,  662,  663,  664,  664
,  665,  665,  666,  666,  667,  668,  669,  669,  670,  670
,  671,  671,  672,  676,  677,  677,  678,  681,  682,  685
,  686,  688,  689,  691,  692,  692,  693,  695,  696,  697
,  698,  708,  709,  709,  710,  710,  711,  711,  712,  712
,  713,  713,  714,  714,  715,  715,  716,  716,  717,  717
,  718,  720,  721,  723,  724,  724,  725,  726,  727,  727
,  728,  730,  731,  731,  732,  732,  733,  733,  734,  734
,  735,  735,  736,  736,  737,  737,  738,  751,  752,  759
,  760,  762,  763,  764,  765,  775,  776,  777,  778,  779
,  780,  780,  781,  781,  782,  782,  783,  783,  784,  784
,  785,  786,  787,  787,  788,  788,  789,  789,  790,  791
,  792,  792,  793,  793,  794,  794,  795,  795,  796,  797
,  798,  798,  799,  800,  801,  801,  802,  802,  803,  804
,  805,  810,  811,  811,  812,  812,  813,  814,  815,  816
,  817,  818,  819,  819,  820,  821,  822,  833,  834,  834
,  835,  836,  837,  840,  841,  841,  842,  842,  843,  843
,  844,  844,  845,  845,  846,  852,  853,  862,  863,  869
,  870,  875,  876,  877,  878,  878,  879,  880,  881,  883
,  884,  884,  885,  886,  887,  888,  889,  890,  891,  891
,  892,  892,  893,  893,  894,  894,  895,  896,  897,  897
,  898,  898,  899,  899,  900,  900,  901,  901,  902,  902
,  903,  903,  904,  904,  905,  905,  906,  906,  907,  908
,  909,  909,  910,  910,  911,  912,  913,  913,  914,  915
,  916,  916,  917,  919,  920,  920,  921,  921,  922,  923
,  924,  925,  926,  926,  927,  927,  928,  928,  929,  929
,  930,  931,  932,  932,  933,  933,  934,  934,  935,  935
,  936,  936,  937,  937,  938,  938,  939,  939,  940,  941
,  942,  943,  944,  944,  945,  945,  946,  946,  947,  947
,  948,  949,  950,  950,  951,  954,  955,  957,  958,  958
,  959,  959,  960,  960,  961,  962,  963,  963,  964,  964
,  965,  965,  966,  966,  967,  968,  969,  969,  970,  970
,  971,  971,  972,  973,  974,  974,  975,  975,  976,  977
,  978,  978,  979,  979,  980,  981,  982,  982,  983,  983
,  984,  984,  985,  985,  986,  986,  987,  987,  988,  988
,  989,  989,  990,  990,  991,  991,  992,  992,  993,  993
,  994,  994,  995,  995,  996,  996)  ;

    Shift_State_Map : constant Shift_State_Array :=
         (    1,  425,   37,  426,  523,  278,  151,  154,  157,  524
,  730,  511,  752,  899,  216,   78,  236,  313,  316,  427
,  795,  910,  987,  731,  593,  428,  270,  525,  605,  271
,  526,  606,  783,  289,  296,  787,  788,  229,  232,  420
,  424,  469,  479,  697,  709,  725,  802,  841,  852,  867
,  877,  884,  897,  927,  962,  972,  421,  470,  732,  429
,  185,  588,   13,   97,   14,  430,  431,  921,  132,  264
,  488,  801,   83,  174,  179,  304,  324,  399,  402,  404
,  481,  483,  485,  516,  520,  521,  682,  857,  895,  971
,  527,  607,  913,  589,  876,  925,  163,  839,   38,   85
,   92,  112,  528,   39,  133,   40,  432,  764,  943,  152
,  155,  158,  815,  121,  796,  821,  501,  619,   15,   98
,  107,  186,  225,  408,    2,  183,  230,  529,  608,  652
,  739,  914,  954,   16,  433,  144,  272,  609,  846,  969
,  634,  669,  898,  907,  940,  164,  325,  398,  830,  834
,  175,  434,  626,  874,  435,  930,  961,  984,   17,  418
,  638,  646,  187,   99,  188,  226,  710,  286,  295,  689
,  920,  189,  240,  317,  190,  394,  396,  563,  685,  698
,  711,  726,  590,   35,  241,  153,  156,    9,   41,   75
,   79,  113,  116,  122,  219,  233,  242,  273,  279,  309
,  310,  315,  319,  342,  355,  356,  374,  385,  436,  491
,  555,  577,  618,  655,  703,  774,  950,   42,   43,   76
,  220,  280,  386,   44,  281,  656,  159,  145,  249,  395
,  578,   11,   45,   82,  146,  176,  248,  307,  334,  347
,  392,  512,  530,  610,  641,  648,  826,  131,  254,  259
,  306,  372,  492,  503,  628,  631,  736,  746,  836,  844
,  850,  901,  904,  165,   46,  160,  149,  255,  260,  285
,  349,  368,  487,  549,  629,  779,  851,  902,  905,   47
,  161,  147,  250,  166,  345,  380,  576,  602,  671,  947
,   12,   84,   91,  238,  239,  263,  308,  332,  335,  339
,  348,  350,  393,  403,  405,  480,  482,  504,  522,  550
,  552,  553,  564,  571,  572,  574,  579,  617,  636,  637
,  639,  640,  654,  659,  660,  661,  662,  663,  664,  665
,  674,  678,  683,  686,  687,  691,  692,  742,  745,  748
,  750,  751,  757,  759,  765,  771,  778,  780,  784,  785
,  792,  793,  804,  807,  831,  835,  838,  858,  865,  870
,  878,  879,  892,  893,  933,  934,  935,  936,  937,  939
,  941,  955,  958,  959,  963,  965,  966,  979,  982,  983
,  985,  993,  994,  995,  134,  135,  136,  251,  363,  931
,  252,  253,  364,  509,  871,  880,  922,  932,  137,  256
,  370,  371,  168,  580,  620,  827,  138,  139,  140,  437
,  693,  615,  737,  738,  740,  741,  903,    3,   48,  277
,  352,  510,  758,  184,  438,  699,  973,  191,  192,  193
,   18,  194,  409,   19,  195,  410,  196,  411,   20,  197
,  412,   21,  198,  413,  199,  472,  473,  474,  475,  476
,  243,  302,  477,  547,  908,  518,  647,  653,  733,  828
,  849,  968,  970,  621,  625,  832,  833,  856,  889,  890
,  986,  531,  734,  829,   49,  123,  357,  358,  359,  365
,  387,  496,  561,  567,  575,  633,  695,  744,  781,  888
,  344,  200,  201,  202,  532,  915,  177,  180,  406,  484
,  675,  680,  916,  918,  548,  614,  859,  672,  743,  505
,  507,  772,  837,  860,  863,  917,  919,  991,  992,  533
,  534,  535,  536,  611,  537,  538,  612,  539,  117,  300
,  489,  502,  519,  735,  747,  770,  642,  118,  148,  257
,  540,  643,  666,  847,  967,  541,  644,  542,  645,   50
,  124,  265,  266,  268,  269,  287,  362,  494,  499,  500
,  515,  562,  632,  650,  651,  896,  942,  657,  906,  766
,  658,  543,  667,  668,  544,  545,  760,  944,  845,  649
,   51,  125,  171,  311,  419,  439,  559,  616,  712,  761
,  775,  842,  862,  894,  945,  762,  776,  875,  923,  946
,  848,  267,  763,  513,  546,  635,  670,  767,  988,  990
,   86,  114,  321,  323,  326,  351,  551,  556,  601,  677
,  754,  768,  855,  900,  948,  951,  853,  909,  949,  854
,  911,  440,  769,  912,  952,  974,  975,  996,  976,  126
,  495,  797,   87,   93,   88,   95,  203,  414,  322,  204
,  205,  557,  206,  247,  415,  416,  100,  207,  208,   22
,  101,   23,  102,  103,   52,   53,   54,  312,  282,  274
,  127,   55,  275,  353,  514,  694,  128,  261,  369,  623
,  624,  129,  360,  366,  498,  262,  493,  497,  130,  361
,  367,   56,   57,  283,  375,  150,  373,   58,  288,  290
,  291,  292,  293,  294,  376,  377,  378,  379,   59,   60
,   61,   62,   63,  141,  142,   64,   65,   66,  173,  297
,   67,  172,  299,  169,   68,  298,   69,   70,  276,  354
,   71,   72,  143,  162,   73,  167,  170,  119,  181,  182
,  224,  245,  301,  320,  517,  565,  566,  573,  673,  822
,  891,  330,  581,  597,  794,  809,  814,  883,  885,  441
,  696,  881,  582,  926,  331,  596,  690,  705,  798,  800
,  803,  824,  868,  869,  882,  442,  583,  443,  584,  444
,  445,  446,  447,  448,  449,  713,  450,  451,  452,  453
,  714,  454,  455,  456,  457,  458,  715,  459,  460,  585
,  568,  688,  789,  819,  569,  684,  704,  786,  808,  866
,  461,  586,  700,  977,  701,  873,  702,  978,  462,  591
,  706,  234,  336,  338,  341,  554,  558,  604,  707,  805
,  806,  924,  960,  592,  217,  594,   89,   96,  237,  708
,  218,  471,  599,  463,  595,   24,  104,  108,  209,  227
,  343,  417,   80,   81,  178,  314,  318,  340,  397,  400
,  401,  560,  303,  305,  627,  777,  782,  956,  957,  383
,  384,  861,  864,  980,  981,   77,  235,  381,  346,  382
,   25,  105,  228,  221,   26,  109,   27,  110,   94,  337
,  231,   28,  407,  210,  327,  329,  211,  106,  676,  422
,  681,  464,  465,  466,  467,  468,  598,  886,  724,  716
,  717,  818,  718,  719,  928,  720,  810,  812,  813,  721
,  722,  790,  816,  817,  820,  929,  679,    4,    5,    6
,   10,    7,   29,   30,    8,  246,   36,   31,  727,  728
,  825,  823,  964,   32,   33,  111,  244,  613,  938,  486
,  388,  478,  490,  749,  508,  603,  622,   34,  389,  390
,  391,  630,  212,  213,  214,  215,  755,  840,  753,  843
,  953,  587,  600,  773,  989,  258,  872,   90,  222,   74
,  284,  120,  570,  791,  799,  729,  506,  328,  423,  811
,  115,  887,  756,  723,  223,  333)  ;
        --| Shift_State_ is an array that
        --| maps from non-terminals (using shift  map) to sets
        --| of states in which
        --| a shift to the non-terminal is defined.
        --| Used to determine the number of trials in primary
        --| error recovery.

    ------------------------------------------------------------------
    -- Subprogram Bodies Global to Package ErrorParseTables
    ------------------------------------------------------------------

    function Get_Action_Token_Map ( --| return the array of action tokens
                                    --| for the state passed in.
        In_Index : in StateRange
                                    --| the state to return action tokens
                                    --| for.
        )
        return Action_Token_Record
        is
        --| Returns
        --| This subprogram returns the action token record for the
        --| state passed in.
        Result : Action_Token_Record ;
        LowerBound, UpperBound : GC.ParserInteger ;
        --| Lower and upper bounds of the slice of Action Token Map
    begin
        LowerBound := Action_Token_MapIndex ( In_Index*2 - 1 ) ;
        UpperBound := Action_Token_MapIndex ( In_Index*2 ) ;

        Result.set_size := UpperBound - LowerBound + 1;
        Result.set := (others => DefaultValue) ;
        Result.set(Result.set'first .. Result.set_size) :=
        Action_Token_Map(LowerBound..UpperBound) ;

        return Result ;
    end Get_Action_Token_Map ;

    ------------------------------------------------------------------

    function Get_Shift_State_Map (  --| return the array of shift states
                                --| for the grammar symbol passed in.
        In_Index : in GrammarSymbolRange
                                --| the grammar symbol to return shifts
                                --| for.
        )
        --| Raises: This subprogram raises no exceptions.
        return Shift_State_Record
        --| Returns
        --| This subprogram returns the array of shift states for the
        --| grammar symbol passed in.
        is

        Result : Shift_State_Record ;
        LowerBound, UpperBound : GC.ParserInteger ;
          --| Lower and upper bounds of the slice of Shift State Map
    begin
        LowerBound := Shift_State_MapIndex ( In_Index*2 - 1 ) ;
        UpperBound := Shift_State_MapIndex ( In_Index*2 ) ;

        Result.set_size := UpperBound - LowerBound + 1;
        Result.set := (others => DefaultValue) ;
        Result.set(Result.set'first .. Result.set_size) :=
            Shift_State_Map(LowerBound..UpperBound) ;

        return Result ;
    end Get_Shift_State_Map ;

    function Get_Grammar_Symbol (   --| return the string representation
                                    --| of the grammar symbol
        In_Index : in GrammarSymbolRange
        )
        return string
        is
        LowerBound, UpperBound : GC.ParserInteger ;
      --| Lower and upper bounds of the slice of Shift State Map
    begin
        LowerBound := GrammarSymbolTableIndex ( In_Index*2 - 1 ) ;
        UpperBound := GrammarSymbolTableIndex ( In_Index*2 ) ;

        return GrammarSymbolTable(
            Integer(LowerBound) .. Integer(UpperBound)) ;
    end Get_Grammar_Symbol ;

    ------------------------------------------------------------------

    function Get_Follow_Map (       --| return the array of follow symbols
                                --| of the grammar symbol passed in
        In_Index : in FollowMapRange
        )
        -- |
        -- |Raises: This subprogram raises no exceptions.
        -- |

      return FollowSymbolRecord
      is
        Result : FollowSymbolRecord ;
        LowerBound, UpperBound : GC.ParserInteger ;
        Adjusted_Index : GC.ParserInteger :=
          (In_Index - FollowMapRange'first) + 1;
    begin
        LowerBound := FollowSymbolMapIndex ( Adjusted_Index*2 - 1 ) ;
        UpperBound := FollowSymbolMapIndex ( Adjusted_Index*2 ) ;

        Result.follow_symbol_count := UpperBound - LowerBound + 1;
        Result.follow_symbol := (others => DefaultValue) ;
        Result.follow_symbol(
          Result.follow_symbol'first ..
          Result.follow_symbol_count) :=
            FollowSymbolMap(LowerBound..UpperBound) ;

        return Result ;
    end Get_Follow_Map ;

    ------------------------------------------------------------------

    function GetAction (            -- see subprogram declaration
      InStateValue  : in StateRange;
      InSymbolValue : in GrammarSymbolRange
      )
      return ActionRange
      is

        Unique : GC.ParserInteger;
            --| unique value to hash for Index.
        Index  : GC.ParserInteger;
            --|  into Action Tables.
        Action : GC.ParserInteger;
            --| value from Action Tables.
        CollisionCount : Natural := 0 ; --| Number of collisions.
    begin -- GetAction function
    --| Algorithm
    --|-
    --| Definitions of key objects from package ParseTables:
    --|
    --| ActionCount: the number of actions in the action tables.
    --|
    --| ActionTableOne: table of action values for all combinations of
    --|     states and input actions.
    --|
    --| ActionTableTwo: hash values to check against to verify that action
    --|     value at same  in ActionTableOne is correct one.
    --|
    --| ActionTableSize: last  in ActionTableOne and ActionTableTwo
    --|     before the hash collision chains.
    --|
    --| DefaultMap: default action for each state.
    --|+
    --| The action to be returned is computed from parameters InStateValue
    --| and InSymbolValue. First, determine the unique single value:
    --|
    --|     Unique := (InStateValue * GrammarSymbolCountPlusOne) +
    --|                InSymbolValue;
    --|
    --| Unique is hashed by reducing modulo ActionTableSize and adding 1:
    --|
    --|     Index := (Unique mod ActionTableSize) + 1;
    --|
    --| This hash value, Index, is used to  ActionTableOne to
    --| obtain an Action:
    --|
    --|     Action := ActionTableOne(Index);
    --|
    --| Action is then used to determine the return value:
    --|
    --| Action = 0:
    --|     return DefaultMap(InStateValue);
    --|
    --| Action < ActionCount:
    --|     if (Unique = ActionTableTwo(Index)) then
    --|         return Action;
    --|     else
    --|         return DefaultMap(InStateValue);
    --|     end if;
    --|
    --| Action >= ActionCount:
    --|     --Search the hash collision chain
    --|     Index := Action - ActionCount;
    --|     while (Action /= 0) loop
    --|         Index := Index + 1;
    --|         Action := ActionTableTwo(Index);
    --|         if (Action = Unique) then
    --|             return ActionTableOne(Index);
    --|         end if;
    --|     end loop;
    --|     return DefaultMap(InStateValue);

    ------------------------------------------------------------------

  --| The actual code used folds this algorithm into a more efficient one:
        ParserDecisionCount := Natural'succ(ParserDecisionCount) ;

        Unique := (InStateValue * GrammarSymbolCountPlusOne) +
                        InSymbolValue;
        Index := (Unique mod ActionTableSize) + 1;
        Action := ActionTableOne(Index);

        if (Action >= ActionCount) then
            Index := Action - ActionCount + 1;
            while ( (ActionTableTwo(Index) /= Unique) and then
                    (ActionTableTwo(Index) /= 0) ) loop
                Index := Index + 1;
            CollisionCount := Natural'succ(CollisionCount) ;
            end loop;
            Action := ActionTableOne(Index);
        end if;

        -- Collect statistics information.
        TotalCollisions := CollisionCount + TotalCollisions ;
        if CollisionCount > MaxCollisions then
            MaxCollisions := CollisionCount ;
        end if;

        if (ActionTableTwo(Index) /= Unique) then
            return DefaultMap(InStateValue);
        else
            return Action;
        end if;

    end GetAction; -- function

    function Get_LeftHandSide(
      GrammarRule : LeftHandSideRange
      ) return GrammarSymbolRange is
    begin
        return LeftHandSide(GrammarRule) ;
    end Get_LeftHandSide ;

    function Get_RightHandSide(
      GrammarRule : RightHandSideRange
      ) return GC.ParserInteger is
    begin
        return RightHandSide(GrammarRule) ;
    end Get_RightHandSide ;

end ParseTables;

----------------------------------------------------------------------