From 6c372cc599c20c284b53d18dd08a01f652c9c24d Mon Sep 17 00:00:00 2001 From: aarne Date: Tue, 14 Sep 2004 17:05:46 +0000 Subject: [PATCH] gfcm header --- grammars/logic/Arithm.gf | 8 +- grammars/logic/Logic.gf | 16 +- lib/resource-0.6/english/ParadigmsEng.gf | 2 + src/GF/Canon/AbsGFC.hs | 7 +- src/GF/Canon/GFC.cf | 3 +- src/GF/Canon/LexGFC.hs | 271 ++++++-- src/GF/Canon/MkGFC.hs | 7 + src/GF/Canon/ParGFC.hs | 671 +++++++++--------- src/GF/Canon/PrintGFC.hs | 1 + src/GF/Canon/SkelGFC.hs | 3 +- src/GF/Canon/TestGFC.hs | 20 +- src/GF/Compile/GrammarToCanon.hs | 4 +- src/GF/Compile/ShellState.hs | 31 +- src/GF/Grammar/PrGrammar.hs | 1 + src/GF/Infra/Modules.hs | 25 + src/GF/Shell/ShellCommands.hs | 2 +- src/GF/Source/AbsGF.hs | 4 +- src/GF/Source/GF.cf | 4 +- src/GF/Source/GrammarToSource.hs | 2 +- src/GF/Source/LexGF.hs | 287 ++++++-- src/GF/Source/ParGF.hs | 842 ++++++++++++----------- src/GF/Source/PrintGF.hs | 4 +- src/GF/Source/SkelGF.hs | 4 +- src/GF/Source/SourceToGrammar.hs | 6 +- src/GF/Source/TestGF.hs | 2 + src/GF/UseGrammar/Custom.hs | 1 + src/tools/Htmls.hs | 5 +- 27 files changed, 1350 insertions(+), 883 deletions(-) diff --git a/grammars/logic/Arithm.gf b/grammars/logic/Arithm.gf index 2d2e12fd9..2a91c5ed0 100644 --- a/grammars/logic/Arithm.gf +++ b/grammars/logic/Arithm.gf @@ -3,9 +3,10 @@ abstract Arithm = Logic ** { -- arithmetic fun Nat, Real : Dom ; +data zero : Elem Nat ; succ : Elem Nat -> Elem Nat ; - +fun trunc : Elem Real -> Elem Nat ; EqNat : (m,n : Elem Nat) -> Prop ; @@ -19,13 +20,13 @@ fun two : Elem Nat ; sum : (m,n : Elem Nat) -> Elem Nat ; prod : (m,n : Elem Nat) -> Elem Nat ; - +data evax1 : Proof (Even zero) ; evax2 : (n : Elem Nat) -> Proof (Even n) -> Proof (Odd (succ n)) ; evax3 : (n : Elem Nat) -> Proof (Odd n) -> Proof (Even (succ n)) ; eqax1 : Proof (EqNat zero zero) ; eqax2 : (m,n : Elem Nat) -> Proof (EqNat m n) -> Proof (EqNat (succ m) (succ n)) ; - +fun IndNat : (C : Elem Nat -> Prop) -> Proof (C zero) -> ((x : Elem Nat) -> Proof (C x) -> Proof (C (succ x))) -> @@ -45,7 +46,6 @@ def (Univ Nat (\x -> Impl (Conj (LtNat one x) (Div n x)) (EqNat x n))) ; Abs = Abs ; ---- data Elem = zero | succ ; fun ex1 : Text ; def ex1 = diff --git a/grammars/logic/Logic.gf b/grammars/logic/Logic.gf index 3e2516ebc..41fd5cef8 100644 --- a/grammars/logic/Logic.gf +++ b/grammars/logic/Logic.gf @@ -32,25 +32,36 @@ fun ImplP : (A : Prop) -> (Proof A -> Prop) -> Prop ; -- inference rules +data ConjI : (A,B : Prop) -> Proof A -> Proof B -> Proof (Conj A B) ; +fun ConjEl : (A,B : Prop) -> Proof (Conj A B) -> Proof A ; ConjEr : (A,B : Prop) -> Proof (Conj A B) -> Proof B ; +data DisjIl : (A,B : Prop) -> Proof A -> Proof (Disj A B) ; DisjIr : (A,B : Prop) -> Proof B -> Proof (Disj A B) ; +fun DisjE : (A,B,C : Prop) -> Proof (Disj A B) -> (Proof A -> Proof C) -> (Proof B -> Proof C) -> Proof C ; +data ImplI : (A,B : Prop) -> (Proof A -> Proof B) -> Proof (Impl A B) ; +fun ImplE : (A,B : Prop) -> Proof (Impl A B) -> Proof A -> Proof B ; +data NegI : (A : Prop) -> (Proof A -> Proof Abs) -> Proof (Neg A) ; +fun NegE : (A : Prop) -> Proof (Neg A) -> Proof A -> Proof Abs ; AbsE : (C : Prop) -> Proof Abs -> Proof C ; - +data UnivI : (A : Dom) -> (B : Elem A -> Prop) -> ((x : Elem A) -> Proof (B x)) -> Proof (Univ A B) ; +fun UnivE : (A : Dom) -> (B : Elem A -> Prop) -> Proof (Univ A B) -> (a : Elem A) -> Proof (B a) ; +data ExistI : (A : Dom) -> (B : Elem A -> Prop) -> (a : Elem A) -> Proof (B a) -> Proof (Exist A B) ; +fun ExistE : (A : Dom) -> (B : Elem A -> Prop) -> (C : Prop) -> Proof (Exist A B) -> ((x : Elem A) -> Proof (B x) -> Proof C) -> Proof C ; @@ -61,9 +72,6 @@ fun -- pronoun Pron : (A : Dom) -> Elem A -> Elem A ; -data - Proof = ConjI | DisjIl | DisjIr ; - def -- proof normalization ConjEl _ _ (ConjI _ _ a _) = a ; diff --git a/lib/resource-0.6/english/ParadigmsEng.gf b/lib/resource-0.6/english/ParadigmsEng.gf index 8bdddfa5e..19dfa67e0 100644 --- a/lib/resource-0.6/english/ParadigmsEng.gf +++ b/lib/resource-0.6/english/ParadigmsEng.gf @@ -26,6 +26,8 @@ resource ParadigmsEng = open (Predef=Predef), Prelude, SyntaxEng, ResourceEng in -- To abstract over gender names, we define the following identifiers. oper + Gender : Type = SyntaxEng.Gender ; + human : Gender ; nonhuman : Gender ; diff --git a/src/GF/Canon/AbsGFC.hs b/src/GF/Canon/AbsGFC.hs index a95dbce0f..da8ea3804 100644 --- a/src/GF/Canon/AbsGFC.hs +++ b/src/GF/Canon/AbsGFC.hs @@ -7,7 +7,8 @@ import Ident --H -- newtype Ident = Ident String deriving (Eq,Ord,Show) --H data Canon = - Gr [Module] + MGr [Ident] Ident [Module] + | Gr [Module] deriving (Eq,Ord,Show) data Module = @@ -27,8 +28,8 @@ data Extend = deriving (Eq,Ord,Show) data Open = - NoOpens - | Opens [Ident] + Opens [Ident] + | NoOpens deriving (Eq,Ord,Show) data Flag = diff --git a/src/GF/Canon/GFC.cf b/src/GF/Canon/GFC.cf index 4289b4c24..236bd72ca 100644 --- a/src/GF/Canon/GFC.cf +++ b/src/GF/Canon/GFC.cf @@ -4,7 +4,8 @@ entrypoints Canon ; -Gr. Canon ::= [Module] ; +MGr. Canon ::= "grammar" [Ident] "of" Ident ";" [Module] ; +Gr. Canon ::= [Module] ; Mod. Module ::= ModType "=" Extend Open "{" [Flag] [Def] "}" ; diff --git a/src/GF/Canon/LexGFC.hs b/src/GF/Canon/LexGFC.hs index a4b4de7d7..6bcd1aa36 100644 --- a/src/GF/Canon/LexGFC.hs +++ b/src/GF/Canon/LexGFC.hs @@ -1,17 +1,33 @@ - +{-# OPTIONS -cpp #-} +{-# LINE 3 "LexGFC.x" #-} module LexGFC where -import Alex import ErrM -pTSpec p = PT p . TS +#if __GLASGOW_HASKELL__ >= 503 +import Data.Array +import Data.Char (ord) +import Data.Array.Base (unsafeAt) +#else +import Array +import Char (ord) +#endif +alex_base :: Array Int Int +alex_base = listArray (0,14) [1,57,66,0,9,29,11,32,154,362,0,277,485,211,51] -ident p = PT p . eitherResIdent TV +alex_table :: Array Int Int +alex_table = listArray (0,740) [0,-1,-1,-1,-1,-1,-1,-1,-1,-1,2,2,2,2,2,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,2,3,11,-1,3,-1,-1,-1,3,3,7,5,3,6,3,3,14,14,14,14,14,14,14,14,14,14,3,3,3,4,3,3,3,2,2,2,2,2,3,3,3,3,2,2,2,2,2,0,0,0,0,0,0,0,0,0,2,0,0,3,3,3,-1,3,-1,2,14,14,14,14,14,14,14,14,14,14,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,3,3,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,9,0,0,0,0,0,0,0,0,9,9,9,9,9,9,9,9,9,9,0,0,0,0,-1,0,0,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,12,0,0,-1,9,12,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,0,0,0,0,0,0,0,0,0,0,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,12,0,0,0,0,0,0,0,10,0,0,0,0,0,0,0,0,0,12,0,0,0,0,0,12,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,13,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,0,0,0,0,0,0,0,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,0,0,0,0,9,0,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,0,0,0,0,0,0,0,0,0,0,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,13,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,0,9,9,9,9,9,9,9,9,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0] -string p = PT p . TL . unescapeInitTail +alex_check :: Array Int Int +alex_check = listArray (0,740) [-1,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,9,10,11,12,13,62,43,62,42,9,10,11,12,13,-1,-1,-1,-1,-1,-1,-1,-1,-1,32,-1,-1,91,92,93,94,95,96,32,48,49,50,51,52,53,54,55,56,57,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,123,124,125,126,127,128,129,130,131,132,133,134,135,136,137,138,139,140,141,142,143,144,145,146,147,148,149,150,151,152,153,154,155,156,157,158,159,160,161,162,163,164,165,166,167,168,169,170,171,172,173,174,175,176,177,178,179,180,181,182,183,184,185,186,187,188,189,190,191,39,-1,-1,-1,-1,-1,-1,-1,-1,48,49,50,51,52,53,54,55,56,57,-1,-1,-1,-1,215,-1,-1,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,34,-1,-1,247,95,39,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,10,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,92,-1,-1,-1,-1,-1,-1,-1,34,-1,-1,-1,-1,-1,-1,-1,-1,-1,110,-1,-1,-1,-1,-1,116,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,192,193,194,195,196,197,198,199,200,201,202,203,204,205,206,207,208,209,210,211,212,213,214,92,216,217,218,219,220,221,222,223,224,225,226,227,228,229,230,231,232,233,234,235,236,237,238,239,240,241,242,243,244,245,246,39,248,249,250,251,252,253,254,255,48,49,50,51,52,53,54,55,56,57,-1,-1,-1,-1,-1,-1,-1,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,-1,-1,-1,-1,95,-1,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,10,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,34,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,192,193,194,195,196,197,198,199,200,201,202,203,204,205,206,207,208,209,210,211,212,213,214,92,216,217,218,219,220,221,222,223,224,225,226,227,228,229,230,231,232,233,234,235,236,237,238,239,240,241,242,243,244,245,246,-1,248,249,250,251,252,253,254,255,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1] -int p = PT p . TI +alex_deflt :: Array Int Int +alex_deflt = listArray (0,14) [8,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,12,12,-1,-1] +alex_accept = listArray (0::Int,14) [[],[],[(AlexAccSkip)],[(AlexAcc (alex_action_1))],[(AlexAcc (alex_action_1))],[(AlexAcc (alex_action_1))],[],[],[(AlexAcc (alex_action_2))],[(AlexAcc (alex_action_2))],[(AlexAcc (alex_action_3))],[],[],[],[(AlexAcc (alex_action_4))]] +{-# LINE 31 "LexGFC.x" #-} + +tok f p s = f p s data Tok = TS String -- reserved words @@ -32,27 +48,21 @@ tokenPos (PT (Pn _ l _) _ :_) = "line " ++ show l tokenPos (Err (Pn _ l _) :_) = "line " ++ show l tokenPos _ = "end of file" +posLineCol (Pn _ l c) = (l,c) +mkPosToken t@(PT p _) = (posLineCol p, prToken t) + prToken t = case t of PT _ (TS s) -> s PT _ (TI s) -> s PT _ (TV s) -> s PT _ (TD s) -> s PT _ (TC s) -> s - _ -> show t -tokens:: String -> [Token] -tokens inp = scan tokens_scan inp - -tokens_scan:: Scan Token -tokens_scan = load_scan (tokens_acts,stop_act) tokens_lx - where - stop_act p "" = [] - stop_act p inp = [Err p] eitherResIdent :: (String -> Tok) -> String -> Tok eitherResIdent tv s = if isResWord s then (TS s) else (tv s) where isResWord s = isInTree s $ - B "lincat" (B "data" (B "abstract" (B "Type" (B "Str" N N) N) (B "concrete" (B "cat" N N) N)) (B "in" (B "fun" (B "flags" N N) N) (B "lin" N N))) (B "pre" (B "oper" (B "open" (B "of" N N) N) (B "param" N N)) (B "transfer" (B "table" (B "resource" N N) N) (B "variants" N N))) + B "lin" (B "data" (B "abstract" (B "Type" (B "Str" N N) N) (B "concrete" (B "cat" N N) N)) (B "grammar" (B "fun" (B "flags" N N) N) (B "in" N N))) (B "pre" (B "open" (B "of" (B "lincat" N N) N) (B "param" (B "oper" N N) N)) (B "transfer" (B "table" (B "resource" N N) N) (B "variants" N N))) data BTree = N | B String BTree BTree deriving (Show) @@ -74,32 +84,207 @@ unescapeInitTail = unesc . tail where c:cs -> c : unesc cs _ -> [] -tokens_acts = [("ident",ident),("int",int),("pTSpec",pTSpec),("string",string)] +------------------------------------------------------------------- +-- Alex wrapper code. +-- A modified "posn" wrapper. +------------------------------------------------------------------- -tokens_lx :: [(Bool, [(Int,String,[Int],Maybe((Char,Char),[(Char,Bool)]),Maybe Int)], Int, ((Char,Char),[(Char,Int)]))] -tokens_lx = [lx__0_0,lx__1_0,lx__2_0,lx__3_0,lx__4_0,lx__5_0,lx__6_0,lx__7_0,lx__8_0,lx__9_0,lx__10_0,lx__11_0] -lx__0_0 :: (Bool, [(Int,String,[Int],Maybe((Char,Char),[(Char,Bool)]),Maybe Int)], Int, ((Char,Char),[(Char,Int)])) -lx__0_0 = (False,[],-1,(('\t','\255'),[('\t',1),('\n',1),('\v',1),('\f',1),('\r',1),(' ',1),('!',6),('"',8),('$',6),('(',6),(')',6),('*',3),('+',5),(',',6),('-',2),('.',6),('/',6),('0',11),('1',11),('2',11),('3',11),('4',11),('5',11),('6',11),('7',11),('8',11),('9',11),(':',6),(';',6),('<',6),('=',4),('>',6),('?',6),('@',6),('A',7),('B',7),('C',7),('D',7),('E',7),('F',7),('G',7),('H',7),('I',7),('J',7),('K',7),('L',7),('M',7),('N',7),('O',7),('P',7),('Q',7),('R',7),('S',7),('T',7),('U',7),('V',7),('W',7),('X',7),('Y',7),('Z',7),('[',6),('\\',6),(']',6),('_',6),('a',7),('b',7),('c',7),('d',7),('e',7),('f',7),('g',7),('h',7),('i',7),('j',7),('k',7),('l',7),('m',7),('n',7),('o',7),('p',7),('q',7),('r',7),('s',7),('t',7),('u',7),('v',7),('w',7),('x',7),('y',7),('z',7),('{',6),('|',6),('}',6),('\192',7),('\193',7),('\194',7),('\195',7),('\196',7),('\197',7),('\198',7),('\199',7),('\200',7),('\201',7),('\202',7),('\203',7),('\204',7),('\205',7),('\206',7),('\207',7),('\208',7),('\209',7),('\210',7),('\211',7),('\212',7),('\213',7),('\214',7),('\216',7),('\217',7),('\218',7),('\219',7),('\220',7),('\221',7),('\222',7),('\223',7),('\224',7),('\225',7),('\226',7),('\227',7),('\228',7),('\229',7),('\230',7),('\231',7),('\232',7),('\233',7),('\234',7),('\235',7),('\236',7),('\237',7),('\238',7),('\239',7),('\240',7),('\241',7),('\242',7),('\243',7),('\244',7),('\245',7),('\246',7),('\248',7),('\249',7),('\250',7),('\251',7),('\252',7),('\253',7),('\254',7),('\255',7)])) -lx__1_0 :: (Bool, [(Int,String,[Int],Maybe((Char,Char),[(Char,Bool)]),Maybe Int)], Int, ((Char,Char),[(Char,Int)])) -lx__1_0 = (True,[(0,"",[],Nothing,Nothing)],-1,(('\t',' '),[('\t',1),('\n',1),('\v',1),('\f',1),('\r',1),(' ',1)])) -lx__2_0 :: (Bool, [(Int,String,[Int],Maybe((Char,Char),[(Char,Bool)]),Maybe Int)], Int, ((Char,Char),[(Char,Int)])) -lx__2_0 = (False,[],-1,(('>','>'),[('>',6)])) -lx__3_0 :: (Bool, [(Int,String,[Int],Maybe((Char,Char),[(Char,Bool)]),Maybe Int)], Int, ((Char,Char),[(Char,Int)])) -lx__3_0 = (False,[],-1,(('*','*'),[('*',6)])) -lx__4_0 :: (Bool, [(Int,String,[Int],Maybe((Char,Char),[(Char,Bool)]),Maybe Int)], Int, ((Char,Char),[(Char,Int)])) -lx__4_0 = (True,[(1,"pTSpec",[],Nothing,Nothing)],-1,(('>','>'),[('>',6)])) -lx__5_0 :: (Bool, [(Int,String,[Int],Maybe((Char,Char),[(Char,Bool)]),Maybe Int)], Int, ((Char,Char),[(Char,Int)])) -lx__5_0 = (True,[(1,"pTSpec",[],Nothing,Nothing)],-1,(('+','+'),[('+',6)])) -lx__6_0 :: (Bool, [(Int,String,[Int],Maybe((Char,Char),[(Char,Bool)]),Maybe Int)], Int, ((Char,Char),[(Char,Int)])) -lx__6_0 = (True,[(1,"pTSpec",[],Nothing,Nothing)],-1,(('0','0'),[])) -lx__7_0 :: (Bool, [(Int,String,[Int],Maybe((Char,Char),[(Char,Bool)]),Maybe Int)], Int, ((Char,Char),[(Char,Int)])) -lx__7_0 = (True,[(2,"ident",[],Nothing,Nothing)],-1,(('\'','\255'),[('\'',7),('0',7),('1',7),('2',7),('3',7),('4',7),('5',7),('6',7),('7',7),('8',7),('9',7),('A',7),('B',7),('C',7),('D',7),('E',7),('F',7),('G',7),('H',7),('I',7),('J',7),('K',7),('L',7),('M',7),('N',7),('O',7),('P',7),('Q',7),('R',7),('S',7),('T',7),('U',7),('V',7),('W',7),('X',7),('Y',7),('Z',7),('_',7),('a',7),('b',7),('c',7),('d',7),('e',7),('f',7),('g',7),('h',7),('i',7),('j',7),('k',7),('l',7),('m',7),('n',7),('o',7),('p',7),('q',7),('r',7),('s',7),('t',7),('u',7),('v',7),('w',7),('x',7),('y',7),('z',7),('\192',7),('\193',7),('\194',7),('\195',7),('\196',7),('\197',7),('\198',7),('\199',7),('\200',7),('\201',7),('\202',7),('\203',7),('\204',7),('\205',7),('\206',7),('\207',7),('\208',7),('\209',7),('\210',7),('\211',7),('\212',7),('\213',7),('\214',7),('\216',7),('\217',7),('\218',7),('\219',7),('\220',7),('\221',7),('\222',7),('\223',7),('\224',7),('\225',7),('\226',7),('\227',7),('\228',7),('\229',7),('\230',7),('\231',7),('\232',7),('\233',7),('\234',7),('\235',7),('\236',7),('\237',7),('\238',7),('\239',7),('\240',7),('\241',7),('\242',7),('\243',7),('\244',7),('\245',7),('\246',7),('\248',7),('\249',7),('\250',7),('\251',7),('\252',7),('\253',7),('\254',7),('\255',7)])) -lx__8_0 :: (Bool, [(Int,String,[Int],Maybe((Char,Char),[(Char,Bool)]),Maybe Int)], Int, ((Char,Char),[(Char,Int)])) -lx__8_0 = (False,[],8,(('\n','\\'),[('\n',-1),('"',10),('\\',9)])) -lx__9_0 :: (Bool, [(Int,String,[Int],Maybe((Char,Char),[(Char,Bool)]),Maybe Int)], Int, ((Char,Char),[(Char,Int)])) -lx__9_0 = (False,[],-1,(('"','t'),[('"',8),('\'',8),('\\',8),('n',8),('t',8)])) -lx__10_0 :: (Bool, [(Int,String,[Int],Maybe((Char,Char),[(Char,Bool)]),Maybe Int)], Int, ((Char,Char),[(Char,Int)])) -lx__10_0 = (True,[(3,"string",[],Nothing,Nothing)],-1,(('0','0'),[])) -lx__11_0 :: (Bool, [(Int,String,[Int],Maybe((Char,Char),[(Char,Bool)]),Maybe Int)], Int, ((Char,Char),[(Char,Int)])) -lx__11_0 = (True,[(4,"int",[],Nothing,Nothing)],-1,(('0','9'),[('0',11),('1',11),('2',11),('3',11),('4',11),('5',11),('6',11),('7',11),('8',11),('9',11)])) +data Posn = Pn !Int !Int !Int + deriving (Eq, Show) +alexStartPos :: Posn +alexStartPos = Pn 0 1 1 + +alexMove :: Posn -> Char -> Posn +alexMove (Pn a l c) '\t' = Pn (a+1) l (((c+7) `div` 8)*8+1) +alexMove (Pn a l c) '\n' = Pn (a+1) (l+1) 1 +alexMove (Pn a l c) _ = Pn (a+1) l (c+1) + +type AlexInput = (Posn, -- current position, + Char, -- previous char + String) -- current input string + +tokens :: String -> [Token] +tokens str = go (alexStartPos, '\n', str) + where + go :: (Posn, Char, String) -> [Token] + go inp@(pos, _, str) = + case alexScan inp 0 of + AlexEOF -> [] + AlexError (pos, _, _) -> fail $ show pos ++ ": lexical error" + AlexSkip inp' len -> go inp' + AlexToken inp' len act -> act pos (take len str) : (go inp') + +alexGetChar :: AlexInput -> Maybe (Char,AlexInput) +alexGetChar (p, c, []) = Nothing +alexGetChar (p, _, (c:s)) = + let p' = alexMove p c + in p' `seq` Just (c, (p', c, s)) + +alexInputPrevChar :: AlexInput -> Char +alexInputPrevChar (p, c, s) = c + +alex_action_1 = tok (\p s -> PT p (TS s)) +alex_action_2 = tok (\p s -> PT p (eitherResIdent TV s)) +alex_action_3 = tok (\p s -> PT p (TL $ unescapeInitTail s)) +alex_action_4 = tok (\p s -> PT p (TI s)) +{-# LINE 1 "GenericTemplate.hs" #-} +-- ----------------------------------------------------------------------------- +-- ALEX TEMPLATE +-- +-- This code is in the PUBLIC DOMAIN; you may copy it freely and use +-- it for any purpose whatsoever. + +-- ----------------------------------------------------------------------------- +-- INTERNALS and main scanner engine + +{-# LINE 22 "GenericTemplate.hs" #-} + + + + + + + + + + + + + + + + + + + + + + + +{-# LINE 66 "GenericTemplate.hs" #-} + +alexIndexShortOffAddr arr off = arr ! off + + +-- ----------------------------------------------------------------------------- +-- Main lexing routines + +data AlexReturn a + = AlexEOF + | AlexError !AlexInput + | AlexSkip !AlexInput !Int + | AlexToken !AlexInput !Int a + +-- alexScan :: AlexInput -> StartCode -> Maybe (AlexInput,Int,act) +alexScan input (sc) + = alexScanUser undefined input (sc) + +alexScanUser user input (sc) + = case alex_scan_tkn user input (0) input sc AlexNone of + (AlexNone, input') -> + case alexGetChar input of + Nothing -> + + + + AlexEOF + Just _ -> + + + + AlexError input + + (AlexLastSkip input len, _) -> + + + + AlexSkip input len + + (AlexLastAcc k input len, _) -> + + + + AlexToken input len k + + +-- Push the input through the DFA, remembering the most recent accepting +-- state it encountered. + +alex_scan_tkn user orig_input len input s last_acc = + input `seq` -- strict in the input + case s of + (-1) -> (last_acc, input) + _ -> alex_scan_tkn' user orig_input len input s last_acc + +alex_scan_tkn' user orig_input len input s last_acc = + let + new_acc = check_accs (alex_accept `unsafeAt` (s)) + in + new_acc `seq` + case alexGetChar input of + Nothing -> (new_acc, input) + Just (c, new_input) -> + + + + let + base = alexIndexShortOffAddr alex_base s + (ord_c) = ord c + offset = (base + ord_c) + check = alexIndexShortOffAddr alex_check offset + + new_s = if (offset >= (0)) && (check == ord_c) + then alexIndexShortOffAddr alex_table offset + else alexIndexShortOffAddr alex_deflt s + in + alex_scan_tkn user orig_input (len + (1)) new_input new_s new_acc + + where + check_accs [] = last_acc + check_accs (AlexAcc a : _) = AlexLastAcc a input (len) + check_accs (AlexAccSkip : _) = AlexLastSkip input (len) + check_accs (AlexAccPred a pred : rest) + | pred user orig_input (len) input + = AlexLastAcc a input (len) + check_accs (AlexAccSkipPred pred : rest) + | pred user orig_input (len) input + = AlexLastSkip input (len) + check_accs (_ : rest) = check_accs rest + +data AlexLastAcc a + = AlexNone + | AlexLastAcc a !AlexInput !Int + | AlexLastSkip !AlexInput !Int + +data AlexAcc a user + = AlexAcc a + | AlexAccSkip + | AlexAccPred a (AlexAccPred user) + | AlexAccSkipPred (AlexAccPred user) + +type AlexAccPred user = user -> AlexInput -> Int -> AlexInput -> Bool + +-- ----------------------------------------------------------------------------- +-- Predicates on a rule + +alexAndPred p1 p2 user in1 len in2 + = p1 user in1 len in2 && p2 user in1 len in2 + +--alexPrevCharIsPred :: Char -> AlexAccPred _ +alexPrevCharIs c _ input _ _ = c == alexInputPrevChar input + +--alexPrevCharIsOneOfPred :: Array Char Bool -> AlexAccPred _ +alexPrevCharIsOneOf arr _ input _ _ = arr ! alexInputPrevChar input + +--alexRightContext :: Int -> AlexAccPred _ +alexRightContext (sc) user _ _ input = + case alex_scan_tkn user input (0) input sc AlexNone of + (AlexNone, _) -> False + _ -> True + -- TODO: there's no need to find the longest + -- match when checking the right context, just + -- the first match will do. + +-- used by wrappers +iUnbox (i) = i diff --git a/src/GF/Canon/MkGFC.hs b/src/GF/Canon/MkGFC.hs index 8f1e46b21..9d2fad49b 100644 --- a/src/GF/Canon/MkGFC.hs +++ b/src/GF/Canon/MkGFC.hs @@ -15,7 +15,14 @@ prCanonModInfo = prt . info2mod prCanon :: CanonGrammar -> String prCanon = unlines . map prCanonModInfo . M.modules +prCanonMGr :: CanonGrammar -> String +prCanonMGr g = header ++++ prCanon g where + header = case M.greatestAbstract g of + Just a -> prt (MGr (M.allConcretes g a) a []) + _ -> [] + canon2grammar :: Canon -> CanonGrammar +canon2grammar (MGr _ _ modules) = canon2grammar (Gr modules) ---- ignoring the header canon2grammar (Gr modules) = M.MGrammar $ map mod2info modules where mod2info m = case m of Mod mt e os flags defs -> diff --git a/src/GF/Canon/ParGFC.hs b/src/GF/Canon/ParGFC.hs index f6ccdb676..d207eafdb 100644 --- a/src/GF/Canon/ParGFC.hs +++ b/src/GF/Canon/ParGFC.hs @@ -1,15 +1,19 @@ {-# OPTIONS -fglasgow-exts -cpp #-} --- parser produced by Happy Version 1.11 +-- parser produced by Happy Version 1.13 module ParGFC where import AbsGFC import LexGFC -import Ident --H import ErrM -import GlaExts +import Ident --H import Array +#if __GLASGOW_HASKELL__ >= 503 +import GHC.Exts +#else +import GlaExts +#endif -data HappyAbsSyn t4 t5 t6 = HappyAbsSyn +newtype HappyAbsSyn t4 t5 t6 = HappyAbsSyn (() -> ()) happyIn4 :: t4 -> (HappyAbsSyn t4 t5 t6) happyIn4 x = unsafeCoerce# x {-# INLINE happyIn4 #-} @@ -335,22 +339,22 @@ happyOutTok :: (HappyAbsSyn t4 t5 t6) -> Token happyOutTok x = unsafeCoerce# x {-# INLINE happyOutTok #-} -happyActOffsets :: Addr -happyActOffsets = A# "\x00\x00\x01\x02\x00\x00\xff\x01\x18\x01\x00\x00\x1e\x02\xfe\x01\xfe\x01\xfe\x01\xfe\x01\x0f\x02\x00\x00\xfd\x01\x00\x00\xfc\x01\x1b\x02\xfb\x01\xf1\x01\xf1\x01\x19\x02\x00\x00\x1a\x02\xee\x01\x00\x00\x00\x02\xf6\x01\x00\x00\xe9\x01\x00\x00\xfa\x01\x00\x00\xe8\x01\x00\x00\x0d\x02\x6d\x00\xe6\x01\x11\x02\xf4\x01\x08\x02\x00\x00\xe1\x01\xe1\x01\xe1\x01\xe1\x01\xe1\x01\xe1\x01\xe1\x01\x00\x00\x0e\x02\x0c\x02\x0a\x02\x09\x02\x05\x02\x04\x02\xf9\x01\x00\x00\xe4\x01\x00\x00\xdc\x01\x00\x00\xdc\x01\xdc\x01\x0d\x00\xdc\x01\x5f\x00\x5f\x00\xdc\x01\x0d\x00\xf8\x01\x00\x00\x00\x00\x00\x00\x8c\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xd2\x01\x0d\x00\xd2\x01\xd2\x01\xce\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xe0\x01\x00\x00\x00\x00\xf7\x01\x51\x00\x5f\x00\x00\x00\xf3\x01\xf2\x01\xf0\x01\xec\x01\xdf\x01\xdd\x01\x00\x00\xb6\x01\xe3\x01\x0d\x00\x0d\x00\xd9\x01\x14\x00\xcf\x01\x00\x00\xd8\x01\xda\x01\xd1\x01\xa4\x01\x14\x00\xb0\x01\x5f\x00\x00\x00\x00\x00\xc3\x01\xdd\x00\xc5\x01\xcc\x01\xcd\x01\x00\x00\x0d\x00\x9e\x01\x00\x00\xba\x01\x73\x00\x00\x00\x0d\x00\x00\x00\x0d\x00\x00\x00\x00\x00\x00\x00\xfc\xff\x00\x00\x00\x00\xc1\x01\xbb\x01\xad\x01\x00\x00\x00\x00\x51\x00\x3f\x00\x14\x00\x92\x01\x92\x01\x5f\x00\xbe\x01\x00\x00\x00\x00\x5f\x00\x51\x00\x5f\x00\xa4\x00\x90\x01\x00\x00\x00\x00\x00\x00\x00\x00\x90\x01\xf1\x00\xa3\x01\xb9\x01\x14\x00\x14\x00\xae\x01\x00\x00\x00\x00\x00\x00\xb8\x01\x00\x00\x00\x00\xc7\x00\x00\x00\x00\x00\xa8\x01\xaf\x01\xac\x01\x4e\x00\x51\x00\x7d\x01\x7d\x01\xa0\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0d\x00\x7c\x01\x00\x00\x00\x00\x00\x00\x00\x00\xa7\x01\x91\x01\x00\x00\x00\x00\x00\x00\x00\x00\x14\x00\x51\x00\x09\x00\x00\x00\x47\x00\xa6\x01\x43\x00\x00\x00\x8b\x01\x88\x01\x14\x00\x6d\x01\x00\x00\x00\x00\x84\x00\x00\x00\x00\x00\x95\x01\x97\x01\x57\x00\x00\x00\x00\x00\x6f\x00\x00\x00\x86\x01\x68\x01\x0d\x00\x99\x00\x00\x00\x00\x00\x00\x00\x83\x01\x1d\x00\x94\x01\x00\x00\x00\x00\x51\x00\x67\x01\x00\x00\x14\x00\x00\x00\x8a\x01\x14\x00\x76\x01\x00\x00\x76\x01\x00\x00\x89\x01\x80\x01\x85\x01\x7f\x01\x00\x00\xf2\xff\x00\x00\x55\x01\x00\x00\x00\x00\x51\x00\x0c\x00\x22\x00\x00\x00\x00\x00\x00\x00\x00\x00"# +happyActOffsets :: HappyAddr +happyActOffsets = HappyA# "\x07\x02\x03\x02\x00\x00\x02\x02\x2d\x01\xfe\x01\x11\x02\x01\x02\x00\x00\x24\x02\xf9\x01\xf9\x01\xf9\x01\xf9\x01\x1f\x02\x00\x00\x00\x02\x00\x00\xf3\x01\xf3\x01\xf3\x01\x00\x00\x21\x02\x15\x02\xfd\x01\xf1\x01\xf1\x01\x1a\x02\x00\x00\x16\x02\xee\x01\x00\x00\x00\x00\x2d\x01\xfb\x01\x00\x00\xed\x01\x00\x00\xfa\x01\x00\x00\x17\x02\x67\x00\xea\x01\x14\x02\xf7\x01\x13\x02\x00\x00\xe5\x01\xe5\x01\xe5\x01\xe5\x01\xe5\x01\xe5\x01\xe5\x01\x00\x00\x10\x02\x0f\x02\x0b\x02\x0d\x02\x09\x02\x05\x02\xff\x01\x00\x00\xe4\x01\x00\x00\xcf\x01\x00\x00\xcf\x01\xcf\x01\x0a\x00\xcf\x01\x58\x00\x58\x00\xcf\x01\x0a\x00\xe0\x01\x00\x00\x00\x00\x00\x00\x98\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xcb\x01\x0a\x00\xcb\x01\xcb\x01\xd4\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xe7\x01\x00\x00\x00\x00\xf8\x01\x3d\x00\x58\x00\x00\x00\xf6\x01\xf5\x01\xec\x01\xe8\x01\xe3\x01\xe9\x01\x00\x00\xb9\x01\xe6\x01\x0a\x00\x0a\x00\xdc\x01\x12\x00\xd2\x01\x00\x00\xd9\x01\xd7\x01\xd5\x01\xa9\x01\x12\x00\xa7\x01\x58\x00\x00\x00\x00\x00\xc8\x01\x10\x01\xc9\x01\xcd\x01\xc5\x01\x00\x00\x0a\x00\xa4\x01\x00\x00\xc7\x01\x6e\x00\x00\x00\x0a\x00\x00\x00\x0a\x00\x00\x00\x00\x00\x00\x00\xa7\x00\x00\x00\x00\x00\xbc\x01\xb6\x01\xb1\x01\x00\x00\x00\x00\x3d\x00\x1c\x00\x12\x00\x95\x01\x95\x01\x58\x00\xb5\x01\x00\x00\x00\x00\x58\x00\x3d\x00\x58\x00\xb2\x00\x94\x01\x00\x00\x00\x00\x00\x00\x00\x00\x94\x01\x26\x01\xa8\x01\xbb\x01\x12\x00\x12\x00\xaa\x01\x00\x00\x00\x00\x00\x00\xb3\x01\x00\x00\x00\x00\xaf\x00\x00\x00\x00\x00\xb4\x01\xb2\x01\xaf\x01\x51\x00\x3d\x00\x74\x01\x74\x01\xa3\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0a\x00\x82\x01\x00\x00\x00\x00\x00\x00\x00\x00\x9d\x01\x98\x01\x00\x00\x00\x00\x00\x00\x00\x00\x12\x00\x3d\x00\x0c\x00\x00\x00\x47\x00\x9e\x01\x41\x00\x00\x00\x91\x01\x8f\x01\x12\x00\x71\x01\x00\x00\x00\x00\x60\x00\x00\x00\x00\x00\x9f\x01\x99\x01\x57\x00\x00\x00\x00\x00\x7e\x00\x00\x00\x89\x01\x62\x01\x0a\x00\x9f\x00\x00\x00\x00\x00\x00\x00\x92\x01\x70\x00\x8e\x01\x00\x00\x00\x00\x3d\x00\x60\x01\x00\x00\x12\x00\x00\x00\x8d\x01\x12\x00\x7a\x01\x00\x00\x7a\x01\x00\x00\x8c\x01\x8b\x01\x87\x01\x78\x01\x00\x00\x68\x00\x00\x00\x51\x01\x00\x00\x00\x00\x3d\x00\x5b\x00\x21\x00\x00\x00\x00\x00\x00\x00\x00\x00"# -happyGotoOffsets :: Addr -happyGotoOffsets = A# "\x6e\x00\x00\x00\x00\x00\x00\x00\xe6\x00\x00\x00\x00\x00\x84\x01\x7b\x01\x7a\x01\x77\x01\x00\x00\x00\x00\x00\x00\x00\x00\xd6\x00\x00\x00\x6e\x01\x75\x01\x73\x01\x00\x00\x00\x00\x00\x00\x02\x00\x00\x00\x00\x00\x00\x00\x4c\x01\x64\x01\x00\x00\xfa\xff\x00\x00\x01\x00\x00\x00\x00\x00\xdf\x00\x61\x01\x00\x00\x47\x01\x00\x00\x00\x00\x50\x01\x49\x01\x42\x01\x3d\x01\x3c\x01\x31\x01\x25\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x1c\x01\x00\x00\x14\x01\x22\x01\xed\x01\xd3\x00\x3b\x01\x2b\x01\x5c\x00\xdb\x01\x00\x00\x00\x00\x00\x00\x00\x00\xf5\x01\x00\x00\x00\x00\x00\x00\x00\x00\xfd\x00\x12\x01\xc9\x01\xb4\x00\x0e\x01\x0f\x01\x00\x00\x00\x00\x00\x00\x00\x00\xe2\x00\x00\x00\x00\x00\x00\x00\x00\x00\x4c\x00\x02\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x1a\x01\x00\x00\xb7\x01\xa5\x01\x00\x00\x0c\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x01\x03\x01\x0a\x00\xd9\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xf7\xff\x00\x00\x93\x01\x05\x01\x00\x00\x00\x00\xaf\x00\x00\x00\x81\x01\x00\x00\x6f\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x75\x00\x00\x00\xfa\x00\xab\x00\xfc\x00\xd8\x00\x00\x00\x00\x00\x00\x00\xbe\x00\x12\x00\xa1\x00\x00\x00\x60\x00\x00\x00\x00\x00\xcf\x00\x00\x00\x7c\x00\x00\x00\x00\x00\x00\x00\xe3\x00\x23\x01\x00\x00\x00\x00\x00\x00\xc4\x00\x00\x00\x00\x00\xb3\x00\x00\x00\x00\x00\x90\x00\x00\x00\x00\x00\x00\x00\x33\x01\x04\x00\xc1\x00\xb5\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x5d\x01\x7b\x00\x00\x00\x00\x00\xa0\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xda\x00\x68\x00\x8f\x00\x00\x00\x2c\x01\x35\x01\x2c\x01\x00\x00\x00\x00\x00\x00\xd1\x00\x41\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x4b\x00\x00\x00\x00\x00\x48\x01\x00\x00\x00\x00\x80\x00\x4b\x01\xaf\x00\x00\x00\x00\x00\x00\x00\x00\x00\x5a\x00\x00\x00\x00\x00\x00\x00\x06\x00\x10\x00\x00\x00\xb2\x00\x00\x00\x32\x01\xa9\x00\x00\x00\x00\x00\x00\x00\xde\xff\x00\x00\x00\x00\x00\x00\x00\x00\xdd\xff\x36\x01\x00\x00\x30\x00\x00\x00\x00\x00\x05\x00\x48\x00\x3a\x00\x00\x00\x00\x00\x00\x00\x00\x00"# +happyGotoOffsets :: HappyAddr +happyGotoOffsets = HappyA# "\x59\x00\x00\x00\x00\x00\x00\x00\xd6\x00\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\x01\x7f\x01\x7e\x01\x7d\x01\x00\x00\x00\x00\x00\x00\x00\x00\x11\x01\x7c\x01\x02\x00\x00\x00\x00\x00\x00\x00\x72\x01\x79\x01\x70\x01\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00\x69\x01\xd6\x00\x00\x00\x48\x01\x6d\x01\x00\x00\x17\x00\x00\x00\x00\x00\x84\x00\x6a\x01\x00\x00\x5c\x01\x00\x00\x00\x00\x67\x01\x5e\x01\x5a\x01\x57\x01\x50\x01\x4f\x01\x44\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x43\x01\x00\x00\x42\x01\x21\x01\xf4\x01\x3c\x01\x32\x01\x09\x01\x40\x00\xe2\x01\x00\x00\x00\x00\x00\x00\x00\x00\xfc\x01\x00\x00\x00\x00\x00\x00\x00\x00\x2b\x01\x38\x01\xd0\x01\x0c\x01\x2c\x01\x27\x01\x00\x00\x00\x00\x00\x00\x00\x00\xfa\x00\x00\x00\x00\x00\x00\x00\x00\x00\x4c\x00\xe0\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xa3\x00\x00\x00\xbe\x01\xac\x01\x00\x00\x13\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x18\x01\x0a\x01\x08\x00\xdf\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xf7\xff\x00\x00\x9a\x01\x12\x01\x00\x00\x00\x00\xe7\x00\x00\x00\x88\x01\x00\x00\x76\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x83\x00\x00\x00\x01\x01\x03\x01\x00\x01\xc5\x00\x00\x00\x00\x00\x00\x00\xa8\x00\x05\x00\x7d\x00\x00\x00\x6f\x00\x00\x00\x00\x00\xe5\x00\x00\x00\xe4\x00\x00\x00\x00\x00\x00\x00\xea\x00\x2a\x01\x00\x00\x00\x00\x00\x00\xc3\x00\x00\x00\x00\x00\xb7\x00\x00\x00\x00\x00\xbf\x00\x00\x00\x00\x00\x00\x00\x3a\x01\x11\x00\xdb\x00\xc0\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x64\x01\xe3\x00\x00\x00\x00\x00\xab\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xe1\x00\x7b\x00\x9b\x00\x00\x00\x33\x01\xea\xff\x33\x01\x00\x00\x00\x00\x00\x00\xd8\x00\x6c\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x31\x00\x00\x00\x00\x00\x3b\x01\x00\x00\x00\x00\x91\x00\x52\x01\xe7\x00\x00\x00\x00\x00\x00\x00\x00\x00\x75\x00\x00\x00\x00\x00\x00\x00\x07\x00\xb6\x00\x00\x00\xb9\x00\x00\x00\xe4\xff\xb0\x00\x00\x00\x00\x00\x00\x00\x15\x00\x00\x00\x00\x00\x00\x00\x00\x00\xdb\xff\x4f\x00\x00\x00\x0d\x00\x00\x00\x00\x00\x06\x00\x22\x00\x10\x00\x00\x00\x00\x00\x00\x00\x00\x00"# -happyDefActions :: Addr -happyDefActions = A# "\xf5\xff\x00\x00\xfe\xff\x00\x00\xfb\xff\xf4\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xf7\xff\x00\x00\xf9\xff\xf2\xff\x00\x00\xf1\xff\x00\x00\x00\x00\x00\x00\xf8\xff\x00\x00\x7e\xff\xf3\xff\x7d\xff\x00\x00\xa1\xff\x00\x00\xf6\xff\x9f\xff\xf0\xff\x7e\xff\x7c\xff\x00\x00\x00\x00\x00\x00\x00\x00\xe4\xff\x00\x00\xfa\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xa0\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x9e\xff\x00\x00\xe5\xff\x00\x00\xef\xff\x00\x00\xd2\xff\x00\x00\x00\x00\x00\x00\x00\x00\x9d\xff\x00\x00\x00\x00\xc7\xff\xc6\xff\xcb\xff\xdd\xff\xec\xff\xe1\xff\xc5\xff\xdc\xff\xcd\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xd9\xff\xdb\xff\xfd\xff\xfc\xff\x9a\xff\x9c\xff\xeb\xff\xc1\xff\x00\x00\x90\xff\x00\x00\xc0\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xd1\xff\xe7\xff\xd2\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xaa\xff\x8f\xff\x00\x00\x00\x00\x00\x00\x00\x00\x9d\xff\xe6\xff\xc8\xff\xc9\xff\x00\x00\x00\x00\x00\x00\x00\x00\xcf\xff\xe2\xff\x00\x00\x00\x00\xe3\xff\x00\x00\x00\x00\xde\xff\x00\x00\xda\xff\x00\x00\xca\xff\x99\xff\x9b\xff\x00\x00\xaf\xff\xbd\xff\xb2\xff\xb0\xff\xea\xff\xb9\xff\xbe\xff\x96\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xa9\xff\xc3\xff\x00\x00\x90\xff\x00\x00\x00\x00\x93\xff\xed\xff\xc4\xff\x98\xff\xd0\xff\xee\xff\x00\x00\x92\xff\x00\x00\x00\x00\x00\x00\x00\x00\x8e\xff\xbf\xff\x8a\xff\x00\x00\xbb\xff\x8a\xff\x00\x00\xb8\xff\x88\xff\x95\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xdf\xff\xd6\xff\xd5\xff\xd4\xff\xce\xff\x00\x00\x00\x00\xd3\xff\xcc\xff\xcf\xff\xd8\xff\x00\x00\x00\x00\xa8\xff\xb6\xff\xb4\xff\xba\xff\x00\x00\x96\xff\x00\x00\xb7\xff\x00\x00\x80\xff\x00\x00\xc2\xff\xb1\xff\xe9\xff\x00\x00\x93\xff\x97\xff\x91\xff\x00\x00\x89\xff\xb3\xff\x8c\xff\x00\x00\x00\x00\xbc\xff\x87\xff\x86\xff\x94\xff\xad\xff\x00\x00\x00\x00\x00\x00\xd7\xff\xe0\xff\xa7\xff\x85\xff\x00\x00\x00\x00\xa5\xff\x7f\xff\x83\xff\x00\x00\xa4\xff\x00\x00\xb5\xff\x80\xff\x00\x00\xe8\xff\x8b\xff\xac\xff\x80\xff\x00\x00\x82\xff\x00\x00\x00\x00\x88\xff\x86\xff\x84\xff\xab\xff\xae\xff\xa3\xff\x83\xff\x00\x00\x00\x00\xa6\xff\xa2\xff\x81\xff"# +happyDefActions :: HappyAddr +happyDefActions = HappyA# "\xf4\xff\x00\x00\xfe\xff\x00\x00\xfa\xff\x7d\xff\x7c\xff\x00\x00\xf3\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xf6\xff\x00\x00\xf8\xff\xf1\xff\x00\x00\x7d\xff\x7b\xff\x00\x00\x00\x00\xef\xff\x00\x00\x00\x00\x00\x00\xf7\xff\x00\x00\x7d\xff\xf2\xff\xf4\xff\xfb\xff\x00\x00\xa0\xff\x00\x00\xf5\xff\x9e\xff\xf0\xff\x00\x00\x00\x00\x00\x00\x00\x00\xe3\xff\x00\x00\xf9\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x9f\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x9d\xff\x00\x00\xe4\xff\x00\x00\xee\xff\x00\x00\xd1\xff\x00\x00\x00\x00\x00\x00\x00\x00\x9c\xff\x00\x00\x00\x00\xc6\xff\xc5\xff\xca\xff\xdc\xff\xeb\xff\xe0\xff\xc4\xff\xdb\xff\xcc\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xd8\xff\xda\xff\xfd\xff\xfc\xff\x99\xff\x9b\xff\xea\xff\xc0\xff\x00\x00\x8f\xff\x00\x00\xbf\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xd0\xff\xe6\xff\xd1\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xa9\xff\x8e\xff\x00\x00\x00\x00\x00\x00\x00\x00\x9c\xff\xe5\xff\xc7\xff\xc8\xff\x00\x00\x00\x00\x00\x00\x00\x00\xce\xff\xe1\xff\x00\x00\x00\x00\xe2\xff\x00\x00\x00\x00\xdd\xff\x00\x00\xd9\xff\x00\x00\xc9\xff\x98\xff\x9a\xff\x00\x00\xae\xff\xbc\xff\xb1\xff\xaf\xff\xe9\xff\xb8\xff\xbd\xff\x95\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xa8\xff\xc2\xff\x00\x00\x8f\xff\x00\x00\x00\x00\x92\xff\xec\xff\xc3\xff\x97\xff\xcf\xff\xed\xff\x00\x00\x91\xff\x00\x00\x00\x00\x00\x00\x00\x00\x8d\xff\xbe\xff\x89\xff\x00\x00\xba\xff\x89\xff\x00\x00\xb7\xff\x87\xff\x94\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xde\xff\xd5\xff\xd4\xff\xd3\xff\xcd\xff\x00\x00\x00\x00\xd2\xff\xcb\xff\xce\xff\xd7\xff\x00\x00\x00\x00\xa7\xff\xb5\xff\xb3\xff\xb9\xff\x00\x00\x95\xff\x00\x00\xb6\xff\x00\x00\x7f\xff\x00\x00\xc1\xff\xb0\xff\xe8\xff\x00\x00\x92\xff\x96\xff\x90\xff\x00\x00\x88\xff\xb2\xff\x8b\xff\x00\x00\x00\x00\xbb\xff\x86\xff\x85\xff\x93\xff\xac\xff\x00\x00\x00\x00\x00\x00\xd6\xff\xdf\xff\xa6\xff\x84\xff\x00\x00\x00\x00\xa4\xff\x7e\xff\x82\xff\x00\x00\xa3\xff\x00\x00\xb4\xff\x7f\xff\x00\x00\xe7\xff\x8a\xff\xab\xff\x7f\xff\x00\x00\x81\xff\x00\x00\x00\x00\x87\xff\x85\xff\x83\xff\xaa\xff\xad\xff\xa2\xff\x82\xff\x00\x00\x00\x00\xa5\xff\xa1\xff\x80\xff"# -happyCheck :: Addr -happyCheck = A# "\xff\xff\x00\x00\x00\x00\x09\x00\x00\x00\x00\x00\x00\x00\x0b\x00\x16\x00\x12\x00\x00\x00\x02\x00\x15\x00\x30\x00\x02\x00\x02\x00\x00\x00\x33\x00\x00\x00\x17\x00\x18\x00\x0b\x00\x02\x00\x0a\x00\x0c\x00\x0c\x00\x0e\x00\x07\x00\x0f\x00\x0d\x00\x11\x00\x12\x00\x0c\x00\x27\x00\x30\x00\x0f\x00\x02\x00\x11\x00\x22\x00\x22\x00\x22\x00\x1c\x00\x25\x00\x25\x00\x1a\x00\x20\x00\x0c\x00\x0d\x00\x0e\x00\x01\x00\x28\x00\x16\x00\x22\x00\x34\x00\x34\x00\x32\x00\x32\x00\x30\x00\x00\x00\x2f\x00\x2f\x00\x30\x00\x31\x00\x2d\x00\x2c\x00\x00\x00\x2e\x00\x2f\x00\x30\x00\x02\x00\x03\x00\x08\x00\x00\x00\x02\x00\x07\x00\x00\x00\x00\x00\x30\x00\x07\x00\x0c\x00\x02\x00\x2f\x00\x0f\x00\x0c\x00\x11\x00\x07\x00\x0f\x00\x10\x00\x11\x00\x02\x00\x0c\x00\x01\x00\x00\x00\x0f\x00\x24\x00\x11\x00\x00\x00\x02\x00\x11\x00\x0c\x00\x23\x00\x0e\x00\x1a\x00\x0b\x00\x00\x00\x2a\x00\x13\x00\x0c\x00\x24\x00\x2c\x00\x22\x00\x24\x00\x03\x00\x03\x00\x2f\x00\x30\x00\x06\x00\x00\x00\x2f\x00\x30\x00\x05\x00\x2d\x00\x1b\x00\x00\x00\x00\x00\x2f\x00\x30\x00\x0c\x00\x2f\x00\x0e\x00\x02\x00\x23\x00\x28\x00\x16\x00\x2f\x00\x1f\x00\x0d\x00\x0d\x00\x22\x00\x1e\x00\x2c\x00\x09\x00\x2f\x00\x22\x00\x01\x00\x24\x00\x25\x00\x2b\x00\x1f\x00\x28\x00\x29\x00\x22\x00\x0c\x00\x15\x00\x2d\x00\x0f\x00\x2f\x00\x11\x00\x12\x00\x30\x00\x2b\x00\x00\x00\x2f\x00\x30\x00\x31\x00\x0c\x00\x0d\x00\x0e\x00\x1c\x00\x00\x00\x01\x00\x00\x00\x20\x00\x09\x00\x0d\x00\x00\x00\x01\x00\x02\x00\x00\x00\x01\x00\x00\x00\x15\x00\x0d\x00\x02\x00\x0d\x00\x15\x00\x19\x00\x2f\x00\x30\x00\x31\x00\x00\x00\x0d\x00\x30\x00\x0d\x00\x13\x00\x02\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x2f\x00\x30\x00\x31\x00\x0d\x00\x23\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x00\x00\x01\x00\x00\x00\x0d\x00\x23\x00\x00\x00\x19\x00\x00\x00\x00\x00\x00\x00\x01\x00\x15\x00\x07\x00\x0d\x00\x00\x00\x0d\x00\x04\x00\x2f\x00\x00\x00\x01\x00\x0d\x00\x0d\x00\x0d\x00\x0b\x00\x0a\x00\x04\x00\x05\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x0d\x00\x19\x00\x19\x00\x2f\x00\x23\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x2a\x00\x00\x00\x01\x00\x00\x00\x23\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x00\x00\x00\x00\x01\x00\x00\x00\x23\x00\x0d\x00\x17\x00\x18\x00\x02\x00\x29\x00\x00\x00\x01\x00\x00\x00\x0d\x00\x0d\x00\x02\x00\x00\x00\x16\x00\x00\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x0d\x00\x00\x00\x19\x00\x00\x00\x23\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x00\x00\x00\x00\x01\x00\x00\x00\x23\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x00\x00\x00\x00\x01\x00\x14\x00\x23\x00\x0d\x00\x00\x00\x18\x00\x00\x00\x01\x00\x1d\x00\x14\x00\x1f\x00\x0d\x00\x0d\x00\x18\x00\x00\x00\x00\x00\x00\x00\x1b\x00\x1c\x00\x0d\x00\x1e\x00\x00\x00\x2b\x00\x19\x00\x2d\x00\x23\x00\x1b\x00\x0d\x00\x00\x00\x1e\x00\x00\x00\x01\x00\x02\x00\x1b\x00\x23\x00\x00\x00\x1e\x00\x20\x00\x0c\x00\x19\x00\x20\x00\x23\x00\x21\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x2e\x00\x00\x00\x17\x00\x2e\x00\x00\x00\x33\x00\x30\x00\x31\x00\x33\x00\x21\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x26\x00\x00\x00\x17\x00\x00\x00\x08\x00\x00\x00\x30\x00\x31\x00\x00\x00\x00\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x00\x00\x30\x00\x17\x00\x08\x00\x03\x00\x09\x00\x01\x00\x15\x00\x09\x00\x03\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x2f\x00\x03\x00\x17\x00\x31\x00\x03\x00\x15\x00\x2f\x00\x15\x00\x09\x00\x14\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x17\x00\x03\x00\x17\x00\x2f\x00\x05\x00\x0d\x00\x31\x00\x03\x00\x01\x00\x09\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x02\x00\x0d\x00\x17\x00\x1a\x00\x05\x00\x2f\x00\x02\x00\x2f\x00\x15\x00\x09\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x0b\x00\x2f\x00\x17\x00\x14\x00\x03\x00\x05\x00\x0d\x00\x10\x00\x03\x00\x31\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x04\x00\x2f\x00\x17\x00\x09\x00\x13\x00\x0a\x00\x01\x00\x2f\x00\x09\x00\x08\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x04\x00\x01\x00\x17\x00\x01\x00\x01\x00\x00\x00\x01\x00\x02\x00\x01\x00\x19\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x31\x00\x07\x00\x2f\x00\x0d\x00\x0b\x00\x17\x00\x10\x00\x11\x00\x23\x00\x04\x00\x04\x00\x01\x00\x2f\x00\x17\x00\x01\x00\x04\x00\x01\x00\x2f\x00\x09\x00\x01\x00\x04\x00\x20\x00\x2f\x00\x09\x00\x2f\x00\x2f\x00\x23\x00\x1a\x00\x21\x00\x02\x00\x2f\x00\x05\x00\x01\x00\x2f\x00\x06\x00\x27\x00\x26\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x2f\x00\xff\xff\x2f\x00\xff\xff\xff\xff\x2f\x00\xff\xff\x33\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff"# +happyCheck :: HappyAddr +happyCheck = HappyA# "\xff\xff\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00\x00\x00\x00\x12\x00\x20\x00\x30\x00\x15\x00\x03\x00\x01\x00\x03\x00\x00\x00\x00\x00\x2e\x00\x0b\x00\x0a\x00\x03\x00\x0c\x00\x33\x00\x2e\x00\x0f\x00\x08\x00\x11\x00\x12\x00\x33\x00\x0c\x00\x1a\x00\x09\x00\x0f\x00\x00\x00\x11\x00\x03\x00\x09\x00\x1c\x00\x22\x00\x22\x00\x22\x00\x20\x00\x25\x00\x25\x00\x0c\x00\x0d\x00\x0e\x00\x28\x00\x00\x00\x2d\x00\x22\x00\x24\x00\x34\x00\x34\x00\x34\x00\x32\x00\x32\x00\x30\x00\x31\x00\x32\x00\x31\x00\x27\x00\x2d\x00\x00\x00\x2f\x00\x30\x00\x31\x00\x03\x00\x04\x00\x24\x00\x2b\x00\x33\x00\x08\x00\x03\x00\x0b\x00\x00\x00\x0c\x00\x11\x00\x08\x00\x0f\x00\x30\x00\x11\x00\x0c\x00\x03\x00\x24\x00\x0f\x00\x10\x00\x11\x00\x08\x00\x03\x00\x03\x00\x03\x00\x0c\x00\x03\x00\x06\x00\x0f\x00\x01\x00\x11\x00\x0c\x00\x0c\x00\x0e\x00\x1a\x00\x0c\x00\x28\x00\x0e\x00\x13\x00\x04\x00\x00\x00\x30\x00\x22\x00\x00\x00\x21\x00\x30\x00\x31\x00\x1b\x00\x06\x00\x15\x00\x01\x00\x30\x00\x31\x00\x2d\x00\x0c\x00\x00\x00\x0e\x00\x00\x00\x16\x00\x30\x00\x31\x00\x30\x00\x31\x00\x00\x00\x00\x00\x1e\x00\x16\x00\x30\x00\x30\x00\x22\x00\x0d\x00\x30\x00\x25\x00\x26\x00\x0a\x00\x23\x00\x29\x00\x2a\x00\x23\x00\x02\x00\x16\x00\x2e\x00\x19\x00\x30\x00\x2c\x00\x31\x00\x1f\x00\x2c\x00\x01\x00\x22\x00\x30\x00\x31\x00\x32\x00\x31\x00\x1f\x00\x00\x00\x0c\x00\x22\x00\x2b\x00\x0f\x00\x00\x00\x11\x00\x12\x00\x0c\x00\x0d\x00\x0e\x00\x2b\x00\x31\x00\x00\x00\x01\x00\x0b\x00\x01\x00\x1c\x00\x0d\x00\x00\x00\x14\x00\x20\x00\x00\x00\x01\x00\x18\x00\x0d\x00\x0d\x00\x17\x00\x18\x00\x15\x00\x19\x00\x02\x00\x0d\x00\x15\x00\x00\x00\x0d\x00\x15\x00\x30\x00\x31\x00\x32\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x30\x00\x31\x00\x32\x00\x0d\x00\x23\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x00\x00\x01\x00\x04\x00\x05\x00\x23\x00\x02\x00\x19\x00\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00\x00\x00\x0d\x00\x2f\x00\x00\x00\x01\x00\x02\x00\x00\x00\x01\x00\x0d\x00\x0d\x00\x0d\x00\x30\x00\x0d\x00\x0d\x00\x2f\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x0d\x00\x19\x00\x19\x00\x13\x00\x23\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x00\x00\x00\x00\x01\x00\x00\x00\x23\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x00\x00\x00\x00\x01\x00\x00\x00\x23\x00\x0d\x00\x2a\x00\x0d\x00\x00\x00\x00\x00\x00\x00\x01\x00\x05\x00\x0d\x00\x0d\x00\x07\x00\x0d\x00\x02\x00\x0b\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x0d\x00\x00\x00\x19\x00\x29\x00\x23\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x02\x00\x00\x00\x01\x00\x00\x00\x23\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x00\x00\x00\x00\x01\x00\x14\x00\x23\x00\x0d\x00\x00\x00\x18\x00\x00\x00\x01\x00\x00\x00\x17\x00\x18\x00\x0d\x00\x0d\x00\x16\x00\x00\x00\x00\x00\x00\x00\x1b\x00\x1c\x00\x0d\x00\x1e\x00\x0d\x00\x1d\x00\x19\x00\x1f\x00\x23\x00\x1b\x00\x00\x00\x00\x00\x1e\x00\x00\x00\x01\x00\x02\x00\x1b\x00\x23\x00\x00\x00\x1e\x00\x2c\x00\x00\x00\x2e\x00\x21\x00\x23\x00\x00\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x00\x00\x0c\x00\x17\x00\x00\x00\x30\x00\x31\x00\x00\x00\x26\x00\x06\x00\x00\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x00\x00\x08\x00\x17\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x09\x00\x31\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x04\x00\x01\x00\x17\x00\x02\x00\x15\x00\x30\x00\x04\x00\x04\x00\x01\x00\x32\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x04\x00\x15\x00\x17\x00\x01\x00\x30\x00\x04\x00\x06\x00\x15\x00\x14\x00\x32\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x17\x00\x0d\x00\x17\x00\x30\x00\x04\x00\x02\x00\x01\x00\x03\x00\x0d\x00\x03\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x06\x00\x1a\x00\x17\x00\x30\x00\x30\x00\x15\x00\x0b\x00\x01\x00\x04\x00\x14\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x06\x00\x30\x00\x17\x00\x0d\x00\x30\x00\x10\x00\x04\x00\x01\x00\x32\x00\x05\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x13\x00\x0a\x00\x17\x00\x02\x00\x30\x00\x01\x00\x0b\x00\x09\x00\x05\x00\x02\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x02\x00\x02\x00\x17\x00\x02\x00\x30\x00\x00\x00\x01\x00\x02\x00\x30\x00\x19\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x32\x00\x08\x00\x24\x00\x0d\x00\x05\x00\x17\x00\x10\x00\x11\x00\x05\x00\x02\x00\x05\x00\x02\x00\x02\x00\x17\x00\x01\x00\x30\x00\x02\x00\x20\x00\x01\x00\x03\x00\x30\x00\x21\x00\x07\x00\x30\x00\x30\x00\x24\x00\x06\x00\x30\x00\x01\x00\x30\x00\x05\x00\x28\x00\x02\x00\x27\x00\x27\x00\x30\x00\x23\x00\x1a\x00\xff\xff\xff\xff\x30\x00\xff\xff\xff\xff\xff\xff\xff\xff\x30\x00\xff\xff\xff\xff\x34\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff"# -happyTable :: Addr -happyTable = A# "\x00\x00\x19\x00\x19\x00\x22\x00\x6e\x00\x6e\x00\x6e\x00\x80\x00\x88\xff\x81\x00\x58\x00\xe4\x00\x82\x00\x03\x01\xf2\x00\x4f\x00\x45\x00\x08\x01\x6e\x00\xba\x00\xbb\x00\x59\x00\x93\x00\x50\x00\xf3\x00\x51\x00\xf4\x00\x94\x00\x52\x00\xfb\x00\x53\x00\x54\x00\x95\x00\x23\x00\x88\xff\x96\x00\xf2\x00\x97\x00\xca\x00\xfc\x00\xfc\x00\x55\x00\xfd\x00\xfd\x00\x6f\x00\x56\x00\xf3\x00\x0a\x01\xf4\x00\xe2\x00\x89\x00\x01\x01\x70\x00\x21\x00\x1a\x00\x0b\x01\xfe\x00\x57\x00\xef\x00\x03\x00\x03\x00\x57\x00\x58\x00\xab\x00\x98\x00\xa5\x00\x99\x00\x03\x00\x57\x00\x93\x00\xde\x00\xb3\x00\xef\x00\x93\x00\x94\x00\xef\x00\x6e\x00\x57\x00\x94\x00\x95\x00\x93\x00\x03\x00\x96\x00\x95\x00\x97\x00\x94\x00\x96\x00\xe2\x00\x97\x00\xf2\x00\x95\x00\xe2\x00\x58\x00\x96\x00\xf0\x00\x97\x00\xa5\x00\x5e\x00\x73\x00\xf3\x00\xa6\x00\xf4\x00\x6f\x00\x59\x00\x6e\x00\xb4\x00\xf5\x00\x5f\x00\x0a\x01\xda\x00\x70\x00\xf0\x00\x29\x00\x03\x00\x03\x00\x57\x00\x04\x00\x6e\x00\x03\x00\x57\x00\xc2\x00\x71\x00\x60\x00\x45\x00\x45\x00\x03\x00\x57\x00\xc3\x00\x03\x00\xc4\x00\xeb\x00\xa6\x00\x5a\x00\x88\xff\x03\x00\xb4\x00\xc5\x00\xd9\x00\xb5\x00\x2a\x00\xa7\x00\xf8\x00\x03\x00\x2b\x00\xe2\x00\x2c\x00\x2d\x00\xe4\x00\xb4\x00\x2e\x00\x2f\x00\xb5\x00\x7f\x00\xaa\x00\x30\x00\x52\x00\x03\x00\x53\x00\x54\x00\x88\xff\xb6\x00\x45\x00\x03\x00\x57\x00\x58\x00\xc3\x00\xea\x00\xc4\x00\x55\x00\x8a\x00\x8b\x00\x45\x00\x56\x00\xa9\x00\x5b\x00\xbd\x00\xbe\x00\xbf\x00\x8a\x00\x8b\x00\x45\x00\xe8\x00\x8c\x00\xc8\x00\xb0\x00\xaa\x00\xaa\x00\x03\x00\x57\x00\x58\x00\x45\x00\x8c\x00\xcf\x00\x78\x00\xc0\x00\xc9\x00\x8d\x00\x8e\x00\xf8\x00\x90\x00\x03\x00\x57\x00\x58\x00\x5b\x00\x91\x00\x8d\x00\x8e\x00\xfa\x00\x90\x00\x8a\x00\x8b\x00\x45\x00\xd1\x00\x91\x00\x10\x00\xac\x00\x45\x00\x45\x00\x8a\x00\x8b\x00\xaa\x00\x11\x00\x8c\x00\x26\x00\x61\x00\x87\x00\xd1\x00\x8a\x00\x8b\x00\x5b\x00\x5b\x00\x8c\x00\x80\x00\x27\x00\x05\x00\x06\x00\x8d\x00\x8e\x00\xdb\x00\x90\x00\x8c\x00\xae\x00\x88\x00\xd3\x00\x91\x00\x8d\x00\x8e\x00\xe5\x00\x90\x00\xa4\x00\x8a\x00\x8b\x00\xaf\x00\x91\x00\x8d\x00\x8e\x00\xd6\x00\x90\x00\x45\x00\x8a\x00\x8b\x00\x80\x00\x91\x00\x8c\x00\xba\x00\xbb\x00\x99\x00\x75\x00\x8a\x00\x8b\x00\x77\x00\x5b\x00\x8c\x00\x76\x00\x7b\x00\x7c\x00\x66\x00\x8d\x00\x8e\x00\xb1\x00\x90\x00\x8c\x00\x63\x00\x6d\x00\x3c\x00\x91\x00\x8d\x00\x8e\x00\x8f\x00\x90\x00\x63\x00\x8a\x00\x8b\x00\x31\x00\x91\x00\x8d\x00\x8e\x00\x9e\x00\x90\x00\x45\x00\x8a\x00\x8b\x00\xa3\x00\x91\x00\x8c\x00\x32\x00\x65\x00\x8a\x00\x8b\x00\x08\x00\x64\x00\x09\x00\x5b\x00\x8c\x00\x65\x00\x45\x00\x33\x00\x34\x00\x8d\x00\xd5\x00\x8c\x00\x90\x00\x35\x00\x0a\x00\x5c\x00\x0b\x00\x91\x00\xdc\x00\x5b\x00\x36\x00\x90\x00\x45\x00\x46\x00\x47\x00\xcb\x00\x91\x00\x37\x00\x90\x00\xde\x00\x39\x00\x60\x00\xde\x00\x91\x00\xec\x00\x48\x00\x49\x00\xea\x00\x4b\x00\x4c\x00\x45\x00\x46\x00\x47\x00\xf9\x00\x25\x00\x4d\x00\xdf\x00\x1d\x00\xe0\x00\xed\x00\x02\x01\xe0\x00\xec\x00\x48\x00\x49\x00\xc6\x00\x4b\x00\x4c\x00\x45\x00\x46\x00\x47\x00\x1e\x00\x14\x00\x4d\x00\x15\x00\x16\x00\x0b\x00\xed\x00\xee\x00\x0c\x00\x0d\x00\x48\x00\x49\x00\xbb\x00\x4b\x00\x4c\x00\x45\x00\x46\x00\x47\x00\x0e\x00\x57\x00\x4d\x00\x05\x01\x06\x01\x07\x01\x08\x01\xaa\x00\x02\x01\x8d\xff\x48\x00\x49\x00\xbc\x00\x4b\x00\x4c\x00\x45\x00\x46\x00\x47\x00\x03\x00\x00\x01\x4d\x00\x58\x00\xf6\x00\xaa\x00\x03\x00\xaa\x00\xf7\x00\xb8\x00\x48\x00\x49\x00\x7a\x00\x4b\x00\x4c\x00\x45\x00\x46\x00\x47\x00\xe7\x00\x8d\xff\x4d\x00\x03\x00\xe8\x00\xc8\x00\x58\x00\xcd\x00\xce\x00\xcf\x00\x48\x00\x49\x00\xa0\x00\x4b\x00\x4c\x00\x45\x00\x46\x00\x47\x00\xd3\x00\xd5\x00\x4d\x00\xd9\x00\xd8\x00\x03\x00\xae\x00\x03\x00\xaa\x00\xc5\x00\x48\x00\x49\x00\xa1\x00\x4b\x00\x4c\x00\x79\x00\x46\x00\x47\x00\xb9\x00\x03\x00\x4d\x00\xb8\x00\x84\x00\x85\x00\x86\x00\x88\x00\x9b\x00\x58\x00\x48\x00\x49\x00\x7a\x00\x4b\x00\x4c\x00\x45\x00\x46\x00\x47\x00\x9c\x00\x03\x00\x4d\x00\x9d\x00\x9e\x00\xa0\x00\xa3\x00\x03\x00\x68\x00\x69\x00\x48\x00\x49\x00\x4a\x00\x4b\x00\x4c\x00\x45\x00\x46\x00\x47\x00\x6a\x00\x6b\x00\x4d\x00\x6c\x00\x6d\x00\x45\x00\x46\x00\x47\x00\x74\x00\x75\x00\x48\x00\x49\x00\x62\x00\x4b\x00\x4c\x00\x58\x00\x3f\x00\x03\x00\x48\x00\x80\x00\x4d\x00\x7d\x00\x4c\x00\x3e\x00\x40\x00\x41\x00\x42\x00\x03\x00\x4d\x00\x44\x00\x43\x00\x45\x00\x03\x00\x39\x00\x3c\x00\x14\x00\x3b\x00\x03\x00\x31\x00\x03\x00\x03\x00\x20\x00\x21\x00\x25\x00\x1c\x00\x03\x00\x1d\x00\x10\x00\x03\x00\x19\x00\x18\x00\x13\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x03\x00\x00\x00\x03\x00\x00\x00\x00\x00\x03\x00\x00\x00\xff\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"# +happyTable :: HappyAddr +happyTable = HappyA# "\x00\x00\x06\x00\x06\x00\x06\x00\xe4\x00\x74\x00\x74\x00\x74\x00\x5e\x00\x87\x00\xe4\x00\x09\x01\x88\x00\x55\x00\xe8\x00\xea\x00\xf5\x00\x74\x00\xff\x00\x5f\x00\x56\x00\x99\x00\x57\x00\xe6\x00\xe5\x00\x58\x00\x9a\x00\x59\x00\x5a\x00\xe6\x00\x9b\x00\x75\x00\x28\x00\x9c\x00\xf5\x00\x9d\x00\xf8\x00\xb9\x00\x5b\x00\x76\x00\x02\x01\x02\x01\x5c\x00\x03\x01\x03\x01\xf9\x00\x10\x01\xfa\x00\x8f\x00\xf5\x00\xb1\x00\xd0\x00\xf6\x00\x22\x00\x15\x00\x07\x00\x11\x01\x04\x01\x03\x00\x5d\x00\x5e\x00\x5d\x00\x29\x00\x9e\x00\x5e\x00\x9f\x00\x03\x00\x5d\x00\x99\x00\xe4\x00\x10\x01\xba\x00\x0e\x01\x9a\x00\x99\x00\x5f\x00\x74\x00\x9b\x00\x79\x00\x9a\x00\x9c\x00\x03\x00\x9d\x00\x9b\x00\x99\x00\xf6\x00\x9c\x00\xe8\x00\x9d\x00\x9a\x00\xf8\x00\x64\x00\x03\x00\x9b\x00\xf8\x00\x04\x00\x9c\x00\xfe\x00\x9d\x00\xf9\x00\x65\x00\xfa\x00\x75\x00\xf9\x00\x60\x00\xfa\x00\xfb\x00\x2f\x00\xab\x00\x03\x00\x76\x00\xab\x00\xf2\x00\x03\x00\x5d\x00\x66\x00\xc8\x00\xb0\x00\xe8\x00\x03\x00\x5d\x00\x77\x00\xc9\x00\x74\x00\xca\x00\x4b\x00\x87\xff\xf3\x00\x08\x01\x03\x00\x5d\x00\x74\x00\x2c\x00\x30\x00\x07\x01\x03\x00\x03\x00\x31\x00\x61\x00\x03\x00\x32\x00\x33\x00\x2d\x00\xac\x00\x34\x00\x35\x00\xac\x00\xf1\x00\x87\xff\x36\x00\xb0\x00\x03\x00\xe0\x00\x87\xff\xba\x00\xad\x00\xe8\x00\xbb\x00\x03\x00\x5d\x00\x5e\x00\x5d\x00\xba\x00\x69\x00\x85\x00\xbb\x00\xea\x00\x58\x00\x4b\x00\x59\x00\x5a\x00\xc9\x00\xf0\x00\xca\x00\xbc\x00\x87\xff\x90\x00\x91\x00\x86\x00\xaf\x00\x5b\x00\x61\x00\x4b\x00\xa9\x00\x5c\x00\x90\x00\x91\x00\x6b\x00\xd7\x00\x92\x00\xc0\x00\xc1\x00\xee\x00\xb2\x00\xce\x00\x01\x01\xb0\x00\x4b\x00\x92\x00\xb0\x00\x03\x00\x5d\x00\x5e\x00\x93\x00\x94\x00\xfe\x00\x96\x00\x03\x00\x5d\x00\x5e\x00\x61\x00\x97\x00\x93\x00\x94\x00\x00\x01\x96\x00\x90\x00\x91\x00\x08\x00\x09\x00\x97\x00\xcf\x00\xb4\x00\x4b\x00\x4b\x00\x90\x00\x91\x00\x4b\x00\x4b\x00\x92\x00\xd7\x00\xc3\x00\xc4\x00\xc5\x00\x90\x00\x91\x00\x61\x00\x61\x00\x92\x00\xd5\x00\xcb\x00\xdf\x00\xd9\x00\x93\x00\x94\x00\xe1\x00\x96\x00\x92\x00\x8e\x00\x73\x00\xc6\x00\x97\x00\x93\x00\x94\x00\xeb\x00\x96\x00\xb5\x00\x90\x00\x91\x00\x4b\x00\x97\x00\x93\x00\x94\x00\xdc\x00\x96\x00\x4b\x00\x90\x00\x91\x00\x4b\x00\x97\x00\x92\x00\xaa\x00\xb6\x00\x17\x00\x86\x00\x90\x00\x91\x00\x8d\x00\x61\x00\x92\x00\x18\x00\x7e\x00\x9f\x00\x86\x00\x93\x00\x94\x00\xb7\x00\x96\x00\x92\x00\x69\x00\x62\x00\x7b\x00\x97\x00\x93\x00\x94\x00\x95\x00\x96\x00\x7c\x00\x90\x00\x91\x00\x7d\x00\x97\x00\x93\x00\x94\x00\xa4\x00\x96\x00\x4b\x00\x90\x00\x91\x00\x6a\x00\x97\x00\x92\x00\x81\x00\x6b\x00\x90\x00\x91\x00\x4b\x00\xc0\x00\xc1\x00\x61\x00\x92\x00\x82\x00\x6c\x00\x42\x00\x37\x00\x93\x00\xdb\x00\x92\x00\x96\x00\x67\x00\x0b\x00\x66\x00\x0c\x00\x97\x00\xe2\x00\x38\x00\x39\x00\x96\x00\x4b\x00\x4c\x00\x4d\x00\xd1\x00\x97\x00\x3a\x00\x96\x00\x0d\x00\x3b\x00\x0e\x00\xf2\x00\x97\x00\x3c\x00\x4e\x00\x4f\x00\xf0\x00\x51\x00\x52\x00\x4b\x00\x4c\x00\x4d\x00\x3d\x00\x3f\x00\x53\x00\x2b\x00\xf3\x00\xf4\x00\x25\x00\x26\x00\x21\x00\x1b\x00\x4e\x00\x4f\x00\xcc\x00\x51\x00\x52\x00\x4b\x00\x4c\x00\x4d\x00\x1c\x00\x1d\x00\x53\x00\x16\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x0b\x01\x5d\x00\x4e\x00\x4f\x00\xc1\x00\x51\x00\x52\x00\x4b\x00\x4c\x00\x4d\x00\x0c\x01\x0d\x01\x53\x00\x0e\x01\xb0\x00\x03\x00\x8c\xff\x06\x01\x08\x01\x5e\x00\x4e\x00\x4f\x00\xc2\x00\x51\x00\x52\x00\x4b\x00\x4c\x00\x4d\x00\xfc\x00\xb0\x00\x53\x00\xfd\x00\x03\x00\x8c\xff\xee\x00\xb0\x00\xbe\x00\x5e\x00\x4e\x00\x4f\x00\x80\x00\x51\x00\x52\x00\x4b\x00\x4c\x00\x4d\x00\xed\x00\xce\x00\x53\x00\x03\x00\xd3\x00\xd4\x00\xd5\x00\xd9\x00\xdb\x00\xb4\x00\x4e\x00\x4f\x00\xa6\x00\x51\x00\x52\x00\x4b\x00\x4c\x00\x4d\x00\xde\x00\xdf\x00\x53\x00\x03\x00\x03\x00\xb0\x00\xbf\x00\xcb\x00\x8a\x00\xbe\x00\x4e\x00\x4f\x00\xa7\x00\x51\x00\x52\x00\x7f\x00\x4c\x00\x4d\x00\x8b\x00\x03\x00\x53\x00\x8c\x00\x03\x00\x8e\x00\xa1\x00\xa3\x00\x5e\x00\xa2\x00\x4e\x00\x4f\x00\x80\x00\x51\x00\x52\x00\x4b\x00\x4c\x00\x4d\x00\xa4\x00\xa6\x00\x53\x00\xa9\x00\x03\x00\x6e\x00\x86\x00\x6f\x00\x70\x00\x71\x00\x4e\x00\x4f\x00\x50\x00\x51\x00\x52\x00\x4b\x00\x4c\x00\x4d\x00\x72\x00\x73\x00\x53\x00\x7a\x00\x03\x00\x4b\x00\x4c\x00\x4d\x00\x03\x00\x7b\x00\x4e\x00\x4f\x00\x68\x00\x51\x00\x52\x00\x5e\x00\x45\x00\x44\x00\x4e\x00\x46\x00\x53\x00\x83\x00\x52\x00\x47\x00\x48\x00\x49\x00\x4a\x00\x4b\x00\x53\x00\x3f\x00\x03\x00\x42\x00\x41\x00\x37\x00\x24\x00\x03\x00\x2b\x00\x20\x00\x03\x00\x03\x00\x28\x00\x25\x00\x03\x00\x21\x00\x03\x00\x1b\x00\x1f\x00\x13\x00\x1a\x00\x14\x00\x03\x00\x06\x00\x15\x00\x00\x00\x00\x00\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x03\x00\x00\x00\x00\x00\xff\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"# -happyReduceArr = array (1, 131) [ +happyReduceArr = array (1, 132) [ (1 , happyReduce_1), (2 , happyReduce_2), (3 , happyReduce_3), @@ -481,10 +485,11 @@ happyReduceArr = array (1, 131) [ (128 , happyReduce_128), (129 , happyReduce_129), (130 , happyReduce_130), - (131 , happyReduce_131) + (131 , happyReduce_131), + (132 , happyReduce_132) ] -happy_n_terms = 52 :: Int +happy_n_terms = 53 :: Int happy_n_nonterms = 53 :: Int happyReduce_1 = happySpecReduce_1 0# happyReduction_1 @@ -508,15 +513,30 @@ happyReduction_3 happy_x_1 ((read happy_var_1) :: Integer )} -happyReduce_4 = happySpecReduce_1 3# happyReduction_4 -happyReduction_4 happy_x_1 +happyReduce_4 = happyReduce 6# 3# happyReduction_4 +happyReduction_4 (happy_x_6 `HappyStk` + happy_x_5 `HappyStk` + happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut56 happy_x_2 of { happy_var_2 -> + case happyOut4 happy_x_4 of { happy_var_4 -> + case happyOut10 happy_x_6 of { happy_var_6 -> + happyIn7 + (MGr happy_var_2 happy_var_4 (reverse happy_var_6) + ) `HappyStk` happyRest}}} + +happyReduce_5 = happySpecReduce_1 3# happyReduction_5 +happyReduction_5 happy_x_1 = case happyOut10 happy_x_1 of { happy_var_1 -> happyIn7 (Gr (reverse happy_var_1) )} -happyReduce_5 = happyReduce 8# 4# happyReduction_5 -happyReduction_5 (happy_x_8 `HappyStk` +happyReduce_6 = happyReduce 8# 4# happyReduction_6 +happyReduction_6 (happy_x_8 `HappyStk` happy_x_7 `HappyStk` happy_x_6 `HappyStk` happy_x_5 `HappyStk` @@ -534,16 +554,16 @@ happyReduction_5 (happy_x_8 `HappyStk` (Mod happy_var_1 happy_var_3 happy_var_4 (reverse happy_var_6) (reverse happy_var_7) ) `HappyStk` happyRest}}}}} -happyReduce_6 = happySpecReduce_2 5# happyReduction_6 -happyReduction_6 happy_x_2 +happyReduce_7 = happySpecReduce_2 5# happyReduction_7 +happyReduction_7 happy_x_2 happy_x_1 = case happyOut4 happy_x_2 of { happy_var_2 -> happyIn9 (MTAbs happy_var_2 )} -happyReduce_7 = happyReduce 4# 5# happyReduction_7 -happyReduction_7 (happy_x_4 `HappyStk` +happyReduce_8 = happyReduce 4# 5# happyReduction_8 +happyReduction_8 (happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` @@ -554,16 +574,16 @@ happyReduction_7 (happy_x_4 `HappyStk` (MTCnc happy_var_2 happy_var_4 ) `HappyStk` happyRest}} -happyReduce_8 = happySpecReduce_2 5# happyReduction_8 -happyReduction_8 happy_x_2 +happyReduce_9 = happySpecReduce_2 5# happyReduction_9 +happyReduction_9 happy_x_2 happy_x_1 = case happyOut4 happy_x_2 of { happy_var_2 -> happyIn9 (MTRes happy_var_2 )} -happyReduce_9 = happyReduce 6# 5# happyReduction_9 -happyReduction_9 (happy_x_6 `HappyStk` +happyReduce_10 = happyReduce 6# 5# happyReduction_10 +happyReduction_10 (happy_x_6 `HappyStk` happy_x_5 `HappyStk` happy_x_4 `HappyStk` happy_x_3 `HappyStk` @@ -577,13 +597,13 @@ happyReduction_9 (happy_x_6 `HappyStk` (MTTrans happy_var_2 happy_var_4 happy_var_6 ) `HappyStk` happyRest}}} -happyReduce_10 = happySpecReduce_0 6# happyReduction_10 -happyReduction_10 = happyIn10 +happyReduce_11 = happySpecReduce_0 6# happyReduction_11 +happyReduction_11 = happyIn10 ([] ) -happyReduce_11 = happySpecReduce_2 6# happyReduction_11 -happyReduction_11 happy_x_2 +happyReduce_12 = happySpecReduce_2 6# happyReduction_12 +happyReduction_12 happy_x_2 happy_x_1 = case happyOut10 happy_x_1 of { happy_var_1 -> case happyOut8 happy_x_2 of { happy_var_2 -> @@ -591,24 +611,19 @@ happyReduction_11 happy_x_2 (flip (:) happy_var_1 happy_var_2 )}} -happyReduce_12 = happySpecReduce_2 7# happyReduction_12 -happyReduction_12 happy_x_2 +happyReduce_13 = happySpecReduce_2 7# happyReduction_13 +happyReduction_13 happy_x_2 happy_x_1 = case happyOut4 happy_x_1 of { happy_var_1 -> happyIn11 (Ext happy_var_1 )} -happyReduce_13 = happySpecReduce_0 7# happyReduction_13 -happyReduction_13 = happyIn11 +happyReduce_14 = happySpecReduce_0 7# happyReduction_14 +happyReduction_14 = happyIn11 (NoExt ) -happyReduce_14 = happySpecReduce_0 8# happyReduction_14 -happyReduction_14 = happyIn12 - (NoOpens - ) - happyReduce_15 = happySpecReduce_3 8# happyReduction_15 happyReduction_15 happy_x_3 happy_x_2 @@ -618,8 +633,13 @@ happyReduction_15 happy_x_3 (Opens happy_var_2 )} -happyReduce_16 = happyReduce 4# 9# happyReduction_16 -happyReduction_16 (happy_x_4 `HappyStk` +happyReduce_16 = happySpecReduce_0 8# happyReduction_16 +happyReduction_16 = happyIn12 + (NoOpens + ) + +happyReduce_17 = happyReduce 4# 9# happyReduction_17 +happyReduction_17 (happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` @@ -630,8 +650,8 @@ happyReduction_16 (happy_x_4 `HappyStk` (Flg happy_var_2 happy_var_4 ) `HappyStk` happyRest}} -happyReduce_17 = happyReduce 7# 10# happyReduction_17 -happyReduction_17 (happy_x_7 `HappyStk` +happyReduce_18 = happyReduce 7# 10# happyReduction_18 +happyReduction_18 (happy_x_7 `HappyStk` happy_x_6 `HappyStk` happy_x_5 `HappyStk` happy_x_4 `HappyStk` @@ -646,8 +666,8 @@ happyReduction_17 (happy_x_7 `HappyStk` (AbsDCat happy_var_2 happy_var_4 (reverse happy_var_7) ) `HappyStk` happyRest}}} -happyReduce_18 = happyReduce 6# 10# happyReduction_18 -happyReduction_18 (happy_x_6 `HappyStk` +happyReduce_19 = happyReduce 6# 10# happyReduction_19 +happyReduction_19 (happy_x_6 `HappyStk` happy_x_5 `HappyStk` happy_x_4 `HappyStk` happy_x_3 `HappyStk` @@ -661,8 +681,8 @@ happyReduction_18 (happy_x_6 `HappyStk` (AbsDFun happy_var_2 happy_var_4 happy_var_6 ) `HappyStk` happyRest}}} -happyReduce_19 = happyReduce 4# 10# happyReduction_19 -happyReduction_19 (happy_x_4 `HappyStk` +happyReduce_20 = happyReduce 4# 10# happyReduction_20 +happyReduction_20 (happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` @@ -673,8 +693,8 @@ happyReduction_19 (happy_x_4 `HappyStk` (AbsDTrans happy_var_2 happy_var_4 ) `HappyStk` happyRest}} -happyReduce_20 = happyReduce 4# 10# happyReduction_20 -happyReduction_20 (happy_x_4 `HappyStk` +happyReduce_21 = happyReduce 4# 10# happyReduction_21 +happyReduction_21 (happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` @@ -685,8 +705,8 @@ happyReduction_20 (happy_x_4 `HappyStk` (ResDPar happy_var_2 happy_var_4 ) `HappyStk` happyRest}} -happyReduce_21 = happyReduce 6# 10# happyReduction_21 -happyReduction_21 (happy_x_6 `HappyStk` +happyReduce_22 = happyReduce 6# 10# happyReduction_22 +happyReduction_22 (happy_x_6 `HappyStk` happy_x_5 `HappyStk` happy_x_4 `HappyStk` happy_x_3 `HappyStk` @@ -700,8 +720,8 @@ happyReduction_21 (happy_x_6 `HappyStk` (ResDOper happy_var_2 happy_var_4 happy_var_6 ) `HappyStk` happyRest}}} -happyReduce_22 = happyReduce 8# 10# happyReduction_22 -happyReduction_22 (happy_x_8 `HappyStk` +happyReduce_23 = happyReduce 8# 10# happyReduction_23 +happyReduction_23 (happy_x_8 `HappyStk` happy_x_7 `HappyStk` happy_x_6 `HappyStk` happy_x_5 `HappyStk` @@ -718,8 +738,8 @@ happyReduction_22 (happy_x_8 `HappyStk` (CncDCat happy_var_2 happy_var_4 happy_var_6 happy_var_8 ) `HappyStk` happyRest}}}} -happyReduce_23 = happyReduce 11# 10# happyReduction_23 -happyReduction_23 (happy_x_11 `HappyStk` +happyReduce_24 = happyReduce 11# 10# happyReduction_24 +happyReduction_24 (happy_x_11 `HappyStk` happy_x_10 `HappyStk` happy_x_9 `HappyStk` happy_x_8 `HappyStk` @@ -740,8 +760,8 @@ happyReduction_23 (happy_x_11 `HappyStk` (CncDFun happy_var_2 happy_var_4 happy_var_7 happy_var_9 happy_var_11 ) `HappyStk` happyRest}}}}} -happyReduce_24 = happyReduce 4# 10# happyReduction_24 -happyReduction_24 (happy_x_4 `HappyStk` +happyReduce_25 = happyReduce 4# 10# happyReduction_25 +happyReduction_25 (happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` @@ -753,8 +773,8 @@ happyReduction_24 (happy_x_4 `HappyStk` (AnyDInd happy_var_1 happy_var_2 happy_var_4 ) `HappyStk` happyRest}}} -happyReduce_25 = happySpecReduce_2 11# happyReduction_25 -happyReduction_25 happy_x_2 +happyReduce_26 = happySpecReduce_2 11# happyReduction_26 +happyReduction_26 happy_x_2 happy_x_1 = case happyOut4 happy_x_1 of { happy_var_1 -> case happyOut45 happy_x_2 of { happy_var_2 -> @@ -762,19 +782,19 @@ happyReduction_25 happy_x_2 (ParD happy_var_1 (reverse happy_var_2) )}} -happyReduce_26 = happySpecReduce_1 12# happyReduction_26 -happyReduction_26 happy_x_1 +happyReduce_27 = happySpecReduce_1 12# happyReduction_27 +happyReduction_27 happy_x_1 = happyIn16 (Canon ) -happyReduce_27 = happySpecReduce_0 12# happyReduction_27 -happyReduction_27 = happyIn16 +happyReduce_28 = happySpecReduce_0 12# happyReduction_28 +happyReduction_28 = happyIn16 (NonCan ) -happyReduce_28 = happySpecReduce_3 13# happyReduction_28 -happyReduction_28 happy_x_3 +happyReduce_29 = happySpecReduce_3 13# happyReduction_29 +happyReduction_29 happy_x_3 happy_x_2 happy_x_1 = case happyOut4 happy_x_1 of { happy_var_1 -> @@ -783,8 +803,8 @@ happyReduction_28 happy_x_3 (CIQ happy_var_1 happy_var_3 )}} -happyReduce_29 = happySpecReduce_2 14# happyReduction_29 -happyReduction_29 happy_x_2 +happyReduce_30 = happySpecReduce_2 14# happyReduction_30 +happyReduction_30 happy_x_2 happy_x_1 = case happyOut18 happy_x_1 of { happy_var_1 -> case happyOut20 happy_x_2 of { happy_var_2 -> @@ -792,15 +812,15 @@ happyReduction_29 happy_x_2 (EApp happy_var_1 happy_var_2 )}} -happyReduce_30 = happySpecReduce_1 14# happyReduction_30 -happyReduction_30 happy_x_1 +happyReduce_31 = happySpecReduce_1 14# happyReduction_31 +happyReduction_31 happy_x_1 = case happyOut20 happy_x_1 of { happy_var_1 -> happyIn18 (happy_var_1 )} -happyReduce_31 = happyReduce 7# 15# happyReduction_31 -happyReduction_31 (happy_x_7 `HappyStk` +happyReduce_32 = happyReduce 7# 15# happyReduction_32 +happyReduction_32 (happy_x_7 `HappyStk` happy_x_6 `HappyStk` happy_x_5 `HappyStk` happy_x_4 `HappyStk` @@ -815,8 +835,8 @@ happyReduction_31 (happy_x_7 `HappyStk` (EProd happy_var_2 happy_var_4 happy_var_7 ) `HappyStk` happyRest}}} -happyReduce_32 = happyReduce 4# 15# happyReduction_32 -happyReduction_32 (happy_x_4 `HappyStk` +happyReduce_33 = happyReduce 4# 15# happyReduction_33 +happyReduction_33 (happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` @@ -827,8 +847,8 @@ happyReduction_32 (happy_x_4 `HappyStk` (EAbs happy_var_2 happy_var_4 ) `HappyStk` happyRest}} -happyReduce_33 = happySpecReduce_3 15# happyReduction_33 -happyReduction_33 happy_x_3 +happyReduce_34 = happySpecReduce_3 15# happyReduction_34 +happyReduction_34 happy_x_3 happy_x_2 happy_x_1 = case happyOut26 happy_x_2 of { happy_var_2 -> @@ -836,28 +856,28 @@ happyReduction_33 happy_x_3 (EEq (reverse happy_var_2) )} -happyReduce_34 = happySpecReduce_1 15# happyReduction_34 -happyReduction_34 happy_x_1 +happyReduce_35 = happySpecReduce_1 15# happyReduction_35 +happyReduction_35 happy_x_1 = case happyOut18 happy_x_1 of { happy_var_1 -> happyIn19 (happy_var_1 )} -happyReduce_35 = happySpecReduce_1 16# happyReduction_35 -happyReduction_35 happy_x_1 +happyReduce_36 = happySpecReduce_1 16# happyReduction_36 +happyReduction_36 happy_x_1 = case happyOut27 happy_x_1 of { happy_var_1 -> happyIn20 (EAtom happy_var_1 )} -happyReduce_36 = happySpecReduce_1 16# happyReduction_36 -happyReduction_36 happy_x_1 +happyReduce_37 = happySpecReduce_1 16# happyReduction_37 +happyReduction_37 happy_x_1 = happyIn20 (EData ) -happyReduce_37 = happySpecReduce_3 16# happyReduction_37 -happyReduction_37 happy_x_3 +happyReduce_38 = happySpecReduce_3 16# happyReduction_38 +happyReduction_38 happy_x_3 happy_x_2 happy_x_1 = case happyOut19 happy_x_2 of { happy_var_2 -> @@ -865,14 +885,14 @@ happyReduction_37 happy_x_3 (happy_var_2 )} -happyReduce_38 = happySpecReduce_1 17# happyReduction_38 -happyReduction_38 happy_x_1 +happyReduce_39 = happySpecReduce_1 17# happyReduction_39 +happyReduction_39 happy_x_1 = happyIn21 (SType ) -happyReduce_39 = happySpecReduce_3 18# happyReduction_39 -happyReduction_39 happy_x_3 +happyReduce_40 = happySpecReduce_3 18# happyReduction_40 +happyReduction_40 happy_x_3 happy_x_2 happy_x_1 = case happyOut25 happy_x_1 of { happy_var_1 -> @@ -881,8 +901,8 @@ happyReduction_39 happy_x_3 (Equ (reverse happy_var_1) happy_var_3 )}} -happyReduce_40 = happyReduce 4# 19# happyReduction_40 -happyReduction_40 (happy_x_4 `HappyStk` +happyReduce_41 = happyReduce 4# 19# happyReduction_41 +happyReduction_41 (happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` @@ -893,47 +913,47 @@ happyReduction_40 (happy_x_4 `HappyStk` (APC happy_var_2 (reverse happy_var_3) ) `HappyStk` happyRest}} -happyReduce_41 = happySpecReduce_1 19# happyReduction_41 -happyReduction_41 happy_x_1 +happyReduce_42 = happySpecReduce_1 19# happyReduction_42 +happyReduction_42 happy_x_1 = case happyOut4 happy_x_1 of { happy_var_1 -> happyIn23 (APV happy_var_1 )} -happyReduce_42 = happySpecReduce_1 19# happyReduction_42 -happyReduction_42 happy_x_1 +happyReduce_43 = happySpecReduce_1 19# happyReduction_43 +happyReduction_43 happy_x_1 = case happyOut5 happy_x_1 of { happy_var_1 -> happyIn23 (APS happy_var_1 )} -happyReduce_43 = happySpecReduce_1 19# happyReduction_43 -happyReduction_43 happy_x_1 +happyReduce_44 = happySpecReduce_1 19# happyReduction_44 +happyReduction_44 happy_x_1 = case happyOut6 happy_x_1 of { happy_var_1 -> happyIn23 (API happy_var_1 )} -happyReduce_44 = happySpecReduce_1 19# happyReduction_44 -happyReduction_44 happy_x_1 +happyReduce_45 = happySpecReduce_1 19# happyReduction_45 +happyReduction_45 happy_x_1 = happyIn23 (APW ) -happyReduce_45 = happySpecReduce_0 20# happyReduction_45 -happyReduction_45 = happyIn24 +happyReduce_46 = happySpecReduce_0 20# happyReduction_46 +happyReduction_46 = happyIn24 ([] ) -happyReduce_46 = happySpecReduce_1 20# happyReduction_46 -happyReduction_46 happy_x_1 +happyReduce_47 = happySpecReduce_1 20# happyReduction_47 +happyReduction_47 happy_x_1 = case happyOut28 happy_x_1 of { happy_var_1 -> happyIn24 ((:[]) happy_var_1 )} -happyReduce_47 = happySpecReduce_3 20# happyReduction_47 -happyReduction_47 happy_x_3 +happyReduce_48 = happySpecReduce_3 20# happyReduction_48 +happyReduction_48 happy_x_3 happy_x_2 happy_x_1 = case happyOut28 happy_x_1 of { happy_var_1 -> @@ -942,13 +962,13 @@ happyReduction_47 happy_x_3 ((:) happy_var_1 happy_var_3 )}} -happyReduce_48 = happySpecReduce_0 21# happyReduction_48 -happyReduction_48 = happyIn25 +happyReduce_49 = happySpecReduce_0 21# happyReduction_49 +happyReduction_49 = happyIn25 ([] ) -happyReduce_49 = happySpecReduce_2 21# happyReduction_49 -happyReduction_49 happy_x_2 +happyReduce_50 = happySpecReduce_2 21# happyReduction_50 +happyReduction_50 happy_x_2 happy_x_1 = case happyOut25 happy_x_1 of { happy_var_1 -> case happyOut23 happy_x_2 of { happy_var_2 -> @@ -956,13 +976,13 @@ happyReduction_49 happy_x_2 (flip (:) happy_var_1 happy_var_2 )}} -happyReduce_50 = happySpecReduce_0 22# happyReduction_50 -happyReduction_50 = happyIn26 +happyReduce_51 = happySpecReduce_0 22# happyReduction_51 +happyReduction_51 = happyIn26 ([] ) -happyReduce_51 = happySpecReduce_3 22# happyReduction_51 -happyReduction_51 happy_x_3 +happyReduce_52 = happySpecReduce_3 22# happyReduction_52 +happyReduction_52 happy_x_3 happy_x_2 happy_x_1 = case happyOut26 happy_x_1 of { happy_var_1 -> @@ -971,15 +991,15 @@ happyReduction_51 happy_x_3 (flip (:) happy_var_1 happy_var_2 )}} -happyReduce_52 = happySpecReduce_1 23# happyReduction_52 -happyReduction_52 happy_x_1 +happyReduce_53 = happySpecReduce_1 23# happyReduction_53 +happyReduction_53 happy_x_1 = case happyOut17 happy_x_1 of { happy_var_1 -> happyIn27 (AC happy_var_1 )} -happyReduce_53 = happySpecReduce_3 23# happyReduction_53 -happyReduction_53 happy_x_3 +happyReduce_54 = happySpecReduce_3 23# happyReduction_54 +happyReduction_54 happy_x_3 happy_x_2 happy_x_1 = case happyOut17 happy_x_2 of { happy_var_2 -> @@ -987,45 +1007,45 @@ happyReduction_53 happy_x_3 (AD happy_var_2 )} -happyReduce_54 = happySpecReduce_2 23# happyReduction_54 -happyReduction_54 happy_x_2 +happyReduce_55 = happySpecReduce_2 23# happyReduction_55 +happyReduction_55 happy_x_2 happy_x_1 = case happyOut4 happy_x_2 of { happy_var_2 -> happyIn27 (AV happy_var_2 )} -happyReduce_55 = happySpecReduce_2 23# happyReduction_55 -happyReduction_55 happy_x_2 +happyReduce_56 = happySpecReduce_2 23# happyReduction_56 +happyReduction_56 happy_x_2 happy_x_1 = case happyOut6 happy_x_2 of { happy_var_2 -> happyIn27 (AM happy_var_2 )} -happyReduce_56 = happySpecReduce_1 23# happyReduction_56 -happyReduction_56 happy_x_1 +happyReduce_57 = happySpecReduce_1 23# happyReduction_57 +happyReduction_57 happy_x_1 = case happyOut5 happy_x_1 of { happy_var_1 -> happyIn27 (AS happy_var_1 )} -happyReduce_57 = happySpecReduce_1 23# happyReduction_57 -happyReduction_57 happy_x_1 +happyReduce_58 = happySpecReduce_1 23# happyReduction_58 +happyReduction_58 happy_x_1 = case happyOut6 happy_x_1 of { happy_var_1 -> happyIn27 (AI happy_var_1 )} -happyReduce_58 = happySpecReduce_1 23# happyReduction_58 -happyReduction_58 happy_x_1 +happyReduce_59 = happySpecReduce_1 23# happyReduction_59 +happyReduction_59 happy_x_1 = case happyOut21 happy_x_1 of { happy_var_1 -> happyIn27 (AT happy_var_1 )} -happyReduce_59 = happySpecReduce_3 24# happyReduction_59 -happyReduction_59 happy_x_3 +happyReduce_60 = happySpecReduce_3 24# happyReduction_60 +happyReduction_60 happy_x_3 happy_x_2 happy_x_1 = case happyOut4 happy_x_1 of { happy_var_1 -> @@ -1034,8 +1054,8 @@ happyReduction_59 happy_x_3 (Decl happy_var_1 happy_var_3 )}} -happyReduce_60 = happySpecReduce_3 25# happyReduction_60 -happyReduction_60 happy_x_3 +happyReduce_61 = happySpecReduce_3 25# happyReduction_61 +happyReduction_61 happy_x_3 happy_x_2 happy_x_1 = case happyOut49 happy_x_2 of { happy_var_2 -> @@ -1043,8 +1063,8 @@ happyReduction_60 happy_x_3 (RecType happy_var_2 )} -happyReduce_61 = happyReduce 5# 25# happyReduction_61 -happyReduction_61 (happy_x_5 `HappyStk` +happyReduce_62 = happyReduce 5# 25# happyReduction_62 +happyReduction_62 (happy_x_5 `HappyStk` happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` @@ -1056,21 +1076,21 @@ happyReduction_61 (happy_x_5 `HappyStk` (Table happy_var_2 happy_var_4 ) `HappyStk` happyRest}} -happyReduce_62 = happySpecReduce_1 25# happyReduction_62 -happyReduction_62 happy_x_1 +happyReduce_63 = happySpecReduce_1 25# happyReduction_63 +happyReduction_63 happy_x_1 = case happyOut17 happy_x_1 of { happy_var_1 -> happyIn29 (Cn happy_var_1 )} -happyReduce_63 = happySpecReduce_1 25# happyReduction_63 -happyReduction_63 happy_x_1 +happyReduce_64 = happySpecReduce_1 25# happyReduction_64 +happyReduction_64 happy_x_1 = happyIn29 (TStr ) -happyReduce_64 = happySpecReduce_3 26# happyReduction_64 -happyReduction_64 happy_x_3 +happyReduce_65 = happySpecReduce_3 26# happyReduction_65 +happyReduction_65 happy_x_3 happy_x_2 happy_x_1 = case happyOut38 happy_x_1 of { happy_var_1 -> @@ -1079,22 +1099,22 @@ happyReduction_64 happy_x_3 (Lbg happy_var_1 happy_var_3 )}} -happyReduce_65 = happySpecReduce_1 27# happyReduction_65 -happyReduction_65 happy_x_1 +happyReduce_66 = happySpecReduce_1 27# happyReduction_66 +happyReduction_66 happy_x_1 = case happyOut39 happy_x_1 of { happy_var_1 -> happyIn31 (Arg happy_var_1 )} -happyReduce_66 = happySpecReduce_1 27# happyReduction_66 -happyReduction_66 happy_x_1 +happyReduce_67 = happySpecReduce_1 27# happyReduction_67 +happyReduction_67 happy_x_1 = case happyOut17 happy_x_1 of { happy_var_1 -> happyIn31 (I happy_var_1 )} -happyReduce_67 = happyReduce 4# 27# happyReduction_67 -happyReduction_67 (happy_x_4 `HappyStk` +happyReduce_68 = happyReduce 4# 27# happyReduction_68 +happyReduction_68 (happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` @@ -1105,16 +1125,16 @@ happyReduction_67 (happy_x_4 `HappyStk` (Con happy_var_2 (reverse happy_var_3) ) `HappyStk` happyRest}} -happyReduce_68 = happySpecReduce_2 27# happyReduction_68 -happyReduction_68 happy_x_2 +happyReduce_69 = happySpecReduce_2 27# happyReduction_69 +happyReduction_69 happy_x_2 happy_x_1 = case happyOut4 happy_x_2 of { happy_var_2 -> happyIn31 (LI happy_var_2 )} -happyReduce_69 = happySpecReduce_3 27# happyReduction_69 -happyReduction_69 happy_x_3 +happyReduce_70 = happySpecReduce_3 27# happyReduction_70 +happyReduction_70 happy_x_3 happy_x_2 happy_x_1 = case happyOut47 happy_x_2 of { happy_var_2 -> @@ -1122,22 +1142,22 @@ happyReduction_69 happy_x_3 (R happy_var_2 )} -happyReduce_70 = happySpecReduce_1 27# happyReduction_70 -happyReduction_70 happy_x_1 +happyReduce_71 = happySpecReduce_1 27# happyReduction_71 +happyReduction_71 happy_x_1 = case happyOut34 happy_x_1 of { happy_var_1 -> happyIn31 (K happy_var_1 )} -happyReduce_71 = happySpecReduce_2 27# happyReduction_71 -happyReduction_71 happy_x_2 +happyReduce_72 = happySpecReduce_2 27# happyReduction_72 +happyReduction_72 happy_x_2 happy_x_1 = happyIn31 (E ) -happyReduce_72 = happySpecReduce_3 27# happyReduction_72 -happyReduction_72 happy_x_3 +happyReduce_73 = happySpecReduce_3 27# happyReduction_73 +happyReduction_73 happy_x_3 happy_x_2 happy_x_1 = case happyOut33 happy_x_2 of { happy_var_2 -> @@ -1145,8 +1165,8 @@ happyReduction_72 happy_x_3 (happy_var_2 )} -happyReduce_73 = happySpecReduce_3 28# happyReduction_73 -happyReduction_73 happy_x_3 +happyReduce_74 = happySpecReduce_3 28# happyReduction_74 +happyReduction_74 happy_x_3 happy_x_2 happy_x_1 = case happyOut31 happy_x_1 of { happy_var_1 -> @@ -1155,8 +1175,8 @@ happyReduction_73 happy_x_3 (P happy_var_1 happy_var_3 )}} -happyReduce_74 = happyReduce 5# 28# happyReduction_74 -happyReduction_74 (happy_x_5 `HappyStk` +happyReduce_75 = happyReduce 5# 28# happyReduction_75 +happyReduction_75 (happy_x_5 `HappyStk` happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` @@ -1168,8 +1188,8 @@ happyReduction_74 (happy_x_5 `HappyStk` (T happy_var_2 happy_var_4 ) `HappyStk` happyRest}} -happyReduce_75 = happySpecReduce_3 28# happyReduction_75 -happyReduction_75 happy_x_3 +happyReduce_76 = happySpecReduce_3 28# happyReduction_76 +happyReduction_76 happy_x_3 happy_x_2 happy_x_1 = case happyOut32 happy_x_1 of { happy_var_1 -> @@ -1178,8 +1198,8 @@ happyReduction_75 happy_x_3 (S happy_var_1 happy_var_3 )}} -happyReduce_76 = happyReduce 4# 28# happyReduction_76 -happyReduction_76 (happy_x_4 `HappyStk` +happyReduce_77 = happyReduce 4# 28# happyReduction_77 +happyReduction_77 (happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` @@ -1189,15 +1209,15 @@ happyReduction_76 (happy_x_4 `HappyStk` (FV (reverse happy_var_3) ) `HappyStk` happyRest} -happyReduce_77 = happySpecReduce_1 28# happyReduction_77 -happyReduction_77 happy_x_1 +happyReduce_78 = happySpecReduce_1 28# happyReduction_78 +happyReduction_78 happy_x_1 = case happyOut31 happy_x_1 of { happy_var_1 -> happyIn32 (happy_var_1 )} -happyReduce_78 = happySpecReduce_3 29# happyReduction_78 -happyReduction_78 happy_x_3 +happyReduce_79 = happySpecReduce_3 29# happyReduction_79 +happyReduction_79 happy_x_3 happy_x_2 happy_x_1 = case happyOut33 happy_x_1 of { happy_var_1 -> @@ -1206,22 +1226,22 @@ happyReduction_78 happy_x_3 (C happy_var_1 happy_var_3 )}} -happyReduce_79 = happySpecReduce_1 29# happyReduction_79 -happyReduction_79 happy_x_1 +happyReduce_80 = happySpecReduce_1 29# happyReduction_80 +happyReduction_80 happy_x_1 = case happyOut32 happy_x_1 of { happy_var_1 -> happyIn33 (happy_var_1 )} -happyReduce_80 = happySpecReduce_1 30# happyReduction_80 -happyReduction_80 happy_x_1 +happyReduce_81 = happySpecReduce_1 30# happyReduction_81 +happyReduction_81 happy_x_1 = case happyOut5 happy_x_1 of { happy_var_1 -> happyIn34 (KS happy_var_1 )} -happyReduce_81 = happyReduce 7# 30# happyReduction_81 -happyReduction_81 (happy_x_7 `HappyStk` +happyReduce_82 = happyReduce 7# 30# happyReduction_82 +happyReduction_82 (happy_x_7 `HappyStk` happy_x_6 `HappyStk` happy_x_5 `HappyStk` happy_x_4 `HappyStk` @@ -1235,8 +1255,8 @@ happyReduction_81 (happy_x_7 `HappyStk` (KP (reverse happy_var_3) happy_var_5 ) `HappyStk` happyRest}} -happyReduce_82 = happySpecReduce_3 31# happyReduction_82 -happyReduction_82 happy_x_3 +happyReduce_83 = happySpecReduce_3 31# happyReduction_83 +happyReduction_83 happy_x_3 happy_x_2 happy_x_1 = case happyOut38 happy_x_1 of { happy_var_1 -> @@ -1245,8 +1265,8 @@ happyReduction_82 happy_x_3 (Ass happy_var_1 happy_var_3 )}} -happyReduce_83 = happySpecReduce_3 32# happyReduction_83 -happyReduction_83 happy_x_3 +happyReduce_84 = happySpecReduce_3 32# happyReduction_84 +happyReduction_84 happy_x_3 happy_x_2 happy_x_1 = case happyOut55 happy_x_1 of { happy_var_1 -> @@ -1255,8 +1275,8 @@ happyReduction_83 happy_x_3 (Cas (reverse happy_var_1) happy_var_3 )}} -happyReduce_84 = happySpecReduce_3 33# happyReduction_84 -happyReduction_84 happy_x_3 +happyReduce_85 = happySpecReduce_3 33# happyReduction_85 +happyReduction_85 happy_x_3 happy_x_2 happy_x_1 = case happyOut52 happy_x_1 of { happy_var_1 -> @@ -1265,23 +1285,23 @@ happyReduction_84 happy_x_3 (Var (reverse happy_var_1) (reverse happy_var_3) )}} -happyReduce_85 = happySpecReduce_1 34# happyReduction_85 -happyReduction_85 happy_x_1 +happyReduce_86 = happySpecReduce_1 34# happyReduction_86 +happyReduction_86 happy_x_1 = case happyOut4 happy_x_1 of { happy_var_1 -> happyIn38 (L happy_var_1 )} -happyReduce_86 = happySpecReduce_2 34# happyReduction_86 -happyReduction_86 happy_x_2 +happyReduce_87 = happySpecReduce_2 34# happyReduction_87 +happyReduction_87 happy_x_2 happy_x_1 = case happyOut6 happy_x_2 of { happy_var_2 -> happyIn38 (LV happy_var_2 )} -happyReduce_87 = happySpecReduce_3 35# happyReduction_87 -happyReduction_87 happy_x_3 +happyReduce_88 = happySpecReduce_3 35# happyReduction_88 +happyReduction_88 happy_x_3 happy_x_2 happy_x_1 = case happyOut4 happy_x_1 of { happy_var_1 -> @@ -1290,8 +1310,8 @@ happyReduction_87 happy_x_3 (A happy_var_1 happy_var_3 )}} -happyReduce_88 = happyReduce 5# 35# happyReduction_88 -happyReduction_88 (happy_x_5 `HappyStk` +happyReduce_89 = happyReduce 5# 35# happyReduction_89 +happyReduction_89 (happy_x_5 `HappyStk` happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` @@ -1304,8 +1324,8 @@ happyReduction_88 (happy_x_5 `HappyStk` (AB happy_var_1 happy_var_3 happy_var_5 ) `HappyStk` happyRest}}} -happyReduce_89 = happyReduce 4# 36# happyReduction_89 -happyReduction_89 (happy_x_4 `HappyStk` +happyReduce_90 = happyReduce 4# 36# happyReduction_90 +happyReduction_90 (happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` @@ -1316,21 +1336,21 @@ happyReduction_89 (happy_x_4 `HappyStk` (PC happy_var_2 (reverse happy_var_3) ) `HappyStk` happyRest}} -happyReduce_90 = happySpecReduce_1 36# happyReduction_90 -happyReduction_90 happy_x_1 +happyReduce_91 = happySpecReduce_1 36# happyReduction_91 +happyReduction_91 happy_x_1 = case happyOut4 happy_x_1 of { happy_var_1 -> happyIn40 (PV happy_var_1 )} -happyReduce_91 = happySpecReduce_1 36# happyReduction_91 -happyReduction_91 happy_x_1 +happyReduce_92 = happySpecReduce_1 36# happyReduction_92 +happyReduction_92 happy_x_1 = happyIn40 (PW ) -happyReduce_92 = happySpecReduce_3 36# happyReduction_92 -happyReduction_92 happy_x_3 +happyReduce_93 = happySpecReduce_3 36# happyReduction_93 +happyReduction_93 happy_x_3 happy_x_2 happy_x_1 = case happyOut54 happy_x_2 of { happy_var_2 -> @@ -1338,8 +1358,8 @@ happyReduction_92 happy_x_3 (PR happy_var_2 )} -happyReduce_93 = happySpecReduce_3 37# happyReduction_93 -happyReduction_93 happy_x_3 +happyReduce_94 = happySpecReduce_3 37# happyReduction_94 +happyReduction_94 happy_x_3 happy_x_2 happy_x_1 = case happyOut38 happy_x_1 of { happy_var_1 -> @@ -1348,13 +1368,13 @@ happyReduction_93 happy_x_3 (PAss happy_var_1 happy_var_3 )}} -happyReduce_94 = happySpecReduce_0 38# happyReduction_94 -happyReduction_94 = happyIn42 +happyReduce_95 = happySpecReduce_0 38# happyReduction_95 +happyReduction_95 = happyIn42 ([] ) -happyReduce_95 = happySpecReduce_3 38# happyReduction_95 -happyReduction_95 happy_x_3 +happyReduce_96 = happySpecReduce_3 38# happyReduction_96 +happyReduction_96 happy_x_3 happy_x_2 happy_x_1 = case happyOut42 happy_x_1 of { happy_var_1 -> @@ -1363,13 +1383,13 @@ happyReduction_95 happy_x_3 (flip (:) happy_var_1 happy_var_2 )}} -happyReduce_96 = happySpecReduce_0 39# happyReduction_96 -happyReduction_96 = happyIn43 +happyReduce_97 = happySpecReduce_0 39# happyReduction_97 +happyReduction_97 = happyIn43 ([] ) -happyReduce_97 = happySpecReduce_3 39# happyReduction_97 -happyReduction_97 happy_x_3 +happyReduce_98 = happySpecReduce_3 39# happyReduction_98 +happyReduction_98 happy_x_3 happy_x_2 happy_x_1 = case happyOut43 happy_x_1 of { happy_var_1 -> @@ -1378,20 +1398,20 @@ happyReduction_97 happy_x_3 (flip (:) happy_var_1 happy_var_2 )}} -happyReduce_98 = happySpecReduce_0 40# happyReduction_98 -happyReduction_98 = happyIn44 +happyReduce_99 = happySpecReduce_0 40# happyReduction_99 +happyReduction_99 = happyIn44 ([] ) -happyReduce_99 = happySpecReduce_1 40# happyReduction_99 -happyReduction_99 happy_x_1 +happyReduce_100 = happySpecReduce_1 40# happyReduction_100 +happyReduction_100 happy_x_1 = case happyOut15 happy_x_1 of { happy_var_1 -> happyIn44 ((:[]) happy_var_1 )} -happyReduce_100 = happySpecReduce_3 40# happyReduction_100 -happyReduction_100 happy_x_3 +happyReduce_101 = happySpecReduce_3 40# happyReduction_101 +happyReduction_101 happy_x_3 happy_x_2 happy_x_1 = case happyOut15 happy_x_1 of { happy_var_1 -> @@ -1400,13 +1420,13 @@ happyReduction_100 happy_x_3 ((:) happy_var_1 happy_var_3 )}} -happyReduce_101 = happySpecReduce_0 41# happyReduction_101 -happyReduction_101 = happyIn45 +happyReduce_102 = happySpecReduce_0 41# happyReduction_102 +happyReduction_102 = happyIn45 ([] ) -happyReduce_102 = happySpecReduce_2 41# happyReduction_102 -happyReduction_102 happy_x_2 +happyReduce_103 = happySpecReduce_2 41# happyReduction_103 +happyReduction_103 happy_x_2 happy_x_1 = case happyOut45 happy_x_1 of { happy_var_1 -> case happyOut29 happy_x_2 of { happy_var_2 -> @@ -1414,13 +1434,13 @@ happyReduction_102 happy_x_2 (flip (:) happy_var_1 happy_var_2 )}} -happyReduce_103 = happySpecReduce_0 42# happyReduction_103 -happyReduction_103 = happyIn46 +happyReduce_104 = happySpecReduce_0 42# happyReduction_104 +happyReduction_104 = happyIn46 ([] ) -happyReduce_104 = happySpecReduce_2 42# happyReduction_104 -happyReduction_104 happy_x_2 +happyReduce_105 = happySpecReduce_2 42# happyReduction_105 +happyReduction_105 happy_x_2 happy_x_1 = case happyOut46 happy_x_1 of { happy_var_1 -> case happyOut17 happy_x_2 of { happy_var_2 -> @@ -1428,20 +1448,20 @@ happyReduction_104 happy_x_2 (flip (:) happy_var_1 happy_var_2 )}} -happyReduce_105 = happySpecReduce_0 43# happyReduction_105 -happyReduction_105 = happyIn47 +happyReduce_106 = happySpecReduce_0 43# happyReduction_106 +happyReduction_106 = happyIn47 ([] ) -happyReduce_106 = happySpecReduce_1 43# happyReduction_106 -happyReduction_106 happy_x_1 +happyReduce_107 = happySpecReduce_1 43# happyReduction_107 +happyReduction_107 happy_x_1 = case happyOut35 happy_x_1 of { happy_var_1 -> happyIn47 ((:[]) happy_var_1 )} -happyReduce_107 = happySpecReduce_3 43# happyReduction_107 -happyReduction_107 happy_x_3 +happyReduce_108 = happySpecReduce_3 43# happyReduction_108 +happyReduction_108 happy_x_3 happy_x_2 happy_x_1 = case happyOut35 happy_x_1 of { happy_var_1 -> @@ -1450,20 +1470,20 @@ happyReduction_107 happy_x_3 ((:) happy_var_1 happy_var_3 )}} -happyReduce_108 = happySpecReduce_0 44# happyReduction_108 -happyReduction_108 = happyIn48 +happyReduce_109 = happySpecReduce_0 44# happyReduction_109 +happyReduction_109 = happyIn48 ([] ) -happyReduce_109 = happySpecReduce_1 44# happyReduction_109 -happyReduction_109 happy_x_1 +happyReduce_110 = happySpecReduce_1 44# happyReduction_110 +happyReduction_110 happy_x_1 = case happyOut39 happy_x_1 of { happy_var_1 -> happyIn48 ((:[]) happy_var_1 )} -happyReduce_110 = happySpecReduce_3 44# happyReduction_110 -happyReduction_110 happy_x_3 +happyReduce_111 = happySpecReduce_3 44# happyReduction_111 +happyReduction_111 happy_x_3 happy_x_2 happy_x_1 = case happyOut39 happy_x_1 of { happy_var_1 -> @@ -1472,20 +1492,20 @@ happyReduction_110 happy_x_3 ((:) happy_var_1 happy_var_3 )}} -happyReduce_111 = happySpecReduce_0 45# happyReduction_111 -happyReduction_111 = happyIn49 +happyReduce_112 = happySpecReduce_0 45# happyReduction_112 +happyReduction_112 = happyIn49 ([] ) -happyReduce_112 = happySpecReduce_1 45# happyReduction_112 -happyReduction_112 happy_x_1 +happyReduce_113 = happySpecReduce_1 45# happyReduction_113 +happyReduction_113 happy_x_1 = case happyOut30 happy_x_1 of { happy_var_1 -> happyIn49 ((:[]) happy_var_1 )} -happyReduce_113 = happySpecReduce_3 45# happyReduction_113 -happyReduction_113 happy_x_3 +happyReduce_114 = happySpecReduce_3 45# happyReduction_114 +happyReduction_114 happy_x_3 happy_x_2 happy_x_1 = case happyOut30 happy_x_1 of { happy_var_1 -> @@ -1494,20 +1514,20 @@ happyReduction_113 happy_x_3 ((:) happy_var_1 happy_var_3 )}} -happyReduce_114 = happySpecReduce_0 46# happyReduction_114 -happyReduction_114 = happyIn50 +happyReduce_115 = happySpecReduce_0 46# happyReduction_115 +happyReduction_115 = happyIn50 ([] ) -happyReduce_115 = happySpecReduce_1 46# happyReduction_115 -happyReduction_115 happy_x_1 +happyReduce_116 = happySpecReduce_1 46# happyReduction_116 +happyReduction_116 happy_x_1 = case happyOut36 happy_x_1 of { happy_var_1 -> happyIn50 ((:[]) happy_var_1 )} -happyReduce_116 = happySpecReduce_3 46# happyReduction_116 -happyReduction_116 happy_x_3 +happyReduce_117 = happySpecReduce_3 46# happyReduction_117 +happyReduction_117 happy_x_3 happy_x_2 happy_x_1 = case happyOut36 happy_x_1 of { happy_var_1 -> @@ -1516,13 +1536,13 @@ happyReduction_116 happy_x_3 ((:) happy_var_1 happy_var_3 )}} -happyReduce_117 = happySpecReduce_0 47# happyReduction_117 -happyReduction_117 = happyIn51 +happyReduce_118 = happySpecReduce_0 47# happyReduction_118 +happyReduction_118 = happyIn51 ([] ) -happyReduce_118 = happySpecReduce_2 47# happyReduction_118 -happyReduction_118 happy_x_2 +happyReduce_119 = happySpecReduce_2 47# happyReduction_119 +happyReduction_119 happy_x_2 happy_x_1 = case happyOut51 happy_x_1 of { happy_var_1 -> case happyOut31 happy_x_2 of { happy_var_2 -> @@ -1530,13 +1550,13 @@ happyReduction_118 happy_x_2 (flip (:) happy_var_1 happy_var_2 )}} -happyReduce_119 = happySpecReduce_0 48# happyReduction_119 -happyReduction_119 = happyIn52 +happyReduce_120 = happySpecReduce_0 48# happyReduction_120 +happyReduction_120 = happyIn52 ([] ) -happyReduce_120 = happySpecReduce_2 48# happyReduction_120 -happyReduction_120 happy_x_2 +happyReduce_121 = happySpecReduce_2 48# happyReduction_121 +happyReduction_121 happy_x_2 happy_x_1 = case happyOut52 happy_x_1 of { happy_var_1 -> case happyOut5 happy_x_2 of { happy_var_2 -> @@ -1544,20 +1564,20 @@ happyReduction_120 happy_x_2 (flip (:) happy_var_1 happy_var_2 )}} -happyReduce_121 = happySpecReduce_0 49# happyReduction_121 -happyReduction_121 = happyIn53 +happyReduce_122 = happySpecReduce_0 49# happyReduction_122 +happyReduction_122 = happyIn53 ([] ) -happyReduce_122 = happySpecReduce_1 49# happyReduction_122 -happyReduction_122 happy_x_1 +happyReduce_123 = happySpecReduce_1 49# happyReduction_123 +happyReduction_123 happy_x_1 = case happyOut37 happy_x_1 of { happy_var_1 -> happyIn53 ((:[]) happy_var_1 )} -happyReduce_123 = happySpecReduce_3 49# happyReduction_123 -happyReduction_123 happy_x_3 +happyReduce_124 = happySpecReduce_3 49# happyReduction_124 +happyReduction_124 happy_x_3 happy_x_2 happy_x_1 = case happyOut37 happy_x_1 of { happy_var_1 -> @@ -1566,20 +1586,20 @@ happyReduction_123 happy_x_3 ((:) happy_var_1 happy_var_3 )}} -happyReduce_124 = happySpecReduce_0 50# happyReduction_124 -happyReduction_124 = happyIn54 +happyReduce_125 = happySpecReduce_0 50# happyReduction_125 +happyReduction_125 = happyIn54 ([] ) -happyReduce_125 = happySpecReduce_1 50# happyReduction_125 -happyReduction_125 happy_x_1 +happyReduce_126 = happySpecReduce_1 50# happyReduction_126 +happyReduction_126 happy_x_1 = case happyOut41 happy_x_1 of { happy_var_1 -> happyIn54 ((:[]) happy_var_1 )} -happyReduce_126 = happySpecReduce_3 50# happyReduction_126 -happyReduction_126 happy_x_3 +happyReduce_127 = happySpecReduce_3 50# happyReduction_127 +happyReduction_127 happy_x_3 happy_x_2 happy_x_1 = case happyOut41 happy_x_1 of { happy_var_1 -> @@ -1588,13 +1608,13 @@ happyReduction_126 happy_x_3 ((:) happy_var_1 happy_var_3 )}} -happyReduce_127 = happySpecReduce_0 51# happyReduction_127 -happyReduction_127 = happyIn55 +happyReduce_128 = happySpecReduce_0 51# happyReduction_128 +happyReduction_128 = happyIn55 ([] ) -happyReduce_128 = happySpecReduce_2 51# happyReduction_128 -happyReduction_128 happy_x_2 +happyReduce_129 = happySpecReduce_2 51# happyReduction_129 +happyReduction_129 happy_x_2 happy_x_1 = case happyOut55 happy_x_1 of { happy_var_1 -> case happyOut40 happy_x_2 of { happy_var_2 -> @@ -1602,20 +1622,20 @@ happyReduction_128 happy_x_2 (flip (:) happy_var_1 happy_var_2 )}} -happyReduce_129 = happySpecReduce_0 52# happyReduction_129 -happyReduction_129 = happyIn56 +happyReduce_130 = happySpecReduce_0 52# happyReduction_130 +happyReduction_130 = happyIn56 ([] ) -happyReduce_130 = happySpecReduce_1 52# happyReduction_130 -happyReduction_130 happy_x_1 +happyReduce_131 = happySpecReduce_1 52# happyReduction_131 +happyReduction_131 happy_x_1 = case happyOut4 happy_x_1 of { happy_var_1 -> happyIn56 ((:[]) happy_var_1 )} -happyReduce_131 = happySpecReduce_3 52# happyReduction_131 -happyReduction_131 happy_x_3 +happyReduce_132 = happySpecReduce_3 52# happyReduction_132 +happyReduction_132 happy_x_3 happy_x_2 happy_x_1 = case happyOut4 happy_x_1 of { happy_var_1 -> @@ -1625,20 +1645,20 @@ happyReduction_131 happy_x_3 )}} happyNewToken action sts stk [] = - happyDoAction 51# (error "reading EOF!") action sts stk [] + happyDoAction 52# (error "reading EOF!") action sts stk [] happyNewToken action sts stk (tk:tks) = let cont i = happyDoAction i tk action sts stk tks in case tk of { - PT _ (TS "=") -> cont 1#; - PT _ (TS "{") -> cont 2#; - PT _ (TS "}") -> cont 3#; - PT _ (TS ":") -> cont 4#; - PT _ (TS "->") -> cont 5#; - PT _ (TS "**") -> cont 6#; - PT _ (TS "[") -> cont 7#; - PT _ (TS "]") -> cont 8#; - PT _ (TS ";") -> cont 9#; + PT _ (TS ";") -> cont 1#; + PT _ (TS "=") -> cont 2#; + PT _ (TS "{") -> cont 3#; + PT _ (TS "}") -> cont 4#; + PT _ (TS ":") -> cont 5#; + PT _ (TS "->") -> cont 6#; + PT _ (TS "**") -> cont 7#; + PT _ (TS "[") -> cont 8#; + PT _ (TS "]") -> cont 9#; PT _ (TS "\\") -> cont 10#; PT _ (TS ".") -> cont 11#; PT _ (TS "(") -> cont 12#; @@ -1664,31 +1684,37 @@ happyNewToken action sts stk (tk:tks) = PT _ (TS "data") -> cont 32#; PT _ (TS "flags") -> cont 33#; PT _ (TS "fun") -> cont 34#; - PT _ (TS "in") -> cont 35#; - PT _ (TS "lin") -> cont 36#; - PT _ (TS "lincat") -> cont 37#; - PT _ (TS "of") -> cont 38#; - PT _ (TS "open") -> cont 39#; - PT _ (TS "oper") -> cont 40#; - PT _ (TS "param") -> cont 41#; - PT _ (TS "pre") -> cont 42#; - PT _ (TS "resource") -> cont 43#; - PT _ (TS "table") -> cont 44#; - PT _ (TS "transfer") -> cont 45#; - PT _ (TS "variants") -> cont 46#; - PT _ (TV happy_dollar_dollar) -> cont 47#; - PT _ (TL happy_dollar_dollar) -> cont 48#; - PT _ (TI happy_dollar_dollar) -> cont 49#; - _ -> cont 50#; + PT _ (TS "grammar") -> cont 35#; + PT _ (TS "in") -> cont 36#; + PT _ (TS "lin") -> cont 37#; + PT _ (TS "lincat") -> cont 38#; + PT _ (TS "of") -> cont 39#; + PT _ (TS "open") -> cont 40#; + PT _ (TS "oper") -> cont 41#; + PT _ (TS "param") -> cont 42#; + PT _ (TS "pre") -> cont 43#; + PT _ (TS "resource") -> cont 44#; + PT _ (TS "table") -> cont 45#; + PT _ (TS "transfer") -> cont 46#; + PT _ (TS "variants") -> cont 47#; + PT _ (TV happy_dollar_dollar) -> cont 48#; + PT _ (TL happy_dollar_dollar) -> cont 49#; + PT _ (TI happy_dollar_dollar) -> cont 50#; + _ -> cont 51#; + _ -> happyError tks } +happyThen :: Err a -> (a -> Err b) -> Err b happyThen = (thenM) +happyReturn :: a -> Err a happyReturn = (returnM) happyThen1 m k tks = (thenM) m (\a -> k a tks) happyReturn1 = \a tks -> (returnM) a pCanon tks = happyThen (happyParse 0# tks) (\x -> happyReturn (happyOut7 x)) +happySeq = happyDontSeq + returnM :: a -> Err a returnM = return @@ -1701,8 +1727,7 @@ happyError ts = myLexer = tokens {-# LINE 1 "GenericTemplate.hs" #-} -{-# LINE 1 "GenericTemplate.hs" #-} --- $Id: ParGFC.hs,v 1.1 2003/11/11 16:44:26 aarne Exp $ +-- $Id: ParGFC.hs,v 1.2 2004/09/14 18:05:47 aarne Exp $ @@ -1811,7 +1836,11 @@ happyDoAction i tk st -indexShortOffAddr (A# arr) off = + + + + +indexShortOffAddr (HappyA# arr) off = #if __GLASGOW_HASKELL__ > 500 narrow16Int# i #elif __GLASGOW_HASKELL__ == 500 @@ -1820,7 +1849,11 @@ indexShortOffAddr (A# arr) off = (i `iShiftL#` 16#) `iShiftRA#` 16# #endif where +#if __GLASGOW_HASKELL__ >= 503 + i = word2Int# ((high `uncheckedShiftL#` 8#) `or#` low) +#else i = word2Int# ((high `shiftL#` 8#) `or#` low) +#endif high = int2Word# (ord# (indexCharOffAddr# arr (off' +# 1#))) low = int2Word# (ord# (indexCharOffAddr# arr off')) off' = off *# 2# @@ -1829,11 +1862,15 @@ indexShortOffAddr (A# arr) off = +data HappyAddr = HappyA# Addr# + + + ----------------------------------------------------------------------------- -- HappyState data type (not arrays) -{-# LINE 153 "GenericTemplate.hs" #-} +{-# LINE 165 "GenericTemplate.hs" #-} ----------------------------------------------------------------------------- @@ -1857,22 +1894,28 @@ happySpecReduce_0 nt fn j tk st@((action)) sts stk happySpecReduce_1 i fn 0# tk st sts stk = happyFail 0# tk st sts stk happySpecReduce_1 nt fn j tk _ sts@((HappyCons (st@(action)) (_))) (v1`HappyStk`stk') - = happyGoto nt j tk st sts (fn v1 `HappyStk` stk') + = let r = fn v1 in + happySeq r (happyGoto nt j tk st sts (r `HappyStk` stk')) happySpecReduce_2 i fn 0# tk st sts stk = happyFail 0# tk st sts stk happySpecReduce_2 nt fn j tk _ (HappyCons (_) (sts@((HappyCons (st@(action)) (_))))) (v1`HappyStk`v2`HappyStk`stk') - = happyGoto nt j tk st sts (fn v1 v2 `HappyStk` stk') + = let r = fn v1 v2 in + happySeq r (happyGoto nt j tk st sts (r `HappyStk` stk')) happySpecReduce_3 i fn 0# tk st sts stk = happyFail 0# tk st sts stk happySpecReduce_3 nt fn j tk _ (HappyCons (_) ((HappyCons (_) (sts@((HappyCons (st@(action)) (_))))))) (v1`HappyStk`v2`HappyStk`v3`HappyStk`stk') - = happyGoto nt j tk st sts (fn v1 v2 v3 `HappyStk` stk') + = let r = fn v1 v2 v3 in + happySeq r (happyGoto nt j tk st sts (r `HappyStk` stk')) happyReduce k i fn 0# tk st sts stk = happyFail 0# tk st sts stk -happyReduce k nt fn j tk st sts stk = happyGoto nt j tk st1 sts1 (fn stk) - where sts1@((HappyCons (st1@(action)) (_))) = happyDrop k (HappyCons (st) (sts)) +happyReduce k nt fn j tk st sts stk + = case happyDrop (k -# (1# :: Int#)) sts of + sts1@((HappyCons (st1@(action)) (_))) -> + let r = fn stk in -- it doesn't hurt to always seq here... + happyDoSeq r (happyGoto nt j tk st1 sts1 r) happyMonadReduce k nt fn 0# tk st sts stk = happyFail 0# tk st sts stk @@ -1940,6 +1983,16 @@ happyTcHack x y = y {-# INLINE happyTcHack #-} +----------------------------------------------------------------------------- +-- Seq-ing. If the --strict flag is given, then Happy emits +-- happySeq = happyDoSeq +-- otherwise it emits +-- happySeq = happyDontSeq + +happyDoSeq, happyDontSeq :: a -> b -> b +happyDoSeq a b = a `seq` b +happyDontSeq a b = b + ----------------------------------------------------------------------------- -- Don't inline any functions from the template. GHC has a nasty habit -- of deciding to inline happyGoto everywhere, which increases the size of diff --git a/src/GF/Canon/PrintGFC.hs b/src/GF/Canon/PrintGFC.hs index e2b6e057a..5182e9270 100644 --- a/src/GF/Canon/PrintGFC.hs +++ b/src/GF/Canon/PrintGFC.hs @@ -95,6 +95,7 @@ instance Print Ident where instance Print Canon where prt i e = case e of + MGr ids id modules -> prPrec i 0 (concatD [doc (showString "grammar") , prt 0 ids , doc (showString "of") , prt 0 id , doc (showString ";") , prt 0 modules]) Gr modules -> prPrec i 0 (concatD [prt 0 modules]) diff --git a/src/GF/Canon/SkelGFC.hs b/src/GF/Canon/SkelGFC.hs index 2b4323356..e2a393ca3 100644 --- a/src/GF/Canon/SkelGFC.hs +++ b/src/GF/Canon/SkelGFC.hs @@ -16,6 +16,7 @@ transIdent x = case x of transCanon :: Canon -> Result transCanon x = case x of + MGr ids id modules -> failure x Gr modules -> failure x @@ -40,8 +41,8 @@ transExtend x = case x of transOpen :: Open -> Result transOpen x = case x of - NoOpens -> failure x Opens ids -> failure x + NoOpens -> failure x transFlag :: Flag -> Result diff --git a/src/GF/Canon/TestGFC.hs b/src/GF/Canon/TestGFC.hs index 2210f4df3..ee4175610 100644 --- a/src/GF/Canon/TestGFC.hs +++ b/src/GF/Canon/TestGFC.hs @@ -1,5 +1,9 @@ -- automatically generated by BNF Converter -module TestGFC where +module Main where + + +import IO ( stdin, hGetContents ) +import System ( getArgs, getProgName ) import LexGFC import ParGFC @@ -7,19 +11,29 @@ import SkelGFC import PrintGFC import AbsGFC + import ErrM type ParseFun a = [Token] -> Err a myLLexer = myLexer -runFile :: (Print a, Show a) => ParseFun a -> FilePath -> IO() +runFile :: (Print a, Show a) => ParseFun a -> FilePath -> IO () runFile p f = readFile f >>= run p -run :: (Print a, Show a) => ParseFun a -> String -> IO() +run :: (Print a, Show a) => ParseFun a -> String -> IO () run p s = case (p (myLLexer s)) of Bad s -> do putStrLn "\nParse Failed...\n" putStrLn s Ok tree -> do putStrLn "\nParse Successful!" putStrLn $ "\n[Abstract Syntax]\n\n" ++ show tree putStrLn $ "\n[Linearized tree]\n\n" ++ printTree tree + + +main :: IO () +main = do args <- getArgs + case args of + [] -> hGetContents stdin >>= run pCanon + [f] -> runFile pCanon f + _ -> do progName <- getProgName + putStrLn $ progName ++ ": excess arguments." diff --git a/src/GF/Compile/GrammarToCanon.hs b/src/GF/Compile/GrammarToCanon.hs index e0db76f90..7b7620f3b 100644 --- a/src/GF/Compile/GrammarToCanon.hs +++ b/src/GF/Compile/GrammarToCanon.hs @@ -80,8 +80,8 @@ redInfo am (c,info) = errIn ("translating definition of" +++ prt c) $ do returns c' $ C.AbsCat cont fs AbsFun (Yes typ) pdf -> do let df = case pdf of - Yes t -> t - _ -> EData --- data vs. primitive + Yes t -> t -- definition or "data" + _ -> Eqs [] -- primitive notion returns c' $ C.AbsFun typ df AbsTrans t -> returns c' $ C.AbsTrans t diff --git a/src/GF/Compile/ShellState.hs b/src/GF/Compile/ShellState.hs index 4b1e5a8f3..8676a60b6 100644 --- a/src/GF/Compile/ShellState.hs +++ b/src/GF/Compile/ShellState.hs @@ -119,7 +119,7 @@ updateShellState :: Options -> ShellState -> Err ShellState updateShellState opts sh ((_,sgr,gr),rts) = do let cgr0 = M.updateMGrammar (canModules sh) gr - a' = ifNull Nothing (return . head) $ allAbstracts cgr0 + a' = M.greatestAbstract cgr0 abstr0 <- case abstract sh of Just a -> do -- test that abstract is compatible --- unsafe exception for old? @@ -128,7 +128,7 @@ updateShellState opts sh ((_,sgr,gr),rts) = do return $ Just a _ -> return a' let cgr = filterAbstracts abstr0 cgr0 - let concrs = maybe [] (allConcretes cgr) abstr0 + let concrs = maybe [] (M.allConcretes cgr) abstr0 concr0 = ifNull Nothing (return . head) concrs notInrts f = notElem f $ map fst rts cfs <- mapM (canon2cf opts cgr) concrs --- would not need to update all... @@ -217,37 +217,12 @@ grammar2stateGrammar opts gr = do concr <- maybeErr "no concrete syntax" $ concrete st return $ stateGrammarOfLang st concr --- all abstract modules -allAbstracts :: CanonGrammar -> [Ident] -allAbstracts gr = [i | (i,M.ModMod m) <- M.modules gr, M.mtype m == M.MTAbstract] - --- the last abstract in dependency order (head of list) -greatestAbstract :: CanonGrammar -> Maybe Ident -greatestAbstract gr = case allAbstracts gr of - [] -> Nothing - a -> return $ head a - --- all resource modules -allResources :: G.SourceGrammar -> [Ident] -allResources gr = [i | (i,M.ModMod m) <- M.modules gr, M.isModRes m] - - --- the greatest resource in dependency order -greatestResource :: G.SourceGrammar -> Maybe Ident -greatestResource gr = case allResources gr of - [] -> Nothing - a -> return $ head a - resourceOfShellState :: ShellState -> Maybe Ident -resourceOfShellState = greatestResource . srcModules +resourceOfShellState = M.greatestResource . srcModules qualifTop :: StateGrammar -> G.QIdent -> G.QIdent qualifTop gr (_,c) = (absId gr,c) --- all concretes for a given abstract -allConcretes :: CanonGrammar -> Ident -> [Ident] -allConcretes gr a = [i | (i,M.ModMod m) <- M.modules gr, M.mtype m== M.MTConcrete a] - stateGrammarOfLang :: ShellState -> Language -> StateGrammar stateGrammarOfLang st l = StGr { absId = maybe (identC "Abs") id (abstract st), --- diff --git a/src/GF/Grammar/PrGrammar.hs b/src/GF/Grammar/PrGrammar.hs index ffa6581cf..c49553425 100644 --- a/src/GF/Grammar/PrGrammar.hs +++ b/src/GF/Grammar/PrGrammar.hs @@ -71,6 +71,7 @@ instance Print A.Case where prt = C.printTree instance Print A.CType where prt = C.printTree instance Print A.Label where prt = C.printTree instance Print A.Module where prt = C.printTree +instance Print A.Canon where prt = C.printTree instance Print A.Sort where prt = C.printTree instance Print A.Atom where diff --git a/src/GF/Infra/Modules.hs b/src/GF/Infra/Modules.hs index 762edb0e2..ffd622b54 100644 --- a/src/GF/Infra/Modules.hs +++ b/src/GF/Infra/Modules.hs @@ -296,3 +296,28 @@ isCompilableModule m = case m of -- interface and "incomplete M" are not complete isCompleteModule :: (Eq i) => Module i f a -> Bool isCompleteModule m = mstatus m == MSComplete && mtype m /= MTInterface + + +-- all abstract modules +allAbstracts :: Eq i => MGrammar i f a -> [i] +allAbstracts gr = [i | (i,ModMod m) <- modules gr, mtype m == MTAbstract] + +-- the last abstract in dependency order (head of list) +greatestAbstract :: Eq i => MGrammar i f a -> Maybe i +greatestAbstract gr = case allAbstracts gr of + [] -> Nothing + a:_ -> return a + +-- all resource modules +allResources :: MGrammar i f a -> [i] +allResources gr = [i | (i,ModMod m) <- modules gr, isModRes m] + +-- the greatest resource in dependency order +greatestResource :: MGrammar i f a -> Maybe i +greatestResource gr = case allResources gr of + [] -> Nothing + a -> return $ head a + +-- all concretes for a given abstract +allConcretes :: Eq i => MGrammar i f a -> i -> [i] +allConcretes gr a = [i | (i, ModMod m) <- modules gr, mtype m == MTConcrete a] diff --git a/src/GF/Shell/ShellCommands.hs b/src/GF/Shell/ShellCommands.hs index bf0d114e1..b4c28ca2e 100644 --- a/src/GF/Shell/ShellCommands.hs +++ b/src/GF/Shell/ShellCommands.hs @@ -7,6 +7,7 @@ import PrGrammar import Option import Operations +import Modules import Char (isDigit) @@ -177,7 +178,6 @@ optionsOfCommand co = case co of CPrintGlobalOptions CPrintLanguages CPrintInformation I.Ident - CPrintMultiGrammar CPrintGramlet CPrintCanonXML CPrintCanonXMLStruct diff --git a/src/GF/Source/AbsGF.hs b/src/GF/Source/AbsGF.hs index 54564c341..0a14d2e98 100644 --- a/src/GF/Source/AbsGF.hs +++ b/src/GF/Source/AbsGF.hs @@ -45,7 +45,7 @@ data ModBody = deriving (Eq,Ord,Show) data Extend = - Ext Ident + Ext [Ident] | NoExt deriving (Eq,Ord,Show) @@ -86,6 +86,7 @@ data Def = data TopDef = DefCat [CatDef] | DefFun [FunDef] + | DefFunData [FunDef] | DefDef [Def] | DefData [DataDef] | DefTrans [Def] @@ -155,6 +156,7 @@ data Exp = | EInt Integer | EMeta | EEmpty + | EData | EStrings String | ERecord [LocDef] | ETuple [TupleComp] diff --git a/src/GF/Source/GF.cf b/src/GF/Source/GF.cf index 80da5b9d1..d6170a6e7 100644 --- a/src/GF/Source/GF.cf +++ b/src/GF/Source/GF.cf @@ -45,7 +45,7 @@ MUnion. ModBody ::= "union" [Included] ; separator TopDef "" ; -Ext. Extend ::= Ident "**" ; +Ext. Extend ::= [Ident] "**" ; NoExt. Extend ::= ; separator Open "," ; @@ -79,6 +79,7 @@ DFull. Def ::= [Ident] ":" Exp "=" Exp ; DefCat. TopDef ::= "cat" [CatDef] ; DefFun. TopDef ::= "fun" [FunDef] ; +DefFunData.TopDef ::= "data" [FunDef] ; DefDef. TopDef ::= "def" [Def] ; DefData. TopDef ::= "data" [DataDef] ; @@ -145,6 +146,7 @@ EString. Exp4 ::= String ; EInt. Exp4 ::= Integer ; EMeta. Exp4 ::= "?" ; EEmpty. Exp4 ::= "[" "]" ; +EData. Exp4 ::= "data" ; EStrings. Exp4 ::= "[" String "]" ; ERecord. Exp4 ::= "{" [LocDef] "}" ; -- ! ETuple. Exp4 ::= "<" [TupleComp] ">" ; --- needed for separator "," diff --git a/src/GF/Source/GrammarToSource.hs b/src/GF/Source/GrammarToSource.hs index 135fc96c2..b313b563c 100644 --- a/src/GF/Source/GrammarToSource.hs +++ b/src/GF/Source/GrammarToSource.hs @@ -31,7 +31,7 @@ trModule (i,mo) = case mo of (mkTopDefs (concatMap trAnyDef (tree2list (jments m)) ++ map trFlag (flags m))) trExtend :: Maybe Ident -> P.Extend -trExtend i = maybe P.NoExt (P.Ext . tri) i +trExtend i = maybe P.NoExt (P.Ext . singleton . tri) i ---- this has to be completed with other mtys forName (MTConcrete a) = tri a diff --git a/src/GF/Source/LexGF.hs b/src/GF/Source/LexGF.hs index 85933e3fd..400ae4be3 100644 --- a/src/GF/Source/LexGF.hs +++ b/src/GF/Source/LexGF.hs @@ -1,19 +1,33 @@ - +{-# OPTIONS -cpp #-} +{-# LINE 3 "LexGF.x" #-} module LexGF where -import Alex import ErrM -pTSpec p = PT p . TS +#if __GLASGOW_HASKELL__ >= 503 +import Data.Array +import Data.Char (ord) +import Data.Array.Base (unsafeAt) +#else +import Array +import Char (ord) +#endif +alex_base :: Array Int Int +alex_base = listArray (0,27) [1,21,57,58,24,25,26,0,68,69,27,28,29,66,0,38,19,39,0,44,45,156,364,0,279,487,213,51] -mk_LString p = PT p . eitherResIdent T_LString +alex_table :: Array Int Int +alex_table = listArray (0,742) [0,-1,-1,-1,-1,-1,-1,-1,-1,-1,13,13,13,13,13,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,13,14,24,-1,14,-1,-1,19,14,14,15,17,14,5,14,14,27,27,27,27,27,27,27,27,27,27,14,14,14,16,14,14,14,4,-1,-1,2,2,9,9,9,10,13,13,13,13,13,14,14,14,18,18,0,0,14,0,0,0,0,14,14,14,-1,14,-1,13,27,27,27,27,27,27,27,27,27,27,0,0,0,0,9,8,0,0,0,0,0,0,0,0,0,12,14,14,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,6,7,22,0,0,0,0,0,0,0,0,22,22,22,22,22,22,22,22,22,22,0,0,-1,0,0,0,0,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,25,-1,0,0,22,25,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,0,0,0,0,0,0,0,0,0,0,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,25,0,0,0,0,0,0,0,23,0,0,0,0,0,0,0,0,0,25,0,0,0,0,0,25,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,26,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,0,0,0,0,0,0,0,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,0,0,0,0,22,0,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,0,0,0,0,0,0,0,0,0,0,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,23,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,26,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,0,22,22,22,22,22,22,22,22,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0] -ident p = PT p . eitherResIdent TV +alex_check :: Array Int Int +alex_check = listArray (0,742) [-1,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,45,10,10,45,45,45,45,45,45,9,10,11,12,13,42,62,43,39,39,-1,-1,62,-1,-1,-1,-1,91,92,93,94,95,96,32,48,49,50,51,52,53,54,55,56,57,-1,-1,-1,-1,45,45,-1,-1,-1,-1,-1,-1,-1,-1,-1,123,124,125,126,127,128,129,130,131,132,133,134,135,136,137,138,139,140,141,142,143,144,145,146,147,148,149,150,151,152,153,154,155,156,157,158,159,160,161,162,163,164,165,166,167,168,169,170,171,172,173,174,175,176,177,178,179,180,181,182,183,184,185,186,187,188,189,190,191,125,125,39,-1,-1,-1,-1,-1,-1,-1,-1,48,49,50,51,52,53,54,55,56,57,-1,-1,215,-1,-1,-1,-1,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,34,247,-1,-1,95,39,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,10,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,92,-1,-1,-1,-1,-1,-1,-1,34,-1,-1,-1,-1,-1,-1,-1,-1,-1,110,-1,-1,-1,-1,-1,116,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,192,193,194,195,196,197,198,199,200,201,202,203,204,205,206,207,208,209,210,211,212,213,214,92,216,217,218,219,220,221,222,223,224,225,226,227,228,229,230,231,232,233,234,235,236,237,238,239,240,241,242,243,244,245,246,39,248,249,250,251,252,253,254,255,48,49,50,51,52,53,54,55,56,57,-1,-1,-1,-1,-1,-1,-1,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,-1,-1,-1,-1,95,-1,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,10,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,34,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,192,193,194,195,196,197,198,199,200,201,202,203,204,205,206,207,208,209,210,211,212,213,214,92,216,217,218,219,220,221,222,223,224,225,226,227,228,229,230,231,232,233,234,235,236,237,238,239,240,241,242,243,244,245,246,-1,248,249,250,251,252,253,254,255,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1] -string p = PT p . TL . unescapeInitTail +alex_deflt :: Array Int Int +alex_deflt = listArray (0,27) [21,-1,3,3,-1,-1,11,-1,11,11,11,11,-1,-1,-1,-1,-1,-1,-1,20,20,-1,-1,-1,25,25,-1,-1] -int p = PT p . TI +alex_accept = listArray (0::Int,27) [[],[],[(AlexAccSkip)],[(AlexAccSkip)],[],[(AlexAcc (alex_action_3))],[(AlexAccSkip)],[(AlexAccSkip)],[],[],[],[],[(AlexAcc (alex_action_3))],[(AlexAccSkip)],[(AlexAcc (alex_action_3))],[(AlexAcc (alex_action_3))],[(AlexAcc (alex_action_3))],[(AlexAcc (alex_action_3))],[(AlexAcc (alex_action_4))],[],[],[(AlexAcc (alex_action_5))],[(AlexAcc (alex_action_5))],[(AlexAcc (alex_action_6))],[],[],[],[(AlexAcc (alex_action_7))]] +{-# LINE 34 "LexGF.x" #-} +tok f p s = f p s data Tok = TS String -- reserved words @@ -47,15 +61,6 @@ prToken t = case t of PT _ (T_LString s) -> s -tokens:: String -> [Token] -tokens inp = scan tokens_scan inp - -tokens_scan:: Scan Token -tokens_scan = load_scan (tokens_acts,stop_act) tokens_lx - where - stop_act p "" = [] - stop_act p inp = [Err p] - eitherResIdent :: (String -> Tok) -> String -> Tok eitherResIdent tv s = if isResWord s then (TS s) else (tv s) where isResWord s = isInTree s $ @@ -81,52 +86,208 @@ unescapeInitTail = unesc . tail where c:cs -> c : unesc cs _ -> [] -tokens_acts = [("ident",ident),("int",int),("mk_LString",mk_LString),("pTSpec",pTSpec),("string",string)] +------------------------------------------------------------------- +-- Alex wrapper code. +-- A modified "posn" wrapper. +------------------------------------------------------------------- -tokens_lx :: [(Bool, [(Int,String,[Int],Maybe((Char,Char),[(Char,Bool)]),Maybe Int)], Int, ((Char,Char),[(Char,Int)]))] -tokens_lx = [lx__0_0,lx__1_0,lx__2_0,lx__3_0,lx__4_0,lx__5_0,lx__6_0,lx__7_0,lx__8_0,lx__9_0,lx__10_0,lx__11_0,lx__12_0,lx__13_0,lx__14_0,lx__15_0,lx__16_0,lx__17_0,lx__18_0,lx__19_0,lx__20_0,lx__21_0] -lx__0_0 :: (Bool, [(Int,String,[Int],Maybe((Char,Char),[(Char,Bool)]),Maybe Int)], Int, ((Char,Char),[(Char,Int)])) -lx__0_0 = (False,[],-1,(('\t','\255'),[('\t',10),('\n',10),('\v',10),('\f',10),('\r',10),(' ',10),('!',14),('"',18),('$',14),('\'',15),('(',14),(')',14),('*',11),('+',13),(',',14),('-',1),('.',14),('/',14),('0',21),('1',21),('2',21),('3',21),('4',21),('5',21),('6',21),('7',21),('8',21),('9',21),(':',14),(';',14),('<',14),('=',12),('>',14),('?',14),('@',14),('A',17),('B',17),('C',17),('D',17),('E',17),('F',17),('G',17),('H',17),('I',17),('J',17),('K',17),('L',17),('M',17),('N',17),('O',17),('P',17),('Q',17),('R',17),('S',17),('T',17),('U',17),('V',17),('W',17),('X',17),('Y',17),('Z',17),('[',14),('\\',14),(']',14),('_',14),('a',17),('b',17),('c',17),('d',17),('e',17),('f',17),('g',17),('h',17),('i',17),('j',17),('k',17),('l',17),('m',17),('n',17),('o',17),('p',17),('q',17),('r',17),('s',17),('t',17),('u',17),('v',17),('w',17),('x',17),('y',17),('z',17),('{',4),('|',14),('}',14),('\192',17),('\193',17),('\194',17),('\195',17),('\196',17),('\197',17),('\198',17),('\199',17),('\200',17),('\201',17),('\202',17),('\203',17),('\204',17),('\205',17),('\206',17),('\207',17),('\208',17),('\209',17),('\210',17),('\211',17),('\212',17),('\213',17),('\214',17),('\216',17),('\217',17),('\218',17),('\219',17),('\220',17),('\221',17),('\222',17),('\223',17),('\224',17),('\225',17),('\226',17),('\227',17),('\228',17),('\229',17),('\230',17),('\231',17),('\232',17),('\233',17),('\234',17),('\235',17),('\236',17),('\237',17),('\238',17),('\239',17),('\240',17),('\241',17),('\242',17),('\243',17),('\244',17),('\245',17),('\246',17),('\248',17),('\249',17),('\250',17),('\251',17),('\252',17),('\253',17),('\254',17),('\255',17)])) -lx__1_0 :: (Bool, [(Int,String,[Int],Maybe((Char,Char),[(Char,Bool)]),Maybe Int)], Int, ((Char,Char),[(Char,Int)])) -lx__1_0 = (True,[(3,"pTSpec",[],Nothing,Nothing)],-1,(('-','>'),[('-',2),('>',14)])) -lx__2_0 :: (Bool, [(Int,String,[Int],Maybe((Char,Char),[(Char,Bool)]),Maybe Int)], Int, ((Char,Char),[(Char,Int)])) -lx__2_0 = (False,[],2,(('\n','\n'),[('\n',3)])) -lx__3_0 :: (Bool, [(Int,String,[Int],Maybe((Char,Char),[(Char,Bool)]),Maybe Int)], Int, ((Char,Char),[(Char,Int)])) -lx__3_0 = (True,[(0,"",[],Nothing,Nothing)],-1,(('0','0'),[])) -lx__4_0 :: (Bool, [(Int,String,[Int],Maybe((Char,Char),[(Char,Bool)]),Maybe Int)], Int, ((Char,Char),[(Char,Int)])) -lx__4_0 = (True,[(3,"pTSpec",[],Nothing,Nothing)],-1,(('-','-'),[('-',5)])) -lx__5_0 :: (Bool, [(Int,String,[Int],Maybe((Char,Char),[(Char,Bool)]),Maybe Int)], Int, ((Char,Char),[(Char,Int)])) -lx__5_0 = (False,[],5,(('-','-'),[('-',8)])) -lx__6_0 :: (Bool, [(Int,String,[Int],Maybe((Char,Char),[(Char,Bool)]),Maybe Int)], Int, ((Char,Char),[(Char,Int)])) -lx__6_0 = (False,[],5,(('-','}'),[('-',8),('}',7)])) -lx__7_0 :: (Bool, [(Int,String,[Int],Maybe((Char,Char),[(Char,Bool)]),Maybe Int)], Int, ((Char,Char),[(Char,Int)])) -lx__7_0 = (True,[(1,"",[],Nothing,Nothing)],5,(('-','-'),[('-',8)])) -lx__8_0 :: (Bool, [(Int,String,[Int],Maybe((Char,Char),[(Char,Bool)]),Maybe Int)], Int, ((Char,Char),[(Char,Int)])) -lx__8_0 = (False,[],5,(('-','}'),[('-',6),('}',9)])) -lx__9_0 :: (Bool, [(Int,String,[Int],Maybe((Char,Char),[(Char,Bool)]),Maybe Int)], Int, ((Char,Char),[(Char,Int)])) -lx__9_0 = (True,[(1,"",[],Nothing,Nothing)],-1,(('0','0'),[])) -lx__10_0 :: (Bool, [(Int,String,[Int],Maybe((Char,Char),[(Char,Bool)]),Maybe Int)], Int, ((Char,Char),[(Char,Int)])) -lx__10_0 = (True,[(2,"",[],Nothing,Nothing)],-1,(('\t',' '),[('\t',10),('\n',10),('\v',10),('\f',10),('\r',10),(' ',10)])) -lx__11_0 :: (Bool, [(Int,String,[Int],Maybe((Char,Char),[(Char,Bool)]),Maybe Int)], Int, ((Char,Char),[(Char,Int)])) -lx__11_0 = (True,[(3,"pTSpec",[],Nothing,Nothing)],-1,(('*','*'),[('*',14)])) -lx__12_0 :: (Bool, [(Int,String,[Int],Maybe((Char,Char),[(Char,Bool)]),Maybe Int)], Int, ((Char,Char),[(Char,Int)])) -lx__12_0 = (True,[(3,"pTSpec",[],Nothing,Nothing)],-1,(('>','>'),[('>',14)])) -lx__13_0 :: (Bool, [(Int,String,[Int],Maybe((Char,Char),[(Char,Bool)]),Maybe Int)], Int, ((Char,Char),[(Char,Int)])) -lx__13_0 = (True,[(3,"pTSpec",[],Nothing,Nothing)],-1,(('+','+'),[('+',14)])) -lx__14_0 :: (Bool, [(Int,String,[Int],Maybe((Char,Char),[(Char,Bool)]),Maybe Int)], Int, ((Char,Char),[(Char,Int)])) -lx__14_0 = (True,[(3,"pTSpec",[],Nothing,Nothing)],-1,(('0','0'),[])) -lx__15_0 :: (Bool, [(Int,String,[Int],Maybe((Char,Char),[(Char,Bool)]),Maybe Int)], Int, ((Char,Char),[(Char,Int)])) -lx__15_0 = (False,[],15,(('\'','\''),[('\'',16)])) -lx__16_0 :: (Bool, [(Int,String,[Int],Maybe((Char,Char),[(Char,Bool)]),Maybe Int)], Int, ((Char,Char),[(Char,Int)])) -lx__16_0 = (True,[(4,"mk_LString",[],Nothing,Nothing)],-1,(('0','0'),[])) -lx__17_0 :: (Bool, [(Int,String,[Int],Maybe((Char,Char),[(Char,Bool)]),Maybe Int)], Int, ((Char,Char),[(Char,Int)])) -lx__17_0 = (True,[(5,"ident",[],Nothing,Nothing)],-1,(('\'','\255'),[('\'',17),('0',17),('1',17),('2',17),('3',17),('4',17),('5',17),('6',17),('7',17),('8',17),('9',17),('A',17),('B',17),('C',17),('D',17),('E',17),('F',17),('G',17),('H',17),('I',17),('J',17),('K',17),('L',17),('M',17),('N',17),('O',17),('P',17),('Q',17),('R',17),('S',17),('T',17),('U',17),('V',17),('W',17),('X',17),('Y',17),('Z',17),('_',17),('a',17),('b',17),('c',17),('d',17),('e',17),('f',17),('g',17),('h',17),('i',17),('j',17),('k',17),('l',17),('m',17),('n',17),('o',17),('p',17),('q',17),('r',17),('s',17),('t',17),('u',17),('v',17),('w',17),('x',17),('y',17),('z',17),('\192',17),('\193',17),('\194',17),('\195',17),('\196',17),('\197',17),('\198',17),('\199',17),('\200',17),('\201',17),('\202',17),('\203',17),('\204',17),('\205',17),('\206',17),('\207',17),('\208',17),('\209',17),('\210',17),('\211',17),('\212',17),('\213',17),('\214',17),('\216',17),('\217',17),('\218',17),('\219',17),('\220',17),('\221',17),('\222',17),('\223',17),('\224',17),('\225',17),('\226',17),('\227',17),('\228',17),('\229',17),('\230',17),('\231',17),('\232',17),('\233',17),('\234',17),('\235',17),('\236',17),('\237',17),('\238',17),('\239',17),('\240',17),('\241',17),('\242',17),('\243',17),('\244',17),('\245',17),('\246',17),('\248',17),('\249',17),('\250',17),('\251',17),('\252',17),('\253',17),('\254',17),('\255',17)])) -lx__18_0 :: (Bool, [(Int,String,[Int],Maybe((Char,Char),[(Char,Bool)]),Maybe Int)], Int, ((Char,Char),[(Char,Int)])) -lx__18_0 = (False,[],18,(('\n','\\'),[('\n',-1),('"',20),('\\',19)])) -lx__19_0 :: (Bool, [(Int,String,[Int],Maybe((Char,Char),[(Char,Bool)]),Maybe Int)], Int, ((Char,Char),[(Char,Int)])) -lx__19_0 = (False,[],-1,(('"','t'),[('"',18),('\'',18),('\\',18),('n',18),('t',18)])) -lx__20_0 :: (Bool, [(Int,String,[Int],Maybe((Char,Char),[(Char,Bool)]),Maybe Int)], Int, ((Char,Char),[(Char,Int)])) -lx__20_0 = (True,[(6,"string",[],Nothing,Nothing)],-1,(('0','0'),[])) -lx__21_0 :: (Bool, [(Int,String,[Int],Maybe((Char,Char),[(Char,Bool)]),Maybe Int)], Int, ((Char,Char),[(Char,Int)])) -lx__21_0 = (True,[(7,"int",[],Nothing,Nothing)],-1,(('0','9'),[('0',21),('1',21),('2',21),('3',21),('4',21),('5',21),('6',21),('7',21),('8',21),('9',21)])) +data Posn = Pn !Int !Int !Int + deriving (Eq, Show) +alexStartPos :: Posn +alexStartPos = Pn 0 1 1 + +alexMove :: Posn -> Char -> Posn +alexMove (Pn a l c) '\t' = Pn (a+1) l (((c+7) `div` 8)*8+1) +alexMove (Pn a l c) '\n' = Pn (a+1) (l+1) 1 +alexMove (Pn a l c) _ = Pn (a+1) l (c+1) + +type AlexInput = (Posn, -- current position, + Char, -- previous char + String) -- current input string + +tokens :: String -> [Token] +tokens str = go (alexStartPos, '\n', str) + where + go :: (Posn, Char, String) -> [Token] + go inp@(pos, _, str) = + case alexScan inp 0 of + AlexEOF -> [] + AlexError (pos, _, _) -> fail $ show pos ++ ": lexical error" + AlexSkip inp' len -> go inp' + AlexToken inp' len act -> act pos (take len str) : (go inp') + +alexGetChar :: AlexInput -> Maybe (Char,AlexInput) +alexGetChar (p, c, []) = Nothing +alexGetChar (p, _, (c:s)) = + let p' = alexMove p c + in p' `seq` Just (c, (p', c, s)) + +alexInputPrevChar :: AlexInput -> Char +alexInputPrevChar (p, c, s) = c + +alex_action_3 = tok (\p s -> PT p (TS s)) +alex_action_4 = tok (\p s -> PT p (eitherResIdent T_LString s)) +alex_action_5 = tok (\p s -> PT p (eitherResIdent TV s)) +alex_action_6 = tok (\p s -> PT p (TL $ unescapeInitTail s)) +alex_action_7 = tok (\p s -> PT p (TI s)) +{-# LINE 1 "GenericTemplate.hs" #-} +-- ----------------------------------------------------------------------------- +-- ALEX TEMPLATE +-- +-- This code is in the PUBLIC DOMAIN; you may copy it freely and use +-- it for any purpose whatsoever. + +-- ----------------------------------------------------------------------------- +-- INTERNALS and main scanner engine + +{-# LINE 22 "GenericTemplate.hs" #-} + + + + + + + + + + + + + + + + + + + + + + + +{-# LINE 66 "GenericTemplate.hs" #-} + +alexIndexShortOffAddr arr off = arr ! off + + +-- ----------------------------------------------------------------------------- +-- Main lexing routines + +data AlexReturn a + = AlexEOF + | AlexError !AlexInput + | AlexSkip !AlexInput !Int + | AlexToken !AlexInput !Int a + +-- alexScan :: AlexInput -> StartCode -> Maybe (AlexInput,Int,act) +alexScan input (sc) + = alexScanUser undefined input (sc) + +alexScanUser user input (sc) + = case alex_scan_tkn user input (0) input sc AlexNone of + (AlexNone, input') -> + case alexGetChar input of + Nothing -> + + + + AlexEOF + Just _ -> + + + + AlexError input + + (AlexLastSkip input len, _) -> + + + + AlexSkip input len + + (AlexLastAcc k input len, _) -> + + + + AlexToken input len k + + +-- Push the input through the DFA, remembering the most recent accepting +-- state it encountered. + +alex_scan_tkn user orig_input len input s last_acc = + input `seq` -- strict in the input + case s of + (-1) -> (last_acc, input) + _ -> alex_scan_tkn' user orig_input len input s last_acc + +alex_scan_tkn' user orig_input len input s last_acc = + let + new_acc = check_accs (alex_accept `unsafeAt` (s)) + in + new_acc `seq` + case alexGetChar input of + Nothing -> (new_acc, input) + Just (c, new_input) -> + + + + let + base = alexIndexShortOffAddr alex_base s + (ord_c) = ord c + offset = (base + ord_c) + check = alexIndexShortOffAddr alex_check offset + + new_s = if (offset >= (0)) && (check == ord_c) + then alexIndexShortOffAddr alex_table offset + else alexIndexShortOffAddr alex_deflt s + in + alex_scan_tkn user orig_input (len + (1)) new_input new_s new_acc + + where + check_accs [] = last_acc + check_accs (AlexAcc a : _) = AlexLastAcc a input (len) + check_accs (AlexAccSkip : _) = AlexLastSkip input (len) + check_accs (AlexAccPred a pred : rest) + | pred user orig_input (len) input + = AlexLastAcc a input (len) + check_accs (AlexAccSkipPred pred : rest) + | pred user orig_input (len) input + = AlexLastSkip input (len) + check_accs (_ : rest) = check_accs rest + +data AlexLastAcc a + = AlexNone + | AlexLastAcc a !AlexInput !Int + | AlexLastSkip !AlexInput !Int + +data AlexAcc a user + = AlexAcc a + | AlexAccSkip + | AlexAccPred a (AlexAccPred user) + | AlexAccSkipPred (AlexAccPred user) + +type AlexAccPred user = user -> AlexInput -> Int -> AlexInput -> Bool + +-- ----------------------------------------------------------------------------- +-- Predicates on a rule + +alexAndPred p1 p2 user in1 len in2 + = p1 user in1 len in2 && p2 user in1 len in2 + +--alexPrevCharIsPred :: Char -> AlexAccPred _ +alexPrevCharIs c _ input _ _ = c == alexInputPrevChar input + +--alexPrevCharIsOneOfPred :: Array Char Bool -> AlexAccPred _ +alexPrevCharIsOneOf arr _ input _ _ = arr ! alexInputPrevChar input + +--alexRightContext :: Int -> AlexAccPred _ +alexRightContext (sc) user _ _ input = + case alex_scan_tkn user input (0) input sc AlexNone of + (AlexNone, _) -> False + _ -> True + -- TODO: there's no need to find the longest + -- match when checking the right context, just + -- the first match will do. + +-- used by wrappers +iUnbox (i) = i diff --git a/src/GF/Source/ParGF.hs b/src/GF/Source/ParGF.hs index abfce59c8..ad8041523 100644 --- a/src/GF/Source/ParGF.hs +++ b/src/GF/Source/ParGF.hs @@ -496,21 +496,21 @@ happyOutTok x = unsafeCoerce# x {-# INLINE happyOutTok #-} happyActOffsets :: HappyAddr -happyActOffsets = HappyA# "\x00\x00\x50\x01\x7b\x04\x92\x00\x58\x04\x00\x00\x86\x04\x00\x00\x00\x00\x00\x00\x00\x00\x83\x04\xf8\x00\x50\x02\x47\x04\x00\x00\x87\x04\x43\x04\x19\x00\x24\x00\x00\x00\x92\x00\xfd\xff\x43\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x92\x00\x84\x04\xfe\xff\x82\x04\x78\x04\x65\x01\x75\x04\x00\x00\x00\x00\x00\x00\x2a\x04\x00\x00\x3e\x01\x01\x00\xf6\x04\x2b\x04\x00\x00\x27\x04\x13\x01\x74\x04\x72\x04\x71\x04\x26\x04\x26\x04\x26\x04\x26\x04\x26\x04\x26\x04\x00\x00\x3e\x01\x00\x00\x64\x04\x00\x00\x3e\x01\x3e\x01\x3e\x01\xdb\x04\x92\x00\x00\x00\x63\x04\x2c\x00\x5d\x00\x24\x00\x92\x00\x92\x00\x5a\x04\x90\x01\x62\x04\x35\x04\x16\x04\x2c\x00\x28\x04\x00\x00\x00\x00\x4a\x04\x4b\x04\xf6\xff\x00\x00\x46\x04\x40\x04\x2e\x04\x6f\x02\x34\x04\x00\x00\xf9\x01\x33\x04\x18\x04\xec\x03\x8d\x02\x32\x04\x92\x00\xc7\x00\xc7\x00\xc7\x00\x92\x00\x92\x00\x92\x00\x1b\x04\x10\x04\xf7\xff\x4d\x01\x00\x00\xe4\x03\x00\x00\x00\x00\xe0\x03\xd5\x03\x00\x00\x00\x00\x00\x00\x19\x01\x19\x01\x19\x01\x00\x00\x00\x00\x00\x00\xd5\x03\xd5\x03\x0a\x04\x92\x00\x00\x00\x00\x00\x00\x00\xd0\x03\x00\x00\x92\x00\x92\x00\xfb\x03\x92\x00\xf6\xff\x0b\x04\x00\x04\x00\x00\x00\x00\x2c\x00\x04\x04\xfa\x03\x06\x04\xc0\x03\x2c\x00\x2c\x00\x00\x00\x05\x04\x92\x00\xbc\x03\x92\x00\x92\x00\xf4\x03\xf3\x03\xef\x03\xdf\x03\xe9\x00\x00\x00\x00\x00\xdb\x03\xc9\x03\xdd\x03\xd8\x03\x2c\x00\xd4\x03\x00\x00\x90\x03\x90\x03\x90\x03\x90\x03\x90\x03\x90\x03\x90\x03\x90\x03\x90\x03\x90\x03\x90\x03\x90\x03\x90\x03\x63\x00\x90\x03\x90\x03\x90\x03\x00\x00\x00\x00\x00\x00\x3e\x01\x00\x00\xd3\x03\x00\x00\x00\x00\xa2\x03\xa0\x03\x00\x00\x38\x02\xd2\x03\xa6\x03\x21\x00\x00\x00\x92\x03\x78\x03\x78\x03\x78\x03\x78\x03\x1e\x00\x00\x00\x78\x01\xb6\x03\x00\x00\xf3\x00\x00\x00\xb0\x03\xaf\x03\x00\x00\xad\x03\x62\x03\x62\x03\x00\x00\xa5\x03\xa3\x03\x00\x00\xa1\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x9a\x03\x00\x00\x93\x03\x91\x03\x85\x03\x00\x00\x00\x00\x8f\x03\x84\x03\x00\x00\x00\x00\x7e\x03\x00\x00\x00\x00\x12\x00\x70\x03\x00\x00\x2c\x00\x92\x00\x2c\x00\x00\x00\x22\x03\x00\x00\x92\x00\x92\x00\x69\x03\x00\x00\x00\x00\x00\x00\x32\x03\x00\x00\x4f\x03\x3e\x03\x3d\x03\xf4\x00\x4b\x03\x41\x03\x3c\x03\x00\x00\x2c\x00\x92\x00\x00\x00\xf4\x02\x2c\x00\x00\x00\x00\x00\x92\x00\x1c\x03\x00\x00\x00\x00\x2d\x03\x21\x03\x00\x00\x3a\x03\x00\x00\x2a\x03\x00\x00\x1d\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x18\x03\x00\x00\x00\x00\x00\x00\x00\x00\xd0\x02\x2c\x00\x00\x00\x00\x00\x00\x00\x2c\x00\x92\x00\x92\x00\xf9\x02\x12\x03\x07\x03\x00\x00\x2c\x00\x00\x00\x00\x00\x00\x00\x00\x00\xca\x02\x01\x01\xca\x02\xca\x02\xca\x02\xca\x02\x92\x00\xca\x02\x0f\x03\xc6\x02\x18\x00\x00\x00\x00\x00\x92\x00\xc6\x02\x00\x00\x92\x00\x92\x00\xc6\x02\x08\x03\x00\x00\x00\x03\xfa\x01\x00\x00\x00\x00\xfc\x02\x00\x00\xf6\x02\x00\x00\xfe\x02\x0e\x00\x00\x00\x0e\x00\xfd\x02\xab\x02\x00\x00\xeb\x02\xd1\x02\x00\x00\xa4\x02\xa4\x02\xa4\x02\x00\x00\x00\x00\x0e\x00\x92\x00\x00\x00\xec\x02\x00\x00\x00\x00\x00\x00\x00\x00\xde\x02\x00\x00\xb6\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xe0\x02\xc4\x02\x00\x00\x00\x00\x00\x00\x00\x00\x19\x00\x00\x00\x00\x00\x00\x00\x92\x00\x92\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xd6\x02\x88\x02\x88\x02\x17\x02\x88\x02\x88\x02\x01\x01\x92\x00\x00\x00\x00\x00\x55\x01\xc5\x02\x00\x00\xf1\x01\x00\x00\x0e\x00\xc9\x02\x7c\x02\x00\x00\x00\x00\x00\x00\x7c\x02\x00\x00\x00\x00\x00\x00\xc0\x02\xc1\x02\x00\x00\x00\x00\x92\x00\xb7\x02\x00\x00\x00\x00\xa5\x02\x9f\x02\x9b\x02\x97\x02\x00\x00\x54\x02\x54\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x93\x02\x00\x00\x40\x02\x9c\x01\x0e\x00\x0e\x00\x85\x02\x80\x02\x00\x00\x00\x00\x00\x00"# +happyActOffsets = HappyA# "\x00\x00\x89\x00\xb2\x04\x92\x00\x94\x04\x00\x00\xcb\x04\x00\x00\x00\x00\x00\x00\x00\x00\xcf\x04\xf8\x00\xe1\x00\x8a\x04\x00\x00\xd1\x04\x8c\x04\x19\x00\x24\x00\x00\x00\x92\x00\xfd\xff\x8c\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x92\x00\x00\x00\xd3\x04\xfe\xff\xc3\x04\xb6\x04\x9a\x01\xb5\x04\x00\x00\x00\x00\x00\x00\x74\x04\x00\x00\xb3\x00\x01\x00\xb8\x04\x67\x04\x00\x00\x61\x04\x54\x00\xa5\x04\xae\x04\xac\x04\x5c\x04\x5c\x04\x5c\x04\x5c\x04\x5c\x04\x5c\x04\x00\x00\xb3\x00\x00\x00\xa4\x04\x00\x00\xb3\x00\xb3\x00\xb3\x00\xe6\x04\x92\x00\x00\x00\xa1\x04\x2c\x00\x5d\x00\x24\x00\x92\x00\x92\x00\x99\x04\xda\x00\x96\x04\x69\x04\x4d\x04\x2c\x00\x5e\x04\x00\x00\x00\x00\x78\x04\x8b\x04\xf6\xff\x00\x00\x7a\x04\x76\x04\x6a\x04\x8b\x02\x6e\x04\x00\x00\xb8\x02\x73\x04\x65\x04\x2d\x04\x8c\x02\x6b\x04\x92\x00\xc7\x00\xc7\x00\xc7\x00\x92\x00\x92\x00\x92\x00\x68\x04\x42\x04\xff\xff\x69\x01\x00\x00\x1a\x04\x00\x00\x00\x00\x12\x04\x19\x04\x00\x00\x00\x00\x00\x00\x49\x01\x49\x01\x49\x01\x00\x00\x00\x00\x00\x00\x19\x04\x19\x04\x47\x04\x92\x00\x00\x00\x00\x00\x00\x00\x15\x04\x00\x00\x92\x00\x92\x00\x33\x04\x92\x00\xf6\xff\x3f\x04\x3d\x04\x00\x00\x00\x00\x2c\x00\x3b\x04\x40\x04\x3c\x04\xf2\x03\x2c\x00\x2c\x00\x00\x00\x3a\x04\x92\x00\xec\x03\x92\x00\x92\x00\x35\x04\x34\x04\x2f\x04\x21\x04\x8e\x01\x00\x00\x00\x00\x1d\x04\x14\x04\x26\x04\x25\x04\x2c\x00\x05\x04\x00\x00\xbd\x03\xbd\x03\xbd\x03\xbd\x03\xbd\x03\xbd\x03\xbd\x03\xbd\x03\xbd\x03\xbd\x03\xbd\x03\xbd\x03\xbd\x03\x3c\x02\xbd\x03\xbd\x03\xbd\x03\x00\x00\x00\x00\x00\x00\xb3\x00\x00\x00\x04\x04\x00\x00\x00\x00\xe5\x03\xcf\x03\x00\x00\xe3\x04\x02\x04\xdb\x03\x20\x00\x00\x00\xc7\x03\xf4\x03\xb0\x03\xb0\x03\xb0\x03\xb0\x03\x1e\x00\x00\x00\x38\x01\xef\x03\x00\x00\xc1\x00\x00\x00\xe8\x03\xd5\x03\x00\x00\xe6\x03\x88\x03\x88\x03\x00\x00\xd6\x03\xd4\x03\x00\x00\xd2\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xd1\x03\x00\x00\xc0\x03\xc6\x03\xc5\x03\x00\x00\x00\x00\x16\x00\xc4\x03\x00\x00\x00\x00\x00\x00\xc1\x03\x00\x00\x00\x00\x12\x00\xbf\x03\x00\x00\x2c\x00\x92\x00\x2c\x00\x00\x00\x70\x03\x00\x00\x92\x00\x92\x00\xb8\x03\x00\x00\x00\x00\x00\x00\x78\x03\x00\x00\xa6\x03\x93\x03\x97\x03\x45\x01\x9c\x03\x9b\x03\x96\x03\x00\x00\x2c\x00\x92\x00\x00\x00\x46\x03\x2c\x00\x00\x00\x00\x00\x92\x00\x82\x03\x00\x00\x00\x00\x84\x03\x89\x03\x00\x00\x80\x03\x00\x00\x7f\x03\x00\x00\x8a\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x7e\x03\x00\x00\x00\x00\x00\x00\x00\x00\x36\x03\x2c\x00\x00\x00\x00\x00\x00\x00\x2c\x00\x92\x00\x92\x00\x64\x03\x6d\x03\x62\x03\x00\x00\x2c\x00\x00\x00\x00\x00\x00\x00\x00\x00\x22\x03\x18\x01\x22\x03\x22\x03\x22\x03\x22\x03\x92\x00\x22\x03\x69\x03\x1c\x03\x18\x00\x00\x00\x00\x00\x92\x00\x1c\x03\x00\x00\x92\x00\x92\x00\x1c\x03\x63\x03\x00\x00\x5c\x03\x1c\x01\x00\x00\x00\x00\x41\x03\x00\x00\x51\x03\x00\x00\x00\x00\x4e\x03\x0e\x00\x0e\x00\x49\x03\xf0\x02\x00\x00\x2f\x03\x02\x03\x00\x00\xe2\x02\xe2\x02\xe2\x02\x00\x00\x00\x00\x0e\x00\x92\x00\x00\x00\x2a\x03\x00\x00\x00\x00\x00\x00\x00\x00\x1b\x03\x00\x00\xec\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x09\x03\x0a\x03\x00\x00\x11\x03\x00\x00\x00\x00\x00\x00\x19\x00\x00\x00\x00\x00\x00\x00\x92\x00\x92\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x03\xc0\x02\xc0\x02\x56\x02\xc0\x02\xc0\x02\x18\x01\x92\x00\x00\x00\x00\x00\x94\x00\xfe\x02\x00\x00\x30\x02\x00\x00\x0e\x00\x08\x03\xbd\x02\x00\x00\x00\x00\x00\x00\xbd\x02\x00\x00\x00\x00\x00\x00\xf6\x02\xf9\x02\x00\x00\x00\x00\x92\x00\xde\x02\x00\x00\x00\x00\xdd\x02\xdf\x02\xd3\x02\xda\x02\x00\x00\x7e\x02\x7e\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xc3\x02\x00\x00\x63\x02\xe4\x00\x0e\x00\x0e\x00\xb0\x02\xa1\x02\x00\x00\x00\x00\x00\x00"# happyGotoOffsets :: HappyAddr -happyGotoOffsets = HappyA# "\x44\x02\xa1\x01\xcd\xff\x9f\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x6f\x03\x00\x00\x00\x00\x00\x00\x00\x00\xf7\x01\x87\x02\xcf\x01\x00\x00\x5f\x02\x85\x00\x7f\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x93\x04\x00\x00\xe2\x01\x00\x00\x00\x00\xc5\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x72\x02\x07\x00\x00\x00\x71\x02\x6e\x02\x00\x00\x00\x00\x08\x01\x00\x00\x00\x00\x00\x00\x69\x02\x5a\x02\x55\x02\x51\x02\x4f\x02\x3d\x02\x00\x00\x0d\x00\x00\x00\x00\x00\x00\x00\x0b\x00\x09\x00\x03\x00\x19\x02\xcb\x02\x00\x00\x00\x00\xad\x01\x81\x04\xa2\x01\xb9\x02\x6d\x04\x00\x00\x00\x00\x00\x00\x00\x00\xbf\x01\x71\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x47\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x2f\x02\x00\x00\x00\x00\x5b\x04\x29\x03\xad\x02\x92\x02\x4f\x04\x3b\x04\x29\x04\x00\x00\x00\x00\x14\x00\x81\x03\x00\x00\x96\x01\x00\x00\x00\x00\x26\x02\x2a\x01\x00\x00\x00\x00\x00\x00\x6f\x03\x6f\x03\x6f\x03\x00\x00\x00\x00\x00\x00\x40\x00\x12\x02\x00\x00\x17\x04\x00\x00\x00\x00\x00\x00\x02\x02\x00\x00\x43\x02\x03\x04\x00\x00\xf7\x03\x10\x00\x00\x00\x00\x00\x00\x00\x00\x00\x3b\x03\x00\x00\x00\x00\x00\x00\x99\x00\x06\x02\xd1\x01\x00\x00\x00\x00\xe5\x03\xc5\x00\xd1\x03\xbf\x03\x00\x00\x00\x00\x00\x00\x00\x00\x32\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xdc\x01\x00\x00\x00\x00\xfb\x01\x25\x01\xf1\x04\x80\x01\x1d\x02\xe8\x04\xd3\x04\xd7\x04\xd4\x04\xd2\x04\xfe\x01\x0d\x01\xcb\x04\xc5\x04\xf3\x01\x91\x04\x21\x04\x00\x00\x00\x00\x00\x00\x05\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x26\x00\x00\x00\x00\x00\x00\x00\x00\x00\x2d\x01\xe7\x01\x7e\x01\xe3\x01\xda\x01\xc9\x00\x00\x00\xbc\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xba\x04\xb5\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x95\x01\x00\x00\x00\x00\x00\x00\x47\x01\x00\x00\x00\x00\xc6\x01\xb3\x03\xa5\x04\x00\x00\xb8\x01\x00\x00\xa7\x02\x9d\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x73\x00\x9f\x03\x00\x00\xb5\x01\xb9\x01\x00\x00\x00\x00\x8d\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x82\x00\x76\x01\x00\x00\x00\x00\x00\x00\x8b\x00\x7b\x03\x67\x03\x00\x00\x00\x00\x00\x00\x00\x00\x2f\x01\x00\x00\x00\x00\x00\x00\x00\x00\xd5\x01\x90\x00\xcf\x00\x4e\x02\xbb\x00\xac\x01\x5b\x03\x1a\x00\x00\x00\x76\x00\xe2\x00\x00\x00\x00\x00\x49\x03\x22\x04\x00\x00\x35\x03\x23\x03\x9e\x00\x00\x00\x00\x00\x00\x00\x7c\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x5d\x02\x00\x00\x41\x01\x00\x00\x79\x01\x00\x00\x00\x00\x00\x00\x24\x01\x27\x01\x25\x00\x2c\x01\x00\x00\x00\x00\xc6\x00\x17\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x97\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0f\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x75\x02\x00\x00\x00\x00\x00\x00\x5e\x01\x03\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x3b\x02\x89\x00\x8c\x00\x71\x00\xd3\x00\x90\x00\xf1\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x36\x00\x00\x00\x86\x00\x00\x00\xc8\x02\x00\x00\x00\x00\x00\x00\x3f\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xdf\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x26\x01\x9a\x00\x00\x00\x00\x00\x22\x00\x00\x00\x00\x00\x15\x00\x00\x00\x00\x00\x00\x00\x6e\x00\x1b\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"# +happyGotoOffsets = HappyA# "\x36\x02\x86\x01\xda\x01\xd2\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xcd\x04\x00\x00\x00\x00\x00\x00\x00\x00\xa6\x01\xbb\x02\xe3\x01\x00\x00\x9e\x02\x85\x00\xa2\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xc0\x04\x00\x00\x00\x00\x56\x01\x00\x00\x00\x00\xc4\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x86\x02\x07\x00\x00\x00\x7a\x02\x72\x02\x00\x00\x00\x00\xc0\x00\x00\x00\x00\x00\x00\x00\x6a\x02\x68\x02\x5d\x02\x5c\x02\x4c\x02\x43\x02\x00\x00\x0d\x00\x00\x00\x00\x00\x00\x00\x0b\x00\x09\x00\x03\x00\x24\x02\x03\x03\x00\x00\x00\x00\xdc\x01\xb4\x04\x75\x00\xed\x02\x9a\x04\x00\x00\x00\x00\x00\x00\x00\x00\x50\x01\xc7\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x71\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x37\x02\x00\x00\x00\x00\x8e\x04\xf1\x03\xf3\x02\xa0\x01\x7c\x04\x71\x04\x5b\x04\x00\x00\x00\x00\x11\x00\xab\x01\x00\x00\x47\x01\x00\x00\x00\x00\x12\x02\x06\x01\x00\x00\x00\x00\x00\x00\xcd\x04\xcd\x04\xcd\x04\x00\x00\x00\x00\x00\x00\x74\x00\x11\x02\x00\x00\x56\x04\x00\x00\x00\x00\x00\x00\x0e\x02\x00\x00\x82\x02\x39\x04\x00\x00\x23\x04\x10\x00\x00\x00\x00\x00\x00\x00\x00\x00\x46\x02\x00\x00\x00\x00\x00\x00\x82\x00\x7d\x01\x2d\x01\x00\x00\x00\x00\x17\x04\xe2\x00\x01\x04\xe4\x03\x00\x00\x00\x00\x00\x00\x00\x00\x40\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x1b\x02\x00\x00\x00\x00\xb3\x01\x1a\x00\xf3\x04\xba\x02\xd8\x00\x4c\x04\x92\x03\x4b\x04\x0a\x04\x38\x03\x03\x02\x27\x02\x37\x03\x8e\x02\xff\x01\x0c\x03\x02\x02\x00\x00\x00\x00\x00\x00\x05\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x44\x02\x00\x00\x00\x00\x00\x00\x00\x00\x89\x01\x00\x00\xe9\x01\x0b\x01\xd4\x01\xc6\x01\x40\x01\x00\x00\xfc\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x8d\x02\x7c\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x3c\x01\x00\x00\x00\x00\x00\x00\x75\x01\x00\x00\x00\x00\xf5\x01\xdf\x03\x3d\x02\x00\x00\x8f\x01\x00\x00\xd0\x02\xc2\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xef\x00\xc9\x03\x00\x00\x62\x01\xdf\x01\x00\x00\x00\x00\xbe\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x6e\x00\x5a\x01\x00\x00\x00\x00\x00\x00\x8b\x00\xac\x03\xa0\x03\x00\x00\x00\x00\x00\x00\x00\x00\x24\x01\x00\x00\x00\x00\x00\x00\x00\x00\xb2\x01\x90\x00\xd1\x00\x88\x02\x2a\x02\x5f\x01\x86\x03\xc9\x00\x00\x00\xf8\x01\xdb\x00\x00\x00\x00\x00\x7a\x03\x0b\x02\x00\x00\x68\x03\x5d\x03\x33\x01\x00\x00\x00\x00\x00\x00\x3f\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x50\x02\x21\x02\x00\x00\x41\x01\x00\x00\x00\x00\x00\x00\x0e\x01\x73\x00\x25\x00\x2b\x01\x00\x00\x00\x00\x21\x00\x47\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xc6\x00\x00\x00\x00\x00\x00\x00\x00\x00\xf3\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xa9\x02\x00\x00\x00\x00\x00\x00\xbd\x01\x42\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x2d\x02\x86\x00\x81\x00\x6b\x00\x9c\x00\x90\x00\x25\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x36\x00\x00\x00\x2c\x01\x00\x00\x50\x03\x00\x00\x00\x00\x00\x00\x42\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0f\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0d\x03\xca\x01\x00\x00\x00\x00\x22\x00\x00\x00\x00\x00\x1c\x00\x00\x00\x00\x00\x00\x00\x1b\x00\x14\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"# happyDefActions :: HappyAddr -happyDefActions = HappyA# "\xf6\xff\xd2\xff\x20\xff\x00\x00\x00\x00\xfb\xff\x8a\xff\x86\xff\x85\xff\x7c\xff\x78\xff\x6f\xff\x6a\xff\x5f\xff\x00\x00\x87\xff\x00\x00\x8d\xff\x3d\xff\x00\x00\x84\xff\x36\xff\x3d\xff\x00\x00\x4b\xff\x49\xff\x48\xff\x4a\xff\x4c\xff\x00\x00\x00\x00\x8d\xff\x00\x00\x00\x00\x00\x00\x00\x00\xfa\xff\xf9\xff\xf8\xff\x00\x00\xde\xff\x00\x00\x00\x00\x00\x00\x00\x00\xd1\xff\x00\x00\xd2\xff\xf5\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xf4\xff\x1d\xff\x1e\xff\x00\x00\x1f\xff\x00\x00\x00\x00\x00\x00\x21\xff\x5e\xff\x8a\xff\x00\x00\x8d\xff\x00\x00\x00\x00\x5e\xff\x00\x00\x92\xff\x00\x00\x8c\xff\x00\x00\x8d\xff\x2c\xff\x00\x00\x6e\xff\x3f\xff\x3c\xff\x00\x00\x3d\xff\x3e\xff\x38\xff\x35\xff\x00\x00\x00\x00\x00\x00\x83\xff\x8a\xff\x00\x00\x00\x00\x00\x00\x92\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x77\xff\x00\x00\x00\x00\x70\xff\x8d\xff\x4e\xff\x7b\xff\x00\x00\x8d\xff\x64\xff\x65\xff\x66\xff\x6c\xff\x6d\xff\x6b\xff\x67\xff\x81\xff\x89\xff\x00\x00\x00\x00\x00\x00\x00\x00\x7d\xff\x82\xff\x88\xff\x00\x00\x80\xff\x36\xff\x00\x00\x00\x00\x00\x00\x3d\xff\x00\x00\x5a\xff\x56\xff\x57\xff\x43\xff\x00\x00\x2b\xff\x00\x00\x47\xff\x00\x00\x33\xff\x5b\xff\x00\x00\x00\x00\x8d\xff\x00\x00\x00\x00\x00\x00\x5d\xff\x00\x00\x00\x00\x92\xff\x50\xff\x44\xff\x41\xff\x00\x00\x2f\xff\x00\x00\x00\x00\x00\x00\xdd\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x1a\xff\x1c\xff\x1b\xff\x18\xff\x19\xff\x00\x00\xe7\xff\xe6\xff\x00\x00\x00\x00\xe8\xff\xdb\xff\x00\x00\x00\x00\x00\x00\xf2\xff\xd7\xff\x00\x00\xcd\xff\x00\x00\x00\x00\x00\x00\x17\xff\x92\xff\x00\x00\xb3\xff\x00\x00\xc0\xff\x00\x00\x00\x00\xb7\xff\x00\x00\x00\x00\x00\x00\xb5\xff\xa7\xff\x00\x00\xbf\xff\x00\x00\xbe\xff\xb6\xff\xbc\xff\xbd\xff\xbb\xff\x00\x00\xc3\xff\x00\x00\x00\x00\x00\x00\xb8\xff\xc2\xff\x00\x00\x00\x00\xc1\xff\x23\xff\x00\x00\xc4\xff\x73\xff\x5a\xff\x00\x00\x76\xff\x00\x00\x00\x00\x00\x00\x52\xff\x00\x00\x71\xff\x5e\xff\x28\xff\x90\xff\x8f\xff\x8b\xff\x62\xff\x00\x00\x37\xff\x32\xff\x00\x00\x00\x00\x92\xff\x00\x00\x46\xff\x00\x00\x60\xff\x2c\xff\x00\x00\x42\xff\x00\x00\x00\x00\x3b\xff\x69\xff\x00\x00\x00\x00\x38\xff\x34\xff\x00\x00\x00\x00\x7f\xff\x00\x00\x91\xff\x00\x00\x4d\xff\x92\xff\x61\xff\x7a\xff\x3a\xff\x79\xff\x7e\xff\x68\xff\x00\x00\x58\xff\x2d\xff\x2a\xff\x55\xff\x47\xff\x00\x00\x59\xff\x53\xff\x54\xff\x33\xff\x00\x00\x00\x00\x00\x00\x27\xff\x00\x00\x5c\xff\x58\xff\x40\xff\x30\xff\x2e\xff\x75\xff\xa1\xff\xb1\xff\x9d\xff\xac\xff\x97\xff\x00\x00\x00\x00\x9f\xff\x00\x00\x9b\xff\x95\xff\xb9\xff\xba\xff\x00\x00\x99\xff\xb2\xff\x00\x00\x00\x00\xa3\xff\x00\x00\xd5\xff\x00\x00\xd0\xff\xe4\xff\xe5\xff\xca\xff\xdf\xff\xcc\xff\xe0\xff\x00\x00\xda\xff\xdc\xff\xda\xff\x00\x00\x00\x00\xe1\xff\xd9\xff\x00\x00\xde\xff\xcd\xff\x00\x00\x00\x00\xcf\xff\xce\xff\x00\x00\x00\x00\xa2\xff\xc8\xff\xc7\xff\x98\xff\xa5\xff\x23\xff\x94\xff\xa9\xff\x00\x00\x9a\xff\xde\xff\x9e\xff\xb0\xff\xa4\xff\x96\xff\xae\xff\xab\xff\xaf\xff\x9c\xff\x24\xff\x22\xff\x3d\xff\xa0\xff\x51\xff\x72\xff\x28\xff\x00\x00\x8e\xff\x63\xff\x31\xff\x4f\xff\x45\xff\x74\xff\x29\xff\x26\xff\x00\x00\xac\xff\x00\x00\x00\x00\x00\x00\x95\xff\xa6\xff\x00\x00\xc6\xff\xe3\xff\x00\x00\x00\x00\xcb\xff\x00\x00\xd6\xff\xda\xff\x00\x00\xf0\xff\xd8\xff\xe2\xff\xc9\xff\x00\x00\xd4\xff\xc5\xff\x93\xff\x00\x00\x00\x00\xad\xff\xaa\xff\x00\x00\x00\x00\xb4\xff\xa8\xff\x00\x00\x00\x00\xef\xff\x00\x00\xf3\xff\xf0\xff\x00\x00\xd3\xff\x25\xff\xec\xff\xf1\xff\xee\xff\xed\xff\xeb\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xea\xff\xe9\xff"# +happyDefActions = HappyA# "\xf6\xff\xd2\xff\x1e\xff\x00\x00\x00\x00\xfb\xff\x89\xff\x85\xff\x84\xff\x7a\xff\x76\xff\x6d\xff\x68\xff\x5d\xff\x00\x00\x86\xff\x00\x00\x8c\xff\x3b\xff\x00\x00\x83\xff\x34\xff\x3b\xff\x00\x00\x49\xff\x47\xff\x46\xff\x48\xff\x4a\xff\x00\x00\x81\xff\x00\x00\x8c\xff\x00\x00\x00\x00\x00\x00\x00\x00\xfa\xff\xf9\xff\xf8\xff\x00\x00\xde\xff\x00\x00\x00\x00\x00\x00\x00\x00\xd1\xff\x00\x00\xd2\xff\xf5\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xf4\xff\x1b\xff\x1c\xff\x00\x00\x1d\xff\x00\x00\x00\x00\x00\x00\x1f\xff\x5c\xff\x89\xff\x00\x00\x8c\xff\x00\x00\x00\x00\x5c\xff\x00\x00\x91\xff\x00\x00\x8b\xff\x00\x00\x8c\xff\x2a\xff\x00\x00\x6c\xff\x3d\xff\x3a\xff\x00\x00\x3b\xff\x3c\xff\x36\xff\x33\xff\x00\x00\x00\x00\x00\x00\x82\xff\x89\xff\x00\x00\x00\x00\x00\x00\x91\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x75\xff\x00\x00\x00\x00\x6e\xff\x8c\xff\x4c\xff\x79\xff\x00\x00\x8c\xff\x62\xff\x63\xff\x64\xff\x6a\xff\x6b\xff\x69\xff\x65\xff\x7f\xff\x88\xff\x00\x00\x00\x00\x00\x00\x00\x00\x7b\xff\x80\xff\x87\xff\x00\x00\x7e\xff\x34\xff\x00\x00\x00\x00\x00\x00\x3b\xff\x00\x00\x58\xff\x54\xff\x55\xff\x41\xff\x00\x00\x29\xff\x00\x00\x45\xff\x00\x00\x31\xff\x59\xff\x00\x00\x00\x00\x8c\xff\x00\x00\x00\x00\x00\x00\x5b\xff\x00\x00\x00\x00\x91\xff\x4e\xff\x42\xff\x3f\xff\x00\x00\x2d\xff\x00\x00\x00\x00\x00\x00\xdd\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x18\xff\x1a\xff\x19\xff\x16\xff\x17\xff\x00\x00\xe7\xff\xe6\xff\x00\x00\x00\x00\xe8\xff\xdb\xff\x00\x00\x00\x00\x91\xff\xf2\xff\xd7\xff\x00\x00\x00\x00\xcd\xff\x00\x00\x00\x00\x00\x00\x15\xff\x91\xff\x00\x00\xb2\xff\x00\x00\xbf\xff\x00\x00\x00\x00\xb6\xff\x00\x00\x00\x00\x00\x00\xb4\xff\xa6\xff\x00\x00\xbe\xff\x00\x00\xbd\xff\xb5\xff\xbb\xff\xbc\xff\xba\xff\x00\x00\xc3\xff\x00\x00\x00\x00\x00\x00\xb7\xff\xc1\xff\x91\xff\x00\x00\xc2\xff\xc0\xff\x21\xff\x00\x00\xc4\xff\x71\xff\x58\xff\x00\x00\x74\xff\x00\x00\x00\x00\x00\x00\x50\xff\x00\x00\x6f\xff\x5c\xff\x26\xff\x8f\xff\x8e\xff\x8a\xff\x60\xff\x00\x00\x35\xff\x30\xff\x00\x00\x00\x00\x91\xff\x00\x00\x44\xff\x00\x00\x5e\xff\x2a\xff\x00\x00\x40\xff\x00\x00\x00\x00\x39\xff\x67\xff\x00\x00\x00\x00\x36\xff\x32\xff\x00\x00\x00\x00\x7d\xff\x00\x00\x90\xff\x00\x00\x4b\xff\x91\xff\x5f\xff\x78\xff\x38\xff\x77\xff\x7c\xff\x66\xff\x00\x00\x56\xff\x2b\xff\x28\xff\x53\xff\x45\xff\x00\x00\x57\xff\x51\xff\x52\xff\x31\xff\x00\x00\x00\x00\x00\x00\x25\xff\x00\x00\x5a\xff\x56\xff\x3e\xff\x2e\xff\x2c\xff\x73\xff\xa0\xff\xb0\xff\x9c\xff\xab\xff\x96\xff\x00\x00\x00\x00\x9e\xff\x00\x00\x9a\xff\x94\xff\xb8\xff\xb9\xff\x00\x00\x98\xff\xb1\xff\x00\x00\x00\x00\xa2\xff\x00\x00\xd5\xff\x00\x00\xd0\xff\xe4\xff\xe5\xff\xca\xff\xdf\xff\xcc\xff\xe0\xff\xdc\xff\x00\x00\xda\xff\xda\xff\x00\x00\x00\x00\xe1\xff\xd9\xff\x00\x00\xde\xff\xcd\xff\x00\x00\x00\x00\xcf\xff\xce\xff\x00\x00\x00\x00\xa1\xff\xc8\xff\xc7\xff\x97\xff\xa4\xff\x21\xff\x93\xff\xa8\xff\x00\x00\x99\xff\xde\xff\x9d\xff\xaf\xff\xa3\xff\x95\xff\xad\xff\xaa\xff\xae\xff\x00\x00\x9b\xff\x22\xff\x20\xff\x3b\xff\x9f\xff\x4f\xff\x70\xff\x26\xff\x00\x00\x8d\xff\x61\xff\x2f\xff\x4d\xff\x43\xff\x72\xff\x27\xff\x24\xff\x00\x00\xab\xff\x00\x00\x00\x00\x00\x00\x94\xff\xa5\xff\x00\x00\xc6\xff\xe3\xff\x00\x00\x00\x00\xcb\xff\x00\x00\xd6\xff\xda\xff\x00\x00\xf0\xff\xd8\xff\xe2\xff\xc9\xff\x00\x00\xd4\xff\xc5\xff\x92\xff\x00\x00\x00\x00\xac\xff\xa9\xff\x00\x00\x00\x00\xb3\xff\xa7\xff\x00\x00\x00\x00\xef\xff\x00\x00\xf3\xff\xf0\xff\x00\x00\xd3\xff\x23\xff\xec\xff\xf1\xff\xee\xff\xed\xff\xeb\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xea\xff\xe9\xff"# happyCheck :: HappyAddr -happyCheck = HappyA# "\xff\xff\x03\x00\x01\x00\x00\x00\x01\x00\x00\x00\x01\x00\x00\x00\x01\x00\x00\x00\x01\x00\x00\x00\x01\x00\x00\x00\x01\x00\x19\x00\x00\x00\x1a\x00\x15\x00\x05\x00\x00\x00\x03\x00\x19\x00\x05\x00\x4b\x00\x4c\x00\x00\x00\x00\x00\x03\x00\x05\x00\x05\x00\x0d\x00\x0b\x00\x04\x00\x10\x00\x05\x00\x0b\x00\x00\x00\x00\x00\x0a\x00\x0f\x00\x10\x00\x09\x00\x19\x00\x0a\x00\x12\x00\x15\x00\x03\x00\x0c\x00\x05\x00\x19\x00\x0d\x00\x1a\x00\x0f\x00\x1d\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x10\x00\x24\x00\x24\x00\x00\x00\x00\x00\x4b\x00\x4b\x00\x2a\x00\x2a\x00\x19\x00\x2d\x00\x00\x00\x4b\x00\x4b\x00\x36\x00\x32\x00\x3c\x00\x3d\x00\x18\x00\x2a\x00\x4d\x00\x50\x00\x4d\x00\x4e\x00\x4d\x00\x4e\x00\x4d\x00\x3e\x00\x4d\x00\x4b\x00\x4d\x00\x42\x00\x43\x00\x4b\x00\x4c\x00\x4d\x00\x03\x00\x48\x00\x05\x00\x4b\x00\x4b\x00\x4c\x00\x4d\x00\x4e\x00\x0b\x00\x4b\x00\x2a\x00\x4a\x00\x0f\x00\x10\x00\x00\x00\x4b\x00\x4c\x00\x00\x00\x15\x00\x00\x00\x01\x00\x02\x00\x00\x00\x4b\x00\x4c\x00\x4d\x00\x1d\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x12\x00\x24\x00\x00\x00\x3c\x00\x3d\x00\x00\x00\x00\x00\x2a\x00\x25\x00\x00\x00\x2d\x00\x00\x00\x01\x00\x02\x00\x2b\x00\x32\x00\x00\x00\x01\x00\x02\x00\x03\x00\x1e\x00\x03\x00\x10\x00\x05\x00\x12\x00\x00\x00\x00\x00\x3e\x00\x26\x00\x0b\x00\x00\x00\x42\x00\x43\x00\x0f\x00\x10\x00\x09\x00\x18\x00\x48\x00\x33\x00\x15\x00\x4b\x00\x4c\x00\x4d\x00\x4e\x00\x2a\x00\x3a\x00\x4b\x00\x1d\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x17\x00\x24\x00\x35\x00\x45\x00\x46\x00\x38\x00\x00\x00\x2a\x00\x2d\x00\x33\x00\x34\x00\x22\x00\x3c\x00\x3d\x00\x2a\x00\x32\x00\x00\x00\x00\x00\x37\x00\x2a\x00\x00\x00\x03\x00\x40\x00\x05\x00\x42\x00\x35\x00\x00\x00\x3e\x00\x38\x00\x0b\x00\x00\x00\x42\x00\x43\x00\x0f\x00\x10\x00\x12\x00\x49\x00\x48\x00\x12\x00\x21\x00\x4b\x00\x4c\x00\x4d\x00\x4e\x00\x4a\x00\x00\x00\x28\x00\x1d\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x1b\x00\x24\x00\x03\x00\x04\x00\x05\x00\x2a\x00\x2b\x00\x2c\x00\x1f\x00\x0a\x00\x25\x00\x02\x00\x0d\x00\x0e\x00\x04\x00\x10\x00\x07\x00\x03\x00\x29\x00\x05\x00\x0a\x00\x16\x00\x08\x00\x1f\x00\x19\x00\x0b\x00\x03\x00\x3e\x00\x05\x00\x0f\x00\x10\x00\x42\x00\x43\x00\x29\x00\x0b\x00\x00\x00\x06\x00\x48\x00\x0f\x00\x10\x00\x4b\x00\x4c\x00\x4d\x00\x4e\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x13\x00\x03\x00\x0e\x00\x05\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x0b\x00\x00\x00\x00\x00\x00\x00\x0f\x00\x10\x00\x00\x00\x1e\x00\x00\x00\x07\x00\x08\x00\x00\x00\x01\x00\x02\x00\x0e\x00\x26\x00\x4b\x00\x4c\x00\x4d\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x15\x00\x16\x00\x11\x00\x2c\x00\x1b\x00\x00\x00\x2f\x00\x4b\x00\x4c\x00\x4d\x00\x4e\x00\x00\x00\x01\x00\x02\x00\x25\x00\x0d\x00\x4b\x00\x4c\x00\x4d\x00\x4e\x00\x03\x00\x10\x00\x05\x00\x12\x00\x2a\x00\x2b\x00\x2c\x00\x02\x00\x0b\x00\x1b\x00\x1c\x00\x06\x00\x0f\x00\x10\x00\x00\x00\x01\x00\x02\x00\x03\x00\x33\x00\x50\x00\x4b\x00\x4c\x00\x4d\x00\x4e\x00\x03\x00\x3a\x00\x05\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x0b\x00\x00\x00\x01\x00\x02\x00\x0f\x00\x10\x00\x00\x00\x01\x00\x02\x00\x00\x00\x33\x00\x03\x00\x2c\x00\x05\x00\x00\x00\x2f\x00\x00\x00\x3a\x00\x0a\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x10\x00\x4b\x00\x4c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x14\x00\x19\x00\x02\x00\x15\x00\x16\x00\x37\x00\x00\x00\x07\x00\x4b\x00\x4c\x00\x4d\x00\x4e\x00\x3e\x00\x00\x00\x01\x00\x02\x00\x03\x00\x21\x00\x00\x00\x01\x00\x33\x00\x47\x00\x48\x00\x06\x00\x28\x00\x33\x00\x34\x00\x3a\x00\x00\x00\x00\x00\x01\x00\x02\x00\x4b\x00\x4c\x00\x4d\x00\x4e\x00\x13\x00\x00\x00\x45\x00\x46\x00\x00\x00\x00\x00\x01\x00\x02\x00\x00\x00\x01\x00\x02\x00\x00\x00\x2a\x00\x2b\x00\x2c\x00\x4b\x00\x4c\x00\x4d\x00\x00\x00\x01\x00\x02\x00\x2d\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x00\x00\x01\x00\x00\x00\x01\x00\x02\x00\x37\x00\x00\x00\x3a\x00\x2a\x00\x2b\x00\x2c\x00\x00\x00\x3e\x00\x00\x00\x01\x00\x02\x00\x4a\x00\x33\x00\x34\x00\x00\x00\x00\x00\x47\x00\x48\x00\x39\x00\x00\x00\x3b\x00\x2a\x00\x2b\x00\x2c\x00\x33\x00\x34\x00\x19\x00\x33\x00\x43\x00\x44\x00\x39\x00\x00\x00\x3b\x00\x04\x00\x3a\x00\x00\x00\x23\x00\x33\x00\x34\x00\x00\x00\x43\x00\x44\x00\x00\x00\x39\x00\x07\x00\x3b\x00\x00\x00\x0a\x00\x33\x00\x34\x00\x00\x00\x01\x00\x02\x00\x43\x00\x44\x00\x12\x00\x2a\x00\x2b\x00\x2c\x00\x33\x00\x34\x00\x40\x00\x00\x00\x42\x00\x19\x00\x39\x00\x25\x00\x3b\x00\x27\x00\x28\x00\x29\x00\x04\x00\x2b\x00\x00\x00\x23\x00\x43\x00\x44\x00\x2a\x00\x2b\x00\x2c\x00\x33\x00\x34\x00\x35\x00\x36\x00\x02\x00\x2f\x00\x39\x00\x31\x00\x3b\x00\x3c\x00\x3d\x00\x00\x00\x3f\x00\x18\x00\x00\x00\x01\x00\x02\x00\x44\x00\x45\x00\x1a\x00\x47\x00\x33\x00\x34\x00\x00\x00\x25\x00\x00\x00\x27\x00\x28\x00\x29\x00\x24\x00\x2b\x00\x00\x00\x01\x00\x02\x00\x03\x00\x2a\x00\x04\x00\x05\x00\x33\x00\x34\x00\x35\x00\x36\x00\x00\x00\x00\x00\x39\x00\x00\x00\x3b\x00\x3c\x00\x3d\x00\x00\x00\x3f\x00\x1c\x00\x1d\x00\x09\x00\x00\x00\x44\x00\x45\x00\x00\x00\x47\x00\x00\x00\x01\x00\x02\x00\x03\x00\x13\x00\x14\x00\x33\x00\x16\x00\x17\x00\x18\x00\x00\x00\x1c\x00\x1d\x00\x3a\x00\x10\x00\x00\x00\x12\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x00\x00\x01\x00\x02\x00\x03\x00\x41\x00\x37\x00\x0c\x00\x0d\x00\x0c\x00\x46\x00\x00\x00\x0e\x00\x3e\x00\x3f\x00\x4b\x00\x41\x00\x45\x00\x06\x00\x00\x00\x01\x00\x02\x00\x03\x00\x06\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x04\x00\x00\x00\x01\x00\x02\x00\x03\x00\x37\x00\x0a\x00\x05\x00\x49\x00\x0d\x00\x04\x00\x01\x00\x3e\x00\x3f\x00\x4b\x00\x41\x00\x02\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x00\x00\x01\x00\x02\x00\x03\x00\x06\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x3c\x00\x3d\x00\x3e\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x00\x00\x01\x00\x02\x00\x03\x00\x06\x00\x37\x00\x2d\x00\x2e\x00\x2f\x00\x01\x00\x3c\x00\x3d\x00\x3e\x00\x06\x00\x4b\x00\x00\x00\x37\x00\x01\x00\x00\x00\x01\x00\x02\x00\x03\x00\x07\x00\x08\x00\x0c\x00\x0e\x00\x4b\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x2d\x00\x2e\x00\x2f\x00\x07\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x2d\x00\x37\x00\x3e\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x0e\x00\x0d\x00\x02\x00\x4b\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x0a\x00\x4b\x00\x3e\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x2d\x00\x02\x00\x0a\x00\x03\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x0b\x00\x08\x00\x3e\x00\x02\x00\x04\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x4b\x00\x03\x00\x01\x00\x1b\x00\x4b\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x4b\x00\x04\x00\x3e\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x00\x00\x01\x00\x02\x00\x03\x00\x06\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x11\x00\x04\x00\x3e\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x00\x00\x01\x00\x02\x00\x03\x00\x0c\x00\x37\x00\x00\x00\x01\x00\x02\x00\x04\x00\x4b\x00\x04\x00\x3e\x00\x01\x00\x06\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x00\x00\x01\x00\x02\x00\x03\x00\x02\x00\x37\x00\x11\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x3e\x00\x2d\x00\x2e\x00\x2f\x00\x0a\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x2d\x00\x37\x00\x3e\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x00\x00\x01\x00\x02\x00\x03\x00\x02\x00\x37\x00\x4b\x00\x33\x00\x00\x00\x01\x00\x02\x00\x03\x00\x3e\x00\x04\x00\x3a\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x00\x00\x01\x00\x02\x00\x03\x00\x01\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x01\x00\x01\x00\x3e\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x00\x00\x01\x00\x02\x00\x03\x00\x02\x00\x37\x00\x02\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x3e\x00\x07\x00\x01\x00\x2d\x00\x2e\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x02\x00\x01\x00\x3e\x00\x37\x00\x02\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x4b\x00\x2d\x00\x02\x00\x01\x00\x01\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x01\x00\x37\x00\x3e\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x00\x00\x01\x00\x02\x00\x03\x00\x4b\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x23\x00\x38\x00\x3e\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x00\x00\x01\x00\x02\x00\x03\x00\x03\x00\x37\x00\x37\x00\x04\x00\x37\x00\x07\x00\x4b\x00\x04\x00\x3e\x00\x01\x00\x16\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x00\x00\x01\x00\x02\x00\x03\x00\x0e\x00\x37\x00\x0c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x3e\x00\x2d\x00\x04\x00\x01\x00\x01\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x01\x00\x37\x00\x3e\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x00\x00\x01\x00\x02\x00\x03\x00\x4b\x00\x37\x00\x04\x00\x04\x00\x4b\x00\x08\x00\x0d\x00\x03\x00\x3e\x00\x06\x00\x16\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x00\x00\x01\x00\x02\x00\x03\x00\x4b\x00\x37\x00\x0d\x00\x03\x00\x07\x00\x4b\x00\x00\x00\x00\x00\x3e\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x00\x00\x01\x00\x02\x00\x03\x00\x4d\x00\x37\x00\x4b\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x3e\x00\x04\x00\x4b\x00\x17\x00\x06\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x11\x00\x0c\x00\x3e\x00\x20\x00\x22\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x27\x00\x0a\x00\x2a\x00\x2a\x00\x07\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x08\x00\x0a\x00\x3e\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x00\x00\x01\x00\x02\x00\x03\x00\x37\x00\x37\x00\x4b\x00\x2d\x00\x01\x00\x0a\x00\x01\x00\x03\x00\x3e\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x00\x00\x01\x00\x02\x00\x03\x00\x4b\x00\x37\x00\x02\x00\x02\x00\x01\x00\x4b\x00\x50\x00\x03\x00\x3e\x00\x50\x00\x03\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x00\x00\x01\x00\x02\x00\x03\x00\x03\x00\x37\x00\x03\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x3e\x00\x4b\x00\x08\x00\x0d\x00\x00\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x50\x00\x12\x00\x3e\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x00\x00\x01\x00\x02\x00\x03\x00\x4b\x00\x37\x00\x00\x00\x01\x00\x02\x00\x17\x00\x2e\x00\xff\xff\x3e\x00\xff\xff\xff\xff\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x22\x00\xff\xff\x00\x00\xff\xff\xff\xff\x37\x00\xff\xff\x00\x00\x2a\x00\xff\xff\xff\xff\xff\xff\x3e\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x00\x00\xff\xff\xff\xff\xff\xff\xff\xff\x37\x00\x00\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x3e\x00\x00\x00\x00\x00\x00\x00\x20\x00\x37\x00\x00\x00\x33\x00\x34\x00\x20\x00\xff\xff\x27\x00\x3e\x00\x39\x00\x2a\x00\x3b\x00\x27\x00\x17\x00\xff\xff\x2a\x00\x20\x00\xff\xff\xff\xff\x00\x00\x17\x00\xff\xff\x17\x00\x27\x00\x22\x00\x17\x00\x2a\x00\xff\xff\x00\x00\xff\xff\x20\x00\x22\x00\x2a\x00\x22\x00\xff\xff\xff\xff\x22\x00\x27\x00\xff\xff\x2a\x00\x2a\x00\x2a\x00\x17\x00\x25\x00\x2a\x00\x27\x00\x28\x00\x29\x00\xff\xff\x2b\x00\xff\xff\x17\x00\xff\xff\x22\x00\xff\xff\xff\xff\xff\xff\x33\x00\x34\x00\x35\x00\x36\x00\x2a\x00\x22\x00\x39\x00\xff\xff\x3b\x00\x3c\x00\x3d\x00\x23\x00\x3f\x00\x2a\x00\x26\x00\xff\xff\xff\xff\x44\x00\x45\x00\xff\xff\x47\x00\xff\xff\xff\xff\xff\xff\x30\x00\x31\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x40\x00\xff\xff\xff\xff\xff\xff\xff\xff\x45\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff"# +happyCheck = HappyA# "\xff\xff\x03\x00\x01\x00\x00\x00\x01\x00\x00\x00\x01\x00\x00\x00\x01\x00\x00\x00\x01\x00\x00\x00\x01\x00\x00\x00\x01\x00\x19\x00\x00\x00\x00\x00\x15\x00\x05\x00\x00\x00\x03\x00\x19\x00\x05\x00\x02\x00\x1a\x00\x00\x00\x00\x00\x03\x00\x05\x00\x05\x00\x0d\x00\x0a\x00\x00\x00\x10\x00\x05\x00\x0b\x00\x00\x00\x12\x00\x0b\x00\x0f\x00\x10\x00\x0a\x00\x19\x00\x0a\x00\x12\x00\x15\x00\x03\x00\x0c\x00\x05\x00\x19\x00\x12\x00\x1a\x00\x1b\x00\x1d\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x10\x00\x24\x00\x24\x00\x25\x00\x27\x00\x4b\x00\x00\x00\x2a\x00\x2a\x00\x19\x00\x2d\x00\x36\x00\x4b\x00\x4b\x00\x4b\x00\x32\x00\x3c\x00\x3d\x00\x18\x00\x2a\x00\x4d\x00\x50\x00\x4d\x00\x4e\x00\x4d\x00\x4e\x00\x4d\x00\x3e\x00\x4d\x00\x4b\x00\x4d\x00\x42\x00\x43\x00\x4b\x00\x4c\x00\x4d\x00\x03\x00\x48\x00\x05\x00\x4b\x00\x4b\x00\x4c\x00\x4d\x00\x4e\x00\x0b\x00\x4b\x00\x4a\x00\x00\x00\x0f\x00\x10\x00\x00\x00\x4b\x00\x4c\x00\x00\x00\x15\x00\x00\x00\x00\x00\x00\x00\x01\x00\x4b\x00\x4c\x00\x4d\x00\x1d\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x2c\x00\x24\x00\x00\x00\x2f\x00\x27\x00\x00\x00\x00\x00\x2a\x00\x15\x00\x16\x00\x2d\x00\x00\x00\x01\x00\x02\x00\x04\x00\x32\x00\x00\x00\x01\x00\x02\x00\x03\x00\x0a\x00\x03\x00\x02\x00\x05\x00\x2a\x00\x18\x00\x06\x00\x3e\x00\x00\x00\x0b\x00\x2a\x00\x42\x00\x43\x00\x0f\x00\x10\x00\x35\x00\x50\x00\x48\x00\x38\x00\x15\x00\x4b\x00\x4c\x00\x4d\x00\x4e\x00\x2a\x00\x3c\x00\x3d\x00\x1d\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x2c\x00\x24\x00\x35\x00\x2f\x00\x27\x00\x38\x00\x1f\x00\x2a\x00\x2d\x00\x33\x00\x34\x00\x0d\x00\x3c\x00\x3d\x00\x02\x00\x32\x00\x29\x00\x06\x00\x37\x00\x07\x00\x00\x00\x03\x00\x40\x00\x05\x00\x42\x00\x1b\x00\x1c\x00\x3e\x00\x00\x00\x0b\x00\x13\x00\x42\x00\x43\x00\x0f\x00\x10\x00\x00\x00\x49\x00\x48\x00\x00\x00\x02\x00\x4b\x00\x4c\x00\x4d\x00\x4e\x00\x07\x00\x00\x00\x1a\x00\x1d\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x09\x00\x24\x00\x1b\x00\x24\x00\x27\x00\x00\x00\x01\x00\x02\x00\x1a\x00\x2a\x00\x13\x00\x14\x00\x25\x00\x16\x00\x17\x00\x18\x00\x1f\x00\x03\x00\x24\x00\x05\x00\x4b\x00\x4c\x00\x08\x00\x0e\x00\x2a\x00\x0b\x00\x29\x00\x3e\x00\x00\x00\x0f\x00\x10\x00\x42\x00\x43\x00\x00\x00\x2a\x00\x2b\x00\x2c\x00\x48\x00\x4a\x00\x2d\x00\x4b\x00\x4c\x00\x4d\x00\x4e\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x03\x00\x0e\x00\x05\x00\x3a\x00\x27\x00\x15\x00\x16\x00\x33\x00\x0b\x00\x00\x00\x01\x00\x02\x00\x0f\x00\x10\x00\x3a\x00\x49\x00\x00\x00\x00\x00\x00\x00\x01\x00\x02\x00\x2a\x00\x2b\x00\x2c\x00\x00\x00\x45\x00\x46\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x03\x00\x10\x00\x05\x00\x12\x00\x27\x00\x00\x00\x00\x00\x0a\x00\x4b\x00\x4c\x00\x4d\x00\x4e\x00\x00\x00\x10\x00\x04\x00\x17\x00\x2f\x00\x03\x00\x31\x00\x05\x00\x0a\x00\x00\x00\x19\x00\x12\x00\x14\x00\x0b\x00\x22\x00\x00\x00\x33\x00\x0f\x00\x10\x00\x00\x00\x01\x00\x02\x00\x2a\x00\x3a\x00\x00\x00\x33\x00\x34\x00\x00\x00\x4b\x00\x4c\x00\x4d\x00\x4e\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x03\x00\x40\x00\x05\x00\x42\x00\x27\x00\x2a\x00\x2b\x00\x2c\x00\x0b\x00\x00\x00\x01\x00\x02\x00\x0f\x00\x10\x00\x2a\x00\x2b\x00\x2c\x00\x00\x00\x01\x00\x02\x00\x2a\x00\x2b\x00\x2c\x00\x4b\x00\x4c\x00\x4d\x00\x4a\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x06\x00\x33\x00\x34\x00\x00\x00\x27\x00\x03\x00\x04\x00\x05\x00\x4b\x00\x4c\x00\x4d\x00\x4e\x00\x0a\x00\x13\x00\x11\x00\x0d\x00\x0e\x00\x03\x00\x10\x00\x05\x00\x00\x00\x01\x00\x02\x00\x03\x00\x16\x00\x0b\x00\x00\x00\x19\x00\x33\x00\x0f\x00\x10\x00\x00\x00\x01\x00\x02\x00\x03\x00\x3a\x00\x33\x00\x34\x00\x00\x00\x00\x00\x4b\x00\x4c\x00\x4d\x00\x4e\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x00\x00\x01\x00\x02\x00\x03\x00\x27\x00\x00\x00\x01\x00\x02\x00\x03\x00\x00\x00\x00\x00\x01\x00\x02\x00\x00\x00\x19\x00\x19\x00\x2d\x00\x2e\x00\x2f\x00\x2a\x00\x2b\x00\x2c\x00\x09\x00\x00\x00\x23\x00\x23\x00\x37\x00\x2d\x00\x4b\x00\x4c\x00\x4d\x00\x00\x00\x01\x00\x02\x00\x00\x00\x01\x00\x02\x00\x37\x00\x00\x00\x01\x00\x4b\x00\x4c\x00\x4d\x00\x4e\x00\x00\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x37\x00\x00\x00\x01\x00\x02\x00\x00\x00\x37\x00\x33\x00\x3e\x00\x00\x00\x01\x00\x02\x00\x00\x00\x3e\x00\x3a\x00\x00\x00\x00\x00\x47\x00\x48\x00\x2a\x00\x2b\x00\x2c\x00\x47\x00\x48\x00\x00\x00\x45\x00\x46\x00\x00\x00\x33\x00\x34\x00\x00\x00\x33\x00\x34\x00\x02\x00\x39\x00\x1e\x00\x3b\x00\x39\x00\x17\x00\x3b\x00\x00\x00\x01\x00\x02\x00\x26\x00\x43\x00\x44\x00\x00\x00\x43\x00\x44\x00\x22\x00\x4b\x00\x4c\x00\x00\x00\x33\x00\x34\x00\x00\x00\x20\x00\x2a\x00\x00\x00\x39\x00\x33\x00\x3b\x00\x10\x00\x27\x00\x12\x00\x04\x00\x2a\x00\x3a\x00\x00\x00\x43\x00\x44\x00\x04\x00\x05\x00\x18\x00\x00\x00\x01\x00\x02\x00\x00\x00\x01\x00\x02\x00\x00\x00\x00\x00\x1e\x00\x00\x00\x01\x00\x02\x00\x1c\x00\x1d\x00\x21\x00\x00\x00\x26\x00\x33\x00\x34\x00\x00\x00\x0d\x00\x28\x00\x0f\x00\x39\x00\x25\x00\x3b\x00\x27\x00\x28\x00\x29\x00\x04\x00\x2b\x00\x00\x00\x00\x00\x43\x00\x44\x00\x10\x00\x25\x00\x12\x00\x33\x00\x34\x00\x35\x00\x36\x00\x2b\x00\x00\x00\x39\x00\x00\x00\x3b\x00\x3c\x00\x3d\x00\x2a\x00\x3f\x00\x33\x00\x34\x00\x00\x00\x33\x00\x44\x00\x45\x00\x39\x00\x47\x00\x3b\x00\x33\x00\x3a\x00\x25\x00\x00\x00\x27\x00\x28\x00\x29\x00\x3a\x00\x2b\x00\x00\x00\x01\x00\x02\x00\x03\x00\x0c\x00\x4b\x00\x00\x00\x33\x00\x34\x00\x35\x00\x36\x00\x00\x00\x00\x00\x39\x00\x04\x00\x3b\x00\x3c\x00\x3d\x00\x0e\x00\x3f\x00\x0a\x00\x0c\x00\x0d\x00\x0d\x00\x44\x00\x45\x00\x20\x00\x47\x00\x00\x00\x01\x00\x02\x00\x03\x00\x00\x00\x27\x00\x1c\x00\x1d\x00\x2a\x00\x06\x00\x45\x00\x00\x00\x01\x00\x02\x00\x03\x00\x20\x00\x20\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x27\x00\x27\x00\x06\x00\x2a\x00\x2a\x00\x37\x00\x00\x00\x00\x00\x01\x00\x02\x00\x03\x00\x07\x00\x3e\x00\x3f\x00\x0a\x00\x41\x00\x00\x00\x01\x00\x02\x00\x03\x00\x05\x00\x4b\x00\x12\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x00\x00\x01\x00\x02\x00\x03\x00\x01\x00\x37\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x21\x00\x3e\x00\x3f\x00\x04\x00\x41\x00\x37\x00\x02\x00\x28\x00\x06\x00\x06\x00\x3c\x00\x3d\x00\x3e\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x00\x00\x01\x00\x02\x00\x03\x00\x2d\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x3c\x00\x3d\x00\x3e\x00\x01\x00\x37\x00\x06\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x00\x00\x01\x00\x02\x00\x03\x00\x37\x00\x4b\x00\x01\x00\x0c\x00\x4b\x00\x00\x00\x00\x00\x3e\x00\x00\x00\x01\x00\x02\x00\x03\x00\x02\x00\x07\x00\x08\x00\x0d\x00\x07\x00\x0e\x00\x2d\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x2d\x00\x2e\x00\x2f\x00\x17\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x0e\x00\x37\x00\x3e\x00\x02\x00\x4b\x00\x22\x00\x2d\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x2a\x00\x00\x00\x00\x00\x0a\x00\x37\x00\x4b\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x3e\x00\x00\x00\x01\x00\x02\x00\x03\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x02\x00\x0b\x00\x3e\x00\x17\x00\x17\x00\x00\x00\x03\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x07\x00\x08\x00\x22\x00\x22\x00\x0a\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x2a\x00\x2a\x00\x3e\x00\x08\x00\x02\x00\x04\x00\x4b\x00\x00\x00\x01\x00\x02\x00\x03\x00\x03\x00\x4b\x00\x01\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x37\x00\x1b\x00\x3e\x00\x4b\x00\x04\x00\x04\x00\x04\x00\x3e\x00\x00\x00\x01\x00\x02\x00\x03\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x06\x00\x0c\x00\x4b\x00\x00\x00\x11\x00\x37\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x04\x00\x3e\x00\x01\x00\x06\x00\x02\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x11\x00\x2d\x00\x3e\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x00\x00\x01\x00\x02\x00\x03\x00\x0a\x00\x37\x00\x20\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x3e\x00\x27\x00\x02\x00\x4b\x00\x2a\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x01\x00\x04\x00\x3e\x00\x01\x00\x01\x00\x07\x00\x02\x00\x00\x00\x01\x00\x02\x00\x03\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x01\x00\x4b\x00\x02\x00\x01\x00\x01\x00\x37\x00\x02\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x3e\x00\x00\x00\x01\x00\x02\x00\x03\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x02\x00\x01\x00\x3e\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x01\x00\x00\x00\x01\x00\x02\x00\x03\x00\x37\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x4b\x00\x3e\x00\x09\x00\x23\x00\x38\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x03\x00\x37\x00\x3e\x00\x4b\x00\x04\x00\x00\x00\x07\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x37\x00\x37\x00\x3e\x00\x2d\x00\x2e\x00\x2f\x00\x17\x00\x3e\x00\x00\x00\x01\x00\x02\x00\x03\x00\x01\x00\x37\x00\x04\x00\x16\x00\x0e\x00\x22\x00\x0c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x04\x00\x2a\x00\x01\x00\x01\x00\x4b\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x4b\x00\x04\x00\x3e\x00\x04\x00\x01\x00\x03\x00\x08\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x16\x00\x0d\x00\x00\x00\x00\x00\x06\x00\x37\x00\x0d\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x3e\x00\x00\x00\x01\x00\x02\x00\x03\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x4d\x00\x4b\x00\x3e\x00\x17\x00\x17\x00\x4b\x00\x4b\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x03\x00\x07\x00\x22\x00\x22\x00\x04\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x2a\x00\x2a\x00\x3e\x00\x4b\x00\x06\x00\x0c\x00\x11\x00\x00\x00\x01\x00\x02\x00\x03\x00\x0a\x00\x07\x00\x0a\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x37\x00\x08\x00\x3e\x00\x37\x00\x2d\x00\x01\x00\x4b\x00\x3e\x00\x00\x00\x01\x00\x02\x00\x03\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x0a\x00\x03\x00\x01\x00\x01\x00\x4b\x00\x37\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x02\x00\x3e\x00\x02\x00\x50\x00\x4b\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x03\x00\x03\x00\x3e\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x00\x00\x01\x00\x02\x00\x03\x00\x50\x00\x37\x00\x03\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x3e\x00\x00\x00\x01\x00\x02\x00\x03\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x03\x00\x4b\x00\x3e\x00\x08\x00\x50\x00\x23\x00\x0d\x00\x12\x00\x26\x00\x4b\x00\x2e\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\xff\xff\xff\xff\x30\x00\x31\x00\xff\xff\x37\x00\xff\xff\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x3e\x00\x00\x00\xff\xff\xff\xff\xff\xff\x37\x00\x40\x00\xff\xff\x2d\x00\x2e\x00\xff\xff\x45\x00\x3e\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x37\x00\xff\xff\xff\xff\xff\xff\xff\xff\x37\x00\x17\x00\x25\x00\xff\xff\x27\x00\x28\x00\x29\x00\x3e\x00\x2b\x00\xff\xff\xff\xff\xff\xff\x22\x00\xff\xff\xff\xff\xff\xff\x33\x00\x34\x00\x35\x00\x36\x00\x2a\x00\xff\xff\x39\x00\xff\xff\x3b\x00\x3c\x00\x3d\x00\x41\x00\x3f\x00\xff\xff\xff\xff\xff\xff\x46\x00\x44\x00\x45\x00\xff\xff\x47\x00\x4b\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff"# happyTable :: HappyAddr -happyTable = HappyA# "\x00\x00\x4f\x00\x3a\x00\x3a\x00\x3b\x00\x3a\x00\x3b\x00\x3a\x00\x3b\x00\x3a\x00\x3b\x00\x3a\x00\x3b\x00\x3a\x00\x3b\x00\x57\x00\x52\x00\x73\x00\x56\x00\x54\x01\x70\x00\x94\x00\x57\x00\x95\x00\x27\x00\x28\x00\x4a\x00\x51\x01\x12\x00\x74\x01\x13\x00\xfd\x00\xbc\x01\x7d\x00\x96\x00\x54\x01\x14\x00\x4a\x00\xc9\x00\x7e\x00\x15\x00\x16\x00\x5d\x01\x97\x00\xbb\x01\xc1\x01\x17\x00\x94\x00\x5d\x00\x95\x00\x57\x00\xca\x00\xe7\x00\xcb\x00\x18\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x96\x00\x1e\x00\x76\x01\xaf\x01\x4a\x00\x06\x00\x06\x00\x1f\x00\xe9\x00\x97\x00\x61\x00\x52\x00\x06\x00\x06\x00\x71\x00\x20\x00\x53\x00\x13\x01\xa9\x00\x99\x01\xbb\x00\xff\xff\x3c\x00\xd1\x00\x3c\x00\x3d\x00\xbc\x00\x21\x00\xbd\x00\x06\x00\xbf\x00\x22\x00\x23\x00\x06\x00\x25\x00\x26\x00\x12\x00\x24\x00\x13\x00\x06\x00\x06\x00\x25\x00\x26\x00\x27\x00\x14\x00\x06\x00\x1d\x01\x5e\x01\x15\x00\x16\x00\x51\x01\x06\x00\x25\x00\xa7\x01\x17\x00\x8c\x00\x8d\x00\x8e\x00\xde\x00\x06\x00\x25\x00\x26\x00\x18\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\xc2\x01\x1e\x00\x4a\x00\x53\x00\x88\x00\x52\x00\x51\x01\x1f\x00\xdc\x00\xa9\x01\x61\x00\xf5\x00\x8d\x00\x8e\x00\xdd\x00\x20\x00\x43\x00\x07\x00\x08\x00\x09\x00\xdf\x00\x12\x00\xa0\x01\x13\x00\x61\x01\x09\x01\xb8\x01\x21\x00\x74\x01\x14\x00\xd2\x00\x22\x00\x23\x00\x15\x00\x16\x00\xb9\x01\xa9\x00\x24\x00\x8f\x00\x17\x00\x06\x00\x25\x00\x26\x00\x27\x00\x0a\x01\x90\x00\x06\x00\x18\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\xd3\x00\x1e\x00\x0b\x01\x91\x00\x2a\x01\x8a\x01\xea\x00\x1f\x00\x7e\x01\xa1\x00\x05\x01\x6b\x01\x53\x00\x54\x00\x0a\x01\x20\x00\x4a\x00\x51\x01\x0f\x00\xd5\x00\x51\x01\x12\x00\x06\x01\x47\x00\x88\x01\x0b\x01\xee\x00\x21\x00\x0c\x01\x14\x00\x70\x01\x22\x00\x23\x00\x15\x00\x16\x00\x97\x01\x7f\x01\x24\x00\x52\x01\xeb\x00\x06\x00\x25\x00\x26\x00\x27\x00\x94\x01\x70\x01\x79\x01\x18\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\xef\x00\x1e\x00\x94\x00\x7d\x00\x95\x00\x4b\x00\x4c\x00\x02\x01\x71\x01\x7e\x00\x7d\x01\x4e\x01\xfd\x00\x5a\xff\x2f\x01\x96\x00\x4f\x01\x12\x00\xa6\x01\x47\x00\x7e\x00\x5a\xff\x39\xff\x71\x01\x97\x00\x14\x00\x70\x00\x21\x00\x81\x01\x15\x00\x16\x00\x22\x00\x23\x00\x72\x01\x48\x00\xde\x00\x30\x00\x24\x00\x15\x00\x16\x00\x06\x00\x25\x00\x26\x00\x27\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x2b\x00\x12\x00\x91\x01\x47\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x14\x00\xee\x00\xb0\x01\x56\x01\x15\x00\x16\x00\x4a\x00\xdf\x00\x98\x01\xb1\x01\xba\x01\x8c\x00\x8d\x00\x8e\x00\x9b\x01\xe0\x00\x06\x00\x25\x00\x26\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x9a\x01\x58\x01\x5a\x01\x2d\x00\xef\x00\x51\x01\x2e\x00\x06\x00\x25\x00\x26\x00\x27\x00\x8c\x00\x8d\x00\x8e\x00\xf0\x00\x3f\x00\x06\x00\x25\x00\x26\x00\x27\x00\x70\x00\x60\x01\x47\x00\x61\x01\x4b\x00\x4c\x00\x1e\x01\xa4\x01\x48\x00\x40\x00\x41\x00\xa5\x01\x15\x00\x16\x00\x06\x00\x07\x00\x08\x00\x09\x00\x8f\x00\xf7\xff\x06\x00\x25\x00\x26\x00\x27\x00\x46\x00\x82\x01\x47\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x48\x00\x8c\x00\x8d\x00\x8e\x00\x15\x00\x16\x00\xf5\x00\x8d\x00\x8e\x00\x9e\x01\x8f\x00\x94\x00\x2d\x00\x95\x00\x56\x01\x2e\x00\xea\x00\xfb\x00\x7e\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x96\x00\x06\x00\x25\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x34\x01\x66\x01\x97\x00\x9b\x00\x57\x01\x58\x01\x0f\x00\x20\x01\x9c\x00\x06\x00\x25\x00\x26\x00\x27\x00\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\xeb\x00\x9f\x00\x5b\x00\x8f\x00\x35\x01\x8d\x01\x2a\x00\xec\x00\xa1\x00\x89\x01\x90\x00\x78\x01\xa0\x00\x8d\x00\x8e\x00\x06\x00\x25\x00\x26\x00\x27\x00\x2b\x00\x28\x01\x91\x00\x92\x00\x38\x01\xf5\x00\x8d\x00\x8e\x00\x8c\x00\x8d\x00\x8e\x00\x4a\x00\x4b\x00\x4c\x00\x62\x00\x06\x00\x25\x00\x26\x00\xf5\x00\x8d\x00\x8e\x00\xc0\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x34\x01\x5a\x00\x5b\x00\xf5\x00\x8d\x00\x8e\x00\x0f\x00\xf1\x00\xc1\x01\x4b\x00\x4c\x00\x62\x00\x54\x01\x10\x00\xf5\x00\x8d\x00\x8e\x00\x3e\x01\xa1\x00\xa2\x00\x4a\x00\x55\x01\x35\x01\x36\x01\xa3\x00\x59\x01\xa4\x00\x4b\x00\x4c\x00\x97\x00\xa1\x00\xa2\x00\xf2\x00\x8f\x00\xa5\x00\xa6\x00\xa3\x00\xd7\x00\xa4\x00\xa2\x01\x50\x01\x61\x00\x81\x01\xa1\x00\xa2\x00\xf1\x00\xa5\x00\x27\x01\xe1\x00\xa3\x00\x3f\xff\xa4\x00\x19\x01\x3f\xff\xa1\x00\x05\x01\xf5\x00\x8d\x00\x8e\x00\xa5\x00\x3b\x01\x6e\x00\x4b\x00\x4c\x00\x4d\x00\xa1\x00\xa2\x00\x06\x01\x1c\x01\x07\x01\xf2\x00\xa3\x00\xab\x00\xa4\x00\xac\x00\xad\x00\xae\x00\xa9\x01\xaf\x00\x4a\x00\xf3\x00\xa5\x00\xf6\x00\x4b\x00\x4c\x00\x62\x00\xb0\x00\xb1\x00\xb2\x00\xb3\x00\x1f\x01\x68\x01\xb4\x00\x69\x01\xb5\x00\xb6\x00\xb7\x00\x7f\x00\xb8\x00\xa9\x00\x8c\x00\x8d\x00\x8e\x00\xb9\x00\xba\x00\xe7\x00\xbb\x00\xa1\x00\x08\x01\x7a\x01\xab\x00\xc0\x00\xac\x00\xad\x00\xae\x00\xe8\x00\xaf\x00\x06\x00\x07\x00\x08\x00\x09\x00\xe9\x00\x2e\x00\x2f\x00\xb0\x00\xb1\x00\xb2\x00\xb3\x00\x7a\x01\xc1\x00\xb4\x00\xc2\x00\xb5\x00\xb6\x00\xb7\x00\xc3\x00\xb8\x00\x7b\x01\xaa\x01\x65\x00\xc4\x00\xb9\x00\xba\x00\x51\x01\xbb\x00\x06\x00\x07\x00\x08\x00\x09\x00\x66\x00\x67\x00\x8f\x00\x68\x00\x69\x00\x6a\x00\xc5\x00\x7b\x01\x7c\x01\xfb\x00\x62\x01\x31\x00\x61\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x17\x01\x5d\x00\x07\x00\x08\x00\x09\x00\xcd\x00\x0f\x00\x84\x00\x85\x00\x32\x00\xce\x00\x51\x00\x41\x00\x10\x00\x58\x00\x06\x00\x18\x01\xbf\x01\xc4\x01\x5d\x00\x07\x00\x08\x00\x09\x00\xc5\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x57\x00\x7d\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0f\x00\x7e\x00\xbe\x01\x6b\x00\x7f\x00\xb4\x01\xb5\x01\x10\x00\x58\x00\x06\x00\x59\x00\xb6\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x5e\x00\x06\x00\x07\x00\x08\x00\x09\x00\xb7\x01\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x53\x00\x8e\x01\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x5e\x00\x06\x00\x07\x00\x08\x00\x09\x00\xb8\x01\x0f\x00\x0a\x00\x0b\x00\x77\x00\xae\x01\x53\x00\x5f\x00\x10\x00\xaf\x01\x06\x00\xb0\x01\x0f\x00\xa0\x01\x06\x00\x07\x00\x08\x00\x09\x00\xb1\x01\xb2\x01\xa3\x01\x90\x01\x06\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x9d\x00\x37\x01\x0a\x00\x0b\x00\x78\x00\xac\x01\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x93\x01\x0f\x00\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x9d\x00\x9e\x00\x94\x01\x91\x01\x96\x01\x06\x00\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x9e\x01\x06\x00\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x9d\x00\xa8\x00\x9d\x01\x60\x01\x65\x01\x64\x01\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x66\x01\x6a\x01\x10\x00\x6b\x01\x84\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\xac\x01\x06\x00\x76\x01\x85\x01\x86\x01\x06\x00\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x06\x00\x8c\x01\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\xa5\x01\x06\x00\x07\x00\x08\x00\x09\x00\x24\x01\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x26\x01\x22\x01\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x8c\x01\x06\x00\x07\x00\x08\x00\x09\x00\x25\x01\x0f\x00\x8c\x00\x8d\x00\x8e\x00\x23\x01\x06\x00\x2c\x01\x10\x00\x2d\x01\x30\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x96\x01\x06\x00\x07\x00\x08\x00\x09\x00\x2e\x01\x0f\x00\x31\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x6c\x01\x10\x00\x0a\x00\x0b\x00\x79\x00\x32\x01\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x33\x01\x0f\x00\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x6d\x01\x06\x00\x07\x00\x08\x00\x09\x00\x34\x01\x0f\x00\x06\x00\x8f\x00\x43\x00\x07\x00\x08\x00\x09\x00\x10\x00\x3d\x01\x10\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x6f\x01\x06\x00\x07\x00\x08\x00\x09\x00\x3e\x01\x0f\x00\x43\x00\x07\x00\x08\x00\x09\x00\x40\x01\x42\x01\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x77\x01\x06\x00\x07\x00\x08\x00\x09\x00\x41\x01\x0f\x00\x43\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x86\x01\x10\x00\x44\x01\x45\x01\x0a\x00\x6b\x00\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x46\x01\x47\x01\x10\x00\x0f\x00\x48\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x87\x01\x06\x00\x6e\x00\x4b\x01\x4c\x01\x4d\x01\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x50\x01\x0f\x00\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x26\x01\x06\x00\x07\x00\x08\x00\x09\x00\x06\x00\x0f\x00\x43\x00\x07\x00\x08\x00\x09\x00\x5f\x01\x5c\x01\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x29\x01\x06\x00\x07\x00\x08\x00\x09\x00\xc9\x00\x0f\x00\xcf\x00\xf5\x00\xd0\x00\xd1\x00\x06\x00\xf8\x00\x10\x00\xf9\x00\xfa\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x3a\x01\x06\x00\x07\x00\x08\x00\x09\x00\xfb\x00\x0f\x00\x84\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x00\x01\x10\x00\x44\x00\xfe\x00\xff\x00\x00\x01\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0f\x01\x0f\x00\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x01\x01\x06\x00\x07\x00\x08\x00\x09\x00\x06\x00\x0f\x00\x05\x01\x0e\x01\x06\x00\x10\x01\x12\x01\x13\x01\x10\x00\x1c\x01\x16\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x03\x01\x06\x00\x07\x00\x08\x00\x09\x00\x06\x00\x0f\x00\x6d\x00\x74\x00\x81\x00\x06\x00\xd2\x00\x4a\x00\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x14\x01\x06\x00\x07\x00\x08\x00\x09\x00\x26\x00\x0f\x00\x06\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x16\x01\x10\x00\x7c\x00\x06\x00\xd3\x00\x82\x00\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x86\x00\x83\x00\x10\x00\xd8\x00\xd4\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x1a\x01\x6e\x01\x87\x00\xd5\x00\xda\x00\x88\x00\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x8a\x00\x8b\x00\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x74\x00\x06\x00\x07\x00\x08\x00\x09\x00\x8c\x00\x0f\x00\x06\x00\x99\x00\x9a\x00\x7e\x00\xbf\x00\xa8\x00\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x75\x00\x06\x00\x07\x00\x08\x00\x09\x00\x06\x00\x0f\x00\xc7\x00\xc8\x00\x3a\x00\x06\x00\xff\xff\x43\x00\x10\x00\xff\xff\x49\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x76\x00\x06\x00\x07\x00\x08\x00\x09\x00\x4a\x00\x0f\x00\x50\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x7a\x00\x10\x00\x06\x00\x64\x00\x6d\x00\xd2\x00\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\xff\xff\x6e\x00\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x9c\x00\x06\x00\x07\x00\x08\x00\x09\x00\x06\x00\x0f\x00\xf5\x00\x8d\x00\x8e\x00\xd3\x00\x2a\x00\x00\x00\x10\x00\x00\x00\x00\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x5e\x00\xd6\x00\x00\x00\x4a\x00\x00\x00\x00\x00\x0f\x00\x00\x00\x4a\x00\xd5\x00\x00\x00\x00\x00\x00\x00\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x50\x00\x4a\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0f\x00\xd2\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x0e\x00\x10\x00\xd2\x00\x4a\x00\xd2\x00\xd8\x00\x0f\x00\xd2\x00\xa1\x00\xa2\x00\xd8\x00\x00\x00\x48\x01\x10\x00\xa3\x00\xda\x00\x39\x01\x49\x01\xd3\x00\x00\x00\xda\x00\xd8\x00\x00\x00\x00\x00\xd2\x00\xd3\x00\x00\x00\xd3\x00\xd9\x00\xdd\x00\xd3\x00\xda\x00\x00\x00\xd2\x00\x00\x00\xd8\x00\xe2\x00\xd5\x00\xe3\x00\x00\x00\x00\x00\xe4\x00\xe5\x00\x00\x00\xd5\x00\xda\x00\xd5\x00\xd3\x00\xab\x00\xd5\x00\xac\x00\xad\x00\xae\x00\x00\x00\xaf\x00\x00\x00\xd3\x00\x00\x00\xe6\x00\x00\x00\x00\x00\x00\x00\xb0\x00\xb1\x00\xb2\x00\xb3\x00\xd5\x00\xed\x00\xb4\x00\x00\x00\xb5\x00\xb6\x00\xb7\x00\x34\x00\xb8\x00\xd5\x00\x35\x00\x00\x00\x00\x00\xb9\x00\xba\x00\x00\x00\xbb\x00\x00\x00\x00\x00\x00\x00\x36\x00\x37\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x38\x00\x00\x00\x00\x00\x00\x00\x00\x00\x39\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"# +happyTable = HappyA# "\x00\x00\x50\x00\x3b\x00\x3b\x00\x3c\x00\x3b\x00\x3c\x00\x3b\x00\x3c\x00\x3b\x00\x3c\x00\x3b\x00\x3c\x00\x3b\x00\x3c\x00\x58\x00\x53\x00\x71\x00\x57\x00\x57\x01\x54\x01\x95\x00\x58\x00\x96\x00\x44\x01\x74\x00\xf0\x00\x54\x01\x12\x00\x77\x01\x13\x00\x00\x01\x7f\x00\x54\x01\x97\x00\x57\x01\x14\x00\x4b\x00\xc5\x01\xc0\x01\x15\x00\x16\x00\x7f\x00\x98\x00\xbf\x01\xc6\x01\x17\x00\x95\x00\x5e\x00\x96\x00\x58\x00\x9b\x01\xe9\x00\xf1\x00\x18\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x97\x00\x1e\x00\xf2\x00\xf3\x00\x1f\x00\x06\x00\xb3\x01\x20\x00\xeb\x00\x98\x00\x62\x00\x72\x00\x06\x00\x06\x00\x06\x00\x21\x00\x54\x00\x16\x01\xaa\x00\x9d\x01\xbc\x00\xff\xff\x3d\x00\xd3\x00\x3d\x00\x3e\x00\xbd\x00\x22\x00\xbe\x00\x06\x00\xc0\x00\x23\x00\x24\x00\x06\x00\x26\x00\x27\x00\x12\x00\x25\x00\x13\x00\x06\x00\x06\x00\x26\x00\x27\x00\x28\x00\x14\x00\x06\x00\x61\x01\xab\x01\x15\x00\x16\x00\x4b\x00\x06\x00\x26\x00\x53\x00\x17\x00\x59\x01\x4b\x00\xa0\x00\x5c\x00\x06\x00\x26\x00\x27\x00\x18\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x2e\x00\x1e\x00\x0c\x01\x2f\x00\x1f\x00\x53\x00\xad\x01\x20\x00\x9e\x01\x5b\x01\x62\x00\xf8\x00\x8e\x00\x8f\x00\x7e\x00\x21\x00\x44\x00\x07\x00\x08\x00\x09\x00\x7f\x00\x12\x00\xa8\x01\x13\x00\x0d\x01\xaa\x00\xa9\x01\x22\x00\x73\x01\x14\x00\x20\x01\x23\x00\x24\x00\x15\x00\x16\x00\x0e\x01\xf7\xff\x25\x00\x8e\x01\x17\x00\x06\x00\x26\x00\x27\x00\x28\x00\x0d\x01\x54\x00\x89\x00\x18\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x2e\x00\x1e\x00\x0e\x01\x2f\x00\x1f\x00\x0f\x01\x74\x01\x20\x00\x82\x01\xa2\x00\x08\x01\x40\x00\x54\x00\x55\x00\x51\x01\x21\x00\xaa\x01\x31\x00\x0f\x00\x52\x01\x4b\x00\x12\x00\x09\x01\x48\x00\x8c\x01\x41\x00\x42\x00\x22\x00\x80\x01\x14\x00\x2c\x00\x23\x00\x24\x00\x15\x00\x16\x00\x4b\x00\x83\x01\x25\x00\x73\x01\x9c\x00\x06\x00\x26\x00\x27\x00\x28\x00\x9d\x00\x4b\x00\xe9\x00\x18\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x66\x00\x1e\x00\xf1\x00\x79\x01\x1f\x00\x8d\x00\x8e\x00\x8f\x00\xe9\x00\xeb\x00\x67\x00\x68\x00\x81\x01\x69\x00\x6a\x00\x6b\x00\x74\x01\x12\x00\xea\x00\x48\x00\x06\x00\x26\x00\x37\xff\x95\x01\xeb\x00\x14\x00\x75\x01\x22\x00\x4b\x00\x15\x00\x16\x00\x23\x00\x24\x00\x59\x01\x4c\x00\x4d\x00\x05\x01\x25\x00\x98\x01\xc4\x01\x06\x00\x26\x00\x27\x00\x28\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x71\x00\x9f\x01\x85\x01\xc5\x01\x1f\x00\x5a\x01\x5b\x01\x90\x00\x49\x00\x8d\x00\x8e\x00\x8f\x00\x15\x00\x16\x00\x91\x00\x6c\x00\x9c\x01\x54\x01\xf8\x00\x8e\x00\x8f\x00\x4c\x00\x4d\x00\x21\x01\xd4\x00\x92\x00\x2d\x01\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x95\x00\xa4\x01\x96\x00\x64\x01\x1f\x00\x54\x01\xa2\x01\x7f\x00\x06\x00\x26\x00\x27\x00\x28\x00\x23\x01\x97\x00\x32\x01\xd5\x00\x6b\x01\x12\x00\x6c\x01\x48\x00\x7f\x00\x4b\x00\x98\x00\x55\x01\x69\x01\x14\x00\x6e\x01\x4b\x00\x90\x00\x15\x00\x16\x00\xf8\x00\x8e\x00\x8f\x00\xd7\x00\x86\x01\x7b\x01\xa2\x00\x08\x01\x2b\x01\x06\x00\x26\x00\x27\x00\x28\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x71\x00\x09\x01\x48\x00\x0a\x01\x1f\x00\x4c\x00\x4d\x00\x63\x00\x49\x00\x8d\x00\x8e\x00\x8f\x00\x15\x00\x16\x00\x4c\x00\x4d\x00\x98\x00\xf8\x00\x8e\x00\x8f\x00\x4c\x00\x4d\x00\x4e\x00\x06\x00\x26\x00\x27\x00\x41\x01\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x2b\x00\xa2\x00\x8d\x01\x3b\x01\x1f\x00\x95\x00\x7e\x00\x96\x00\x06\x00\x26\x00\x27\x00\x28\x00\x7f\x00\x2c\x00\x5e\x01\x00\x01\x58\xff\x47\x00\x97\x00\x48\x00\x06\x00\x07\x00\x08\x00\x09\x00\x58\xff\x49\x00\x62\x00\x98\x00\x90\x00\x15\x00\x16\x00\x44\x00\x07\x00\x08\x00\x09\x00\xfe\x00\xa2\x00\x0b\x01\xf4\x00\xf4\x00\x06\x00\x26\x00\x27\x00\x28\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x06\x00\x07\x00\x08\x00\x09\x00\x1f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x57\x01\x8d\x00\x8e\x00\x8f\x00\xbc\x01\xf5\x00\xf5\x00\x0a\x00\x0b\x00\x78\x00\x4c\x00\x4d\x00\x63\x00\xbd\x01\x58\x01\x85\x01\xf6\x00\x0f\x00\x6f\x00\x06\x00\x26\x00\x27\x00\xa1\x00\x8e\x00\x8f\x00\xf8\x00\x8e\x00\x8f\x00\x0f\x00\x5b\x00\x5c\x00\x06\x00\x26\x00\x27\x00\x28\x00\x5c\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x37\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x37\x01\x0f\x00\xf8\x00\x8e\x00\x8f\x00\xe0\x00\x0f\x00\x90\x00\x10\x00\x8d\x00\x8e\x00\x8f\x00\xd9\x00\x10\x00\x91\x00\xd4\x00\xe3\x00\x38\x01\x91\x01\x4c\x00\x4d\x00\x63\x00\x38\x01\x39\x01\x4b\x00\x92\x00\x93\x00\x1c\x01\xa2\x00\xa3\x00\x1f\x01\xa2\x00\xa3\x00\x22\x01\xa4\x00\xe1\x00\xa5\x00\xa4\x00\xd5\x00\xa5\x00\xf8\x00\x8e\x00\x8f\x00\x77\x01\xa6\x00\xa7\x00\x54\x01\xa6\x00\x2a\x01\xd6\x00\x28\x00\x29\x00\xe0\x00\xa2\x00\xa3\x00\xec\x00\xda\x00\xd7\x00\x7d\x01\xa4\x00\x90\x00\xa5\x00\x63\x01\x71\x01\x64\x01\xa6\x01\xdc\x00\x53\x01\x80\x00\xa6\x00\x3e\x01\x2f\x00\x30\x00\xaa\x00\xf8\x00\x8e\x00\x8f\x00\x8d\x00\x8e\x00\x8f\x00\xc1\x00\xca\x00\xe1\x00\x8d\x00\x8e\x00\x8f\x00\x7e\x01\xae\x01\xed\x00\xc2\x00\xe2\x00\xa2\x00\xa3\x00\x54\x01\xcb\x00\x7c\x01\xcc\x00\xa4\x00\xac\x00\xa5\x00\xad\x00\xae\x00\xaf\x00\xad\x01\xb0\x00\xc3\x00\xc4\x00\xa6\x00\xf9\x00\x65\x01\xde\x00\x64\x01\xb1\x00\xb2\x00\xb3\x00\xb4\x00\xdf\x00\xc5\x00\xb5\x00\xc6\x00\xb6\x00\xb7\x00\xb8\x00\xcd\x00\xb9\x00\xa2\x00\xa3\x00\x32\x00\x90\x00\xba\x00\xbb\x00\xa4\x00\xbc\x00\x3c\x01\x90\x00\xfe\x00\xac\x00\x4b\x00\xad\x00\xae\x00\xaf\x00\x13\x01\xb0\x00\x06\x00\x07\x00\x08\x00\x09\x00\x33\x00\x06\x00\x7d\x01\xb1\x00\xb2\x00\xb3\x00\xb4\x00\x4b\x00\x4b\x00\xb5\x00\x7e\x00\xb6\x00\xb7\x00\xb8\x00\x42\x00\xb9\x00\x7f\x00\x85\x00\x86\x00\x80\x00\xba\x00\xbb\x00\xda\x00\xbc\x00\x06\x00\x07\x00\x08\x00\x09\x00\x52\x00\x4b\x01\x7e\x01\x7f\x01\xdc\x00\xc8\x01\xc3\x01\x5e\x00\x07\x00\x08\x00\x09\x00\xda\x00\xda\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x1a\x01\x4c\x01\xdb\x00\xc9\x01\xdc\x00\xdc\x00\x0f\x00\xec\x00\x5e\x00\x07\x00\x08\x00\x09\x00\x3d\xff\x10\x00\x59\x00\x3d\xff\x1b\x01\x44\x00\x07\x00\x08\x00\x09\x00\xc2\x01\x06\x00\x6f\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x58\x00\x06\x00\x07\x00\x08\x00\x09\x00\xb9\x01\x0f\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x5f\x00\xed\x00\x10\x00\x59\x00\xb8\x01\x5a\x00\x0f\x00\xba\x01\xee\x00\xbb\x01\xbc\x01\x54\x00\x92\x01\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x5f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x45\x00\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x54\x00\x60\x00\x10\x00\xb2\x01\x0f\x00\xb3\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x9e\x00\x3a\x01\x06\x00\x07\x00\x08\x00\x09\x00\x0f\x00\x06\x00\xa4\x01\xa7\x01\x06\x00\xd4\x00\xb4\x01\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\x44\x01\xb5\x01\xbe\x01\x95\x01\xb0\x01\x94\x01\x97\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x9e\x00\x9f\x00\x0a\x00\x0b\x00\x79\x00\xd5\x00\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x98\x01\x0f\x00\x10\x00\x9a\x01\x06\x00\xd8\x00\xa1\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x9e\x00\xa9\x00\xd7\x00\xd4\x00\xd4\x00\xa2\x01\x0f\x00\x06\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\xb0\x01\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x63\x01\x69\x01\x10\x00\xd5\x00\xd5\x00\xb4\x01\x67\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\xa9\x01\xb5\x01\xb6\x01\xdf\x00\xe4\x00\x68\x01\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\xd7\x00\xd7\x00\x10\x00\x6d\x01\x6e\x01\x88\x01\x06\x00\x06\x00\x07\x00\x08\x00\x09\x00\x79\x01\x06\x00\x89\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x90\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x9a\x01\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0f\x00\x8a\x01\x10\x00\x06\x00\x90\x01\x25\x01\x26\x01\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x6f\x01\x27\x01\x28\x01\x06\x00\x4b\x00\x29\x01\x0f\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x70\x01\x2f\x01\x10\x00\x30\x01\x33\x01\x31\x01\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x34\x01\x36\x01\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x72\x01\x06\x00\x07\x00\x08\x00\x09\x00\x35\x01\x0f\x00\xda\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x7a\x01\x10\x00\xe7\x00\x37\x01\x06\x00\xdc\x00\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x41\x01\x40\x01\x10\x00\x43\x01\x45\x01\x47\x01\x46\x01\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x8a\x01\x48\x01\x06\x00\x49\x01\x4a\x01\x4f\x01\x0f\x00\x4b\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x8b\x01\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x4e\x01\x50\x01\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x29\x01\x53\x01\x06\x00\x07\x00\x08\x00\x09\x00\x0f\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x2c\x01\x06\x00\x10\x00\x5e\x01\x62\x01\x60\x01\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\xca\x00\xd1\x00\x10\x00\x06\x00\xf8\x00\xd4\x00\xd3\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x3d\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x03\x01\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0f\x00\xd2\x00\x10\x00\x0a\x00\x0b\x00\x7a\x00\xd5\x00\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\xfc\x00\x0f\x00\xfb\x00\xfd\x00\xfe\x00\xe5\x00\x85\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x04\x01\x01\x01\xd7\x00\x02\x01\x03\x01\x06\x00\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x06\x00\x08\x01\x10\x00\x11\x01\x12\x01\x16\x01\x13\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x06\x01\x19\x01\x15\x01\xd4\x00\xd4\x00\x1f\x01\x0f\x00\x6e\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x17\x01\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x27\x00\x06\x00\x10\x00\xd5\x00\xd5\x00\x06\x00\x06\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x19\x01\x75\x00\x82\x00\xe6\x00\xe8\x00\x7d\x00\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\xd7\x00\xd7\x00\x10\x00\x06\x00\x83\x00\x84\x00\x87\x00\x06\x00\x07\x00\x08\x00\x09\x00\x88\x00\x89\x00\x8c\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x1d\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x75\x00\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0f\x00\x8b\x00\x10\x00\x8d\x00\x9a\x00\x9b\x00\x06\x00\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x76\x00\x7f\x00\xa9\x00\xc0\x00\x3b\x00\x06\x00\x0f\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x77\x00\xc8\x00\x10\x00\xc9\x00\xff\xff\x06\x00\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x44\x00\x4a\x00\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x7b\x00\x06\x00\x07\x00\x08\x00\x09\x00\xff\xff\x0f\x00\x4b\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x9d\x00\x10\x00\x44\x00\x07\x00\x08\x00\x09\x00\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x51\x00\x06\x00\x10\x00\x65\x00\xff\xff\x35\x00\x6e\x00\x6f\x00\x36\x00\x06\x00\x2b\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x5f\x00\x00\x00\x00\x00\x37\x00\x38\x00\x00\x00\x0f\x00\x00\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x51\x00\x10\x00\xd4\x00\x00\x00\x00\x00\x00\x00\x0f\x00\x39\x00\x00\x00\x0a\x00\x6c\x00\x00\x00\x3a\x00\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x0e\x00\x0f\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0f\x00\xd5\x00\xac\x00\x00\x00\xad\x00\xae\x00\xaf\x00\x10\x00\xb0\x00\x00\x00\x00\x00\x00\x00\xef\x00\x00\x00\x00\x00\x00\x00\xb1\x00\xb2\x00\xb3\x00\xb4\x00\xd7\x00\x00\x00\xb5\x00\x00\x00\xb6\x00\xb7\x00\xb8\x00\xcf\x00\xb9\x00\x00\x00\x00\x00\x00\x00\xd0\x00\xba\x00\xbb\x00\x00\x00\xbc\x00\x06\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"# -happyReduceArr = array (4, 232) [ +happyReduceArr = array (4, 234) [ (4 , happyReduce_4), (5 , happyReduce_5), (6 , happyReduce_6), @@ -739,7 +739,9 @@ happyReduceArr = array (4, 232) [ (229 , happyReduce_229), (230 , happyReduce_230), (231 , happyReduce_231), - (232 , happyReduce_232) + (232 , happyReduce_232), + (233 , happyReduce_233), + (234 , happyReduce_234) ] happy_n_terms = 81 :: Int @@ -1033,7 +1035,7 @@ happyReduction_34 happy_x_2 happyReduce_35 = happySpecReduce_2 15# happyReduction_35 happyReduction_35 happy_x_2 happy_x_1 - = case happyOut7 happy_x_1 of { happy_var_1 -> + = case happyOut49 happy_x_1 of { happy_var_1 -> happyIn22 (Ext happy_var_1 )} @@ -1247,79 +1249,87 @@ happyReduction_60 happy_x_2 happyReduce_61 = happySpecReduce_2 24# happyReduction_61 happyReduction_61 happy_x_2 + happy_x_1 + = case happyOut43 happy_x_2 of { happy_var_2 -> + happyIn31 + (DefFunData happy_var_2 + )} + +happyReduce_62 = happySpecReduce_2 24# happyReduction_62 +happyReduction_62 happy_x_2 happy_x_1 = case happyOut41 happy_x_2 of { happy_var_2 -> happyIn31 (DefDef happy_var_2 )} -happyReduce_62 = happySpecReduce_2 24# happyReduction_62 -happyReduction_62 happy_x_2 +happyReduce_63 = happySpecReduce_2 24# happyReduction_63 +happyReduction_63 happy_x_2 happy_x_1 = case happyOut44 happy_x_2 of { happy_var_2 -> happyIn31 (DefData happy_var_2 )} -happyReduce_63 = happySpecReduce_2 24# happyReduction_63 -happyReduction_63 happy_x_2 +happyReduce_64 = happySpecReduce_2 24# happyReduction_64 +happyReduction_64 happy_x_2 happy_x_1 = case happyOut41 happy_x_2 of { happy_var_2 -> happyIn31 (DefTrans happy_var_2 )} -happyReduce_64 = happySpecReduce_2 24# happyReduction_64 -happyReduction_64 happy_x_2 +happyReduce_65 = happySpecReduce_2 24# happyReduction_65 +happyReduction_65 happy_x_2 happy_x_1 = case happyOut45 happy_x_2 of { happy_var_2 -> happyIn31 (DefPar happy_var_2 )} -happyReduce_65 = happySpecReduce_2 24# happyReduction_65 -happyReduction_65 happy_x_2 +happyReduce_66 = happySpecReduce_2 24# happyReduction_66 +happyReduction_66 happy_x_2 happy_x_1 = case happyOut41 happy_x_2 of { happy_var_2 -> happyIn31 (DefOper happy_var_2 )} -happyReduce_66 = happySpecReduce_2 24# happyReduction_66 -happyReduction_66 happy_x_2 +happyReduce_67 = happySpecReduce_2 24# happyReduction_67 +happyReduction_67 happy_x_2 happy_x_1 = case happyOut46 happy_x_2 of { happy_var_2 -> happyIn31 (DefLincat happy_var_2 )} -happyReduce_67 = happySpecReduce_2 24# happyReduction_67 -happyReduction_67 happy_x_2 - happy_x_1 - = case happyOut41 happy_x_2 of { happy_var_2 -> - happyIn31 - (DefLindef happy_var_2 - )} - happyReduce_68 = happySpecReduce_2 24# happyReduction_68 happyReduction_68 happy_x_2 happy_x_1 = case happyOut41 happy_x_2 of { happy_var_2 -> happyIn31 - (DefLin happy_var_2 + (DefLindef happy_var_2 )} -happyReduce_69 = happySpecReduce_3 24# happyReduction_69 -happyReduction_69 happy_x_3 - happy_x_2 +happyReduce_69 = happySpecReduce_2 24# happyReduction_69 +happyReduction_69 happy_x_2 happy_x_1 - = case happyOut46 happy_x_3 of { happy_var_3 -> + = case happyOut41 happy_x_2 of { happy_var_2 -> happyIn31 - (DefPrintCat happy_var_3 + (DefLin happy_var_2 )} happyReduce_70 = happySpecReduce_3 24# happyReduction_70 happyReduction_70 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut46 happy_x_3 of { happy_var_3 -> + happyIn31 + (DefPrintCat happy_var_3 + )} + +happyReduce_71 = happySpecReduce_3 24# happyReduction_71 +happyReduction_71 happy_x_3 happy_x_2 happy_x_1 = case happyOut46 happy_x_3 of { happy_var_3 -> @@ -1327,40 +1337,40 @@ happyReduction_70 happy_x_3 (DefPrintFun happy_var_3 )} -happyReduce_71 = happySpecReduce_2 24# happyReduction_71 -happyReduction_71 happy_x_2 +happyReduce_72 = happySpecReduce_2 24# happyReduction_72 +happyReduction_72 happy_x_2 happy_x_1 = case happyOut47 happy_x_2 of { happy_var_2 -> happyIn31 (DefFlag happy_var_2 )} -happyReduce_72 = happySpecReduce_2 24# happyReduction_72 -happyReduction_72 happy_x_2 +happyReduce_73 = happySpecReduce_2 24# happyReduction_73 +happyReduction_73 happy_x_2 happy_x_1 = case happyOut46 happy_x_2 of { happy_var_2 -> happyIn31 (DefPrintOld happy_var_2 )} -happyReduce_73 = happySpecReduce_2 24# happyReduction_73 -happyReduction_73 happy_x_2 - happy_x_1 - = case happyOut41 happy_x_2 of { happy_var_2 -> - happyIn31 - (DefLintype happy_var_2 - )} - happyReduce_74 = happySpecReduce_2 24# happyReduction_74 happyReduction_74 happy_x_2 + happy_x_1 + = case happyOut41 happy_x_2 of { happy_var_2 -> + happyIn31 + (DefLintype happy_var_2 + )} + +happyReduce_75 = happySpecReduce_2 24# happyReduction_75 +happyReduction_75 happy_x_2 happy_x_1 = case happyOut41 happy_x_2 of { happy_var_2 -> happyIn31 (DefPattern happy_var_2 )} -happyReduce_75 = happyReduce 7# 24# happyReduction_75 -happyReduction_75 (happy_x_7 `HappyStk` +happyReduce_76 = happyReduce 7# 24# happyReduction_76 +happyReduction_76 (happy_x_7 `HappyStk` happy_x_6 `HappyStk` happy_x_5 `HappyStk` happy_x_4 `HappyStk` @@ -1374,16 +1384,16 @@ happyReduction_75 (happy_x_7 `HappyStk` (DefPackage happy_var_2 (reverse happy_var_5) ) `HappyStk` happyRest}} -happyReduce_76 = happySpecReduce_2 24# happyReduction_76 -happyReduction_76 happy_x_2 +happyReduce_77 = happySpecReduce_2 24# happyReduction_77 +happyReduction_77 happy_x_2 happy_x_1 = case happyOut41 happy_x_2 of { happy_var_2 -> happyIn31 (DefVars happy_var_2 )} -happyReduce_77 = happySpecReduce_3 24# happyReduction_77 -happyReduction_77 happy_x_3 +happyReduce_78 = happySpecReduce_3 24# happyReduction_78 +happyReduction_78 happy_x_3 happy_x_2 happy_x_1 = case happyOut7 happy_x_2 of { happy_var_2 -> @@ -1391,8 +1401,8 @@ happyReduction_77 happy_x_3 (DefTokenizer happy_var_2 )} -happyReduce_78 = happySpecReduce_2 25# happyReduction_78 -happyReduction_78 happy_x_2 +happyReduce_79 = happySpecReduce_2 25# happyReduction_79 +happyReduction_79 happy_x_2 happy_x_1 = case happyOut7 happy_x_1 of { happy_var_1 -> case happyOut81 happy_x_2 of { happy_var_2 -> @@ -1400,8 +1410,8 @@ happyReduction_78 happy_x_2 (CatDef happy_var_1 (reverse happy_var_2) )}} -happyReduce_79 = happySpecReduce_3 26# happyReduction_79 -happyReduction_79 happy_x_3 +happyReduce_80 = happySpecReduce_3 26# happyReduction_80 +happyReduction_80 happy_x_3 happy_x_2 happy_x_1 = case happyOut49 happy_x_1 of { happy_var_1 -> @@ -1410,8 +1420,8 @@ happyReduction_79 happy_x_3 (FunDef happy_var_1 happy_var_3 )}} -happyReduce_80 = happySpecReduce_3 27# happyReduction_80 -happyReduction_80 happy_x_3 +happyReduce_81 = happySpecReduce_3 27# happyReduction_81 +happyReduction_81 happy_x_3 happy_x_2 happy_x_1 = case happyOut7 happy_x_1 of { happy_var_1 -> @@ -1420,15 +1430,15 @@ happyReduction_80 happy_x_3 (DataDef happy_var_1 happy_var_3 )}} -happyReduce_81 = happySpecReduce_1 28# happyReduction_81 -happyReduction_81 happy_x_1 +happyReduce_82 = happySpecReduce_1 28# happyReduction_82 +happyReduction_82 happy_x_1 = case happyOut7 happy_x_1 of { happy_var_1 -> happyIn35 (DataId happy_var_1 )} -happyReduce_82 = happySpecReduce_3 28# happyReduction_82 -happyReduction_82 happy_x_3 +happyReduce_83 = happySpecReduce_3 28# happyReduction_83 +happyReduction_83 happy_x_3 happy_x_2 happy_x_1 = case happyOut7 happy_x_1 of { happy_var_1 -> @@ -1437,20 +1447,20 @@ happyReduction_82 happy_x_3 (DataQId happy_var_1 happy_var_3 )}} -happyReduce_83 = happySpecReduce_0 29# happyReduction_83 -happyReduction_83 = happyIn36 +happyReduce_84 = happySpecReduce_0 29# happyReduction_84 +happyReduction_84 = happyIn36 ([] ) -happyReduce_84 = happySpecReduce_1 29# happyReduction_84 -happyReduction_84 happy_x_1 +happyReduce_85 = happySpecReduce_1 29# happyReduction_85 +happyReduction_85 happy_x_1 = case happyOut35 happy_x_1 of { happy_var_1 -> happyIn36 ((:[]) happy_var_1 )} -happyReduce_85 = happySpecReduce_3 29# happyReduction_85 -happyReduction_85 happy_x_3 +happyReduce_86 = happySpecReduce_3 29# happyReduction_86 +happyReduction_86 happy_x_3 happy_x_2 happy_x_1 = case happyOut35 happy_x_1 of { happy_var_1 -> @@ -1459,8 +1469,8 @@ happyReduction_85 happy_x_3 ((:) happy_var_1 happy_var_3 )}} -happyReduce_86 = happySpecReduce_3 30# happyReduction_86 -happyReduction_86 happy_x_3 +happyReduce_87 = happySpecReduce_3 30# happyReduction_87 +happyReduction_87 happy_x_3 happy_x_2 happy_x_1 = case happyOut7 happy_x_1 of { happy_var_1 -> @@ -1469,8 +1479,8 @@ happyReduction_86 happy_x_3 (ParDef happy_var_1 happy_var_3 )}} -happyReduce_87 = happyReduce 6# 30# happyReduction_87 -happyReduction_87 (happy_x_6 `HappyStk` +happyReduce_88 = happyReduce 6# 30# happyReduction_88 +happyReduction_88 (happy_x_6 `HappyStk` happy_x_5 `HappyStk` happy_x_4 `HappyStk` happy_x_3 `HappyStk` @@ -1483,15 +1493,15 @@ happyReduction_87 (happy_x_6 `HappyStk` (ParDefIndir happy_var_1 happy_var_5 ) `HappyStk` happyRest}} -happyReduce_88 = happySpecReduce_1 30# happyReduction_88 -happyReduction_88 happy_x_1 +happyReduce_89 = happySpecReduce_1 30# happyReduction_89 +happyReduction_89 happy_x_1 = case happyOut7 happy_x_1 of { happy_var_1 -> happyIn37 (ParDefAbs happy_var_1 )} -happyReduce_89 = happySpecReduce_2 31# happyReduction_89 -happyReduction_89 happy_x_2 +happyReduce_90 = happySpecReduce_2 31# happyReduction_90 +happyReduction_90 happy_x_2 happy_x_1 = case happyOut7 happy_x_1 of { happy_var_1 -> case happyOut81 happy_x_2 of { happy_var_2 -> @@ -1499,8 +1509,8 @@ happyReduction_89 happy_x_2 (ParConstr happy_var_1 (reverse happy_var_2) )}} -happyReduce_90 = happySpecReduce_3 32# happyReduction_90 -happyReduction_90 happy_x_3 +happyReduce_91 = happySpecReduce_3 32# happyReduction_91 +happyReduction_91 happy_x_3 happy_x_2 happy_x_1 = case happyOut49 happy_x_1 of { happy_var_1 -> @@ -1509,8 +1519,8 @@ happyReduction_90 happy_x_3 (PrintDef happy_var_1 happy_var_3 )}} -happyReduce_91 = happySpecReduce_3 33# happyReduction_91 -happyReduction_91 happy_x_3 +happyReduce_92 = happySpecReduce_3 33# happyReduction_92 +happyReduction_92 happy_x_3 happy_x_2 happy_x_1 = case happyOut7 happy_x_1 of { happy_var_1 -> @@ -1519,16 +1529,16 @@ happyReduction_91 happy_x_3 (FlagDef happy_var_1 happy_var_3 )}} -happyReduce_92 = happySpecReduce_2 34# happyReduction_92 -happyReduction_92 happy_x_2 +happyReduce_93 = happySpecReduce_2 34# happyReduction_93 +happyReduction_93 happy_x_2 happy_x_1 = case happyOut30 happy_x_1 of { happy_var_1 -> happyIn41 ((:[]) happy_var_1 )} -happyReduce_93 = happySpecReduce_3 34# happyReduction_93 -happyReduction_93 happy_x_3 +happyReduce_94 = happySpecReduce_3 34# happyReduction_94 +happyReduction_94 happy_x_3 happy_x_2 happy_x_1 = case happyOut30 happy_x_1 of { happy_var_1 -> @@ -1537,16 +1547,16 @@ happyReduction_93 happy_x_3 ((:) happy_var_1 happy_var_3 )}} -happyReduce_94 = happySpecReduce_2 35# happyReduction_94 -happyReduction_94 happy_x_2 +happyReduce_95 = happySpecReduce_2 35# happyReduction_95 +happyReduction_95 happy_x_2 happy_x_1 = case happyOut32 happy_x_1 of { happy_var_1 -> happyIn42 ((:[]) happy_var_1 )} -happyReduce_95 = happySpecReduce_3 35# happyReduction_95 -happyReduction_95 happy_x_3 +happyReduce_96 = happySpecReduce_3 35# happyReduction_96 +happyReduction_96 happy_x_3 happy_x_2 happy_x_1 = case happyOut32 happy_x_1 of { happy_var_1 -> @@ -1555,16 +1565,16 @@ happyReduction_95 happy_x_3 ((:) happy_var_1 happy_var_3 )}} -happyReduce_96 = happySpecReduce_2 36# happyReduction_96 -happyReduction_96 happy_x_2 +happyReduce_97 = happySpecReduce_2 36# happyReduction_97 +happyReduction_97 happy_x_2 happy_x_1 = case happyOut33 happy_x_1 of { happy_var_1 -> happyIn43 ((:[]) happy_var_1 )} -happyReduce_97 = happySpecReduce_3 36# happyReduction_97 -happyReduction_97 happy_x_3 +happyReduce_98 = happySpecReduce_3 36# happyReduction_98 +happyReduction_98 happy_x_3 happy_x_2 happy_x_1 = case happyOut33 happy_x_1 of { happy_var_1 -> @@ -1573,16 +1583,16 @@ happyReduction_97 happy_x_3 ((:) happy_var_1 happy_var_3 )}} -happyReduce_98 = happySpecReduce_2 37# happyReduction_98 -happyReduction_98 happy_x_2 +happyReduce_99 = happySpecReduce_2 37# happyReduction_99 +happyReduction_99 happy_x_2 happy_x_1 = case happyOut34 happy_x_1 of { happy_var_1 -> happyIn44 ((:[]) happy_var_1 )} -happyReduce_99 = happySpecReduce_3 37# happyReduction_99 -happyReduction_99 happy_x_3 +happyReduce_100 = happySpecReduce_3 37# happyReduction_100 +happyReduction_100 happy_x_3 happy_x_2 happy_x_1 = case happyOut34 happy_x_1 of { happy_var_1 -> @@ -1591,16 +1601,16 @@ happyReduction_99 happy_x_3 ((:) happy_var_1 happy_var_3 )}} -happyReduce_100 = happySpecReduce_2 38# happyReduction_100 -happyReduction_100 happy_x_2 +happyReduce_101 = happySpecReduce_2 38# happyReduction_101 +happyReduction_101 happy_x_2 happy_x_1 = case happyOut37 happy_x_1 of { happy_var_1 -> happyIn45 ((:[]) happy_var_1 )} -happyReduce_101 = happySpecReduce_3 38# happyReduction_101 -happyReduction_101 happy_x_3 +happyReduce_102 = happySpecReduce_3 38# happyReduction_102 +happyReduction_102 happy_x_3 happy_x_2 happy_x_1 = case happyOut37 happy_x_1 of { happy_var_1 -> @@ -1609,16 +1619,16 @@ happyReduction_101 happy_x_3 ((:) happy_var_1 happy_var_3 )}} -happyReduce_102 = happySpecReduce_2 39# happyReduction_102 -happyReduction_102 happy_x_2 +happyReduce_103 = happySpecReduce_2 39# happyReduction_103 +happyReduction_103 happy_x_2 happy_x_1 = case happyOut39 happy_x_1 of { happy_var_1 -> happyIn46 ((:[]) happy_var_1 )} -happyReduce_103 = happySpecReduce_3 39# happyReduction_103 -happyReduction_103 happy_x_3 +happyReduce_104 = happySpecReduce_3 39# happyReduction_104 +happyReduction_104 happy_x_3 happy_x_2 happy_x_1 = case happyOut39 happy_x_1 of { happy_var_1 -> @@ -1627,16 +1637,16 @@ happyReduction_103 happy_x_3 ((:) happy_var_1 happy_var_3 )}} -happyReduce_104 = happySpecReduce_2 40# happyReduction_104 -happyReduction_104 happy_x_2 +happyReduce_105 = happySpecReduce_2 40# happyReduction_105 +happyReduction_105 happy_x_2 happy_x_1 = case happyOut40 happy_x_1 of { happy_var_1 -> happyIn47 ((:[]) happy_var_1 )} -happyReduce_105 = happySpecReduce_3 40# happyReduction_105 -happyReduction_105 happy_x_3 +happyReduce_106 = happySpecReduce_3 40# happyReduction_106 +happyReduction_106 happy_x_3 happy_x_2 happy_x_1 = case happyOut40 happy_x_1 of { happy_var_1 -> @@ -1645,20 +1655,20 @@ happyReduction_105 happy_x_3 ((:) happy_var_1 happy_var_3 )}} -happyReduce_106 = happySpecReduce_0 41# happyReduction_106 -happyReduction_106 = happyIn48 +happyReduce_107 = happySpecReduce_0 41# happyReduction_107 +happyReduction_107 = happyIn48 ([] ) -happyReduce_107 = happySpecReduce_1 41# happyReduction_107 -happyReduction_107 happy_x_1 +happyReduce_108 = happySpecReduce_1 41# happyReduction_108 +happyReduction_108 happy_x_1 = case happyOut38 happy_x_1 of { happy_var_1 -> happyIn48 ((:[]) happy_var_1 )} -happyReduce_108 = happySpecReduce_3 41# happyReduction_108 -happyReduction_108 happy_x_3 +happyReduce_109 = happySpecReduce_3 41# happyReduction_109 +happyReduction_109 happy_x_3 happy_x_2 happy_x_1 = case happyOut38 happy_x_1 of { happy_var_1 -> @@ -1667,15 +1677,15 @@ happyReduction_108 happy_x_3 ((:) happy_var_1 happy_var_3 )}} -happyReduce_109 = happySpecReduce_1 42# happyReduction_109 -happyReduction_109 happy_x_1 +happyReduce_110 = happySpecReduce_1 42# happyReduction_110 +happyReduction_110 happy_x_1 = case happyOut7 happy_x_1 of { happy_var_1 -> happyIn49 ((:[]) happy_var_1 )} -happyReduce_110 = happySpecReduce_3 42# happyReduction_110 -happyReduction_110 happy_x_3 +happyReduce_111 = happySpecReduce_3 42# happyReduction_111 +happyReduction_111 happy_x_3 happy_x_2 happy_x_1 = case happyOut7 happy_x_1 of { happy_var_1 -> @@ -1684,18 +1694,18 @@ happyReduction_110 happy_x_3 ((:) happy_var_1 happy_var_3 )}} -happyReduce_111 = happySpecReduce_3 43# happyReduction_111 -happyReduction_111 happy_x_3 - happy_x_2 - happy_x_1 - = case happyOut49 happy_x_1 of { happy_var_1 -> - case happyOut56 happy_x_3 of { happy_var_3 -> - happyIn50 - (LDDecl happy_var_1 happy_var_3 - )}} - happyReduce_112 = happySpecReduce_3 43# happyReduction_112 happyReduction_112 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut49 happy_x_1 of { happy_var_1 -> + case happyOut56 happy_x_3 of { happy_var_3 -> + happyIn50 + (LDDecl happy_var_1 happy_var_3 + )}} + +happyReduce_113 = happySpecReduce_3 43# happyReduction_113 +happyReduction_113 happy_x_3 happy_x_2 happy_x_1 = case happyOut49 happy_x_1 of { happy_var_1 -> @@ -1704,8 +1714,8 @@ happyReduction_112 happy_x_3 (LDDef happy_var_1 happy_var_3 )}} -happyReduce_113 = happyReduce 5# 43# happyReduction_113 -happyReduction_113 (happy_x_5 `HappyStk` +happyReduce_114 = happyReduce 5# 43# happyReduction_114 +happyReduction_114 (happy_x_5 `HappyStk` happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` @@ -1718,20 +1728,20 @@ happyReduction_113 (happy_x_5 `HappyStk` (LDFull happy_var_1 happy_var_3 happy_var_5 ) `HappyStk` happyRest}}} -happyReduce_114 = happySpecReduce_0 44# happyReduction_114 -happyReduction_114 = happyIn51 +happyReduce_115 = happySpecReduce_0 44# happyReduction_115 +happyReduction_115 = happyIn51 ([] ) -happyReduce_115 = happySpecReduce_1 44# happyReduction_115 -happyReduction_115 happy_x_1 +happyReduce_116 = happySpecReduce_1 44# happyReduction_116 +happyReduction_116 happy_x_1 = case happyOut50 happy_x_1 of { happy_var_1 -> happyIn51 ((:[]) happy_var_1 )} -happyReduce_116 = happySpecReduce_3 44# happyReduction_116 -happyReduction_116 happy_x_3 +happyReduce_117 = happySpecReduce_3 44# happyReduction_117 +happyReduction_117 happy_x_3 happy_x_2 happy_x_1 = case happyOut50 happy_x_1 of { happy_var_1 -> @@ -1740,24 +1750,24 @@ happyReduction_116 happy_x_3 ((:) happy_var_1 happy_var_3 )}} -happyReduce_117 = happySpecReduce_1 45# happyReduction_117 -happyReduction_117 happy_x_1 +happyReduce_118 = happySpecReduce_1 45# happyReduction_118 +happyReduction_118 happy_x_1 = case happyOut7 happy_x_1 of { happy_var_1 -> happyIn52 (EIdent happy_var_1 )} -happyReduce_118 = happySpecReduce_3 45# happyReduction_118 -happyReduction_118 happy_x_3 - happy_x_2 - happy_x_1 - = case happyOut7 happy_x_2 of { happy_var_2 -> - happyIn52 - (EConstr happy_var_2 - )} - happyReduce_119 = happySpecReduce_3 45# happyReduction_119 happyReduction_119 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut7 happy_x_2 of { happy_var_2 -> + happyIn52 + (EConstr happy_var_2 + )} + +happyReduce_120 = happySpecReduce_3 45# happyReduction_120 +happyReduction_120 happy_x_3 happy_x_2 happy_x_1 = case happyOut7 happy_x_2 of { happy_var_2 -> @@ -1765,42 +1775,48 @@ happyReduction_119 happy_x_3 (ECons happy_var_2 )} -happyReduce_120 = happySpecReduce_1 45# happyReduction_120 -happyReduction_120 happy_x_1 +happyReduce_121 = happySpecReduce_1 45# happyReduction_121 +happyReduction_121 happy_x_1 = case happyOut62 happy_x_1 of { happy_var_1 -> happyIn52 (ESort happy_var_1 )} -happyReduce_121 = happySpecReduce_1 45# happyReduction_121 -happyReduction_121 happy_x_1 +happyReduce_122 = happySpecReduce_1 45# happyReduction_122 +happyReduction_122 happy_x_1 = case happyOut8 happy_x_1 of { happy_var_1 -> happyIn52 (EString happy_var_1 )} -happyReduce_122 = happySpecReduce_1 45# happyReduction_122 -happyReduction_122 happy_x_1 +happyReduce_123 = happySpecReduce_1 45# happyReduction_123 +happyReduction_123 happy_x_1 = case happyOut9 happy_x_1 of { happy_var_1 -> happyIn52 (EInt happy_var_1 )} -happyReduce_123 = happySpecReduce_1 45# happyReduction_123 -happyReduction_123 happy_x_1 +happyReduce_124 = happySpecReduce_1 45# happyReduction_124 +happyReduction_124 happy_x_1 = happyIn52 (EMeta ) -happyReduce_124 = happySpecReduce_2 45# happyReduction_124 -happyReduction_124 happy_x_2 +happyReduce_125 = happySpecReduce_2 45# happyReduction_125 +happyReduction_125 happy_x_2 happy_x_1 = happyIn52 (EEmpty ) -happyReduce_125 = happySpecReduce_3 45# happyReduction_125 -happyReduction_125 happy_x_3 +happyReduce_126 = happySpecReduce_1 45# happyReduction_126 +happyReduction_126 happy_x_1 + = happyIn52 + (EData + ) + +happyReduce_127 = happySpecReduce_3 45# happyReduction_127 +happyReduction_127 happy_x_3 happy_x_2 happy_x_1 = case happyOut8 happy_x_2 of { happy_var_2 -> @@ -1808,8 +1824,8 @@ happyReduction_125 happy_x_3 (EStrings happy_var_2 )} -happyReduce_126 = happySpecReduce_3 45# happyReduction_126 -happyReduction_126 happy_x_3 +happyReduce_128 = happySpecReduce_3 45# happyReduction_128 +happyReduction_128 happy_x_3 happy_x_2 happy_x_1 = case happyOut51 happy_x_2 of { happy_var_2 -> @@ -1817,8 +1833,8 @@ happyReduction_126 happy_x_3 (ERecord happy_var_2 )} -happyReduce_127 = happySpecReduce_3 45# happyReduction_127 -happyReduction_127 happy_x_3 +happyReduce_129 = happySpecReduce_3 45# happyReduction_129 +happyReduction_129 happy_x_3 happy_x_2 happy_x_1 = case happyOut72 happy_x_2 of { happy_var_2 -> @@ -1826,8 +1842,8 @@ happyReduction_127 happy_x_3 (ETuple happy_var_2 )} -happyReduce_128 = happyReduce 4# 45# happyReduction_128 -happyReduction_128 (happy_x_4 `HappyStk` +happyReduce_130 = happyReduce 4# 45# happyReduction_130 +happyReduction_130 (happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` @@ -1837,8 +1853,8 @@ happyReduction_128 (happy_x_4 `HappyStk` (EIndir happy_var_3 ) `HappyStk` happyRest} -happyReduce_129 = happyReduce 5# 45# happyReduction_129 -happyReduction_129 (happy_x_5 `HappyStk` +happyReduce_131 = happyReduce 5# 45# happyReduction_131 +happyReduction_131 (happy_x_5 `HappyStk` happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` @@ -1850,8 +1866,8 @@ happyReduction_129 (happy_x_5 `HappyStk` (ETyped happy_var_2 happy_var_4 ) `HappyStk` happyRest}} -happyReduce_130 = happySpecReduce_3 45# happyReduction_130 -happyReduction_130 happy_x_3 +happyReduce_132 = happySpecReduce_3 45# happyReduction_132 +happyReduction_132 happy_x_3 happy_x_2 happy_x_1 = case happyOut56 happy_x_2 of { happy_var_2 -> @@ -1859,15 +1875,15 @@ happyReduction_130 happy_x_3 (happy_var_2 )} -happyReduce_131 = happySpecReduce_1 45# happyReduction_131 -happyReduction_131 happy_x_1 +happyReduce_133 = happySpecReduce_1 45# happyReduction_133 +happyReduction_133 happy_x_1 = case happyOut10 happy_x_1 of { happy_var_1 -> happyIn52 (ELString happy_var_1 )} -happyReduce_132 = happySpecReduce_3 46# happyReduction_132 -happyReduction_132 happy_x_3 +happyReduce_134 = happySpecReduce_3 46# happyReduction_134 +happyReduction_134 happy_x_3 happy_x_2 happy_x_1 = case happyOut53 happy_x_1 of { happy_var_1 -> @@ -1876,8 +1892,8 @@ happyReduction_132 happy_x_3 (EProj happy_var_1 happy_var_3 )}} -happyReduce_133 = happyReduce 5# 46# happyReduction_133 -happyReduction_133 (happy_x_5 `HappyStk` +happyReduce_135 = happyReduce 5# 46# happyReduction_135 +happyReduction_135 (happy_x_5 `HappyStk` happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` @@ -1889,8 +1905,8 @@ happyReduction_133 (happy_x_5 `HappyStk` (EQConstr happy_var_2 happy_var_4 ) `HappyStk` happyRest}} -happyReduce_134 = happyReduce 5# 46# happyReduction_134 -happyReduction_134 (happy_x_5 `HappyStk` +happyReduce_136 = happyReduce 5# 46# happyReduction_136 +happyReduction_136 (happy_x_5 `HappyStk` happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` @@ -1902,15 +1918,15 @@ happyReduction_134 (happy_x_5 `HappyStk` (EQCons happy_var_2 happy_var_4 ) `HappyStk` happyRest}} -happyReduce_135 = happySpecReduce_1 46# happyReduction_135 -happyReduction_135 happy_x_1 +happyReduce_137 = happySpecReduce_1 46# happyReduction_137 +happyReduction_137 happy_x_1 = case happyOut52 happy_x_1 of { happy_var_1 -> happyIn53 (happy_var_1 )} -happyReduce_136 = happySpecReduce_2 47# happyReduction_136 -happyReduction_136 happy_x_2 +happyReduce_138 = happySpecReduce_2 47# happyReduction_138 +happyReduction_138 happy_x_2 happy_x_1 = case happyOut54 happy_x_1 of { happy_var_1 -> case happyOut53 happy_x_2 of { happy_var_2 -> @@ -1918,8 +1934,8 @@ happyReduction_136 happy_x_2 (EApp happy_var_1 happy_var_2 )}} -happyReduce_137 = happyReduce 4# 47# happyReduction_137 -happyReduction_137 (happy_x_4 `HappyStk` +happyReduce_139 = happyReduce 4# 47# happyReduction_139 +happyReduction_139 (happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` @@ -1929,8 +1945,8 @@ happyReduction_137 (happy_x_4 `HappyStk` (ETable happy_var_3 ) `HappyStk` happyRest} -happyReduce_138 = happyReduce 5# 47# happyReduction_138 -happyReduction_138 (happy_x_5 `HappyStk` +happyReduce_140 = happyReduce 5# 47# happyReduction_140 +happyReduction_140 (happy_x_5 `HappyStk` happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` @@ -1942,8 +1958,8 @@ happyReduction_138 (happy_x_5 `HappyStk` (ETTable happy_var_2 happy_var_4 ) `HappyStk` happyRest}} -happyReduce_139 = happyReduce 6# 47# happyReduction_139 -happyReduction_139 (happy_x_6 `HappyStk` +happyReduce_141 = happyReduce 6# 47# happyReduction_141 +happyReduction_141 (happy_x_6 `HappyStk` happy_x_5 `HappyStk` happy_x_4 `HappyStk` happy_x_3 `HappyStk` @@ -1956,8 +1972,8 @@ happyReduction_139 (happy_x_6 `HappyStk` (ECase happy_var_2 happy_var_5 ) `HappyStk` happyRest}} -happyReduce_140 = happyReduce 4# 47# happyReduction_140 -happyReduction_140 (happy_x_4 `HappyStk` +happyReduce_142 = happyReduce 4# 47# happyReduction_142 +happyReduction_142 (happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` @@ -1967,8 +1983,8 @@ happyReduction_140 (happy_x_4 `HappyStk` (EVariants happy_var_3 ) `HappyStk` happyRest} -happyReduce_141 = happyReduce 6# 47# happyReduction_141 -happyReduction_141 (happy_x_6 `HappyStk` +happyReduce_143 = happyReduce 6# 47# happyReduction_143 +happyReduction_143 (happy_x_6 `HappyStk` happy_x_5 `HappyStk` happy_x_4 `HappyStk` happy_x_3 `HappyStk` @@ -1981,8 +1997,8 @@ happyReduction_141 (happy_x_6 `HappyStk` (EPre happy_var_3 happy_var_5 ) `HappyStk` happyRest}} -happyReduce_142 = happyReduce 4# 47# happyReduction_142 -happyReduction_142 (happy_x_4 `HappyStk` +happyReduce_144 = happyReduce 4# 47# happyReduction_144 +happyReduction_144 (happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` @@ -1992,8 +2008,8 @@ happyReduction_142 (happy_x_4 `HappyStk` (EStrs happy_var_3 ) `HappyStk` happyRest} -happyReduce_143 = happySpecReduce_3 47# happyReduction_143 -happyReduction_143 happy_x_3 +happyReduce_145 = happySpecReduce_3 47# happyReduction_145 +happyReduction_145 happy_x_3 happy_x_2 happy_x_1 = case happyOut7 happy_x_1 of { happy_var_1 -> @@ -2002,43 +2018,43 @@ happyReduction_143 happy_x_3 (EConAt happy_var_1 happy_var_3 )}} -happyReduce_144 = happySpecReduce_1 47# happyReduction_144 -happyReduction_144 happy_x_1 +happyReduce_146 = happySpecReduce_1 47# happyReduction_146 +happyReduction_146 happy_x_1 = case happyOut53 happy_x_1 of { happy_var_1 -> happyIn54 (happy_var_1 )} -happyReduce_145 = happySpecReduce_2 47# happyReduction_145 -happyReduction_145 happy_x_2 +happyReduce_147 = happySpecReduce_2 47# happyReduction_147 +happyReduction_147 happy_x_2 happy_x_1 = case happyOut7 happy_x_2 of { happy_var_2 -> happyIn54 (ELin happy_var_2 )} -happyReduce_146 = happySpecReduce_3 48# happyReduction_146 -happyReduction_146 happy_x_3 - happy_x_2 - happy_x_1 - = case happyOut55 happy_x_1 of { happy_var_1 -> - case happyOut54 happy_x_3 of { happy_var_3 -> - happyIn55 - (ESelect happy_var_1 happy_var_3 - )}} - -happyReduce_147 = happySpecReduce_3 48# happyReduction_147 -happyReduction_147 happy_x_3 - happy_x_2 - happy_x_1 - = case happyOut55 happy_x_1 of { happy_var_1 -> - case happyOut54 happy_x_3 of { happy_var_3 -> - happyIn55 - (ETupTyp happy_var_1 happy_var_3 - )}} - happyReduce_148 = happySpecReduce_3 48# happyReduction_148 happyReduction_148 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut55 happy_x_1 of { happy_var_1 -> + case happyOut54 happy_x_3 of { happy_var_3 -> + happyIn55 + (ESelect happy_var_1 happy_var_3 + )}} + +happyReduce_149 = happySpecReduce_3 48# happyReduction_149 +happyReduction_149 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut55 happy_x_1 of { happy_var_1 -> + case happyOut54 happy_x_3 of { happy_var_3 -> + happyIn55 + (ETupTyp happy_var_1 happy_var_3 + )}} + +happyReduce_150 = happySpecReduce_3 48# happyReduction_150 +happyReduction_150 happy_x_3 happy_x_2 happy_x_1 = case happyOut55 happy_x_1 of { happy_var_1 -> @@ -2047,15 +2063,15 @@ happyReduction_148 happy_x_3 (EExtend happy_var_1 happy_var_3 )}} -happyReduce_149 = happySpecReduce_1 48# happyReduction_149 -happyReduction_149 happy_x_1 +happyReduce_151 = happySpecReduce_1 48# happyReduction_151 +happyReduction_151 happy_x_1 = case happyOut54 happy_x_1 of { happy_var_1 -> happyIn55 (happy_var_1 )} -happyReduce_150 = happyReduce 4# 49# happyReduction_150 -happyReduction_150 (happy_x_4 `HappyStk` +happyReduce_152 = happyReduce 4# 49# happyReduction_152 +happyReduction_152 (happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` @@ -2066,8 +2082,8 @@ happyReduction_150 (happy_x_4 `HappyStk` (EAbstr happy_var_2 happy_var_4 ) `HappyStk` happyRest}} -happyReduce_151 = happyReduce 5# 49# happyReduction_151 -happyReduction_151 (happy_x_5 `HappyStk` +happyReduce_153 = happyReduce 5# 49# happyReduction_153 +happyReduction_153 (happy_x_5 `HappyStk` happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` @@ -2079,8 +2095,8 @@ happyReduction_151 (happy_x_5 `HappyStk` (ECTable happy_var_3 happy_var_5 ) `HappyStk` happyRest}} -happyReduce_152 = happySpecReduce_3 49# happyReduction_152 -happyReduction_152 happy_x_3 +happyReduce_154 = happySpecReduce_3 49# happyReduction_154 +happyReduction_154 happy_x_3 happy_x_2 happy_x_1 = case happyOut69 happy_x_1 of { happy_var_1 -> @@ -2089,28 +2105,28 @@ happyReduction_152 happy_x_3 (EProd happy_var_1 happy_var_3 )}} -happyReduce_153 = happySpecReduce_3 49# happyReduction_153 -happyReduction_153 happy_x_3 - happy_x_2 - happy_x_1 - = case happyOut55 happy_x_1 of { happy_var_1 -> - case happyOut56 happy_x_3 of { happy_var_3 -> - happyIn56 - (ETType happy_var_1 happy_var_3 - )}} - -happyReduce_154 = happySpecReduce_3 49# happyReduction_154 -happyReduction_154 happy_x_3 - happy_x_2 - happy_x_1 - = case happyOut55 happy_x_1 of { happy_var_1 -> - case happyOut56 happy_x_3 of { happy_var_3 -> - happyIn56 - (EConcat happy_var_1 happy_var_3 - )}} - happyReduce_155 = happySpecReduce_3 49# happyReduction_155 happyReduction_155 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut55 happy_x_1 of { happy_var_1 -> + case happyOut56 happy_x_3 of { happy_var_3 -> + happyIn56 + (ETType happy_var_1 happy_var_3 + )}} + +happyReduce_156 = happySpecReduce_3 49# happyReduction_156 +happyReduction_156 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut55 happy_x_1 of { happy_var_1 -> + case happyOut56 happy_x_3 of { happy_var_3 -> + happyIn56 + (EConcat happy_var_1 happy_var_3 + )}} + +happyReduce_157 = happySpecReduce_3 49# happyReduction_157 +happyReduction_157 happy_x_3 happy_x_2 happy_x_1 = case happyOut55 happy_x_1 of { happy_var_1 -> @@ -2119,8 +2135,8 @@ happyReduction_155 happy_x_3 (EGlue happy_var_1 happy_var_3 )}} -happyReduce_156 = happyReduce 6# 49# happyReduction_156 -happyReduction_156 (happy_x_6 `HappyStk` +happyReduce_158 = happyReduce 6# 49# happyReduction_158 +happyReduction_158 (happy_x_6 `HappyStk` happy_x_5 `HappyStk` happy_x_4 `HappyStk` happy_x_3 `HappyStk` @@ -2133,8 +2149,8 @@ happyReduction_156 (happy_x_6 `HappyStk` (ELet happy_var_3 happy_var_6 ) `HappyStk` happyRest}} -happyReduce_157 = happyReduce 4# 49# happyReduction_157 -happyReduction_157 (happy_x_4 `HappyStk` +happyReduce_159 = happyReduce 4# 49# happyReduction_159 +happyReduction_159 (happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` @@ -2145,8 +2161,8 @@ happyReduction_157 (happy_x_4 `HappyStk` (ELetb happy_var_2 happy_var_4 ) `HappyStk` happyRest}} -happyReduce_158 = happyReduce 5# 49# happyReduction_158 -happyReduction_158 (happy_x_5 `HappyStk` +happyReduce_160 = happyReduce 5# 49# happyReduction_160 +happyReduction_160 (happy_x_5 `HappyStk` happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` @@ -2158,8 +2174,8 @@ happyReduction_158 (happy_x_5 `HappyStk` (EWhere happy_var_1 happy_var_4 ) `HappyStk` happyRest}} -happyReduce_159 = happyReduce 4# 49# happyReduction_159 -happyReduction_159 (happy_x_4 `HappyStk` +happyReduce_161 = happyReduce 4# 49# happyReduction_161 +happyReduction_161 (happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` @@ -2169,27 +2185,27 @@ happyReduction_159 (happy_x_4 `HappyStk` (EEqs happy_var_3 ) `HappyStk` happyRest} -happyReduce_160 = happySpecReduce_1 49# happyReduction_160 -happyReduction_160 happy_x_1 +happyReduce_162 = happySpecReduce_1 49# happyReduction_162 +happyReduction_162 happy_x_1 = case happyOut55 happy_x_1 of { happy_var_1 -> happyIn56 (happy_var_1 )} -happyReduce_161 = happySpecReduce_0 50# happyReduction_161 -happyReduction_161 = happyIn57 +happyReduce_163 = happySpecReduce_0 50# happyReduction_163 +happyReduction_163 = happyIn57 ([] ) -happyReduce_162 = happySpecReduce_1 50# happyReduction_162 -happyReduction_162 happy_x_1 +happyReduce_164 = happySpecReduce_1 50# happyReduction_164 +happyReduction_164 happy_x_1 = case happyOut56 happy_x_1 of { happy_var_1 -> happyIn57 ((:[]) happy_var_1 )} -happyReduce_163 = happySpecReduce_3 50# happyReduction_163 -happyReduction_163 happy_x_3 +happyReduce_165 = happySpecReduce_3 50# happyReduction_165 +happyReduction_165 happy_x_3 happy_x_2 happy_x_1 = case happyOut56 happy_x_1 of { happy_var_1 -> @@ -2198,21 +2214,21 @@ happyReduction_163 happy_x_3 ((:) happy_var_1 happy_var_3 )}} -happyReduce_164 = happySpecReduce_1 51# happyReduction_164 -happyReduction_164 happy_x_1 +happyReduce_166 = happySpecReduce_1 51# happyReduction_166 +happyReduction_166 happy_x_1 = happyIn58 (PW ) -happyReduce_165 = happySpecReduce_1 51# happyReduction_165 -happyReduction_165 happy_x_1 +happyReduce_167 = happySpecReduce_1 51# happyReduction_167 +happyReduction_167 happy_x_1 = case happyOut7 happy_x_1 of { happy_var_1 -> happyIn58 (PV happy_var_1 )} -happyReduce_166 = happySpecReduce_3 51# happyReduction_166 -happyReduction_166 happy_x_3 +happyReduce_168 = happySpecReduce_3 51# happyReduction_168 +happyReduction_168 happy_x_3 happy_x_2 happy_x_1 = case happyOut7 happy_x_2 of { happy_var_2 -> @@ -2220,8 +2236,8 @@ happyReduction_166 happy_x_3 (PCon happy_var_2 )} -happyReduce_167 = happySpecReduce_3 51# happyReduction_167 -happyReduction_167 happy_x_3 +happyReduce_169 = happySpecReduce_3 51# happyReduction_169 +happyReduction_169 happy_x_3 happy_x_2 happy_x_1 = case happyOut7 happy_x_1 of { happy_var_1 -> @@ -2230,22 +2246,22 @@ happyReduction_167 happy_x_3 (PQ happy_var_1 happy_var_3 )}} -happyReduce_168 = happySpecReduce_1 51# happyReduction_168 -happyReduction_168 happy_x_1 +happyReduce_170 = happySpecReduce_1 51# happyReduction_170 +happyReduction_170 happy_x_1 = case happyOut9 happy_x_1 of { happy_var_1 -> happyIn58 (PInt happy_var_1 )} -happyReduce_169 = happySpecReduce_1 51# happyReduction_169 -happyReduction_169 happy_x_1 +happyReduce_171 = happySpecReduce_1 51# happyReduction_171 +happyReduction_171 happy_x_1 = case happyOut8 happy_x_1 of { happy_var_1 -> happyIn58 (PStr happy_var_1 )} -happyReduce_170 = happySpecReduce_3 51# happyReduction_170 -happyReduction_170 happy_x_3 +happyReduce_172 = happySpecReduce_3 51# happyReduction_172 +happyReduction_172 happy_x_3 happy_x_2 happy_x_1 = case happyOut63 happy_x_2 of { happy_var_2 -> @@ -2253,8 +2269,8 @@ happyReduction_170 happy_x_3 (PR happy_var_2 )} -happyReduce_171 = happySpecReduce_3 51# happyReduction_171 -happyReduction_171 happy_x_3 +happyReduce_173 = happySpecReduce_3 51# happyReduction_173 +happyReduction_173 happy_x_3 happy_x_2 happy_x_1 = case happyOut73 happy_x_2 of { happy_var_2 -> @@ -2262,8 +2278,8 @@ happyReduction_171 happy_x_3 (PTup happy_var_2 )} -happyReduce_172 = happySpecReduce_3 51# happyReduction_172 -happyReduction_172 happy_x_3 +happyReduce_174 = happySpecReduce_3 51# happyReduction_174 +happyReduction_174 happy_x_3 happy_x_2 happy_x_1 = case happyOut59 happy_x_2 of { happy_var_2 -> @@ -2271,8 +2287,8 @@ happyReduction_172 happy_x_3 (happy_var_2 )} -happyReduce_173 = happySpecReduce_2 52# happyReduction_173 -happyReduction_173 happy_x_2 +happyReduce_175 = happySpecReduce_2 52# happyReduction_175 +happyReduction_175 happy_x_2 happy_x_1 = case happyOut7 happy_x_1 of { happy_var_1 -> case happyOut65 happy_x_2 of { happy_var_2 -> @@ -2280,8 +2296,8 @@ happyReduction_173 happy_x_2 (PC happy_var_1 happy_var_2 )}} -happyReduce_174 = happyReduce 4# 52# happyReduction_174 -happyReduction_174 (happy_x_4 `HappyStk` +happyReduce_176 = happyReduce 4# 52# happyReduction_176 +happyReduction_176 (happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` @@ -2293,15 +2309,15 @@ happyReduction_174 (happy_x_4 `HappyStk` (PQC happy_var_1 happy_var_3 happy_var_4 ) `HappyStk` happyRest}}} -happyReduce_175 = happySpecReduce_1 52# happyReduction_175 -happyReduction_175 happy_x_1 +happyReduce_177 = happySpecReduce_1 52# happyReduction_177 +happyReduction_177 happy_x_1 = case happyOut58 happy_x_1 of { happy_var_1 -> happyIn59 (happy_var_1 )} -happyReduce_176 = happySpecReduce_3 53# happyReduction_176 -happyReduction_176 happy_x_3 +happyReduce_178 = happySpecReduce_3 53# happyReduction_178 +happyReduction_178 happy_x_3 happy_x_2 happy_x_1 = case happyOut49 happy_x_1 of { happy_var_1 -> @@ -2310,65 +2326,65 @@ happyReduction_176 happy_x_3 (PA happy_var_1 happy_var_3 )}} -happyReduce_177 = happySpecReduce_1 54# happyReduction_177 -happyReduction_177 happy_x_1 +happyReduce_179 = happySpecReduce_1 54# happyReduction_179 +happyReduction_179 happy_x_1 = case happyOut7 happy_x_1 of { happy_var_1 -> happyIn61 (LIdent happy_var_1 )} -happyReduce_178 = happySpecReduce_2 54# happyReduction_178 -happyReduction_178 happy_x_2 +happyReduce_180 = happySpecReduce_2 54# happyReduction_180 +happyReduction_180 happy_x_2 happy_x_1 = case happyOut9 happy_x_2 of { happy_var_2 -> happyIn61 (LVar happy_var_2 )} -happyReduce_179 = happySpecReduce_1 55# happyReduction_179 -happyReduction_179 happy_x_1 - = happyIn62 - (Sort_Type - ) - -happyReduce_180 = happySpecReduce_1 55# happyReduction_180 -happyReduction_180 happy_x_1 - = happyIn62 - (Sort_PType - ) - happyReduce_181 = happySpecReduce_1 55# happyReduction_181 happyReduction_181 happy_x_1 = happyIn62 - (Sort_Tok + (Sort_Type ) happyReduce_182 = happySpecReduce_1 55# happyReduction_182 happyReduction_182 happy_x_1 = happyIn62 - (Sort_Str + (Sort_PType ) happyReduce_183 = happySpecReduce_1 55# happyReduction_183 happyReduction_183 happy_x_1 + = happyIn62 + (Sort_Tok + ) + +happyReduce_184 = happySpecReduce_1 55# happyReduction_184 +happyReduction_184 happy_x_1 + = happyIn62 + (Sort_Str + ) + +happyReduce_185 = happySpecReduce_1 55# happyReduction_185 +happyReduction_185 happy_x_1 = happyIn62 (Sort_Strs ) -happyReduce_184 = happySpecReduce_0 56# happyReduction_184 -happyReduction_184 = happyIn63 +happyReduce_186 = happySpecReduce_0 56# happyReduction_186 +happyReduction_186 = happyIn63 ([] ) -happyReduce_185 = happySpecReduce_1 56# happyReduction_185 -happyReduction_185 happy_x_1 +happyReduce_187 = happySpecReduce_1 56# happyReduction_187 +happyReduction_187 happy_x_1 = case happyOut60 happy_x_1 of { happy_var_1 -> happyIn63 ((:[]) happy_var_1 )} -happyReduce_186 = happySpecReduce_3 56# happyReduction_186 -happyReduction_186 happy_x_3 +happyReduce_188 = happySpecReduce_3 56# happyReduction_188 +happyReduction_188 happy_x_3 happy_x_2 happy_x_1 = case happyOut60 happy_x_1 of { happy_var_1 -> @@ -2377,22 +2393,22 @@ happyReduction_186 happy_x_3 ((:) happy_var_1 happy_var_3 )}} -happyReduce_187 = happySpecReduce_1 57# happyReduction_187 -happyReduction_187 happy_x_1 +happyReduce_189 = happySpecReduce_1 57# happyReduction_189 +happyReduction_189 happy_x_1 = case happyOut59 happy_x_1 of { happy_var_1 -> happyIn64 (AltP happy_var_1 )} -happyReduce_188 = happySpecReduce_1 58# happyReduction_188 -happyReduction_188 happy_x_1 +happyReduce_190 = happySpecReduce_1 58# happyReduction_190 +happyReduction_190 happy_x_1 = case happyOut58 happy_x_1 of { happy_var_1 -> happyIn65 ((:[]) happy_var_1 )} -happyReduce_189 = happySpecReduce_2 58# happyReduction_189 -happyReduction_189 happy_x_2 +happyReduce_191 = happySpecReduce_2 58# happyReduction_191 +happyReduction_191 happy_x_2 happy_x_1 = case happyOut58 happy_x_1 of { happy_var_1 -> case happyOut65 happy_x_2 of { happy_var_2 -> @@ -2400,15 +2416,15 @@ happyReduction_189 happy_x_2 ((:) happy_var_1 happy_var_2 )}} -happyReduce_190 = happySpecReduce_1 59# happyReduction_190 -happyReduction_190 happy_x_1 +happyReduce_192 = happySpecReduce_1 59# happyReduction_192 +happyReduction_192 happy_x_1 = case happyOut64 happy_x_1 of { happy_var_1 -> happyIn66 ((:[]) happy_var_1 )} -happyReduce_191 = happySpecReduce_3 59# happyReduction_191 -happyReduction_191 happy_x_3 +happyReduce_193 = happySpecReduce_3 59# happyReduction_193 +happyReduction_193 happy_x_3 happy_x_2 happy_x_1 = case happyOut64 happy_x_1 of { happy_var_1 -> @@ -2417,33 +2433,33 @@ happyReduction_191 happy_x_3 ((:) happy_var_1 happy_var_3 )}} -happyReduce_192 = happySpecReduce_1 60# happyReduction_192 -happyReduction_192 happy_x_1 +happyReduce_194 = happySpecReduce_1 60# happyReduction_194 +happyReduction_194 happy_x_1 = case happyOut7 happy_x_1 of { happy_var_1 -> happyIn67 (BIdent happy_var_1 )} -happyReduce_193 = happySpecReduce_1 60# happyReduction_193 -happyReduction_193 happy_x_1 +happyReduce_195 = happySpecReduce_1 60# happyReduction_195 +happyReduction_195 happy_x_1 = happyIn67 (BWild ) -happyReduce_194 = happySpecReduce_0 61# happyReduction_194 -happyReduction_194 = happyIn68 +happyReduce_196 = happySpecReduce_0 61# happyReduction_196 +happyReduction_196 = happyIn68 ([] ) -happyReduce_195 = happySpecReduce_1 61# happyReduction_195 -happyReduction_195 happy_x_1 +happyReduce_197 = happySpecReduce_1 61# happyReduction_197 +happyReduction_197 happy_x_1 = case happyOut67 happy_x_1 of { happy_var_1 -> happyIn68 ((:[]) happy_var_1 )} -happyReduce_196 = happySpecReduce_3 61# happyReduction_196 -happyReduction_196 happy_x_3 +happyReduce_198 = happySpecReduce_3 61# happyReduction_198 +happyReduction_198 happy_x_3 happy_x_2 happy_x_1 = case happyOut67 happy_x_1 of { happy_var_1 -> @@ -2452,8 +2468,8 @@ happyReduction_196 happy_x_3 ((:) happy_var_1 happy_var_3 )}} -happyReduce_197 = happyReduce 5# 62# happyReduction_197 -happyReduction_197 (happy_x_5 `HappyStk` +happyReduce_199 = happyReduce 5# 62# happyReduction_199 +happyReduction_199 (happy_x_5 `HappyStk` happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` @@ -2465,41 +2481,41 @@ happyReduction_197 (happy_x_5 `HappyStk` (DDec happy_var_2 happy_var_4 ) `HappyStk` happyRest}} -happyReduce_198 = happySpecReduce_1 62# happyReduction_198 -happyReduction_198 happy_x_1 +happyReduce_200 = happySpecReduce_1 62# happyReduction_200 +happyReduction_200 happy_x_1 = case happyOut54 happy_x_1 of { happy_var_1 -> happyIn69 (DExp happy_var_1 )} -happyReduce_199 = happySpecReduce_1 63# happyReduction_199 -happyReduction_199 happy_x_1 +happyReduce_201 = happySpecReduce_1 63# happyReduction_201 +happyReduction_201 happy_x_1 = case happyOut56 happy_x_1 of { happy_var_1 -> happyIn70 (TComp happy_var_1 )} -happyReduce_200 = happySpecReduce_1 64# happyReduction_200 -happyReduction_200 happy_x_1 +happyReduce_202 = happySpecReduce_1 64# happyReduction_202 +happyReduction_202 happy_x_1 = case happyOut59 happy_x_1 of { happy_var_1 -> happyIn71 (PTComp happy_var_1 )} -happyReduce_201 = happySpecReduce_0 65# happyReduction_201 -happyReduction_201 = happyIn72 +happyReduce_203 = happySpecReduce_0 65# happyReduction_203 +happyReduction_203 = happyIn72 ([] ) -happyReduce_202 = happySpecReduce_1 65# happyReduction_202 -happyReduction_202 happy_x_1 +happyReduce_204 = happySpecReduce_1 65# happyReduction_204 +happyReduction_204 happy_x_1 = case happyOut70 happy_x_1 of { happy_var_1 -> happyIn72 ((:[]) happy_var_1 )} -happyReduce_203 = happySpecReduce_3 65# happyReduction_203 -happyReduction_203 happy_x_3 +happyReduce_205 = happySpecReduce_3 65# happyReduction_205 +happyReduction_205 happy_x_3 happy_x_2 happy_x_1 = case happyOut70 happy_x_1 of { happy_var_1 -> @@ -2508,20 +2524,20 @@ happyReduction_203 happy_x_3 ((:) happy_var_1 happy_var_3 )}} -happyReduce_204 = happySpecReduce_0 66# happyReduction_204 -happyReduction_204 = happyIn73 +happyReduce_206 = happySpecReduce_0 66# happyReduction_206 +happyReduction_206 = happyIn73 ([] ) -happyReduce_205 = happySpecReduce_1 66# happyReduction_205 -happyReduction_205 happy_x_1 +happyReduce_207 = happySpecReduce_1 66# happyReduction_207 +happyReduction_207 happy_x_1 = case happyOut71 happy_x_1 of { happy_var_1 -> happyIn73 ((:[]) happy_var_1 )} -happyReduce_206 = happySpecReduce_3 66# happyReduction_206 -happyReduction_206 happy_x_3 +happyReduce_208 = happySpecReduce_3 66# happyReduction_208 +happyReduction_208 happy_x_3 happy_x_2 happy_x_1 = case happyOut71 happy_x_1 of { happy_var_1 -> @@ -2530,8 +2546,8 @@ happyReduction_206 happy_x_3 ((:) happy_var_1 happy_var_3 )}} -happyReduce_207 = happySpecReduce_3 67# happyReduction_207 -happyReduction_207 happy_x_3 +happyReduce_209 = happySpecReduce_3 67# happyReduction_209 +happyReduction_209 happy_x_3 happy_x_2 happy_x_1 = case happyOut66 happy_x_1 of { happy_var_1 -> @@ -2540,15 +2556,15 @@ happyReduction_207 happy_x_3 (Case happy_var_1 happy_var_3 )}} -happyReduce_208 = happySpecReduce_1 68# happyReduction_208 -happyReduction_208 happy_x_1 +happyReduce_210 = happySpecReduce_1 68# happyReduction_210 +happyReduction_210 happy_x_1 = case happyOut74 happy_x_1 of { happy_var_1 -> happyIn75 ((:[]) happy_var_1 )} -happyReduce_209 = happySpecReduce_3 68# happyReduction_209 -happyReduction_209 happy_x_3 +happyReduce_211 = happySpecReduce_3 68# happyReduction_211 +happyReduction_211 happy_x_3 happy_x_2 happy_x_1 = case happyOut74 happy_x_1 of { happy_var_1 -> @@ -2557,8 +2573,8 @@ happyReduction_209 happy_x_3 ((:) happy_var_1 happy_var_3 )}} -happyReduce_210 = happySpecReduce_3 69# happyReduction_210 -happyReduction_210 happy_x_3 +happyReduce_212 = happySpecReduce_3 69# happyReduction_212 +happyReduction_212 happy_x_3 happy_x_2 happy_x_1 = case happyOut65 happy_x_1 of { happy_var_1 -> @@ -2567,20 +2583,20 @@ happyReduction_210 happy_x_3 (Equ happy_var_1 happy_var_3 )}} -happyReduce_211 = happySpecReduce_0 70# happyReduction_211 -happyReduction_211 = happyIn77 +happyReduce_213 = happySpecReduce_0 70# happyReduction_213 +happyReduction_213 = happyIn77 ([] ) -happyReduce_212 = happySpecReduce_1 70# happyReduction_212 -happyReduction_212 happy_x_1 +happyReduce_214 = happySpecReduce_1 70# happyReduction_214 +happyReduction_214 happy_x_1 = case happyOut76 happy_x_1 of { happy_var_1 -> happyIn77 ((:[]) happy_var_1 )} -happyReduce_213 = happySpecReduce_3 70# happyReduction_213 -happyReduction_213 happy_x_3 +happyReduce_215 = happySpecReduce_3 70# happyReduction_215 +happyReduction_215 happy_x_3 happy_x_2 happy_x_1 = case happyOut76 happy_x_1 of { happy_var_1 -> @@ -2589,8 +2605,8 @@ happyReduction_213 happy_x_3 ((:) happy_var_1 happy_var_3 )}} -happyReduce_214 = happySpecReduce_3 71# happyReduction_214 -happyReduction_214 happy_x_3 +happyReduce_216 = happySpecReduce_3 71# happyReduction_216 +happyReduction_216 happy_x_3 happy_x_2 happy_x_1 = case happyOut56 happy_x_1 of { happy_var_1 -> @@ -2599,20 +2615,20 @@ happyReduction_214 happy_x_3 (Alt happy_var_1 happy_var_3 )}} -happyReduce_215 = happySpecReduce_0 72# happyReduction_215 -happyReduction_215 = happyIn79 +happyReduce_217 = happySpecReduce_0 72# happyReduction_217 +happyReduction_217 = happyIn79 ([] ) -happyReduce_216 = happySpecReduce_1 72# happyReduction_216 -happyReduction_216 happy_x_1 +happyReduce_218 = happySpecReduce_1 72# happyReduction_218 +happyReduction_218 happy_x_1 = case happyOut78 happy_x_1 of { happy_var_1 -> happyIn79 ((:[]) happy_var_1 )} -happyReduce_217 = happySpecReduce_3 72# happyReduction_217 -happyReduction_217 happy_x_3 +happyReduce_219 = happySpecReduce_3 72# happyReduction_219 +happyReduction_219 happy_x_3 happy_x_2 happy_x_1 = case happyOut78 happy_x_1 of { happy_var_1 -> @@ -2621,8 +2637,8 @@ happyReduction_217 happy_x_3 ((:) happy_var_1 happy_var_3 )}} -happyReduce_218 = happyReduce 5# 73# happyReduction_218 -happyReduction_218 (happy_x_5 `HappyStk` +happyReduce_220 = happyReduce 5# 73# happyReduction_220 +happyReduction_220 (happy_x_5 `HappyStk` happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` @@ -2634,20 +2650,20 @@ happyReduction_218 (happy_x_5 `HappyStk` (DDDec happy_var_2 happy_var_4 ) `HappyStk` happyRest}} -happyReduce_219 = happySpecReduce_1 73# happyReduction_219 -happyReduction_219 happy_x_1 +happyReduce_221 = happySpecReduce_1 73# happyReduction_221 +happyReduction_221 happy_x_1 = case happyOut52 happy_x_1 of { happy_var_1 -> happyIn80 (DDExp happy_var_1 )} -happyReduce_220 = happySpecReduce_0 74# happyReduction_220 -happyReduction_220 = happyIn81 +happyReduce_222 = happySpecReduce_0 74# happyReduction_222 +happyReduction_222 = happyIn81 ([] ) -happyReduce_221 = happySpecReduce_2 74# happyReduction_221 -happyReduction_221 happy_x_2 +happyReduce_223 = happySpecReduce_2 74# happyReduction_223 +happyReduction_223 happy_x_2 happy_x_1 = case happyOut81 happy_x_1 of { happy_var_1 -> case happyOut80 happy_x_2 of { happy_var_2 -> @@ -2655,8 +2671,8 @@ happyReduction_221 happy_x_2 (flip (:) happy_var_1 happy_var_2 )}} -happyReduce_222 = happySpecReduce_2 75# happyReduction_222 -happyReduction_222 happy_x_2 +happyReduce_224 = happySpecReduce_2 75# happyReduction_224 +happyReduction_224 happy_x_2 happy_x_1 = case happyOut83 happy_x_1 of { happy_var_1 -> case happyOut21 happy_x_2 of { happy_var_2 -> @@ -2664,59 +2680,59 @@ happyReduction_222 happy_x_2 (OldGr happy_var_1 (reverse happy_var_2) )}} -happyReduce_223 = happySpecReduce_0 76# happyReduction_223 -happyReduction_223 = happyIn83 +happyReduce_225 = happySpecReduce_0 76# happyReduction_225 +happyReduction_225 = happyIn83 (NoIncl ) -happyReduce_224 = happySpecReduce_2 76# happyReduction_224 -happyReduction_224 happy_x_2 +happyReduce_226 = happySpecReduce_2 76# happyReduction_226 +happyReduction_226 happy_x_2 happy_x_1 = case happyOut85 happy_x_2 of { happy_var_2 -> happyIn83 (Incl happy_var_2 )} -happyReduce_225 = happySpecReduce_1 77# happyReduction_225 -happyReduction_225 happy_x_1 +happyReduce_227 = happySpecReduce_1 77# happyReduction_227 +happyReduction_227 happy_x_1 = case happyOut8 happy_x_1 of { happy_var_1 -> happyIn84 (FString happy_var_1 )} -happyReduce_226 = happySpecReduce_1 77# happyReduction_226 -happyReduction_226 happy_x_1 +happyReduce_228 = happySpecReduce_1 77# happyReduction_228 +happyReduction_228 happy_x_1 = case happyOut7 happy_x_1 of { happy_var_1 -> happyIn84 (FIdent happy_var_1 )} -happyReduce_227 = happySpecReduce_2 77# happyReduction_227 -happyReduction_227 happy_x_2 - happy_x_1 - = case happyOut84 happy_x_2 of { happy_var_2 -> - happyIn84 - (FSlash happy_var_2 - )} - -happyReduce_228 = happySpecReduce_2 77# happyReduction_228 -happyReduction_228 happy_x_2 - happy_x_1 - = case happyOut84 happy_x_2 of { happy_var_2 -> - happyIn84 - (FDot happy_var_2 - )} - happyReduce_229 = happySpecReduce_2 77# happyReduction_229 happyReduction_229 happy_x_2 happy_x_1 = case happyOut84 happy_x_2 of { happy_var_2 -> happyIn84 - (FMinus happy_var_2 + (FSlash happy_var_2 )} happyReduce_230 = happySpecReduce_2 77# happyReduction_230 happyReduction_230 happy_x_2 + happy_x_1 + = case happyOut84 happy_x_2 of { happy_var_2 -> + happyIn84 + (FDot happy_var_2 + )} + +happyReduce_231 = happySpecReduce_2 77# happyReduction_231 +happyReduction_231 happy_x_2 + happy_x_1 + = case happyOut84 happy_x_2 of { happy_var_2 -> + happyIn84 + (FMinus happy_var_2 + )} + +happyReduce_232 = happySpecReduce_2 77# happyReduction_232 +happyReduction_232 happy_x_2 happy_x_1 = case happyOut7 happy_x_1 of { happy_var_1 -> case happyOut84 happy_x_2 of { happy_var_2 -> @@ -2724,16 +2740,16 @@ happyReduction_230 happy_x_2 (FAddId happy_var_1 happy_var_2 )}} -happyReduce_231 = happySpecReduce_2 78# happyReduction_231 -happyReduction_231 happy_x_2 +happyReduce_233 = happySpecReduce_2 78# happyReduction_233 +happyReduction_233 happy_x_2 happy_x_1 = case happyOut84 happy_x_1 of { happy_var_1 -> happyIn85 ((:[]) happy_var_1 )} -happyReduce_232 = happySpecReduce_3 78# happyReduction_232 -happyReduction_232 happy_x_3 +happyReduce_234 = happySpecReduce_3 78# happyReduction_234 +happyReduction_234 happy_x_3 happy_x_2 happy_x_1 = case happyOut84 happy_x_1 of { happy_var_1 -> @@ -2859,7 +2875,7 @@ happyError ts = myLexer = tokens {-# LINE 1 "GenericTemplate.hs" #-} --- $Id: ParGF.hs,v 1.3 2004/06/24 15:06:10 aarne Exp $ +-- $Id: ParGF.hs,v 1.4 2004/09/14 18:05:47 aarne Exp $ diff --git a/src/GF/Source/PrintGF.hs b/src/GF/Source/PrintGF.hs index 88b20308e..ce8ac22cc 100644 --- a/src/GF/Source/PrintGF.hs +++ b/src/GF/Source/PrintGF.hs @@ -150,7 +150,7 @@ instance Print ModBody where instance Print Extend where prt i e = case e of - Ext id -> prPrec i 0 (concatD [prt 0 id , doc (showString "**")]) + Ext ids -> prPrec i 0 (concatD [prt 0 ids , doc (showString "**")]) NoExt -> prPrec i 0 (concatD []) @@ -209,6 +209,7 @@ instance Print TopDef where prt i e = case e of DefCat catdefs -> prPrec i 0 (concatD [doc (showString "cat") , prt 0 catdefs]) DefFun fundefs -> prPrec i 0 (concatD [doc (showString "fun") , prt 0 fundefs]) + DefFunData fundefs -> prPrec i 0 (concatD [doc (showString "data") , prt 0 fundefs]) DefDef defs -> prPrec i 0 (concatD [doc (showString "def") , prt 0 defs]) DefData datadefs -> prPrec i 0 (concatD [doc (showString "data") , prt 0 datadefs]) DefTrans defs -> prPrec i 0 (concatD [doc (showString "transfer") , prt 0 defs]) @@ -321,6 +322,7 @@ instance Print Exp where EInt n -> prPrec i 4 (concatD [prt 0 n]) EMeta -> prPrec i 4 (concatD [doc (showString "?")]) EEmpty -> prPrec i 4 (concatD [doc (showString "[") , doc (showString "]")]) + EData -> prPrec i 4 (concatD [doc (showString "data")]) EStrings str -> prPrec i 4 (concatD [doc (showString "[") , prt 0 str , doc (showString "]")]) ERecord locdefs -> prPrec i 4 (concatD [doc (showString "{") , prt 0 locdefs , doc (showString "}")]) ETuple tuplecomps -> prPrec i 4 (concatD [doc (showString "<") , prt 0 tuplecomps , doc (showString ">")]) diff --git a/src/GF/Source/SkelGF.hs b/src/GF/Source/SkelGF.hs index 93eac6922..544473533 100644 --- a/src/GF/Source/SkelGF.hs +++ b/src/GF/Source/SkelGF.hs @@ -66,7 +66,7 @@ transModBody x = case x of transExtend :: Extend -> Result transExtend x = case x of - Ext id -> failure x + Ext ids -> failure x NoExt -> failure x @@ -114,6 +114,7 @@ transTopDef :: TopDef -> Result transTopDef x = case x of DefCat catdefs -> failure x DefFun fundefs -> failure x + DefFunData fundefs -> failure x DefDef defs -> failure x DefData datadefs -> failure x DefTrans defs -> failure x @@ -193,6 +194,7 @@ transExp x = case x of EInt n -> failure x EMeta -> failure x EEmpty -> failure x + EData -> failure x EStrings str -> failure x ERecord locdefs -> failure x ETuple tuplecomps -> failure x diff --git a/src/GF/Source/SourceToGrammar.hs b/src/GF/Source/SourceToGrammar.hs index 33e8f9356..31e917469 100644 --- a/src/GF/Source/SourceToGrammar.hs +++ b/src/GF/Source/SourceToGrammar.hs @@ -139,7 +139,8 @@ transTransfer x = case x of transExtend :: Extend -> Err (Maybe Ident) transExtend x = case x of - Ext id -> transIdent id >>= return . Just + Ext [id] -> transIdent id >>= return . Just + Ext ids -> Bad "sorry, no support for multiple inheritance yet" NoExt -> return Nothing transOpens :: Opens -> Err [GM.OpenSpec Ident] @@ -173,6 +174,9 @@ transAbsDef x = case x of DefFun fundefs -> do fundefs' <- mapM transFunDef fundefs returnl [(fun, G.AbsFun (yes typ) nope) | (funs,typ) <- fundefs', fun <- funs] + DefFunData fundefs -> do + fundefs' <- mapM transFunDef fundefs + returnl [(fun, G.AbsFun (yes typ) (yes G.EData)) | (funs,typ) <- fundefs', fun <- funs] DefDef defs -> do defs' <- liftM concat $ mapM getDefsGen defs returnl [(c, G.AbsFun nope pe) | (c,(_,pe)) <- defs'] diff --git a/src/GF/Source/TestGF.hs b/src/GF/Source/TestGF.hs index b236f1347..d6c026487 100644 --- a/src/GF/Source/TestGF.hs +++ b/src/GF/Source/TestGF.hs @@ -11,6 +11,7 @@ import SkelGF import PrintGF import AbsGF + import ErrM type ParseFun a = [Token] -> Err a @@ -28,6 +29,7 @@ run p s = case (p (myLLexer s)) of putStrLn $ "\n[Abstract Syntax]\n\n" ++ show tree putStrLn $ "\n[Linearized tree]\n\n" ++ printTree tree + main :: IO () main = do args <- getArgs case args of diff --git a/src/GF/UseGrammar/Custom.hs b/src/GF/UseGrammar/Custom.hs index f719d7bec..229b94fc7 100644 --- a/src/GF/UseGrammar/Custom.hs +++ b/src/GF/UseGrammar/Custom.hs @@ -221,6 +221,7 @@ customMultiGrammarPrinter = customData "Printers for multiple grammars, selected by option -printer=x" $ [ (strCI "gfcm", MC.prCanon) + ,(strCI "header", MC.prCanonMGr) ,(strCI "cfgm", prCanonAsCFGM) ] ++ moreCustomMultiGrammarPrinter diff --git a/src/tools/Htmls.hs b/src/tools/Htmls.hs index 6850a38a8..7c4896c54 100644 --- a/src/tools/Htmls.hs +++ b/src/tools/Htmls.hs @@ -17,8 +17,9 @@ htmls :: FilePath -> IO () htmls file = do s <- readFile file let ss = allPages s - mapM (uncurry writeFile) (map (mkFile file (length ss)) ss) - return () + lg = length ss + putStrLn $ show lg ++ " slides" + mapM_ (uncurry writeFile . mkFile file lg) ss allPages :: String -> [(Int,String)] allPages = zip [1..] . map unlines . chop . lines where