1(* This caused a problem in the Sparc version because the stack frame
2   grew to more than 4096 bytes.  Thanks to Rob Arthan for reporting it. *)
3type STATE = int;
4type STATE_STACK = STATE list;
5datatype ('tok, 'lc, 'pp) INPUT_STACK_ITEM = Token of 'tok * 'lc | Parsed of 'pp;
6type('tok, 'lc, 'pp) INPUT_STACK = ('tok, 'lc, 'pp) INPUT_STACK_ITEM list;
7datatype ACTION = Shift of STATE
8            | Reduce of ((string * int) * int)
9            | Dynamic of STATE * ((string * int) * int)
10            | Accept
11            | Error;
12(*
13type ('lc)ACTION_TABLE =  ('lc * ACTION) list PPArray.array;
14type GOTO_TABLE = (string * STATE) list PPArray.array;
15type ('tok, 'lc, 'pp)REDUCTION_TABLE =
16    (('tok, 'lc, 'pp)INPUT_STACK -> 'pp) list E_DICT;
17datatype RESOLUTION = DoShift
18            | DoReduce
19            | DoError;
20type ('tok, 'lc, 'pp)RESOLVER =
21    ('tok * 'lc) * ('tok, 'lc, 'pp)INPUT_STACK * ((string * int) * int) -> RESOLUTION;
22type ('tok, 'lc)CLASSIFIER = 'tok -> 'lc;
23type ('tok, 'lc, 'pp, 'st)ERROR_ROUTINE =
24    'tok * ('tok, 'lc, 'pp)INPUT_STACK * STATE_STACK * 'st -> ('tok*'st);
25type ('tok, 'st)READER = 'st -> ('tok * 'st);
26exception SYNTAX_ERROR;
27exception PARSER_ERROR of string;
28local
29    fun get_action (actions : (''lc)ACTION_TABLE) (s:STATE) (lc:''lc) : ACTION = (
30    (let    open PPArray
31    in  lassoc3 (sub(actions, s)) lc
32    end handle Fail _ => Error)
33    handle PPArray.Subscript => raise PARSER_ERROR "invalid state"
34    );
35in  fun lookup_action
36        (resolver : ('tok, ''lc, 'pp)RESOLVER)
37        (actions : (''lc)ACTION_TABLE)
38        (tok : 'tok)
39        (stk : ('tok, ''lc, 'pp)INPUT_STACK)
40        (s : STATE)
41        (lc : ''lc) : ACTION = (
42        case get_action actions s lc of
43            Dynamic (s', altsymn) => (
44                case resolver((tok, lc), stk, altsymn) of
45                    DoShift => Shift s'
46                |   DoReduce => Reduce altsymn
47                |   DoError => Error
48            ) | easy => easy
49    );
50end;
51fun lookup_goto (gotos : GOTO_TABLE) (s:STATE) (nt : string) : STATE = (
52    (let    open PPArray
53    in  lassoc3 (sub(gotos, s)) nt
54    end handle Fail _ => raise PARSER_ERROR "invalid non-terminal")
55    handle PPArray.Subscript => raise PARSER_ERROR "invalid state"
56
57);
58fun lookup_reducer (reducers : ('tok, ''lc, 'pp)REDUCTION_TABLE)
59        (nt:string) (alt : int) : ('tok, ''lc, 'pp)INPUT_STACK -> 'pp = (
60    case e_lookup nt reducers of
61        Value tab => nth alt tab
62    |   Nil  => raise PARSER_ERROR "invalid non-terminal/alternative"
63);
64fun slrp'parse
65    (s0 : STATE)
66    (actions : (''lc)ACTION_TABLE)
67    (gotos : GOTO_TABLE)
68    (reducers : ('tok, ''lc, 'pp)REDUCTION_TABLE)
69    (resolver : ('tok, ''lc, 'pp) RESOLVER)
70    (classify : ('tok, ''lc)CLASSIFIER)
71    (error : ('tok, ''lc, 'pp, 'st)ERROR_ROUTINE)
72    (reader : ('tok, 'st) READER) : 'st -> 'pp = (
73    let open PPArray;
74        val init_ss = [s0];
75        val init_is = [];
76        val fetch_action = lookup_action resolver actions;
77        val fetch_reducer = lookup_reducer reducers;
78        val fetch_goto = lookup_goto gotos;
79        fun go (tok, st) = (fn (ss, is) =>
80            let val lc = classify tok;
81                val s = hd ss;
82            in  case fetch_action tok is s lc of
83                    Shift s' => go (reader st)((s' :: ss), Token(tok, lc) :: is)
84                |   Reduce((nt, alt), r) => (
85                        let val reducer = fetch_reducer nt alt;
86                            val A = reducer is;
87                            val ss' = ss from r;
88                            val is' = is from r;
89                            val s' = fetch_goto (hd ss') nt;
90                        in go (tok, st) (s' :: ss', Parsed A :: is')
91                        end
92                ) | Accept => ((ss, is)
93                ) | Error =>(
94                    go (error (tok, is, ss, st)) (ss, is)
95                ) | Dynamic _ => (
96                    raise PARSER_ERROR "conflict resolution error"
97                )
98            end
99        );
100    in
101        (fn st => (
102            case go (reader st) (init_ss, init_is)of
103                (_, [Parsed res]) => res
104            |   _ => raise PARSER_ERROR "stacks corrupt at end of parse"))
105    end
106);
107fun format_stack (do_tok : 'tok -> string)(stk : ('tok, 'lc, 'pp)INPUT_STACK) : string = (
108    format_list (fn Token (tk, _) => do_tok tk | _ => "...") (rev stk) " "
109);
110fun default_error
111    (do_tok : 'tok -> string)
112    (tok: 'tok, stk : ('tok, 'lc, 'pp)INPUT_STACK, _ : STATE_STACK, st : 'st) : ('tok*'st) = (
113    raw_diag_line("*** ERROR Syntax error ***");
114    if any stk (fn Token _ => true | _ => false)
115    then raw_diag_line(do_tok tok ^ " not expected after: " ^ format_stack do_tok stk)
116    else raw_diag_line(do_tok tok ^ " not expected here");
117    raise SYNTAX_ERROR; (tok, st)
118);
119val (default_resolver : ('tok, 'lc, 'pp)RESOLVER) = (fn _ =>
120    raise PARSER_ERROR "shift/reduce conflict"
121);
122fun simple_resolver (prec : (('tok * 'lc) * ('tok * 'lc)) -> RESOLUTION)
123        : ('tok, 'lc, 'pp)RESOLVER = (fn (toklc, stk, ignored) =>
124    case stk of
125        Token toklc' :: _ => prec (toklc', toklc)
126    |   _ :: more => simple_resolver prec (toklc, more, ignored)
127    |   [] => DoError
128);
129end; (* of structure SlrpDriver *)
130open SlrpDriver;
131*)
132datatype CN_LEX_CLASS
133            = LCAbs | LCAmpersand | LCAnd
134            | LCAnnotation | LCAnnotationLabel | LCArbitraryAda
135            | LCArray | LCAt | LCAuxiliary
136            | LCBar |LCBBody | LCBecomes | LCBegin | LCBy
137            | LCCase| LCCharacterLiteral
138            | LCColon | LCComma | LCComment
139            | LCCompLabel | LCConstant
140            | LCCon | LCCrd
141            | LCDecLabel  | LCDeclare| LCDelta | LCDigits | LCDiv
142            | LCDotDot | LCDot
143            | LCElse | LCElsIf | LCEnd | LCEos | LCEquals | LCExit
144            | LCFatDot | LCFor | LCFunction
145            | LCGoesTo | LCGreaterEquals | LCGreaterThan
146            | LCGrkGamma | LCGrkDelta | LCGrkXi
147            | LCIdentifier | LCIf | LCImplement | LCImplementedBy
148            | LCIn | LCIs
149            | LCKSlot
150            | LCLBrace | LCLChevron | LCLessEquals
151            | LCLessGreat | LCLessThan
152            | LCLimited | LCLoop | LCLSqBrack | LCLStrachey
153            | LCMinus | LCMod
154            | LCNotEquals | LCNot | LCNull | LCNumericLiteral
155            | LCOf | LCOrd | LCOr | LCOthers | LCOut
156            | LCPackage | LCPlus | LCPPartLabel | LCPrime
157            | LCPrimedIdentifier | LCPragma | LCPrivate
158            | LCProcedure
159            | LCRBrace | LCRChevron | LCRecord
160            | LCReferences | LCRefinedBy | LCRem
161            | LCRenames | LCReplacedBy | LCReturn
162            | LCReverse | LCRRange | LCRSqBrack | LCRStrachey
163            | LCSemi | LCSeparate | LCSpecLabel | LCStarStar
164            | LCStar | LCStmtLabel | LCStringLiteral
165            | LCSubType | LCThen | LCTill | LCType
166            | LCUse| LCUsing | LCVPartLabel
167            | LCWhen | LCWhile | LCWith
168            | LCXor
169            | LCZ;
170local
171val slrp'a711=[[(LCFor,Shift 596),(LCPackage,Shift 533),(LCPragma,Shift 481),
172(LCFunction,Shift 565),(LCUse,Shift 509),(LCType,Shift 551),(LCUsing,Shift 619),
173(LCProcedure,Shift 530),(LCLChevron,Shift 462),
174(LCEos,Reduce(("declarative_part",0),0)),
175(LCBegin,Reduce(("declarative_part",0),0)),
176(LCEnd,Reduce(("declarative_part",0),0)),(LCSubType,Shift 44),
177(LCIdentifier,Shift 443),(LCAnnotation,Shift 22)]];
178val slrp'a710=[[(LCFor,Shift 596),(LCPackage,Shift 533),(LCSeparate,Shift 402),
179(LCPragma,Shift 481),(LCFunction,Shift 565),(LCUse,Shift 509),(LCType,Shift 551)
180,(LCProcedure,Shift 530),(LCLChevron,Shift 462),
181(LCEos,Reduce(("declarative_part",0),0)),
182(LCBegin,Reduce(("declarative_part",0),0)),
183(LCEnd,Reduce(("declarative_part",0),0)),(LCSubType,Shift 44),
184(LCIdentifier,Shift 443),(LCAnnotation,Shift 22)]]@slrp'a711;
185val slrp'a709=[[(LCFor,Shift 596),(LCPackage,Shift 533),(LCSeparate,Shift 400),
186(LCPragma,Shift 481),(LCFunction,Shift 565),(LCUse,Shift 509),(LCType,Shift 551)
187,(LCProcedure,Shift 530),(LCLChevron,Shift 462),
188(LCEos,Reduce(("declarative_part",0),0)),
189(LCBegin,Reduce(("declarative_part",0),0)),
190(LCEnd,Reduce(("declarative_part",0),0)),(LCSubType,Shift 44),
191(LCIdentifier,Shift 443),(LCAnnotation,Shift 22)]]@slrp'a710;
192val slrp'a708=[[(LCFor,Shift 596),(LCPackage,Shift 533),(LCPragma,Shift 481),
193(LCFunction,Shift 565),(LCUse,Shift 509),(LCType,Shift 551),
194(LCProcedure,Shift 530),(LCLChevron,Shift 462),
195(LCEos,Reduce(("declarative_part",0),0)),
196(LCBegin,Reduce(("declarative_part",0),0)),
197(LCEnd,Reduce(("declarative_part",0),0)),(LCSubType,Shift 44),
198(LCIdentifier,Shift 443),(LCAnnotation,Shift 22)]]@slrp'a709;
199val slrp'a707=[[(LCFor,Shift 596),(LCPackage,Shift 533),(LCPragma,Shift 481),
200(LCFunction,Shift 565),(LCUse,Shift 509),(LCType,Shift 551),
201(LCProcedure,Shift 530),(LCLChevron,Shift 462),
202(LCEos,Reduce(("declarative_part",0),0)),
203(LCBegin,Reduce(("declarative_part",0),0)),
204(LCEnd,Reduce(("declarative_part",0),0)),(LCSubType,Shift 44),
205(LCIdentifier,Shift 443),(LCAnnotation,Shift 22)]]@slrp'a708;
206val slrp'a706=[[(LCFor,Shift 596),(LCPackage,Shift 533),(LCPragma,Shift 481),
207(LCFunction,Shift 565),(LCUse,Shift 509),(LCType,Shift 551),
208(LCProcedure,Shift 530),(LCLChevron,Shift 462),
209(LCEos,Reduce(("declarative_part",0),0)),
210(LCBegin,Reduce(("declarative_part",0),0)),
211(LCEnd,Reduce(("declarative_part",0),0)),(LCSubType,Shift 44),
212(LCIdentifier,Shift 443),(LCAnnotation,Shift 22)]]@slrp'a707;
213val slrp'a705=[[(LCFor,Shift 596),(LCPackage,Shift 533),(LCPragma,Shift 481),
214(LCFunction,Shift 565),(LCUse,Shift 509),(LCType,Shift 551),
215(LCProcedure,Shift 530),(LCLChevron,Shift 462),
216(LCEos,Reduce(("declarative_part",0),0)),
217(LCBegin,Reduce(("declarative_part",0),0)),
218(LCEnd,Reduce(("declarative_part",0),0)),(LCSubType,Shift 44),
219(LCIdentifier,Shift 443),(LCAnnotation,Shift 22)]]@slrp'a706;
220val slrp'a704=[[(LCFor,Shift 596),(LCPackage,Shift 533),(LCPragma,Shift 481),
221(LCFunction,Shift 565),(LCUse,Shift 509),(LCType,Shift 551),
222(LCProcedure,Shift 530),(LCLChevron,Shift 462),
223(LCEos,Reduce(("declarative_part",0),0)),
224(LCBegin,Reduce(("declarative_part",0),0)),
225(LCEnd,Reduce(("declarative_part",0),0)),(LCSubType,Shift 44),
226(LCIdentifier,Shift 443),(LCAnnotation,Shift 22)]]@slrp'a705;
227val slrp'a703=[[(LCFor,Shift 596),(LCPackage,Shift 533),(LCPragma,Shift 481),
228(LCFunction,Shift 565),(LCUse,Shift 509),(LCType,Shift 551),
229(LCProcedure,Shift 530),(LCLChevron,Shift 462),
230(LCEos,Reduce(("declarative_part",0),0)),
231(LCBegin,Reduce(("declarative_part",0),0)),
232(LCEnd,Reduce(("declarative_part",0),0)),(LCSubType,Shift 44),
233(LCIdentifier,Shift 443),(LCAnnotation,Shift 22)]]@slrp'a704;
234val slrp'a702=[[(LCFor,Shift 596),(LCPragma,Shift 481),(LCFunction,Shift 565),
235(LCPackage,Shift 358),(LCUse,Shift 509),(LCType,Shift 551),
236(LCAuxiliary,Shift 313),(LCEos,Reduce(("visible_part",0),0)),
237(LCEnd,Reduce(("visible_part",0),0)),(LCPrivate,Reduce(("visible_part",0),0)),
238(LCProcedure,Shift 530),(LCLChevron,Shift 462),(LCSubType,Shift 44),
239(LCIdentifier,Shift 443),(LCAnnotation,Shift 22)]]@slrp'a703;
240val slrp'a701=[[(LCFor,Shift 596),(LCPragma,Shift 481),(LCFunction,Shift 565),
241(LCPackage,Shift 358),(LCUse,Shift 509),(LCType,Shift 551),
242(LCAuxiliary,Shift 313),(LCEos,Reduce(("visible_part",0),0)),
243(LCEnd,Reduce(("visible_part",0),0)),(LCPrivate,Reduce(("visible_part",0),0)),
244(LCProcedure,Shift 530),(LCLChevron,Shift 462),(LCSubType,Shift 44),
245(LCIdentifier,Shift 443),(LCAnnotation,Shift 22)]]@slrp'a702;
246val slrp'a700=[[(LCFor,Shift 596),(LCPragma,Shift 481),(LCFunction,Shift 565),
247(LCPackage,Shift 358),(LCUse,Shift 509),(LCType,Shift 551),
248(LCAuxiliary,Shift 313),(LCEos,Reduce(("visible_part",0),0)),
249(LCEnd,Reduce(("visible_part",0),0)),(LCPrivate,Reduce(("visible_part",0),0)),
250(LCProcedure,Shift 530),(LCLChevron,Shift 462),(LCSubType,Shift 44),
251(LCIdentifier,Shift 443),(LCAnnotation,Shift 22)]]@slrp'a701;
252val slrp'a699=[[(LCFor,Shift 596),(LCPragma,Shift 481),(LCFunction,Shift 565),
253(LCPackage,Shift 358),(LCUse,Shift 509),(LCType,Shift 551),
254(LCEos,Reduce(("private_part",0),1)),(LCEnd,Reduce(("private_part",0),1)),
255(LCProcedure,Shift 530),(LCLChevron,Shift 462),(LCSubType,Shift 44),
256(LCIdentifier,Shift 443),(LCAnnotation,Shift 22)]]@slrp'a700;
257val slrp'a698=[[(LCFor,Shift 596),(LCPragma,Shift 481),(LCFunction,Shift 565),
258(LCPackage,Shift 358),(LCUse,Shift 509),(LCType,Shift 551),
259(LCProcedure,Shift 530),(LCLChevron,Shift 462),(LCSubType,Shift 44),
260(LCIdentifier,Shift 443),(LCAnnotation,Shift 22)]]@slrp'a699;
261val slrp'a697=[[(LCFor,Shift 596),(LCPragma,Shift 481),(LCFunction,Shift 565),
262(LCPackage,Shift 358),(LCUse,Shift 509),(LCType,Shift 551),
263(LCProcedure,Shift 530),(LCLChevron,Shift 462),(LCSubType,Shift 44),
264(LCIdentifier,Shift 443),(LCAnnotation,Shift 22)]]@slrp'a698;
265val slrp'a696=[[(LCLStrachey,Shift 236),(LCMinus,Shift 155),(LCPlus,Shift 154),
266(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
267(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
268(LCOthers,Shift 112),(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a697;
269val slrp'a695=[[(LCLStrachey,Shift 236),(LCMinus,Shift 155),(LCPlus,Shift 154),
270(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
271(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
272(LCOthers,Shift 112),(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a696;
273val slrp'a694=[[(LCPragma,Shift 481),(LCReturn,Shift 655),(LCExit,Shift 527),
274(LCIdentifier,Shift 447),(LCFor,Reduce(("name_colon_opt",0),0)),
275(LCWhile,Reduce(("name_colon_opt",0),0)),(LCTill,Reduce(("name_colon_opt",0),0))
276,(LCLoop,Reduce(("name_colon_opt",0),0)),
277(LCDeclare,Reduce(("name_colon_opt",0),0)),
278(LCBegin,Reduce(("name_colon_opt",0),0)),(LCCase,Shift 646),(LCIf,Shift 651),
279(LCNull,Shift 197),(LCLChevron,Shift 462),(LCGrkGamma,Shift 181),
280(LCGrkDelta,Shift 524),(LCAnnotation,Shift 168),(LCCon,Shift 459),
281(LCCharacterLiteral,Shift 105)]]@slrp'a695;
282val slrp'a693=[[(LCPragma,Shift 481),(LCReturn,Shift 655),(LCExit,Shift 527),
283(LCIdentifier,Shift 447),(LCFor,Reduce(("name_colon_opt",0),0)),
284(LCWhile,Reduce(("name_colon_opt",0),0)),(LCTill,Reduce(("name_colon_opt",0),0))
285,(LCLoop,Reduce(("name_colon_opt",0),0)),
286(LCDeclare,Reduce(("name_colon_opt",0),0)),
287(LCBegin,Reduce(("name_colon_opt",0),0)),(LCCase,Shift 646),(LCIf,Shift 651),
288(LCNull,Shift 197),(LCLChevron,Shift 462),(LCGrkGamma,Shift 181),
289(LCGrkDelta,Shift 524),(LCAnnotation,Shift 168),(LCCon,Shift 459),
290(LCCharacterLiteral,Shift 105)]]@slrp'a694;
291val slrp'a692=[[(LCPragma,Shift 481),(LCReturn,Shift 655),(LCExit,Shift 527),
292(LCIdentifier,Shift 447),(LCFor,Reduce(("name_colon_opt",0),0)),
293(LCWhile,Reduce(("name_colon_opt",0),0)),(LCTill,Reduce(("name_colon_opt",0),0))
294,(LCLoop,Reduce(("name_colon_opt",0),0)),
295(LCDeclare,Reduce(("name_colon_opt",0),0)),
296(LCBegin,Reduce(("name_colon_opt",0),0)),(LCCase,Shift 646),(LCIf,Shift 651),
297(LCNull,Shift 197),(LCLChevron,Shift 462),(LCGrkGamma,Shift 181),
298(LCGrkDelta,Shift 524),(LCAnnotation,Shift 168),(LCCon,Shift 459),
299(LCCharacterLiteral,Shift 105)]]@slrp'a693;
300val slrp'a691=[[(LCPragma,Shift 481),(LCReturn,Shift 655),(LCExit,Shift 527),
301(LCIdentifier,Shift 447),(LCFor,Reduce(("name_colon_opt",0),0)),
302(LCWhile,Reduce(("name_colon_opt",0),0)),(LCTill,Reduce(("name_colon_opt",0),0))
303,(LCLoop,Reduce(("name_colon_opt",0),0)),
304(LCDeclare,Reduce(("name_colon_opt",0),0)),
305(LCBegin,Reduce(("name_colon_opt",0),0)),(LCCase,Shift 646),(LCIf,Shift 651),
306(LCNull,Shift 197),(LCLChevron,Shift 462),(LCGrkGamma,Shift 181),
307(LCGrkDelta,Shift 524),(LCAnnotation,Shift 168),(LCCon,Shift 459),
308(LCCharacterLiteral,Shift 105)]]@slrp'a692;
309val slrp'a690=[[(LCPragma,Shift 481),(LCReturn,Shift 655),(LCExit,Shift 527),
310(LCIdentifier,Shift 447),(LCFor,Reduce(("name_colon_opt",0),0)),
311(LCWhile,Reduce(("name_colon_opt",0),0)),(LCTill,Reduce(("name_colon_opt",0),0))
312,(LCLoop,Reduce(("name_colon_opt",0),0)),
313(LCDeclare,Reduce(("name_colon_opt",0),0)),
314(LCBegin,Reduce(("name_colon_opt",0),0)),(LCCase,Shift 646),(LCIf,Shift 651),
315(LCNull,Shift 197),(LCLChevron,Shift 462),(LCGrkGamma,Shift 181),
316(LCGrkDelta,Shift 524),(LCAnnotation,Shift 168),(LCCon,Shift 459),
317(LCCharacterLiteral,Shift 105)]]@slrp'a691;
318val slrp'a689=[[(LCLStrachey,Shift 236),(LCMinus,Shift 155),(LCPlus,Shift 154),
319(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
320(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
321(LCOthers,Shift 112),(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a690;
322val slrp'a688=[[(LCLStrachey,Shift 236),(LCMinus,Shift 155),(LCPlus,Shift 154),
323(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
324(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
325(LCOthers,Shift 112),(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a689;
326val slrp'a687=[[(LCPragma,Shift 481),(LCReturn,Shift 655),(LCExit,Shift 527),
327(LCIdentifier,Shift 447),(LCFor,Reduce(("name_colon_opt",0),0)),
328(LCWhile,Reduce(("name_colon_opt",0),0)),(LCTill,Reduce(("name_colon_opt",0),0))
329,(LCLoop,Reduce(("name_colon_opt",0),0)),
330(LCDeclare,Reduce(("name_colon_opt",0),0)),
331(LCBegin,Reduce(("name_colon_opt",0),0)),(LCCase,Shift 646),(LCIf,Shift 651),
332(LCNull,Shift 197),(LCLChevron,Shift 462),(LCGrkGamma,Shift 181),
333(LCGrkDelta,Shift 524),(LCAnnotation,Shift 168),(LCCon,Shift 459),
334(LCCharacterLiteral,Shift 105)]]@slrp'a688;
335val slrp'a686=[[(LCPragma,Shift 481),(LCReturn,Shift 655),(LCExit,Shift 527),
336(LCIdentifier,Shift 447),(LCFor,Reduce(("name_colon_opt",0),0)),
337(LCWhile,Reduce(("name_colon_opt",0),0)),(LCTill,Reduce(("name_colon_opt",0),0))
338,(LCLoop,Reduce(("name_colon_opt",0),0)),
339(LCDeclare,Reduce(("name_colon_opt",0),0)),
340(LCBegin,Reduce(("name_colon_opt",0),0)),(LCCase,Shift 646),(LCIf,Shift 651),
341(LCNull,Shift 197),(LCLChevron,Shift 462),(LCGrkGamma,Shift 181),
342(LCGrkDelta,Shift 524),(LCAnnotation,Shift 168),(LCCon,Shift 459),
343(LCCharacterLiteral,Shift 105)]]@slrp'a687;
344val slrp'a685=[[(LCPragma,Shift 481),(LCReturn,Shift 655),(LCExit,Shift 527),
345(LCIdentifier,Shift 447),(LCFor,Reduce(("name_colon_opt",0),0)),
346(LCWhile,Reduce(("name_colon_opt",0),0)),(LCTill,Reduce(("name_colon_opt",0),0))
347,(LCLoop,Reduce(("name_colon_opt",0),0)),
348(LCDeclare,Reduce(("name_colon_opt",0),0)),
349(LCBegin,Reduce(("name_colon_opt",0),0)),(LCCase,Shift 646),(LCIf,Shift 651),
350(LCNull,Shift 197),(LCLChevron,Shift 462),(LCGrkGamma,Shift 181),
351(LCGrkDelta,Shift 524),(LCAnnotation,Shift 168),(LCCon,Shift 459),
352(LCEos,Reduce(("sequence_of_statements",0),1)),
353(LCElsIf,Reduce(("sequence_of_statements",0),1)),
354(LCElse,Reduce(("sequence_of_statements",0),1)),
355(LCEnd,Reduce(("sequence_of_statements",0),1)),
356(LCWhen,Reduce(("sequence_of_statements",0),1)),(LCCharacterLiteral,Shift 105)]]@slrp'a686;
357val slrp'a684=[[(LCPragma,Shift 481),(LCReturn,Shift 655),(LCExit,Shift 527),
358(LCIdentifier,Shift 447),(LCFor,Reduce(("name_colon_opt",0),0)),
359(LCWhile,Reduce(("name_colon_opt",0),0)),(LCTill,Reduce(("name_colon_opt",0),0))
360,(LCLoop,Reduce(("name_colon_opt",0),0)),
361(LCDeclare,Reduce(("name_colon_opt",0),0)),
362(LCBegin,Reduce(("name_colon_opt",0),0)),(LCCase,Shift 646),(LCIf,Shift 651),
363(LCNull,Shift 197),(LCLChevron,Shift 462),(LCGrkGamma,Shift 181),
364(LCGrkDelta,Shift 524),(LCAnnotation,Shift 168),(LCCon,Shift 459),
365(LCCharacterLiteral,Shift 105)]]@slrp'a685;
366val slrp'a683=[[(LCPragma,Shift 481),(LCReturn,Shift 655),(LCExit,Shift 527),
367(LCIdentifier,Shift 447),(LCFor,Reduce(("name_colon_opt",0),0)),
368(LCWhile,Reduce(("name_colon_opt",0),0)),(LCTill,Reduce(("name_colon_opt",0),0))
369,(LCLoop,Reduce(("name_colon_opt",0),0)),
370(LCDeclare,Reduce(("name_colon_opt",0),0)),
371(LCBegin,Reduce(("name_colon_opt",0),0)),(LCCase,Shift 646),(LCIf,Shift 651),
372(LCNull,Shift 197),(LCLChevron,Shift 462),(LCGrkGamma,Shift 181),
373(LCGrkDelta,Shift 524),(LCAnnotation,Shift 168),(LCCon,Shift 459),
374(LCCharacterLiteral,Shift 105)]]@slrp'a684;
375val slrp'a682=[[(LCPragma,Shift 481),(LCReturn,Shift 655),(LCExit,Shift 527),
376(LCIdentifier,Shift 447),(LCFor,Reduce(("name_colon_opt",0),0)),
377(LCWhile,Reduce(("name_colon_opt",0),0)),(LCTill,Reduce(("name_colon_opt",0),0))
378,(LCLoop,Reduce(("name_colon_opt",0),0)),
379(LCDeclare,Reduce(("name_colon_opt",0),0)),
380(LCBegin,Reduce(("name_colon_opt",0),0)),(LCCase,Shift 646),(LCIf,Shift 651),
381(LCNull,Shift 197),(LCLChevron,Shift 462),(LCGrkGamma,Shift 181),
382(LCGrkDelta,Shift 524),(LCAnnotation,Shift 168),(LCCon,Shift 459),
383(LCCharacterLiteral,Shift 105)]]@slrp'a683;
384val slrp'a681=[[(LCPragma,Shift 481),(LCReturn,Shift 655),(LCExit,Shift 527),
385(LCIdentifier,Shift 447),(LCFor,Reduce(("name_colon_opt",0),0)),
386(LCWhile,Reduce(("name_colon_opt",0),0)),(LCTill,Reduce(("name_colon_opt",0),0))
387,(LCLoop,Reduce(("name_colon_opt",0),0)),
388(LCDeclare,Reduce(("name_colon_opt",0),0)),
389(LCBegin,Reduce(("name_colon_opt",0),0)),(LCCase,Shift 646),(LCIf,Shift 651),
390(LCNull,Shift 197),(LCLChevron,Shift 462),(LCGrkGamma,Shift 181),
391(LCGrkDelta,Shift 524),(LCAnnotation,Shift 168),(LCCon,Shift 459),
392(LCCharacterLiteral,Shift 105)]]@slrp'a682;
393val slrp'a680=[[(LCPragma,Shift 481),(LCReturn,Shift 655),(LCExit,Shift 527),
394(LCIdentifier,Shift 447),(LCFor,Reduce(("name_colon_opt",0),0)),
395(LCWhile,Reduce(("name_colon_opt",0),0)),(LCTill,Reduce(("name_colon_opt",0),0))
396,(LCLoop,Reduce(("name_colon_opt",0),0)),
397(LCDeclare,Reduce(("name_colon_opt",0),0)),
398(LCBegin,Reduce(("name_colon_opt",0),0)),(LCCase,Shift 646),(LCIf,Shift 651),
399(LCNull,Shift 197),(LCLChevron,Shift 462),(LCGrkGamma,Shift 181),
400(LCGrkDelta,Shift 524),(LCAnnotation,Shift 168),(LCCon,Shift 459),
401(LCCharacterLiteral,Shift 105)]]@slrp'a681;
402val slrp'a679=[[(LCPragma,Shift 481),(LCReturn,Shift 655),(LCExit,Shift 527),
403(LCIdentifier,Shift 447),(LCFor,Reduce(("name_colon_opt",0),0)),
404(LCWhile,Reduce(("name_colon_opt",0),0)),(LCTill,Reduce(("name_colon_opt",0),0))
405,(LCLoop,Reduce(("name_colon_opt",0),0)),
406(LCDeclare,Reduce(("name_colon_opt",0),0)),
407(LCBegin,Reduce(("name_colon_opt",0),0)),(LCCase,Shift 646),(LCIf,Shift 651),
408(LCNull,Shift 197),(LCLChevron,Shift 462),(LCGrkGamma,Shift 181),
409(LCGrkDelta,Shift 524),(LCAnnotation,Shift 168),(LCCon,Shift 459),
410(LCCharacterLiteral,Shift 105)]]@slrp'a680;
411val slrp'a678=[[(LCPragma,Shift 481),(LCReturn,Shift 655),(LCExit,Shift 527),
412(LCIdentifier,Shift 447),(LCFor,Reduce(("name_colon_opt",0),0)),
413(LCWhile,Reduce(("name_colon_opt",0),0)),(LCTill,Reduce(("name_colon_opt",0),0))
414,(LCLoop,Reduce(("name_colon_opt",0),0)),
415(LCDeclare,Reduce(("name_colon_opt",0),0)),
416(LCBegin,Reduce(("name_colon_opt",0),0)),(LCCase,Shift 646),(LCIf,Shift 651),
417(LCNull,Shift 197),(LCLChevron,Shift 462),(LCGrkGamma,Shift 181),
418(LCGrkDelta,Shift 524),(LCAnnotation,Shift 168),(LCCon,Shift 459),
419(LCCharacterLiteral,Shift 105)]]@slrp'a679;
420val slrp'a677=[[(LCPragma,Shift 481),(LCReturn,Shift 655),(LCExit,Shift 527),
421(LCIdentifier,Shift 447),(LCFor,Reduce(("name_colon_opt",0),0)),
422(LCWhile,Reduce(("name_colon_opt",0),0)),(LCTill,Reduce(("name_colon_opt",0),0))
423,(LCLoop,Reduce(("name_colon_opt",0),0)),
424(LCDeclare,Reduce(("name_colon_opt",0),0)),
425(LCBegin,Reduce(("name_colon_opt",0),0)),(LCCase,Shift 646),(LCIf,Shift 651),
426(LCNull,Shift 197),(LCLChevron,Shift 462),(LCGrkGamma,Shift 181),
427(LCGrkDelta,Shift 524),(LCAnnotation,Shift 168),(LCCon,Shift 459),
428(LCCharacterLiteral,Shift 105)]]@slrp'a678;
429val slrp'a676=[[(LCPragma,Shift 481),(LCReturn,Shift 655),(LCExit,Shift 527),
430(LCIdentifier,Shift 447),(LCFor,Reduce(("name_colon_opt",0),0)),
431(LCWhile,Reduce(("name_colon_opt",0),0)),(LCTill,Reduce(("name_colon_opt",0),0))
432,(LCLoop,Reduce(("name_colon_opt",0),0)),
433(LCDeclare,Reduce(("name_colon_opt",0),0)),
434(LCBegin,Reduce(("name_colon_opt",0),0)),(LCCase,Shift 646),(LCIf,Shift 651),
435(LCNull,Shift 197),(LCLChevron,Shift 462),(LCGrkGamma,Shift 181),
436(LCGrkDelta,Shift 524),(LCAnnotation,Shift 168),(LCCon,Shift 459),
437(LCCharacterLiteral,Shift 105)]]@slrp'a677;
438val slrp'a675=[[(LCLStrachey,Shift 236),(LCMinus,Shift 155),(LCPlus,Shift 154),
439(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
440(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
441(LCOthers,Shift 112),(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a676;
442val slrp'a674=[[(LCLStrachey,Shift 236),(LCMinus,Shift 155),(LCPlus,Shift 154),
443(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
444(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
445(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a675;
446val slrp'a673=[[(LCConstant,Shift 664),(LCLStrachey,Shift 236),
447(LCMinus,Shift 155),(LCPlus,Shift 154),(LCStringLiteral,Shift 141),
448(LCCharacterLiteral,Shift 450),(LCNumericLiteral,Shift 140),(LCNot,Shift 610),
449(LCAbs,Shift 609),(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a674;
450val slrp'a672=[[(LCLStrachey,Shift 236),(LCOthers,Shift 221),(LCMinus,Shift 155)
451,(LCPlus,Shift 154),(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
452(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
453(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a673;
454val slrp'a671=[[(LCLStrachey,Shift 236),(LCMinus,Shift 155),(LCPlus,Shift 154),
455(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
456(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
457(LCOthers,Shift 112),(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a672;
458val slrp'a670=[[(LCConstant,Shift 664),(LCLStrachey,Shift 236),
459(LCMinus,Shift 155),(LCPlus,Shift 154),(LCStringLiteral,Shift 141),
460(LCCharacterLiteral,Shift 450),(LCNumericLiteral,Shift 140),(LCNot,Shift 610),
461(LCAbs,Shift 609),(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a671;
462val slrp'a669=[[(LCLStrachey,Shift 236),(LCMinus,Shift 155),(LCPlus,Shift 154),
463(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
464(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
465(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a670;
466val slrp'a668=[[(LCLStrachey,Shift 236),(LCMinus,Shift 155),(LCPlus,Shift 154),
467(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
468(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
469(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a669;
470val slrp'a667=[[(LCLStrachey,Shift 236),(LCMinus,Shift 155),(LCPlus,Shift 154),
471(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
472(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
473(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a668;
474val slrp'a666=[[(LCLStrachey,Shift 236),(LCMinus,Shift 155),(LCPlus,Shift 154),
475(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
476(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
477(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a667;
478val slrp'a665=[[(LCLStrachey,Shift 236),(LCMinus,Shift 155),(LCPlus,Shift 154),
479(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
480(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
481(LCOrd,Shift 694),(LCIdentifier,Shift 96),(LCBecomes,Shift 642)]]@slrp'a666;
482val slrp'a664=[[(LCLStrachey,Shift 236),(LCReverse,Shift 661),
483(LCMinus,Shift 155),(LCPlus,Shift 154),(LCStringLiteral,Shift 141),
484(LCCharacterLiteral,Shift 450),(LCNumericLiteral,Shift 140),(LCNot,Shift 610),
485(LCAbs,Shift 609),(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a665;
486val slrp'a663=[[(LCLStrachey,Shift 236),(LCMinus,Shift 155),(LCPlus,Shift 154),
487(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
488(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
489(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a664;
490val slrp'a662=[[(LCLStrachey,Shift 236),(LCMinus,Shift 155),(LCPlus,Shift 154),
491(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
492(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
493(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a663;
494val slrp'a661=[[(LCLStrachey,Shift 236),(LCMinus,Shift 155),(LCPlus,Shift 154),
495(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
496(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
497(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a662;
498val slrp'a660=[[(LCLStrachey,Shift 236),(LCMinus,Shift 155),(LCPlus,Shift 154),
499(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
500(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
501(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a661;
502val slrp'a659=[[(LCLStrachey,Shift 236),(LCMinus,Shift 155),(LCPlus,Shift 154),
503(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
504(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
505(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a660;
506val slrp'a658=[[(LCLStrachey,Shift 236),(LCMinus,Shift 155),(LCPlus,Shift 154),
507(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
508(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
509(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a659;
510val slrp'a657=[[(LCReferences,Shift 490),(LCWith,Shift 489),(LCPragma,Shift 481)
511,(LCAnnotation,Shift 563),(LCPackage,Reduce(("context_clause",0),0)),
512(LCProcedure,Reduce(("context_clause",0),0)),
513(LCFunction,Reduce(("context_clause",0),0)),
514(LCSeparate,Reduce(("context_clause",0),0)),(LCUse,Shift 509),
515(LCLChevron,Shift 462),(LCAnnotationLabel,Shift 440),(LCSpecLabel,Shift 485),
516(LCStmtLabel,Shift 439),(LCDecLabel,Shift 438),(LCVPartLabel,Shift 437),
517(LCPPartLabel,Shift 436),(LCCompLabel,Shift 435),(LCArbitraryAda,Shift 13),
518(LCImplementedBy,Shift 693),(LCRefinedBy,Shift 691)]]@slrp'a658;
519val slrp'a656=[[(LCSemi,Shift 249),(LCLStrachey,Shift 236),(LCMinus,Shift 155),
520(LCPlus,Shift 154),(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
521(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
522(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a657;
523val slrp'a655=[[(LCLStrachey,Shift 236),(LCMinus,Shift 155),(LCPlus,Shift 154),
524(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
525(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
526(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a656;
527val slrp'a654=[[(LCLStrachey,Shift 236),(LCMinus,Shift 155),(LCPlus,Shift 154),
528(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
529(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
530(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a655;
531val slrp'a653=[[(LCLStrachey,Shift 236),(LCMinus,Shift 155),(LCPlus,Shift 154),
532(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
533(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
534(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a654;
535val slrp'a652=[[(LCLStrachey,Shift 236),(LCMinus,Shift 155),(LCPlus,Shift 154),
536(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
537(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
538(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a653;
539val slrp'a651=[[(LCLStrachey,Shift 236),(LCMinus,Shift 155),(LCPlus,Shift 154),
540(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
541(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
542(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a652;
543val slrp'a650=[[(LCLStrachey,Shift 236),(LCMinus,Shift 155),(LCPlus,Shift 154),
544(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
545(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
546(LCOthers,Shift 115),(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a651;
547val slrp'a649=[[(LCLStrachey,Shift 236),(LCMinus,Shift 155),(LCPlus,Shift 154),
548(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
549(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
550(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a650;
551val slrp'a648=[[(LCLStrachey,Shift 236),(LCMinus,Shift 155),(LCPlus,Shift 154),
552(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
553(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
554(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a649;
555val slrp'a647=[[(LCLStrachey,Shift 236),(LCMinus,Shift 155),(LCPlus,Shift 154),
556(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
557(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
558(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a648;
559val slrp'a646=[[(LCLStrachey,Shift 236),(LCMinus,Shift 155),(LCPlus,Shift 154),
560(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
561(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
562(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a647;
563val slrp'a645=[[(LCLStrachey,Shift 236),(LCMinus,Shift 155),(LCPlus,Shift 154),
564(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
565(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
566(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a646;
567val slrp'a644=[[(LCLStrachey,Shift 236),(LCMinus,Shift 155),(LCPlus,Shift 154),
568(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
569(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
570(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a645;
571val slrp'a643=[[(LCLStrachey,Shift 236),(LCMinus,Shift 155),(LCPlus,Shift 154),
572(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
573(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
574(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a644;
575val slrp'a642=[[(LCLStrachey,Shift 236),(LCMinus,Shift 155),(LCPlus,Shift 154),
576(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
577(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
578(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a643;
579val slrp'a641=[[(LCLStrachey,Shift 236),(LCMinus,Shift 155),(LCPlus,Shift 154),
580(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
581(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
582(LCElse,Shift 637),(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a642;
583val slrp'a640=[[(LCLStrachey,Shift 236),(LCMinus,Shift 155),(LCPlus,Shift 154),
584(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
585(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
586(LCThen,Shift 635),(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a641;
587val slrp'a639=[[(LCLStrachey,Shift 236),(LCMinus,Shift 155),(LCPlus,Shift 154),
588(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
589(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
590(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a640;
591val slrp'a638=[[(LCLStrachey,Shift 236),(LCMinus,Shift 155),(LCPlus,Shift 154),
592(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
593(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
594(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a639;
595val slrp'a637=[[(LCLStrachey,Shift 236),(LCMinus,Shift 155),(LCPlus,Shift 154),
596(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
597(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
598(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a638;
599val slrp'a636=[[(LCLStrachey,Shift 236),(LCMinus,Shift 155),(LCPlus,Shift 154),
600(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
601(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
602(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a637;
603val slrp'a635=[[(LCLStrachey,Shift 236),(LCMinus,Shift 155),(LCPlus,Shift 154),
604(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
605(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
606(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a636;
607val slrp'a634=[[(LCLStrachey,Shift 236),(LCMinus,Shift 155),(LCPlus,Shift 154),
608(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
609(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
610(LCOrd,Shift 694),(LCIdentifier,Shift 96),(LCLessGreat,Shift 72)]]@slrp'a635;
611val slrp'a633=[[(LCLStrachey,Shift 236),(LCMinus,Shift 155),(LCPlus,Shift 154),
612(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
613(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
614(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a634;
615val slrp'a632=[[(LCLStrachey,Shift 236),(LCMinus,Shift 155),(LCPlus,Shift 154),
616(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
617(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
618(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a633;
619val slrp'a631=[[(LCLStrachey,Shift 236),(LCMinus,Shift 155),(LCPlus,Shift 154),
620(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
621(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
622(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a632;
623val slrp'a630=[[(LCLStrachey,Shift 236),(LCMinus,Shift 155),(LCPlus,Shift 154),
624(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
625(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
626(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a631;
627val slrp'a629=[[(LCLStrachey,Shift 236),(LCMinus,Shift 155),(LCPlus,Shift 154),
628(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
629(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
630(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a630;
631val slrp'a628=[[(LCPragma,Shift 481),(LCType,Shift 551),
632(LCImplement,Reduce(("basic_dec_list",0),1)),(LCSubType,Shift 44),
633(LCIdentifier,Shift 443),(LCAnnotation,Shift 22)]]@slrp'a629;
634val slrp'a627=[[(LCLStrachey,Shift 236),(LCMinus,Shift 155),(LCPlus,Shift 154),
635(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
636(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
637(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a628;
638val slrp'a626=[[(LCLStrachey,Shift 236),(LCMinus,Shift 155),(LCPlus,Shift 154),
639(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
640(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
641(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a627;
642val slrp'a625=[[(LCLStrachey,Shift 236),(LCMinus,Shift 155),(LCPlus,Shift 154),
643(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
644(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
645(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a626;
646val slrp'a624=[[(LCLStrachey,Shift 236),(LCMinus,Shift 155),(LCPlus,Shift 154),
647(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
648(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
649(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a625;
650val slrp'a623=[[(LCLStrachey,Shift 236),(LCMinus,Shift 155),(LCPlus,Shift 154),
651(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
652(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
653(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a624;
654val slrp'a622=[[(LCLStrachey,Shift 236),(LCMinus,Shift 155),(LCPlus,Shift 154),
655(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
656(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
657(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a623;
658val slrp'a621=[[(LCLStrachey,Shift 236),(LCMinus,Shift 155),(LCPlus,Shift 154),
659(LCStringLiteral,Shift 141),(LCCharacterLiteral,Shift 450),
660(LCNumericLiteral,Shift 140),(LCNot,Shift 610),(LCAbs,Shift 609),
661(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a622;
662val slrp'a620=[[(LCPragma,Shift 481),(LCType,Shift 551),(LCSubType,Shift 44),
663(LCIdentifier,Shift 443),(LCAnnotation,Shift 22)]]@slrp'a621;
664val slrp'a619=[[(LCSeparate,Shift 484),(LCPackage,Shift 505),
665(LCFunction,Shift 532),(LCProcedure,Shift 530)]]@slrp'a620;
666val slrp'a618=[[(LCLStrachey,Shift 236),(LCStringLiteral,Shift 141),
667(LCCharacterLiteral,Shift 450),(LCNumericLiteral,Shift 140),(LCNot,Shift 610),
668(LCAbs,Shift 609),(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a619;
669val slrp'a617=[[(LCLStrachey,Shift 236),(LCStringLiteral,Shift 141),
670(LCCharacterLiteral,Shift 450),(LCNumericLiteral,Shift 140),(LCNot,Shift 610),
671(LCAbs,Shift 609),(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a618;
672val slrp'a616=[[(LCReferences,Shift 490),(LCWith,Shift 489),(LCPragma,Shift 481)
673,(LCAnnotation,Shift 563),(LCPackage,Reduce(("context_clause",0),0)),
674(LCProcedure,Reduce(("context_clause",0),0)),
675(LCFunction,Reduce(("context_clause",0),0)),
676(LCSeparate,Reduce(("context_clause",0),0)),(LCEos,Reduce(("compilation",1),1)),
677(LCUse,Shift 509),(LCLChevron,Shift 462)]]@slrp'a617;
678val slrp'a615=[[(LCLimited,Shift 347),(LCPrivate,Shift 342),(LCRecord,Shift 550)
679,(LCArray,Shift 495),(LCDelta,Shift 621),(LCDigits,Shift 620),(LCOrd,Shift 487),
680(LCRRange,Shift 628)]]@slrp'a616;
681val slrp'a614=[[(LCLimited,Shift 344),(LCPrivate,Shift 340),(LCRecord,Shift 550)
682,(LCArray,Shift 495),(LCDelta,Shift 621),(LCDigits,Shift 620),(LCOrd,Shift 487),
683(LCRRange,Shift 628)]]@slrp'a615;
684val slrp'a613=[[(LCLStrachey,Shift 236),(LCStringLiteral,Shift 141),
685(LCCharacterLiteral,Shift 450),(LCNumericLiteral,Shift 140),(LCNot,Shift 610),
686(LCAbs,Shift 609),(LCOrd,Shift 694),(LCIdentifier,Shift 96)]]@slrp'a614;
687val slrp'a612=[[(LCReferences,Shift 490),(LCWith,Shift 489),(LCPragma,Shift 481)
688,(LCAnnotation,Shift 563),(LCPackage,Reduce(("context_clause",0),0)),
689(LCProcedure,Reduce(("context_clause",0),0)),
690(LCFunction,Reduce(("context_clause",0),0)),
691(LCSeparate,Reduce(("context_clause",0),0)),(LCUse,Shift 509),
692(LCLChevron,Shift 462)]]@slrp'a613;
693val slrp'a611=[[(LCLStrachey,Shift 236),(LCStringLiteral,Shift 141),
694(LCCharacterLiteral,Shift 450),(LCNumericLiteral,Shift 140),(LCOrd,Shift 694),
695(LCIdentifier,Shift 96)]]@slrp'a612;
696val slrp'a610=[[(LCLStrachey,Shift 236),(LCStringLiteral,Shift 141),
697(LCCharacterLiteral,Shift 450),(LCNumericLiteral,Shift 140),(LCOrd,Shift 694),
698(LCIdentifier,Shift 96)]]@slrp'a611;
699val slrp'a609=[[(LCLStrachey,Shift 236),(LCStringLiteral,Shift 141),
700(LCCharacterLiteral,Shift 450),(LCNumericLiteral,Shift 140),(LCOrd,Shift 694),
701(LCIdentifier,Shift 96)]]@slrp'a610;
702val slrp'a608=[[(LCReferences,Shift 490),(LCWith,Shift 489),(LCUse,Shift 509),
703(LCAnnotation,Shift 559),(LCEos,Reduce(("annotation_list",0),0)),
704(LCSemi,Reduce(("annotation_list",0),0)),(LCIs,Reduce(("annotation_list",0),0)),
705(LCRenames,Reduce(("annotation_list",0),0)),
706(LCPackage,Reduce(("annotation_list",0),0)),
707(LCProcedure,Reduce(("annotation_list",0),0)),
708(LCFunction,Reduce(("annotation_list",0),0)),
709(LCSeparate,Reduce(("annotation_list",0),0)),(LCLChevron,Shift 462)]]@slrp'a609;
710val slrp'a607=[[(LCReferences,Shift 490),(LCWith,Shift 489),(LCUse,Shift 509),
711(LCAnnotation,Shift 559),(LCEos,Reduce(("annotation_list",0),0)),
712(LCSemi,Reduce(("annotation_list",0),0)),(LCIs,Reduce(("annotation_list",0),0)),
713(LCRenames,Reduce(("annotation_list",0),0)),
714(LCPackage,Reduce(("annotation_list",0),0)),
715(LCProcedure,Reduce(("annotation_list",0),0)),
716(LCFunction,Reduce(("annotation_list",0),0)),
717(LCSeparate,Reduce(("annotation_list",0),0)),(LCLChevron,Shift 462)]]@slrp'a608;
718val slrp'a606=[[(LCReferences,Shift 490),(LCWith,Shift 489),(LCUse,Shift 509),
719(LCAnnotation,Shift 559),(LCEos,Reduce(("annotation_list",0),0)),
720(LCSemi,Reduce(("annotation_list",0),0)),(LCIs,Reduce(("annotation_list",0),0)),
721(LCRenames,Reduce(("annotation_list",0),0)),
722(LCPackage,Reduce(("annotation_list",0),0)),
723(LCProcedure,Reduce(("annotation_list",0),0)),
724(LCFunction,Reduce(("annotation_list",0),0)),
725(LCSeparate,Reduce(("annotation_list",0),0)),(LCLChevron,Shift 462)]]@slrp'a607;
726val slrp'a605=[[(LCReferences,Shift 490),(LCWith,Shift 489),(LCUse,Shift 509),
727(LCAnnotation,Shift 559),(LCEos,Reduce(("annotation_list",0),0)),
728(LCSemi,Reduce(("annotation_list",0),0)),(LCIs,Reduce(("annotation_list",0),0)),
729(LCRenames,Reduce(("annotation_list",0),0)),
730(LCPackage,Reduce(("annotation_list",0),0)),
731(LCProcedure,Reduce(("annotation_list",0),0)),
732(LCFunction,Reduce(("annotation_list",0),0)),
733(LCSeparate,Reduce(("annotation_list",0),0)),(LCLChevron,Shift 462)]]@slrp'a606;
734val slrp'a604=[[(LCXor,Shift 638),(LCOr,Shift 640),(LCAnd,Shift 639),
735(LCSemi,Reduce(("expression",0),1)),(LCRRange,Reduce(("expression",0),1)),
736(LCDigits,Reduce(("expression",0),1)),(LCDelta,Reduce(("expression",0),1)),
737(LCBecomes,Reduce(("expression",0),1)),(LCComma,Reduce(("expression",0),1)),
738(LCCrd,Reduce(("expression",0),1)),(LCThen,Reduce(("expression",0),1)),
739(LCIs,Reduce(("expression",0),1)),(LCGoesTo,Reduce(("expression",0),1)),
740(LCBar,Reduce(("expression",0),1)),(LCTill,Reduce(("expression",0),1)),
741(LCLoop,Reduce(("expression",0),1))]]@slrp'a605;
742val slrp'a603=[[(LCPackage,Shift 321),(LCFunction,Shift 532),
743(LCProcedure,Shift 530)]]@slrp'a604;
744val slrp'a602=[[(LCGoesTo,Reduce(("discrete_range",1),1)),
745(LCBar,Reduce(("discrete_range",1),1)),(LCTill,Reduce(("discrete_range",1),1)),
746(LCLoop,Reduce(("discrete_range",1),1)),(LCDelta,Shift 621),(LCDigits,Shift 620)
747,(LCRRange,Shift 628),(LCBecomes,Reduce(("subtype_indication",1),1)),
748(LCSemi,Reduce(("subtype_indication",1),1)),
749(LCCrd,Reduce(("subtype_indication",1),1)),
750(LCComma,Reduce(("subtype_indication",1),1))]]@slrp'a603;
751val slrp'a601=[[(LCOrd,Shift 568),(LCGrkDelta,Shift 590),
752(LCSemi,Reduce(("procedure_specification_1",0),2)),
753(LCAnnotation,Reduce(("procedure_specification_1",0),2)),
754(LCLChevron,Reduce(("procedure_specification_1",0),2)),
755(LCIs,Reduce(("procedure_specification_1",0),2)),
756(LCRenames,Reduce(("procedure_specification_1",0),2)),(LCGrkGamma,Shift 181)]]@slrp'a602;
757val slrp'a600=[[(LCEnd,Reduce(("component_pack",0),1)),
758(LCCharacterLiteral,Shift 105),(LCIdentifier,Shift 96)]]@slrp'a601;
759val slrp'a599=[[(LCRRange,Shift 633),(LCDelta,Shift 621),(LCDigits,Shift 620),
760(LCBecomes,Reduce(("subtype_indication",1),1)),
761(LCSemi,Reduce(("subtype_indication",1),1)),
762(LCCrd,Reduce(("subtype_indication",1),1)),
763(LCComma,Reduce(("subtype_indication",1),1))]]@slrp'a600;
764val slrp'a598=[[(LCCharacterLiteral,Shift 105),(LCIdentifier,Shift 96)]]@slrp'a599;
765val slrp'a597=[[(LCIdentifier,Shift 512),(LCCharacterLiteral,Shift 105)]]@slrp'a598;
766val slrp'a596=[[(LCStringLiteral,Shift 279),(LCCharacterLiteral,Shift 105),
767(LCIdentifier,Shift 96)]]@slrp'a597;
768val slrp'a595=[[(LCDelta,Shift 621),(LCDigits,Shift 620),(LCRRange,Shift 628),
769(LCBecomes,Reduce(("subtype_indication",1),1)),
770(LCSemi,Reduce(("subtype_indication",1),1)),
771(LCCrd,Reduce(("subtype_indication",1),1)),
772(LCComma,Reduce(("subtype_indication",1),1))]]@slrp'a596;
773val slrp'a594=[[(LCRem,Shift 159),(LCMod,Shift 158),(LCDiv,Shift 157),
774(LCStar,Shift 156),(LCAmpersand,Shift 153),(LCMinus,Shift 152),
775(LCPlus,Shift 151),(LCBecomes,Reduce(("binoptail",0),0)),
776(LCSemi,Reduce(("binoptail",0),0)),(LCRRange,Reduce(("binoptail",0),0)),
777(LCDigits,Reduce(("binoptail",0),0)),(LCDelta,Reduce(("binoptail",0),0)),
778(LCComma,Reduce(("binoptail",0),0)),(LCCrd,Reduce(("binoptail",0),0)),
779(LCAnd,Reduce(("binoptail",0),0)),(LCOr,Reduce(("binoptail",0),0)),
780(LCXor,Reduce(("binoptail",0),0)),(LCGreaterEquals,Reduce(("binoptail",0),0)),
781(LCGreaterThan,Reduce(("binoptail",0),0)),
782(LCLessEquals,Reduce(("binoptail",0),0)),(LCLessThan,Reduce(("binoptail",0),0)),
783(LCNotEquals,Reduce(("binoptail",0),0)),(LCEquals,Reduce(("binoptail",0),0)),
784(LCIn,Reduce(("binoptail",0),0)),(LCNot,Reduce(("binoptail",0),0)),
785(LCDotDot,Reduce(("binoptail",0),0)),(LCThen,Reduce(("binoptail",0),0)),
786(LCIs,Reduce(("binoptail",0),0)),(LCGoesTo,Reduce(("binoptail",0),0)),
787(LCBar,Reduce(("binoptail",0),0)),(LCTill,Reduce(("binoptail",0),0)),
788(LCLoop,Reduce(("binoptail",0),0))]]@slrp'a595;
789val slrp'a593=[[(LCRem,Shift 159),(LCMod,Shift 158),(LCDiv,Shift 157),
790(LCStar,Shift 156),(LCAmpersand,Shift 153),(LCMinus,Shift 152),
791(LCPlus,Shift 151),(LCBecomes,Reduce(("binoptail",0),0)),
792(LCSemi,Reduce(("binoptail",0),0)),(LCRRange,Reduce(("binoptail",0),0)),
793(LCDigits,Reduce(("binoptail",0),0)),(LCDelta,Reduce(("binoptail",0),0)),
794(LCComma,Reduce(("binoptail",0),0)),(LCCrd,Reduce(("binoptail",0),0)),
795(LCAnd,Reduce(("binoptail",0),0)),(LCOr,Reduce(("binoptail",0),0)),
796(LCXor,Reduce(("binoptail",0),0)),(LCGreaterEquals,Reduce(("binoptail",0),0)),
797(LCGreaterThan,Reduce(("binoptail",0),0)),
798(LCLessEquals,Reduce(("binoptail",0),0)),(LCLessThan,Reduce(("binoptail",0),0)),
799(LCNotEquals,Reduce(("binoptail",0),0)),(LCEquals,Reduce(("binoptail",0),0)),
800(LCIn,Reduce(("binoptail",0),0)),(LCNot,Reduce(("binoptail",0),0)),
801(LCDotDot,Reduce(("binoptail",0),0)),(LCThen,Reduce(("binoptail",0),0)),
802(LCIs,Reduce(("binoptail",0),0)),(LCGoesTo,Reduce(("binoptail",0),0)),
803(LCBar,Reduce(("binoptail",0),0)),(LCTill,Reduce(("binoptail",0),0)),
804(LCLoop,Reduce(("binoptail",0),0))]]@slrp'a594;
805val slrp'a592=[[(LCRem,Shift 159),(LCMod,Shift 158),(LCDiv,Shift 157),
806(LCStar,Shift 156),(LCAmpersand,Shift 153),(LCMinus,Shift 152),
807(LCPlus,Shift 151),(LCBecomes,Reduce(("binoptail",0),0)),
808(LCSemi,Reduce(("binoptail",0),0)),(LCRRange,Reduce(("binoptail",0),0)),
809(LCDigits,Reduce(("binoptail",0),0)),(LCDelta,Reduce(("binoptail",0),0)),
810(LCComma,Reduce(("binoptail",0),0)),(LCCrd,Reduce(("binoptail",0),0)),
811(LCAnd,Reduce(("binoptail",0),0)),(LCOr,Reduce(("binoptail",0),0)),
812(LCXor,Reduce(("binoptail",0),0)),(LCGreaterEquals,Reduce(("binoptail",0),0)),
813(LCGreaterThan,Reduce(("binoptail",0),0)),
814(LCLessEquals,Reduce(("binoptail",0),0)),(LCLessThan,Reduce(("binoptail",0),0)),
815(LCNotEquals,Reduce(("binoptail",0),0)),(LCEquals,Reduce(("binoptail",0),0)),
816(LCIn,Reduce(("binoptail",0),0)),(LCNot,Reduce(("binoptail",0),0)),
817(LCDotDot,Reduce(("binoptail",0),0)),(LCThen,Reduce(("binoptail",0),0)),
818(LCIs,Reduce(("binoptail",0),0)),(LCGoesTo,Reduce(("binoptail",0),0)),
819(LCBar,Reduce(("binoptail",0),0)),(LCTill,Reduce(("binoptail",0),0)),
820(LCLoop,Reduce(("binoptail",0),0))]]@slrp'a593;
821val slrp'a591=[[(LCGrkXi,Shift 531),(LCZ,Shift 573),(LCLBrace,Shift 178),
822(LCLSqBrack,Shift 175)]]@slrp'a592;
823val slrp'a590=[[(LCGrkDelta,Shift 590),
824(LCSemi,Reduce(("procedure_specification_1",2),3)),
825(LCAnnotation,Reduce(("procedure_specification_1",2),3)),
826(LCLChevron,Reduce(("procedure_specification_1",2),3)),
827(LCIs,Reduce(("procedure_specification_1",2),3)),
828(LCRenames,Reduce(("procedure_specification_1",2),3)),(LCGrkGamma,Shift 181)]]@slrp'a591;
829val slrp'a589=[[(LCGreaterEquals,Shift 150),(LCGreaterThan,Shift 149),
830(LCLessEquals,Shift 148),(LCLessThan,Shift 147),(LCNotEquals,Shift 146),
831(LCEquals,Shift 145),(LCNot,Shift 129),(LCIn,Shift 630),
832(LCSemi,Reduce(("relation",0),1)),(LCRRange,Reduce(("relation",0),1)),
833(LCDigits,Reduce(("relation",0),1)),(LCDelta,Reduce(("relation",0),1)),
834(LCBecomes,Reduce(("relation",0),1)),(LCComma,Reduce(("relation",0),1)),
835(LCCrd,Reduce(("relation",0),1)),(LCAnd,Reduce(("relation",0),1)),
836(LCOr,Reduce(("relation",0),1)),(LCXor,Reduce(("relation",0),1)),
837(LCThen,Reduce(("relation",0),1)),(LCIs,Reduce(("relation",0),1)),
838(LCGoesTo,Reduce(("relation",0),1)),(LCBar,Reduce(("relation",0),1)),
839(LCTill,Reduce(("relation",0),1)),(LCLoop,Reduce(("relation",0),1))]]@slrp'a590;
840val slrp'a588=[[(LCOrd,Shift 695),
841(LCSemi,Reduce(("function_specification_1",2),5)),
842(LCAnnotation,Reduce(("function_specification_1",2),5)),
843(LCLChevron,Reduce(("function_specification_1",2),5)),
844(LCIs,Reduce(("function_specification_1",2),5)),
845(LCRenames,Reduce(("function_specification_1",2),5)),(LCGrkXi,Shift 531),
846(LCPrimedIdentifier,Shift 104),(LCDot,Shift 449)]]@slrp'a589;
847val slrp'a587=[[(LCOrd,Shift 695),
848(LCSemi,Reduce(("function_specification_1",0),4)),
849(LCAnnotation,Reduce(("function_specification_1",0),4)),
850(LCLChevron,Reduce(("function_specification_1",0),4)),
851(LCIs,Reduce(("function_specification_1",0),4)),
852(LCRenames,Reduce(("function_specification_1",0),4)),(LCGrkXi,Shift 531),
853(LCPrimedIdentifier,Shift 104),(LCDot,Shift 449)]]@slrp'a588;
854val slrp'a586=[[(LCCharacterLiteral,Shift 105),(LCIdentifier,Shift 96)]]@slrp'a587;
855val slrp'a585=[[(LCCharacterLiteral,Shift 105),(LCIdentifier,Shift 96)]]@slrp'a586;
856val slrp'a584=[[(LCCharacterLiteral,Shift 105),(LCIdentifier,Shift 96)]]@slrp'a585;
857val slrp'a583=[[(LCCharacterLiteral,Shift 105),(LCIdentifier,Shift 96)]]@slrp'a584;
858val slrp'a582=[[(LCNumericLiteral,Shift 185),(LCCharacterLiteral,Shift 105),
859(LCIdentifier,Shift 96)]]@slrp'a583;
860val slrp'a581=[[(LCCharacterLiteral,Shift 105),(LCIdentifier,Shift 96)]]@slrp'a582;
861val slrp'a580=[[(LCCharacterLiteral,Shift 105),(LCIdentifier,Shift 96)]]@slrp'a581;
862val slrp'a579=[[(LCCharacterLiteral,Shift 105),(LCIdentifier,Shift 96)]]@slrp'a580;
863val slrp'a578=[[(LCCharacterLiteral,Shift 105),(LCIdentifier,Shift 96)]]@slrp'a579;
864val slrp'a577=[[(LCAnnotation,Shift 559),(LCEos,Reduce(("annotation_list",0),0))
865,(LCSemi,Reduce(("annotation_list",0),0)),(LCIs,Reduce(("annotation_list",0),0))
866,(LCRenames,Reduce(("annotation_list",0),0)),
867(LCPackage,Reduce(("annotation_list",0),0)),
868(LCProcedure,Reduce(("annotation_list",0),0)),
869(LCFunction,Reduce(("annotation_list",0),0)),
870(LCSeparate,Reduce(("annotation_list",0),0)),(LCLChevron,Shift 462)]]@slrp'a578;
871val slrp'a576=[[(LCBegin,Shift 682),(LCDeclare,Shift 704),(LCFor,Shift 504),
872(LCWhile,Shift 653),(LCTill,Reduce(("iteration_scheme_opt",0),0)),
873(LCLoop,Reduce(("iteration_scheme_opt",0),0))]]@slrp'a577;
874val slrp'a575=[[(LCAnnotation,Shift 559),(LCEos,Reduce(("annotation_list",0),0))
875,(LCSemi,Reduce(("annotation_list",0),0)),(LCIs,Reduce(("annotation_list",0),0))
876,(LCRenames,Reduce(("annotation_list",0),0)),
877(LCPackage,Reduce(("annotation_list",0),0)),
878(LCProcedure,Reduce(("annotation_list",0),0)),
879(LCFunction,Reduce(("annotation_list",0),0)),
880(LCSeparate,Reduce(("annotation_list",0),0)),(LCLChevron,Shift 462)]]@slrp'a576;
881val slrp'a574=[[(LCGrkXi,Shift 531),(LCLBrace,Shift 172),(LCLSqBrack,Shift 169)]]@slrp'a575;
882val slrp'a573=[[(LCGrkGamma,Shift 181),(LCGrkDelta,Shift 524)]]@slrp'a574;
883val slrp'a572=[[(LCRenames,Shift 577),(LCOrd,Shift 695),(LCPrime,Shift 451),
884(LCBecomes,Reduce(("primary",3),1)),(LCSemi,Reduce(("primary",3),1)),
885(LCRRange,Reduce(("primary",3),1)),(LCDigits,Reduce(("primary",3),1)),
886(LCDelta,Reduce(("primary",3),1)),(LCComma,Reduce(("primary",3),1)),
887(LCCrd,Reduce(("primary",3),1)),(LCAnd,Reduce(("primary",3),1)),
888(LCOr,Reduce(("primary",3),1)),(LCXor,Reduce(("primary",3),1)),
889(LCGreaterEquals,Reduce(("primary",3),1)),
890(LCGreaterThan,Reduce(("primary",3),1)),(LCLessEquals,Reduce(("primary",3),1)),
891(LCLessThan,Reduce(("primary",3),1)),(LCNotEquals,Reduce(("primary",3),1)),
892(LCEquals,Reduce(("primary",3),1)),(LCIn,Reduce(("primary",3),1)),
893(LCNot,Reduce(("primary",3),1)),(LCDotDot,Reduce(("primary",3),1)),
894(LCAmpersand,Reduce(("primary",3),1)),(LCMinus,Reduce(("primary",3),1)),
895(LCPlus,Reduce(("primary",3),1)),(LCRem,Reduce(("primary",3),1)),
896(LCMod,Reduce(("primary",3),1)),(LCDiv,Reduce(("primary",3),1)),
897(LCStar,Reduce(("primary",3),1)),(LCStarStar,Reduce(("primary",3),1)),
898(LCThen,Reduce(("primary",3),1)),(LCIs,Reduce(("primary",3),1)),
899(LCGoesTo,Reduce(("primary",3),1)),(LCBar,Reduce(("primary",3),1)),
900(LCTill,Reduce(("primary",3),1)),(LCLoop,Reduce(("primary",3),1)),
901(LCPrimedIdentifier,Shift 104),(LCDot,Shift 449)]]@slrp'a573;
902val slrp'a571=[[(LCIs,Shift 613),(LCOrd,Shift 568)]]@slrp'a572;
903val slrp'a570=[[(LCIdentifier,Shift 443)]]@slrp'a571;
904val slrp'a569=[[(LCIdentifier,Shift 443)]]@slrp'a570;
905val slrp'a568=[[(LCEnd,Reduce(("component_list",0),1)),(LCIdentifier,Shift 443)]]@slrp'a569;
906val slrp'a567=[[(LCIn,Shift 476),(LCOut,Shift 284),
907(LCIdentifier,Reduce(("mode",0),0)),(LCCharacterLiteral,Reduce(("mode",0),0))]]@slrp'a568;
908val slrp'a566=[[(LCStringLiteral,Shift 279),(LCIdentifier,Shift 543)]]@slrp'a567;
909val slrp'a565=[[(LCAnnotation,Shift 559),(LCEos,Reduce(("annotation_list",0),0))
910,(LCSemi,Reduce(("annotation_list",0),0)),(LCIs,Reduce(("annotation_list",0),0))
911,(LCRenames,Reduce(("annotation_list",0),0)),
912(LCPackage,Reduce(("annotation_list",0),0)),
913(LCProcedure,Reduce(("annotation_list",0),0)),
914(LCFunction,Reduce(("annotation_list",0),0)),
915(LCSeparate,Reduce(("annotation_list",0),0)),(LCLChevron,Shift 462)]]@slrp'a566;
916val slrp'a564=[[(LCAnnotation,Shift 559),(LCEos,Reduce(("annotation_list",0),0))
917,(LCSemi,Reduce(("annotation_list",0),0)),(LCIs,Reduce(("annotation_list",0),0))
918,(LCRenames,Reduce(("annotation_list",0),0)),
919(LCPackage,Reduce(("annotation_list",0),0)),
920(LCProcedure,Reduce(("annotation_list",0),0)),
921(LCFunction,Reduce(("annotation_list",0),0)),
922(LCSeparate,Reduce(("annotation_list",0),0)),(LCLChevron,Shift 462)]]@slrp'a565;
923val slrp'a563=[[(LCAnnotation,Shift 559),(LCEos,Reduce(("annotation_list",0),0))
924,(LCSemi,Reduce(("annotation_list",0),0)),(LCIs,Reduce(("annotation_list",0),0))
925,(LCRenames,Reduce(("annotation_list",0),0)),
926(LCPackage,Reduce(("annotation_list",0),0)),
927(LCProcedure,Reduce(("annotation_list",0),0)),
928(LCFunction,Reduce(("annotation_list",0),0)),
929(LCSeparate,Reduce(("annotation_list",0),0)),(LCLChevron,Shift 462)]]@slrp'a564;
930val slrp'a562=[[(LCAnnotation,Shift 559),(LCEos,Reduce(("annotation_list",0),0))
931,(LCSemi,Reduce(("annotation_list",0),0)),(LCIs,Reduce(("annotation_list",0),0))
932,(LCRenames,Reduce(("annotation_list",0),0)),
933(LCPackage,Reduce(("annotation_list",0),0)),
934(LCProcedure,Reduce(("annotation_list",0),0)),
935(LCFunction,Reduce(("annotation_list",0),0)),
936(LCSeparate,Reduce(("annotation_list",0),0)),(LCLChevron,Shift 462)]]@slrp'a563;
937val slrp'a561=[[(LCAnnotation,Shift 559),(LCEos,Reduce(("annotation_list",0),0))
938,(LCSemi,Reduce(("annotation_list",0),0)),(LCIs,Reduce(("annotation_list",0),0))
939,(LCRenames,Reduce(("annotation_list",0),0)),
940(LCPackage,Reduce(("annotation_list",0),0)),
941(LCProcedure,Reduce(("annotation_list",0),0)),
942(LCFunction,Reduce(("annotation_list",0),0)),
943(LCSeparate,Reduce(("annotation_list",0),0)),(LCLChevron,Shift 462)]]@slrp'a562;
944val slrp'a560=[[(LCAnnotation,Shift 559),(LCEos,Reduce(("annotation_list",0),0))
945,(LCSemi,Reduce(("annotation_list",0),0)),(LCIs,Reduce(("annotation_list",0),0))
946,(LCRenames,Reduce(("annotation_list",0),0)),
947(LCPackage,Reduce(("annotation_list",0),0)),
948(LCProcedure,Reduce(("annotation_list",0),0)),
949(LCFunction,Reduce(("annotation_list",0),0)),
950(LCSeparate,Reduce(("annotation_list",0),0)),(LCLChevron,Shift 462)]]@slrp'a561;
951val slrp'a559=[[(LCAnnotation,Shift 559),(LCEos,Reduce(("annotation_list",0),0))
952,(LCSemi,Reduce(("annotation_list",0),0)),(LCIs,Reduce(("annotation_list",0),0))
953,(LCRenames,Reduce(("annotation_list",0),0)),
954(LCPackage,Reduce(("annotation_list",0),0)),
955(LCProcedure,Reduce(("annotation_list",0),0)),
956(LCFunction,Reduce(("annotation_list",0),0)),
957(LCSeparate,Reduce(("annotation_list",0),0)),(LCLChevron,Shift 462)]]@slrp'a560;
958val slrp'a558=[[(LCAnnotation,Shift 559),(LCEos,Reduce(("annotation_list",0),0))
959,(LCSemi,Reduce(("annotation_list",0),0)),(LCIs,Reduce(("annotation_list",0),0))
960,(LCRenames,Reduce(("annotation_list",0),0)),
961(LCPackage,Reduce(("annotation_list",0),0)),
962(LCProcedure,Reduce(("annotation_list",0),0)),
963(LCFunction,Reduce(("annotation_list",0),0)),
964(LCSeparate,Reduce(("annotation_list",0),0)),(LCLChevron,Shift 462)]]@slrp'a559;
965val slrp'a557=[[(LCCrd,Shift 602),(LCOrd,Shift 695),
966(LCPrimedIdentifier,Shift 104),(LCDot,Shift 449)]]@slrp'a558;
967val slrp'a556=[[(LCDot,Shift 515),(LCSemi,Shift 364),(LCOrd,Shift 695),
968(LCPrimedIdentifier,Shift 104)]]@slrp'a557;
969val slrp'a555=[[(LCOrd,Shift 695),(LCBecomes,Shift 647),
970(LCCrd,Reduce(("parameter_specification",0),4)),
971(LCSemi,Reduce(("parameter_specification",0),4)),(LCPrimedIdentifier,Shift 104),
972(LCDot,Shift 449)]]@slrp'a556;
973val slrp'a554=[[(LCOrd,Shift 695),(LCSemi,Shift 295),(LCBecomes,Shift 645),
974(LCPrimedIdentifier,Shift 104),(LCDot,Shift 449)]]@slrp'a555;
975val slrp'a553=[[(LCOrd,Shift 695),(LCPrime,Shift 451),
976(LCBecomes,Reduce(("primary",3),1)),(LCSemi,Reduce(("primary",3),1)),
977(LCRRange,Reduce(("primary",3),1)),(LCDigits,Reduce(("primary",3),1)),
978(LCDelta,Reduce(("primary",3),1)),(LCComma,Reduce(("primary",3),1)),
979(LCCrd,Reduce(("primary",3),1)),(LCAnd,Reduce(("primary",3),1)),
980(LCOr,Reduce(("primary",3),1)),(LCXor,Reduce(("primary",3),1)),
981(LCGreaterEquals,Reduce(("primary",3),1)),
982(LCGreaterThan,Reduce(("primary",3),1)),(LCLessEquals,Reduce(("primary",3),1)),
983(LCLessThan,Reduce(("primary",3),1)),(LCNotEquals,Reduce(("primary",3),1)),
984(LCEquals,Reduce(("primary",3),1)),(LCIn,Reduce(("primary",3),1)),
985(LCNot,Reduce(("primary",3),1)),(LCDotDot,Reduce(("primary",3),1)),
986(LCAmpersand,Reduce(("primary",3),1)),(LCMinus,Reduce(("primary",3),1)),
987(LCPlus,Reduce(("primary",3),1)),(LCRem,Reduce(("primary",3),1)),
988(LCMod,Reduce(("primary",3),1)),(LCDiv,Reduce(("primary",3),1)),
989(LCStar,Reduce(("primary",3),1)),(LCStarStar,Reduce(("primary",3),1)),
990(LCThen,Reduce(("primary",3),1)),(LCIs,Reduce(("primary",3),1)),
991(LCGoesTo,Reduce(("primary",3),1)),(LCBar,Reduce(("primary",3),1)),
992(LCTill,Reduce(("primary",3),1)),(LCLoop,Reduce(("primary",3),1)),
993(LCPrimedIdentifier,Shift 104),(LCDot,Shift 449)]]@slrp'a554;
994val slrp'a552=[[(LCIdentifier,Shift 570)]]@slrp'a553;
995val slrp'a551=[[(LCIdentifier,Shift 443)]]@slrp'a552;
996val slrp'a550=[[(LCColon,Shift 672)]]@slrp'a551;
997val slrp'a549=[[(LCAnnotation,Shift 559),(LCEos,Reduce(("annotation_list",0),0))
998,(LCSemi,Reduce(("annotation_list",0),0)),(LCIs,Reduce(("annotation_list",0),0))
999,(LCRenames,Reduce(("annotation_list",0),0)),
1000(LCPackage,Reduce(("annotation_list",0),0)),
1001(LCProcedure,Reduce(("annotation_list",0),0)),
1002(LCFunction,Reduce(("annotation_list",0),0)),
1003(LCSeparate,Reduce(("annotation_list",0),0)),(LCLChevron,Shift 462)]]@slrp'a550;
1004val slrp'a548=[[(LCPragma,Shift 481),(LCPackage,Reduce(("pragma_list",0),0)),
1005(LCProcedure,Reduce(("pragma_list",0),0)),
1006(LCFunction,Reduce(("pragma_list",0),0)),
1007(LCSeparate,Reduce(("pragma_list",0),0)),
1008(LCReferences,Reduce(("pragma_list",0),0)),
1009(LCAnnotation,Reduce(("pragma_list",0),0)),
1010(LCLChevron,Reduce(("pragma_list",0),0)),(LCWith,Reduce(("pragma_list",0),0)),
1011(LCUse,Reduce(("pragma_list",0),0))]]@slrp'a549;
1012val slrp'a547=[[(LCPragma,Shift 481),(LCPackage,Reduce(("pragma_list",0),0)),
1013(LCProcedure,Reduce(("pragma_list",0),0)),
1014(LCFunction,Reduce(("pragma_list",0),0)),
1015(LCSeparate,Reduce(("pragma_list",0),0)),
1016(LCReferences,Reduce(("pragma_list",0),0)),
1017(LCAnnotation,Reduce(("pragma_list",0),0)),
1018(LCLChevron,Reduce(("pragma_list",0),0)),(LCWith,Reduce(("pragma_list",0),0)),
1019(LCUse,Reduce(("pragma_list",0),0))]]@slrp'a548;
1020val slrp'a546=[[(LCPragma,Shift 481),(LCPackage,Reduce(("pragma_list",0),0)),
1021(LCProcedure,Reduce(("pragma_list",0),0)),
1022(LCFunction,Reduce(("pragma_list",0),0)),
1023(LCSeparate,Reduce(("pragma_list",0),0)),
1024(LCReferences,Reduce(("pragma_list",0),0)),
1025(LCAnnotation,Reduce(("pragma_list",0),0)),
1026(LCLChevron,Reduce(("pragma_list",0),0)),(LCWith,Reduce(("pragma_list",0),0)),
1027(LCUse,Reduce(("pragma_list",0),0))]]@slrp'a547;
1028val slrp'a545=[[(LCUsing,Shift 619),(LCLChevron,Reduce(("using_list",0),1)),
1029(LCFunction,Reduce(("using_list",0),1)),(LCPackage,Reduce(("using_list",0),1)),
1030(LCIdentifier,Reduce(("using_list",0),1)),
1031(LCAnnotation,Reduce(("using_list",0),1)),(LCSubType,Reduce(("using_list",0),1))
1032,(LCPragma,Reduce(("using_list",0),1)),(LCProcedure,Reduce(("using_list",0),1)),
1033(LCType,Reduce(("using_list",0),1)),(LCFor,Reduce(("using_list",0),1)),
1034(LCUse,Reduce(("using_list",0),1)),(LCBegin,Reduce(("using_list",0),1))]]@slrp'a546;
1035val slrp'a544=[[(LCOrd,Shift 568),(LCReturn,Shift 582)]]@slrp'a545;
1036val slrp'a543=[[(LCFor,Shift 504),(LCWhile,Shift 653),
1037(LCTill,Reduce(("iteration_scheme_opt",0),0)),
1038(LCLoop,Reduce(("iteration_scheme_opt",0),0))]]@slrp'a544;
1039val slrp'a542=[[(LCWhen,Shift 671),(LCEnd,Reduce(("others_part",0),0))]]@slrp'a543;
1040val slrp'a541=[[(LCAt,Shift 625),(LCOrd,Shift 695),
1041(LCPrimedIdentifier,Shift 104),(LCDot,Shift 449)]]@slrp'a542;
1042val slrp'a540=[[(LCDot,Shift 514),(LCOrd,Shift 695),
1043(LCPrimedIdentifier,Shift 104)]]@slrp'a541;
1044val slrp'a539=[[(LCRenames,Shift 580),(LCOrd,Shift 695),
1045(LCPrimedIdentifier,Shift 104),(LCDot,Shift 449)]]@slrp'a540;
1046val slrp'a538=[[(LCSemi,Shift 360),(LCOrd,Shift 695),
1047(LCPrimedIdentifier,Shift 104),(LCDot,Shift 449)]]@slrp'a539;
1048val slrp'a537=[[(LCSemi,Shift 357),(LCOrd,Shift 695),
1049(LCPrimedIdentifier,Shift 104),(LCDot,Shift 449)]]@slrp'a538;
1050val slrp'a536=[[(LCOrd,Shift 695),(LCCrd,Shift 187),
1051(LCPrimedIdentifier,Shift 104),(LCDot,Shift 449)]]@slrp'a537;
1052val slrp'a535=[[(LCColon,Shift 669)]]@slrp'a536;
1053val slrp'a534=[[(LCBBody,Shift 404),(LCIdentifier,Shift 576)]]@slrp'a535;
1054val slrp'a533=[[(LCIdentifier,Shift 543)]]@slrp'a534;
1055val slrp'a532=[[(LCLBrace,Shift 271),(LCLSqBrack,Shift 268),(LCZ,Shift 471)]]@slrp'a533;
1056val slrp'a531=[[(LCIdentifier,Shift 600)]]@slrp'a532;
1057val slrp'a530=[[(LCSemi,Shift 410),(LCIs,Shift 709),
1058(LCRenames,Reduce(("subprogram_specification",1),1))]]@slrp'a531;
1059val slrp'a529=[[(LCSemi,Shift 409),(LCIs,Shift 708),
1060(LCRenames,Reduce(("subprogram_specification",0),1))]]@slrp'a530;
1061val slrp'a528=[[(LCIdentifier,Shift 229),(LCSemi,Reduce(("name_opt",0),0)),
1062(LCWhen,Reduce(("name_opt",0),0))]]@slrp'a529;
1063val slrp'a527=[[(LCWhen,Shift 667)]]@slrp'a528;
1064val slrp'a526=[[(LCEos,Reduce(("k_slot",0),3)),
1065(LCLChevron,Reduce(("k_slot",0),3)),(LCFunction,Reduce(("k_slot",0),3)),
1066(LCPackage,Reduce(("k_slot",0),3)),(LCIdentifier,Reduce(("k_slot",0),3)),
1067(LCAnnotation,Reduce(("k_slot",0),3)),(LCSubType,Reduce(("k_slot",0),3)),
1068(LCPragma,Reduce(("k_slot",0),3)),(LCProcedure,Reduce(("k_slot",0),3)),
1069(LCType,Reduce(("k_slot",0),3)),(LCFor,Reduce(("k_slot",0),3)),
1070(LCUse,Reduce(("k_slot",0),3)),(LCCon,Reduce(("k_slot",0),3)),
1071(LCGrkGamma,Reduce(("k_slot",0),3)),(LCGrkDelta,Reduce(("k_slot",0),3)),
1072(LCNull,Reduce(("k_slot",0),3)),(LCExit,Reduce(("k_slot",0),3)),
1073(LCReturn,Reduce(("k_slot",0),3)),(LCIf,Reduce(("k_slot",0),3)),
1074(LCCase,Reduce(("k_slot",0),3)),(LCCharacterLiteral,Reduce(("k_slot",0),3)),
1075(LCTill,Reduce(("k_slot",0),3)),(LCLoop,Reduce(("k_slot",0),3)),
1076(LCWhile,Reduce(("k_slot",0),3)),(LCSemi,Reduce(("k_slot",0),3)),
1077(LCEnd,Reduce(("k_slot",0),3)),(LCPrivate,Reduce(("k_slot",0),3)),
1078(LCAuxiliary,Reduce(("k_slot",0),3)),(LCBegin,Reduce(("k_slot",0),3)),
1079(LCElsIf,Reduce(("k_slot",0),3)),(LCElse,Reduce(("k_slot",0),3)),
1080(LCWhen,Reduce(("k_slot",0),3)),(LCIs,Reduce(("k_slot",0),3)),
1081(LCRenames,Reduce(("k_slot",0),3)),(LCSeparate,Reduce(("k_slot",0),3)),
1082(LCOrd,Shift 581)]]@slrp'a527;
1083val slrp'a525=[[(LCLBrace,Shift 178),(LCLSqBrack,Shift 175),(LCZ,Shift 461)]]@slrp'a526;
1084val slrp'a524=[[(LCOrd,Shift 581),(LCEos,Reduce(("statement",3),4)),
1085(LCAnnotation,Reduce(("statement",3),4)),(LCCon,Reduce(("statement",3),4)),
1086(LCLChevron,Reduce(("statement",3),4)),(LCGrkGamma,Reduce(("statement",3),4)),
1087(LCGrkDelta,Reduce(("statement",3),4)),(LCPragma,Reduce(("statement",3),4)),
1088(LCNull,Reduce(("statement",3),4)),(LCExit,Reduce(("statement",3),4)),
1089(LCReturn,Reduce(("statement",3),4)),(LCIf,Reduce(("statement",3),4)),
1090(LCCase,Reduce(("statement",3),4)),(LCIdentifier,Reduce(("statement",3),4)),
1091(LCCharacterLiteral,Reduce(("statement",3),4)),
1092(LCTill,Reduce(("statement",3),4)),(LCLoop,Reduce(("statement",3),4)),
1093(LCFor,Reduce(("statement",3),4)),(LCWhile,Reduce(("statement",3),4)),
1094(LCElsIf,Reduce(("statement",3),4)),(LCElse,Reduce(("statement",3),4)),
1095(LCEnd,Reduce(("statement",3),4)),(LCWhen,Reduce(("statement",3),4))]]@slrp'a525;
1096val slrp'a523=[[(LCOrd,Shift 581),(LCEos,Reduce(("statement",1),1)),
1097(LCAnnotation,Reduce(("statement",1),1)),(LCCon,Reduce(("statement",1),1)),
1098(LCLChevron,Reduce(("statement",1),1)),(LCGrkGamma,Reduce(("statement",1),1)),
1099(LCGrkDelta,Reduce(("statement",1),1)),(LCPragma,Reduce(("statement",1),1)),
1100(LCNull,Reduce(("statement",1),1)),(LCExit,Reduce(("statement",1),1)),
1101(LCReturn,Reduce(("statement",1),1)),(LCIf,Reduce(("statement",1),1)),
1102(LCCase,Reduce(("statement",1),1)),(LCIdentifier,Reduce(("statement",1),1)),
1103(LCCharacterLiteral,Reduce(("statement",1),1)),
1104(LCTill,Reduce(("statement",1),1)),(LCLoop,Reduce(("statement",1),1)),
1105(LCFor,Reduce(("statement",1),1)),(LCWhile,Reduce(("statement",1),1)),
1106(LCElsIf,Reduce(("statement",1),1)),(LCElse,Reduce(("statement",1),1)),
1107(LCEnd,Reduce(("statement",1),1)),(LCWhen,Reduce(("statement",1),1))]]@slrp'a524;
1108val slrp'a522=[[(LCXor,Shift 638),(LCSemi,Reduce(("xor_relation",0),2)),
1109(LCRRange,Reduce(("xor_relation",0),2)),(LCDigits,Reduce(("xor_relation",0),2)),
1110(LCDelta,Reduce(("xor_relation",0),2)),(LCBecomes,Reduce(("xor_relation",0),2)),
1111(LCComma,Reduce(("xor_relation",0),2)),(LCCrd,Reduce(("xor_relation",0),2)),
1112(LCThen,Reduce(("xor_relation",0),2)),(LCIs,Reduce(("xor_relation",0),2)),
1113(LCGoesTo,Reduce(("xor_relation",0),2)),(LCBar,Reduce(("xor_relation",0),2)),
1114(LCTill,Reduce(("xor_relation",0),2)),(LCLoop,Reduce(("xor_relation",0),2))]]@slrp'a523;
1115val slrp'a521=[[(LCOr,Shift 456),(LCSemi,Reduce(("or_else_relation",0),3)),
1116(LCRRange,Reduce(("or_else_relation",0),3)),
1117(LCDigits,Reduce(("or_else_relation",0),3)),
1118(LCDelta,Reduce(("or_else_relation",0),3)),
1119(LCBecomes,Reduce(("or_else_relation",0),3)),
1120(LCComma,Reduce(("or_else_relation",0),3)),
1121(LCCrd,Reduce(("or_else_relation",0),3)),
1122(LCThen,Reduce(("or_else_relation",0),3)),
1123(LCIs,Reduce(("or_else_relation",0),3)),
1124(LCGoesTo,Reduce(("or_else_relation",0),3)),
1125(LCBar,Reduce(("or_else_relation",0),3)),
1126(LCTill,Reduce(("or_else_relation",0),3)),
1127(LCLoop,Reduce(("or_else_relation",0),3))]]@slrp'a522;
1128val slrp'a520=[[(LCOr,Shift 636),(LCSemi,Reduce(("or_relation",0),2)),
1129(LCRRange,Reduce(("or_relation",0),2)),(LCDigits,Reduce(("or_relation",0),2)),
1130(LCDelta,Reduce(("or_relation",0),2)),(LCBecomes,Reduce(("or_relation",0),2)),
1131(LCComma,Reduce(("or_relation",0),2)),(LCCrd,Reduce(("or_relation",0),2)),
1132(LCThen,Reduce(("or_relation",0),2)),(LCIs,Reduce(("or_relation",0),2)),
1133(LCGoesTo,Reduce(("or_relation",0),2)),(LCBar,Reduce(("or_relation",0),2)),
1134(LCTill,Reduce(("or_relation",0),2)),(LCLoop,Reduce(("or_relation",0),2))]]@slrp'a521;
1135val slrp'a519=[[(LCAnd,Shift 455),(LCSemi,Reduce(("and_then_relation",0),3)),
1136(LCRRange,Reduce(("and_then_relation",0),3)),
1137(LCDigits,Reduce(("and_then_relation",0),3)),
1138(LCDelta,Reduce(("and_then_relation",0),3)),
1139(LCBecomes,Reduce(("and_then_relation",0),3)),
1140(LCComma,Reduce(("and_then_relation",0),3)),
1141(LCCrd,Reduce(("and_then_relation",0),3)),
1142(LCThen,Reduce(("and_then_relation",0),3)),
1143(LCIs,Reduce(("and_then_relation",0),3)),
1144(LCGoesTo,Reduce(("and_then_relation",0),3)),
1145(LCBar,Reduce(("and_then_relation",0),3)),
1146(LCTill,Reduce(("and_then_relation",0),3)),
1147(LCLoop,Reduce(("and_then_relation",0),3))]]@slrp'a520;
1148val slrp'a518=[[(LCAnd,Shift 634),(LCSemi,Reduce(("and_relation",0),2)),
1149(LCRRange,Reduce(("and_relation",0),2)),(LCDigits,Reduce(("and_relation",0),2)),
1150(LCDelta,Reduce(("and_relation",0),2)),(LCBecomes,Reduce(("and_relation",0),2)),
1151(LCComma,Reduce(("and_relation",0),2)),(LCCrd,Reduce(("and_relation",0),2)),
1152(LCThen,Reduce(("and_relation",0),2)),(LCIs,Reduce(("and_relation",0),2)),
1153(LCGoesTo,Reduce(("and_relation",0),2)),(LCBar,Reduce(("and_relation",0),2)),
1154(LCTill,Reduce(("and_relation",0),2)),(LCLoop,Reduce(("and_relation",0),2))]]@slrp'a519;
1155val slrp'a517=[[(LCAt,Shift 626),(LCRecord,Shift 508),(LCOrd,Shift 694)]]@slrp'a518;
1156val slrp'a516=[[(LCStringLiteral,Shift 279),(LCIdentifier,Shift 102)]]@slrp'a517;
1157val slrp'a515=[[(LCStringLiteral,Shift 279),(LCIdentifier,Shift 102)]]@slrp'a516;
1158val slrp'a514=[[(LCOrd,Shift 695),(LCPrimedIdentifier,Shift 104),
1159(LCDot,Shift 449)]]@slrp'a515;
1160val slrp'a513=[[(LCUse,Shift 516),(LCOrd,Reduce(("name",0),1)),
1161(LCDot,Reduce(("name",0),1)),(LCPrimedIdentifier,Reduce(("name",0),1)),
1162(LCBecomes,Reduce(("name",0),1)),(LCSemi,Reduce(("name",0),1)),
1163(LCRRange,Reduce(("name",0),1)),(LCDigits,Reduce(("name",0),1)),
1164(LCDelta,Reduce(("name",0),1)),(LCComma,Reduce(("name",0),1)),
1165(LCCrd,Reduce(("name",0),1)),(LCAnd,Reduce(("name",0),1)),
1166(LCOr,Reduce(("name",0),1)),(LCXor,Reduce(("name",0),1)),
1167(LCGreaterEquals,Reduce(("name",0),1)),(LCGreaterThan,Reduce(("name",0),1)),
1168(LCLessEquals,Reduce(("name",0),1)),(LCLessThan,Reduce(("name",0),1)),
1169(LCNotEquals,Reduce(("name",0),1)),(LCEquals,Reduce(("name",0),1)),
1170(LCIn,Reduce(("name",0),1)),(LCNot,Reduce(("name",0),1)),
1171(LCDotDot,Reduce(("name",0),1)),(LCAmpersand,Reduce(("name",0),1)),
1172(LCMinus,Reduce(("name",0),1)),(LCPlus,Reduce(("name",0),1)),
1173(LCRem,Reduce(("name",0),1)),(LCMod,Reduce(("name",0),1)),
1174(LCDiv,Reduce(("name",0),1)),(LCStar,Reduce(("name",0),1)),
1175(LCStarStar,Reduce(("name",0),1)),(LCPrime,Reduce(("name",0),1)),
1176(LCGrkXi,Reduce(("name",0),1)),(LCRenames,Reduce(("name",0),1)),
1177(LCAt,Reduce(("name",0),1)),(LCThen,Reduce(("name",0),1)),
1178(LCIs,Reduce(("name",0),1)),(LCGoesTo,Reduce(("name",0),1)),
1179(LCBar,Reduce(("name",0),1)),(LCTill,Reduce(("name",0),1)),
1180(LCLoop,Reduce(("name",0),1)),(LCAnnotation,Reduce(("name",0),1)),
1181(LCLChevron,Reduce(("name",0),1))]]@slrp'a514;
1182val slrp'a512=[[(LCCrd,Reduce(("argument_association",1),1)),
1183(LCComma,Reduce(("argument_association",1),1)),
1184(LCGoesTo,Reduce(("discrete_range",1),1)),(LCBar,Reduce(("discrete_range",1),1))
1185,(LCTill,Reduce(("discrete_range",1),1)),(LCLoop,Reduce(("discrete_range",1),1))
1186,(LCRRange,Shift 628)]]@slrp'a513;
1187val slrp'a511=[[(LCComma,Reduce(("expression_list",0),1)),
1188(LCCrd,Reduce(("expression_list",0),1)),
1189(LCGoesTo,Reduce(("discrete_range",1),1)),(LCBar,Reduce(("discrete_range",1),1))
1190,(LCTill,Reduce(("discrete_range",1),1)),(LCLoop,Reduce(("discrete_range",1),1))
1191,(LCRRange,Shift 628)]]@slrp'a512;
1192val slrp'a510=[[(LCType,Shift 488),(LCIdentifier,Shift 443)]]@slrp'a511;
1193val slrp'a509=[[(LCAt,Shift 426),(LCIdentifier,Reduce(("alignment_opt",0),0)),
1194(LCCharacterLiteral,Reduce(("alignment_opt",0),0))]]@slrp'a510;
1195val slrp'a508=[[(LCRenames,Shift 595)]]@slrp'a509;
1196val slrp'a507=[[(LCRenames,Shift 578),(LCIs,Shift 701)]]@slrp'a508;
1197val slrp'a506=[[(LCBBody,Shift 322),(LCIdentifier,Shift 574)]]@slrp'a507;
1198val slrp'a505=[[(LCIdentifier,Shift 466)]]@slrp'a506;
1199val slrp'a504=[[(LCIdentifier,Shift 229),(LCSemi,Reduce(("name_opt",0),0)),
1200(LCWhen,Reduce(("name_opt",0),0))]]@slrp'a505;
1201val slrp'a503=[[(LCIdentifier,Shift 229),(LCSemi,Reduce(("name_opt",0),0)),
1202(LCWhen,Reduce(("name_opt",0),0))]]@slrp'a504;
1203val slrp'a502=[[(LCIdentifier,Shift 229),(LCSemi,Reduce(("name_opt",0),0)),
1204(LCWhen,Reduce(("name_opt",0),0))]]@slrp'a503;
1205val slrp'a501=[[(LCTill,Shift 467),(LCLoop,Reduce(("till_opt",0),0))]]@slrp'a502;
1206val slrp'a500=[[(LCElsIf,Shift 652),(LCElse,Reduce(("elsif_part",0),0)),
1207(LCEnd,Reduce(("elsif_part",0),0))]]@slrp'a501;
1208val slrp'a499=[[(LCElse,Shift 677),(LCEnd,Reduce(("else_part",0),0))]]@slrp'a500;
1209val slrp'a498=[[(LCElsIf,Shift 652),(LCElse,Reduce(("elsif_part",0),0)),
1210(LCEnd,Reduce(("elsif_part",0),0))]]@slrp'a499;
1211val slrp'a497=[[(LCComma,Shift 649),
1212(LCCrd,Reduce(("positional_association",0),1))]]@slrp'a498;
1213val slrp'a496=[[(LCOrd,Shift 673)]]@slrp'a497;
1214val slrp'a495=[[(LCGoesTo,Reduce(("discrete_range",1),1)),
1215(LCBar,Reduce(("discrete_range",1),1)),(LCTill,Reduce(("discrete_range",1),1)),
1216(LCLoop,Reduce(("discrete_range",1),1)),(LCRRange,Shift 628)]]@slrp'a496;
1217val slrp'a494=[[(LCBecomes,Reduce(("fixed_point_constraint",0),1)),
1218(LCSemi,Reduce(("fixed_point_constraint",0),1)),
1219(LCCrd,Reduce(("fixed_point_constraint",0),1)),
1220(LCComma,Reduce(("fixed_point_constraint",0),1)),(LCRRange,Shift 628)]]@slrp'a495;
1221val slrp'a493=[[(LCBecomes,Reduce(("floating_point_constraint",0),1)),
1222(LCSemi,Reduce(("floating_point_constraint",0),1)),
1223(LCCrd,Reduce(("floating_point_constraint",0),1)),
1224(LCComma,Reduce(("floating_point_constraint",0),1)),(LCRRange,Shift 628)]]@slrp'a494;
1225val slrp'a492=[[(LCIs,Shift 614)]]@slrp'a493;
1226val slrp'a491=[[(LCIdentifier,Shift 443)]]@slrp'a492;
1227val slrp'a490=[[(LCIdentifier,Shift 443)]]@slrp'a491;
1228val slrp'a489=[[(LCIdentifier,Shift 443)]]@slrp'a490;
1229val slrp'a488=[[(LCIdentifier,Shift 443)]]@slrp'a489;
1230val slrp'a487=[[(LCIdentifier,Shift 443)]]@slrp'a488;
1231val slrp'a486=[[(LCArbitraryAda,Reduce(("any_label",5),1)),
1232(LCImplementedBy,Shift 692),(LCRefinedBy,Shift 690)]]@slrp'a487;
1233val slrp'a485=[[(LCOrd,Shift 585)]]@slrp'a486;
1234val slrp'a484=[[(LCComma,Shift 688),(LCCrd,Reduce(("arg_ass_list",0),1))]]@slrp'a485;
1235val slrp'a483=[[(LCOrd,Shift 687),(LCSemi,Shift 389)]]@slrp'a484;
1236val slrp'a482=[[(LCIdentifier,Shift 482)]]@slrp'a483;
1237val slrp'a481=[[(LCBegin,Shift 685),
1238(LCEnd,Reduce(("package_implementation",0),1))]]@slrp'a482;
1239val slrp'a480=[[(LCPrivate,Shift 697),(LCEnd,Shift 304)]]@slrp'a481;
1240val slrp'a479=[[(LCIs,Shift 701)]]@slrp'a480;
1241val slrp'a478=[[(LCComma,Shift 666),
1242(LCCrd,Reduce(("positional_parameter_association",0),1))]]@slrp'a479;
1243val slrp'a477=[[(LCOut,Shift 285),(LCIdentifier,Reduce(("mode",1),1)),
1244(LCCharacterLiteral,Reduce(("mode",1),1))]]@slrp'a478;
1245val slrp'a476=[[(LCColon,Shift 566)]]@slrp'a477;
1246val slrp'a475=[[(LCSemi,Shift 569),(LCCrd,Reduce(("parlist",0),1))]]@slrp'a476;
1247val slrp'a474=[[(LCOrd,Shift 568)]]@slrp'a475;
1248val slrp'a473=[[(LCReturn,Shift 583)]]@slrp'a474;
1249val slrp'a472=[[(LCLBrace,Shift 265),(LCLSqBrack,Shift 262)]]@slrp'a473;
1250val slrp'a471=[[(LCRenames,Reduce(("subprogram_specification",1),1)),
1251(LCSemi,Shift 253)]]@slrp'a472;
1252val slrp'a470=[[(LCRenames,Reduce(("subprogram_specification",0),1)),
1253(LCSemi,Shift 252)]]@slrp'a471;
1254val slrp'a469=[[(LCWhen,Shift 654),(LCSemi,Shift 246)]]@slrp'a470;
1255val slrp'a468=[[(LCLStrachey,Shift 236)]]@slrp'a469;
1256val slrp'a467=[[(LCIn,Shift 663)]]@slrp'a468;
1257val slrp'a466=[[(LCLoop,Shift 680)]]@slrp'a467;
1258val slrp'a465=[[(LCBar,Shift 668),(LCGoesTo,Reduce(("case_choice_list",0),1))]]@slrp'a466;
1259val slrp'a464=[[(LCRChevron,Shift 525)]]@slrp'a465;
1260val slrp'a463=[[(LCKSlot,Shift 463)]]@slrp'a464;
1261val slrp'a462=[[(LCLBrace,Shift 172),(LCLSqBrack,Shift 169)]]@slrp'a463;
1262val slrp'a461=[[(LCFatDot,Shift 572)]]@slrp'a462;
1263val slrp'a460=[[(LCZ,Shift 460)]]@slrp'a461;
1264val slrp'a459=[[(LCStarStar,Shift 608),(LCBecomes,Reduce(("factor",0),1)),
1265(LCSemi,Reduce(("factor",0),1)),(LCRRange,Reduce(("factor",0),1)),
1266(LCDigits,Reduce(("factor",0),1)),(LCDelta,Reduce(("factor",0),1)),
1267(LCComma,Reduce(("factor",0),1)),(LCCrd,Reduce(("factor",0),1)),
1268(LCAnd,Reduce(("factor",0),1)),(LCOr,Reduce(("factor",0),1)),
1269(LCXor,Reduce(("factor",0),1)),(LCGreaterEquals,Reduce(("factor",0),1)),
1270(LCGreaterThan,Reduce(("factor",0),1)),(LCLessEquals,Reduce(("factor",0),1)),
1271(LCLessThan,Reduce(("factor",0),1)),(LCNotEquals,Reduce(("factor",0),1)),
1272(LCEquals,Reduce(("factor",0),1)),(LCIn,Reduce(("factor",0),1)),
1273(LCNot,Reduce(("factor",0),1)),(LCDotDot,Reduce(("factor",0),1)),
1274(LCAmpersand,Reduce(("factor",0),1)),(LCMinus,Reduce(("factor",0),1)),
1275(LCPlus,Reduce(("factor",0),1)),(LCRem,Reduce(("factor",0),1)),
1276(LCMod,Reduce(("factor",0),1)),(LCDiv,Reduce(("factor",0),1)),
1277(LCStar,Reduce(("factor",0),1)),(LCThen,Reduce(("factor",0),1)),
1278(LCIs,Reduce(("factor",0),1)),(LCGoesTo,Reduce(("factor",0),1)),
1279(LCBar,Reduce(("factor",0),1)),(LCTill,Reduce(("factor",0),1)),
1280(LCLoop,Reduce(("factor",0),1))]]@slrp'a460;
1281val slrp'a458=[[(LCDotDot,Shift 622),(LCBecomes,Reduce(("sr_expression",0),1)),
1282(LCSemi,Reduce(("sr_expression",0),1)),(LCRRange,Reduce(("sr_expression",0),1)),
1283(LCDigits,Reduce(("sr_expression",0),1)),(LCDelta,Reduce(("sr_expression",0),1))
1284,(LCComma,Reduce(("sr_expression",0),1)),(LCCrd,Reduce(("sr_expression",0),1)),
1285(LCAnd,Reduce(("sr_expression",0),1)),(LCOr,Reduce(("sr_expression",0),1)),
1286(LCXor,Reduce(("sr_expression",0),1)),
1287(LCGreaterEquals,Reduce(("sr_expression",0),1)),
1288(LCGreaterThan,Reduce(("sr_expression",0),1)),
1289(LCLessEquals,Reduce(("sr_expression",0),1)),
1290(LCLessThan,Reduce(("sr_expression",0),1)),
1291(LCNotEquals,Reduce(("sr_expression",0),1)),
1292(LCEquals,Reduce(("sr_expression",0),1)),(LCIn,Reduce(("sr_expression",0),1)),
1293(LCNot,Reduce(("sr_expression",0),1)),(LCThen,Reduce(("sr_expression",0),1)),
1294(LCIs,Reduce(("sr_expression",0),1)),(LCGoesTo,Reduce(("sr_expression",0),1)),
1295(LCBar,Reduce(("sr_expression",0),1)),(LCTill,Reduce(("sr_expression",0),1)),
1296(LCLoop,Reduce(("sr_expression",0),1))]]@slrp'a459;
1297val slrp'a457=[[(LCElse,Shift 637)]]@slrp'a458;
1298val slrp'a456=[[(LCThen,Shift 635)]]@slrp'a457;
1299val slrp'a455=[[(LCBar,Shift 670),
1300(LCGoesTo,Reduce(("aggregate_choice_list",1),1))]]@slrp'a456;
1301val slrp'a454=[[(LCComma,Shift 674),(LCCrd,Reduce(("named_association",0),3))]]@slrp'a455;
1302val slrp'a453=[[(LCGoesTo,Shift 650)]]@slrp'a454;
1303val slrp'a452=[[(LCOrd,Shift 694)]]@slrp'a453;
1304val slrp'a451=[[(LCBecomes,Reduce(("primary",1),1)),
1305(LCSemi,Reduce(("primary",1),1)),(LCRRange,Reduce(("primary",1),1)),
1306(LCDigits,Reduce(("primary",1),1)),(LCDelta,Reduce(("primary",1),1)),
1307(LCComma,Reduce(("primary",1),1)),(LCCrd,Reduce(("primary",1),1)),
1308(LCAnd,Reduce(("primary",1),1)),(LCOr,Reduce(("primary",1),1)),
1309(LCXor,Reduce(("primary",1),1)),(LCGreaterEquals,Reduce(("primary",1),1)),
1310(LCGreaterThan,Reduce(("primary",1),1)),(LCLessEquals,Reduce(("primary",1),1)),
1311(LCLessThan,Reduce(("primary",1),1)),(LCNotEquals,Reduce(("primary",1),1)),
1312(LCEquals,Reduce(("primary",1),1)),(LCIn,Reduce(("primary",1),1)),
1313(LCNot,Reduce(("primary",1),1)),(LCDotDot,Reduce(("primary",1),1)),
1314(LCAmpersand,Reduce(("primary",1),1)),(LCMinus,Reduce(("primary",1),1)),
1315(LCPlus,Reduce(("primary",1),1)),(LCRem,Reduce(("primary",1),1)),
1316(LCMod,Reduce(("primary",1),1)),(LCDiv,Reduce(("primary",1),1)),
1317(LCStar,Reduce(("primary",1),1)),(LCStarStar,Reduce(("primary",1),1)),
1318(LCThen,Reduce(("primary",1),1)),(LCIs,Reduce(("primary",1),1)),
1319(LCGoesTo,Reduce(("primary",1),1)),(LCBar,Reduce(("primary",1),1)),
1320(LCTill,Reduce(("primary",1),1)),(LCLoop,Reduce(("primary",1),1)),
1321(LCPrimedIdentifier,Shift 106)]]@slrp'a452;
1322val slrp'a450=[[(LCIdentifier,Shift 102)]]@slrp'a451;
1323val slrp'a449=[[(LCUse,Shift 623),(LCOrd,Reduce(("name",3),1)),
1324(LCDot,Reduce(("name",3),1)),(LCPrimedIdentifier,Reduce(("name",3),1)),
1325(LCBecomes,Reduce(("name",3),1)),(LCSemi,Reduce(("name",3),1)),
1326(LCRRange,Reduce(("name",3),1)),(LCDigits,Reduce(("name",3),1)),
1327(LCDelta,Reduce(("name",3),1)),(LCComma,Reduce(("name",3),1)),
1328(LCCrd,Reduce(("name",3),1)),(LCAnd,Reduce(("name",3),1)),
1329(LCOr,Reduce(("name",3),1)),(LCXor,Reduce(("name",3),1)),
1330(LCGreaterEquals,Reduce(("name",3),1)),(LCGreaterThan,Reduce(("name",3),1)),
1331(LCLessEquals,Reduce(("name",3),1)),(LCLessThan,Reduce(("name",3),1)),
1332(LCNotEquals,Reduce(("name",3),1)),(LCEquals,Reduce(("name",3),1)),
1333(LCIn,Reduce(("name",3),1)),(LCNot,Reduce(("name",3),1)),
1334(LCDotDot,Reduce(("name",3),1)),(LCAmpersand,Reduce(("name",3),1)),
1335(LCMinus,Reduce(("name",3),1)),(LCPlus,Reduce(("name",3),1)),
1336(LCRem,Reduce(("name",3),1)),(LCMod,Reduce(("name",3),1)),
1337(LCDiv,Reduce(("name",3),1)),(LCStar,Reduce(("name",3),1)),
1338(LCStarStar,Reduce(("name",3),1)),(LCPrime,Reduce(("name",3),1)),
1339(LCGrkXi,Reduce(("name",3),1)),(LCRenames,Reduce(("name",3),1)),
1340(LCAt,Reduce(("name",3),1)),(LCThen,Reduce(("name",3),1)),
1341(LCIs,Reduce(("name",3),1)),(LCGoesTo,Reduce(("name",3),1)),
1342(LCBar,Reduce(("name",3),1)),(LCTill,Reduce(("name",3),1)),
1343(LCLoop,Reduce(("name",3),1)),(LCAnnotation,Reduce(("name",3),1)),
1344(LCLChevron,Reduce(("name",3),1))]]@slrp'a450;
1345val slrp'a448=[[(LCColon,Shift 228),(LCOrd,Reduce(("name",0),1)),
1346(LCDot,Reduce(("name",0),1)),(LCPrimedIdentifier,Reduce(("name",0),1)),
1347(LCBecomes,Reduce(("name",0),1)),(LCSemi,Reduce(("name",0),1)),
1348(LCRRange,Reduce(("name",0),1)),(LCDigits,Reduce(("name",0),1)),
1349(LCDelta,Reduce(("name",0),1)),(LCComma,Reduce(("name",0),1)),
1350(LCCrd,Reduce(("name",0),1)),(LCAnd,Reduce(("name",0),1)),
1351(LCOr,Reduce(("name",0),1)),(LCXor,Reduce(("name",0),1)),
1352(LCGreaterEquals,Reduce(("name",0),1)),(LCGreaterThan,Reduce(("name",0),1)),
1353(LCLessEquals,Reduce(("name",0),1)),(LCLessThan,Reduce(("name",0),1)),
1354(LCNotEquals,Reduce(("name",0),1)),(LCEquals,Reduce(("name",0),1)),
1355(LCIn,Reduce(("name",0),1)),(LCNot,Reduce(("name",0),1)),
1356(LCDotDot,Reduce(("name",0),1)),(LCAmpersand,Reduce(("name",0),1)),
1357(LCMinus,Reduce(("name",0),1)),(LCPlus,Reduce(("name",0),1)),
1358(LCRem,Reduce(("name",0),1)),(LCMod,Reduce(("name",0),1)),
1359(LCDiv,Reduce(("name",0),1)),(LCStar,Reduce(("name",0),1)),
1360(LCStarStar,Reduce(("name",0),1)),(LCPrime,Reduce(("name",0),1)),
1361(LCGrkXi,Reduce(("name",0),1)),(LCRenames,Reduce(("name",0),1)),
1362(LCAt,Reduce(("name",0),1)),(LCThen,Reduce(("name",0),1)),
1363(LCIs,Reduce(("name",0),1)),(LCGoesTo,Reduce(("name",0),1)),
1364(LCBar,Reduce(("name",0),1)),(LCTill,Reduce(("name",0),1)),
1365(LCLoop,Reduce(("name",0),1)),(LCAnnotation,Reduce(("name",0),1)),
1366(LCLChevron,Reduce(("name",0),1))]]@slrp'a449;
1367val slrp'a447=[[(LCComma,Shift 665),(LCCrd,Reduce(("discrete_range_list",0),1))]]@slrp'a448;
1368val slrp'a446=[[(LCComma,Shift 662),
1369(LCCrd,Reduce(("index_subtype_definition_list",0),1))]]@slrp'a447;
1370val slrp'a445=[[(LCGoesTo,Reduce(("discrete_range",0),2)),
1371(LCBar,Reduce(("discrete_range",0),2)),(LCTill,Reduce(("discrete_range",0),2)),
1372(LCLoop,Reduce(("discrete_range",0),2)),(LCBecomes,Reduce(("constraint",0),1)),
1373(LCSemi,Reduce(("constraint",0),1)),(LCCrd,Reduce(("constraint",0),1)),
1374(LCComma,Reduce(("constraint",0),1))]]@slrp'a446;
1375val slrp'a444=[[(LCComma,Shift 486),(LCColon,Reduce(("identifier_list",0),1)),
1376(LCCrd,Reduce(("identifier_list",0),1)),(LCSemi,Reduce(("identifier_list",0),1))
1377]]@slrp'a445;
1378val slrp'a443=[[(LCBecomes,Shift 643),(LCSemi,Shift 29)]]@slrp'a444;
1379val slrp'a442=[[(LCSemi,Shift 350),(LCBecomes,Shift 641)]]@slrp'a443;
1380val slrp'a441=[[(LCArbitraryAda,Reduce(("any_label",6),1)),
1381(LCReplacedBy,Shift 548)]]@slrp'a442;
1382val slrp'a440=[[(LCArbitraryAda,Reduce(("any_label",4),1)),
1383(LCImplementedBy,Shift 689)]]@slrp'a441;
1384val slrp'a439=[[(LCArbitraryAda,Reduce(("any_label",3),1)),
1385(LCReplacedBy,Shift 702)]]@slrp'a440;
1386val slrp'a438=[[(LCArbitraryAda,Reduce(("any_label",2),1)),
1387(LCReplacedBy,Shift 699)]]@slrp'a439;
1388val slrp'a437=[[(LCArbitraryAda,Reduce(("any_label",1),1)),
1389(LCReplacedBy,Shift 696)]]@slrp'a438;
1390val slrp'a436=[[(LCArbitraryAda,Reduce(("any_label",0),1)),
1391(LCReplacedBy,Shift 611)]]@slrp'a437;
1392val slrp'a435=[[(LCEos,Reduce(("address_clause",0),6)),
1393(LCLChevron,Reduce(("address_clause",0),6)),
1394(LCFunction,Reduce(("address_clause",0),6)),
1395(LCPackage,Reduce(("address_clause",0),6)),
1396(LCIdentifier,Reduce(("address_clause",0),6)),
1397(LCAnnotation,Reduce(("address_clause",0),6)),
1398(LCSubType,Reduce(("address_clause",0),6)),
1399(LCPragma,Reduce(("address_clause",0),6)),
1400(LCProcedure,Reduce(("address_clause",0),6)),
1401(LCType,Reduce(("address_clause",0),6)),(LCFor,Reduce(("address_clause",0),6)),
1402(LCUse,Reduce(("address_clause",0),6)),(LCEnd,Reduce(("address_clause",0),6)),
1403(LCPrivate,Reduce(("address_clause",0),6)),
1404(LCAuxiliary,Reduce(("address_clause",0),6)),
1405(LCBegin,Reduce(("address_clause",0),6))]]@slrp'a436;
1406val slrp'a434=[[(LCSemi,Shift 434)]]@slrp'a435;
1407val slrp'a433=[[(LCEnd,Reduce(("component_clause",0),6)),
1408(LCIdentifier,Reduce(("component_clause",0),6)),
1409(LCCharacterLiteral,Reduce(("component_clause",0),6))]]@slrp'a434;
1410val slrp'a432=[[(LCSemi,Shift 432)]]@slrp'a433;
1411val slrp'a431=[[(LCRRange,Shift 632)]]@slrp'a432;
1412val slrp'a430=[[(LCEnd,Reduce(("component_pack",1),2))]]@slrp'a431;
1413val slrp'a429=[[(LCIdentifier,Reduce(("alignment_opt",1),4)),
1414(LCCharacterLiteral,Reduce(("alignment_opt",1),4))]]@slrp'a430;
1415val slrp'a428=[[(LCSemi,Shift 428)]]@slrp'a429;
1416val slrp'a427=[[(LCMod,Shift 624)]]@slrp'a428;
1417val slrp'a426=[[(LCEos,Reduce(("record_representation_clause",0),9)),
1418(LCLChevron,Reduce(("record_representation_clause",0),9)),
1419(LCFunction,Reduce(("record_representation_clause",0),9)),
1420(LCPackage,Reduce(("record_representation_clause",0),9)),
1421(LCIdentifier,Reduce(("record_representation_clause",0),9)),
1422(LCAnnotation,Reduce(("record_representation_clause",0),9)),
1423(LCSubType,Reduce(("record_representation_clause",0),9)),
1424(LCPragma,Reduce(("record_representation_clause",0),9)),
1425(LCProcedure,Reduce(("record_representation_clause",0),9)),
1426(LCType,Reduce(("record_representation_clause",0),9)),
1427(LCFor,Reduce(("record_representation_clause",0),9)),
1428(LCUse,Reduce(("record_representation_clause",0),9)),
1429(LCEnd,Reduce(("record_representation_clause",0),9)),
1430(LCPrivate,Reduce(("record_representation_clause",0),9)),
1431(LCAuxiliary,Reduce(("record_representation_clause",0),9)),
1432(LCBegin,Reduce(("record_representation_clause",0),9))]]@slrp'a427;
1433val slrp'a425=[[(LCSemi,Shift 425)]]@slrp'a426;
1434val slrp'a424=[[(LCRecord,Shift 424)]]@slrp'a425;
1435val slrp'a423=[[(LCEnd,Shift 423)]]@slrp'a424;
1436val slrp'a422=[[(LCEos,Reduce(("enumeration_representation_clause",0),5)),
1437(LCLChevron,Reduce(("enumeration_representation_clause",0),5)),
1438(LCFunction,Reduce(("enumeration_representation_clause",0),5)),
1439(LCPackage,Reduce(("enumeration_representation_clause",0),5)),
1440(LCIdentifier,Reduce(("enumeration_representation_clause",0),5)),
1441(LCAnnotation,Reduce(("enumeration_representation_clause",0),5)),
1442(LCSubType,Reduce(("enumeration_representation_clause",0),5)),
1443(LCPragma,Reduce(("enumeration_representation_clause",0),5)),
1444(LCProcedure,Reduce(("enumeration_representation_clause",0),5)),
1445(LCType,Reduce(("enumeration_representation_clause",0),5)),
1446(LCFor,Reduce(("enumeration_representation_clause",0),5)),
1447(LCUse,Reduce(("enumeration_representation_clause",0),5)),
1448(LCEnd,Reduce(("enumeration_representation_clause",0),5)),
1449(LCPrivate,Reduce(("enumeration_representation_clause",0),5)),
1450(LCAuxiliary,Reduce(("enumeration_representation_clause",0),5)),
1451(LCBegin,Reduce(("enumeration_representation_clause",0),5))]]@slrp'a423;
1452val slrp'a421=[[(LCSemi,Shift 421)]]@slrp'a422;
1453val slrp'a420=[[(LCEos,Reduce(("length_clause",0),5)),
1454(LCLChevron,Reduce(("length_clause",0),5)),
1455(LCFunction,Reduce(("length_clause",0),5)),
1456(LCPackage,Reduce(("length_clause",0),5)),
1457(LCIdentifier,Reduce(("length_clause",0),5)),
1458(LCAnnotation,Reduce(("length_clause",0),5)),
1459(LCSubType,Reduce(("length_clause",0),5)),
1460(LCPragma,Reduce(("length_clause",0),5)),
1461(LCProcedure,Reduce(("length_clause",0),5)),
1462(LCType,Reduce(("length_clause",0),5)),(LCFor,Reduce(("length_clause",0),5)),
1463(LCUse,Reduce(("length_clause",0),5)),(LCEnd,Reduce(("length_clause",0),5)),
1464(LCPrivate,Reduce(("length_clause",0),5)),
1465(LCAuxiliary,Reduce(("length_clause",0),5)),
1466(LCBegin,Reduce(("length_clause",0),5))]]@slrp'a421;
1467val slrp'a419=[[(LCSemi,Shift 419)]]@slrp'a420;
1468val slrp'a418=[[(LCEos,Reduce(("type_representation_clause",2),1)),
1469(LCLChevron,Reduce(("type_representation_clause",2),1)),
1470(LCFunction,Reduce(("type_representation_clause",2),1)),
1471(LCPackage,Reduce(("type_representation_clause",2),1)),
1472(LCIdentifier,Reduce(("type_representation_clause",2),1)),
1473(LCAnnotation,Reduce(("type_representation_clause",2),1)),
1474(LCSubType,Reduce(("type_representation_clause",2),1)),
1475(LCPragma,Reduce(("type_representation_clause",2),1)),
1476(LCProcedure,Reduce(("type_representation_clause",2),1)),
1477(LCType,Reduce(("type_representation_clause",2),1)),
1478(LCFor,Reduce(("type_representation_clause",2),1)),
1479(LCUse,Reduce(("type_representation_clause",2),1)),
1480(LCEnd,Reduce(("type_representation_clause",2),1)),
1481(LCPrivate,Reduce(("type_representation_clause",2),1)),
1482(LCAuxiliary,Reduce(("type_representation_clause",2),1)),
1483(LCBegin,Reduce(("type_representation_clause",2),1))]]@slrp'a419;
1484val slrp'a417=[[(LCEos,Reduce(("type_representation_clause",1),1)),
1485(LCLChevron,Reduce(("type_representation_clause",1),1)),
1486(LCFunction,Reduce(("type_representation_clause",1),1)),
1487(LCPackage,Reduce(("type_representation_clause",1),1)),
1488(LCIdentifier,Reduce(("type_representation_clause",1),1)),
1489(LCAnnotation,Reduce(("type_representation_clause",1),1)),
1490(LCSubType,Reduce(("type_representation_clause",1),1)),
1491(LCPragma,Reduce(("type_representation_clause",1),1)),
1492(LCProcedure,Reduce(("type_representation_clause",1),1)),
1493(LCType,Reduce(("type_representation_clause",1),1)),
1494(LCFor,Reduce(("type_representation_clause",1),1)),
1495(LCUse,Reduce(("type_representation_clause",1),1)),
1496(LCEnd,Reduce(("type_representation_clause",1),1)),
1497(LCPrivate,Reduce(("type_representation_clause",1),1)),
1498(LCAuxiliary,Reduce(("type_representation_clause",1),1)),
1499(LCBegin,Reduce(("type_representation_clause",1),1))]]@slrp'a418;
1500val slrp'a416=[[(LCEos,Reduce(("type_representation_clause",0),1)),
1501(LCLChevron,Reduce(("type_representation_clause",0),1)),
1502(LCFunction,Reduce(("type_representation_clause",0),1)),
1503(LCPackage,Reduce(("type_representation_clause",0),1)),
1504(LCIdentifier,Reduce(("type_representation_clause",0),1)),
1505(LCAnnotation,Reduce(("type_representation_clause",0),1)),
1506(LCSubType,Reduce(("type_representation_clause",0),1)),
1507(LCPragma,Reduce(("type_representation_clause",0),1)),
1508(LCProcedure,Reduce(("type_representation_clause",0),1)),
1509(LCType,Reduce(("type_representation_clause",0),1)),
1510(LCFor,Reduce(("type_representation_clause",0),1)),
1511(LCUse,Reduce(("type_representation_clause",0),1)),
1512(LCEnd,Reduce(("type_representation_clause",0),1)),
1513(LCPrivate,Reduce(("type_representation_clause",0),1)),
1514(LCAuxiliary,Reduce(("type_representation_clause",0),1)),
1515(LCBegin,Reduce(("type_representation_clause",0),1))]]@slrp'a417;
1516val slrp'a415=[[(LCEos,Reduce(("representation_clause",1),1)),
1517(LCLChevron,Reduce(("representation_clause",1),1)),
1518(LCFunction,Reduce(("representation_clause",1),1)),
1519(LCPackage,Reduce(("representation_clause",1),1)),
1520(LCIdentifier,Reduce(("representation_clause",1),1)),
1521(LCAnnotation,Reduce(("representation_clause",1),1)),
1522(LCSubType,Reduce(("representation_clause",1),1)),
1523(LCPragma,Reduce(("representation_clause",1),1)),
1524(LCProcedure,Reduce(("representation_clause",1),1)),
1525(LCType,Reduce(("representation_clause",1),1)),
1526(LCFor,Reduce(("representation_clause",1),1)),
1527(LCUse,Reduce(("representation_clause",1),1)),
1528(LCEnd,Reduce(("representation_clause",1),1)),
1529(LCPrivate,Reduce(("representation_clause",1),1)),
1530(LCAuxiliary,Reduce(("representation_clause",1),1)),
1531(LCBegin,Reduce(("representation_clause",1),1))]]@slrp'a416;
1532val slrp'a414=[[(LCEos,Reduce(("representation_clause",0),1)),
1533(LCLChevron,Reduce(("representation_clause",0),1)),
1534(LCFunction,Reduce(("representation_clause",0),1)),
1535(LCPackage,Reduce(("representation_clause",0),1)),
1536(LCIdentifier,Reduce(("representation_clause",0),1)),
1537(LCAnnotation,Reduce(("representation_clause",0),1)),
1538(LCSubType,Reduce(("representation_clause",0),1)),
1539(LCPragma,Reduce(("representation_clause",0),1)),
1540(LCProcedure,Reduce(("representation_clause",0),1)),
1541(LCType,Reduce(("representation_clause",0),1)),
1542(LCFor,Reduce(("representation_clause",0),1)),
1543(LCUse,Reduce(("representation_clause",0),1)),
1544(LCEnd,Reduce(("representation_clause",0),1)),
1545(LCPrivate,Reduce(("representation_clause",0),1)),
1546(LCAuxiliary,Reduce(("representation_clause",0),1)),
1547(LCBegin,Reduce(("representation_clause",0),1))]]@slrp'a415;
1548val slrp'a413=[[(LCEos,Reduce(("subunit",1),5)),
1549(LCLChevron,Reduce(("subunit",1),5)),(LCAnnotation,Reduce(("subunit",1),5)),
1550(LCPragma,Reduce(("subunit",1),5)),(LCReferences,Reduce(("subunit",1),5)),
1551(LCPackage,Reduce(("subunit",1),5)),(LCSeparate,Reduce(("subunit",1),5)),
1552(LCWith,Reduce(("subunit",1),5)),(LCUse,Reduce(("subunit",1),5)),
1553(LCProcedure,Reduce(("subunit",1),5)),(LCFunction,Reduce(("subunit",1),5))]]@slrp'a414;
1554val slrp'a412=[[(LCEos,Reduce(("subunit",0),5)),
1555(LCLChevron,Reduce(("subunit",0),5)),(LCAnnotation,Reduce(("subunit",0),5)),
1556(LCPragma,Reduce(("subunit",0),5)),(LCReferences,Reduce(("subunit",0),5)),
1557(LCPackage,Reduce(("subunit",0),5)),(LCSeparate,Reduce(("subunit",0),5)),
1558(LCWith,Reduce(("subunit",0),5)),(LCUse,Reduce(("subunit",0),5)),
1559(LCProcedure,Reduce(("subunit",0),5)),(LCFunction,Reduce(("subunit",0),5))]]@slrp'a413;
1560val slrp'a411=[[(LCEos,Reduce(("body_stub",4),2)),
1561(LCLChevron,Reduce(("body_stub",4),2)),(LCFunction,Reduce(("body_stub",4),2)),
1562(LCPackage,Reduce(("body_stub",4),2)),(LCIdentifier,Reduce(("body_stub",4),2)),
1563(LCAnnotation,Reduce(("body_stub",4),2)),(LCSubType,Reduce(("body_stub",4),2)),
1564(LCPragma,Reduce(("body_stub",4),2)),(LCProcedure,Reduce(("body_stub",4),2)),
1565(LCType,Reduce(("body_stub",4),2)),(LCFor,Reduce(("body_stub",4),2)),
1566(LCUse,Reduce(("body_stub",4),2)),(LCBegin,Reduce(("body_stub",4),2)),
1567(LCEnd,Reduce(("body_stub",4),2))]]@slrp'a412;
1568val slrp'a410=[[(LCEos,Reduce(("body_stub",3),2)),
1569(LCLChevron,Reduce(("body_stub",3),2)),(LCFunction,Reduce(("body_stub",3),2)),
1570(LCPackage,Reduce(("body_stub",3),2)),(LCIdentifier,Reduce(("body_stub",3),2)),
1571(LCAnnotation,Reduce(("body_stub",3),2)),(LCSubType,Reduce(("body_stub",3),2)),
1572(LCPragma,Reduce(("body_stub",3),2)),(LCProcedure,Reduce(("body_stub",3),2)),
1573(LCType,Reduce(("body_stub",3),2)),(LCFor,Reduce(("body_stub",3),2)),
1574(LCUse,Reduce(("body_stub",3),2)),(LCBegin,Reduce(("body_stub",3),2)),
1575(LCEnd,Reduce(("body_stub",3),2))]]@slrp'a411;
1576val slrp'a409=[[(LCEos,Reduce(("body_stub",2),7)),
1577(LCLChevron,Reduce(("body_stub",2),7)),(LCFunction,Reduce(("body_stub",2),7)),
1578(LCPackage,Reduce(("body_stub",2),7)),(LCIdentifier,Reduce(("body_stub",2),7)),
1579(LCAnnotation,Reduce(("body_stub",2),7)),(LCSubType,Reduce(("body_stub",2),7)),
1580(LCPragma,Reduce(("body_stub",2),7)),(LCProcedure,Reduce(("body_stub",2),7)),
1581(LCType,Reduce(("body_stub",2),7)),(LCFor,Reduce(("body_stub",2),7)),
1582(LCUse,Reduce(("body_stub",2),7)),(LCBegin,Reduce(("body_stub",2),7)),
1583(LCEnd,Reduce(("body_stub",2),7))]]@slrp'a410;
1584val slrp'a408=[[(LCSemi,Shift 408)]]@slrp'a409;
1585val slrp'a407=[[(LCSeparate,Shift 407)]]@slrp'a408;
1586val slrp'a406=[[(LCIs,Shift 406)]]@slrp'a407;
1587val slrp'a405=[[(LCIdentifier,Shift 564)]]@slrp'a406;
1588val slrp'a404=[[(LCEos,Reduce(("body_stub",1),4)),
1589(LCLChevron,Reduce(("body_stub",1),4)),(LCFunction,Reduce(("body_stub",1),4)),
1590(LCPackage,Reduce(("body_stub",1),4)),(LCIdentifier,Reduce(("body_stub",1),4)),
1591(LCAnnotation,Reduce(("body_stub",1),4)),(LCSubType,Reduce(("body_stub",1),4)),
1592(LCPragma,Reduce(("body_stub",1),4)),(LCProcedure,Reduce(("body_stub",1),4)),
1593(LCType,Reduce(("body_stub",1),4)),(LCFor,Reduce(("body_stub",1),4)),
1594(LCUse,Reduce(("body_stub",1),4)),(LCBegin,Reduce(("body_stub",1),4)),
1595(LCEnd,Reduce(("body_stub",1),4))]]@slrp'a405;
1596val slrp'a403=[[(LCSemi,Shift 403)]]@slrp'a404;
1597val slrp'a402=[[(LCEos,Reduce(("body_stub",0),4)),
1598(LCLChevron,Reduce(("body_stub",0),4)),(LCFunction,Reduce(("body_stub",0),4)),
1599(LCPackage,Reduce(("body_stub",0),4)),(LCIdentifier,Reduce(("body_stub",0),4)),
1600(LCAnnotation,Reduce(("body_stub",0),4)),(LCSubType,Reduce(("body_stub",0),4)),
1601(LCPragma,Reduce(("body_stub",0),4)),(LCProcedure,Reduce(("body_stub",0),4)),
1602(LCType,Reduce(("body_stub",0),4)),(LCFor,Reduce(("body_stub",0),4)),
1603(LCUse,Reduce(("body_stub",0),4)),(LCBegin,Reduce(("body_stub",0),4)),
1604(LCEnd,Reduce(("body_stub",0),4))]]@slrp'a403;
1605val slrp'a401=[[(LCSemi,Shift 401)]]@slrp'a402;
1606val slrp'a400=[[(LCPackage,Reduce(("references_clause",0),3)),
1607(LCProcedure,Reduce(("references_clause",0),3)),
1608(LCFunction,Reduce(("references_clause",0),3)),
1609(LCSeparate,Reduce(("references_clause",0),3)),
1610(LCReferences,Reduce(("references_clause",0),3)),
1611(LCAnnotation,Reduce(("references_clause",0),3)),
1612(LCLChevron,Reduce(("references_clause",0),3)),
1613(LCWith,Reduce(("references_clause",0),3)),
1614(LCUse,Reduce(("references_clause",0),3))]]@slrp'a401;
1615val slrp'a399=[[(LCSemi,Shift 399)]]@slrp'a400;
1616val slrp'a398=[[(LCPackage,Reduce(("with_clause",0),3)),
1617(LCProcedure,Reduce(("with_clause",0),3)),
1618(LCFunction,Reduce(("with_clause",0),3)),
1619(LCSeparate,Reduce(("with_clause",0),3)),(LCPragma,Reduce(("with_clause",0),3)),
1620(LCReferences,Reduce(("with_clause",0),3)),
1621(LCAnnotation,Reduce(("with_clause",0),3)),
1622(LCLChevron,Reduce(("with_clause",0),3)),(LCWith,Reduce(("with_clause",0),3)),
1623(LCUse,Reduce(("with_clause",0),3))]]@slrp'a399;
1624val slrp'a397=[[(LCSemi,Shift 397)]]@slrp'a398;
1625val slrp'a396=[[(LCCrd,Reduce(("argument_association",0),3)),
1626(LCComma,Reduce(("argument_association",0),3))]]@slrp'a397;
1627val slrp'a395=[[(LCGoesTo,Shift 648)]]@slrp'a396;
1628val slrp'a394=[[(LCCrd,Reduce(("arg_ass_list",1),3))]]@slrp'a395;
1629val slrp'a393=[[(LCEos,Reduce(("pragma",1),6)),
1630(LCAnnotation,Reduce(("pragma",1),6)),(LCCon,Reduce(("pragma",1),6)),
1631(LCLChevron,Reduce(("pragma",1),6)),(LCGrkGamma,Reduce(("pragma",1),6)),
1632(LCGrkDelta,Reduce(("pragma",1),6)),(LCPragma,Reduce(("pragma",1),6)),
1633(LCNull,Reduce(("pragma",1),6)),(LCExit,Reduce(("pragma",1),6)),
1634(LCReturn,Reduce(("pragma",1),6)),(LCIf,Reduce(("pragma",1),6)),
1635(LCCase,Reduce(("pragma",1),6)),(LCIdentifier,Reduce(("pragma",1),6)),
1636(LCCharacterLiteral,Reduce(("pragma",1),6)),(LCTill,Reduce(("pragma",1),6)),
1637(LCLoop,Reduce(("pragma",1),6)),(LCFor,Reduce(("pragma",1),6)),
1638(LCWhile,Reduce(("pragma",1),6)),(LCReferences,Reduce(("pragma",1),6)),
1639(LCPackage,Reduce(("pragma",1),6)),(LCSeparate,Reduce(("pragma",1),6)),
1640(LCWith,Reduce(("pragma",1),6)),(LCUse,Reduce(("pragma",1),6)),
1641(LCProcedure,Reduce(("pragma",1),6)),(LCFunction,Reduce(("pragma",1),6)),
1642(LCSubType,Reduce(("pragma",1),6)),(LCType,Reduce(("pragma",1),6)),
1643(LCImplement,Reduce(("pragma",1),6)),(LCElsIf,Reduce(("pragma",1),6)),
1644(LCElse,Reduce(("pragma",1),6)),(LCEnd,Reduce(("pragma",1),6)),
1645(LCWhen,Reduce(("pragma",1),6)),(LCPrivate,Reduce(("pragma",1),6)),
1646(LCAuxiliary,Reduce(("pragma",1),6)),(LCBegin,Reduce(("pragma",1),6))]]@slrp'a394;
1647val slrp'a392=[[(LCSemi,Shift 392)]]@slrp'a393;
1648val slrp'a391=[[(LCCrd,Shift 391)]]@slrp'a392;
1649val slrp'a390=[[(LCEos,Reduce(("pragma",0),3)),
1650(LCAnnotation,Reduce(("pragma",0),3)),(LCCon,Reduce(("pragma",0),3)),
1651(LCLChevron,Reduce(("pragma",0),3)),(LCGrkGamma,Reduce(("pragma",0),3)),
1652(LCGrkDelta,Reduce(("pragma",0),3)),(LCPragma,Reduce(("pragma",0),3)),
1653(LCNull,Reduce(("pragma",0),3)),(LCExit,Reduce(("pragma",0),3)),
1654(LCReturn,Reduce(("pragma",0),3)),(LCIf,Reduce(("pragma",0),3)),
1655(LCCase,Reduce(("pragma",0),3)),(LCIdentifier,Reduce(("pragma",0),3)),
1656(LCCharacterLiteral,Reduce(("pragma",0),3)),(LCTill,Reduce(("pragma",0),3)),
1657(LCLoop,Reduce(("pragma",0),3)),(LCFor,Reduce(("pragma",0),3)),
1658(LCWhile,Reduce(("pragma",0),3)),(LCReferences,Reduce(("pragma",0),3)),
1659(LCPackage,Reduce(("pragma",0),3)),(LCSeparate,Reduce(("pragma",0),3)),
1660(LCWith,Reduce(("pragma",0),3)),(LCUse,Reduce(("pragma",0),3)),
1661(LCProcedure,Reduce(("pragma",0),3)),(LCFunction,Reduce(("pragma",0),3)),
1662(LCSubType,Reduce(("pragma",0),3)),(LCType,Reduce(("pragma",0),3)),
1663(LCImplement,Reduce(("pragma",0),3)),(LCElsIf,Reduce(("pragma",0),3)),
1664(LCElse,Reduce(("pragma",0),3)),(LCEnd,Reduce(("pragma",0),3)),
1665(LCWhen,Reduce(("pragma",0),3)),(LCPrivate,Reduce(("pragma",0),3)),
1666(LCAuxiliary,Reduce(("pragma",0),3)),(LCBegin,Reduce(("pragma",0),3))]]@slrp'a391;
1667val slrp'a389=[[(LCPackage,Reduce(("pragma_list",1),2)),
1668(LCProcedure,Reduce(("pragma_list",1),2)),
1669(LCFunction,Reduce(("pragma_list",1),2)),
1670(LCSeparate,Reduce(("pragma_list",1),2)),
1671(LCReferences,Reduce(("pragma_list",1),2)),
1672(LCAnnotation,Reduce(("pragma_list",1),2)),
1673(LCLChevron,Reduce(("pragma_list",1),2)),(LCWith,Reduce(("pragma_list",1),2)),
1674(LCUse,Reduce(("pragma_list",1),2))]]@slrp'a390;
1675val slrp'a388=[[(LCPackage,Reduce(("with_or_use_clause",1),1)),
1676(LCProcedure,Reduce(("with_or_use_clause",1),1)),
1677(LCFunction,Reduce(("with_or_use_clause",1),1)),
1678(LCSeparate,Reduce(("with_or_use_clause",1),1)),
1679(LCPragma,Reduce(("with_or_use_clause",1),1)),
1680(LCReferences,Reduce(("with_or_use_clause",1),1)),
1681(LCAnnotation,Reduce(("with_or_use_clause",1),1)),
1682(LCLChevron,Reduce(("with_or_use_clause",1),1)),
1683(LCWith,Reduce(("with_or_use_clause",1),1)),
1684(LCUse,Reduce(("with_or_use_clause",1),1))]]@slrp'a389;
1685val slrp'a387=[[(LCPackage,Reduce(("with_or_use_clause",0),1)),
1686(LCProcedure,Reduce(("with_or_use_clause",0),1)),
1687(LCFunction,Reduce(("with_or_use_clause",0),1)),
1688(LCSeparate,Reduce(("with_or_use_clause",0),1)),
1689(LCPragma,Reduce(("with_or_use_clause",0),1)),
1690(LCReferences,Reduce(("with_or_use_clause",0),1)),
1691(LCAnnotation,Reduce(("with_or_use_clause",0),1)),
1692(LCLChevron,Reduce(("with_or_use_clause",0),1)),
1693(LCWith,Reduce(("with_or_use_clause",0),1)),
1694(LCUse,Reduce(("with_or_use_clause",0),1))]]@slrp'a388;
1695val slrp'a386=[[(LCPackage,Reduce(("annotated_context_clause",2),1)),
1696(LCProcedure,Reduce(("annotated_context_clause",2),1)),
1697(LCFunction,Reduce(("annotated_context_clause",2),1)),
1698(LCSeparate,Reduce(("annotated_context_clause",2),1))]]@slrp'a387;
1699val slrp'a385=[[(LCPackage,Reduce(("annotated_context_clause",1),2)),
1700(LCProcedure,Reduce(("annotated_context_clause",1),2)),
1701(LCFunction,Reduce(("annotated_context_clause",1),2)),
1702(LCSeparate,Reduce(("annotated_context_clause",1),2))]]@slrp'a386;
1703val slrp'a384=[[(LCPackage,Reduce(("annotated_context_clause",0),3)),
1704(LCProcedure,Reduce(("annotated_context_clause",0),3)),
1705(LCFunction,Reduce(("annotated_context_clause",0),3)),
1706(LCSeparate,Reduce(("annotated_context_clause",0),3))]]@slrp'a385;
1707val slrp'a383=[[(LCPackage,Reduce(("context_clause",3),2)),
1708(LCProcedure,Reduce(("context_clause",3),2)),
1709(LCFunction,Reduce(("context_clause",3),2)),
1710(LCSeparate,Reduce(("context_clause",3),2))]]@slrp'a384;
1711val slrp'a382=[[(LCPackage,Reduce(("context_clause",2),2)),
1712(LCProcedure,Reduce(("context_clause",2),2)),
1713(LCFunction,Reduce(("context_clause",2),2)),
1714(LCSeparate,Reduce(("context_clause",2),2))]]@slrp'a383;
1715val slrp'a381=[[(LCPackage,Reduce(("context_clause",1),3)),
1716(LCProcedure,Reduce(("context_clause",1),3)),
1717(LCFunction,Reduce(("context_clause",1),3)),
1718(LCSeparate,Reduce(("context_clause",1),3))]]@slrp'a382;
1719val slrp'a380=[[(LCEos,Reduce(("main_program",0),1)),
1720(LCLChevron,Reduce(("main_program",0),1)),
1721(LCAnnotation,Reduce(("main_program",0),1)),
1722(LCPragma,Reduce(("main_program",0),1)),
1723(LCReferences,Reduce(("main_program",0),1)),
1724(LCPackage,Reduce(("main_program",0),1)),
1725(LCSeparate,Reduce(("main_program",0),1)),(LCWith,Reduce(("main_program",0),1)),
1726(LCUse,Reduce(("main_program",0),1)),(LCProcedure,Reduce(("main_program",0),1)),
1727(LCFunction,Reduce(("main_program",0),1))]]@slrp'a381;
1728val slrp'a379=[[(LCEos,Reduce(("library_unit_body",0),1)),
1729(LCLChevron,Reduce(("library_unit_body",0),1)),
1730(LCAnnotation,Reduce(("library_unit_body",0),1)),
1731(LCPragma,Reduce(("library_unit_body",0),1)),
1732(LCReferences,Reduce(("library_unit_body",0),1)),
1733(LCPackage,Reduce(("library_unit_body",0),1)),
1734(LCSeparate,Reduce(("library_unit_body",0),1)),
1735(LCWith,Reduce(("library_unit_body",0),1)),
1736(LCUse,Reduce(("library_unit_body",0),1)),
1737(LCProcedure,Reduce(("library_unit_body",0),1)),
1738(LCFunction,Reduce(("library_unit_body",0),1))]]@slrp'a380;
1739val slrp'a378=[[(LCEos,Reduce(("secondary_unit",1),1)),
1740(LCLChevron,Reduce(("secondary_unit",1),1)),
1741(LCAnnotation,Reduce(("secondary_unit",1),1)),
1742(LCPragma,Reduce(("secondary_unit",1),1)),
1743(LCReferences,Reduce(("secondary_unit",1),1)),
1744(LCPackage,Reduce(("secondary_unit",1),1)),
1745(LCSeparate,Reduce(("secondary_unit",1),1)),
1746(LCWith,Reduce(("secondary_unit",1),1)),(LCUse,Reduce(("secondary_unit",1),1)),
1747(LCProcedure,Reduce(("secondary_unit",1),1)),
1748(LCFunction,Reduce(("secondary_unit",1),1))]]@slrp'a379;
1749val slrp'a377=[[(LCEos,Reduce(("secondary_unit",0),1)),
1750(LCLChevron,Reduce(("secondary_unit",0),1)),
1751(LCAnnotation,Reduce(("secondary_unit",0),1)),
1752(LCPragma,Reduce(("secondary_unit",0),1)),
1753(LCReferences,Reduce(("secondary_unit",0),1)),
1754(LCPackage,Reduce(("secondary_unit",0),1)),
1755(LCSeparate,Reduce(("secondary_unit",0),1)),
1756(LCWith,Reduce(("secondary_unit",0),1)),(LCUse,Reduce(("secondary_unit",0),1)),
1757(LCProcedure,Reduce(("secondary_unit",0),1)),
1758(LCFunction,Reduce(("secondary_unit",0),1))]]@slrp'a378;
1759val slrp'a376=[[(LCEos,Reduce(("library_unit",1),1)),
1760(LCLChevron,Reduce(("library_unit",1),1)),
1761(LCAnnotation,Reduce(("library_unit",1),1)),
1762(LCPragma,Reduce(("library_unit",1),1)),
1763(LCReferences,Reduce(("library_unit",1),1)),
1764(LCPackage,Reduce(("library_unit",1),1)),
1765(LCSeparate,Reduce(("library_unit",1),1)),(LCWith,Reduce(("library_unit",1),1)),
1766(LCUse,Reduce(("library_unit",1),1)),(LCProcedure,Reduce(("library_unit",1),1)),
1767(LCFunction,Reduce(("library_unit",1),1))]]@slrp'a377;
1768val slrp'a375=[[(LCEos,Reduce(("library_unit",0),1)),
1769(LCLChevron,Reduce(("library_unit",0),1)),
1770(LCAnnotation,Reduce(("library_unit",0),1)),
1771(LCPragma,Reduce(("library_unit",0),1)),
1772(LCReferences,Reduce(("library_unit",0),1)),
1773(LCPackage,Reduce(("library_unit",0),1)),
1774(LCSeparate,Reduce(("library_unit",0),1)),(LCWith,Reduce(("library_unit",0),1)),
1775(LCUse,Reduce(("library_unit",0),1)),(LCProcedure,Reduce(("library_unit",0),1)),
1776(LCFunction,Reduce(("library_unit",0),1))]]@slrp'a376;
1777val slrp'a374=[[(LCEos,Reduce(("compilation_unit",2),1)),
1778(LCLChevron,Reduce(("compilation_unit",2),1)),
1779(LCAnnotation,Reduce(("compilation_unit",2),1)),
1780(LCPragma,Reduce(("compilation_unit",2),1)),
1781(LCReferences,Reduce(("compilation_unit",2),1)),
1782(LCPackage,Reduce(("compilation_unit",2),1)),
1783(LCSeparate,Reduce(("compilation_unit",2),1)),
1784(LCWith,Reduce(("compilation_unit",2),1)),
1785(LCUse,Reduce(("compilation_unit",2),1)),
1786(LCProcedure,Reduce(("compilation_unit",2),1)),
1787(LCFunction,Reduce(("compilation_unit",2),1))]]@slrp'a375;
1788val slrp'a373=[[(LCEos,Reduce(("compilation_unit",1),2)),
1789(LCLChevron,Reduce(("compilation_unit",1),2)),
1790(LCAnnotation,Reduce(("compilation_unit",1),2)),
1791(LCPragma,Reduce(("compilation_unit",1),2)),
1792(LCReferences,Reduce(("compilation_unit",1),2)),
1793(LCPackage,Reduce(("compilation_unit",1),2)),
1794(LCSeparate,Reduce(("compilation_unit",1),2)),
1795(LCWith,Reduce(("compilation_unit",1),2)),
1796(LCUse,Reduce(("compilation_unit",1),2)),
1797(LCProcedure,Reduce(("compilation_unit",1),2)),
1798(LCFunction,Reduce(("compilation_unit",1),2))]]@slrp'a374;
1799val slrp'a372=[[(LCEos,Reduce(("compilation_unit",0),2)),
1800(LCLChevron,Reduce(("compilation_unit",0),2)),
1801(LCAnnotation,Reduce(("compilation_unit",0),2)),
1802(LCPragma,Reduce(("compilation_unit",0),2)),
1803(LCReferences,Reduce(("compilation_unit",0),2)),
1804(LCPackage,Reduce(("compilation_unit",0),2)),
1805(LCSeparate,Reduce(("compilation_unit",0),2)),
1806(LCWith,Reduce(("compilation_unit",0),2)),
1807(LCUse,Reduce(("compilation_unit",0),2)),
1808(LCProcedure,Reduce(("compilation_unit",0),2)),
1809(LCFunction,Reduce(("compilation_unit",0),2))]]@slrp'a373;
1810val slrp'a371=[[(LCEos,Reduce(("compilation",2),2))]]@slrp'a372;
1811val slrp'a370=[[(LCEos,Reduce(("compilation",0),1))]]@slrp'a371;
1812val slrp'a369=[[(LCEos,Reduce(("renaming_declaration",5),4)),
1813(LCLChevron,Reduce(("renaming_declaration",5),4)),
1814(LCFunction,Reduce(("renaming_declaration",5),4)),
1815(LCPackage,Reduce(("renaming_declaration",5),4)),
1816(LCIdentifier,Reduce(("renaming_declaration",5),4)),
1817(LCAnnotation,Reduce(("renaming_declaration",5),4)),
1818(LCSubType,Reduce(("renaming_declaration",5),4)),
1819(LCPragma,Reduce(("renaming_declaration",5),4)),
1820(LCProcedure,Reduce(("renaming_declaration",5),4)),
1821(LCType,Reduce(("renaming_declaration",5),4)),
1822(LCFor,Reduce(("renaming_declaration",5),4)),
1823(LCUse,Reduce(("renaming_declaration",5),4)),
1824(LCEnd,Reduce(("renaming_declaration",5),4)),
1825(LCPrivate,Reduce(("renaming_declaration",5),4)),
1826(LCAuxiliary,Reduce(("renaming_declaration",5),4)),
1827(LCBegin,Reduce(("renaming_declaration",5),4))]]@slrp'a370;
1828val slrp'a368=[[(LCSemi,Shift 368)]]@slrp'a369;
1829val slrp'a367=[[(LCEos,Reduce(("renaming_declaration",4),6)),
1830(LCLChevron,Reduce(("renaming_declaration",4),6)),
1831(LCFunction,Reduce(("renaming_declaration",4),6)),
1832(LCPackage,Reduce(("renaming_declaration",4),6)),
1833(LCIdentifier,Reduce(("renaming_declaration",4),6)),
1834(LCAnnotation,Reduce(("renaming_declaration",4),6)),
1835(LCSubType,Reduce(("renaming_declaration",4),6)),
1836(LCPragma,Reduce(("renaming_declaration",4),6)),
1837(LCProcedure,Reduce(("renaming_declaration",4),6)),
1838(LCType,Reduce(("renaming_declaration",4),6)),
1839(LCFor,Reduce(("renaming_declaration",4),6)),
1840(LCUse,Reduce(("renaming_declaration",4),6)),
1841(LCEnd,Reduce(("renaming_declaration",4),6)),
1842(LCPrivate,Reduce(("renaming_declaration",4),6)),
1843(LCAuxiliary,Reduce(("renaming_declaration",4),6)),
1844(LCBegin,Reduce(("renaming_declaration",4),6))]]@slrp'a368;
1845val slrp'a366=[[(LCSemi,Shift 366)]]@slrp'a367;
1846val slrp'a365=[[(LCEos,Reduce(("renaming_declaration",3),4)),
1847(LCLChevron,Reduce(("renaming_declaration",3),4)),
1848(LCFunction,Reduce(("renaming_declaration",3),4)),
1849(LCPackage,Reduce(("renaming_declaration",3),4)),
1850(LCIdentifier,Reduce(("renaming_declaration",3),4)),
1851(LCAnnotation,Reduce(("renaming_declaration",3),4)),
1852(LCSubType,Reduce(("renaming_declaration",3),4)),
1853(LCPragma,Reduce(("renaming_declaration",3),4)),
1854(LCProcedure,Reduce(("renaming_declaration",3),4)),
1855(LCType,Reduce(("renaming_declaration",3),4)),
1856(LCFor,Reduce(("renaming_declaration",3),4)),
1857(LCUse,Reduce(("renaming_declaration",3),4)),
1858(LCEnd,Reduce(("renaming_declaration",3),4)),
1859(LCPrivate,Reduce(("renaming_declaration",3),4)),
1860(LCAuxiliary,Reduce(("renaming_declaration",3),4)),
1861(LCBegin,Reduce(("renaming_declaration",3),4))]]@slrp'a366;
1862val slrp'a364=[[(LCEos,Reduce(("renaming_declaration",2),10)),
1863(LCLChevron,Reduce(("renaming_declaration",2),10)),
1864(LCFunction,Reduce(("renaming_declaration",2),10)),
1865(LCPackage,Reduce(("renaming_declaration",2),10)),
1866(LCIdentifier,Reduce(("renaming_declaration",2),10)),
1867(LCAnnotation,Reduce(("renaming_declaration",2),10)),
1868(LCSubType,Reduce(("renaming_declaration",2),10)),
1869(LCPragma,Reduce(("renaming_declaration",2),10)),
1870(LCProcedure,Reduce(("renaming_declaration",2),10)),
1871(LCType,Reduce(("renaming_declaration",2),10)),
1872(LCFor,Reduce(("renaming_declaration",2),10)),
1873(LCUse,Reduce(("renaming_declaration",2),10)),
1874(LCEnd,Reduce(("renaming_declaration",2),10)),
1875(LCPrivate,Reduce(("renaming_declaration",2),10)),
1876(LCAuxiliary,Reduce(("renaming_declaration",2),10)),
1877(LCBegin,Reduce(("renaming_declaration",2),10))]]@slrp'a365;
1878val slrp'a363=[[(LCSemi,Shift 363)]]@slrp'a364;
1879val slrp'a362=[[(LCReturn,Shift 579)]]@slrp'a363;
1880val slrp'a361=[[(LCEos,Reduce(("renaming_declaration",1),6)),
1881(LCLChevron,Reduce(("renaming_declaration",1),6)),
1882(LCFunction,Reduce(("renaming_declaration",1),6)),
1883(LCPackage,Reduce(("renaming_declaration",1),6)),
1884(LCIdentifier,Reduce(("renaming_declaration",1),6)),
1885(LCAnnotation,Reduce(("renaming_declaration",1),6)),
1886(LCSubType,Reduce(("renaming_declaration",1),6)),
1887(LCPragma,Reduce(("renaming_declaration",1),6)),
1888(LCProcedure,Reduce(("renaming_declaration",1),6)),
1889(LCType,Reduce(("renaming_declaration",1),6)),
1890(LCFor,Reduce(("renaming_declaration",1),6)),
1891(LCUse,Reduce(("renaming_declaration",1),6)),
1892(LCEnd,Reduce(("renaming_declaration",1),6)),
1893(LCPrivate,Reduce(("renaming_declaration",1),6)),
1894(LCAuxiliary,Reduce(("renaming_declaration",1),6)),
1895(LCBegin,Reduce(("renaming_declaration",1),6))]]@slrp'a362;
1896val slrp'a360=[[(LCRenames,Shift 578)]]@slrp'a361;
1897val slrp'a359=[[(LCIdentifier,Shift 562)]]@slrp'a360;
1898val slrp'a358=[[(LCEos,Reduce(("renaming_declaration",0),6)),
1899(LCLChevron,Reduce(("renaming_declaration",0),6)),
1900(LCFunction,Reduce(("renaming_declaration",0),6)),
1901(LCPackage,Reduce(("renaming_declaration",0),6)),
1902(LCIdentifier,Reduce(("renaming_declaration",0),6)),
1903(LCAnnotation,Reduce(("renaming_declaration",0),6)),
1904(LCSubType,Reduce(("renaming_declaration",0),6)),
1905(LCPragma,Reduce(("renaming_declaration",0),6)),
1906(LCProcedure,Reduce(("renaming_declaration",0),6)),
1907(LCType,Reduce(("renaming_declaration",0),6)),
1908(LCFor,Reduce(("renaming_declaration",0),6)),
1909(LCUse,Reduce(("renaming_declaration",0),6)),
1910(LCEnd,Reduce(("renaming_declaration",0),6)),
1911(LCPrivate,Reduce(("renaming_declaration",0),6)),
1912(LCAuxiliary,Reduce(("renaming_declaration",0),6)),
1913(LCBegin,Reduce(("renaming_declaration",0),6))]]@slrp'a359;
1914val slrp'a357=[[(LCEos,Reduce(("use_type_clause",0),4)),
1915(LCLChevron,Reduce(("use_type_clause",0),4)),
1916(LCFunction,Reduce(("use_type_clause",0),4)),
1917(LCPackage,Reduce(("use_type_clause",0),4)),
1918(LCIdentifier,Reduce(("use_type_clause",0),4)),
1919(LCAnnotation,Reduce(("use_type_clause",0),4)),
1920(LCSubType,Reduce(("use_type_clause",0),4)),
1921(LCPragma,Reduce(("use_type_clause",0),4)),
1922(LCProcedure,Reduce(("use_type_clause",0),4)),
1923(LCType,Reduce(("use_type_clause",0),4)),(LCFor,Reduce(("use_type_clause",0),4))
1924,(LCUse,Reduce(("use_type_clause",0),4)),
1925(LCSeparate,Reduce(("use_type_clause",0),4)),
1926(LCReferences,Reduce(("use_type_clause",0),4)),
1927(LCWith,Reduce(("use_type_clause",0),4)),(LCEnd,Reduce(("use_type_clause",0),4))
1928,(LCPrivate,Reduce(("use_type_clause",0),4)),
1929(LCAuxiliary,Reduce(("use_type_clause",0),4)),
1930(LCBegin,Reduce(("use_type_clause",0),4))]]@slrp'a358;
1931val slrp'a356=[[(LCSemi,Shift 356)]]@slrp'a357;
1932val slrp'a355=[[(LCEos,Reduce(("use_package_clause",0),3)),
1933(LCLChevron,Reduce(("use_package_clause",0),3)),
1934(LCFunction,Reduce(("use_package_clause",0),3)),
1935(LCPackage,Reduce(("use_package_clause",0),3)),
1936(LCIdentifier,Reduce(("use_package_clause",0),3)),
1937(LCAnnotation,Reduce(("use_package_clause",0),3)),
1938(LCSubType,Reduce(("use_package_clause",0),3)),
1939(LCPragma,Reduce(("use_package_clause",0),3)),
1940(LCProcedure,Reduce(("use_package_clause",0),3)),
1941(LCType,Reduce(("use_package_clause",0),3)),
1942(LCFor,Reduce(("use_package_clause",0),3)),
1943(LCUse,Reduce(("use_package_clause",0),3)),
1944(LCSeparate,Reduce(("use_package_clause",0),3)),
1945(LCReferences,Reduce(("use_package_clause",0),3)),
1946(LCWith,Reduce(("use_package_clause",0),3)),
1947(LCEnd,Reduce(("use_package_clause",0),3)),
1948(LCPrivate,Reduce(("use_package_clause",0),3)),
1949(LCAuxiliary,Reduce(("use_package_clause",0),3)),
1950(LCBegin,Reduce(("use_package_clause",0),3))]]@slrp'a356;
1951val slrp'a354=[[(LCSemi,Shift 354)]]@slrp'a355;
1952val slrp'a353=[[(LCEos,Reduce(("use_clause",1),1)),
1953(LCLChevron,Reduce(("use_clause",1),1)),(LCFunction,Reduce(("use_clause",1),1)),
1954(LCPackage,Reduce(("use_clause",1),1)),(LCIdentifier,Reduce(("use_clause",1),1))
1955,(LCAnnotation,Reduce(("use_clause",1),1)),
1956(LCSubType,Reduce(("use_clause",1),1)),(LCPragma,Reduce(("use_clause",1),1)),
1957(LCProcedure,Reduce(("use_clause",1),1)),(LCType,Reduce(("use_clause",1),1)),
1958(LCFor,Reduce(("use_clause",1),1)),(LCUse,Reduce(("use_clause",1),1)),
1959(LCSeparate,Reduce(("use_clause",1),1)),
1960(LCReferences,Reduce(("use_clause",1),1)),(LCWith,Reduce(("use_clause",1),1)),
1961(LCEnd,Reduce(("use_clause",1),1)),(LCPrivate,Reduce(("use_clause",1),1)),
1962(LCAuxiliary,Reduce(("use_clause",1),1)),(LCBegin,Reduce(("use_clause",1),1))]]@slrp'a354;
1963val slrp'a352=[[(LCEos,Reduce(("use_clause",0),1)),
1964(LCLChevron,Reduce(("use_clause",0),1)),(LCFunction,Reduce(("use_clause",0),1)),
1965(LCPackage,Reduce(("use_clause",0),1)),(LCIdentifier,Reduce(("use_clause",0),1))
1966,(LCAnnotation,Reduce(("use_clause",0),1)),
1967(LCSubType,Reduce(("use_clause",0),1)),(LCPragma,Reduce(("use_clause",0),1)),
1968(LCProcedure,Reduce(("use_clause",0),1)),(LCType,Reduce(("use_clause",0),1)),
1969(LCFor,Reduce(("use_clause",0),1)),(LCUse,Reduce(("use_clause",0),1)),
1970(LCSeparate,Reduce(("use_clause",0),1)),
1971(LCReferences,Reduce(("use_clause",0),1)),(LCWith,Reduce(("use_clause",0),1)),
1972(LCEnd,Reduce(("use_clause",0),1)),(LCPrivate,Reduce(("use_clause",0),1)),
1973(LCAuxiliary,Reduce(("use_clause",0),1)),(LCBegin,Reduce(("use_clause",0),1))]]@slrp'a353;
1974val slrp'a351=[[(LCEos,Reduce(("deferred_constant_declaration",0),5)),
1975(LCLChevron,Reduce(("deferred_constant_declaration",0),5)),
1976(LCFunction,Reduce(("deferred_constant_declaration",0),5)),
1977(LCPackage,Reduce(("deferred_constant_declaration",0),5)),
1978(LCIdentifier,Reduce(("deferred_constant_declaration",0),5)),
1979(LCAnnotation,Reduce(("deferred_constant_declaration",0),5)),
1980(LCSubType,Reduce(("deferred_constant_declaration",0),5)),
1981(LCPragma,Reduce(("deferred_constant_declaration",0),5)),
1982(LCProcedure,Reduce(("deferred_constant_declaration",0),5)),
1983(LCType,Reduce(("deferred_constant_declaration",0),5)),
1984(LCFor,Reduce(("deferred_constant_declaration",0),5)),
1985(LCUse,Reduce(("deferred_constant_declaration",0),5)),
1986(LCImplement,Reduce(("deferred_constant_declaration",0),5)),
1987(LCEnd,Reduce(("deferred_constant_declaration",0),5)),
1988(LCPrivate,Reduce(("deferred_constant_declaration",0),5)),
1989(LCAuxiliary,Reduce(("deferred_constant_declaration",0),5)),
1990(LCBegin,Reduce(("deferred_constant_declaration",0),5))]]@slrp'a352;
1991val slrp'a350=[[(LCEos,Reduce(("private_type_declaration",3),7)),
1992(LCLChevron,Reduce(("private_type_declaration",3),7)),
1993(LCFunction,Reduce(("private_type_declaration",3),7)),
1994(LCPackage,Reduce(("private_type_declaration",3),7)),
1995(LCIdentifier,Reduce(("private_type_declaration",3),7)),
1996(LCAnnotation,Reduce(("private_type_declaration",3),7)),
1997(LCSubType,Reduce(("private_type_declaration",3),7)),
1998(LCPragma,Reduce(("private_type_declaration",3),7)),
1999(LCProcedure,Reduce(("private_type_declaration",3),7)),
2000(LCType,Reduce(("private_type_declaration",3),7)),
2001(LCFor,Reduce(("private_type_declaration",3),7)),
2002(LCUse,Reduce(("private_type_declaration",3),7)),
2003(LCImplement,Reduce(("private_type_declaration",3),7)),
2004(LCEnd,Reduce(("private_type_declaration",3),7)),
2005(LCPrivate,Reduce(("private_type_declaration",3),7)),
2006(LCAuxiliary,Reduce(("private_type_declaration",3),7)),
2007(LCBegin,Reduce(("private_type_declaration",3),7))]]@slrp'a351;
2008val slrp'a349=[[(LCSemi,Shift 349)]]@slrp'a350;
2009val slrp'a348=[[(LCPrivate,Shift 348)]]@slrp'a349;
2010val slrp'a347=[[(LCEos,Reduce(("private_type_declaration",2),6)),
2011(LCLChevron,Reduce(("private_type_declaration",2),6)),
2012(LCFunction,Reduce(("private_type_declaration",2),6)),
2013(LCPackage,Reduce(("private_type_declaration",2),6)),
2014(LCIdentifier,Reduce(("private_type_declaration",2),6)),
2015(LCAnnotation,Reduce(("private_type_declaration",2),6)),
2016(LCSubType,Reduce(("private_type_declaration",2),6)),
2017(LCPragma,Reduce(("private_type_declaration",2),6)),
2018(LCProcedure,Reduce(("private_type_declaration",2),6)),
2019(LCType,Reduce(("private_type_declaration",2),6)),
2020(LCFor,Reduce(("private_type_declaration",2),6)),
2021(LCUse,Reduce(("private_type_declaration",2),6)),
2022(LCImplement,Reduce(("private_type_declaration",2),6)),
2023(LCEnd,Reduce(("private_type_declaration",2),6)),
2024(LCPrivate,Reduce(("private_type_declaration",2),6)),
2025(LCAuxiliary,Reduce(("private_type_declaration",2),6)),
2026(LCBegin,Reduce(("private_type_declaration",2),6))]]@slrp'a348;
2027val slrp'a346=[[(LCSemi,Shift 346)]]@slrp'a347;
2028val slrp'a345=[[(LCPrivate,Shift 345)]]@slrp'a346;
2029val slrp'a344=[[(LCEos,Reduce(("private_type_declaration",1),6)),
2030(LCLChevron,Reduce(("private_type_declaration",1),6)),
2031(LCFunction,Reduce(("private_type_declaration",1),6)),
2032(LCPackage,Reduce(("private_type_declaration",1),6)),
2033(LCIdentifier,Reduce(("private_type_declaration",1),6)),
2034(LCAnnotation,Reduce(("private_type_declaration",1),6)),
2035(LCSubType,Reduce(("private_type_declaration",1),6)),
2036(LCPragma,Reduce(("private_type_declaration",1),6)),
2037(LCProcedure,Reduce(("private_type_declaration",1),6)),
2038(LCType,Reduce(("private_type_declaration",1),6)),
2039(LCFor,Reduce(("private_type_declaration",1),6)),
2040(LCUse,Reduce(("private_type_declaration",1),6)),
2041(LCImplement,Reduce(("private_type_declaration",1),6)),
2042(LCEnd,Reduce(("private_type_declaration",1),6)),
2043(LCPrivate,Reduce(("private_type_declaration",1),6)),
2044(LCAuxiliary,Reduce(("private_type_declaration",1),6)),
2045(LCBegin,Reduce(("private_type_declaration",1),6))]]@slrp'a345;
2046val slrp'a343=[[(LCSemi,Shift 343)]]@slrp'a344;
2047val slrp'a342=[[(LCEos,Reduce(("private_type_declaration",0),5)),
2048(LCLChevron,Reduce(("private_type_declaration",0),5)),
2049(LCFunction,Reduce(("private_type_declaration",0),5)),
2050(LCPackage,Reduce(("private_type_declaration",0),5)),
2051(LCIdentifier,Reduce(("private_type_declaration",0),5)),
2052(LCAnnotation,Reduce(("private_type_declaration",0),5)),
2053(LCSubType,Reduce(("private_type_declaration",0),5)),
2054(LCPragma,Reduce(("private_type_declaration",0),5)),
2055(LCProcedure,Reduce(("private_type_declaration",0),5)),
2056(LCType,Reduce(("private_type_declaration",0),5)),
2057(LCFor,Reduce(("private_type_declaration",0),5)),
2058(LCUse,Reduce(("private_type_declaration",0),5)),
2059(LCImplement,Reduce(("private_type_declaration",0),5)),
2060(LCEnd,Reduce(("private_type_declaration",0),5)),
2061(LCPrivate,Reduce(("private_type_declaration",0),5)),
2062(LCAuxiliary,Reduce(("private_type_declaration",0),5)),
2063(LCBegin,Reduce(("private_type_declaration",0),5))]]@slrp'a343;
2064val slrp'a341=[[(LCSemi,Shift 341)]]@slrp'a342;
2065val slrp'a340=[[(LCEnd,Reduce(("package_initialization",0),1))]]@slrp'a341;
2066val slrp'a339=[[(LCImplement,Reduce(("basic_dec_list",1),2))]]@slrp'a340;
2067val slrp'a338=[[(LCLChevron,Reduce(("using_dec",0),7)),
2068(LCFunction,Reduce(("using_dec",0),7)),(LCPackage,Reduce(("using_dec",0),7)),
2069(LCIdentifier,Reduce(("using_dec",0),7)),
2070(LCAnnotation,Reduce(("using_dec",0),7)),(LCSubType,Reduce(("using_dec",0),7)),
2071(LCPragma,Reduce(("using_dec",0),7)),(LCProcedure,Reduce(("using_dec",0),7)),
2072(LCType,Reduce(("using_dec",0),7)),(LCFor,Reduce(("using_dec",0),7)),
2073(LCUse,Reduce(("using_dec",0),7)),(LCBegin,Reduce(("using_dec",0),7)),
2074(LCUsing,Reduce(("using_dec",0),7))]]@slrp'a339;
2075val slrp'a337=[[(LCSemi,Shift 337)]]@slrp'a338;
2076val slrp'a336=[[(LCZ,Shift 336)]]@slrp'a337;
2077val slrp'a335=[[(LCBy,Shift 335)]]@slrp'a336;
2078val slrp'a334=[[(LCZ,Shift 334)]]@slrp'a335;
2079val slrp'a333=[[(LCImplement,Shift 333)]]@slrp'a334;
2080val slrp'a332=[[(LCLChevron,Reduce(("using_list",1),2)),
2081(LCFunction,Reduce(("using_list",1),2)),(LCPackage,Reduce(("using_list",1),2)),
2082(LCIdentifier,Reduce(("using_list",1),2)),
2083(LCAnnotation,Reduce(("using_list",1),2)),(LCSubType,Reduce(("using_list",1),2))
2084,(LCPragma,Reduce(("using_list",1),2)),(LCProcedure,Reduce(("using_list",1),2)),
2085(LCType,Reduce(("using_list",1),2)),(LCFor,Reduce(("using_list",1),2)),
2086(LCUse,Reduce(("using_list",1),2)),(LCBegin,Reduce(("using_list",1),2))]]@slrp'a333;
2087val slrp'a331=[[(LCEnd,Reduce(("package_implementation",2),4))]]@slrp'a332;
2088val slrp'a330=[[(LCBegin,Shift 686)]]@slrp'a331;
2089val slrp'a329=[[(LCEnd,Reduce(("package_implementation",1),3))]]@slrp'a330;
2090val slrp'a328=[[(LCEos,Reduce(("package_body",0),9)),
2091(LCLChevron,Reduce(("package_body",0),9)),
2092(LCAnnotation,Reduce(("package_body",0),9)),
2093(LCPragma,Reduce(("package_body",0),9)),
2094(LCReferences,Reduce(("package_body",0),9)),
2095(LCPackage,Reduce(("package_body",0),9)),
2096(LCSeparate,Reduce(("package_body",0),9)),(LCWith,Reduce(("package_body",0),9)),
2097(LCUse,Reduce(("package_body",0),9)),(LCProcedure,Reduce(("package_body",0),9)),
2098(LCFunction,Reduce(("package_body",0),9))]]@slrp'a329;
2099val slrp'a327=[[(LCSemi,Shift 327)]]@slrp'a328;
2100val slrp'a326=[[(LCIdentifier,Shift 326)]]@slrp'a327;
2101val slrp'a325=[[(LCEnd,Shift 325)]]@slrp'a326;
2102val slrp'a324=[[(LCIs,Shift 710)]]@slrp'a325;
2103val slrp'a323=[[(LCIdentifier,Shift 561)]]@slrp'a324;
2104val slrp'a322=[[(LCBBody,Shift 322)]]@slrp'a323;
2105val slrp'a321=[[(LCEos,Reduce(("pdec",2),1)),(LCEnd,Reduce(("pdec",2),1)),
2106(LCLChevron,Reduce(("pdec",2),1)),(LCAnnotation,Reduce(("pdec",2),1)),
2107(LCSubType,Reduce(("pdec",2),1)),(LCPragma,Reduce(("pdec",2),1)),
2108(LCFunction,Reduce(("pdec",2),1)),(LCPackage,Reduce(("pdec",2),1)),
2109(LCType,Reduce(("pdec",2),1)),(LCIdentifier,Reduce(("pdec",2),1)),
2110(LCFor,Reduce(("pdec",2),1)),(LCUse,Reduce(("pdec",2),1)),
2111(LCProcedure,Reduce(("pdec",2),1))]]@slrp'a322;
2112val slrp'a320=[[(LCEos,Reduce(("pdec",1),1)),(LCEnd,Reduce(("pdec",1),1)),
2113(LCLChevron,Reduce(("pdec",1),1)),(LCAnnotation,Reduce(("pdec",1),1)),
2114(LCSubType,Reduce(("pdec",1),1)),(LCPragma,Reduce(("pdec",1),1)),
2115(LCFunction,Reduce(("pdec",1),1)),(LCPackage,Reduce(("pdec",1),1)),
2116(LCType,Reduce(("pdec",1),1)),(LCIdentifier,Reduce(("pdec",1),1)),
2117(LCFor,Reduce(("pdec",1),1)),(LCUse,Reduce(("pdec",1),1)),
2118(LCProcedure,Reduce(("pdec",1),1))]]@slrp'a321;
2119val slrp'a319=[[(LCEos,Reduce(("pdec",0),1)),(LCEnd,Reduce(("pdec",0),1)),
2120(LCLChevron,Reduce(("pdec",0),1)),(LCAnnotation,Reduce(("pdec",0),1)),
2121(LCSubType,Reduce(("pdec",0),1)),(LCPragma,Reduce(("pdec",0),1)),
2122(LCFunction,Reduce(("pdec",0),1)),(LCPackage,Reduce(("pdec",0),1)),
2123(LCType,Reduce(("pdec",0),1)),(LCIdentifier,Reduce(("pdec",0),1)),
2124(LCFor,Reduce(("pdec",0),1)),(LCUse,Reduce(("pdec",0),1)),
2125(LCProcedure,Reduce(("pdec",0),1))]]@slrp'a320;
2126val slrp'a318=[[(LCEos,Reduce(("private_part",1),2)),
2127(LCEnd,Reduce(("private_part",1),2))]]@slrp'a319;
2128val slrp'a317=[[(LCEos,Reduce(("visdec",4),1)),(LCEnd,Reduce(("visdec",4),1)),
2129(LCPrivate,Reduce(("visdec",4),1)),(LCAuxiliary,Reduce(("visdec",4),1)),
2130(LCLChevron,Reduce(("visdec",4),1)),(LCAnnotation,Reduce(("visdec",4),1)),
2131(LCSubType,Reduce(("visdec",4),1)),(LCPragma,Reduce(("visdec",4),1)),
2132(LCFunction,Reduce(("visdec",4),1)),(LCPackage,Reduce(("visdec",4),1)),
2133(LCType,Reduce(("visdec",4),1)),(LCIdentifier,Reduce(("visdec",4),1)),
2134(LCFor,Reduce(("visdec",4),1)),(LCUse,Reduce(("visdec",4),1)),
2135(LCProcedure,Reduce(("visdec",4),1))]]@slrp'a318;
2136val slrp'a316=[[(LCEos,Reduce(("visdec",3),3)),(LCEnd,Reduce(("visdec",3),3)),
2137(LCPrivate,Reduce(("visdec",3),3)),(LCAuxiliary,Reduce(("visdec",3),3)),
2138(LCLChevron,Reduce(("visdec",3),3)),(LCAnnotation,Reduce(("visdec",3),3)),
2139(LCSubType,Reduce(("visdec",3),3)),(LCPragma,Reduce(("visdec",3),3)),
2140(LCFunction,Reduce(("visdec",3),3)),(LCPackage,Reduce(("visdec",3),3)),
2141(LCType,Reduce(("visdec",3),3)),(LCIdentifier,Reduce(("visdec",3),3)),
2142(LCFor,Reduce(("visdec",3),3)),(LCUse,Reduce(("visdec",3),3)),
2143(LCProcedure,Reduce(("visdec",3),3))]]@slrp'a317;
2144val slrp'a315=[[(LCSemi,Shift 315)]]@slrp'a316;
2145val slrp'a314=[[(LCZ,Shift 314)]]@slrp'a315;
2146val slrp'a313=[[(LCEos,Reduce(("visdec",2),1)),(LCEnd,Reduce(("visdec",2),1)),
2147(LCPrivate,Reduce(("visdec",2),1)),(LCAuxiliary,Reduce(("visdec",2),1)),
2148(LCLChevron,Reduce(("visdec",2),1)),(LCAnnotation,Reduce(("visdec",2),1)),
2149(LCSubType,Reduce(("visdec",2),1)),(LCPragma,Reduce(("visdec",2),1)),
2150(LCFunction,Reduce(("visdec",2),1)),(LCPackage,Reduce(("visdec",2),1)),
2151(LCType,Reduce(("visdec",2),1)),(LCIdentifier,Reduce(("visdec",2),1)),
2152(LCFor,Reduce(("visdec",2),1)),(LCUse,Reduce(("visdec",2),1)),
2153(LCProcedure,Reduce(("visdec",2),1))]]@slrp'a314;
2154val slrp'a312=[[(LCEos,Reduce(("visdec",1),1)),(LCEnd,Reduce(("visdec",1),1)),
2155(LCPrivate,Reduce(("visdec",1),1)),(LCAuxiliary,Reduce(("visdec",1),1)),
2156(LCLChevron,Reduce(("visdec",1),1)),(LCAnnotation,Reduce(("visdec",1),1)),
2157(LCSubType,Reduce(("visdec",1),1)),(LCPragma,Reduce(("visdec",1),1)),
2158(LCFunction,Reduce(("visdec",1),1)),(LCPackage,Reduce(("visdec",1),1)),
2159(LCType,Reduce(("visdec",1),1)),(LCIdentifier,Reduce(("visdec",1),1)),
2160(LCFor,Reduce(("visdec",1),1)),(LCUse,Reduce(("visdec",1),1)),
2161(LCProcedure,Reduce(("visdec",1),1))]]@slrp'a313;
2162val slrp'a311=[[(LCEos,Reduce(("visdec",0),1)),(LCEnd,Reduce(("visdec",0),1)),
2163(LCPrivate,Reduce(("visdec",0),1)),(LCAuxiliary,Reduce(("visdec",0),1)),
2164(LCLChevron,Reduce(("visdec",0),1)),(LCAnnotation,Reduce(("visdec",0),1)),
2165(LCSubType,Reduce(("visdec",0),1)),(LCPragma,Reduce(("visdec",0),1)),
2166(LCFunction,Reduce(("visdec",0),1)),(LCPackage,Reduce(("visdec",0),1)),
2167(LCType,Reduce(("visdec",0),1)),(LCIdentifier,Reduce(("visdec",0),1)),
2168(LCFor,Reduce(("visdec",0),1)),(LCUse,Reduce(("visdec",0),1)),
2169(LCProcedure,Reduce(("visdec",0),1))]]@slrp'a312;
2170val slrp'a310=[[(LCEos,Reduce(("visible_part",1),2)),
2171(LCEnd,Reduce(("visible_part",1),2)),(LCPrivate,Reduce(("visible_part",1),2))]]@slrp'a311;
2172val slrp'a309=[[(LCSemi,Reduce(("package_specification",1),9))]]@slrp'a310;
2173val slrp'a308=[[(LCIdentifier,Shift 308)]]@slrp'a309;
2174val slrp'a307=[[(LCEnd,Shift 307)]]@slrp'a308;
2175val slrp'a306=[[(LCSemi,Reduce(("package_specification",0),7))]]@slrp'a307;
2176val slrp'a305=[[(LCIdentifier,Shift 305)]]@slrp'a306;
2177val slrp'a304=[[(LCEos,Reduce(("package_declaration",0),2)),
2178(LCLChevron,Reduce(("package_declaration",0),2)),
2179(LCFunction,Reduce(("package_declaration",0),2)),
2180(LCPackage,Reduce(("package_declaration",0),2)),
2181(LCIdentifier,Reduce(("package_declaration",0),2)),
2182(LCAnnotation,Reduce(("package_declaration",0),2)),
2183(LCSubType,Reduce(("package_declaration",0),2)),
2184(LCPragma,Reduce(("package_declaration",0),2)),
2185(LCProcedure,Reduce(("package_declaration",0),2)),
2186(LCType,Reduce(("package_declaration",0),2)),
2187(LCFor,Reduce(("package_declaration",0),2)),
2188(LCUse,Reduce(("package_declaration",0),2)),
2189(LCReferences,Reduce(("package_declaration",0),2)),
2190(LCSeparate,Reduce(("package_declaration",0),2)),
2191(LCWith,Reduce(("package_declaration",0),2)),
2192(LCBegin,Reduce(("package_declaration",0),2)),
2193(LCEnd,Reduce(("package_declaration",0),2))]]@slrp'a305;
2194val slrp'a303=[[(LCSemi,Shift 303)]]@slrp'a304;
2195val slrp'a302=[[(LCCrd,Reduce(("actual_parameter",0),1)),
2196(LCComma,Reduce(("actual_parameter",0),1))]]@slrp'a303;
2197val slrp'a301=[[(LCCrd,Reduce(("positional_parameter_association",1),3))]]@slrp'a302;
2198val slrp'a300=[[(LCCrd,Reduce(("parameter_association",1),1))]]@slrp'a301;
2199val slrp'a299=[[(LCCrd,Reduce(("parameter_association",0),1))]]@slrp'a300;
2200val slrp'a298=[[(LCOrd,Reduce(("actual_parameter_part",0),3)),
2201(LCDot,Reduce(("actual_parameter_part",0),3)),
2202(LCPrimedIdentifier,Reduce(("actual_parameter_part",0),3)),
2203(LCBecomes,Reduce(("actual_parameter_part",0),3)),
2204(LCSemi,Reduce(("actual_parameter_part",0),3)),
2205(LCRRange,Reduce(("actual_parameter_part",0),3)),
2206(LCDigits,Reduce(("actual_parameter_part",0),3)),
2207(LCDelta,Reduce(("actual_parameter_part",0),3)),
2208(LCComma,Reduce(("actual_parameter_part",0),3)),
2209(LCCrd,Reduce(("actual_parameter_part",0),3)),
2210(LCAnd,Reduce(("actual_parameter_part",0),3)),
2211(LCOr,Reduce(("actual_parameter_part",0),3)),
2212(LCXor,Reduce(("actual_parameter_part",0),3)),
2213(LCGreaterEquals,Reduce(("actual_parameter_part",0),3)),
2214(LCGreaterThan,Reduce(("actual_parameter_part",0),3)),
2215(LCLessEquals,Reduce(("actual_parameter_part",0),3)),
2216(LCLessThan,Reduce(("actual_parameter_part",0),3)),
2217(LCNotEquals,Reduce(("actual_parameter_part",0),3)),
2218(LCEquals,Reduce(("actual_parameter_part",0),3)),
2219(LCIn,Reduce(("actual_parameter_part",0),3)),
2220(LCNot,Reduce(("actual_parameter_part",0),3)),
2221(LCDotDot,Reduce(("actual_parameter_part",0),3)),
2222(LCAmpersand,Reduce(("actual_parameter_part",0),3)),
2223(LCMinus,Reduce(("actual_parameter_part",0),3)),
2224(LCPlus,Reduce(("actual_parameter_part",0),3)),
2225(LCRem,Reduce(("actual_parameter_part",0),3)),
2226(LCMod,Reduce(("actual_parameter_part",0),3)),
2227(LCDiv,Reduce(("actual_parameter_part",0),3)),
2228(LCStar,Reduce(("actual_parameter_part",0),3)),
2229(LCStarStar,Reduce(("actual_parameter_part",0),3)),
2230(LCPrime,Reduce(("actual_parameter_part",0),3)),
2231(LCGrkXi,Reduce(("actual_parameter_part",0),3)),
2232(LCRenames,Reduce(("actual_parameter_part",0),3)),
2233(LCAt,Reduce(("actual_parameter_part",0),3)),
2234(LCThen,Reduce(("actual_parameter_part",0),3)),
2235(LCIs,Reduce(("actual_parameter_part",0),3)),
2236(LCGoesTo,Reduce(("actual_parameter_part",0),3)),
2237(LCBar,Reduce(("actual_parameter_part",0),3)),
2238(LCTill,Reduce(("actual_parameter_part",0),3)),
2239(LCLoop,Reduce(("actual_parameter_part",0),3)),
2240(LCAnnotation,Reduce(("actual_parameter_part",0),3)),
2241(LCLChevron,Reduce(("actual_parameter_part",0),3))]]@slrp'a299;
2242val slrp'a297=[[(LCCrd,Shift 297)]]@slrp'a298;
2243val slrp'a296=[[(LCEos,Reduce(("procedure_call_statement",0),2)),
2244(LCAnnotation,Reduce(("procedure_call_statement",0),2)),
2245(LCCon,Reduce(("procedure_call_statement",0),2)),
2246(LCLChevron,Reduce(("procedure_call_statement",0),2)),
2247(LCGrkGamma,Reduce(("procedure_call_statement",0),2)),
2248(LCGrkDelta,Reduce(("procedure_call_statement",0),2)),
2249(LCPragma,Reduce(("procedure_call_statement",0),2)),
2250(LCNull,Reduce(("procedure_call_statement",0),2)),
2251(LCExit,Reduce(("procedure_call_statement",0),2)),
2252(LCReturn,Reduce(("procedure_call_statement",0),2)),
2253(LCIf,Reduce(("procedure_call_statement",0),2)),
2254(LCCase,Reduce(("procedure_call_statement",0),2)),
2255(LCIdentifier,Reduce(("procedure_call_statement",0),2)),
2256(LCCharacterLiteral,Reduce(("procedure_call_statement",0),2)),
2257(LCTill,Reduce(("procedure_call_statement",0),2)),
2258(LCLoop,Reduce(("procedure_call_statement",0),2)),
2259(LCFor,Reduce(("procedure_call_statement",0),2)),
2260(LCWhile,Reduce(("procedure_call_statement",0),2)),
2261(LCElsIf,Reduce(("procedure_call_statement",0),2)),
2262(LCElse,Reduce(("procedure_call_statement",0),2)),
2263(LCEnd,Reduce(("procedure_call_statement",0),2)),
2264(LCWhen,Reduce(("procedure_call_statement",0),2))]]@slrp'a297;
2265val slrp'a295=[[(LCEos,Reduce(("subprogram_implementation",0),6)),
2266(LCLChevron,Reduce(("subprogram_implementation",0),6)),
2267(LCFunction,Reduce(("subprogram_implementation",0),6)),
2268(LCPackage,Reduce(("subprogram_implementation",0),6)),
2269(LCIdentifier,Reduce(("subprogram_implementation",0),6)),
2270(LCAnnotation,Reduce(("subprogram_implementation",0),6)),
2271(LCSubType,Reduce(("subprogram_implementation",0),6)),
2272(LCPragma,Reduce(("subprogram_implementation",0),6)),
2273(LCProcedure,Reduce(("subprogram_implementation",0),6)),
2274(LCType,Reduce(("subprogram_implementation",0),6)),
2275(LCFor,Reduce(("subprogram_implementation",0),6)),
2276(LCUse,Reduce(("subprogram_implementation",0),6)),
2277(LCReferences,Reduce(("subprogram_implementation",0),6)),
2278(LCSeparate,Reduce(("subprogram_implementation",0),6)),
2279(LCWith,Reduce(("subprogram_implementation",0),6)),
2280(LCBegin,Reduce(("subprogram_implementation",0),6)),
2281(LCEnd,Reduce(("subprogram_implementation",0),6))]]@slrp'a296;
2282val slrp'a294=[[(LCSemi,Shift 294)]]@slrp'a295;
2283val slrp'a293=[[(LCIdentifier,Shift 293)]]@slrp'a294;
2284val slrp'a292=[[(LCEnd,Shift 292)]]@slrp'a293;
2285val slrp'a291=[[(LCBegin,Shift 683)]]@slrp'a292;
2286val slrp'a290=[[(LCEos,Reduce(("subprogram_body",1),3)),
2287(LCLChevron,Reduce(("subprogram_body",1),3)),
2288(LCFunction,Reduce(("subprogram_body",1),3)),
2289(LCPackage,Reduce(("subprogram_body",1),3)),
2290(LCIdentifier,Reduce(("subprogram_body",1),3)),
2291(LCAnnotation,Reduce(("subprogram_body",1),3)),
2292(LCSubType,Reduce(("subprogram_body",1),3)),
2293(LCPragma,Reduce(("subprogram_body",1),3)),
2294(LCProcedure,Reduce(("subprogram_body",1),3)),
2295(LCType,Reduce(("subprogram_body",1),3)),(LCFor,Reduce(("subprogram_body",1),3))
2296,(LCUse,Reduce(("subprogram_body",1),3)),
2297(LCReferences,Reduce(("subprogram_body",1),3)),
2298(LCSeparate,Reduce(("subprogram_body",1),3)),
2299(LCWith,Reduce(("subprogram_body",1),3)),
2300(LCBegin,Reduce(("subprogram_body",1),3)),
2301(LCEnd,Reduce(("subprogram_body",1),3))]]@slrp'a291;
2302val slrp'a289=[[(LCIs,Shift 707)]]@slrp'a290;
2303val slrp'a288=[[(LCEos,Reduce(("subprogram_body",0),3)),
2304(LCLChevron,Reduce(("subprogram_body",0),3)),
2305(LCFunction,Reduce(("subprogram_body",0),3)),
2306(LCPackage,Reduce(("subprogram_body",0),3)),
2307(LCIdentifier,Reduce(("subprogram_body",0),3)),
2308(LCAnnotation,Reduce(("subprogram_body",0),3)),
2309(LCSubType,Reduce(("subprogram_body",0),3)),
2310(LCPragma,Reduce(("subprogram_body",0),3)),
2311(LCProcedure,Reduce(("subprogram_body",0),3)),
2312(LCType,Reduce(("subprogram_body",0),3)),(LCFor,Reduce(("subprogram_body",0),3))
2313,(LCUse,Reduce(("subprogram_body",0),3)),
2314(LCReferences,Reduce(("subprogram_body",0),3)),
2315(LCSeparate,Reduce(("subprogram_body",0),3)),
2316(LCWith,Reduce(("subprogram_body",0),3)),
2317(LCBegin,Reduce(("subprogram_body",0),3)),
2318(LCEnd,Reduce(("subprogram_body",0),3))]]@slrp'a289;
2319val slrp'a287=[[(LCIs,Shift 706)]]@slrp'a288;
2320val slrp'a286=[[(LCIdentifier,Reduce(("mode",3),2)),
2321(LCCharacterLiteral,Reduce(("mode",3),2))]]@slrp'a287;
2322val slrp'a285=[[(LCIdentifier,Reduce(("mode",2),1)),
2323(LCCharacterLiteral,Reduce(("mode",2),1))]]@slrp'a286;
2324val slrp'a284=[[(LCCrd,Reduce(("parameter_specification",1),6)),
2325(LCSemi,Reduce(("parameter_specification",1),6))]]@slrp'a285;
2326val slrp'a283=[[(LCCrd,Reduce(("parlist",1),3))]]@slrp'a284;
2327val slrp'a282=[[(LCIs,Reduce(("formal_part",0),3)),
2328(LCGrkDelta,Reduce(("formal_part",0),3)),
2329(LCGrkGamma,Reduce(("formal_part",0),3)),(LCReturn,Reduce(("formal_part",0),3)),
2330(LCSemi,Reduce(("formal_part",0),3)),(LCAnnotation,Reduce(("formal_part",0),3)),
2331(LCLChevron,Reduce(("formal_part",0),3)),(LCRenames,Reduce(("formal_part",0),3))
2332]]@slrp'a283;
2333val slrp'a281=[[(LCCrd,Shift 281)]]@slrp'a282;
2334val slrp'a280=[[(LCOrd,Reduce(("operator_symbol",0),1)),
2335(LCSemi,Reduce(("operator_symbol",0),1))]]@slrp'a281;
2336val slrp'a279=[[(LCEos,Reduce(("annotation_list",2),2)),
2337(LCSemi,Reduce(("annotation_list",2),2)),(LCIs,Reduce(("annotation_list",2),2)),
2338(LCRenames,Reduce(("annotation_list",2),2)),
2339(LCPackage,Reduce(("annotation_list",2),2)),
2340(LCProcedure,Reduce(("annotation_list",2),2)),
2341(LCFunction,Reduce(("annotation_list",2),2)),
2342(LCSeparate,Reduce(("annotation_list",2),2))]]@slrp'a280;
2343val slrp'a278=[[(LCEos,Reduce(("annotation_list",1),2)),
2344(LCSemi,Reduce(("annotation_list",1),2)),(LCIs,Reduce(("annotation_list",1),2)),
2345(LCRenames,Reduce(("annotation_list",1),2)),
2346(LCPackage,Reduce(("annotation_list",1),2)),
2347(LCProcedure,Reduce(("annotation_list",1),2)),
2348(LCFunction,Reduce(("annotation_list",1),2)),
2349(LCSeparate,Reduce(("annotation_list",1),2))]]@slrp'a279;
2350val slrp'a277=[[(LCSemi,Reduce(("function_specification",0),2)),
2351(LCIs,Reduce(("function_specification",0),2)),
2352(LCRenames,Reduce(("function_specification",0),2))]]@slrp'a278;
2353val slrp'a276=[[(LCSemi,Reduce(("function_specification_1",3),6)),
2354(LCAnnotation,Reduce(("function_specification_1",3),6)),
2355(LCLChevron,Reduce(("function_specification_1",3),6)),
2356(LCIs,Reduce(("function_specification_1",3),6)),
2357(LCRenames,Reduce(("function_specification_1",3),6))]]@slrp'a277;
2358val slrp'a275=[[(LCSemi,Reduce(("function_specification_1",1),5)),
2359(LCAnnotation,Reduce(("function_specification_1",1),5)),
2360(LCLChevron,Reduce(("function_specification_1",1),5)),
2361(LCIs,Reduce(("function_specification_1",1),5)),
2362(LCRenames,Reduce(("function_specification_1",1),5))]]@slrp'a276;
2363val slrp'a274=[[(LCSemi,Reduce(("function_specification_statement",3),4)),
2364(LCAnnotation,Reduce(("function_specification_statement",3),4)),
2365(LCLChevron,Reduce(("function_specification_statement",3),4)),
2366(LCIs,Reduce(("function_specification_statement",3),4)),
2367(LCRenames,Reduce(("function_specification_statement",3),4))]]@slrp'a275;
2368val slrp'a273=[[(LCRBrace,Shift 273)]]@slrp'a274;
2369val slrp'a272=[[(LCZ,Shift 272)]]@slrp'a273;
2370val slrp'a271=[[(LCSemi,Reduce(("function_specification_statement",2),4)),
2371(LCAnnotation,Reduce(("function_specification_statement",2),4)),
2372(LCLChevron,Reduce(("function_specification_statement",2),4)),
2373(LCIs,Reduce(("function_specification_statement",2),4)),
2374(LCRenames,Reduce(("function_specification_statement",2),4))]]@slrp'a272;
2375val slrp'a270=[[(LCRSqBrack,Shift 270)]]@slrp'a271;
2376val slrp'a269=[[(LCZ,Shift 269)]]@slrp'a270;
2377val slrp'a268=[[(LCSemi,Reduce(("function_specification_statement",1),5)),
2378(LCAnnotation,Reduce(("function_specification_statement",1),5)),
2379(LCLChevron,Reduce(("function_specification_statement",1),5)),
2380(LCIs,Reduce(("function_specification_statement",1),5)),
2381(LCRenames,Reduce(("function_specification_statement",1),5))]]@slrp'a269;
2382val slrp'a267=[[(LCRBrace,Shift 267)]]@slrp'a268;
2383val slrp'a266=[[(LCZ,Shift 266)]]@slrp'a267;
2384val slrp'a265=[[(LCSemi,Reduce(("function_specification_statement",0),5)),
2385(LCAnnotation,Reduce(("function_specification_statement",0),5)),
2386(LCLChevron,Reduce(("function_specification_statement",0),5)),
2387(LCIs,Reduce(("function_specification_statement",0),5)),
2388(LCRenames,Reduce(("function_specification_statement",0),5))]]@slrp'a266;
2389val slrp'a264=[[(LCRSqBrack,Shift 264)]]@slrp'a265;
2390val slrp'a263=[[(LCZ,Shift 263)]]@slrp'a264;
2391val slrp'a262=[[(LCSemi,Reduce(("procedure_specification_statement",2),1)),
2392(LCAnnotation,Reduce(("procedure_specification_statement",2),1)),
2393(LCLChevron,Reduce(("procedure_specification_statement",2),1)),
2394(LCIs,Reduce(("procedure_specification_statement",2),1)),
2395(LCRenames,Reduce(("procedure_specification_statement",2),1))]]@slrp'a263;
2396val slrp'a261=[[(LCSemi,Reduce(("procedure_specification_statement",1),2)),
2397(LCAnnotation,Reduce(("procedure_specification_statement",1),2)),
2398(LCLChevron,Reduce(("procedure_specification_statement",1),2)),
2399(LCIs,Reduce(("procedure_specification_statement",1),2)),
2400(LCRenames,Reduce(("procedure_specification_statement",1),2))]]@slrp'a262;
2401val slrp'a260=[[(LCSemi,Reduce(("procedure_specification_statement",0),3)),
2402(LCAnnotation,Reduce(("procedure_specification_statement",0),3)),
2403(LCLChevron,Reduce(("procedure_specification_statement",0),3)),
2404(LCIs,Reduce(("procedure_specification_statement",0),3)),
2405(LCRenames,Reduce(("procedure_specification_statement",0),3))]]@slrp'a261;
2406val slrp'a259=[[(LCSemi,Reduce(("procedure_specification",0),2)),
2407(LCIs,Reduce(("procedure_specification",0),2)),
2408(LCRenames,Reduce(("procedure_specification",0),2))]]@slrp'a260;
2409val slrp'a258=[[(LCSemi,Reduce(("procedure_specification_1",3),4)),
2410(LCAnnotation,Reduce(("procedure_specification_1",3),4)),
2411(LCLChevron,Reduce(("procedure_specification_1",3),4)),
2412(LCIs,Reduce(("procedure_specification_1",3),4)),
2413(LCRenames,Reduce(("procedure_specification_1",3),4))]]@slrp'a259;
2414val slrp'a257=[[(LCSemi,Reduce(("procedure_specification_1",1),3)),
2415(LCAnnotation,Reduce(("procedure_specification_1",1),3)),
2416(LCLChevron,Reduce(("procedure_specification_1",1),3)),
2417(LCIs,Reduce(("procedure_specification_1",1),3)),
2418(LCRenames,Reduce(("procedure_specification_1",1),3))]]@slrp'a258;
2419val slrp'a256=[[(LCRenames,Reduce(("subprogram_specification",1),1))]]@slrp'a257;
2420val slrp'a255=[[(LCRenames,Reduce(("subprogram_specification",0),1))]]@slrp'a256;
2421val slrp'a254=[[(LCEos,Reduce(("subprogram_declaration",1),2)),
2422(LCEnd,Reduce(("subprogram_declaration",1),2)),
2423(LCPrivate,Reduce(("subprogram_declaration",1),2)),
2424(LCAuxiliary,Reduce(("subprogram_declaration",1),2)),
2425(LCLChevron,Reduce(("subprogram_declaration",1),2)),
2426(LCAnnotation,Reduce(("subprogram_declaration",1),2)),
2427(LCSubType,Reduce(("subprogram_declaration",1),2)),
2428(LCPragma,Reduce(("subprogram_declaration",1),2)),
2429(LCFunction,Reduce(("subprogram_declaration",1),2)),
2430(LCPackage,Reduce(("subprogram_declaration",1),2)),
2431(LCType,Reduce(("subprogram_declaration",1),2)),
2432(LCIdentifier,Reduce(("subprogram_declaration",1),2)),
2433(LCFor,Reduce(("subprogram_declaration",1),2)),
2434(LCUse,Reduce(("subprogram_declaration",1),2)),
2435(LCProcedure,Reduce(("subprogram_declaration",1),2))]]@slrp'a255;
2436val slrp'a253=[[(LCEos,Reduce(("subprogram_declaration",0),2)),
2437(LCEnd,Reduce(("subprogram_declaration",0),2)),
2438(LCPrivate,Reduce(("subprogram_declaration",0),2)),
2439(LCAuxiliary,Reduce(("subprogram_declaration",0),2)),
2440(LCLChevron,Reduce(("subprogram_declaration",0),2)),
2441(LCAnnotation,Reduce(("subprogram_declaration",0),2)),
2442(LCSubType,Reduce(("subprogram_declaration",0),2)),
2443(LCPragma,Reduce(("subprogram_declaration",0),2)),
2444(LCFunction,Reduce(("subprogram_declaration",0),2)),
2445(LCPackage,Reduce(("subprogram_declaration",0),2)),
2446(LCType,Reduce(("subprogram_declaration",0),2)),
2447(LCIdentifier,Reduce(("subprogram_declaration",0),2)),
2448(LCFor,Reduce(("subprogram_declaration",0),2)),
2449(LCUse,Reduce(("subprogram_declaration",0),2)),
2450(LCProcedure,Reduce(("subprogram_declaration",0),2))]]@slrp'a254;
2451val slrp'a252=[[(LCEos,Reduce(("return_statement",1),3)),
2452(LCAnnotation,Reduce(("return_statement",1),3)),
2453(LCCon,Reduce(("return_statement",1),3)),
2454(LCLChevron,Reduce(("return_statement",1),3)),
2455(LCGrkGamma,Reduce(("return_statement",1),3)),
2456(LCGrkDelta,Reduce(("return_statement",1),3)),
2457(LCPragma,Reduce(("return_statement",1),3)),
2458(LCNull,Reduce(("return_statement",1),3)),
2459(LCExit,Reduce(("return_statement",1),3)),
2460(LCReturn,Reduce(("return_statement",1),3)),
2461(LCIf,Reduce(("return_statement",1),3)),
2462(LCCase,Reduce(("return_statement",1),3)),
2463(LCIdentifier,Reduce(("return_statement",1),3)),
2464(LCCharacterLiteral,Reduce(("return_statement",1),3)),
2465(LCTill,Reduce(("return_statement",1),3)),
2466(LCLoop,Reduce(("return_statement",1),3)),
2467(LCFor,Reduce(("return_statement",1),3)),
2468(LCWhile,Reduce(("return_statement",1),3)),
2469(LCElsIf,Reduce(("return_statement",1),3)),
2470(LCElse,Reduce(("return_statement",1),3)),
2471(LCEnd,Reduce(("return_statement",1),3)),
2472(LCWhen,Reduce(("return_statement",1),3))]]@slrp'a253;
2473val slrp'a251=[[(LCSemi,Shift 251)]]@slrp'a252;
2474val slrp'a250=[[(LCEos,Reduce(("return_statement",0),2)),
2475(LCAnnotation,Reduce(("return_statement",0),2)),
2476(LCCon,Reduce(("return_statement",0),2)),
2477(LCLChevron,Reduce(("return_statement",0),2)),
2478(LCGrkGamma,Reduce(("return_statement",0),2)),
2479(LCGrkDelta,Reduce(("return_statement",0),2)),
2480(LCPragma,Reduce(("return_statement",0),2)),
2481(LCNull,Reduce(("return_statement",0),2)),
2482(LCExit,Reduce(("return_statement",0),2)),
2483(LCReturn,Reduce(("return_statement",0),2)),
2484(LCIf,Reduce(("return_statement",0),2)),
2485(LCCase,Reduce(("return_statement",0),2)),
2486(LCIdentifier,Reduce(("return_statement",0),2)),
2487(LCCharacterLiteral,Reduce(("return_statement",0),2)),
2488(LCTill,Reduce(("return_statement",0),2)),
2489(LCLoop,Reduce(("return_statement",0),2)),
2490(LCFor,Reduce(("return_statement",0),2)),
2491(LCWhile,Reduce(("return_statement",0),2)),
2492(LCElsIf,Reduce(("return_statement",0),2)),
2493(LCElse,Reduce(("return_statement",0),2)),
2494(LCEnd,Reduce(("return_statement",0),2)),
2495(LCWhen,Reduce(("return_statement",0),2))]]@slrp'a251;
2496val slrp'a249=[[(LCEos,Reduce(("exit_statement",1),5)),
2497(LCAnnotation,Reduce(("exit_statement",1),5)),
2498(LCCon,Reduce(("exit_statement",1),5)),
2499(LCLChevron,Reduce(("exit_statement",1),5)),
2500(LCGrkGamma,Reduce(("exit_statement",1),5)),
2501(LCGrkDelta,Reduce(("exit_statement",1),5)),
2502(LCPragma,Reduce(("exit_statement",1),5)),
2503(LCNull,Reduce(("exit_statement",1),5)),(LCExit,Reduce(("exit_statement",1),5)),
2504(LCReturn,Reduce(("exit_statement",1),5)),(LCIf,Reduce(("exit_statement",1),5)),
2505(LCCase,Reduce(("exit_statement",1),5)),
2506(LCIdentifier,Reduce(("exit_statement",1),5)),
2507(LCCharacterLiteral,Reduce(("exit_statement",1),5)),
2508(LCTill,Reduce(("exit_statement",1),5)),(LCLoop,Reduce(("exit_statement",1),5)),
2509(LCFor,Reduce(("exit_statement",1),5)),(LCWhile,Reduce(("exit_statement",1),5)),
2510(LCElsIf,Reduce(("exit_statement",1),5)),(LCElse,Reduce(("exit_statement",1),5))
2511,(LCEnd,Reduce(("exit_statement",1),5)),(LCWhen,Reduce(("exit_statement",1),5))]]@slrp'a250;
2512val slrp'a248=[[(LCSemi,Shift 248)]]@slrp'a249;
2513val slrp'a247=[[(LCEos,Reduce(("exit_statement",0),3)),
2514(LCAnnotation,Reduce(("exit_statement",0),3)),
2515(LCCon,Reduce(("exit_statement",0),3)),
2516(LCLChevron,Reduce(("exit_statement",0),3)),
2517(LCGrkGamma,Reduce(("exit_statement",0),3)),
2518(LCGrkDelta,Reduce(("exit_statement",0),3)),
2519(LCPragma,Reduce(("exit_statement",0),3)),
2520(LCNull,Reduce(("exit_statement",0),3)),(LCExit,Reduce(("exit_statement",0),3)),
2521(LCReturn,Reduce(("exit_statement",0),3)),(LCIf,Reduce(("exit_statement",0),3)),
2522(LCCase,Reduce(("exit_statement",0),3)),
2523(LCIdentifier,Reduce(("exit_statement",0),3)),
2524(LCCharacterLiteral,Reduce(("exit_statement",0),3)),
2525(LCTill,Reduce(("exit_statement",0),3)),(LCLoop,Reduce(("exit_statement",0),3)),
2526(LCFor,Reduce(("exit_statement",0),3)),(LCWhile,Reduce(("exit_statement",0),3)),
2527(LCElsIf,Reduce(("exit_statement",0),3)),(LCElse,Reduce(("exit_statement",0),3))
2528,(LCEnd,Reduce(("exit_statement",0),3)),(LCWhen,Reduce(("exit_statement",0),3))]]@slrp'a248;
2529val slrp'a246=[[(LCEos,Reduce(("block_statement",1),6))]]@slrp'a247;
2530val slrp'a245=[[(LCSemi,Shift 245)]]@slrp'a246;
2531val slrp'a244=[[(LCEnd,Shift 503)]]@slrp'a245;
2532val slrp'a243=[[(LCEos,Reduce(("block_statement",0),8))]]@slrp'a244;
2533val slrp'a242=[[(LCSemi,Shift 242)]]@slrp'a243;
2534val slrp'a241=[[(LCEnd,Shift 502)]]@slrp'a242;
2535val slrp'a240=[[(LCBegin,Shift 681)]]@slrp'a241;
2536val slrp'a239=[[(LCBecomes,Reduce(("auxiliary_expression",0),3)),
2537(LCSemi,Reduce(("auxiliary_expression",0),3)),
2538(LCRRange,Reduce(("auxiliary_expression",0),3)),
2539(LCDigits,Reduce(("auxiliary_expression",0),3)),
2540(LCDelta,Reduce(("auxiliary_expression",0),3)),
2541(LCComma,Reduce(("auxiliary_expression",0),3)),
2542(LCCrd,Reduce(("auxiliary_expression",0),3)),
2543(LCAnd,Reduce(("auxiliary_expression",0),3)),
2544(LCOr,Reduce(("auxiliary_expression",0),3)),
2545(LCXor,Reduce(("auxiliary_expression",0),3)),
2546(LCGreaterEquals,Reduce(("auxiliary_expression",0),3)),
2547(LCGreaterThan,Reduce(("auxiliary_expression",0),3)),
2548(LCLessEquals,Reduce(("auxiliary_expression",0),3)),
2549(LCLessThan,Reduce(("auxiliary_expression",0),3)),
2550(LCNotEquals,Reduce(("auxiliary_expression",0),3)),
2551(LCEquals,Reduce(("auxiliary_expression",0),3)),
2552(LCIn,Reduce(("auxiliary_expression",0),3)),
2553(LCNot,Reduce(("auxiliary_expression",0),3)),
2554(LCDotDot,Reduce(("auxiliary_expression",0),3)),
2555(LCAmpersand,Reduce(("auxiliary_expression",0),3)),
2556(LCMinus,Reduce(("auxiliary_expression",0),3)),
2557(LCPlus,Reduce(("auxiliary_expression",0),3)),
2558(LCRem,Reduce(("auxiliary_expression",0),3)),
2559(LCMod,Reduce(("auxiliary_expression",0),3)),
2560(LCDiv,Reduce(("auxiliary_expression",0),3)),
2561(LCStar,Reduce(("auxiliary_expression",0),3)),
2562(LCStarStar,Reduce(("auxiliary_expression",0),3)),
2563(LCLoop,Reduce(("auxiliary_expression",0),3)),
2564(LCThen,Reduce(("auxiliary_expression",0),3)),
2565(LCIs,Reduce(("auxiliary_expression",0),3)),
2566(LCGoesTo,Reduce(("auxiliary_expression",0),3)),
2567(LCBar,Reduce(("auxiliary_expression",0),3)),
2568(LCTill,Reduce(("auxiliary_expression",0),3))]]@slrp'a240;
2569val slrp'a238=[[(LCRStrachey,Shift 238)]]@slrp'a239;
2570val slrp'a237=[[(LCZ,Shift 237)]]@slrp'a238;
2571val slrp'a236=[[(LCLoop,Reduce(("till_opt",1),2))]]@slrp'a237;
2572val slrp'a235=[[(LCTill,Reduce(("loop_parameter_specification",1),4)),
2573(LCLoop,Reduce(("loop_parameter_specification",1),4))]]@slrp'a236;
2574val slrp'a234=[[(LCTill,Reduce(("loop_parameter_specification",0),3)),
2575(LCLoop,Reduce(("loop_parameter_specification",0),3))]]@slrp'a235;
2576val slrp'a233=[[(LCTill,Reduce(("iteration_scheme",1),2)),
2577(LCLoop,Reduce(("iteration_scheme",1),2))]]@slrp'a234;
2578val slrp'a232=[[(LCTill,Reduce(("iteration_scheme",0),2)),
2579(LCLoop,Reduce(("iteration_scheme",0),2))]]@slrp'a233;
2580val slrp'a231=[[(LCTill,Reduce(("iteration_scheme_opt",1),1)),
2581(LCLoop,Reduce(("iteration_scheme_opt",1),1))]]@slrp'a232;
2582val slrp'a230=[[(LCSemi,Reduce(("name_opt",1),1)),
2583(LCWhen,Reduce(("name_opt",1),1))]]@slrp'a231;
2584val slrp'a229=[[(LCFor,Reduce(("name_colon_opt",1),2)),
2585(LCWhile,Reduce(("name_colon_opt",1),2)),(LCTill,Reduce(("name_colon_opt",1),2))
2586,(LCLoop,Reduce(("name_colon_opt",1),2)),
2587(LCDeclare,Reduce(("name_colon_opt",1),2)),
2588(LCBegin,Reduce(("name_colon_opt",1),2))]]@slrp'a230;
2589val slrp'a228=[[(LCIdentifier,Reduce(("loop_body",0),4)),
2590(LCSemi,Reduce(("loop_body",0),4))]]@slrp'a229;
2591val slrp'a227=[[(LCLoop,Shift 227)]]@slrp'a228;
2592val slrp'a226=[[(LCEnd,Shift 226)]]@slrp'a227;
2593val slrp'a225=[[(LCEos,Reduce(("loop_statement",0),6)),
2594(LCAnnotation,Reduce(("loop_statement",0),6)),
2595(LCCon,Reduce(("loop_statement",0),6)),
2596(LCLChevron,Reduce(("loop_statement",0),6)),
2597(LCGrkGamma,Reduce(("loop_statement",0),6)),
2598(LCGrkDelta,Reduce(("loop_statement",0),6)),
2599(LCPragma,Reduce(("loop_statement",0),6)),
2600(LCNull,Reduce(("loop_statement",0),6)),(LCExit,Reduce(("loop_statement",0),6)),
2601(LCReturn,Reduce(("loop_statement",0),6)),(LCIf,Reduce(("loop_statement",0),6)),
2602(LCCase,Reduce(("loop_statement",0),6)),
2603(LCIdentifier,Reduce(("loop_statement",0),6)),
2604(LCCharacterLiteral,Reduce(("loop_statement",0),6)),
2605(LCTill,Reduce(("loop_statement",0),6)),(LCLoop,Reduce(("loop_statement",0),6)),
2606(LCFor,Reduce(("loop_statement",0),6)),(LCWhile,Reduce(("loop_statement",0),6)),
2607(LCElsIf,Reduce(("loop_statement",0),6)),(LCElse,Reduce(("loop_statement",0),6))
2608,(LCEnd,Reduce(("loop_statement",0),6)),(LCWhen,Reduce(("loop_statement",0),6))]]@slrp'a226;
2609val slrp'a224=[[(LCSemi,Shift 224)]]@slrp'a225;
2610val slrp'a223=[[(LCEnd,Reduce(("others_part",1),4))]]@slrp'a224;
2611val slrp'a222=[[(LCGoesTo,Shift 679)]]@slrp'a223;
2612val slrp'a221=[[(LCGoesTo,Reduce(("case_choice",0),1)),
2613(LCBar,Reduce(("case_choice",0),1))]]@slrp'a222;
2614val slrp'a220=[[(LCGoesTo,Reduce(("case_choice_list",1),3))]]@slrp'a221;
2615val slrp'a219=[[(LCWhen,Reduce(("case_statement_alternative",0),4)),
2616(LCEnd,Reduce(("case_statement_alternative",0),4))]]@slrp'a220;
2617val slrp'a218=[[(LCGoesTo,Shift 678)]]@slrp'a219;
2618val slrp'a217=[[(LCWhen,Reduce(("case_statement_alternative_list",1),2)),
2619(LCEnd,Reduce(("case_statement_alternative_list",1),2))]]@slrp'a218;
2620val slrp'a216=[[(LCWhen,Reduce(("case_statement_alternative_list",0),1)),
2621(LCEnd,Reduce(("case_statement_alternative_list",0),1))]]@slrp'a217;
2622val slrp'a215=[[(LCEos,Reduce(("case_statement",0),8)),
2623(LCAnnotation,Reduce(("case_statement",0),8)),
2624(LCCon,Reduce(("case_statement",0),8)),
2625(LCLChevron,Reduce(("case_statement",0),8)),
2626(LCGrkGamma,Reduce(("case_statement",0),8)),
2627(LCGrkDelta,Reduce(("case_statement",0),8)),
2628(LCPragma,Reduce(("case_statement",0),8)),
2629(LCNull,Reduce(("case_statement",0),8)),(LCExit,Reduce(("case_statement",0),8)),
2630(LCReturn,Reduce(("case_statement",0),8)),(LCIf,Reduce(("case_statement",0),8)),
2631(LCCase,Reduce(("case_statement",0),8)),
2632(LCIdentifier,Reduce(("case_statement",0),8)),
2633(LCCharacterLiteral,Reduce(("case_statement",0),8)),
2634(LCTill,Reduce(("case_statement",0),8)),(LCLoop,Reduce(("case_statement",0),8)),
2635(LCFor,Reduce(("case_statement",0),8)),(LCWhile,Reduce(("case_statement",0),8)),
2636(LCElsIf,Reduce(("case_statement",0),8)),(LCElse,Reduce(("case_statement",0),8))
2637,(LCEnd,Reduce(("case_statement",0),8)),(LCWhen,Reduce(("case_statement",0),8))]]@slrp'a216;
2638val slrp'a214=[[(LCSemi,Shift 214)]]@slrp'a215;
2639val slrp'a213=[[(LCCase,Shift 213)]]@slrp'a214;
2640val slrp'a212=[[(LCEnd,Shift 212)]]@slrp'a213;
2641val slrp'a211=[[(LCIs,Shift 526)]]@slrp'a212;
2642val slrp'a210=[[(LCThen,Reduce(("condition",0),1)),
2643(LCTill,Reduce(("condition",0),1)),(LCLoop,Reduce(("condition",0),1)),
2644(LCSemi,Reduce(("condition",0),1))]]@slrp'a211;
2645val slrp'a209=[[(LCEnd,Reduce(("else_part",1),2))]]@slrp'a210;
2646val slrp'a208=[[(LCElse,Reduce(("elsif_part",1),5)),
2647(LCEnd,Reduce(("elsif_part",1),5))]]@slrp'a209;
2648val slrp'a207=[[(LCThen,Shift 676)]]@slrp'a208;
2649val slrp'a206=[[(LCEos,Reduce(("if_statement",0),9)),
2650(LCAnnotation,Reduce(("if_statement",0),9)),(LCCon,Reduce(("if_statement",0),9))
2651,(LCLChevron,Reduce(("if_statement",0),9)),
2652(LCGrkGamma,Reduce(("if_statement",0),9)),
2653(LCGrkDelta,Reduce(("if_statement",0),9)),
2654(LCPragma,Reduce(("if_statement",0),9)),(LCNull,Reduce(("if_statement",0),9)),
2655(LCExit,Reduce(("if_statement",0),9)),(LCReturn,Reduce(("if_statement",0),9)),
2656(LCIf,Reduce(("if_statement",0),9)),(LCCase,Reduce(("if_statement",0),9)),
2657(LCIdentifier,Reduce(("if_statement",0),9)),
2658(LCCharacterLiteral,Reduce(("if_statement",0),9)),
2659(LCTill,Reduce(("if_statement",0),9)),(LCLoop,Reduce(("if_statement",0),9)),
2660(LCFor,Reduce(("if_statement",0),9)),(LCWhile,Reduce(("if_statement",0),9)),
2661(LCElsIf,Reduce(("if_statement",0),9)),(LCElse,Reduce(("if_statement",0),9)),
2662(LCEnd,Reduce(("if_statement",0),9)),(LCWhen,Reduce(("if_statement",0),9))]]@slrp'a207;
2663val slrp'a205=[[(LCSemi,Shift 205)]]@slrp'a206;
2664val slrp'a204=[[(LCIf,Shift 204)]]@slrp'a205;
2665val slrp'a203=[[(LCEnd,Shift 203)]]@slrp'a204;
2666val slrp'a202=[[(LCThen,Shift 675)]]@slrp'a203;
2667val slrp'a201=[[(LCEos,Reduce(("assignment_statement",0),4)),
2668(LCAnnotation,Reduce(("assignment_statement",0),4)),
2669(LCCon,Reduce(("assignment_statement",0),4)),
2670(LCLChevron,Reduce(("assignment_statement",0),4)),
2671(LCGrkGamma,Reduce(("assignment_statement",0),4)),
2672(LCGrkDelta,Reduce(("assignment_statement",0),4)),
2673(LCPragma,Reduce(("assignment_statement",0),4)),
2674(LCNull,Reduce(("assignment_statement",0),4)),
2675(LCExit,Reduce(("assignment_statement",0),4)),
2676(LCReturn,Reduce(("assignment_statement",0),4)),
2677(LCIf,Reduce(("assignment_statement",0),4)),
2678(LCCase,Reduce(("assignment_statement",0),4)),
2679(LCIdentifier,Reduce(("assignment_statement",0),4)),
2680(LCCharacterLiteral,Reduce(("assignment_statement",0),4)),
2681(LCTill,Reduce(("assignment_statement",0),4)),
2682(LCLoop,Reduce(("assignment_statement",0),4)),
2683(LCFor,Reduce(("assignment_statement",0),4)),
2684(LCWhile,Reduce(("assignment_statement",0),4)),
2685(LCElsIf,Reduce(("assignment_statement",0),4)),
2686(LCElse,Reduce(("assignment_statement",0),4)),
2687(LCEnd,Reduce(("assignment_statement",0),4)),
2688(LCWhen,Reduce(("assignment_statement",0),4))]]@slrp'a202;
2689val slrp'a200=[[(LCSemi,Shift 200)]]@slrp'a201;
2690val slrp'a199=[[(LCEos,Reduce(("null_statement",0),2)),
2691(LCAnnotation,Reduce(("null_statement",0),2)),
2692(LCCon,Reduce(("null_statement",0),2)),
2693(LCLChevron,Reduce(("null_statement",0),2)),
2694(LCGrkGamma,Reduce(("null_statement",0),2)),
2695(LCGrkDelta,Reduce(("null_statement",0),2)),
2696(LCPragma,Reduce(("null_statement",0),2)),
2697(LCNull,Reduce(("null_statement",0),2)),(LCExit,Reduce(("null_statement",0),2)),
2698(LCReturn,Reduce(("null_statement",0),2)),(LCIf,Reduce(("null_statement",0),2)),
2699(LCCase,Reduce(("null_statement",0),2)),
2700(LCIdentifier,Reduce(("null_statement",0),2)),
2701(LCCharacterLiteral,Reduce(("null_statement",0),2)),
2702(LCTill,Reduce(("null_statement",0),2)),(LCLoop,Reduce(("null_statement",0),2)),
2703(LCFor,Reduce(("null_statement",0),2)),(LCWhile,Reduce(("null_statement",0),2)),
2704(LCElsIf,Reduce(("null_statement",0),2)),(LCElse,Reduce(("null_statement",0),2))
2705,(LCEnd,Reduce(("null_statement",0),2)),(LCWhen,Reduce(("null_statement",0),2))]]@slrp'a200;
2706val slrp'a198=[[(LCSemi,Shift 198)]]@slrp'a199;
2707val slrp'a197=[[(LCEos,Reduce(("compound_statement",2),1)),
2708(LCAnnotation,Reduce(("compound_statement",2),1)),
2709(LCCon,Reduce(("compound_statement",2),1)),
2710(LCLChevron,Reduce(("compound_statement",2),1)),
2711(LCGrkGamma,Reduce(("compound_statement",2),1)),
2712(LCGrkDelta,Reduce(("compound_statement",2),1)),
2713(LCPragma,Reduce(("compound_statement",2),1)),
2714(LCNull,Reduce(("compound_statement",2),1)),
2715(LCExit,Reduce(("compound_statement",2),1)),
2716(LCReturn,Reduce(("compound_statement",2),1)),
2717(LCIf,Reduce(("compound_statement",2),1)),
2718(LCCase,Reduce(("compound_statement",2),1)),
2719(LCIdentifier,Reduce(("compound_statement",2),1)),
2720(LCCharacterLiteral,Reduce(("compound_statement",2),1)),
2721(LCTill,Reduce(("compound_statement",2),1)),
2722(LCLoop,Reduce(("compound_statement",2),1)),
2723(LCFor,Reduce(("compound_statement",2),1)),
2724(LCWhile,Reduce(("compound_statement",2),1)),
2725(LCElsIf,Reduce(("compound_statement",2),1)),
2726(LCElse,Reduce(("compound_statement",2),1)),
2727(LCEnd,Reduce(("compound_statement",2),1)),
2728(LCWhen,Reduce(("compound_statement",2),1))]]@slrp'a198;
2729val slrp'a196=[[(LCEos,Reduce(("compound_statement",1),1)),
2730(LCAnnotation,Reduce(("compound_statement",1),1)),
2731(LCCon,Reduce(("compound_statement",1),1)),
2732(LCLChevron,Reduce(("compound_statement",1),1)),
2733(LCGrkGamma,Reduce(("compound_statement",1),1)),
2734(LCGrkDelta,Reduce(("compound_statement",1),1)),
2735(LCPragma,Reduce(("compound_statement",1),1)),
2736(LCNull,Reduce(("compound_statement",1),1)),
2737(LCExit,Reduce(("compound_statement",1),1)),
2738(LCReturn,Reduce(("compound_statement",1),1)),
2739(LCIf,Reduce(("compound_statement",1),1)),
2740(LCCase,Reduce(("compound_statement",1),1)),
2741(LCIdentifier,Reduce(("compound_statement",1),1)),
2742(LCCharacterLiteral,Reduce(("compound_statement",1),1)),
2743(LCTill,Reduce(("compound_statement",1),1)),
2744(LCLoop,Reduce(("compound_statement",1),1)),
2745(LCFor,Reduce(("compound_statement",1),1)),
2746(LCWhile,Reduce(("compound_statement",1),1)),
2747(LCElsIf,Reduce(("compound_statement",1),1)),
2748(LCElse,Reduce(("compound_statement",1),1)),
2749(LCEnd,Reduce(("compound_statement",1),1)),
2750(LCWhen,Reduce(("compound_statement",1),1))]]@slrp'a197;
2751val slrp'a195=[[(LCEos,Reduce(("compound_statement",0),1)),
2752(LCAnnotation,Reduce(("compound_statement",0),1)),
2753(LCCon,Reduce(("compound_statement",0),1)),
2754(LCLChevron,Reduce(("compound_statement",0),1)),
2755(LCGrkGamma,Reduce(("compound_statement",0),1)),
2756(LCGrkDelta,Reduce(("compound_statement",0),1)),
2757(LCPragma,Reduce(("compound_statement",0),1)),
2758(LCNull,Reduce(("compound_statement",0),1)),
2759(LCExit,Reduce(("compound_statement",0),1)),
2760(LCReturn,Reduce(("compound_statement",0),1)),
2761(LCIf,Reduce(("compound_statement",0),1)),
2762(LCCase,Reduce(("compound_statement",0),1)),
2763(LCIdentifier,Reduce(("compound_statement",0),1)),
2764(LCCharacterLiteral,Reduce(("compound_statement",0),1)),
2765(LCTill,Reduce(("compound_statement",0),1)),
2766(LCLoop,Reduce(("compound_statement",0),1)),
2767(LCFor,Reduce(("compound_statement",0),1)),
2768(LCWhile,Reduce(("compound_statement",0),1)),
2769(LCElsIf,Reduce(("compound_statement",0),1)),
2770(LCElse,Reduce(("compound_statement",0),1)),
2771(LCEnd,Reduce(("compound_statement",0),1)),
2772(LCWhen,Reduce(("compound_statement",0),1))]]@slrp'a196;
2773val slrp'a194=[[(LCEos,Reduce(("simple_statement",4),1)),
2774(LCAnnotation,Reduce(("simple_statement",4),1)),
2775(LCCon,Reduce(("simple_statement",4),1)),
2776(LCLChevron,Reduce(("simple_statement",4),1)),
2777(LCGrkGamma,Reduce(("simple_statement",4),1)),
2778(LCGrkDelta,Reduce(("simple_statement",4),1)),
2779(LCPragma,Reduce(("simple_statement",4),1)),
2780(LCNull,Reduce(("simple_statement",4),1)),
2781(LCExit,Reduce(("simple_statement",4),1)),
2782(LCReturn,Reduce(("simple_statement",4),1)),
2783(LCIf,Reduce(("simple_statement",4),1)),
2784(LCCase,Reduce(("simple_statement",4),1)),
2785(LCIdentifier,Reduce(("simple_statement",4),1)),
2786(LCCharacterLiteral,Reduce(("simple_statement",4),1)),
2787(LCTill,Reduce(("simple_statement",4),1)),
2788(LCLoop,Reduce(("simple_statement",4),1)),
2789(LCFor,Reduce(("simple_statement",4),1)),
2790(LCWhile,Reduce(("simple_statement",4),1)),
2791(LCElsIf,Reduce(("simple_statement",4),1)),
2792(LCElse,Reduce(("simple_statement",4),1)),
2793(LCEnd,Reduce(("simple_statement",4),1)),
2794(LCWhen,Reduce(("simple_statement",4),1))]]@slrp'a195;
2795val slrp'a193=[[(LCEos,Reduce(("simple_statement",3),1)),
2796(LCAnnotation,Reduce(("simple_statement",3),1)),
2797(LCCon,Reduce(("simple_statement",3),1)),
2798(LCLChevron,Reduce(("simple_statement",3),1)),
2799(LCGrkGamma,Reduce(("simple_statement",3),1)),
2800(LCGrkDelta,Reduce(("simple_statement",3),1)),
2801(LCPragma,Reduce(("simple_statement",3),1)),
2802(LCNull,Reduce(("simple_statement",3),1)),
2803(LCExit,Reduce(("simple_statement",3),1)),
2804(LCReturn,Reduce(("simple_statement",3),1)),
2805(LCIf,Reduce(("simple_statement",3),1)),
2806(LCCase,Reduce(("simple_statement",3),1)),
2807(LCIdentifier,Reduce(("simple_statement",3),1)),
2808(LCCharacterLiteral,Reduce(("simple_statement",3),1)),
2809(LCTill,Reduce(("simple_statement",3),1)),
2810(LCLoop,Reduce(("simple_statement",3),1)),
2811(LCFor,Reduce(("simple_statement",3),1)),
2812(LCWhile,Reduce(("simple_statement",3),1)),
2813(LCElsIf,Reduce(("simple_statement",3),1)),
2814(LCElse,Reduce(("simple_statement",3),1)),
2815(LCEnd,Reduce(("simple_statement",3),1)),
2816(LCWhen,Reduce(("simple_statement",3),1))]]@slrp'a194;
2817val slrp'a192=[[(LCEos,Reduce(("simple_statement",2),1)),
2818(LCAnnotation,Reduce(("simple_statement",2),1)),
2819(LCCon,Reduce(("simple_statement",2),1)),
2820(LCLChevron,Reduce(("simple_statement",2),1)),
2821(LCGrkGamma,Reduce(("simple_statement",2),1)),
2822(LCGrkDelta,Reduce(("simple_statement",2),1)),
2823(LCPragma,Reduce(("simple_statement",2),1)),
2824(LCNull,Reduce(("simple_statement",2),1)),
2825(LCExit,Reduce(("simple_statement",2),1)),
2826(LCReturn,Reduce(("simple_statement",2),1)),
2827(LCIf,Reduce(("simple_statement",2),1)),
2828(LCCase,Reduce(("simple_statement",2),1)),
2829(LCIdentifier,Reduce(("simple_statement",2),1)),
2830(LCCharacterLiteral,Reduce(("simple_statement",2),1)),
2831(LCTill,Reduce(("simple_statement",2),1)),
2832(LCLoop,Reduce(("simple_statement",2),1)),
2833(LCFor,Reduce(("simple_statement",2),1)),
2834(LCWhile,Reduce(("simple_statement",2),1)),
2835(LCElsIf,Reduce(("simple_statement",2),1)),
2836(LCElse,Reduce(("simple_statement",2),1)),
2837(LCEnd,Reduce(("simple_statement",2),1)),
2838(LCWhen,Reduce(("simple_statement",2),1))]]@slrp'a193;
2839val slrp'a191=[[(LCEos,Reduce(("simple_statement",1),1)),
2840(LCAnnotation,Reduce(("simple_statement",1),1)),
2841(LCCon,Reduce(("simple_statement",1),1)),
2842(LCLChevron,Reduce(("simple_statement",1),1)),
2843(LCGrkGamma,Reduce(("simple_statement",1),1)),
2844(LCGrkDelta,Reduce(("simple_statement",1),1)),
2845(LCPragma,Reduce(("simple_statement",1),1)),
2846(LCNull,Reduce(("simple_statement",1),1)),
2847(LCExit,Reduce(("simple_statement",1),1)),
2848(LCReturn,Reduce(("simple_statement",1),1)),
2849(LCIf,Reduce(("simple_statement",1),1)),
2850(LCCase,Reduce(("simple_statement",1),1)),
2851(LCIdentifier,Reduce(("simple_statement",1),1)),
2852(LCCharacterLiteral,Reduce(("simple_statement",1),1)),
2853(LCTill,Reduce(("simple_statement",1),1)),
2854(LCLoop,Reduce(("simple_statement",1),1)),
2855(LCFor,Reduce(("simple_statement",1),1)),
2856(LCWhile,Reduce(("simple_statement",1),1)),
2857(LCElsIf,Reduce(("simple_statement",1),1)),
2858(LCElse,Reduce(("simple_statement",1),1)),
2859(LCEnd,Reduce(("simple_statement",1),1)),
2860(LCWhen,Reduce(("simple_statement",1),1))]]@slrp'a192;
2861val slrp'a190=[[(LCEos,Reduce(("simple_statement",0),1)),
2862(LCAnnotation,Reduce(("simple_statement",0),1)),
2863(LCCon,Reduce(("simple_statement",0),1)),
2864(LCLChevron,Reduce(("simple_statement",0),1)),
2865(LCGrkGamma,Reduce(("simple_statement",0),1)),
2866(LCGrkDelta,Reduce(("simple_statement",0),1)),
2867(LCPragma,Reduce(("simple_statement",0),1)),
2868(LCNull,Reduce(("simple_statement",0),1)),
2869(LCExit,Reduce(("simple_statement",0),1)),
2870(LCReturn,Reduce(("simple_statement",0),1)),
2871(LCIf,Reduce(("simple_statement",0),1)),
2872(LCCase,Reduce(("simple_statement",0),1)),
2873(LCIdentifier,Reduce(("simple_statement",0),1)),
2874(LCCharacterLiteral,Reduce(("simple_statement",0),1)),
2875(LCTill,Reduce(("simple_statement",0),1)),
2876(LCLoop,Reduce(("simple_statement",0),1)),
2877(LCFor,Reduce(("simple_statement",0),1)),
2878(LCWhile,Reduce(("simple_statement",0),1)),
2879(LCElsIf,Reduce(("simple_statement",0),1)),
2880(LCElse,Reduce(("simple_statement",0),1)),
2881(LCEnd,Reduce(("simple_statement",0),1)),
2882(LCWhen,Reduce(("simple_statement",0),1))]]@slrp'a191;
2883val slrp'a189=[[(LCEos,Reduce(("k_slot",1),4)),
2884(LCLChevron,Reduce(("k_slot",1),4)),(LCFunction,Reduce(("k_slot",1),4)),
2885(LCPackage,Reduce(("k_slot",1),4)),(LCIdentifier,Reduce(("k_slot",1),4)),
2886(LCAnnotation,Reduce(("k_slot",1),4)),(LCSubType,Reduce(("k_slot",1),4)),
2887(LCPragma,Reduce(("k_slot",1),4)),(LCProcedure,Reduce(("k_slot",1),4)),
2888(LCType,Reduce(("k_slot",1),4)),(LCFor,Reduce(("k_slot",1),4)),
2889(LCUse,Reduce(("k_slot",1),4)),(LCCon,Reduce(("k_slot",1),4)),
2890(LCGrkGamma,Reduce(("k_slot",1),4)),(LCGrkDelta,Reduce(("k_slot",1),4)),
2891(LCNull,Reduce(("k_slot",1),4)),(LCExit,Reduce(("k_slot",1),4)),
2892(LCReturn,Reduce(("k_slot",1),4)),(LCIf,Reduce(("k_slot",1),4)),
2893(LCCase,Reduce(("k_slot",1),4)),(LCCharacterLiteral,Reduce(("k_slot",1),4)),
2894(LCTill,Reduce(("k_slot",1),4)),(LCLoop,Reduce(("k_slot",1),4)),
2895(LCWhile,Reduce(("k_slot",1),4)),(LCSemi,Reduce(("k_slot",1),4)),
2896(LCEnd,Reduce(("k_slot",1),4)),(LCPrivate,Reduce(("k_slot",1),4)),
2897(LCAuxiliary,Reduce(("k_slot",1),4)),(LCBegin,Reduce(("k_slot",1),4)),
2898(LCElsIf,Reduce(("k_slot",1),4)),(LCElse,Reduce(("k_slot",1),4)),
2899(LCWhen,Reduce(("k_slot",1),4)),(LCIs,Reduce(("k_slot",1),4)),
2900(LCRenames,Reduce(("k_slot",1),4)),(LCSeparate,Reduce(("k_slot",1),4))]]@slrp'a190;
2901val slrp'a188=[[(LCEos,Reduce(("label",1),3)),
2902(LCAnnotation,Reduce(("label",1),3)),(LCCon,Reduce(("label",1),3)),
2903(LCLChevron,Reduce(("label",1),3)),(LCGrkGamma,Reduce(("label",1),3)),
2904(LCGrkDelta,Reduce(("label",1),3)),(LCPragma,Reduce(("label",1),3)),
2905(LCNull,Reduce(("label",1),3)),(LCExit,Reduce(("label",1),3)),
2906(LCReturn,Reduce(("label",1),3)),(LCIf,Reduce(("label",1),3)),
2907(LCCase,Reduce(("label",1),3)),(LCIdentifier,Reduce(("label",1),3)),
2908(LCCharacterLiteral,Reduce(("label",1),3)),(LCTill,Reduce(("label",1),3)),
2909(LCLoop,Reduce(("label",1),3)),(LCFor,Reduce(("label",1),3)),
2910(LCWhile,Reduce(("label",1),3)),(LCFunction,Reduce(("label",1),3)),
2911(LCPackage,Reduce(("label",1),3)),(LCSubType,Reduce(("label",1),3)),
2912(LCProcedure,Reduce(("label",1),3)),(LCType,Reduce(("label",1),3)),
2913(LCUse,Reduce(("label",1),3)),(LCElsIf,Reduce(("label",1),3)),
2914(LCElse,Reduce(("label",1),3)),(LCEnd,Reduce(("label",1),3)),
2915(LCWhen,Reduce(("label",1),3)),(LCSemi,Reduce(("label",1),3)),
2916(LCPrivate,Reduce(("label",1),3)),(LCAuxiliary,Reduce(("label",1),3)),
2917(LCBegin,Reduce(("label",1),3)),(LCIs,Reduce(("label",1),3)),
2918(LCRenames,Reduce(("label",1),3)),(LCSeparate,Reduce(("label",1),3))]]@slrp'a189;
2919val slrp'a187=[[(LCEos,Reduce(("label",0),3)),
2920(LCAnnotation,Reduce(("label",0),3)),(LCCon,Reduce(("label",0),3)),
2921(LCLChevron,Reduce(("label",0),3)),(LCGrkGamma,Reduce(("label",0),3)),
2922(LCGrkDelta,Reduce(("label",0),3)),(LCPragma,Reduce(("label",0),3)),
2923(LCNull,Reduce(("label",0),3)),(LCExit,Reduce(("label",0),3)),
2924(LCReturn,Reduce(("label",0),3)),(LCIf,Reduce(("label",0),3)),
2925(LCCase,Reduce(("label",0),3)),(LCIdentifier,Reduce(("label",0),3)),
2926(LCCharacterLiteral,Reduce(("label",0),3)),(LCTill,Reduce(("label",0),3)),
2927(LCLoop,Reduce(("label",0),3)),(LCFor,Reduce(("label",0),3)),
2928(LCWhile,Reduce(("label",0),3)),(LCFunction,Reduce(("label",0),3)),
2929(LCPackage,Reduce(("label",0),3)),(LCSubType,Reduce(("label",0),3)),
2930(LCProcedure,Reduce(("label",0),3)),(LCType,Reduce(("label",0),3)),
2931(LCUse,Reduce(("label",0),3)),(LCElsIf,Reduce(("label",0),3)),
2932(LCElse,Reduce(("label",0),3)),(LCEnd,Reduce(("label",0),3)),
2933(LCWhen,Reduce(("label",0),3)),(LCSemi,Reduce(("label",0),3)),
2934(LCPrivate,Reduce(("label",0),3)),(LCAuxiliary,Reduce(("label",0),3)),
2935(LCBegin,Reduce(("label",0),3)),(LCIs,Reduce(("label",0),3)),
2936(LCRenames,Reduce(("label",0),3)),(LCSeparate,Reduce(("label",0),3))]]@slrp'a188;
2937val slrp'a186=[[(LCCrd,Shift 186)]]@slrp'a187;
2938val slrp'a185=[[(LCEos,Reduce(("specification_statement",4),4)),
2939(LCAnnotation,Reduce(("specification_statement",4),4)),
2940(LCCon,Reduce(("specification_statement",4),4)),
2941(LCLChevron,Reduce(("specification_statement",4),4)),
2942(LCGrkGamma,Reduce(("specification_statement",4),4)),
2943(LCGrkDelta,Reduce(("specification_statement",4),4)),
2944(LCPragma,Reduce(("specification_statement",4),4)),
2945(LCNull,Reduce(("specification_statement",4),4)),
2946(LCExit,Reduce(("specification_statement",4),4)),
2947(LCReturn,Reduce(("specification_statement",4),4)),
2948(LCIf,Reduce(("specification_statement",4),4)),
2949(LCCase,Reduce(("specification_statement",4),4)),
2950(LCIdentifier,Reduce(("specification_statement",4),4)),
2951(LCCharacterLiteral,Reduce(("specification_statement",4),4)),
2952(LCTill,Reduce(("specification_statement",4),4)),
2953(LCLoop,Reduce(("specification_statement",4),4)),
2954(LCFor,Reduce(("specification_statement",4),4)),
2955(LCWhile,Reduce(("specification_statement",4),4)),
2956(LCOrd,Reduce(("specification_statement",4),4)),
2957(LCElsIf,Reduce(("specification_statement",4),4)),
2958(LCElse,Reduce(("specification_statement",4),4)),
2959(LCEnd,Reduce(("specification_statement",4),4)),
2960(LCWhen,Reduce(("specification_statement",4),4)),
2961(LCSemi,Reduce(("specification_statement",4),4)),
2962(LCIs,Reduce(("specification_statement",4),4)),
2963(LCRenames,Reduce(("specification_statement",4),4))]]@slrp'a186;
2964val slrp'a184=[[(LCRBrace,Shift 184)]]@slrp'a185;
2965val slrp'a183=[[(LCZ,Shift 183)]]@slrp'a184;
2966val slrp'a182=[[(LCLBrace,Shift 182)]]@slrp'a183;
2967val slrp'a181=[[(LCEos,Reduce(("specification_statement",3),4)),
2968(LCAnnotation,Reduce(("specification_statement",3),4)),
2969(LCCon,Reduce(("specification_statement",3),4)),
2970(LCLChevron,Reduce(("specification_statement",3),4)),
2971(LCGrkGamma,Reduce(("specification_statement",3),4)),
2972(LCGrkDelta,Reduce(("specification_statement",3),4)),
2973(LCPragma,Reduce(("specification_statement",3),4)),
2974(LCNull,Reduce(("specification_statement",3),4)),
2975(LCExit,Reduce(("specification_statement",3),4)),
2976(LCReturn,Reduce(("specification_statement",3),4)),
2977(LCIf,Reduce(("specification_statement",3),4)),
2978(LCCase,Reduce(("specification_statement",3),4)),
2979(LCIdentifier,Reduce(("specification_statement",3),4)),
2980(LCCharacterLiteral,Reduce(("specification_statement",3),4)),
2981(LCTill,Reduce(("specification_statement",3),4)),
2982(LCLoop,Reduce(("specification_statement",3),4)),
2983(LCFor,Reduce(("specification_statement",3),4)),
2984(LCWhile,Reduce(("specification_statement",3),4)),
2985(LCOrd,Reduce(("specification_statement",3),4)),
2986(LCElsIf,Reduce(("specification_statement",3),4)),
2987(LCElse,Reduce(("specification_statement",3),4)),
2988(LCEnd,Reduce(("specification_statement",3),4)),
2989(LCWhen,Reduce(("specification_statement",3),4)),
2990(LCSemi,Reduce(("specification_statement",3),4)),
2991(LCIs,Reduce(("specification_statement",3),4)),
2992(LCRenames,Reduce(("specification_statement",3),4))]]@slrp'a182;
2993val slrp'a180=[[(LCRBrace,Shift 180)]]@slrp'a181;
2994val slrp'a179=[[(LCZ,Shift 179)]]@slrp'a180;
2995val slrp'a178=[[(LCEos,Reduce(("specification_statement",2),4)),
2996(LCAnnotation,Reduce(("specification_statement",2),4)),
2997(LCCon,Reduce(("specification_statement",2),4)),
2998(LCLChevron,Reduce(("specification_statement",2),4)),
2999(LCGrkGamma,Reduce(("specification_statement",2),4)),
3000(LCGrkDelta,Reduce(("specification_statement",2),4)),
3001(LCPragma,Reduce(("specification_statement",2),4)),
3002(LCNull,Reduce(("specification_statement",2),4)),
3003(LCExit,Reduce(("specification_statement",2),4)),
3004(LCReturn,Reduce(("specification_statement",2),4)),
3005(LCIf,Reduce(("specification_statement",2),4)),
3006(LCCase,Reduce(("specification_statement",2),4)),
3007(LCIdentifier,Reduce(("specification_statement",2),4)),
3008(LCCharacterLiteral,Reduce(("specification_statement",2),4)),
3009(LCTill,Reduce(("specification_statement",2),4)),
3010(LCLoop,Reduce(("specification_statement",2),4)),
3011(LCFor,Reduce(("specification_statement",2),4)),
3012(LCWhile,Reduce(("specification_statement",2),4)),
3013(LCOrd,Reduce(("specification_statement",2),4)),
3014(LCElsIf,Reduce(("specification_statement",2),4)),
3015(LCElse,Reduce(("specification_statement",2),4)),
3016(LCEnd,Reduce(("specification_statement",2),4)),
3017(LCWhen,Reduce(("specification_statement",2),4)),
3018(LCSemi,Reduce(("specification_statement",2),4)),
3019(LCIs,Reduce(("specification_statement",2),4)),
3020(LCRenames,Reduce(("specification_statement",2),4))]]@slrp'a179;
3021val slrp'a177=[[(LCRSqBrack,Shift 177)]]@slrp'a178;
3022val slrp'a176=[[(LCZ,Shift 176)]]@slrp'a177;
3023val slrp'a175=[[(LCEos,Reduce(("specification_statement",1),5)),
3024(LCAnnotation,Reduce(("specification_statement",1),5)),
3025(LCCon,Reduce(("specification_statement",1),5)),
3026(LCLChevron,Reduce(("specification_statement",1),5)),
3027(LCGrkGamma,Reduce(("specification_statement",1),5)),
3028(LCGrkDelta,Reduce(("specification_statement",1),5)),
3029(LCPragma,Reduce(("specification_statement",1),5)),
3030(LCNull,Reduce(("specification_statement",1),5)),
3031(LCExit,Reduce(("specification_statement",1),5)),
3032(LCReturn,Reduce(("specification_statement",1),5)),
3033(LCIf,Reduce(("specification_statement",1),5)),
3034(LCCase,Reduce(("specification_statement",1),5)),
3035(LCIdentifier,Reduce(("specification_statement",1),5)),
3036(LCCharacterLiteral,Reduce(("specification_statement",1),5)),
3037(LCTill,Reduce(("specification_statement",1),5)),
3038(LCLoop,Reduce(("specification_statement",1),5)),
3039(LCFor,Reduce(("specification_statement",1),5)),
3040(LCWhile,Reduce(("specification_statement",1),5)),
3041(LCOrd,Reduce(("specification_statement",1),5)),
3042(LCElsIf,Reduce(("specification_statement",1),5)),
3043(LCElse,Reduce(("specification_statement",1),5)),
3044(LCEnd,Reduce(("specification_statement",1),5)),
3045(LCWhen,Reduce(("specification_statement",1),5)),
3046(LCSemi,Reduce(("specification_statement",1),5)),
3047(LCIs,Reduce(("specification_statement",1),5)),
3048(LCRenames,Reduce(("specification_statement",1),5))]]@slrp'a176;
3049val slrp'a174=[[(LCRBrace,Shift 174)]]@slrp'a175;
3050val slrp'a173=[[(LCZ,Shift 173)]]@slrp'a174;
3051val slrp'a172=[[(LCEos,Reduce(("specification_statement",0),5)),
3052(LCAnnotation,Reduce(("specification_statement",0),5)),
3053(LCCon,Reduce(("specification_statement",0),5)),
3054(LCLChevron,Reduce(("specification_statement",0),5)),
3055(LCGrkGamma,Reduce(("specification_statement",0),5)),
3056(LCGrkDelta,Reduce(("specification_statement",0),5)),
3057(LCPragma,Reduce(("specification_statement",0),5)),
3058(LCNull,Reduce(("specification_statement",0),5)),
3059(LCExit,Reduce(("specification_statement",0),5)),
3060(LCReturn,Reduce(("specification_statement",0),5)),
3061(LCIf,Reduce(("specification_statement",0),5)),
3062(LCCase,Reduce(("specification_statement",0),5)),
3063(LCIdentifier,Reduce(("specification_statement",0),5)),
3064(LCCharacterLiteral,Reduce(("specification_statement",0),5)),
3065(LCTill,Reduce(("specification_statement",0),5)),
3066(LCLoop,Reduce(("specification_statement",0),5)),
3067(LCFor,Reduce(("specification_statement",0),5)),
3068(LCWhile,Reduce(("specification_statement",0),5)),
3069(LCOrd,Reduce(("specification_statement",0),5)),
3070(LCElsIf,Reduce(("specification_statement",0),5)),
3071(LCElse,Reduce(("specification_statement",0),5)),
3072(LCEnd,Reduce(("specification_statement",0),5)),
3073(LCWhen,Reduce(("specification_statement",0),5)),
3074(LCSemi,Reduce(("specification_statement",0),5)),
3075(LCIs,Reduce(("specification_statement",0),5)),
3076(LCRenames,Reduce(("specification_statement",0),5))]]@slrp'a173;
3077val slrp'a171=[[(LCRSqBrack,Shift 171)]]@slrp'a172;
3078val slrp'a170=[[(LCZ,Shift 170)]]@slrp'a171;
3079val slrp'a169=[[(LCEos,Reduce(("statement",8),1)),
3080(LCAnnotation,Reduce(("statement",8),1)),(LCCon,Reduce(("statement",8),1)),
3081(LCLChevron,Reduce(("statement",8),1)),(LCGrkGamma,Reduce(("statement",8),1)),
3082(LCGrkDelta,Reduce(("statement",8),1)),(LCPragma,Reduce(("statement",8),1)),
3083(LCNull,Reduce(("statement",8),1)),(LCExit,Reduce(("statement",8),1)),
3084(LCReturn,Reduce(("statement",8),1)),(LCIf,Reduce(("statement",8),1)),
3085(LCCase,Reduce(("statement",8),1)),(LCIdentifier,Reduce(("statement",8),1)),
3086(LCCharacterLiteral,Reduce(("statement",8),1)),
3087(LCTill,Reduce(("statement",8),1)),(LCLoop,Reduce(("statement",8),1)),
3088(LCFor,Reduce(("statement",8),1)),(LCWhile,Reduce(("statement",8),1)),
3089(LCElsIf,Reduce(("statement",8),1)),(LCElse,Reduce(("statement",8),1)),
3090(LCEnd,Reduce(("statement",8),1)),(LCWhen,Reduce(("statement",8),1))]]@slrp'a170;
3091val slrp'a168=[[(LCEos,Reduce(("statement",7),1)),
3092(LCAnnotation,Reduce(("statement",7),1)),(LCCon,Reduce(("statement",7),1)),
3093(LCLChevron,Reduce(("statement",7),1)),(LCGrkGamma,Reduce(("statement",7),1)),
3094(LCGrkDelta,Reduce(("statement",7),1)),(LCPragma,Reduce(("statement",7),1)),
3095(LCNull,Reduce(("statement",7),1)),(LCExit,Reduce(("statement",7),1)),
3096(LCReturn,Reduce(("statement",7),1)),(LCIf,Reduce(("statement",7),1)),
3097(LCCase,Reduce(("statement",7),1)),(LCIdentifier,Reduce(("statement",7),1)),
3098(LCCharacterLiteral,Reduce(("statement",7),1)),
3099(LCTill,Reduce(("statement",7),1)),(LCLoop,Reduce(("statement",7),1)),
3100(LCFor,Reduce(("statement",7),1)),(LCWhile,Reduce(("statement",7),1)),
3101(LCElsIf,Reduce(("statement",7),1)),(LCElse,Reduce(("statement",7),1)),
3102(LCEnd,Reduce(("statement",7),1)),(LCWhen,Reduce(("statement",7),1))]]@slrp'a169;
3103val slrp'a167=[[(LCEos,Reduce(("statement",6),1)),
3104(LCAnnotation,Reduce(("statement",6),1)),(LCCon,Reduce(("statement",6),1)),
3105(LCLChevron,Reduce(("statement",6),1)),(LCGrkGamma,Reduce(("statement",6),1)),
3106(LCGrkDelta,Reduce(("statement",6),1)),(LCPragma,Reduce(("statement",6),1)),
3107(LCNull,Reduce(("statement",6),1)),(LCExit,Reduce(("statement",6),1)),
3108(LCReturn,Reduce(("statement",6),1)),(LCIf,Reduce(("statement",6),1)),
3109(LCCase,Reduce(("statement",6),1)),(LCIdentifier,Reduce(("statement",6),1)),
3110(LCCharacterLiteral,Reduce(("statement",6),1)),
3111(LCTill,Reduce(("statement",6),1)),(LCLoop,Reduce(("statement",6),1)),
3112(LCFor,Reduce(("statement",6),1)),(LCWhile,Reduce(("statement",6),1)),
3113(LCElsIf,Reduce(("statement",6),1)),(LCElse,Reduce(("statement",6),1)),
3114(LCEnd,Reduce(("statement",6),1)),(LCWhen,Reduce(("statement",6),1))]]@slrp'a168;
3115val slrp'a166=[[(LCEos,Reduce(("statement",5),1)),
3116(LCAnnotation,Reduce(("statement",5),1)),(LCCon,Reduce(("statement",5),1)),
3117(LCLChevron,Reduce(("statement",5),1)),(LCGrkGamma,Reduce(("statement",5),1)),
3118(LCGrkDelta,Reduce(("statement",5),1)),(LCPragma,Reduce(("statement",5),1)),
3119(LCNull,Reduce(("statement",5),1)),(LCExit,Reduce(("statement",5),1)),
3120(LCReturn,Reduce(("statement",5),1)),(LCIf,Reduce(("statement",5),1)),
3121(LCCase,Reduce(("statement",5),1)),(LCIdentifier,Reduce(("statement",5),1)),
3122(LCCharacterLiteral,Reduce(("statement",5),1)),
3123(LCTill,Reduce(("statement",5),1)),(LCLoop,Reduce(("statement",5),1)),
3124(LCFor,Reduce(("statement",5),1)),(LCWhile,Reduce(("statement",5),1)),
3125(LCElsIf,Reduce(("statement",5),1)),(LCElse,Reduce(("statement",5),1)),
3126(LCEnd,Reduce(("statement",5),1)),(LCWhen,Reduce(("statement",5),1))]]@slrp'a167;
3127val slrp'a165=[[(LCEos,Reduce(("statement",4),5)),
3128(LCAnnotation,Reduce(("statement",4),5)),(LCCon,Reduce(("statement",4),5)),
3129(LCLChevron,Reduce(("statement",4),5)),(LCGrkGamma,Reduce(("statement",4),5)),
3130(LCGrkDelta,Reduce(("statement",4),5)),(LCPragma,Reduce(("statement",4),5)),
3131(LCNull,Reduce(("statement",4),5)),(LCExit,Reduce(("statement",4),5)),
3132(LCReturn,Reduce(("statement",4),5)),(LCIf,Reduce(("statement",4),5)),
3133(LCCase,Reduce(("statement",4),5)),(LCIdentifier,Reduce(("statement",4),5)),
3134(LCCharacterLiteral,Reduce(("statement",4),5)),
3135(LCTill,Reduce(("statement",4),5)),(LCLoop,Reduce(("statement",4),5)),
3136(LCFor,Reduce(("statement",4),5)),(LCWhile,Reduce(("statement",4),5)),
3137(LCElsIf,Reduce(("statement",4),5)),(LCElse,Reduce(("statement",4),5)),
3138(LCEnd,Reduce(("statement",4),5)),(LCWhen,Reduce(("statement",4),5))]]@slrp'a166;
3139val slrp'a164=[[(LCEos,Reduce(("statement",2),2)),
3140(LCAnnotation,Reduce(("statement",2),2)),(LCCon,Reduce(("statement",2),2)),
3141(LCLChevron,Reduce(("statement",2),2)),(LCGrkGamma,Reduce(("statement",2),2)),
3142(LCGrkDelta,Reduce(("statement",2),2)),(LCPragma,Reduce(("statement",2),2)),
3143(LCNull,Reduce(("statement",2),2)),(LCExit,Reduce(("statement",2),2)),
3144(LCReturn,Reduce(("statement",2),2)),(LCIf,Reduce(("statement",2),2)),
3145(LCCase,Reduce(("statement",2),2)),(LCIdentifier,Reduce(("statement",2),2)),
3146(LCCharacterLiteral,Reduce(("statement",2),2)),
3147(LCTill,Reduce(("statement",2),2)),(LCLoop,Reduce(("statement",2),2)),
3148(LCFor,Reduce(("statement",2),2)),(LCWhile,Reduce(("statement",2),2)),
3149(LCElsIf,Reduce(("statement",2),2)),(LCElse,Reduce(("statement",2),2)),
3150(LCEnd,Reduce(("statement",2),2)),(LCWhen,Reduce(("statement",2),2))]]@slrp'a165;
3151val slrp'a163=[[(LCEos,Reduce(("statement",0),1)),
3152(LCAnnotation,Reduce(("statement",0),1)),(LCCon,Reduce(("statement",0),1)),
3153(LCLChevron,Reduce(("statement",0),1)),(LCGrkGamma,Reduce(("statement",0),1)),
3154(LCGrkDelta,Reduce(("statement",0),1)),(LCPragma,Reduce(("statement",0),1)),
3155(LCNull,Reduce(("statement",0),1)),(LCExit,Reduce(("statement",0),1)),
3156(LCReturn,Reduce(("statement",0),1)),(LCIf,Reduce(("statement",0),1)),
3157(LCCase,Reduce(("statement",0),1)),(LCIdentifier,Reduce(("statement",0),1)),
3158(LCCharacterLiteral,Reduce(("statement",0),1)),
3159(LCTill,Reduce(("statement",0),1)),(LCLoop,Reduce(("statement",0),1)),
3160(LCFor,Reduce(("statement",0),1)),(LCWhile,Reduce(("statement",0),1)),
3161(LCElsIf,Reduce(("statement",0),1)),(LCElse,Reduce(("statement",0),1)),
3162(LCEnd,Reduce(("statement",0),1)),(LCWhen,Reduce(("statement",0),1))]]@slrp'a164;
3163val slrp'a162=[[(LCEos,Reduce(("sequence_of_statements",1),2)),
3164(LCElsIf,Reduce(("sequence_of_statements",1),2)),
3165(LCElse,Reduce(("sequence_of_statements",1),2)),
3166(LCEnd,Reduce(("sequence_of_statements",1),2)),
3167(LCWhen,Reduce(("sequence_of_statements",1),2))]]@slrp'a163;
3168val slrp'a161=[[(LCBecomes,Reduce(("qualified_expression",0),3)),
3169(LCSemi,Reduce(("qualified_expression",0),3)),
3170(LCRRange,Reduce(("qualified_expression",0),3)),
3171(LCDigits,Reduce(("qualified_expression",0),3)),
3172(LCDelta,Reduce(("qualified_expression",0),3)),
3173(LCComma,Reduce(("qualified_expression",0),3)),
3174(LCCrd,Reduce(("qualified_expression",0),3)),
3175(LCAnd,Reduce(("qualified_expression",0),3)),
3176(LCOr,Reduce(("qualified_expression",0),3)),
3177(LCXor,Reduce(("qualified_expression",0),3)),
3178(LCGreaterEquals,Reduce(("qualified_expression",0),3)),
3179(LCGreaterThan,Reduce(("qualified_expression",0),3)),
3180(LCLessEquals,Reduce(("qualified_expression",0),3)),
3181(LCLessThan,Reduce(("qualified_expression",0),3)),
3182(LCNotEquals,Reduce(("qualified_expression",0),3)),
3183(LCEquals,Reduce(("qualified_expression",0),3)),
3184(LCIn,Reduce(("qualified_expression",0),3)),
3185(LCNot,Reduce(("qualified_expression",0),3)),
3186(LCDotDot,Reduce(("qualified_expression",0),3)),
3187(LCAmpersand,Reduce(("qualified_expression",0),3)),
3188(LCMinus,Reduce(("qualified_expression",0),3)),
3189(LCPlus,Reduce(("qualified_expression",0),3)),
3190(LCRem,Reduce(("qualified_expression",0),3)),
3191(LCMod,Reduce(("qualified_expression",0),3)),
3192(LCDiv,Reduce(("qualified_expression",0),3)),
3193(LCStar,Reduce(("qualified_expression",0),3)),
3194(LCStarStar,Reduce(("qualified_expression",0),3)),
3195(LCThen,Reduce(("qualified_expression",0),3)),
3196(LCIs,Reduce(("qualified_expression",0),3)),
3197(LCGoesTo,Reduce(("qualified_expression",0),3)),
3198(LCBar,Reduce(("qualified_expression",0),3)),
3199(LCTill,Reduce(("qualified_expression",0),3)),
3200(LCLoop,Reduce(("qualified_expression",0),3))]]@slrp'a162;
3201val slrp'a160=[[(LCNot,Reduce(("multiplying_operator",3),1)),
3202(LCAbs,Reduce(("multiplying_operator",3),1)),
3203(LCStringLiteral,Reduce(("multiplying_operator",3),1)),
3204(LCCharacterLiteral,Reduce(("multiplying_operator",3),1)),
3205(LCNumericLiteral,Reduce(("multiplying_operator",3),1)),
3206(LCIdentifier,Reduce(("multiplying_operator",3),1)),
3207(LCOrd,Reduce(("multiplying_operator",3),1)),
3208(LCLStrachey,Reduce(("multiplying_operator",3),1))]]@slrp'a161;
3209val slrp'a159=[[(LCNot,Reduce(("multiplying_operator",2),1)),
3210(LCAbs,Reduce(("multiplying_operator",2),1)),
3211(LCStringLiteral,Reduce(("multiplying_operator",2),1)),
3212(LCCharacterLiteral,Reduce(("multiplying_operator",2),1)),
3213(LCNumericLiteral,Reduce(("multiplying_operator",2),1)),
3214(LCIdentifier,Reduce(("multiplying_operator",2),1)),
3215(LCOrd,Reduce(("multiplying_operator",2),1)),
3216(LCLStrachey,Reduce(("multiplying_operator",2),1))]]@slrp'a160;
3217val slrp'a158=[[(LCNot,Reduce(("multiplying_operator",1),1)),
3218(LCAbs,Reduce(("multiplying_operator",1),1)),
3219(LCStringLiteral,Reduce(("multiplying_operator",1),1)),
3220(LCCharacterLiteral,Reduce(("multiplying_operator",1),1)),
3221(LCNumericLiteral,Reduce(("multiplying_operator",1),1)),
3222(LCIdentifier,Reduce(("multiplying_operator",1),1)),
3223(LCOrd,Reduce(("multiplying_operator",1),1)),
3224(LCLStrachey,Reduce(("multiplying_operator",1),1))]]@slrp'a159;
3225val slrp'a157=[[(LCNot,Reduce(("multiplying_operator",0),1)),
3226(LCAbs,Reduce(("multiplying_operator",0),1)),
3227(LCStringLiteral,Reduce(("multiplying_operator",0),1)),
3228(LCCharacterLiteral,Reduce(("multiplying_operator",0),1)),
3229(LCNumericLiteral,Reduce(("multiplying_operator",0),1)),
3230(LCIdentifier,Reduce(("multiplying_operator",0),1)),
3231(LCOrd,Reduce(("multiplying_operator",0),1)),
3232(LCLStrachey,Reduce(("multiplying_operator",0),1))]]@slrp'a158;
3233val slrp'a156=[[(LCNot,Reduce(("unary_adding_operator",1),1)),
3234(LCAbs,Reduce(("unary_adding_operator",1),1)),
3235(LCStringLiteral,Reduce(("unary_adding_operator",1),1)),
3236(LCCharacterLiteral,Reduce(("unary_adding_operator",1),1)),
3237(LCNumericLiteral,Reduce(("unary_adding_operator",1),1)),
3238(LCIdentifier,Reduce(("unary_adding_operator",1),1)),
3239(LCOrd,Reduce(("unary_adding_operator",1),1)),
3240(LCLStrachey,Reduce(("unary_adding_operator",1),1))]]@slrp'a157;
3241val slrp'a155=[[(LCNot,Reduce(("unary_adding_operator",0),1)),
3242(LCAbs,Reduce(("unary_adding_operator",0),1)),
3243(LCStringLiteral,Reduce(("unary_adding_operator",0),1)),
3244(LCCharacterLiteral,Reduce(("unary_adding_operator",0),1)),
3245(LCNumericLiteral,Reduce(("unary_adding_operator",0),1)),
3246(LCIdentifier,Reduce(("unary_adding_operator",0),1)),
3247(LCOrd,Reduce(("unary_adding_operator",0),1)),
3248(LCLStrachey,Reduce(("unary_adding_operator",0),1))]]@slrp'a156;
3249val slrp'a154=[[(LCNot,Reduce(("binary_adding_operator",2),1)),
3250(LCAbs,Reduce(("binary_adding_operator",2),1)),
3251(LCStringLiteral,Reduce(("binary_adding_operator",2),1)),
3252(LCCharacterLiteral,Reduce(("binary_adding_operator",2),1)),
3253(LCNumericLiteral,Reduce(("binary_adding_operator",2),1)),
3254(LCIdentifier,Reduce(("binary_adding_operator",2),1)),
3255(LCOrd,Reduce(("binary_adding_operator",2),1)),
3256(LCLStrachey,Reduce(("binary_adding_operator",2),1))]]@slrp'a155;
3257val slrp'a153=[[(LCNot,Reduce(("binary_adding_operator",1),1)),
3258(LCAbs,Reduce(("binary_adding_operator",1),1)),
3259(LCStringLiteral,Reduce(("binary_adding_operator",1),1)),
3260(LCCharacterLiteral,Reduce(("binary_adding_operator",1),1)),
3261(LCNumericLiteral,Reduce(("binary_adding_operator",1),1)),
3262(LCIdentifier,Reduce(("binary_adding_operator",1),1)),
3263(LCOrd,Reduce(("binary_adding_operator",1),1)),
3264(LCLStrachey,Reduce(("binary_adding_operator",1),1))]]@slrp'a154;
3265val slrp'a152=[[(LCNot,Reduce(("binary_adding_operator",0),1)),
3266(LCAbs,Reduce(("binary_adding_operator",0),1)),
3267(LCStringLiteral,Reduce(("binary_adding_operator",0),1)),
3268(LCCharacterLiteral,Reduce(("binary_adding_operator",0),1)),
3269(LCNumericLiteral,Reduce(("binary_adding_operator",0),1)),
3270(LCIdentifier,Reduce(("binary_adding_operator",0),1)),
3271(LCOrd,Reduce(("binary_adding_operator",0),1)),
3272(LCLStrachey,Reduce(("binary_adding_operator",0),1))]]@slrp'a153;
3273val slrp'a151=[[(LCMinus,Reduce(("relational_operator",5),1)),
3274(LCPlus,Reduce(("relational_operator",5),1)),
3275(LCNot,Reduce(("relational_operator",5),1)),
3276(LCAbs,Reduce(("relational_operator",5),1)),
3277(LCStringLiteral,Reduce(("relational_operator",5),1)),
3278(LCCharacterLiteral,Reduce(("relational_operator",5),1)),
3279(LCNumericLiteral,Reduce(("relational_operator",5),1)),
3280(LCIdentifier,Reduce(("relational_operator",5),1)),
3281(LCOrd,Reduce(("relational_operator",5),1)),
3282(LCLStrachey,Reduce(("relational_operator",5),1))]]@slrp'a152;
3283val slrp'a150=[[(LCMinus,Reduce(("relational_operator",4),1)),
3284(LCPlus,Reduce(("relational_operator",4),1)),
3285(LCNot,Reduce(("relational_operator",4),1)),
3286(LCAbs,Reduce(("relational_operator",4),1)),
3287(LCStringLiteral,Reduce(("relational_operator",4),1)),
3288(LCCharacterLiteral,Reduce(("relational_operator",4),1)),
3289(LCNumericLiteral,Reduce(("relational_operator",4),1)),
3290(LCIdentifier,Reduce(("relational_operator",4),1)),
3291(LCOrd,Reduce(("relational_operator",4),1)),
3292(LCLStrachey,Reduce(("relational_operator",4),1))]]@slrp'a151;
3293val slrp'a149=[[(LCMinus,Reduce(("relational_operator",3),1)),
3294(LCPlus,Reduce(("relational_operator",3),1)),
3295(LCNot,Reduce(("relational_operator",3),1)),
3296(LCAbs,Reduce(("relational_operator",3),1)),
3297(LCStringLiteral,Reduce(("relational_operator",3),1)),
3298(LCCharacterLiteral,Reduce(("relational_operator",3),1)),
3299(LCNumericLiteral,Reduce(("relational_operator",3),1)),
3300(LCIdentifier,Reduce(("relational_operator",3),1)),
3301(LCOrd,Reduce(("relational_operator",3),1)),
3302(LCLStrachey,Reduce(("relational_operator",3),1))]]@slrp'a150;
3303val slrp'a148=[[(LCMinus,Reduce(("relational_operator",2),1)),
3304(LCPlus,Reduce(("relational_operator",2),1)),
3305(LCNot,Reduce(("relational_operator",2),1)),
3306(LCAbs,Reduce(("relational_operator",2),1)),
3307(LCStringLiteral,Reduce(("relational_operator",2),1)),
3308(LCCharacterLiteral,Reduce(("relational_operator",2),1)),
3309(LCNumericLiteral,Reduce(("relational_operator",2),1)),
3310(LCIdentifier,Reduce(("relational_operator",2),1)),
3311(LCOrd,Reduce(("relational_operator",2),1)),
3312(LCLStrachey,Reduce(("relational_operator",2),1))]]@slrp'a149;
3313val slrp'a147=[[(LCMinus,Reduce(("relational_operator",1),1)),
3314(LCPlus,Reduce(("relational_operator",1),1)),
3315(LCNot,Reduce(("relational_operator",1),1)),
3316(LCAbs,Reduce(("relational_operator",1),1)),
3317(LCStringLiteral,Reduce(("relational_operator",1),1)),
3318(LCCharacterLiteral,Reduce(("relational_operator",1),1)),
3319(LCNumericLiteral,Reduce(("relational_operator",1),1)),
3320(LCIdentifier,Reduce(("relational_operator",1),1)),
3321(LCOrd,Reduce(("relational_operator",1),1)),
3322(LCLStrachey,Reduce(("relational_operator",1),1))]]@slrp'a148;
3323val slrp'a146=[[(LCMinus,Reduce(("relational_operator",0),1)),
3324(LCPlus,Reduce(("relational_operator",0),1)),
3325(LCNot,Reduce(("relational_operator",0),1)),
3326(LCAbs,Reduce(("relational_operator",0),1)),
3327(LCStringLiteral,Reduce(("relational_operator",0),1)),
3328(LCCharacterLiteral,Reduce(("relational_operator",0),1)),
3329(LCNumericLiteral,Reduce(("relational_operator",0),1)),
3330(LCIdentifier,Reduce(("relational_operator",0),1)),
3331(LCOrd,Reduce(("relational_operator",0),1)),
3332(LCLStrachey,Reduce(("relational_operator",0),1))]]@slrp'a147;
3333val slrp'a145=[[(LCBecomes,Reduce(("primary",6),1)),
3334(LCSemi,Reduce(("primary",6),1)),(LCRRange,Reduce(("primary",6),1)),
3335(LCDigits,Reduce(("primary",6),1)),(LCDelta,Reduce(("primary",6),1)),
3336(LCComma,Reduce(("primary",6),1)),(LCCrd,Reduce(("primary",6),1)),
3337(LCAnd,Reduce(("primary",6),1)),(LCOr,Reduce(("primary",6),1)),
3338(LCXor,Reduce(("primary",6),1)),(LCGreaterEquals,Reduce(("primary",6),1)),
3339(LCGreaterThan,Reduce(("primary",6),1)),(LCLessEquals,Reduce(("primary",6),1)),
3340(LCLessThan,Reduce(("primary",6),1)),(LCNotEquals,Reduce(("primary",6),1)),
3341(LCEquals,Reduce(("primary",6),1)),(LCIn,Reduce(("primary",6),1)),
3342(LCNot,Reduce(("primary",6),1)),(LCDotDot,Reduce(("primary",6),1)),
3343(LCAmpersand,Reduce(("primary",6),1)),(LCMinus,Reduce(("primary",6),1)),
3344(LCPlus,Reduce(("primary",6),1)),(LCRem,Reduce(("primary",6),1)),
3345(LCMod,Reduce(("primary",6),1)),(LCDiv,Reduce(("primary",6),1)),
3346(LCStar,Reduce(("primary",6),1)),(LCStarStar,Reduce(("primary",6),1)),
3347(LCThen,Reduce(("primary",6),1)),(LCIs,Reduce(("primary",6),1)),
3348(LCGoesTo,Reduce(("primary",6),1)),(LCBar,Reduce(("primary",6),1)),
3349(LCTill,Reduce(("primary",6),1)),(LCLoop,Reduce(("primary",6),1))]]@slrp'a146;
3350val slrp'a144=[[(LCBecomes,Reduce(("primary",5),1)),
3351(LCSemi,Reduce(("primary",5),1)),(LCRRange,Reduce(("primary",5),1)),
3352(LCDigits,Reduce(("primary",5),1)),(LCDelta,Reduce(("primary",5),1)),
3353(LCComma,Reduce(("primary",5),1)),(LCCrd,Reduce(("primary",5),1)),
3354(LCAnd,Reduce(("primary",5),1)),(LCOr,Reduce(("primary",5),1)),
3355(LCXor,Reduce(("primary",5),1)),(LCGreaterEquals,Reduce(("primary",5),1)),
3356(LCGreaterThan,Reduce(("primary",5),1)),(LCLessEquals,Reduce(("primary",5),1)),
3357(LCLessThan,Reduce(("primary",5),1)),(LCNotEquals,Reduce(("primary",5),1)),
3358(LCEquals,Reduce(("primary",5),1)),(LCIn,Reduce(("primary",5),1)),
3359(LCNot,Reduce(("primary",5),1)),(LCDotDot,Reduce(("primary",5),1)),
3360(LCAmpersand,Reduce(("primary",5),1)),(LCMinus,Reduce(("primary",5),1)),
3361(LCPlus,Reduce(("primary",5),1)),(LCRem,Reduce(("primary",5),1)),
3362(LCMod,Reduce(("primary",5),1)),(LCDiv,Reduce(("primary",5),1)),
3363(LCStar,Reduce(("primary",5),1)),(LCStarStar,Reduce(("primary",5),1)),
3364(LCThen,Reduce(("primary",5),1)),(LCIs,Reduce(("primary",5),1)),
3365(LCGoesTo,Reduce(("primary",5),1)),(LCBar,Reduce(("primary",5),1)),
3366(LCTill,Reduce(("primary",5),1)),(LCLoop,Reduce(("primary",5),1))]]@slrp'a145;
3367val slrp'a143=[[(LCBecomes,Reduce(("primary",4),1)),
3368(LCSemi,Reduce(("primary",4),1)),(LCRRange,Reduce(("primary",4),1)),
3369(LCDigits,Reduce(("primary",4),1)),(LCDelta,Reduce(("primary",4),1)),
3370(LCComma,Reduce(("primary",4),1)),(LCCrd,Reduce(("primary",4),1)),
3371(LCAnd,Reduce(("primary",4),1)),(LCOr,Reduce(("primary",4),1)),
3372(LCXor,Reduce(("primary",4),1)),(LCGreaterEquals,Reduce(("primary",4),1)),
3373(LCGreaterThan,Reduce(("primary",4),1)),(LCLessEquals,Reduce(("primary",4),1)),
3374(LCLessThan,Reduce(("primary",4),1)),(LCNotEquals,Reduce(("primary",4),1)),
3375(LCEquals,Reduce(("primary",4),1)),(LCIn,Reduce(("primary",4),1)),
3376(LCNot,Reduce(("primary",4),1)),(LCDotDot,Reduce(("primary",4),1)),
3377(LCAmpersand,Reduce(("primary",4),1)),(LCMinus,Reduce(("primary",4),1)),
3378(LCPlus,Reduce(("primary",4),1)),(LCRem,Reduce(("primary",4),1)),
3379(LCMod,Reduce(("primary",4),1)),(LCDiv,Reduce(("primary",4),1)),
3380(LCStar,Reduce(("primary",4),1)),(LCStarStar,Reduce(("primary",4),1)),
3381(LCThen,Reduce(("primary",4),1)),(LCIs,Reduce(("primary",4),1)),
3382(LCGoesTo,Reduce(("primary",4),1)),(LCBar,Reduce(("primary",4),1)),
3383(LCTill,Reduce(("primary",4),1)),(LCLoop,Reduce(("primary",4),1))]]@slrp'a144;
3384val slrp'a142=[[(LCBecomes,Reduce(("primary",2),1)),
3385(LCSemi,Reduce(("primary",2),1)),(LCRRange,Reduce(("primary",2),1)),
3386(LCDigits,Reduce(("primary",2),1)),(LCDelta,Reduce(("primary",2),1)),
3387(LCComma,Reduce(("primary",2),1)),(LCCrd,Reduce(("primary",2),1)),
3388(LCAnd,Reduce(("primary",2),1)),(LCOr,Reduce(("primary",2),1)),
3389(LCXor,Reduce(("primary",2),1)),(LCGreaterEquals,Reduce(("primary",2),1)),
3390(LCGreaterThan,Reduce(("primary",2),1)),(LCLessEquals,Reduce(("primary",2),1)),
3391(LCLessThan,Reduce(("primary",2),1)),(LCNotEquals,Reduce(("primary",2),1)),
3392(LCEquals,Reduce(("primary",2),1)),(LCIn,Reduce(("primary",2),1)),
3393(LCNot,Reduce(("primary",2),1)),(LCDotDot,Reduce(("primary",2),1)),
3394(LCAmpersand,Reduce(("primary",2),1)),(LCMinus,Reduce(("primary",2),1)),
3395(LCPlus,Reduce(("primary",2),1)),(LCRem,Reduce(("primary",2),1)),
3396(LCMod,Reduce(("primary",2),1)),(LCDiv,Reduce(("primary",2),1)),
3397(LCStar,Reduce(("primary",2),1)),(LCStarStar,Reduce(("primary",2),1)),
3398(LCThen,Reduce(("primary",2),1)),(LCIs,Reduce(("primary",2),1)),
3399(LCGoesTo,Reduce(("primary",2),1)),(LCBar,Reduce(("primary",2),1)),
3400(LCTill,Reduce(("primary",2),1)),(LCLoop,Reduce(("primary",2),1))]]@slrp'a143;
3401val slrp'a141=[[(LCBecomes,Reduce(("primary",0),1)),
3402(LCSemi,Reduce(("primary",0),1)),(LCRRange,Reduce(("primary",0),1)),
3403(LCDigits,Reduce(("primary",0),1)),(LCDelta,Reduce(("primary",0),1)),
3404(LCComma,Reduce(("primary",0),1)),(LCCrd,Reduce(("primary",0),1)),
3405(LCAnd,Reduce(("primary",0),1)),(LCOr,Reduce(("primary",0),1)),
3406(LCXor,Reduce(("primary",0),1)),(LCGreaterEquals,Reduce(("primary",0),1)),
3407(LCGreaterThan,Reduce(("primary",0),1)),(LCLessEquals,Reduce(("primary",0),1)),
3408(LCLessThan,Reduce(("primary",0),1)),(LCNotEquals,Reduce(("primary",0),1)),
3409(LCEquals,Reduce(("primary",0),1)),(LCIn,Reduce(("primary",0),1)),
3410(LCNot,Reduce(("primary",0),1)),(LCDotDot,Reduce(("primary",0),1)),
3411(LCAmpersand,Reduce(("primary",0),1)),(LCMinus,Reduce(("primary",0),1)),
3412(LCPlus,Reduce(("primary",0),1)),(LCRem,Reduce(("primary",0),1)),
3413(LCMod,Reduce(("primary",0),1)),(LCDiv,Reduce(("primary",0),1)),
3414(LCStar,Reduce(("primary",0),1)),(LCStarStar,Reduce(("primary",0),1)),
3415(LCThen,Reduce(("primary",0),1)),(LCIs,Reduce(("primary",0),1)),
3416(LCGoesTo,Reduce(("primary",0),1)),(LCBar,Reduce(("primary",0),1)),
3417(LCTill,Reduce(("primary",0),1)),(LCLoop,Reduce(("primary",0),1))]]@slrp'a142;
3418val slrp'a140=[[(LCBecomes,Reduce(("factor",3),2)),
3419(LCSemi,Reduce(("factor",3),2)),(LCRRange,Reduce(("factor",3),2)),
3420(LCDigits,Reduce(("factor",3),2)),(LCDelta,Reduce(("factor",3),2)),
3421(LCComma,Reduce(("factor",3),2)),(LCCrd,Reduce(("factor",3),2)),
3422(LCAnd,Reduce(("factor",3),2)),(LCOr,Reduce(("factor",3),2)),
3423(LCXor,Reduce(("factor",3),2)),(LCGreaterEquals,Reduce(("factor",3),2)),
3424(LCGreaterThan,Reduce(("factor",3),2)),(LCLessEquals,Reduce(("factor",3),2)),
3425(LCLessThan,Reduce(("factor",3),2)),(LCNotEquals,Reduce(("factor",3),2)),
3426(LCEquals,Reduce(("factor",3),2)),(LCIn,Reduce(("factor",3),2)),
3427(LCNot,Reduce(("factor",3),2)),(LCDotDot,Reduce(("factor",3),2)),
3428(LCAmpersand,Reduce(("factor",3),2)),(LCMinus,Reduce(("factor",3),2)),
3429(LCPlus,Reduce(("factor",3),2)),(LCRem,Reduce(("factor",3),2)),
3430(LCMod,Reduce(("factor",3),2)),(LCDiv,Reduce(("factor",3),2)),
3431(LCStar,Reduce(("factor",3),2)),(LCThen,Reduce(("factor",3),2)),
3432(LCIs,Reduce(("factor",3),2)),(LCGoesTo,Reduce(("factor",3),2)),
3433(LCBar,Reduce(("factor",3),2)),(LCTill,Reduce(("factor",3),2)),
3434(LCLoop,Reduce(("factor",3),2))]]@slrp'a141;
3435val slrp'a139=[[(LCBecomes,Reduce(("factor",2),2)),
3436(LCSemi,Reduce(("factor",2),2)),(LCRRange,Reduce(("factor",2),2)),
3437(LCDigits,Reduce(("factor",2),2)),(LCDelta,Reduce(("factor",2),2)),
3438(LCComma,Reduce(("factor",2),2)),(LCCrd,Reduce(("factor",2),2)),
3439(LCAnd,Reduce(("factor",2),2)),(LCOr,Reduce(("factor",2),2)),
3440(LCXor,Reduce(("factor",2),2)),(LCGreaterEquals,Reduce(("factor",2),2)),
3441(LCGreaterThan,Reduce(("factor",2),2)),(LCLessEquals,Reduce(("factor",2),2)),
3442(LCLessThan,Reduce(("factor",2),2)),(LCNotEquals,Reduce(("factor",2),2)),
3443(LCEquals,Reduce(("factor",2),2)),(LCIn,Reduce(("factor",2),2)),
3444(LCNot,Reduce(("factor",2),2)),(LCDotDot,Reduce(("factor",2),2)),
3445(LCAmpersand,Reduce(("factor",2),2)),(LCMinus,Reduce(("factor",2),2)),
3446(LCPlus,Reduce(("factor",2),2)),(LCRem,Reduce(("factor",2),2)),
3447(LCMod,Reduce(("factor",2),2)),(LCDiv,Reduce(("factor",2),2)),
3448(LCStar,Reduce(("factor",2),2)),(LCThen,Reduce(("factor",2),2)),
3449(LCIs,Reduce(("factor",2),2)),(LCGoesTo,Reduce(("factor",2),2)),
3450(LCBar,Reduce(("factor",2),2)),(LCTill,Reduce(("factor",2),2)),
3451(LCLoop,Reduce(("factor",2),2))]]@slrp'a140;
3452val slrp'a138=[[(LCBecomes,Reduce(("factor",1),3)),
3453(LCSemi,Reduce(("factor",1),3)),(LCRRange,Reduce(("factor",1),3)),
3454(LCDigits,Reduce(("factor",1),3)),(LCDelta,Reduce(("factor",1),3)),
3455(LCComma,Reduce(("factor",1),3)),(LCCrd,Reduce(("factor",1),3)),
3456(LCAnd,Reduce(("factor",1),3)),(LCOr,Reduce(("factor",1),3)),
3457(LCXor,Reduce(("factor",1),3)),(LCGreaterEquals,Reduce(("factor",1),3)),
3458(LCGreaterThan,Reduce(("factor",1),3)),(LCLessEquals,Reduce(("factor",1),3)),
3459(LCLessThan,Reduce(("factor",1),3)),(LCNotEquals,Reduce(("factor",1),3)),
3460(LCEquals,Reduce(("factor",1),3)),(LCIn,Reduce(("factor",1),3)),
3461(LCNot,Reduce(("factor",1),3)),(LCDotDot,Reduce(("factor",1),3)),
3462(LCAmpersand,Reduce(("factor",1),3)),(LCMinus,Reduce(("factor",1),3)),
3463(LCPlus,Reduce(("factor",1),3)),(LCRem,Reduce(("factor",1),3)),
3464(LCMod,Reduce(("factor",1),3)),(LCDiv,Reduce(("factor",1),3)),
3465(LCStar,Reduce(("factor",1),3)),(LCThen,Reduce(("factor",1),3)),
3466(LCIs,Reduce(("factor",1),3)),(LCGoesTo,Reduce(("factor",1),3)),
3467(LCBar,Reduce(("factor",1),3)),(LCTill,Reduce(("factor",1),3)),
3468(LCLoop,Reduce(("factor",1),3))]]@slrp'a139;
3469val slrp'a137=[[(LCBecomes,Reduce(("term",1),3)),(LCSemi,Reduce(("term",1),3)),
3470(LCRRange,Reduce(("term",1),3)),(LCDigits,Reduce(("term",1),3)),
3471(LCDelta,Reduce(("term",1),3)),(LCComma,Reduce(("term",1),3)),
3472(LCCrd,Reduce(("term",1),3)),(LCAnd,Reduce(("term",1),3)),
3473(LCOr,Reduce(("term",1),3)),(LCXor,Reduce(("term",1),3)),
3474(LCGreaterEquals,Reduce(("term",1),3)),(LCGreaterThan,Reduce(("term",1),3)),
3475(LCLessEquals,Reduce(("term",1),3)),(LCLessThan,Reduce(("term",1),3)),
3476(LCNotEquals,Reduce(("term",1),3)),(LCEquals,Reduce(("term",1),3)),
3477(LCIn,Reduce(("term",1),3)),(LCNot,Reduce(("term",1),3)),
3478(LCDotDot,Reduce(("term",1),3)),(LCAmpersand,Reduce(("term",1),3)),
3479(LCMinus,Reduce(("term",1),3)),(LCPlus,Reduce(("term",1),3)),
3480(LCRem,Reduce(("term",1),3)),(LCMod,Reduce(("term",1),3)),
3481(LCDiv,Reduce(("term",1),3)),(LCStar,Reduce(("term",1),3)),
3482(LCThen,Reduce(("term",1),3)),(LCIs,Reduce(("term",1),3)),
3483(LCGoesTo,Reduce(("term",1),3)),(LCBar,Reduce(("term",1),3)),
3484(LCTill,Reduce(("term",1),3)),(LCLoop,Reduce(("term",1),3))]]@slrp'a138;
3485val slrp'a136=[[(LCBecomes,Reduce(("term",0),1)),(LCSemi,Reduce(("term",0),1)),
3486(LCRRange,Reduce(("term",0),1)),(LCDigits,Reduce(("term",0),1)),
3487(LCDelta,Reduce(("term",0),1)),(LCComma,Reduce(("term",0),1)),
3488(LCCrd,Reduce(("term",0),1)),(LCAnd,Reduce(("term",0),1)),
3489(LCOr,Reduce(("term",0),1)),(LCXor,Reduce(("term",0),1)),
3490(LCGreaterEquals,Reduce(("term",0),1)),(LCGreaterThan,Reduce(("term",0),1)),
3491(LCLessEquals,Reduce(("term",0),1)),(LCLessThan,Reduce(("term",0),1)),
3492(LCNotEquals,Reduce(("term",0),1)),(LCEquals,Reduce(("term",0),1)),
3493(LCIn,Reduce(("term",0),1)),(LCNot,Reduce(("term",0),1)),
3494(LCDotDot,Reduce(("term",0),1)),(LCAmpersand,Reduce(("term",0),1)),
3495(LCMinus,Reduce(("term",0),1)),(LCPlus,Reduce(("term",0),1)),
3496(LCRem,Reduce(("term",0),1)),(LCMod,Reduce(("term",0),1)),
3497(LCDiv,Reduce(("term",0),1)),(LCStar,Reduce(("term",0),1)),
3498(LCThen,Reduce(("term",0),1)),(LCIs,Reduce(("term",0),1)),
3499(LCGoesTo,Reduce(("term",0),1)),(LCBar,Reduce(("term",0),1)),
3500(LCTill,Reduce(("term",0),1)),(LCLoop,Reduce(("term",0),1))]]@slrp'a137;
3501val slrp'a135=[[(LCBecomes,Reduce(("binoptail",1),3)),
3502(LCSemi,Reduce(("binoptail",1),3)),(LCRRange,Reduce(("binoptail",1),3)),
3503(LCDigits,Reduce(("binoptail",1),3)),(LCDelta,Reduce(("binoptail",1),3)),
3504(LCComma,Reduce(("binoptail",1),3)),(LCCrd,Reduce(("binoptail",1),3)),
3505(LCAnd,Reduce(("binoptail",1),3)),(LCOr,Reduce(("binoptail",1),3)),
3506(LCXor,Reduce(("binoptail",1),3)),(LCGreaterEquals,Reduce(("binoptail",1),3)),
3507(LCGreaterThan,Reduce(("binoptail",1),3)),
3508(LCLessEquals,Reduce(("binoptail",1),3)),(LCLessThan,Reduce(("binoptail",1),3)),
3509(LCNotEquals,Reduce(("binoptail",1),3)),(LCEquals,Reduce(("binoptail",1),3)),
3510(LCIn,Reduce(("binoptail",1),3)),(LCNot,Reduce(("binoptail",1),3)),
3511(LCDotDot,Reduce(("binoptail",1),3)),(LCThen,Reduce(("binoptail",1),3)),
3512(LCIs,Reduce(("binoptail",1),3)),(LCGoesTo,Reduce(("binoptail",1),3)),
3513(LCBar,Reduce(("binoptail",1),3)),(LCTill,Reduce(("binoptail",1),3)),
3514(LCLoop,Reduce(("binoptail",1),3))]]@slrp'a136;
3515val slrp'a134=[[(LCBecomes,Reduce(("simple_expression",1),3)),
3516(LCSemi,Reduce(("simple_expression",1),3)),
3517(LCRRange,Reduce(("simple_expression",1),3)),
3518(LCDigits,Reduce(("simple_expression",1),3)),
3519(LCDelta,Reduce(("simple_expression",1),3)),
3520(LCComma,Reduce(("simple_expression",1),3)),
3521(LCCrd,Reduce(("simple_expression",1),3)),
3522(LCAnd,Reduce(("simple_expression",1),3)),
3523(LCOr,Reduce(("simple_expression",1),3)),
3524(LCXor,Reduce(("simple_expression",1),3)),
3525(LCGreaterEquals,Reduce(("simple_expression",1),3)),
3526(LCGreaterThan,Reduce(("simple_expression",1),3)),
3527(LCLessEquals,Reduce(("simple_expression",1),3)),
3528(LCLessThan,Reduce(("simple_expression",1),3)),
3529(LCNotEquals,Reduce(("simple_expression",1),3)),
3530(LCEquals,Reduce(("simple_expression",1),3)),
3531(LCIn,Reduce(("simple_expression",1),3)),
3532(LCNot,Reduce(("simple_expression",1),3)),
3533(LCDotDot,Reduce(("simple_expression",1),3)),
3534(LCThen,Reduce(("simple_expression",1),3)),
3535(LCIs,Reduce(("simple_expression",1),3)),
3536(LCGoesTo,Reduce(("simple_expression",1),3)),
3537(LCBar,Reduce(("simple_expression",1),3)),
3538(LCTill,Reduce(("simple_expression",1),3)),
3539(LCLoop,Reduce(("simple_expression",1),3))]]@slrp'a135;
3540val slrp'a133=[[(LCBecomes,Reduce(("simple_expression",0),2)),
3541(LCSemi,Reduce(("simple_expression",0),2)),
3542(LCRRange,Reduce(("simple_expression",0),2)),
3543(LCDigits,Reduce(("simple_expression",0),2)),
3544(LCDelta,Reduce(("simple_expression",0),2)),
3545(LCComma,Reduce(("simple_expression",0),2)),
3546(LCCrd,Reduce(("simple_expression",0),2)),
3547(LCAnd,Reduce(("simple_expression",0),2)),
3548(LCOr,Reduce(("simple_expression",0),2)),
3549(LCXor,Reduce(("simple_expression",0),2)),
3550(LCGreaterEquals,Reduce(("simple_expression",0),2)),
3551(LCGreaterThan,Reduce(("simple_expression",0),2)),
3552(LCLessEquals,Reduce(("simple_expression",0),2)),
3553(LCLessThan,Reduce(("simple_expression",0),2)),
3554(LCNotEquals,Reduce(("simple_expression",0),2)),
3555(LCEquals,Reduce(("simple_expression",0),2)),
3556(LCIn,Reduce(("simple_expression",0),2)),
3557(LCNot,Reduce(("simple_expression",0),2)),
3558(LCDotDot,Reduce(("simple_expression",0),2)),
3559(LCThen,Reduce(("simple_expression",0),2)),
3560(LCIs,Reduce(("simple_expression",0),2)),
3561(LCGoesTo,Reduce(("simple_expression",0),2)),
3562(LCBar,Reduce(("simple_expression",0),2)),
3563(LCTill,Reduce(("simple_expression",0),2)),
3564(LCLoop,Reduce(("simple_expression",0),2))]]@slrp'a134;
3565val slrp'a132=[[(LCBecomes,Reduce(("sr_expression",1),3)),
3566(LCSemi,Reduce(("sr_expression",1),3)),(LCRRange,Reduce(("sr_expression",1),3)),
3567(LCDigits,Reduce(("sr_expression",1),3)),(LCDelta,Reduce(("sr_expression",1),3))
3568,(LCComma,Reduce(("sr_expression",1),3)),(LCCrd,Reduce(("sr_expression",1),3)),
3569(LCAnd,Reduce(("sr_expression",1),3)),(LCOr,Reduce(("sr_expression",1),3)),
3570(LCXor,Reduce(("sr_expression",1),3)),
3571(LCGreaterEquals,Reduce(("sr_expression",1),3)),
3572(LCGreaterThan,Reduce(("sr_expression",1),3)),
3573(LCLessEquals,Reduce(("sr_expression",1),3)),
3574(LCLessThan,Reduce(("sr_expression",1),3)),
3575(LCNotEquals,Reduce(("sr_expression",1),3)),
3576(LCEquals,Reduce(("sr_expression",1),3)),(LCIn,Reduce(("sr_expression",1),3)),
3577(LCNot,Reduce(("sr_expression",1),3)),(LCThen,Reduce(("sr_expression",1),3)),
3578(LCIs,Reduce(("sr_expression",1),3)),(LCGoesTo,Reduce(("sr_expression",1),3)),
3579(LCBar,Reduce(("sr_expression",1),3)),(LCTill,Reduce(("sr_expression",1),3)),
3580(LCLoop,Reduce(("sr_expression",1),3))]]@slrp'a133;
3581val slrp'a131=[[(LCSemi,Reduce(("relation",3),4)),
3582(LCRRange,Reduce(("relation",3),4)),(LCDigits,Reduce(("relation",3),4)),
3583(LCDelta,Reduce(("relation",3),4)),(LCBecomes,Reduce(("relation",3),4)),
3584(LCComma,Reduce(("relation",3),4)),(LCCrd,Reduce(("relation",3),4)),
3585(LCAnd,Reduce(("relation",3),4)),(LCOr,Reduce(("relation",3),4)),
3586(LCXor,Reduce(("relation",3),4)),(LCThen,Reduce(("relation",3),4)),
3587(LCIs,Reduce(("relation",3),4)),(LCGoesTo,Reduce(("relation",3),4)),
3588(LCBar,Reduce(("relation",3),4)),(LCTill,Reduce(("relation",3),4)),
3589(LCLoop,Reduce(("relation",3),4))]]@slrp'a132;
3590val slrp'a130=[[(LCIn,Shift 631)]]@slrp'a131;
3591val slrp'a129=[[(LCSemi,Reduce(("relation",2),3)),
3592(LCRRange,Reduce(("relation",2),3)),(LCDigits,Reduce(("relation",2),3)),
3593(LCDelta,Reduce(("relation",2),3)),(LCBecomes,Reduce(("relation",2),3)),
3594(LCComma,Reduce(("relation",2),3)),(LCCrd,Reduce(("relation",2),3)),
3595(LCAnd,Reduce(("relation",2),3)),(LCOr,Reduce(("relation",2),3)),
3596(LCXor,Reduce(("relation",2),3)),(LCThen,Reduce(("relation",2),3)),
3597(LCIs,Reduce(("relation",2),3)),(LCGoesTo,Reduce(("relation",2),3)),
3598(LCBar,Reduce(("relation",2),3)),(LCTill,Reduce(("relation",2),3)),
3599(LCLoop,Reduce(("relation",2),3))]]@slrp'a130;
3600val slrp'a128=[[(LCSemi,Reduce(("relation",1),3)),
3601(LCRRange,Reduce(("relation",1),3)),(LCDigits,Reduce(("relation",1),3)),
3602(LCDelta,Reduce(("relation",1),3)),(LCBecomes,Reduce(("relation",1),3)),
3603(LCComma,Reduce(("relation",1),3)),(LCCrd,Reduce(("relation",1),3)),
3604(LCAnd,Reduce(("relation",1),3)),(LCOr,Reduce(("relation",1),3)),
3605(LCXor,Reduce(("relation",1),3)),(LCThen,Reduce(("relation",1),3)),
3606(LCIs,Reduce(("relation",1),3)),(LCGoesTo,Reduce(("relation",1),3)),
3607(LCBar,Reduce(("relation",1),3)),(LCTill,Reduce(("relation",1),3)),
3608(LCLoop,Reduce(("relation",1),3))]]@slrp'a129;
3609val slrp'a127=[[(LCSemi,Reduce(("xor_relation",1),3)),
3610(LCRRange,Reduce(("xor_relation",1),3)),(LCDigits,Reduce(("xor_relation",1),3)),
3611(LCDelta,Reduce(("xor_relation",1),3)),(LCBecomes,Reduce(("xor_relation",1),3)),
3612(LCComma,Reduce(("xor_relation",1),3)),(LCCrd,Reduce(("xor_relation",1),3)),
3613(LCThen,Reduce(("xor_relation",1),3)),(LCIs,Reduce(("xor_relation",1),3)),
3614(LCGoesTo,Reduce(("xor_relation",1),3)),(LCBar,Reduce(("xor_relation",1),3)),
3615(LCTill,Reduce(("xor_relation",1),3)),(LCLoop,Reduce(("xor_relation",1),3))]]@slrp'a128;
3616val slrp'a126=[[(LCSemi,Reduce(("or_else_relation",1),4)),
3617(LCRRange,Reduce(("or_else_relation",1),4)),
3618(LCDigits,Reduce(("or_else_relation",1),4)),
3619(LCDelta,Reduce(("or_else_relation",1),4)),
3620(LCBecomes,Reduce(("or_else_relation",1),4)),
3621(LCComma,Reduce(("or_else_relation",1),4)),
3622(LCCrd,Reduce(("or_else_relation",1),4)),
3623(LCThen,Reduce(("or_else_relation",1),4)),
3624(LCIs,Reduce(("or_else_relation",1),4)),
3625(LCGoesTo,Reduce(("or_else_relation",1),4)),
3626(LCBar,Reduce(("or_else_relation",1),4)),
3627(LCTill,Reduce(("or_else_relation",1),4)),
3628(LCLoop,Reduce(("or_else_relation",1),4))]]@slrp'a127;
3629val slrp'a125=[[(LCSemi,Reduce(("or_relation",1),3)),
3630(LCRRange,Reduce(("or_relation",1),3)),(LCDigits,Reduce(("or_relation",1),3)),
3631(LCDelta,Reduce(("or_relation",1),3)),(LCBecomes,Reduce(("or_relation",1),3)),
3632(LCComma,Reduce(("or_relation",1),3)),(LCCrd,Reduce(("or_relation",1),3)),
3633(LCThen,Reduce(("or_relation",1),3)),(LCIs,Reduce(("or_relation",1),3)),
3634(LCGoesTo,Reduce(("or_relation",1),3)),(LCBar,Reduce(("or_relation",1),3)),
3635(LCTill,Reduce(("or_relation",1),3)),(LCLoop,Reduce(("or_relation",1),3))]]@slrp'a126;
3636val slrp'a124=[[(LCSemi,Reduce(("and_then_relation",1),4)),
3637(LCRRange,Reduce(("and_then_relation",1),4)),
3638(LCDigits,Reduce(("and_then_relation",1),4)),
3639(LCDelta,Reduce(("and_then_relation",1),4)),
3640(LCBecomes,Reduce(("and_then_relation",1),4)),
3641(LCComma,Reduce(("and_then_relation",1),4)),
3642(LCCrd,Reduce(("and_then_relation",1),4)),
3643(LCThen,Reduce(("and_then_relation",1),4)),
3644(LCIs,Reduce(("and_then_relation",1),4)),
3645(LCGoesTo,Reduce(("and_then_relation",1),4)),
3646(LCBar,Reduce(("and_then_relation",1),4)),
3647(LCTill,Reduce(("and_then_relation",1),4)),
3648(LCLoop,Reduce(("and_then_relation",1),4))]]@slrp'a125;
3649val slrp'a123=[[(LCSemi,Reduce(("and_relation",1),3)),
3650(LCRRange,Reduce(("and_relation",1),3)),(LCDigits,Reduce(("and_relation",1),3)),
3651(LCDelta,Reduce(("and_relation",1),3)),(LCBecomes,Reduce(("and_relation",1),3)),
3652(LCComma,Reduce(("and_relation",1),3)),(LCCrd,Reduce(("and_relation",1),3)),
3653(LCThen,Reduce(("and_relation",1),3)),(LCIs,Reduce(("and_relation",1),3)),
3654(LCGoesTo,Reduce(("and_relation",1),3)),(LCBar,Reduce(("and_relation",1),3)),
3655(LCTill,Reduce(("and_relation",1),3)),(LCLoop,Reduce(("and_relation",1),3))]]@slrp'a124;
3656val slrp'a122=[[(LCSemi,Reduce(("expression",5),2)),
3657(LCRRange,Reduce(("expression",5),2)),(LCDigits,Reduce(("expression",5),2)),
3658(LCDelta,Reduce(("expression",5),2)),(LCBecomes,Reduce(("expression",5),2)),
3659(LCComma,Reduce(("expression",5),2)),(LCCrd,Reduce(("expression",5),2)),
3660(LCThen,Reduce(("expression",5),2)),(LCIs,Reduce(("expression",5),2)),
3661(LCGoesTo,Reduce(("expression",5),2)),(LCBar,Reduce(("expression",5),2)),
3662(LCTill,Reduce(("expression",5),2)),(LCLoop,Reduce(("expression",5),2))]]@slrp'a123;
3663val slrp'a121=[[(LCSemi,Reduce(("expression",4),2)),
3664(LCRRange,Reduce(("expression",4),2)),(LCDigits,Reduce(("expression",4),2)),
3665(LCDelta,Reduce(("expression",4),2)),(LCBecomes,Reduce(("expression",4),2)),
3666(LCComma,Reduce(("expression",4),2)),(LCCrd,Reduce(("expression",4),2)),
3667(LCThen,Reduce(("expression",4),2)),(LCIs,Reduce(("expression",4),2)),
3668(LCGoesTo,Reduce(("expression",4),2)),(LCBar,Reduce(("expression",4),2)),
3669(LCTill,Reduce(("expression",4),2)),(LCLoop,Reduce(("expression",4),2))]]@slrp'a122;
3670val slrp'a120=[[(LCSemi,Reduce(("expression",3),2)),
3671(LCRRange,Reduce(("expression",3),2)),(LCDigits,Reduce(("expression",3),2)),
3672(LCDelta,Reduce(("expression",3),2)),(LCBecomes,Reduce(("expression",3),2)),
3673(LCComma,Reduce(("expression",3),2)),(LCCrd,Reduce(("expression",3),2)),
3674(LCThen,Reduce(("expression",3),2)),(LCIs,Reduce(("expression",3),2)),
3675(LCGoesTo,Reduce(("expression",3),2)),(LCBar,Reduce(("expression",3),2)),
3676(LCTill,Reduce(("expression",3),2)),(LCLoop,Reduce(("expression",3),2))]]@slrp'a121;
3677val slrp'a119=[[(LCSemi,Reduce(("expression",2),2)),
3678(LCRRange,Reduce(("expression",2),2)),(LCDigits,Reduce(("expression",2),2)),
3679(LCDelta,Reduce(("expression",2),2)),(LCBecomes,Reduce(("expression",2),2)),
3680(LCComma,Reduce(("expression",2),2)),(LCCrd,Reduce(("expression",2),2)),
3681(LCThen,Reduce(("expression",2),2)),(LCIs,Reduce(("expression",2),2)),
3682(LCGoesTo,Reduce(("expression",2),2)),(LCBar,Reduce(("expression",2),2)),
3683(LCTill,Reduce(("expression",2),2)),(LCLoop,Reduce(("expression",2),2))]]@slrp'a120;
3684val slrp'a118=[[(LCSemi,Reduce(("expression",1),2)),
3685(LCRRange,Reduce(("expression",1),2)),(LCDigits,Reduce(("expression",1),2)),
3686(LCDelta,Reduce(("expression",1),2)),(LCBecomes,Reduce(("expression",1),2)),
3687(LCComma,Reduce(("expression",1),2)),(LCCrd,Reduce(("expression",1),2)),
3688(LCThen,Reduce(("expression",1),2)),(LCIs,Reduce(("expression",1),2)),
3689(LCGoesTo,Reduce(("expression",1),2)),(LCBar,Reduce(("expression",1),2)),
3690(LCTill,Reduce(("expression",1),2)),(LCLoop,Reduce(("expression",1),2))]]@slrp'a119;
3691val slrp'a117=[[(LCCrd,Reduce(("positional_association",1),5))]]@slrp'a118;
3692val slrp'a116=[[(LCGoesTo,Shift 644)]]@slrp'a117;
3693val slrp'a115=[[(LCGoesTo,Reduce(("aggregate_choice",0),1)),
3694(LCBar,Reduce(("aggregate_choice",0),1))]]@slrp'a116;
3695val slrp'a114=[[(LCGoesTo,Reduce(("aggregate_choice_list",2),3))]]@slrp'a115;
3696val slrp'a113=[[(LCGoesTo,Reduce(("aggregate_choice_list",0),1))]]@slrp'a114;
3697val slrp'a112=[[(LCCrd,Reduce(("named_association",1),5))]]@slrp'a113;
3698val slrp'a111=[[(LCCrd,Reduce(("component_association",1),1))]]@slrp'a112;
3699val slrp'a110=[[(LCCrd,Reduce(("component_association",0),1))]]@slrp'a111;
3700val slrp'a109=[[(LCBecomes,Reduce(("aggregate",0),3)),
3701(LCSemi,Reduce(("aggregate",0),3)),(LCRRange,Reduce(("aggregate",0),3)),
3702(LCDigits,Reduce(("aggregate",0),3)),(LCDelta,Reduce(("aggregate",0),3)),
3703(LCComma,Reduce(("aggregate",0),3)),(LCCrd,Reduce(("aggregate",0),3)),
3704(LCAnd,Reduce(("aggregate",0),3)),(LCOr,Reduce(("aggregate",0),3)),
3705(LCXor,Reduce(("aggregate",0),3)),(LCGreaterEquals,Reduce(("aggregate",0),3)),
3706(LCGreaterThan,Reduce(("aggregate",0),3)),
3707(LCLessEquals,Reduce(("aggregate",0),3)),(LCLessThan,Reduce(("aggregate",0),3)),
3708(LCNotEquals,Reduce(("aggregate",0),3)),(LCEquals,Reduce(("aggregate",0),3)),
3709(LCIn,Reduce(("aggregate",0),3)),(LCNot,Reduce(("aggregate",0),3)),
3710(LCDotDot,Reduce(("aggregate",0),3)),(LCAmpersand,Reduce(("aggregate",0),3)),
3711(LCMinus,Reduce(("aggregate",0),3)),(LCPlus,Reduce(("aggregate",0),3)),
3712(LCRem,Reduce(("aggregate",0),3)),(LCMod,Reduce(("aggregate",0),3)),
3713(LCDiv,Reduce(("aggregate",0),3)),(LCStar,Reduce(("aggregate",0),3)),
3714(LCStarStar,Reduce(("aggregate",0),3)),(LCThen,Reduce(("aggregate",0),3)),
3715(LCIs,Reduce(("aggregate",0),3)),(LCGoesTo,Reduce(("aggregate",0),3)),
3716(LCBar,Reduce(("aggregate",0),3)),(LCTill,Reduce(("aggregate",0),3)),
3717(LCLoop,Reduce(("aggregate",0),3))]]@slrp'a110;
3718val slrp'a108=[[(LCCrd,Shift 108)]]@slrp'a109;
3719val slrp'a107=[[(LCUse,Reduce(("attribute",1),2)),
3720(LCOrd,Reduce(("attribute",1),2)),(LCDot,Reduce(("attribute",1),2)),
3721(LCPrimedIdentifier,Reduce(("attribute",1),2)),
3722(LCBecomes,Reduce(("attribute",1),2)),(LCSemi,Reduce(("attribute",1),2)),
3723(LCRRange,Reduce(("attribute",1),2)),(LCDigits,Reduce(("attribute",1),2)),
3724(LCDelta,Reduce(("attribute",1),2)),(LCComma,Reduce(("attribute",1),2)),
3725(LCCrd,Reduce(("attribute",1),2)),(LCAnd,Reduce(("attribute",1),2)),
3726(LCOr,Reduce(("attribute",1),2)),(LCXor,Reduce(("attribute",1),2)),
3727(LCGreaterEquals,Reduce(("attribute",1),2)),
3728(LCGreaterThan,Reduce(("attribute",1),2)),
3729(LCLessEquals,Reduce(("attribute",1),2)),(LCLessThan,Reduce(("attribute",1),2)),
3730(LCNotEquals,Reduce(("attribute",1),2)),(LCEquals,Reduce(("attribute",1),2)),
3731(LCIn,Reduce(("attribute",1),2)),(LCNot,Reduce(("attribute",1),2)),
3732(LCDotDot,Reduce(("attribute",1),2)),(LCAmpersand,Reduce(("attribute",1),2)),
3733(LCMinus,Reduce(("attribute",1),2)),(LCPlus,Reduce(("attribute",1),2)),
3734(LCRem,Reduce(("attribute",1),2)),(LCMod,Reduce(("attribute",1),2)),
3735(LCDiv,Reduce(("attribute",1),2)),(LCStar,Reduce(("attribute",1),2)),
3736(LCStarStar,Reduce(("attribute",1),2)),(LCPrime,Reduce(("attribute",1),2)),
3737(LCGrkXi,Reduce(("attribute",1),2)),(LCRenames,Reduce(("attribute",1),2)),
3738(LCAt,Reduce(("attribute",1),2)),(LCThen,Reduce(("attribute",1),2)),
3739(LCIs,Reduce(("attribute",1),2)),(LCGoesTo,Reduce(("attribute",1),2)),
3740(LCBar,Reduce(("attribute",1),2)),(LCTill,Reduce(("attribute",1),2)),
3741(LCLoop,Reduce(("attribute",1),2)),(LCAnnotation,Reduce(("attribute",1),2)),
3742(LCLChevron,Reduce(("attribute",1),2))]]@slrp'a108;
3743val slrp'a106=[[(LCPrimedIdentifier,Shift 106)]]@slrp'a107;
3744val slrp'a105=[[(LCUse,Reduce(("attribute",0),2)),
3745(LCOrd,Reduce(("attribute",0),2)),(LCDot,Reduce(("attribute",0),2)),
3746(LCPrimedIdentifier,Reduce(("attribute",0),2)),
3747(LCBecomes,Reduce(("attribute",0),2)),(LCSemi,Reduce(("attribute",0),2)),
3748(LCRRange,Reduce(("attribute",0),2)),(LCDigits,Reduce(("attribute",0),2)),
3749(LCDelta,Reduce(("attribute",0),2)),(LCComma,Reduce(("attribute",0),2)),
3750(LCCrd,Reduce(("attribute",0),2)),(LCAnd,Reduce(("attribute",0),2)),
3751(LCOr,Reduce(("attribute",0),2)),(LCXor,Reduce(("attribute",0),2)),
3752(LCGreaterEquals,Reduce(("attribute",0),2)),
3753(LCGreaterThan,Reduce(("attribute",0),2)),
3754(LCLessEquals,Reduce(("attribute",0),2)),(LCLessThan,Reduce(("attribute",0),2)),
3755(LCNotEquals,Reduce(("attribute",0),2)),(LCEquals,Reduce(("attribute",0),2)),
3756(LCIn,Reduce(("attribute",0),2)),(LCNot,Reduce(("attribute",0),2)),
3757(LCDotDot,Reduce(("attribute",0),2)),(LCAmpersand,Reduce(("attribute",0),2)),
3758(LCMinus,Reduce(("attribute",0),2)),(LCPlus,Reduce(("attribute",0),2)),
3759(LCRem,Reduce(("attribute",0),2)),(LCMod,Reduce(("attribute",0),2)),
3760(LCDiv,Reduce(("attribute",0),2)),(LCStar,Reduce(("attribute",0),2)),
3761(LCStarStar,Reduce(("attribute",0),2)),(LCPrime,Reduce(("attribute",0),2)),
3762(LCGrkXi,Reduce(("attribute",0),2)),(LCRenames,Reduce(("attribute",0),2)),
3763(LCAt,Reduce(("attribute",0),2)),(LCThen,Reduce(("attribute",0),2)),
3764(LCIs,Reduce(("attribute",0),2)),(LCGoesTo,Reduce(("attribute",0),2)),
3765(LCBar,Reduce(("attribute",0),2)),(LCTill,Reduce(("attribute",0),2)),
3766(LCLoop,Reduce(("attribute",0),2)),(LCAnnotation,Reduce(("attribute",0),2)),
3767(LCLChevron,Reduce(("attribute",0),2))]]@slrp'a106;
3768val slrp'a104=[[(LCComma,Reduce(("expression_list",1),3)),
3769(LCCrd,Reduce(("expression_list",1),3))]]@slrp'a105;
3770val slrp'a103=[[(LCOrd,Reduce(("selector",0),1)),
3771(LCDot,Reduce(("selector",0),1)),(LCPrimedIdentifier,Reduce(("selector",0),1)),
3772(LCBecomes,Reduce(("selector",0),1)),(LCSemi,Reduce(("selector",0),1)),
3773(LCRRange,Reduce(("selector",0),1)),(LCDigits,Reduce(("selector",0),1)),
3774(LCDelta,Reduce(("selector",0),1)),(LCComma,Reduce(("selector",0),1)),
3775(LCCrd,Reduce(("selector",0),1)),(LCAnd,Reduce(("selector",0),1)),
3776(LCOr,Reduce(("selector",0),1)),(LCXor,Reduce(("selector",0),1)),
3777(LCGreaterEquals,Reduce(("selector",0),1)),
3778(LCGreaterThan,Reduce(("selector",0),1)),(LCLessEquals,Reduce(("selector",0),1))
3779,(LCLessThan,Reduce(("selector",0),1)),(LCNotEquals,Reduce(("selector",0),1)),
3780(LCEquals,Reduce(("selector",0),1)),(LCIn,Reduce(("selector",0),1)),
3781(LCNot,Reduce(("selector",0),1)),(LCDotDot,Reduce(("selector",0),1)),
3782(LCAmpersand,Reduce(("selector",0),1)),(LCMinus,Reduce(("selector",0),1)),
3783(LCPlus,Reduce(("selector",0),1)),(LCRem,Reduce(("selector",0),1)),
3784(LCMod,Reduce(("selector",0),1)),(LCDiv,Reduce(("selector",0),1)),
3785(LCStar,Reduce(("selector",0),1)),(LCStarStar,Reduce(("selector",0),1)),
3786(LCPrime,Reduce(("selector",0),1)),(LCGrkXi,Reduce(("selector",0),1)),
3787(LCRenames,Reduce(("selector",0),1)),(LCAt,Reduce(("selector",0),1)),
3788(LCThen,Reduce(("selector",0),1)),(LCIs,Reduce(("selector",0),1)),
3789(LCGoesTo,Reduce(("selector",0),1)),(LCBar,Reduce(("selector",0),1)),
3790(LCTill,Reduce(("selector",0),1)),(LCLoop,Reduce(("selector",0),1)),
3791(LCAnnotation,Reduce(("selector",0),1)),(LCLChevron,Reduce(("selector",0),1))]]@slrp'a104;
3792val slrp'a102=[[(LCOrd,Reduce(("selected_component",0),3)),
3793(LCDot,Reduce(("selected_component",0),3)),
3794(LCPrimedIdentifier,Reduce(("selected_component",0),3)),
3795(LCBecomes,Reduce(("selected_component",0),3)),
3796(LCSemi,Reduce(("selected_component",0),3)),
3797(LCRRange,Reduce(("selected_component",0),3)),
3798(LCDigits,Reduce(("selected_component",0),3)),
3799(LCDelta,Reduce(("selected_component",0),3)),
3800(LCComma,Reduce(("selected_component",0),3)),
3801(LCCrd,Reduce(("selected_component",0),3)),
3802(LCAnd,Reduce(("selected_component",0),3)),
3803(LCOr,Reduce(("selected_component",0),3)),
3804(LCXor,Reduce(("selected_component",0),3)),
3805(LCGreaterEquals,Reduce(("selected_component",0),3)),
3806(LCGreaterThan,Reduce(("selected_component",0),3)),
3807(LCLessEquals,Reduce(("selected_component",0),3)),
3808(LCLessThan,Reduce(("selected_component",0),3)),
3809(LCNotEquals,Reduce(("selected_component",0),3)),
3810(LCEquals,Reduce(("selected_component",0),3)),
3811(LCIn,Reduce(("selected_component",0),3)),
3812(LCNot,Reduce(("selected_component",0),3)),
3813(LCDotDot,Reduce(("selected_component",0),3)),
3814(LCAmpersand,Reduce(("selected_component",0),3)),
3815(LCMinus,Reduce(("selected_component",0),3)),
3816(LCPlus,Reduce(("selected_component",0),3)),
3817(LCRem,Reduce(("selected_component",0),3)),
3818(LCMod,Reduce(("selected_component",0),3)),
3819(LCDiv,Reduce(("selected_component",0),3)),
3820(LCStar,Reduce(("selected_component",0),3)),
3821(LCStarStar,Reduce(("selected_component",0),3)),
3822(LCPrime,Reduce(("selected_component",0),3)),
3823(LCGrkXi,Reduce(("selected_component",0),3)),
3824(LCRenames,Reduce(("selected_component",0),3)),
3825(LCAt,Reduce(("selected_component",0),3)),
3826(LCThen,Reduce(("selected_component",0),3)),
3827(LCIs,Reduce(("selected_component",0),3)),
3828(LCGoesTo,Reduce(("selected_component",0),3)),
3829(LCBar,Reduce(("selected_component",0),3)),
3830(LCTill,Reduce(("selected_component",0),3)),
3831(LCLoop,Reduce(("selected_component",0),3)),
3832(LCAnnotation,Reduce(("selected_component",0),3)),
3833(LCLChevron,Reduce(("selected_component",0),3))]]@slrp'a103;
3834val slrp'a101=[[(LCOrd,Reduce(("indexed_component",0),2)),
3835(LCDot,Reduce(("indexed_component",0),2)),
3836(LCPrimedIdentifier,Reduce(("indexed_component",0),2)),
3837(LCBecomes,Reduce(("indexed_component",0),2)),
3838(LCSemi,Reduce(("indexed_component",0),2)),
3839(LCRRange,Reduce(("indexed_component",0),2)),
3840(LCDigits,Reduce(("indexed_component",0),2)),
3841(LCDelta,Reduce(("indexed_component",0),2)),
3842(LCComma,Reduce(("indexed_component",0),2)),
3843(LCCrd,Reduce(("indexed_component",0),2)),
3844(LCAnd,Reduce(("indexed_component",0),2)),
3845(LCOr,Reduce(("indexed_component",0),2)),
3846(LCXor,Reduce(("indexed_component",0),2)),
3847(LCGreaterEquals,Reduce(("indexed_component",0),2)),
3848(LCGreaterThan,Reduce(("indexed_component",0),2)),
3849(LCLessEquals,Reduce(("indexed_component",0),2)),
3850(LCLessThan,Reduce(("indexed_component",0),2)),
3851(LCNotEquals,Reduce(("indexed_component",0),2)),
3852(LCEquals,Reduce(("indexed_component",0),2)),
3853(LCIn,Reduce(("indexed_component",0),2)),
3854(LCNot,Reduce(("indexed_component",0),2)),
3855(LCDotDot,Reduce(("indexed_component",0),2)),
3856(LCAmpersand,Reduce(("indexed_component",0),2)),
3857(LCMinus,Reduce(("indexed_component",0),2)),
3858(LCPlus,Reduce(("indexed_component",0),2)),
3859(LCRem,Reduce(("indexed_component",0),2)),
3860(LCMod,Reduce(("indexed_component",0),2)),
3861(LCDiv,Reduce(("indexed_component",0),2)),
3862(LCStar,Reduce(("indexed_component",0),2)),
3863(LCStarStar,Reduce(("indexed_component",0),2)),
3864(LCPrime,Reduce(("indexed_component",0),2)),
3865(LCGrkXi,Reduce(("indexed_component",0),2)),
3866(LCRenames,Reduce(("indexed_component",0),2)),
3867(LCAt,Reduce(("indexed_component",0),2)),
3868(LCThen,Reduce(("indexed_component",0),2)),
3869(LCIs,Reduce(("indexed_component",0),2)),
3870(LCGoesTo,Reduce(("indexed_component",0),2)),
3871(LCBar,Reduce(("indexed_component",0),2)),
3872(LCTill,Reduce(("indexed_component",0),2)),
3873(LCLoop,Reduce(("indexed_component",0),2)),
3874(LCAnnotation,Reduce(("indexed_component",0),2)),
3875(LCLChevron,Reduce(("indexed_component",0),2))]]@slrp'a102;
3876val slrp'a100=[[(LCOrd,Reduce(("name",3),1)),(LCDot,Reduce(("name",3),1)),
3877(LCPrimedIdentifier,Reduce(("name",3),1)),(LCBecomes,Reduce(("name",3),1)),
3878(LCSemi,Reduce(("name",3),1)),(LCRRange,Reduce(("name",3),1)),
3879(LCDigits,Reduce(("name",3),1)),(LCDelta,Reduce(("name",3),1)),
3880(LCComma,Reduce(("name",3),1)),(LCCrd,Reduce(("name",3),1)),
3881(LCAnd,Reduce(("name",3),1)),(LCOr,Reduce(("name",3),1)),
3882(LCXor,Reduce(("name",3),1)),(LCGreaterEquals,Reduce(("name",3),1)),
3883(LCGreaterThan,Reduce(("name",3),1)),(LCLessEquals,Reduce(("name",3),1)),
3884(LCLessThan,Reduce(("name",3),1)),(LCNotEquals,Reduce(("name",3),1)),
3885(LCEquals,Reduce(("name",3),1)),(LCIn,Reduce(("name",3),1)),
3886(LCNot,Reduce(("name",3),1)),(LCDotDot,Reduce(("name",3),1)),
3887(LCAmpersand,Reduce(("name",3),1)),(LCMinus,Reduce(("name",3),1)),
3888(LCPlus,Reduce(("name",3),1)),(LCRem,Reduce(("name",3),1)),
3889(LCMod,Reduce(("name",3),1)),(LCDiv,Reduce(("name",3),1)),
3890(LCStar,Reduce(("name",3),1)),(LCStarStar,Reduce(("name",3),1)),
3891(LCPrime,Reduce(("name",3),1)),(LCGrkXi,Reduce(("name",3),1)),
3892(LCRenames,Reduce(("name",3),1)),(LCAt,Reduce(("name",3),1)),
3893(LCThen,Reduce(("name",3),1)),(LCIs,Reduce(("name",3),1)),
3894(LCGoesTo,Reduce(("name",3),1)),(LCBar,Reduce(("name",3),1)),
3895(LCTill,Reduce(("name",3),1)),(LCLoop,Reduce(("name",3),1)),
3896(LCAnnotation,Reduce(("name",3),1)),(LCLChevron,Reduce(("name",3),1))]]@slrp'a101;
3897val slrp'a99=[[(LCOrd,Reduce(("name",2),1)),(LCDot,Reduce(("name",2),1)),
3898(LCPrimedIdentifier,Reduce(("name",2),1)),(LCBecomes,Reduce(("name",2),1)),
3899(LCSemi,Reduce(("name",2),1)),(LCRRange,Reduce(("name",2),1)),
3900(LCDigits,Reduce(("name",2),1)),(LCDelta,Reduce(("name",2),1)),
3901(LCComma,Reduce(("name",2),1)),(LCCrd,Reduce(("name",2),1)),
3902(LCAnd,Reduce(("name",2),1)),(LCOr,Reduce(("name",2),1)),
3903(LCXor,Reduce(("name",2),1)),(LCGreaterEquals,Reduce(("name",2),1)),
3904(LCGreaterThan,Reduce(("name",2),1)),(LCLessEquals,Reduce(("name",2),1)),
3905(LCLessThan,Reduce(("name",2),1)),(LCNotEquals,Reduce(("name",2),1)),
3906(LCEquals,Reduce(("name",2),1)),(LCIn,Reduce(("name",2),1)),
3907(LCNot,Reduce(("name",2),1)),(LCDotDot,Reduce(("name",2),1)),
3908(LCAmpersand,Reduce(("name",2),1)),(LCMinus,Reduce(("name",2),1)),
3909(LCPlus,Reduce(("name",2),1)),(LCRem,Reduce(("name",2),1)),
3910(LCMod,Reduce(("name",2),1)),(LCDiv,Reduce(("name",2),1)),
3911(LCStar,Reduce(("name",2),1)),(LCStarStar,Reduce(("name",2),1)),
3912(LCPrime,Reduce(("name",2),1)),(LCGrkXi,Reduce(("name",2),1)),
3913(LCRenames,Reduce(("name",2),1)),(LCAt,Reduce(("name",2),1)),
3914(LCThen,Reduce(("name",2),1)),(LCIs,Reduce(("name",2),1)),
3915(LCGoesTo,Reduce(("name",2),1)),(LCBar,Reduce(("name",2),1)),
3916(LCTill,Reduce(("name",2),1)),(LCLoop,Reduce(("name",2),1)),
3917(LCAnnotation,Reduce(("name",2),1)),(LCLChevron,Reduce(("name",2),1))]]@slrp'a100;
3918val slrp'a98=[[(LCOrd,Reduce(("name",1),1)),(LCDot,Reduce(("name",1),1)),
3919(LCPrimedIdentifier,Reduce(("name",1),1)),(LCBecomes,Reduce(("name",1),1)),
3920(LCSemi,Reduce(("name",1),1)),(LCRRange,Reduce(("name",1),1)),
3921(LCDigits,Reduce(("name",1),1)),(LCDelta,Reduce(("name",1),1)),
3922(LCComma,Reduce(("name",1),1)),(LCCrd,Reduce(("name",1),1)),
3923(LCAnd,Reduce(("name",1),1)),(LCOr,Reduce(("name",1),1)),
3924(LCXor,Reduce(("name",1),1)),(LCGreaterEquals,Reduce(("name",1),1)),
3925(LCGreaterThan,Reduce(("name",1),1)),(LCLessEquals,Reduce(("name",1),1)),
3926(LCLessThan,Reduce(("name",1),1)),(LCNotEquals,Reduce(("name",1),1)),
3927(LCEquals,Reduce(("name",1),1)),(LCIn,Reduce(("name",1),1)),
3928(LCNot,Reduce(("name",1),1)),(LCDotDot,Reduce(("name",1),1)),
3929(LCAmpersand,Reduce(("name",1),1)),(LCMinus,Reduce(("name",1),1)),
3930(LCPlus,Reduce(("name",1),1)),(LCRem,Reduce(("name",1),1)),
3931(LCMod,Reduce(("name",1),1)),(LCDiv,Reduce(("name",1),1)),
3932(LCStar,Reduce(("name",1),1)),(LCStarStar,Reduce(("name",1),1)),
3933(LCPrime,Reduce(("name",1),1)),(LCGrkXi,Reduce(("name",1),1)),
3934(LCRenames,Reduce(("name",1),1)),(LCAt,Reduce(("name",1),1)),
3935(LCThen,Reduce(("name",1),1)),(LCIs,Reduce(("name",1),1)),
3936(LCGoesTo,Reduce(("name",1),1)),(LCBar,Reduce(("name",1),1)),
3937(LCTill,Reduce(("name",1),1)),(LCLoop,Reduce(("name",1),1)),
3938(LCAnnotation,Reduce(("name",1),1)),(LCLChevron,Reduce(("name",1),1))]]@slrp'a99;
3939val slrp'a97=[[(LCOrd,Reduce(("name",0),1)),(LCDot,Reduce(("name",0),1)),
3940(LCPrimedIdentifier,Reduce(("name",0),1)),(LCBecomes,Reduce(("name",0),1)),
3941(LCSemi,Reduce(("name",0),1)),(LCRRange,Reduce(("name",0),1)),
3942(LCDigits,Reduce(("name",0),1)),(LCDelta,Reduce(("name",0),1)),
3943(LCComma,Reduce(("name",0),1)),(LCCrd,Reduce(("name",0),1)),
3944(LCAnd,Reduce(("name",0),1)),(LCOr,Reduce(("name",0),1)),
3945(LCXor,Reduce(("name",0),1)),(LCGreaterEquals,Reduce(("name",0),1)),
3946(LCGreaterThan,Reduce(("name",0),1)),(LCLessEquals,Reduce(("name",0),1)),
3947(LCLessThan,Reduce(("name",0),1)),(LCNotEquals,Reduce(("name",0),1)),
3948(LCEquals,Reduce(("name",0),1)),(LCIn,Reduce(("name",0),1)),
3949(LCNot,Reduce(("name",0),1)),(LCDotDot,Reduce(("name",0),1)),
3950(LCAmpersand,Reduce(("name",0),1)),(LCMinus,Reduce(("name",0),1)),
3951(LCPlus,Reduce(("name",0),1)),(LCRem,Reduce(("name",0),1)),
3952(LCMod,Reduce(("name",0),1)),(LCDiv,Reduce(("name",0),1)),
3953(LCStar,Reduce(("name",0),1)),(LCStarStar,Reduce(("name",0),1)),
3954(LCPrime,Reduce(("name",0),1)),(LCGrkXi,Reduce(("name",0),1)),
3955(LCRenames,Reduce(("name",0),1)),(LCAt,Reduce(("name",0),1)),
3956(LCThen,Reduce(("name",0),1)),(LCIs,Reduce(("name",0),1)),
3957(LCGoesTo,Reduce(("name",0),1)),(LCBar,Reduce(("name",0),1)),
3958(LCTill,Reduce(("name",0),1)),(LCLoop,Reduce(("name",0),1)),
3959(LCAnnotation,Reduce(("name",0),1)),(LCLChevron,Reduce(("name",0),1))]]@slrp'a98;
3960val slrp'a96=[[(LCEos,Reduce(("proper_body",0),1)),
3961(LCLChevron,Reduce(("proper_body",0),1)),
3962(LCFunction,Reduce(("proper_body",0),1)),(LCPackage,Reduce(("proper_body",0),1))
3963,(LCIdentifier,Reduce(("proper_body",0),1)),
3964(LCAnnotation,Reduce(("proper_body",0),1)),
3965(LCSubType,Reduce(("proper_body",0),1)),(LCPragma,Reduce(("proper_body",0),1)),
3966(LCProcedure,Reduce(("proper_body",0),1)),(LCType,Reduce(("proper_body",0),1)),
3967(LCFor,Reduce(("proper_body",0),1)),(LCUse,Reduce(("proper_body",0),1)),
3968(LCReferences,Reduce(("proper_body",0),1)),
3969(LCSeparate,Reduce(("proper_body",0),1)),(LCWith,Reduce(("proper_body",0),1)),
3970(LCBegin,Reduce(("proper_body",0),1)),(LCEnd,Reduce(("proper_body",0),1))]]@slrp'a97;
3971val slrp'a95=[[(LCEos,Reduce(("body",1),1)),(LCLChevron,Reduce(("body",1),1)),
3972(LCFunction,Reduce(("body",1),1)),(LCPackage,Reduce(("body",1),1)),
3973(LCIdentifier,Reduce(("body",1),1)),(LCAnnotation,Reduce(("body",1),1)),
3974(LCSubType,Reduce(("body",1),1)),(LCPragma,Reduce(("body",1),1)),
3975(LCProcedure,Reduce(("body",1),1)),(LCType,Reduce(("body",1),1)),
3976(LCFor,Reduce(("body",1),1)),(LCUse,Reduce(("body",1),1)),
3977(LCBegin,Reduce(("body",1),1)),(LCEnd,Reduce(("body",1),1))]]@slrp'a96;
3978val slrp'a94=[[(LCEos,Reduce(("body",0),1)),(LCLChevron,Reduce(("body",0),1)),
3979(LCFunction,Reduce(("body",0),1)),(LCPackage,Reduce(("body",0),1)),
3980(LCIdentifier,Reduce(("body",0),1)),(LCAnnotation,Reduce(("body",0),1)),
3981(LCSubType,Reduce(("body",0),1)),(LCPragma,Reduce(("body",0),1)),
3982(LCProcedure,Reduce(("body",0),1)),(LCType,Reduce(("body",0),1)),
3983(LCFor,Reduce(("body",0),1)),(LCUse,Reduce(("body",0),1)),
3984(LCBegin,Reduce(("body",0),1)),(LCEnd,Reduce(("body",0),1))]]@slrp'a95;
3985val slrp'a93=[[(LCEos,Reduce(("basic_declarative_item",2),1)),
3986(LCLChevron,Reduce(("basic_declarative_item",2),1)),
3987(LCFunction,Reduce(("basic_declarative_item",2),1)),
3988(LCPackage,Reduce(("basic_declarative_item",2),1)),
3989(LCIdentifier,Reduce(("basic_declarative_item",2),1)),
3990(LCAnnotation,Reduce(("basic_declarative_item",2),1)),
3991(LCSubType,Reduce(("basic_declarative_item",2),1)),
3992(LCPragma,Reduce(("basic_declarative_item",2),1)),
3993(LCProcedure,Reduce(("basic_declarative_item",2),1)),
3994(LCType,Reduce(("basic_declarative_item",2),1)),
3995(LCFor,Reduce(("basic_declarative_item",2),1)),
3996(LCUse,Reduce(("basic_declarative_item",2),1)),
3997(LCEnd,Reduce(("basic_declarative_item",2),1)),
3998(LCPrivate,Reduce(("basic_declarative_item",2),1)),
3999(LCAuxiliary,Reduce(("basic_declarative_item",2),1)),
4000(LCBegin,Reduce(("basic_declarative_item",2),1))]]@slrp'a94;
4001val slrp'a92=[[(LCEos,Reduce(("basic_declarative_item",1),1)),
4002(LCLChevron,Reduce(("basic_declarative_item",1),1)),
4003(LCFunction,Reduce(("basic_declarative_item",1),1)),
4004(LCPackage,Reduce(("basic_declarative_item",1),1)),
4005(LCIdentifier,Reduce(("basic_declarative_item",1),1)),
4006(LCAnnotation,Reduce(("basic_declarative_item",1),1)),
4007(LCSubType,Reduce(("basic_declarative_item",1),1)),
4008(LCPragma,Reduce(("basic_declarative_item",1),1)),
4009(LCProcedure,Reduce(("basic_declarative_item",1),1)),
4010(LCType,Reduce(("basic_declarative_item",1),1)),
4011(LCFor,Reduce(("basic_declarative_item",1),1)),
4012(LCUse,Reduce(("basic_declarative_item",1),1)),
4013(LCEnd,Reduce(("basic_declarative_item",1),1)),
4014(LCPrivate,Reduce(("basic_declarative_item",1),1)),
4015(LCAuxiliary,Reduce(("basic_declarative_item",1),1)),
4016(LCBegin,Reduce(("basic_declarative_item",1),1))]]@slrp'a93;
4017val slrp'a91=[[(LCEos,Reduce(("basic_declarative_item",0),1)),
4018(LCLChevron,Reduce(("basic_declarative_item",0),1)),
4019(LCFunction,Reduce(("basic_declarative_item",0),1)),
4020(LCPackage,Reduce(("basic_declarative_item",0),1)),
4021(LCIdentifier,Reduce(("basic_declarative_item",0),1)),
4022(LCAnnotation,Reduce(("basic_declarative_item",0),1)),
4023(LCSubType,Reduce(("basic_declarative_item",0),1)),
4024(LCPragma,Reduce(("basic_declarative_item",0),1)),
4025(LCProcedure,Reduce(("basic_declarative_item",0),1)),
4026(LCType,Reduce(("basic_declarative_item",0),1)),
4027(LCFor,Reduce(("basic_declarative_item",0),1)),
4028(LCUse,Reduce(("basic_declarative_item",0),1)),
4029(LCEnd,Reduce(("basic_declarative_item",0),1)),
4030(LCPrivate,Reduce(("basic_declarative_item",0),1)),
4031(LCAuxiliary,Reduce(("basic_declarative_item",0),1)),
4032(LCBegin,Reduce(("basic_declarative_item",0),1))]]@slrp'a92;
4033val slrp'a90=[[(LCEos,Reduce(("dec",4),1)),(LCLChevron,Reduce(("dec",4),1)),
4034(LCFunction,Reduce(("dec",4),1)),(LCPackage,Reduce(("dec",4),1)),
4035(LCIdentifier,Reduce(("dec",4),1)),(LCAnnotation,Reduce(("dec",4),1)),
4036(LCSubType,Reduce(("dec",4),1)),(LCPragma,Reduce(("dec",4),1)),
4037(LCProcedure,Reduce(("dec",4),1)),(LCType,Reduce(("dec",4),1)),
4038(LCFor,Reduce(("dec",4),1)),(LCUse,Reduce(("dec",4),1)),
4039(LCBegin,Reduce(("dec",4),1)),(LCEnd,Reduce(("dec",4),1))]]@slrp'a91;
4040val slrp'a89=[[(LCEos,Reduce(("dec",3),1)),(LCLChevron,Reduce(("dec",3),1)),
4041(LCFunction,Reduce(("dec",3),1)),(LCPackage,Reduce(("dec",3),1)),
4042(LCIdentifier,Reduce(("dec",3),1)),(LCAnnotation,Reduce(("dec",3),1)),
4043(LCSubType,Reduce(("dec",3),1)),(LCPragma,Reduce(("dec",3),1)),
4044(LCProcedure,Reduce(("dec",3),1)),(LCType,Reduce(("dec",3),1)),
4045(LCFor,Reduce(("dec",3),1)),(LCUse,Reduce(("dec",3),1)),
4046(LCBegin,Reduce(("dec",3),1)),(LCEnd,Reduce(("dec",3),1))]]@slrp'a90;
4047val slrp'a88=[[(LCEos,Reduce(("dec",2),1)),(LCLChevron,Reduce(("dec",2),1)),
4048(LCFunction,Reduce(("dec",2),1)),(LCPackage,Reduce(("dec",2),1)),
4049(LCIdentifier,Reduce(("dec",2),1)),(LCAnnotation,Reduce(("dec",2),1)),
4050(LCSubType,Reduce(("dec",2),1)),(LCPragma,Reduce(("dec",2),1)),
4051(LCProcedure,Reduce(("dec",2),1)),(LCType,Reduce(("dec",2),1)),
4052(LCFor,Reduce(("dec",2),1)),(LCUse,Reduce(("dec",2),1)),
4053(LCBegin,Reduce(("dec",2),1)),(LCEnd,Reduce(("dec",2),1))]]@slrp'a89;
4054val slrp'a87=[[(LCEos,Reduce(("dec",1),1)),(LCLChevron,Reduce(("dec",1),1)),
4055(LCFunction,Reduce(("dec",1),1)),(LCPackage,Reduce(("dec",1),1)),
4056(LCIdentifier,Reduce(("dec",1),1)),(LCAnnotation,Reduce(("dec",1),1)),
4057(LCSubType,Reduce(("dec",1),1)),(LCPragma,Reduce(("dec",1),1)),
4058(LCProcedure,Reduce(("dec",1),1)),(LCType,Reduce(("dec",1),1)),
4059(LCFor,Reduce(("dec",1),1)),(LCUse,Reduce(("dec",1),1)),
4060(LCBegin,Reduce(("dec",1),1)),(LCEnd,Reduce(("dec",1),1))]]@slrp'a88;
4061val slrp'a86=[[(LCEos,Reduce(("dec",0),1)),(LCLChevron,Reduce(("dec",0),1)),
4062(LCFunction,Reduce(("dec",0),1)),(LCPackage,Reduce(("dec",0),1)),
4063(LCIdentifier,Reduce(("dec",0),1)),(LCAnnotation,Reduce(("dec",0),1)),
4064(LCSubType,Reduce(("dec",0),1)),(LCPragma,Reduce(("dec",0),1)),
4065(LCProcedure,Reduce(("dec",0),1)),(LCType,Reduce(("dec",0),1)),
4066(LCFor,Reduce(("dec",0),1)),(LCUse,Reduce(("dec",0),1)),
4067(LCBegin,Reduce(("dec",0),1)),(LCEnd,Reduce(("dec",0),1))]]@slrp'a87;
4068val slrp'a85=[[(LCEos,Reduce(("declarative_part",1),2)),
4069(LCBegin,Reduce(("declarative_part",1),2)),
4070(LCEnd,Reduce(("declarative_part",1),2))]]@slrp'a86;
4071val slrp'a84=[[(LCEnd,Reduce(("component_declaration",0),4)),
4072(LCIdentifier,Reduce(("component_declaration",0),4))]]@slrp'a85;
4073val slrp'a83=[[(LCSemi,Shift 83)]]@slrp'a84;
4074val slrp'a82=[[(LCColon,Shift 660)]]@slrp'a83;
4075val slrp'a81=[[(LCEnd,Reduce(("component_list",1),2))]]@slrp'a82;
4076val slrp'a80=[[(LCSemi,Reduce(("record_type_definition",0),4))]]@slrp'a81;
4077val slrp'a79=[[(LCRecord,Shift 79)]]@slrp'a80;
4078val slrp'a78=[[(LCEnd,Shift 78)]]@slrp'a79;
4079val slrp'a77=[[(LCGoesTo,Reduce(("discrete_range",0),2)),
4080(LCBar,Reduce(("discrete_range",0),2)),(LCTill,Reduce(("discrete_range",0),2)),
4081(LCLoop,Reduce(("discrete_range",0),2))]]@slrp'a78;
4082val slrp'a76=[[(LCCrd,Reduce(("discrete_range_list",1),3))]]@slrp'a77;
4083val slrp'a75=[[(LCOf,Reduce(("index_constraint",0),3))]]@slrp'a76;
4084val slrp'a74=[[(LCCrd,Shift 74)]]@slrp'a75;
4085val slrp'a73=[[(LCCrd,Reduce(("index_subtype_definition",0),3)),
4086(LCComma,Reduce(("index_subtype_definition",0),3))]]@slrp'a74;
4087val slrp'a72=[[(LCLessGreat,Shift 72)]]@slrp'a73;
4088val slrp'a71=[[(LCRRange,Shift 71)]]@slrp'a72;
4089val slrp'a70=[[(LCCrd,Reduce(("index_subtype_definition_list",1),3))]]@slrp'a71;
4090val slrp'a69=[[(LCSemi,Reduce(("constrained_array_definition",0),4))]]@slrp'a70;
4091val slrp'a68=[[(LCOf,Shift 659)]]@slrp'a69;
4092val slrp'a67=[[(LCSemi,Reduce(("unconstrained_array_definition",0),6))]]@slrp'a68;
4093val slrp'a66=[[(LCOf,Shift 658)]]@slrp'a67;
4094val slrp'a65=[[(LCCrd,Shift 65)]]@slrp'a66;
4095val slrp'a64=[[(LCSemi,Reduce(("array_type_definition",1),1))]]@slrp'a65;
4096val slrp'a63=[[(LCSemi,Reduce(("array_type_definition",0),1))]]@slrp'a64;
4097val slrp'a62=[[(LCBecomes,Reduce(("fixed_accuracy_definition",0),2)),
4098(LCSemi,Reduce(("fixed_accuracy_definition",0),2)),
4099(LCRRange,Reduce(("fixed_accuracy_definition",0),2)),
4100(LCCrd,Reduce(("fixed_accuracy_definition",0),2)),
4101(LCComma,Reduce(("fixed_accuracy_definition",0),2))]]@slrp'a63;
4102val slrp'a61=[[(LCBecomes,Reduce(("fixed_point_constraint",1),2)),
4103(LCSemi,Reduce(("fixed_point_constraint",1),2)),
4104(LCCrd,Reduce(("fixed_point_constraint",1),2)),
4105(LCComma,Reduce(("fixed_point_constraint",1),2))]]@slrp'a62;
4106val slrp'a60=[[(LCBecomes,Reduce(("floating_accuracy_definition",0),2)),
4107(LCSemi,Reduce(("floating_accuracy_definition",0),2)),
4108(LCRRange,Reduce(("floating_accuracy_definition",0),2)),
4109(LCCrd,Reduce(("floating_accuracy_definition",0),2)),
4110(LCComma,Reduce(("floating_accuracy_definition",0),2))]]@slrp'a61;
4111val slrp'a59=[[(LCBecomes,Reduce(("floating_point_constraint",1),2)),
4112(LCSemi,Reduce(("floating_point_constraint",1),2)),
4113(LCCrd,Reduce(("floating_point_constraint",1),2)),
4114(LCComma,Reduce(("floating_point_constraint",1),2))]]@slrp'a60;
4115val slrp'a58=[[(LCSemi,Reduce(("real_type_definition",1),1))]]@slrp'a59;
4116val slrp'a57=[[(LCSemi,Reduce(("real_type_definition",0),1))]]@slrp'a58;
4117val slrp'a56=[[(LCSemi,Reduce(("integer_type_definition",0),1))]]@slrp'a57;
4118val slrp'a55=[[(LCSemi,Reduce(("enumeration_type_definition",0),3))]]@slrp'a56;
4119val slrp'a54=[[(LCCrd,Shift 54)]]@slrp'a55;
4120val slrp'a53=[[(LCBecomes,Reduce(("range_constraint",0),2)),
4121(LCSemi,Reduce(("range_constraint",0),2)),
4122(LCCrd,Reduce(("range_constraint",0),2)),
4123(LCComma,Reduce(("range_constraint",0),2)),
4124(LCGoesTo,Reduce(("range_constraint",0),2)),
4125(LCBar,Reduce(("range_constraint",0),2)),
4126(LCTill,Reduce(("range_constraint",0),2)),
4127(LCLoop,Reduce(("range_constraint",0),2))]]@slrp'a54;
4128val slrp'a52=[[(LCBecomes,Reduce(("constraint",2),1)),
4129(LCSemi,Reduce(("constraint",2),1)),(LCCrd,Reduce(("constraint",2),1)),
4130(LCComma,Reduce(("constraint",2),1))]]@slrp'a53;
4131val slrp'a51=[[(LCBecomes,Reduce(("constraint",1),1)),
4132(LCSemi,Reduce(("constraint",1),1)),(LCCrd,Reduce(("constraint",1),1)),
4133(LCComma,Reduce(("constraint",1),1))]]@slrp'a52;
4134val slrp'a50=[[(LCBecomes,Reduce(("constraint",0),1)),
4135(LCSemi,Reduce(("constraint",0),1)),(LCCrd,Reduce(("constraint",0),1)),
4136(LCComma,Reduce(("constraint",0),1))]]@slrp'a51;
4137val slrp'a49=[[(LCBecomes,Reduce(("subtype_indication",0),2)),
4138(LCSemi,Reduce(("subtype_indication",0),2)),
4139(LCCrd,Reduce(("subtype_indication",0),2)),
4140(LCComma,Reduce(("subtype_indication",0),2))]]@slrp'a50;
4141val slrp'a48=[[(LCEos,Reduce(("subtype_declaration",0),5)),
4142(LCLChevron,Reduce(("subtype_declaration",0),5)),
4143(LCFunction,Reduce(("subtype_declaration",0),5)),
4144(LCPackage,Reduce(("subtype_declaration",0),5)),
4145(LCIdentifier,Reduce(("subtype_declaration",0),5)),
4146(LCAnnotation,Reduce(("subtype_declaration",0),5)),
4147(LCSubType,Reduce(("subtype_declaration",0),5)),
4148(LCPragma,Reduce(("subtype_declaration",0),5)),
4149(LCProcedure,Reduce(("subtype_declaration",0),5)),
4150(LCType,Reduce(("subtype_declaration",0),5)),
4151(LCFor,Reduce(("subtype_declaration",0),5)),
4152(LCUse,Reduce(("subtype_declaration",0),5)),
4153(LCImplement,Reduce(("subtype_declaration",0),5)),
4154(LCEnd,Reduce(("subtype_declaration",0),5)),
4155(LCPrivate,Reduce(("subtype_declaration",0),5)),
4156(LCAuxiliary,Reduce(("subtype_declaration",0),5)),
4157(LCBegin,Reduce(("subtype_declaration",0),5))]]@slrp'a49;
4158val slrp'a47=[[(LCSemi,Shift 47)]]@slrp'a48;
4159val slrp'a46=[[(LCIs,Shift 657)]]@slrp'a47;
4160val slrp'a45=[[(LCIdentifier,Shift 45)]]@slrp'a46;
4161val slrp'a44=[[(LCSemi,Reduce(("type_definition",4),1))]]@slrp'a45;
4162val slrp'a43=[[(LCSemi,Reduce(("type_definition",3),1))]]@slrp'a44;
4163val slrp'a42=[[(LCSemi,Reduce(("type_definition",2),1))]]@slrp'a43;
4164val slrp'a41=[[(LCSemi,Reduce(("type_definition",1),1))]]@slrp'a42;
4165val slrp'a40=[[(LCSemi,Reduce(("type_definition",0),1))]]@slrp'a41;
4166val slrp'a39=[[(LCEos,Reduce(("full_type_declaration",1),6)),
4167(LCLChevron,Reduce(("full_type_declaration",1),6)),
4168(LCFunction,Reduce(("full_type_declaration",1),6)),
4169(LCPackage,Reduce(("full_type_declaration",1),6)),
4170(LCIdentifier,Reduce(("full_type_declaration",1),6)),
4171(LCAnnotation,Reduce(("full_type_declaration",1),6)),
4172(LCSubType,Reduce(("full_type_declaration",1),6)),
4173(LCPragma,Reduce(("full_type_declaration",1),6)),
4174(LCProcedure,Reduce(("full_type_declaration",1),6)),
4175(LCType,Reduce(("full_type_declaration",1),6)),
4176(LCFor,Reduce(("full_type_declaration",1),6)),
4177(LCUse,Reduce(("full_type_declaration",1),6)),
4178(LCImplement,Reduce(("full_type_declaration",1),6)),
4179(LCEnd,Reduce(("full_type_declaration",1),6)),
4180(LCPrivate,Reduce(("full_type_declaration",1),6)),
4181(LCAuxiliary,Reduce(("full_type_declaration",1),6)),
4182(LCBegin,Reduce(("full_type_declaration",1),6))]]@slrp'a40;
4183val slrp'a38=[[(LCSemi,Shift 38)]]@slrp'a39;
4184val slrp'a37=[[(LCEos,Reduce(("full_type_declaration",0),5)),
4185(LCLChevron,Reduce(("full_type_declaration",0),5)),
4186(LCFunction,Reduce(("full_type_declaration",0),5)),
4187(LCPackage,Reduce(("full_type_declaration",0),5)),
4188(LCIdentifier,Reduce(("full_type_declaration",0),5)),
4189(LCAnnotation,Reduce(("full_type_declaration",0),5)),
4190(LCSubType,Reduce(("full_type_declaration",0),5)),
4191(LCPragma,Reduce(("full_type_declaration",0),5)),
4192(LCProcedure,Reduce(("full_type_declaration",0),5)),
4193(LCType,Reduce(("full_type_declaration",0),5)),
4194(LCFor,Reduce(("full_type_declaration",0),5)),
4195(LCUse,Reduce(("full_type_declaration",0),5)),
4196(LCImplement,Reduce(("full_type_declaration",0),5)),
4197(LCEnd,Reduce(("full_type_declaration",0),5)),
4198(LCPrivate,Reduce(("full_type_declaration",0),5)),
4199(LCAuxiliary,Reduce(("full_type_declaration",0),5)),
4200(LCBegin,Reduce(("full_type_declaration",0),5))]]@slrp'a38;
4201val slrp'a36=[[(LCSemi,Shift 36)]]@slrp'a37;
4202val slrp'a35=[[(LCEos,Reduce(("type_declaration",1),1)),
4203(LCLChevron,Reduce(("type_declaration",1),1)),
4204(LCFunction,Reduce(("type_declaration",1),1)),
4205(LCPackage,Reduce(("type_declaration",1),1)),
4206(LCIdentifier,Reduce(("type_declaration",1),1)),
4207(LCAnnotation,Reduce(("type_declaration",1),1)),
4208(LCSubType,Reduce(("type_declaration",1),1)),
4209(LCPragma,Reduce(("type_declaration",1),1)),
4210(LCProcedure,Reduce(("type_declaration",1),1)),
4211(LCType,Reduce(("type_declaration",1),1)),
4212(LCFor,Reduce(("type_declaration",1),1)),
4213(LCUse,Reduce(("type_declaration",1),1)),
4214(LCImplement,Reduce(("type_declaration",1),1)),
4215(LCEnd,Reduce(("type_declaration",1),1)),
4216(LCPrivate,Reduce(("type_declaration",1),1)),
4217(LCAuxiliary,Reduce(("type_declaration",1),1)),
4218(LCBegin,Reduce(("type_declaration",1),1))]]@slrp'a36;
4219val slrp'a34=[[(LCEos,Reduce(("type_declaration",0),1)),
4220(LCLChevron,Reduce(("type_declaration",0),1)),
4221(LCFunction,Reduce(("type_declaration",0),1)),
4222(LCPackage,Reduce(("type_declaration",0),1)),
4223(LCIdentifier,Reduce(("type_declaration",0),1)),
4224(LCAnnotation,Reduce(("type_declaration",0),1)),
4225(LCSubType,Reduce(("type_declaration",0),1)),
4226(LCPragma,Reduce(("type_declaration",0),1)),
4227(LCProcedure,Reduce(("type_declaration",0),1)),
4228(LCType,Reduce(("type_declaration",0),1)),
4229(LCFor,Reduce(("type_declaration",0),1)),
4230(LCUse,Reduce(("type_declaration",0),1)),
4231(LCImplement,Reduce(("type_declaration",0),1)),
4232(LCEnd,Reduce(("type_declaration",0),1)),
4233(LCPrivate,Reduce(("type_declaration",0),1)),
4234(LCAuxiliary,Reduce(("type_declaration",0),1)),
4235(LCBegin,Reduce(("type_declaration",0),1))]]@slrp'a35;
4236val slrp'a33=[[(LCColon,Reduce(("identifier_list",1),3)),
4237(LCCrd,Reduce(("identifier_list",1),3)),(LCSemi,Reduce(("identifier_list",1),3))
4238]]@slrp'a34;
4239val slrp'a32=[[(LCEos,Reduce(("variable_declaration",1),6)),
4240(LCLChevron,Reduce(("variable_declaration",1),6)),
4241(LCFunction,Reduce(("variable_declaration",1),6)),
4242(LCPackage,Reduce(("variable_declaration",1),6)),
4243(LCIdentifier,Reduce(("variable_declaration",1),6)),
4244(LCAnnotation,Reduce(("variable_declaration",1),6)),
4245(LCSubType,Reduce(("variable_declaration",1),6)),
4246(LCPragma,Reduce(("variable_declaration",1),6)),
4247(LCProcedure,Reduce(("variable_declaration",1),6)),
4248(LCType,Reduce(("variable_declaration",1),6)),
4249(LCFor,Reduce(("variable_declaration",1),6)),
4250(LCUse,Reduce(("variable_declaration",1),6)),
4251(LCImplement,Reduce(("variable_declaration",1),6)),
4252(LCEnd,Reduce(("variable_declaration",1),6)),
4253(LCPrivate,Reduce(("variable_declaration",1),6)),
4254(LCAuxiliary,Reduce(("variable_declaration",1),6)),
4255(LCBegin,Reduce(("variable_declaration",1),6))]]@slrp'a33;
4256val slrp'a31=[[(LCSemi,Shift 31)]]@slrp'a32;
4257val slrp'a30=[[(LCEos,Reduce(("variable_declaration",0),4)),
4258(LCLChevron,Reduce(("variable_declaration",0),4)),
4259(LCFunction,Reduce(("variable_declaration",0),4)),
4260(LCPackage,Reduce(("variable_declaration",0),4)),
4261(LCIdentifier,Reduce(("variable_declaration",0),4)),
4262(LCAnnotation,Reduce(("variable_declaration",0),4)),
4263(LCSubType,Reduce(("variable_declaration",0),4)),
4264(LCPragma,Reduce(("variable_declaration",0),4)),
4265(LCProcedure,Reduce(("variable_declaration",0),4)),
4266(LCType,Reduce(("variable_declaration",0),4)),
4267(LCFor,Reduce(("variable_declaration",0),4)),
4268(LCUse,Reduce(("variable_declaration",0),4)),
4269(LCImplement,Reduce(("variable_declaration",0),4)),
4270(LCEnd,Reduce(("variable_declaration",0),4)),
4271(LCPrivate,Reduce(("variable_declaration",0),4)),
4272(LCAuxiliary,Reduce(("variable_declaration",0),4)),
4273(LCBegin,Reduce(("variable_declaration",0),4))]]@slrp'a31;
4274val slrp'a29=[[(LCEos,Reduce(("constant_declaration",1),6)),
4275(LCLChevron,Reduce(("constant_declaration",1),6)),
4276(LCFunction,Reduce(("constant_declaration",1),6)),
4277(LCPackage,Reduce(("constant_declaration",1),6)),
4278(LCIdentifier,Reduce(("constant_declaration",1),6)),
4279(LCAnnotation,Reduce(("constant_declaration",1),6)),
4280(LCSubType,Reduce(("constant_declaration",1),6)),
4281(LCPragma,Reduce(("constant_declaration",1),6)),
4282(LCProcedure,Reduce(("constant_declaration",1),6)),
4283(LCType,Reduce(("constant_declaration",1),6)),
4284(LCFor,Reduce(("constant_declaration",1),6)),
4285(LCUse,Reduce(("constant_declaration",1),6)),
4286(LCImplement,Reduce(("constant_declaration",1),6)),
4287(LCEnd,Reduce(("constant_declaration",1),6)),
4288(LCPrivate,Reduce(("constant_declaration",1),6)),
4289(LCAuxiliary,Reduce(("constant_declaration",1),6)),
4290(LCBegin,Reduce(("constant_declaration",1),6))]]@slrp'a30;
4291val slrp'a28=[[(LCSemi,Shift 28)]]@slrp'a29;
4292val slrp'a27=[[(LCEos,Reduce(("constant_declaration",0),7)),
4293(LCLChevron,Reduce(("constant_declaration",0),7)),
4294(LCFunction,Reduce(("constant_declaration",0),7)),
4295(LCPackage,Reduce(("constant_declaration",0),7)),
4296(LCIdentifier,Reduce(("constant_declaration",0),7)),
4297(LCAnnotation,Reduce(("constant_declaration",0),7)),
4298(LCSubType,Reduce(("constant_declaration",0),7)),
4299(LCPragma,Reduce(("constant_declaration",0),7)),
4300(LCProcedure,Reduce(("constant_declaration",0),7)),
4301(LCType,Reduce(("constant_declaration",0),7)),
4302(LCFor,Reduce(("constant_declaration",0),7)),
4303(LCUse,Reduce(("constant_declaration",0),7)),
4304(LCImplement,Reduce(("constant_declaration",0),7)),
4305(LCEnd,Reduce(("constant_declaration",0),7)),
4306(LCPrivate,Reduce(("constant_declaration",0),7)),
4307(LCAuxiliary,Reduce(("constant_declaration",0),7)),
4308(LCBegin,Reduce(("constant_declaration",0),7))]]@slrp'a28;
4309val slrp'a26=[[(LCSemi,Shift 26)]]@slrp'a27;
4310val slrp'a25=[[(LCEos,Reduce(("object_declaration",1),1)),
4311(LCLChevron,Reduce(("object_declaration",1),1)),
4312(LCFunction,Reduce(("object_declaration",1),1)),
4313(LCPackage,Reduce(("object_declaration",1),1)),
4314(LCIdentifier,Reduce(("object_declaration",1),1)),
4315(LCAnnotation,Reduce(("object_declaration",1),1)),
4316(LCSubType,Reduce(("object_declaration",1),1)),
4317(LCPragma,Reduce(("object_declaration",1),1)),
4318(LCProcedure,Reduce(("object_declaration",1),1)),
4319(LCType,Reduce(("object_declaration",1),1)),
4320(LCFor,Reduce(("object_declaration",1),1)),
4321(LCUse,Reduce(("object_declaration",1),1)),
4322(LCImplement,Reduce(("object_declaration",1),1)),
4323(LCEnd,Reduce(("object_declaration",1),1)),
4324(LCPrivate,Reduce(("object_declaration",1),1)),
4325(LCAuxiliary,Reduce(("object_declaration",1),1)),
4326(LCBegin,Reduce(("object_declaration",1),1))]]@slrp'a26;
4327val slrp'a24=[[(LCEos,Reduce(("object_declaration",0),1)),
4328(LCLChevron,Reduce(("object_declaration",0),1)),
4329(LCFunction,Reduce(("object_declaration",0),1)),
4330(LCPackage,Reduce(("object_declaration",0),1)),
4331(LCIdentifier,Reduce(("object_declaration",0),1)),
4332(LCAnnotation,Reduce(("object_declaration",0),1)),
4333(LCSubType,Reduce(("object_declaration",0),1)),
4334(LCPragma,Reduce(("object_declaration",0),1)),
4335(LCProcedure,Reduce(("object_declaration",0),1)),
4336(LCType,Reduce(("object_declaration",0),1)),
4337(LCFor,Reduce(("object_declaration",0),1)),
4338(LCUse,Reduce(("object_declaration",0),1)),
4339(LCImplement,Reduce(("object_declaration",0),1)),
4340(LCEnd,Reduce(("object_declaration",0),1)),
4341(LCPrivate,Reduce(("object_declaration",0),1)),
4342(LCAuxiliary,Reduce(("object_declaration",0),1)),
4343(LCBegin,Reduce(("object_declaration",0),1))]]@slrp'a25;
4344val slrp'a23=[[(LCEos,Reduce(("basic_declaration",5),1)),
4345(LCLChevron,Reduce(("basic_declaration",5),1)),
4346(LCFunction,Reduce(("basic_declaration",5),1)),
4347(LCPackage,Reduce(("basic_declaration",5),1)),
4348(LCIdentifier,Reduce(("basic_declaration",5),1)),
4349(LCAnnotation,Reduce(("basic_declaration",5),1)),
4350(LCSubType,Reduce(("basic_declaration",5),1)),
4351(LCPragma,Reduce(("basic_declaration",5),1)),
4352(LCProcedure,Reduce(("basic_declaration",5),1)),
4353(LCType,Reduce(("basic_declaration",5),1)),
4354(LCFor,Reduce(("basic_declaration",5),1)),
4355(LCUse,Reduce(("basic_declaration",5),1)),
4356(LCImplement,Reduce(("basic_declaration",5),1)),
4357(LCEnd,Reduce(("basic_declaration",5),1)),
4358(LCPrivate,Reduce(("basic_declaration",5),1)),
4359(LCAuxiliary,Reduce(("basic_declaration",5),1)),
4360(LCBegin,Reduce(("basic_declaration",5),1))]]@slrp'a24;
4361val slrp'a22=[[(LCEos,Reduce(("basic_declaration",4),1)),
4362(LCLChevron,Reduce(("basic_declaration",4),1)),
4363(LCFunction,Reduce(("basic_declaration",4),1)),
4364(LCPackage,Reduce(("basic_declaration",4),1)),
4365(LCIdentifier,Reduce(("basic_declaration",4),1)),
4366(LCAnnotation,Reduce(("basic_declaration",4),1)),
4367(LCSubType,Reduce(("basic_declaration",4),1)),
4368(LCPragma,Reduce(("basic_declaration",4),1)),
4369(LCProcedure,Reduce(("basic_declaration",4),1)),
4370(LCType,Reduce(("basic_declaration",4),1)),
4371(LCFor,Reduce(("basic_declaration",4),1)),
4372(LCUse,Reduce(("basic_declaration",4),1)),
4373(LCImplement,Reduce(("basic_declaration",4),1)),
4374(LCEnd,Reduce(("basic_declaration",4),1)),
4375(LCPrivate,Reduce(("basic_declaration",4),1)),
4376(LCAuxiliary,Reduce(("basic_declaration",4),1)),
4377(LCBegin,Reduce(("basic_declaration",4),1))]]@slrp'a23;
4378val slrp'a21=[[(LCEos,Reduce(("basic_declaration",3),1)),
4379(LCLChevron,Reduce(("basic_declaration",3),1)),
4380(LCFunction,Reduce(("basic_declaration",3),1)),
4381(LCPackage,Reduce(("basic_declaration",3),1)),
4382(LCIdentifier,Reduce(("basic_declaration",3),1)),
4383(LCAnnotation,Reduce(("basic_declaration",3),1)),
4384(LCSubType,Reduce(("basic_declaration",3),1)),
4385(LCPragma,Reduce(("basic_declaration",3),1)),
4386(LCProcedure,Reduce(("basic_declaration",3),1)),
4387(LCType,Reduce(("basic_declaration",3),1)),
4388(LCFor,Reduce(("basic_declaration",3),1)),
4389(LCUse,Reduce(("basic_declaration",3),1)),
4390(LCImplement,Reduce(("basic_declaration",3),1)),
4391(LCEnd,Reduce(("basic_declaration",3),1)),
4392(LCPrivate,Reduce(("basic_declaration",3),1)),
4393(LCAuxiliary,Reduce(("basic_declaration",3),1)),
4394(LCBegin,Reduce(("basic_declaration",3),1))]]@slrp'a22;
4395val slrp'a20=[[(LCEos,Reduce(("basic_declaration",2),1)),
4396(LCLChevron,Reduce(("basic_declaration",2),1)),
4397(LCFunction,Reduce(("basic_declaration",2),1)),
4398(LCPackage,Reduce(("basic_declaration",2),1)),
4399(LCIdentifier,Reduce(("basic_declaration",2),1)),
4400(LCAnnotation,Reduce(("basic_declaration",2),1)),
4401(LCSubType,Reduce(("basic_declaration",2),1)),
4402(LCPragma,Reduce(("basic_declaration",2),1)),
4403(LCProcedure,Reduce(("basic_declaration",2),1)),
4404(LCType,Reduce(("basic_declaration",2),1)),
4405(LCFor,Reduce(("basic_declaration",2),1)),
4406(LCUse,Reduce(("basic_declaration",2),1)),
4407(LCImplement,Reduce(("basic_declaration",2),1)),
4408(LCEnd,Reduce(("basic_declaration",2),1)),
4409(LCPrivate,Reduce(("basic_declaration",2),1)),
4410(LCAuxiliary,Reduce(("basic_declaration",2),1)),
4411(LCBegin,Reduce(("basic_declaration",2),1))]]@slrp'a21;
4412val slrp'a19=[[(LCEos,Reduce(("basic_declaration",1),1)),
4413(LCLChevron,Reduce(("basic_declaration",1),1)),
4414(LCFunction,Reduce(("basic_declaration",1),1)),
4415(LCPackage,Reduce(("basic_declaration",1),1)),
4416(LCIdentifier,Reduce(("basic_declaration",1),1)),
4417(LCAnnotation,Reduce(("basic_declaration",1),1)),
4418(LCSubType,Reduce(("basic_declaration",1),1)),
4419(LCPragma,Reduce(("basic_declaration",1),1)),
4420(LCProcedure,Reduce(("basic_declaration",1),1)),
4421(LCType,Reduce(("basic_declaration",1),1)),
4422(LCFor,Reduce(("basic_declaration",1),1)),
4423(LCUse,Reduce(("basic_declaration",1),1)),
4424(LCImplement,Reduce(("basic_declaration",1),1)),
4425(LCEnd,Reduce(("basic_declaration",1),1)),
4426(LCPrivate,Reduce(("basic_declaration",1),1)),
4427(LCAuxiliary,Reduce(("basic_declaration",1),1)),
4428(LCBegin,Reduce(("basic_declaration",1),1))]]@slrp'a20;
4429val slrp'a18=[[(LCEos,Reduce(("basic_declaration",0),1)),
4430(LCLChevron,Reduce(("basic_declaration",0),1)),
4431(LCFunction,Reduce(("basic_declaration",0),1)),
4432(LCPackage,Reduce(("basic_declaration",0),1)),
4433(LCIdentifier,Reduce(("basic_declaration",0),1)),
4434(LCAnnotation,Reduce(("basic_declaration",0),1)),
4435(LCSubType,Reduce(("basic_declaration",0),1)),
4436(LCPragma,Reduce(("basic_declaration",0),1)),
4437(LCProcedure,Reduce(("basic_declaration",0),1)),
4438(LCType,Reduce(("basic_declaration",0),1)),
4439(LCFor,Reduce(("basic_declaration",0),1)),
4440(LCUse,Reduce(("basic_declaration",0),1)),
4441(LCImplement,Reduce(("basic_declaration",0),1)),
4442(LCEnd,Reduce(("basic_declaration",0),1)),
4443(LCPrivate,Reduce(("basic_declaration",0),1)),
4444(LCAuxiliary,Reduce(("basic_declaration",0),1)),
4445(LCBegin,Reduce(("basic_declaration",0),1))]]@slrp'a19;
4446val slrp'a17=[[(LCEos,Reduce(("sequence_of_statements_or_block",1),1))]]@slrp'a18;
4447val slrp'a16=[[(LCEos,Reduce(("sequence_of_statements_or_block",0),1))]]@slrp'a17;
4448val slrp'a15=[[(LCEos,Reduce(("web_clause",12),3))]]@slrp'a16;
4449val slrp'a14=[[(LCEos,Reduce(("web_clause",11),1))]]@slrp'a15;
4450val slrp'a13=[[(LCEos,Reduce(("web_clause",10),2))]]@slrp'a14;
4451val slrp'a12=[[(LCArbitraryAda,Shift 12)]]@slrp'a13;
4452val slrp'a11=[[(LCEos,Reduce(("web_clause",9),2))]]@slrp'a12;
4453val slrp'a10=[[(LCEos,Reduce(("web_clause",8),3))]]@slrp'a11;
4454val slrp'a9=[[(LCEos,Reduce(("web_clause",7),2))]]@slrp'a10;
4455val slrp'a8=[[(LCEos,Reduce(("web_clause",6),3))]]@slrp'a9;
4456val slrp'a7=[[(LCEos,Reduce(("web_clause",5),3))]]@slrp'a8;
4457val slrp'a6=[[(LCEos,Reduce(("web_clause",4),3))]]@slrp'a7;
4458val slrp'a5=[[(LCEos,Reduce(("web_clause",3),3))]]@slrp'a6;
4459val slrp'a4=[[(LCEos,Reduce(("web_clause",2),3))]]@slrp'a5;
4460val slrp'a3=[[(LCEos,Reduce(("web_clause",1),3))]]@slrp'a4;
4461val slrp'a2=[[(LCEos,Reduce(("web_clause",0),1))]]@slrp'a3;
4462val slrp'a1=[[(LCEos,Accept)]]@slrp'a2;
4463in
4464val slrp'actions=Array.fromList slrp'a1;
4465end;
4466