diff --git a/src/GF/Source/AbsGF.hs b/src/GF/Source/AbsGF.hs index 575cff48b..143957102 100644 --- a/src/GF/Source/AbsGF.hs +++ b/src/GF/Source/AbsGF.hs @@ -79,10 +79,10 @@ data Included = deriving (Eq,Ord,Show) data Def = - DDecl [Ident] Exp - | DDef [Ident] Exp - | DPatt Ident [Patt] Exp - | DFull [Ident] Exp Exp + DDecl [Name] Exp + | DDef [Name] Exp + | DPatt Name [Patt] Exp + | DFull [Name] Exp Exp deriving (Eq,Ord,Show) data TopDef = @@ -109,7 +109,9 @@ data TopDef = deriving (Eq,Ord,Show) data CatDef = - CatDef Ident [DDecl] + SimpleCatDef Ident [DDecl] + | ListCatDef Ident [DDecl] + | ListSizeCatDef Ident [DDecl] Integer deriving (Eq,Ord,Show) data FunDef = @@ -136,13 +138,18 @@ data ParConstr = deriving (Eq,Ord,Show) data PrintDef = - PrintDef [Ident] Exp + PrintDef [Name] Exp deriving (Eq,Ord,Show) data FlagDef = FlagDef Ident Ident deriving (Eq,Ord,Show) +data Name = + IdentName Ident + | ListName Ident + deriving (Eq,Ord,Show) + data LocDef = LDDecl [Ident] Exp | LDDef [Ident] Exp @@ -159,6 +166,7 @@ data Exp = | EMeta | EEmpty | EData + | EList Ident Exps | EStrings String | ERecord [LocDef] | ETuple [TupleComp] @@ -169,8 +177,8 @@ data Exp = | EQCons Ident Ident | EApp Exp Exp | ETable [Case] - | EVTable Exp [Exp] | ETTable Exp [Case] + | EVTable Exp [Exp] | ECase Exp [Case] | EVariants [Exp] | EPre Exp [Altern] @@ -193,6 +201,11 @@ data Exp = | ELin Ident deriving (Eq,Ord,Show) +data Exps = + NilExp + | ConsExp Exp Exps + deriving (Eq,Ord,Show) + data Patt = PW | PV Ident diff --git a/src/GF/Source/GrammarToSource.hs b/src/GF/Source/GrammarToSource.hs index e2f5f132e..e5929e614 100644 --- a/src/GF/Source/GrammarToSource.hs +++ b/src/GF/Source/GrammarToSource.hs @@ -5,9 +5,9 @@ -- Stability : (stable) -- Portability : (portable) -- --- > CVS $Date: 2005/04/21 16:23:25 $ +-- > CVS $Date: 2005/05/25 10:41:59 $ -- > CVS $Author: bringert $ --- > CVS $Revision: 1.19 $ +-- > CVS $Revision: 1.20 $ -- -- From internal source syntax to BNFC-generated (used for printing). ----------------------------------------------------------------------------- @@ -72,16 +72,16 @@ mkTopDefs ds = ds trAnyDef :: (Ident,Info) -> [P.TopDef] trAnyDef (i,info) = let i' = tri i in case info of - AbsCat (Yes co) pd -> [P.DefCat [P.CatDef i' (map trDecl co)]] ++ case pd of + AbsCat (Yes co) pd -> [P.DefCat [P.SimpleCatDef i' (map trDecl co)]] ++ case pd of Yes fs -> [P.DefData [P.DataDef i' [P.DataQId (tri m) (tri c) | QC m c <- fs]]] _ -> [] AbsFun (Yes ty) pt -> [P.DefFun [P.FunDef [i'] (trt ty)]] ++ case pt of Yes EData -> [] -- keep this information in data defs only - Yes t -> [P.DefDef [P.DDef [i'] (trt t)]] + Yes t -> [P.DefDef [P.DDef [mkName i'] (trt t)]] _ -> [] AbsFun (May b) _ -> [P.DefFun [P.FunDef [i'] (P.EIndir (tri b))]] ---- don't destroy definitions! - AbsTrans f -> [P.DefTrans [P.DDef [i'] (trt f)]] + AbsTrans f -> [P.DefTrans [P.DDef [mkName i'] (trt f)]] ResOper pty ptr -> [P.DefOper [trDef i' pty ptr]] ResParam pp -> [P.DefPar [case pp of @@ -90,7 +90,7 @@ trAnyDef (i,info) = let i' = tri i in case info of _ -> P.ParDefAbs i']] CncCat (Yes ty) Nope _ -> - [P.DefLincat [P.PrintDef [i'] (trt ty)]] + [P.DefLincat [P.PrintDef [mkName i'] (trt ty)]] CncCat pty ptr ppr -> [P.DefLindef [trDef i' pty ptr]] ---- P.DefPrintCat [P.PrintDef i' (trt pr)]] @@ -101,10 +101,10 @@ trAnyDef (i,info) = let i' = tri i in case info of trDef :: Ident -> Perh Type -> Perh Term -> P.Def trDef i pty ptr = case (pty,ptr) of - (Nope, Nope) -> P.DDef [i] (P.EMeta) --- - (_, Nope) -> P.DDecl [i] (trPerh pty) - (Nope, _ ) -> P.DDef [i] (trPerh ptr) - (_, _ ) -> P.DFull [i] (trPerh pty) (trPerh ptr) + (Nope, Nope) -> P.DDef [mkName i] (P.EMeta) --- + (_, Nope) -> P.DDecl [mkName i] (trPerh pty) + (Nope, _ ) -> P.DDef [mkName i] (trPerh ptr) + (_, _ ) -> P.DFull [mkName i] (trPerh pty) (trPerh ptr) trPerh p = case p of Yes t -> trt t @@ -221,3 +221,5 @@ trLabelIdent i = identC $ case i of LIdent s -> s LVar i -> "v" ++ show i --- should not happen +mkName :: Ident -> P.Name +mkName = P.IdentName \ No newline at end of file diff --git a/src/GF/Source/LexGF.hs b/src/GF/Source/LexGF.hs index 9ea4c4a5b..5bb731698 100644 --- a/src/GF/Source/LexGF.hs +++ b/src/GF/Source/LexGF.hs @@ -1,42 +1,51 @@ -{-# OPTIONS -cpp #-} +{-# OPTIONS -fglasgow-exts -cpp #-} {-# LINE 3 "LexGF.x" #-} -module GF.Source.LexGF where +module GF.Source.LexGF where -- H -import GF.Data.ErrM +import GF.Data.ErrM -- H +import GF.Data.SharedString -- H #if __GLASGOW_HASKELL__ >= 503 import Data.Array import Data.Char (ord) import Data.Array.Base (unsafeAt) #else -import Data.Array -import Data.Char (ord) +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] +#if __GLASGOW_HASKELL__ >= 503 +import GHC.Exts +#else +import GlaExts +#endif +alex_base :: AlexAddr +alex_base = AlexA# "\x01\x00\x15\x00\x39\x00\x3a\x00\x18\x00\x19\x00\x1a\x00\x00\x00\x44\x00\x45\x00\x1b\x00\x1c\x00\x1d\x00\x42\x00\x00\x00\x26\x00\x13\x00\x27\x00\x00\x00\x2c\x00\x2d\x00\x9c\x00\x6c\x01\x00\x00\x17\x01\xe7\x01\xd5\x00\x33\x00"# -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] +alex_table :: AlexAddr +alex_table = AlexA# "\x00\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x0d\x00\x0d\x00\x0d\x00\x0d\x00\x0d\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\x0d\x00\x0e\x00\x18\x00\xff\xff\x0e\x00\x0e\x00\xff\xff\x13\x00\x0e\x00\x0e\x00\x0f\x00\x11\x00\x0e\x00\x05\x00\x0e\x00\x0e\x00\x1b\x00\x1b\x00\x1b\x00\x1b\x00\x1b\x00\x1b\x00\x1b\x00\x1b\x00\x1b\x00\x1b\x00\x0e\x00\x0e\x00\x0e\x00\x10\x00\x0e\x00\x0e\x00\x0e\x00\x04\x00\xff\xff\xff\xff\x02\x00\x02\x00\x09\x00\x09\x00\x09\x00\x0a\x00\x0d\x00\x0d\x00\x0d\x00\x0d\x00\x0d\x00\x0e\x00\x0e\x00\x0e\x00\x12\x00\x12\x00\x00\x00\x00\x00\x0e\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0e\x00\x0e\x00\x0e\x00\xff\xff\x0e\x00\xff\xff\x0d\x00\x1b\x00\x1b\x00\x1b\x00\x1b\x00\x1b\x00\x1b\x00\x1b\x00\x1b\x00\x1b\x00\x1b\x00\x00\x00\x00\x00\x00\x00\x00\x00\x09\x00\x08\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0c\x00\x0e\x00\x0e\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\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\x06\x00\x07\x00\x16\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x00\x00\x00\x00\xff\xff\x00\x00\x00\x00\x00\x00\x00\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x19\x00\xff\xff\x00\x00\x00\x00\x16\x00\x19\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\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\x19\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x17\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x19\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x19\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\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x1a\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x00\x00\x00\x00\x00\x00\x00\x00\x16\x00\x00\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\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\x17\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\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x1a\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x00\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\x00\x16\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\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\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\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"# -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] +alex_check :: AlexAddr +alex_check = AlexA# "\xff\xff\x00\x00\x01\x00\x02\x00\x03\x00\x04\x00\x05\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x12\x00\x13\x00\x14\x00\x15\x00\x16\x00\x17\x00\x18\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x24\x00\x25\x00\x26\x00\x27\x00\x28\x00\x29\x00\x2a\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x39\x00\x3a\x00\x3b\x00\x3c\x00\x3d\x00\x3e\x00\x3f\x00\x40\x00\x2d\x00\x0a\x00\x0a\x00\x2d\x00\x2d\x00\x2d\x00\x2d\x00\x2d\x00\x2d\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x2a\x00\x3e\x00\x2b\x00\x27\x00\x27\x00\xff\xff\xff\xff\x3e\x00\xff\xff\xff\xff\xff\xff\xff\xff\x5b\x00\x5c\x00\x5d\x00\x5e\x00\x5f\x00\x60\x00\x20\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x39\x00\xff\xff\xff\xff\xff\xff\xff\xff\x2d\x00\x2d\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x7b\x00\x7c\x00\x7d\x00\x7e\x00\x7f\x00\x80\x00\x81\x00\x82\x00\x83\x00\x84\x00\x85\x00\x86\x00\x87\x00\x88\x00\x89\x00\x8a\x00\x8b\x00\x8c\x00\x8d\x00\x8e\x00\x8f\x00\x90\x00\x91\x00\x92\x00\x93\x00\x94\x00\x95\x00\x96\x00\x97\x00\x98\x00\x99\x00\x9a\x00\x9b\x00\x9c\x00\x9d\x00\x9e\x00\x9f\x00\xa0\x00\xa1\x00\xa2\x00\xa3\x00\xa4\x00\xa5\x00\xa6\x00\xa7\x00\xa8\x00\xa9\x00\xaa\x00\xab\x00\xac\x00\xad\x00\xae\x00\xaf\x00\xb0\x00\xb1\x00\xb2\x00\xb3\x00\xb4\x00\xb5\x00\xb6\x00\xb7\x00\xb8\x00\xb9\x00\xba\x00\xbb\x00\xbc\x00\xbd\x00\xbe\x00\xbf\x00\x7d\x00\x7d\x00\x27\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x39\x00\xff\xff\xff\xff\xd7\x00\xff\xff\xff\xff\xff\xff\xff\xff\x41\x00\x42\x00\x43\x00\x44\x00\x45\x00\x46\x00\x47\x00\x48\x00\x49\x00\x4a\x00\x4b\x00\x4c\x00\x4d\x00\x4e\x00\x4f\x00\x50\x00\x51\x00\x52\x00\x53\x00\x54\x00\x55\x00\x56\x00\x57\x00\x58\x00\x59\x00\x5a\x00\x22\x00\xf7\x00\xff\xff\xff\xff\x5f\x00\x27\x00\x61\x00\x62\x00\x63\x00\x64\x00\x65\x00\x66\x00\x67\x00\x68\x00\x69\x00\x6a\x00\x6b\x00\x6c\x00\x6d\x00\x6e\x00\x6f\x00\x70\x00\x71\x00\x72\x00\x73\x00\x74\x00\x75\x00\x76\x00\x77\x00\x78\x00\x79\x00\x7a\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x0a\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\x5c\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x22\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x6e\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x74\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\xc0\x00\xc1\x00\xc2\x00\xc3\x00\xc4\x00\xc5\x00\xc6\x00\xc7\x00\xc8\x00\xc9\x00\xca\x00\xcb\x00\xcc\x00\xcd\x00\xce\x00\xcf\x00\xd0\x00\xd1\x00\xd2\x00\xd3\x00\xd4\x00\xd5\x00\xd6\x00\x5c\x00\xd8\x00\xd9\x00\xda\x00\xdb\x00\xdc\x00\xdd\x00\xde\x00\xdf\x00\xe0\x00\xe1\x00\xe2\x00\xe3\x00\xe4\x00\xe5\x00\xe6\x00\xe7\x00\xe8\x00\xe9\x00\xea\x00\xeb\x00\xec\x00\xed\x00\xee\x00\xef\x00\xf0\x00\xf1\x00\xf2\x00\xf3\x00\xf4\x00\xf5\x00\xf6\x00\x27\x00\xf8\x00\xf9\x00\xfa\x00\xfb\x00\xfc\x00\xfd\x00\xfe\x00\xff\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x39\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x41\x00\x42\x00\x43\x00\x44\x00\x45\x00\x46\x00\x47\x00\x48\x00\x49\x00\x4a\x00\x4b\x00\x4c\x00\x4d\x00\x4e\x00\x4f\x00\x50\x00\x51\x00\x52\x00\x53\x00\x54\x00\x55\x00\x56\x00\x57\x00\x58\x00\x59\x00\x5a\x00\xff\xff\xff\xff\xff\xff\xff\xff\x5f\x00\xff\xff\x61\x00\x62\x00\x63\x00\x64\x00\x65\x00\x66\x00\x67\x00\x68\x00\x69\x00\x6a\x00\x6b\x00\x6c\x00\x6d\x00\x6e\x00\x6f\x00\x70\x00\x71\x00\x72\x00\x73\x00\x74\x00\x75\x00\x76\x00\x77\x00\x78\x00\x79\x00\x7a\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x0a\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\x22\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\xc0\x00\xc1\x00\xc2\x00\xc3\x00\xc4\x00\xc5\x00\xc6\x00\xc7\x00\xc8\x00\xc9\x00\xca\x00\xcb\x00\xcc\x00\xcd\x00\xce\x00\xcf\x00\xd0\x00\xd1\x00\xd2\x00\xd3\x00\xd4\x00\xd5\x00\xd6\x00\x5c\x00\xd8\x00\xd9\x00\xda\x00\xdb\x00\xdc\x00\xdd\x00\xde\x00\xdf\x00\xe0\x00\xe1\x00\xe2\x00\xe3\x00\xe4\x00\xe5\x00\xe6\x00\xe7\x00\xe8\x00\xe9\x00\xea\x00\xeb\x00\xec\x00\xed\x00\xee\x00\xef\x00\xf0\x00\xf1\x00\xf2\x00\xf3\x00\xf4\x00\xf5\x00\xf6\x00\xff\xff\xf8\x00\xf9\x00\xfa\x00\xfb\x00\xfc\x00\xfd\x00\xfe\x00\xff\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\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\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\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"# -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] +alex_deflt :: AlexAddr +alex_deflt = AlexA# "\x15\x00\xff\xff\x03\x00\x03\x00\xff\xff\xff\xff\x0b\x00\xff\xff\x0b\x00\x0b\x00\x0b\x00\x0b\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x14\x00\x14\x00\xff\xff\xff\xff\xff\xff\x19\x00\x19\x00\xff\xff\xff\xff"# 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" #-} +{-# LINE 35 "LexGF.x" #-} tok f p s = f p s +share :: String -> String +share = shareString + data Tok = - TS String -- reserved words - | TL String -- string literals - | TI String -- integer literals - | TV String -- identifiers - | TD String -- double precision float literals - | TC String -- character literals - | T_LString String + TS !String -- reserved words + | TL !String -- string literals + | TI !String -- integer literals + | TV !String -- identifiers + | TD !String -- double precision float literals + | TC !String -- character literals + | T_LString !String deriving (Eq,Show,Ord) @@ -125,11 +134,14 @@ alexGetChar (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)) +alex_action_3 = tok (\p s -> PT p (TS $ share s)) +alex_action_4 = tok (\p s -> PT p (eitherResIdent (T_LString . share) s)) +alex_action_5 = tok (\p s -> PT p (eitherResIdent (TV . share) s)) +alex_action_6 = tok (\p s -> PT p (TL $ share $ unescapeInitTail s)) +alex_action_7 = tok (\p s -> PT p (TI $ share s)) +{-# LINE 1 "GenericTemplate.hs" #-} +{-# LINE 1 "" #-} +{-# LINE 1 "" #-} {-# LINE 1 "GenericTemplate.hs" #-} -- ----------------------------------------------------------------------------- -- ALEX TEMPLATE @@ -140,7 +152,8 @@ alex_action_7 = tok (\p s -> PT p (TI s)) -- ----------------------------------------------------------------------------- -- INTERNALS and main scanner engine -{-# LINE 22 "GenericTemplate.hs" #-} + +{-# LINE 35 "GenericTemplate.hs" #-} @@ -152,23 +165,30 @@ alex_action_7 = tok (\p s -> PT p (TI s)) +data AlexAddr = AlexA# Addr# + +{-# INLINE alexIndexShortOffAddr #-} +alexIndexShortOffAddr (AlexA# arr) off = +#if __GLASGOW_HASKELL__ > 500 + narrow16Int# i +#elif __GLASGOW_HASKELL__ == 500 + intToInt16# i +#else + (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# - - - - - - - - -{-# LINE 66 "GenericTemplate.hs" #-} - -alexIndexShortOffAddr arr off = arr ! off - - -- ----------------------------------------------------------------------------- -- Main lexing routines @@ -179,11 +199,11 @@ data AlexReturn a | AlexToken !AlexInput !Int a -- alexScan :: AlexInput -> StartCode -> Maybe (AlexInput,Int,act) -alexScan input (sc) - = alexScanUser undefined input (sc) +alexScan input (I# (sc)) + = alexScanUser undefined input (I# (sc)) -alexScanUser user input (sc) - = case alex_scan_tkn user input (0) input sc AlexNone of +alexScanUser user input (I# (sc)) + = case alex_scan_tkn user input 0# input sc AlexNone of (AlexNone, input') -> case alexGetChar input of Nothing -> @@ -216,12 +236,12 @@ alexScanUser user input (sc) alex_scan_tkn user orig_input len input s last_acc = input `seq` -- strict in the input case s of - (-1) -> (last_acc, input) + -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)) + new_acc = check_accs (alex_accept `unsafeAt` (I# (s))) in new_acc `seq` case alexGetChar input of @@ -232,26 +252,26 @@ alex_scan_tkn' user orig_input len input s last_acc = let base = alexIndexShortOffAddr alex_base s - (ord_c) = ord c - offset = (base + ord_c) + (I# (ord_c)) = ord c + offset = (base +# ord_c) check = alexIndexShortOffAddr alex_check offset - new_s = if (offset >= (0)) && (check == ord_c) + 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 + 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 (AlexAcc a : _) = AlexLastAcc a input (I# (len)) + check_accs (AlexAccSkip : _) = AlexLastSkip input (I# (len)) check_accs (AlexAccPred a pred : rest) - | pred user orig_input (len) input - = AlexLastAcc a input (len) + | pred user orig_input (I# (len)) input + = AlexLastAcc a input (I# (len)) check_accs (AlexAccSkipPred pred : rest) - | pred user orig_input (len) input - = AlexLastSkip input (len) + | pred user orig_input (I# (len)) input + = AlexLastSkip input (I# (len)) check_accs (_ : rest) = check_accs rest data AlexLastAcc a @@ -280,8 +300,8 @@ alexPrevCharIs c _ input _ _ = c == alexInputPrevChar input alexPrevCharIsOneOf arr _ input _ _ = arr ! alexInputPrevChar input --alexRightContext :: Int -> AlexAccPred _ -alexRightContext (sc) user _ _ input = - case alex_scan_tkn user input (0) input sc AlexNone of +alexRightContext (I# (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 @@ -289,4 +309,4 @@ alexRightContext (sc) user _ _ input = -- the first match will do. -- used by wrappers -iUnbox (i) = i +iUnbox (I# (i)) = i diff --git a/src/GF/Source/LexGF.x b/src/GF/Source/LexGF.x index 6d231debb..e50eca8b7 100644 --- a/src/GF/Source/LexGF.x +++ b/src/GF/Source/LexGF.x @@ -1,9 +1,10 @@ -- -*- haskell -*- -- This Alex file was machine-generated by the BNF converter { -module LexGF where +module GF.Source.LexGF where -- H -import ErrM +import GF.Data.ErrM -- H +import GF.Data.SharedString -- H } @@ -15,34 +16,37 @@ $i = [$l $d _ '] -- identifier character $u = [\0-\255] -- universal: any character @rsyms = -- reserved words consisting of special symbols - \; | \= | \{ | \} | \( | \) | \: | \- \> | \* \* | \, | \[ | \] | \. | \| | \? | \< | \> | \@ | \! | \* | \\ | \= \> | \+ \+ | \+ | \_ | \$ | \/ | \- + \; | \= | \{ | \} | \( | \) | \: | \- \> | \* \* | \, | \[ | \] | \. | \| | \% | \? | \< | \> | \@ | \! | \* | \\ | \= \> | \+ \+ | \+ | \_ | \$ | \/ | \- :- "--" [.]* ; -- Toss single line comments "{-" ([$u # \-] | \- [$u # \}])* ("-")+ "}" ; $white+ ; -@rsyms { tok (\p s -> PT p (TS s)) } -\' ($u # \')* \' { tok (\p s -> PT p (eitherResIdent T_LString s)) } +@rsyms { tok (\p s -> PT p (TS $ share s)) } +\' ($u # \')* \' { tok (\p s -> PT p (eitherResIdent (T_LString . share) s)) } -$l $i* { tok (\p s -> PT p (eitherResIdent TV s)) } -\" ([$u # [\" \\ \n]] | (\\ (\" | \\ | \' | n | t)))* \"{ tok (\p s -> PT p (TL $ unescapeInitTail s)) } +$l $i* { tok (\p s -> PT p (eitherResIdent (TV . share) s)) } +\" ([$u # [\" \\ \n]] | (\\ (\" | \\ | \' | n | t)))* \"{ tok (\p s -> PT p (TL $ share $ unescapeInitTail s)) } -$d+ { tok (\p s -> PT p (TI s)) } +$d+ { tok (\p s -> PT p (TI $ share s)) } { tok f p s = f p s +share :: String -> String +share = shareString + data Tok = - TS String -- reserved words - | TL String -- string literals - | TI String -- integer literals - | TV String -- identifiers - | TD String -- double precision float literals - | TC String -- character literals - | T_LString String + TS !String -- reserved words + | TL !String -- string literals + | TI !String -- integer literals + | TV !String -- identifiers + | TD !String -- double precision float literals + | TC !String -- character literals + | T_LString !String deriving (Eq,Show,Ord) diff --git a/src/GF/Source/ParGF.hs b/src/GF/Source/ParGF.hs index dee189179..e724d4bed 100644 --- a/src/GF/Source/ParGF.hs +++ b/src/GF/Source/ParGF.hs @@ -1,516 +1,534 @@ {-# OPTIONS -fglasgow-exts -cpp #-} --- parser produced by Happy Version 1.13 - -module GF.Source.ParGF where -import GF.Source.AbsGF -import GF.Source.LexGF -import GF.Data.ErrM -import GF.Infra.Ident --H -import Data.Array +module GF.Source.ParGF where -- H +import GF.Source.AbsGF -- H +import GF.Source.LexGF -- H +import GF.Infra.Ident -- H +import GF.Data.ErrM -- H +import Array #if __GLASGOW_HASKELL__ >= 503 import GHC.Exts #else import GlaExts #endif -newtype HappyAbsSyn t7 t8 t9 t10 = HappyAbsSyn (() -> ()) -happyIn7 :: t7 -> (HappyAbsSyn t7 t8 t9 t10) +-- parser produced by Happy Version 1.15 + +newtype HappyAbsSyn = HappyAbsSyn (() -> ()) +happyIn7 :: (Ident) -> (HappyAbsSyn ) happyIn7 x = unsafeCoerce# x {-# INLINE happyIn7 #-} -happyOut7 :: (HappyAbsSyn t7 t8 t9 t10) -> t7 +happyOut7 :: (HappyAbsSyn ) -> (Ident) happyOut7 x = unsafeCoerce# x {-# INLINE happyOut7 #-} -happyIn8 :: t8 -> (HappyAbsSyn t7 t8 t9 t10) +happyIn8 :: (Integer) -> (HappyAbsSyn ) happyIn8 x = unsafeCoerce# x {-# INLINE happyIn8 #-} -happyOut8 :: (HappyAbsSyn t7 t8 t9 t10) -> t8 +happyOut8 :: (HappyAbsSyn ) -> (Integer) happyOut8 x = unsafeCoerce# x {-# INLINE happyOut8 #-} -happyIn9 :: t9 -> (HappyAbsSyn t7 t8 t9 t10) +happyIn9 :: (String) -> (HappyAbsSyn ) happyIn9 x = unsafeCoerce# x {-# INLINE happyIn9 #-} -happyOut9 :: (HappyAbsSyn t7 t8 t9 t10) -> t9 +happyOut9 :: (HappyAbsSyn ) -> (String) happyOut9 x = unsafeCoerce# x {-# INLINE happyOut9 #-} -happyIn10 :: t10 -> (HappyAbsSyn t7 t8 t9 t10) +happyIn10 :: (LString) -> (HappyAbsSyn ) happyIn10 x = unsafeCoerce# x {-# INLINE happyIn10 #-} -happyOut10 :: (HappyAbsSyn t7 t8 t9 t10) -> t10 +happyOut10 :: (HappyAbsSyn ) -> (LString) happyOut10 x = unsafeCoerce# x {-# INLINE happyOut10 #-} -happyIn11 :: (Grammar) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn11 :: (Grammar) -> (HappyAbsSyn ) happyIn11 x = unsafeCoerce# x {-# INLINE happyIn11 #-} -happyOut11 :: (HappyAbsSyn t7 t8 t9 t10) -> (Grammar) +happyOut11 :: (HappyAbsSyn ) -> (Grammar) happyOut11 x = unsafeCoerce# x {-# INLINE happyOut11 #-} -happyIn12 :: ([ModDef]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn12 :: ([ModDef]) -> (HappyAbsSyn ) happyIn12 x = unsafeCoerce# x {-# INLINE happyIn12 #-} -happyOut12 :: (HappyAbsSyn t7 t8 t9 t10) -> ([ModDef]) +happyOut12 :: (HappyAbsSyn ) -> ([ModDef]) happyOut12 x = unsafeCoerce# x {-# INLINE happyOut12 #-} -happyIn13 :: (ModDef) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn13 :: (ModDef) -> (HappyAbsSyn ) happyIn13 x = unsafeCoerce# x {-# INLINE happyIn13 #-} -happyOut13 :: (HappyAbsSyn t7 t8 t9 t10) -> (ModDef) +happyOut13 :: (HappyAbsSyn ) -> (ModDef) happyOut13 x = unsafeCoerce# x {-# INLINE happyOut13 #-} -happyIn14 :: (ConcSpec) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn14 :: (ConcSpec) -> (HappyAbsSyn ) happyIn14 x = unsafeCoerce# x {-# INLINE happyIn14 #-} -happyOut14 :: (HappyAbsSyn t7 t8 t9 t10) -> (ConcSpec) +happyOut14 :: (HappyAbsSyn ) -> (ConcSpec) happyOut14 x = unsafeCoerce# x {-# INLINE happyOut14 #-} -happyIn15 :: ([ConcSpec]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn15 :: ([ConcSpec]) -> (HappyAbsSyn ) happyIn15 x = unsafeCoerce# x {-# INLINE happyIn15 #-} -happyOut15 :: (HappyAbsSyn t7 t8 t9 t10) -> ([ConcSpec]) +happyOut15 :: (HappyAbsSyn ) -> ([ConcSpec]) happyOut15 x = unsafeCoerce# x {-# INLINE happyOut15 #-} -happyIn16 :: (ConcExp) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn16 :: (ConcExp) -> (HappyAbsSyn ) happyIn16 x = unsafeCoerce# x {-# INLINE happyIn16 #-} -happyOut16 :: (HappyAbsSyn t7 t8 t9 t10) -> (ConcExp) +happyOut16 :: (HappyAbsSyn ) -> (ConcExp) happyOut16 x = unsafeCoerce# x {-# INLINE happyOut16 #-} -happyIn17 :: ([Transfer]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn17 :: ([Transfer]) -> (HappyAbsSyn ) happyIn17 x = unsafeCoerce# x {-# INLINE happyIn17 #-} -happyOut17 :: (HappyAbsSyn t7 t8 t9 t10) -> ([Transfer]) +happyOut17 :: (HappyAbsSyn ) -> ([Transfer]) happyOut17 x = unsafeCoerce# x {-# INLINE happyOut17 #-} -happyIn18 :: (Transfer) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn18 :: (Transfer) -> (HappyAbsSyn ) happyIn18 x = unsafeCoerce# x {-# INLINE happyIn18 #-} -happyOut18 :: (HappyAbsSyn t7 t8 t9 t10) -> (Transfer) +happyOut18 :: (HappyAbsSyn ) -> (Transfer) happyOut18 x = unsafeCoerce# x {-# INLINE happyOut18 #-} -happyIn19 :: (ModType) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn19 :: (ModType) -> (HappyAbsSyn ) happyIn19 x = unsafeCoerce# x {-# INLINE happyIn19 #-} -happyOut19 :: (HappyAbsSyn t7 t8 t9 t10) -> (ModType) +happyOut19 :: (HappyAbsSyn ) -> (ModType) happyOut19 x = unsafeCoerce# x {-# INLINE happyOut19 #-} -happyIn20 :: (ModBody) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn20 :: (ModBody) -> (HappyAbsSyn ) happyIn20 x = unsafeCoerce# x {-# INLINE happyIn20 #-} -happyOut20 :: (HappyAbsSyn t7 t8 t9 t10) -> (ModBody) +happyOut20 :: (HappyAbsSyn ) -> (ModBody) happyOut20 x = unsafeCoerce# x {-# INLINE happyOut20 #-} -happyIn21 :: ([TopDef]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn21 :: ([TopDef]) -> (HappyAbsSyn ) happyIn21 x = unsafeCoerce# x {-# INLINE happyIn21 #-} -happyOut21 :: (HappyAbsSyn t7 t8 t9 t10) -> ([TopDef]) +happyOut21 :: (HappyAbsSyn ) -> ([TopDef]) happyOut21 x = unsafeCoerce# x {-# INLINE happyOut21 #-} -happyIn22 :: (Extend) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn22 :: (Extend) -> (HappyAbsSyn ) happyIn22 x = unsafeCoerce# x {-# INLINE happyIn22 #-} -happyOut22 :: (HappyAbsSyn t7 t8 t9 t10) -> (Extend) +happyOut22 :: (HappyAbsSyn ) -> (Extend) happyOut22 x = unsafeCoerce# x {-# INLINE happyOut22 #-} -happyIn23 :: ([Open]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn23 :: ([Open]) -> (HappyAbsSyn ) happyIn23 x = unsafeCoerce# x {-# INLINE happyIn23 #-} -happyOut23 :: (HappyAbsSyn t7 t8 t9 t10) -> ([Open]) +happyOut23 :: (HappyAbsSyn ) -> ([Open]) happyOut23 x = unsafeCoerce# x {-# INLINE happyOut23 #-} -happyIn24 :: (Opens) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn24 :: (Opens) -> (HappyAbsSyn ) happyIn24 x = unsafeCoerce# x {-# INLINE happyIn24 #-} -happyOut24 :: (HappyAbsSyn t7 t8 t9 t10) -> (Opens) +happyOut24 :: (HappyAbsSyn ) -> (Opens) happyOut24 x = unsafeCoerce# x {-# INLINE happyOut24 #-} -happyIn25 :: (Open) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn25 :: (Open) -> (HappyAbsSyn ) happyIn25 x = unsafeCoerce# x {-# INLINE happyIn25 #-} -happyOut25 :: (HappyAbsSyn t7 t8 t9 t10) -> (Open) +happyOut25 :: (HappyAbsSyn ) -> (Open) happyOut25 x = unsafeCoerce# x {-# INLINE happyOut25 #-} -happyIn26 :: (ComplMod) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn26 :: (ComplMod) -> (HappyAbsSyn ) happyIn26 x = unsafeCoerce# x {-# INLINE happyIn26 #-} -happyOut26 :: (HappyAbsSyn t7 t8 t9 t10) -> (ComplMod) +happyOut26 :: (HappyAbsSyn ) -> (ComplMod) happyOut26 x = unsafeCoerce# x {-# INLINE happyOut26 #-} -happyIn27 :: (QualOpen) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn27 :: (QualOpen) -> (HappyAbsSyn ) happyIn27 x = unsafeCoerce# x {-# INLINE happyIn27 #-} -happyOut27 :: (HappyAbsSyn t7 t8 t9 t10) -> (QualOpen) +happyOut27 :: (HappyAbsSyn ) -> (QualOpen) happyOut27 x = unsafeCoerce# x {-# INLINE happyOut27 #-} -happyIn28 :: ([Included]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn28 :: ([Included]) -> (HappyAbsSyn ) happyIn28 x = unsafeCoerce# x {-# INLINE happyIn28 #-} -happyOut28 :: (HappyAbsSyn t7 t8 t9 t10) -> ([Included]) +happyOut28 :: (HappyAbsSyn ) -> ([Included]) happyOut28 x = unsafeCoerce# x {-# INLINE happyOut28 #-} -happyIn29 :: (Included) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn29 :: (Included) -> (HappyAbsSyn ) happyIn29 x = unsafeCoerce# x {-# INLINE happyIn29 #-} -happyOut29 :: (HappyAbsSyn t7 t8 t9 t10) -> (Included) +happyOut29 :: (HappyAbsSyn ) -> (Included) happyOut29 x = unsafeCoerce# x {-# INLINE happyOut29 #-} -happyIn30 :: (Def) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn30 :: (Def) -> (HappyAbsSyn ) happyIn30 x = unsafeCoerce# x {-# INLINE happyIn30 #-} -happyOut30 :: (HappyAbsSyn t7 t8 t9 t10) -> (Def) +happyOut30 :: (HappyAbsSyn ) -> (Def) happyOut30 x = unsafeCoerce# x {-# INLINE happyOut30 #-} -happyIn31 :: (TopDef) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn31 :: (TopDef) -> (HappyAbsSyn ) happyIn31 x = unsafeCoerce# x {-# INLINE happyIn31 #-} -happyOut31 :: (HappyAbsSyn t7 t8 t9 t10) -> (TopDef) +happyOut31 :: (HappyAbsSyn ) -> (TopDef) happyOut31 x = unsafeCoerce# x {-# INLINE happyOut31 #-} -happyIn32 :: (CatDef) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn32 :: (CatDef) -> (HappyAbsSyn ) happyIn32 x = unsafeCoerce# x {-# INLINE happyIn32 #-} -happyOut32 :: (HappyAbsSyn t7 t8 t9 t10) -> (CatDef) +happyOut32 :: (HappyAbsSyn ) -> (CatDef) happyOut32 x = unsafeCoerce# x {-# INLINE happyOut32 #-} -happyIn33 :: (FunDef) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn33 :: (FunDef) -> (HappyAbsSyn ) happyIn33 x = unsafeCoerce# x {-# INLINE happyIn33 #-} -happyOut33 :: (HappyAbsSyn t7 t8 t9 t10) -> (FunDef) +happyOut33 :: (HappyAbsSyn ) -> (FunDef) happyOut33 x = unsafeCoerce# x {-# INLINE happyOut33 #-} -happyIn34 :: (DataDef) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn34 :: (DataDef) -> (HappyAbsSyn ) happyIn34 x = unsafeCoerce# x {-# INLINE happyIn34 #-} -happyOut34 :: (HappyAbsSyn t7 t8 t9 t10) -> (DataDef) +happyOut34 :: (HappyAbsSyn ) -> (DataDef) happyOut34 x = unsafeCoerce# x {-# INLINE happyOut34 #-} -happyIn35 :: (DataConstr) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn35 :: (DataConstr) -> (HappyAbsSyn ) happyIn35 x = unsafeCoerce# x {-# INLINE happyIn35 #-} -happyOut35 :: (HappyAbsSyn t7 t8 t9 t10) -> (DataConstr) +happyOut35 :: (HappyAbsSyn ) -> (DataConstr) happyOut35 x = unsafeCoerce# x {-# INLINE happyOut35 #-} -happyIn36 :: ([DataConstr]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn36 :: ([DataConstr]) -> (HappyAbsSyn ) happyIn36 x = unsafeCoerce# x {-# INLINE happyIn36 #-} -happyOut36 :: (HappyAbsSyn t7 t8 t9 t10) -> ([DataConstr]) +happyOut36 :: (HappyAbsSyn ) -> ([DataConstr]) happyOut36 x = unsafeCoerce# x {-# INLINE happyOut36 #-} -happyIn37 :: (ParDef) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn37 :: (ParDef) -> (HappyAbsSyn ) happyIn37 x = unsafeCoerce# x {-# INLINE happyIn37 #-} -happyOut37 :: (HappyAbsSyn t7 t8 t9 t10) -> (ParDef) +happyOut37 :: (HappyAbsSyn ) -> (ParDef) happyOut37 x = unsafeCoerce# x {-# INLINE happyOut37 #-} -happyIn38 :: (ParConstr) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn38 :: (ParConstr) -> (HappyAbsSyn ) happyIn38 x = unsafeCoerce# x {-# INLINE happyIn38 #-} -happyOut38 :: (HappyAbsSyn t7 t8 t9 t10) -> (ParConstr) +happyOut38 :: (HappyAbsSyn ) -> (ParConstr) happyOut38 x = unsafeCoerce# x {-# INLINE happyOut38 #-} -happyIn39 :: (PrintDef) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn39 :: (PrintDef) -> (HappyAbsSyn ) happyIn39 x = unsafeCoerce# x {-# INLINE happyIn39 #-} -happyOut39 :: (HappyAbsSyn t7 t8 t9 t10) -> (PrintDef) +happyOut39 :: (HappyAbsSyn ) -> (PrintDef) happyOut39 x = unsafeCoerce# x {-# INLINE happyOut39 #-} -happyIn40 :: (FlagDef) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn40 :: (FlagDef) -> (HappyAbsSyn ) happyIn40 x = unsafeCoerce# x {-# INLINE happyIn40 #-} -happyOut40 :: (HappyAbsSyn t7 t8 t9 t10) -> (FlagDef) +happyOut40 :: (HappyAbsSyn ) -> (FlagDef) happyOut40 x = unsafeCoerce# x {-# INLINE happyOut40 #-} -happyIn41 :: ([Def]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn41 :: ([Def]) -> (HappyAbsSyn ) happyIn41 x = unsafeCoerce# x {-# INLINE happyIn41 #-} -happyOut41 :: (HappyAbsSyn t7 t8 t9 t10) -> ([Def]) +happyOut41 :: (HappyAbsSyn ) -> ([Def]) happyOut41 x = unsafeCoerce# x {-# INLINE happyOut41 #-} -happyIn42 :: ([CatDef]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn42 :: ([CatDef]) -> (HappyAbsSyn ) happyIn42 x = unsafeCoerce# x {-# INLINE happyIn42 #-} -happyOut42 :: (HappyAbsSyn t7 t8 t9 t10) -> ([CatDef]) +happyOut42 :: (HappyAbsSyn ) -> ([CatDef]) happyOut42 x = unsafeCoerce# x {-# INLINE happyOut42 #-} -happyIn43 :: ([FunDef]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn43 :: ([FunDef]) -> (HappyAbsSyn ) happyIn43 x = unsafeCoerce# x {-# INLINE happyIn43 #-} -happyOut43 :: (HappyAbsSyn t7 t8 t9 t10) -> ([FunDef]) +happyOut43 :: (HappyAbsSyn ) -> ([FunDef]) happyOut43 x = unsafeCoerce# x {-# INLINE happyOut43 #-} -happyIn44 :: ([DataDef]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn44 :: ([DataDef]) -> (HappyAbsSyn ) happyIn44 x = unsafeCoerce# x {-# INLINE happyIn44 #-} -happyOut44 :: (HappyAbsSyn t7 t8 t9 t10) -> ([DataDef]) +happyOut44 :: (HappyAbsSyn ) -> ([DataDef]) happyOut44 x = unsafeCoerce# x {-# INLINE happyOut44 #-} -happyIn45 :: ([ParDef]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn45 :: ([ParDef]) -> (HappyAbsSyn ) happyIn45 x = unsafeCoerce# x {-# INLINE happyIn45 #-} -happyOut45 :: (HappyAbsSyn t7 t8 t9 t10) -> ([ParDef]) +happyOut45 :: (HappyAbsSyn ) -> ([ParDef]) happyOut45 x = unsafeCoerce# x {-# INLINE happyOut45 #-} -happyIn46 :: ([PrintDef]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn46 :: ([PrintDef]) -> (HappyAbsSyn ) happyIn46 x = unsafeCoerce# x {-# INLINE happyIn46 #-} -happyOut46 :: (HappyAbsSyn t7 t8 t9 t10) -> ([PrintDef]) +happyOut46 :: (HappyAbsSyn ) -> ([PrintDef]) happyOut46 x = unsafeCoerce# x {-# INLINE happyOut46 #-} -happyIn47 :: ([FlagDef]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn47 :: ([FlagDef]) -> (HappyAbsSyn ) happyIn47 x = unsafeCoerce# x {-# INLINE happyIn47 #-} -happyOut47 :: (HappyAbsSyn t7 t8 t9 t10) -> ([FlagDef]) +happyOut47 :: (HappyAbsSyn ) -> ([FlagDef]) happyOut47 x = unsafeCoerce# x {-# INLINE happyOut47 #-} -happyIn48 :: ([ParConstr]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn48 :: ([ParConstr]) -> (HappyAbsSyn ) happyIn48 x = unsafeCoerce# x {-# INLINE happyIn48 #-} -happyOut48 :: (HappyAbsSyn t7 t8 t9 t10) -> ([ParConstr]) +happyOut48 :: (HappyAbsSyn ) -> ([ParConstr]) happyOut48 x = unsafeCoerce# x {-# INLINE happyOut48 #-} -happyIn49 :: ([Ident]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn49 :: ([Ident]) -> (HappyAbsSyn ) happyIn49 x = unsafeCoerce# x {-# INLINE happyIn49 #-} -happyOut49 :: (HappyAbsSyn t7 t8 t9 t10) -> ([Ident]) +happyOut49 :: (HappyAbsSyn ) -> ([Ident]) happyOut49 x = unsafeCoerce# x {-# INLINE happyOut49 #-} -happyIn50 :: (LocDef) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn50 :: (Name) -> (HappyAbsSyn ) happyIn50 x = unsafeCoerce# x {-# INLINE happyIn50 #-} -happyOut50 :: (HappyAbsSyn t7 t8 t9 t10) -> (LocDef) +happyOut50 :: (HappyAbsSyn ) -> (Name) happyOut50 x = unsafeCoerce# x {-# INLINE happyOut50 #-} -happyIn51 :: ([LocDef]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn51 :: ([Name]) -> (HappyAbsSyn ) happyIn51 x = unsafeCoerce# x {-# INLINE happyIn51 #-} -happyOut51 :: (HappyAbsSyn t7 t8 t9 t10) -> ([LocDef]) +happyOut51 :: (HappyAbsSyn ) -> ([Name]) happyOut51 x = unsafeCoerce# x {-# INLINE happyOut51 #-} -happyIn52 :: (Exp) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn52 :: (LocDef) -> (HappyAbsSyn ) happyIn52 x = unsafeCoerce# x {-# INLINE happyIn52 #-} -happyOut52 :: (HappyAbsSyn t7 t8 t9 t10) -> (Exp) +happyOut52 :: (HappyAbsSyn ) -> (LocDef) happyOut52 x = unsafeCoerce# x {-# INLINE happyOut52 #-} -happyIn53 :: (Exp) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn53 :: ([LocDef]) -> (HappyAbsSyn ) happyIn53 x = unsafeCoerce# x {-# INLINE happyIn53 #-} -happyOut53 :: (HappyAbsSyn t7 t8 t9 t10) -> (Exp) +happyOut53 :: (HappyAbsSyn ) -> ([LocDef]) happyOut53 x = unsafeCoerce# x {-# INLINE happyOut53 #-} -happyIn54 :: (Exp) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn54 :: (Exp) -> (HappyAbsSyn ) happyIn54 x = unsafeCoerce# x {-# INLINE happyIn54 #-} -happyOut54 :: (HappyAbsSyn t7 t8 t9 t10) -> (Exp) +happyOut54 :: (HappyAbsSyn ) -> (Exp) happyOut54 x = unsafeCoerce# x {-# INLINE happyOut54 #-} -happyIn55 :: (Exp) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn55 :: (Exp) -> (HappyAbsSyn ) happyIn55 x = unsafeCoerce# x {-# INLINE happyIn55 #-} -happyOut55 :: (HappyAbsSyn t7 t8 t9 t10) -> (Exp) +happyOut55 :: (HappyAbsSyn ) -> (Exp) happyOut55 x = unsafeCoerce# x {-# INLINE happyOut55 #-} -happyIn56 :: (Exp) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn56 :: (Exp) -> (HappyAbsSyn ) happyIn56 x = unsafeCoerce# x {-# INLINE happyIn56 #-} -happyOut56 :: (HappyAbsSyn t7 t8 t9 t10) -> (Exp) +happyOut56 :: (HappyAbsSyn ) -> (Exp) happyOut56 x = unsafeCoerce# x {-# INLINE happyOut56 #-} -happyIn57 :: ([Exp]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn57 :: (Exp) -> (HappyAbsSyn ) happyIn57 x = unsafeCoerce# x {-# INLINE happyIn57 #-} -happyOut57 :: (HappyAbsSyn t7 t8 t9 t10) -> ([Exp]) +happyOut57 :: (HappyAbsSyn ) -> (Exp) happyOut57 x = unsafeCoerce# x {-# INLINE happyOut57 #-} -happyIn58 :: (Patt) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn58 :: (Exp) -> (HappyAbsSyn ) happyIn58 x = unsafeCoerce# x {-# INLINE happyIn58 #-} -happyOut58 :: (HappyAbsSyn t7 t8 t9 t10) -> (Patt) +happyOut58 :: (HappyAbsSyn ) -> (Exp) happyOut58 x = unsafeCoerce# x {-# INLINE happyOut58 #-} -happyIn59 :: (Patt) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn59 :: ([Exp]) -> (HappyAbsSyn ) happyIn59 x = unsafeCoerce# x {-# INLINE happyIn59 #-} -happyOut59 :: (HappyAbsSyn t7 t8 t9 t10) -> (Patt) +happyOut59 :: (HappyAbsSyn ) -> ([Exp]) happyOut59 x = unsafeCoerce# x {-# INLINE happyOut59 #-} -happyIn60 :: (PattAss) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn60 :: (Exps) -> (HappyAbsSyn ) happyIn60 x = unsafeCoerce# x {-# INLINE happyIn60 #-} -happyOut60 :: (HappyAbsSyn t7 t8 t9 t10) -> (PattAss) +happyOut60 :: (HappyAbsSyn ) -> (Exps) happyOut60 x = unsafeCoerce# x {-# INLINE happyOut60 #-} -happyIn61 :: (Label) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn61 :: (Patt) -> (HappyAbsSyn ) happyIn61 x = unsafeCoerce# x {-# INLINE happyIn61 #-} -happyOut61 :: (HappyAbsSyn t7 t8 t9 t10) -> (Label) +happyOut61 :: (HappyAbsSyn ) -> (Patt) happyOut61 x = unsafeCoerce# x {-# INLINE happyOut61 #-} -happyIn62 :: (Sort) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn62 :: (Patt) -> (HappyAbsSyn ) happyIn62 x = unsafeCoerce# x {-# INLINE happyIn62 #-} -happyOut62 :: (HappyAbsSyn t7 t8 t9 t10) -> (Sort) +happyOut62 :: (HappyAbsSyn ) -> (Patt) happyOut62 x = unsafeCoerce# x {-# INLINE happyOut62 #-} -happyIn63 :: ([PattAss]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn63 :: (PattAss) -> (HappyAbsSyn ) happyIn63 x = unsafeCoerce# x {-# INLINE happyIn63 #-} -happyOut63 :: (HappyAbsSyn t7 t8 t9 t10) -> ([PattAss]) +happyOut63 :: (HappyAbsSyn ) -> (PattAss) happyOut63 x = unsafeCoerce# x {-# INLINE happyOut63 #-} -happyIn64 :: (PattAlt) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn64 :: (Label) -> (HappyAbsSyn ) happyIn64 x = unsafeCoerce# x {-# INLINE happyIn64 #-} -happyOut64 :: (HappyAbsSyn t7 t8 t9 t10) -> (PattAlt) +happyOut64 :: (HappyAbsSyn ) -> (Label) happyOut64 x = unsafeCoerce# x {-# INLINE happyOut64 #-} -happyIn65 :: ([Patt]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn65 :: (Sort) -> (HappyAbsSyn ) happyIn65 x = unsafeCoerce# x {-# INLINE happyIn65 #-} -happyOut65 :: (HappyAbsSyn t7 t8 t9 t10) -> ([Patt]) +happyOut65 :: (HappyAbsSyn ) -> (Sort) happyOut65 x = unsafeCoerce# x {-# INLINE happyOut65 #-} -happyIn66 :: ([PattAlt]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn66 :: ([PattAss]) -> (HappyAbsSyn ) happyIn66 x = unsafeCoerce# x {-# INLINE happyIn66 #-} -happyOut66 :: (HappyAbsSyn t7 t8 t9 t10) -> ([PattAlt]) +happyOut66 :: (HappyAbsSyn ) -> ([PattAss]) happyOut66 x = unsafeCoerce# x {-# INLINE happyOut66 #-} -happyIn67 :: (Bind) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn67 :: (PattAlt) -> (HappyAbsSyn ) happyIn67 x = unsafeCoerce# x {-# INLINE happyIn67 #-} -happyOut67 :: (HappyAbsSyn t7 t8 t9 t10) -> (Bind) +happyOut67 :: (HappyAbsSyn ) -> (PattAlt) happyOut67 x = unsafeCoerce# x {-# INLINE happyOut67 #-} -happyIn68 :: ([Bind]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn68 :: ([Patt]) -> (HappyAbsSyn ) happyIn68 x = unsafeCoerce# x {-# INLINE happyIn68 #-} -happyOut68 :: (HappyAbsSyn t7 t8 t9 t10) -> ([Bind]) +happyOut68 :: (HappyAbsSyn ) -> ([Patt]) happyOut68 x = unsafeCoerce# x {-# INLINE happyOut68 #-} -happyIn69 :: (Decl) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn69 :: ([PattAlt]) -> (HappyAbsSyn ) happyIn69 x = unsafeCoerce# x {-# INLINE happyIn69 #-} -happyOut69 :: (HappyAbsSyn t7 t8 t9 t10) -> (Decl) +happyOut69 :: (HappyAbsSyn ) -> ([PattAlt]) happyOut69 x = unsafeCoerce# x {-# INLINE happyOut69 #-} -happyIn70 :: (TupleComp) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn70 :: (Bind) -> (HappyAbsSyn ) happyIn70 x = unsafeCoerce# x {-# INLINE happyIn70 #-} -happyOut70 :: (HappyAbsSyn t7 t8 t9 t10) -> (TupleComp) +happyOut70 :: (HappyAbsSyn ) -> (Bind) happyOut70 x = unsafeCoerce# x {-# INLINE happyOut70 #-} -happyIn71 :: (PattTupleComp) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn71 :: ([Bind]) -> (HappyAbsSyn ) happyIn71 x = unsafeCoerce# x {-# INLINE happyIn71 #-} -happyOut71 :: (HappyAbsSyn t7 t8 t9 t10) -> (PattTupleComp) +happyOut71 :: (HappyAbsSyn ) -> ([Bind]) happyOut71 x = unsafeCoerce# x {-# INLINE happyOut71 #-} -happyIn72 :: ([TupleComp]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn72 :: (Decl) -> (HappyAbsSyn ) happyIn72 x = unsafeCoerce# x {-# INLINE happyIn72 #-} -happyOut72 :: (HappyAbsSyn t7 t8 t9 t10) -> ([TupleComp]) +happyOut72 :: (HappyAbsSyn ) -> (Decl) happyOut72 x = unsafeCoerce# x {-# INLINE happyOut72 #-} -happyIn73 :: ([PattTupleComp]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn73 :: (TupleComp) -> (HappyAbsSyn ) happyIn73 x = unsafeCoerce# x {-# INLINE happyIn73 #-} -happyOut73 :: (HappyAbsSyn t7 t8 t9 t10) -> ([PattTupleComp]) +happyOut73 :: (HappyAbsSyn ) -> (TupleComp) happyOut73 x = unsafeCoerce# x {-# INLINE happyOut73 #-} -happyIn74 :: (Case) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn74 :: (PattTupleComp) -> (HappyAbsSyn ) happyIn74 x = unsafeCoerce# x {-# INLINE happyIn74 #-} -happyOut74 :: (HappyAbsSyn t7 t8 t9 t10) -> (Case) +happyOut74 :: (HappyAbsSyn ) -> (PattTupleComp) happyOut74 x = unsafeCoerce# x {-# INLINE happyOut74 #-} -happyIn75 :: ([Case]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn75 :: ([TupleComp]) -> (HappyAbsSyn ) happyIn75 x = unsafeCoerce# x {-# INLINE happyIn75 #-} -happyOut75 :: (HappyAbsSyn t7 t8 t9 t10) -> ([Case]) +happyOut75 :: (HappyAbsSyn ) -> ([TupleComp]) happyOut75 x = unsafeCoerce# x {-# INLINE happyOut75 #-} -happyIn76 :: (Equation) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn76 :: ([PattTupleComp]) -> (HappyAbsSyn ) happyIn76 x = unsafeCoerce# x {-# INLINE happyIn76 #-} -happyOut76 :: (HappyAbsSyn t7 t8 t9 t10) -> (Equation) +happyOut76 :: (HappyAbsSyn ) -> ([PattTupleComp]) happyOut76 x = unsafeCoerce# x {-# INLINE happyOut76 #-} -happyIn77 :: ([Equation]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn77 :: (Case) -> (HappyAbsSyn ) happyIn77 x = unsafeCoerce# x {-# INLINE happyIn77 #-} -happyOut77 :: (HappyAbsSyn t7 t8 t9 t10) -> ([Equation]) +happyOut77 :: (HappyAbsSyn ) -> (Case) happyOut77 x = unsafeCoerce# x {-# INLINE happyOut77 #-} -happyIn78 :: (Altern) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn78 :: ([Case]) -> (HappyAbsSyn ) happyIn78 x = unsafeCoerce# x {-# INLINE happyIn78 #-} -happyOut78 :: (HappyAbsSyn t7 t8 t9 t10) -> (Altern) +happyOut78 :: (HappyAbsSyn ) -> ([Case]) happyOut78 x = unsafeCoerce# x {-# INLINE happyOut78 #-} -happyIn79 :: ([Altern]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn79 :: (Equation) -> (HappyAbsSyn ) happyIn79 x = unsafeCoerce# x {-# INLINE happyIn79 #-} -happyOut79 :: (HappyAbsSyn t7 t8 t9 t10) -> ([Altern]) +happyOut79 :: (HappyAbsSyn ) -> (Equation) happyOut79 x = unsafeCoerce# x {-# INLINE happyOut79 #-} -happyIn80 :: (DDecl) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn80 :: ([Equation]) -> (HappyAbsSyn ) happyIn80 x = unsafeCoerce# x {-# INLINE happyIn80 #-} -happyOut80 :: (HappyAbsSyn t7 t8 t9 t10) -> (DDecl) +happyOut80 :: (HappyAbsSyn ) -> ([Equation]) happyOut80 x = unsafeCoerce# x {-# INLINE happyOut80 #-} -happyIn81 :: ([DDecl]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn81 :: (Altern) -> (HappyAbsSyn ) happyIn81 x = unsafeCoerce# x {-# INLINE happyIn81 #-} -happyOut81 :: (HappyAbsSyn t7 t8 t9 t10) -> ([DDecl]) +happyOut81 :: (HappyAbsSyn ) -> (Altern) happyOut81 x = unsafeCoerce# x {-# INLINE happyOut81 #-} -happyIn82 :: (OldGrammar) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn82 :: ([Altern]) -> (HappyAbsSyn ) happyIn82 x = unsafeCoerce# x {-# INLINE happyIn82 #-} -happyOut82 :: (HappyAbsSyn t7 t8 t9 t10) -> (OldGrammar) +happyOut82 :: (HappyAbsSyn ) -> ([Altern]) happyOut82 x = unsafeCoerce# x {-# INLINE happyOut82 #-} -happyIn83 :: (Include) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn83 :: (DDecl) -> (HappyAbsSyn ) happyIn83 x = unsafeCoerce# x {-# INLINE happyIn83 #-} -happyOut83 :: (HappyAbsSyn t7 t8 t9 t10) -> (Include) +happyOut83 :: (HappyAbsSyn ) -> (DDecl) happyOut83 x = unsafeCoerce# x {-# INLINE happyOut83 #-} -happyIn84 :: (FileName) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn84 :: ([DDecl]) -> (HappyAbsSyn ) happyIn84 x = unsafeCoerce# x {-# INLINE happyIn84 #-} -happyOut84 :: (HappyAbsSyn t7 t8 t9 t10) -> (FileName) +happyOut84 :: (HappyAbsSyn ) -> ([DDecl]) happyOut84 x = unsafeCoerce# x {-# INLINE happyOut84 #-} -happyIn85 :: ([FileName]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn85 :: (OldGrammar) -> (HappyAbsSyn ) happyIn85 x = unsafeCoerce# x {-# INLINE happyIn85 #-} -happyOut85 :: (HappyAbsSyn t7 t8 t9 t10) -> ([FileName]) +happyOut85 :: (HappyAbsSyn ) -> (OldGrammar) happyOut85 x = unsafeCoerce# x {-# INLINE happyOut85 #-} -happyInTok :: Token -> (HappyAbsSyn t7 t8 t9 t10) +happyIn86 :: (Include) -> (HappyAbsSyn ) +happyIn86 x = unsafeCoerce# x +{-# INLINE happyIn86 #-} +happyOut86 :: (HappyAbsSyn ) -> (Include) +happyOut86 x = unsafeCoerce# x +{-# INLINE happyOut86 #-} +happyIn87 :: (FileName) -> (HappyAbsSyn ) +happyIn87 x = unsafeCoerce# x +{-# INLINE happyIn87 #-} +happyOut87 :: (HappyAbsSyn ) -> (FileName) +happyOut87 x = unsafeCoerce# x +{-# INLINE happyOut87 #-} +happyIn88 :: ([FileName]) -> (HappyAbsSyn ) +happyIn88 x = unsafeCoerce# x +{-# INLINE happyIn88 #-} +happyOut88 :: (HappyAbsSyn ) -> ([FileName]) +happyOut88 x = unsafeCoerce# x +{-# INLINE happyOut88 #-} +happyInTok :: Token -> (HappyAbsSyn ) happyInTok x = unsafeCoerce# x {-# INLINE happyInTok #-} -happyOutTok :: (HappyAbsSyn t7 t8 t9 t10) -> Token +happyOutTok :: (HappyAbsSyn ) -> Token happyOutTok x = unsafeCoerce# x {-# INLINE happyOutTok #-} happyActOffsets :: HappyAddr -happyActOffsets = HappyA# "\x00\x00\x89\x00\xec\x04\x92\x00\xca\x04\x00\x00\x02\x05\x00\x00\x00\x00\x00\x00\x00\x00\x06\x05\xf8\x00\xe1\x00\xc1\x04\x00\x00\x08\x05\xc7\x04\x19\x00\x24\x00\x00\x00\x92\x00\xfd\xff\xc7\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x92\x00\x00\x00\x0c\x05\xfe\xff\x0a\x05\x01\x05\x9a\x01\xfd\x04\x00\x00\x00\x00\x00\x00\xb6\x04\x00\x00\xb3\x00\x01\x00\xfe\x04\xb8\x04\x00\x00\xb5\x04\x54\x00\xf6\x04\xff\x04\xfc\x04\xb2\x04\xb2\x04\xb2\x04\xb2\x04\xb2\x04\xb2\x04\x00\x00\xb3\x00\x00\x00\xf5\x04\x00\x00\xb3\x00\xb3\x00\xb3\x00\xe3\x04\x92\x00\x00\x00\x83\x00\x2c\x00\x5d\x00\x24\x00\x92\x00\x92\x00\xeb\x04\xda\x00\xf1\x04\xc0\x04\xa1\x04\x2c\x00\xb4\x04\x00\x00\x00\x00\xde\x04\xd7\x04\xf6\xff\x00\x00\xcc\x04\xc6\x04\xa6\x04\x9b\x02\xac\x04\x00\x00\xb8\x02\xab\x04\x93\x04\x63\x04\x67\x03\xa8\x04\x92\x00\xc7\x00\xc7\x00\xc7\x00\x92\x00\x92\x00\x92\x00\x96\x04\x8b\x04\xff\xff\x69\x01\x00\x00\x50\x04\x00\x00\x00\x00\x49\x04\x4a\x04\x00\x00\x00\x00\x00\x00\x49\x01\x49\x01\x49\x01\x00\x00\x00\x00\x00\x00\x4a\x04\x4a\x04\x7d\x04\x92\x00\x00\x00\x00\x00\x00\x00\x3a\x04\x00\x00\x92\x00\x92\x00\x6c\x04\x92\x00\xf6\xff\x7e\x04\x72\x04\x00\x00\x00\x00\x2c\x00\x4f\x04\x78\x04\x67\x04\x1f\x04\x2c\x00\x2c\x00\x00\x00\x65\x04\x92\x00\x1d\x04\x92\x00\x92\x00\x54\x04\x53\x04\x4e\x04\x34\x04\x8e\x01\x00\x00\x00\x00\x33\x04\x29\x04\x3d\x04\x39\x04\x2c\x00\x92\x00\x38\x04\x00\x00\xef\x03\xef\x03\xef\x03\xef\x03\xef\x03\xef\x03\xef\x03\xef\x03\xef\x03\xef\x03\xef\x03\xef\x03\xef\x03\x3c\x02\xef\x03\xef\x03\xef\x03\x00\x00\x00\x00\x00\x00\xb3\x00\x00\x00\x32\x04\x00\x00\x00\x00\xf2\x03\xf0\x03\x00\x00\xc7\x02\x23\x04\x02\x04\x20\x00\x00\x00\xeb\x03\x1b\x04\xc8\x03\xc8\x03\xc8\x03\xc8\x03\x1e\x00\x00\x00\x38\x01\x10\x04\x00\x00\xc1\x00\x00\x00\x0f\x04\x0e\x04\x00\x00\x0c\x04\xae\x03\xae\x03\x00\x00\xf9\x03\xf7\x03\x00\x00\xf4\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xe4\x03\x00\x00\xdc\x03\xe2\x03\xe1\x03\x00\x00\x00\x00\x16\x00\xdf\x03\x00\x00\x00\x00\x00\x00\xde\x03\x00\x00\x00\x00\xc3\x03\x12\x00\xc9\x03\x00\x00\x2c\x00\x92\x00\x2c\x00\x00\x00\x78\x03\x00\x00\x92\x00\x92\x00\xca\x03\x00\x00\x00\x00\x00\x00\x90\x03\x00\x00\xc1\x03\xa5\x03\xad\x03\x0a\x02\xb3\x03\xb1\x03\xac\x03\x00\x00\x2c\x00\x92\x00\x00\x00\x55\x03\x2c\x00\x00\x00\x00\x00\x92\x00\x8e\x03\x00\x00\x00\x00\x92\x03\x96\x03\x00\x00\x87\x03\x00\x00\x85\x03\x00\x00\x45\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x84\x03\x00\x00\x00\x00\x00\x00\x00\x00\x3c\x03\x2c\x00\x00\x00\x00\x00\x00\x00\x2c\x00\x92\x00\x92\x00\x69\x03\x7d\x03\x81\x03\x00\x00\x2c\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x28\x03\x18\x01\x28\x03\x28\x03\x28\x03\x28\x03\x92\x00\x28\x03\x6d\x03\x24\x03\x18\x00\x00\x00\x00\x00\x92\x00\x24\x03\x00\x00\x92\x00\x92\x00\x24\x03\x6c\x03\x00\x00\x65\x03\x1c\x01\x00\x00\x00\x00\x61\x03\x00\x00\x4c\x03\x00\x00\x0d\x03\x51\x03\x0e\x00\x0e\x00\x3d\x03\x0a\x03\x00\x00\x2f\x03\x25\x03\x00\x00\xe0\x02\xde\x02\xde\x02\xde\x02\x00\x00\x00\x00\x0e\x00\x92\x00\x00\x00\x26\x03\x00\x00\x00\x00\x00\x00\x00\x00\x19\x03\x00\x00\xf9\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x18\x03\x0b\x03\x00\x00\x12\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\x0c\x03\xc6\x02\xc6\x02\x56\x02\xc6\x02\xc6\x02\x18\x01\x92\x00\x00\x00\x00\x00\x94\x00\x04\x03\x00\x00\x0e\x00\x30\x02\x00\x00\x0e\x00\x0e\x03\xb1\x02\x00\x00\x00\x00\x00\x00\x00\x00\xb1\x02\x00\x00\x00\x00\x00\x00\xf4\x02\xf5\x02\x00\x00\x00\x00\x92\x00\xef\x02\x00\x00\x00\x00\xee\x02\xf1\x02\xe3\x02\xdd\x02\x00\x00\x98\x02\x98\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xd9\x02\x00\x00\x8f\x02\xe4\x00\x0e\x00\x0e\x00\xc3\x02\xc2\x02\x00\x00\x00\x00\x00\x00"# +happyActOffsets = HappyA# "\x00\x00\x6a\x01\xfb\x04\xa4\x00\xec\x04\x00\x00\x15\x05\x00\x00\x00\x00\x00\x00\x00\x00\x19\x05\x2c\x01\x7d\x01\xd1\x04\x00\x00\x0d\x05\xc6\x04\x1a\x00\x26\x00\xc6\x04\x00\x00\xa4\x00\x0a\x00\xc6\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xa4\x00\x00\x00\x0e\x05\xff\xff\x0b\x05\x09\x05\x01\x02\xff\x04\x00\x00\x00\x00\x00\x00\xba\x04\x00\x00\xea\x00\x0e\x00\x65\x05\xb8\x04\x00\x00\xa5\x04\x47\x01\xee\x04\xf3\x04\xf2\x04\xb5\x04\xb5\x04\xb5\x04\xb5\x04\xb5\x04\xb5\x04\x00\x00\xea\x00\x00\x00\xed\x04\x00\x00\xea\x00\xea\x00\xea\x00\x73\x05\xa4\x00\x00\x00\x18\x00\xbc\x00\x5f\x00\x98\x04\xa4\x00\xa4\x00\xd8\x04\x35\x02\xd9\x04\xa0\x04\x91\x04\xbc\x00\xa3\x04\x00\x00\x00\x00\xc3\x04\xbf\x04\xfe\xff\x00\x00\xbd\x04\xb1\x04\xb0\x04\xaf\x00\xd0\x01\xae\x04\x00\x00\x82\x02\xaa\x04\xa7\x04\x60\x04\xcc\x03\xa9\x04\xa4\x00\xda\x00\xda\x00\xda\x00\xa4\x00\xa4\x00\xa4\x00\xa8\x04\x9c\x04\x71\x00\xd0\x01\x00\x00\x5e\x04\x00\x00\x00\x00\x59\x04\x5b\x04\x00\x00\x00\x00\x00\x00\xaf\x01\xaf\x01\xaf\x01\x00\x00\x00\x00\x00\x00\x5b\x04\x5b\x04\x94\x04\xa4\x00\x00\x00\x00\x00\x7e\x01\x90\x04\x49\x04\x00\x00\x00\x00\xa4\x00\xa4\x00\x7c\x04\xa4\x00\xfe\xff\x84\x04\x85\x04\x00\x00\x00\x00\xbc\x00\x7e\x04\x71\x04\x7b\x04\x34\x04\xbc\x00\xbc\x00\x00\x00\x7a\x04\xa4\x00\x29\x04\xa4\x00\xa4\x00\x65\x04\x64\x04\x5f\x04\x55\x04\x31\x02\x00\x00\x00\x00\x54\x04\x48\x04\x5d\x04\x4f\x04\xbc\x00\xa4\x00\x4a\x04\x00\x00\x48\x00\x15\x04\x44\x00\x15\x04\x15\x04\x44\x00\x44\x00\x44\x00\x44\x00\x44\x00\x15\x04\x15\x04\x44\x00\x6f\x00\x15\x04\x44\x00\x44\x00\x00\x00\x00\x00\x00\x00\xea\x00\x00\x00\x4b\x04\x00\x00\x00\x00\x18\x04\x17\x04\x00\x00\x54\x02\x3c\x04\x28\x04\x0f\x00\x00\x00\x12\x04\x35\x04\xe9\x03\xe9\x03\xe9\x03\xe9\x03\x21\x00\x00\x00\x00\x00\x33\x04\x00\x00\x8c\x00\x11\x02\xd1\x03\x00\x00\x2c\x04\x2a\x04\x00\x00\x20\x04\x1d\x04\x3c\x00\x3c\x00\x00\x00\x1c\x04\x1b\x04\x00\x00\x16\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0a\x04\x00\x00\x06\x04\x04\x04\x03\x04\x00\x00\x00\x00\x84\x00\x02\x04\x00\x00\x00\x00\x00\x00\xf6\x03\x00\x00\xaa\x03\x00\x00\xd7\x03\x86\x00\xe7\x03\x00\x00\xbc\x00\xa4\x00\xbc\x00\x00\x00\x98\x03\x00\x00\xa4\x00\xa4\x00\xd5\x03\x00\x00\x00\x00\x00\x00\xa7\x03\x00\x00\xca\x03\xb3\x03\xbd\x03\x07\x01\xbc\x03\xa8\x03\xb8\x03\x00\x00\xbc\x00\xa4\x00\x00\x00\x6f\x03\xbc\x00\x00\x00\x00\x00\xa4\x00\x9e\x03\x00\x00\x00\x00\x99\x03\x00\x00\x00\x00\xa9\x03\x00\x00\xa3\x03\x00\x00\xa2\x03\x00\x00\xeb\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x9a\x03\x00\x00\x00\x00\x00\x00\x00\x00\x50\x03\xbc\x00\x00\x00\x00\x00\x00\x00\xbc\x00\xa4\x00\xa4\x00\x7f\x03\x8f\x03\x8a\x03\x00\x00\xbc\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x39\x00\x5d\x01\x41\x03\x41\x03\x41\x03\x41\x03\xa4\x00\x41\x03\x89\x03\x3f\x03\x19\x00\x00\x00\x00\x00\xa4\x00\xfa\xff\xfa\xff\x00\x00\x7b\x03\xa4\x00\xa4\x00\x74\x03\xfa\xff\x00\x00\x6c\x03\x00\x01\x00\x00\x00\x00\x47\x03\x00\x00\x5d\x03\x00\x00\x01\x03\x3c\x03\x15\x00\x15\x00\x30\x03\xe7\x02\x00\x00\x22\x03\xf2\x02\x00\x00\xd4\x02\xcf\x02\xcf\x02\xcf\x02\x00\x00\x00\x00\x15\x00\x00\x00\xa4\x00\x09\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xf6\x02\x00\x00\xe8\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xf1\x02\xf4\x02\x00\x00\xfb\x02\x00\x00\x00\x00\x00\x00\x1a\x00\x00\x00\x0b\x01\x00\x00\x00\x00\xa4\x00\xa4\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xf7\x02\xf0\x02\xa0\x02\xa0\x02\x8f\x02\xa0\x02\xa0\x02\x5d\x01\xa4\x00\x00\x00\x00\x00\x8a\x01\xd6\x02\x00\x00\x15\x00\x68\x02\x00\x00\x15\x00\xe6\x02\x8a\x02\x00\x00\x00\x00\x00\x00\x00\x00\x8a\x02\x00\x00\x00\x00\x00\x00\xc4\x02\xc7\x02\x00\x00\x00\x00\xa4\x00\x7a\x02\xba\x02\xb6\x02\x00\x00\x00\x00\xb0\x02\xaf\x02\xae\x02\xa3\x02\x00\x00\x6e\x02\x6e\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x9e\x02\x00\x00\x5b\x02\x76\x00\x15\x00\x15\x00\x94\x02\x93\x02\x00\x00\x00\x00\x00\x00"# happyGotoOffsets :: HappyAddr -happyGotoOffsets = HappyA# "\x36\x02\x86\x01\xda\x01\xcb\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x3b\x03\x00\x00\x00\x00\x00\x00\x00\x00\xa6\x01\xbb\x02\xe3\x01\x00\x00\x9e\x02\x85\x00\xb6\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xb3\x04\x00\x00\x00\x00\x56\x01\x00\x00\x00\x00\xc4\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x8b\x02\x07\x00\x00\x00\x96\x02\x97\x02\x00\x00\x00\x00\xc0\x00\x00\x00\x00\x00\x00\x00\x94\x02\x90\x02\x72\x02\x6a\x02\x68\x02\x5c\x02\x00\x00\x0d\x00\x00\x00\x00\x00\x00\x00\x0b\x00\x09\x00\x03\x00\x45\x02\x15\x03\x00\x00\x00\x00\xdc\x01\xa7\x04\x75\x00\x03\x03\x91\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\x4c\x02\x00\x00\x00\x00\x8c\x04\x80\x03\x09\x03\xa0\x01\x74\x04\x6f\x04\x59\x04\x00\x00\x00\x00\x11\x00\xab\x01\x00\x00\x47\x01\x00\x00\x00\x00\x3a\x02\x06\x01\x00\x00\x00\x00\x00\x00\x3b\x03\x3b\x03\x3b\x03\x00\x00\x00\x00\x00\x00\x74\x00\x43\x02\x00\x00\x4d\x04\x00\x00\x00\x00\x00\x00\x37\x02\x00\x00\x82\x02\x35\x04\x00\x00\x30\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\x1a\x04\xe2\x00\x15\x04\xfd\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\xed\x02\x00\x00\x00\x00\xb3\x01\x1a\x00\xdd\x04\xba\x02\xd8\x00\xc5\x04\xc9\x04\xc4\x04\xb0\x04\xaf\x04\x11\x02\x27\x02\x56\x04\x8e\x02\x03\x02\x8a\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\xff\x01\x0b\x01\xe9\x01\xd4\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\x00\x00\x75\x01\x00\x00\x00\x00\xf5\x01\xf1\x03\x3d\x02\x00\x00\xc6\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\xdb\x03\x00\x00\x8f\x01\xdf\x01\x00\x00\x00\x00\xd6\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\xbe\x03\xb9\x03\x00\x00\x00\x00\x00\x00\x00\x00\x24\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xb2\x01\x90\x00\xd1\x00\x88\x02\x2a\x02\x62\x01\xa3\x03\xc9\x00\x00\x00\xf8\x01\xdb\x00\x00\x00\x00\x00\x97\x03\x0b\x02\x00\x00\x7a\x03\x64\x03\x33\x01\x00\x00\x00\x00\x00\x00\x4b\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x53\x01\x00\x00\x86\x02\x50\x02\x00\x00\x41\x01\x00\x00\x00\x00\x00\x00\x0e\x01\x00\x00\x73\x00\x25\x00\x2b\x01\x00\x00\x00\x00\x21\x00\x5f\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\x48\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x2d\x02\x99\x00\x7c\x00\x6b\x00\x9c\x00\x90\x00\x2c\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x21\x02\x36\x00\x00\x00\x2c\x01\x00\x00\xfa\x03\x00\x00\x00\x00\x00\x00\x00\x00\x42\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xc2\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"# +happyGotoOffsets = HappyA# "\xac\x01\x70\x00\x10\x01\xea\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xfd\x04\x00\x00\x00\x00\x00\x00\x00\x00\xed\x03\xdd\x02\xb0\x00\x81\x02\x00\x00\xbf\x02\x9c\x00\x7c\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xd6\x04\x00\x00\x00\x00\xa5\x03\x00\x00\x00\x00\x2f\x05\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x6a\x02\x04\x00\x00\x00\x5c\x02\x76\x02\x00\x00\x00\x00\x2d\x00\x00\x00\x00\x00\x00\x00\x65\x02\x62\x02\x61\x02\x60\x02\x5e\x02\x47\x02\x00\x00\x0c\x00\x00\x00\x00\x00\x00\x00\x0b\x00\x08\x00\x07\x00\x29\x02\x28\x03\x00\x00\x00\x00\x44\x02\xc9\x04\x3a\x02\x12\x03\xb6\x04\x00\x00\x00\x00\x00\x00\x00\x00\xce\x02\x13\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x79\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xde\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x38\x02\x00\x00\x00\x00\xa2\x04\x07\x04\xbf\x03\x83\x02\x8e\x04\x82\x04\x6e\x04\x00\x00\x00\x00\x10\x00\x1e\x05\x00\x00\xed\x01\x00\x00\x00\x00\x14\x02\xbb\x01\x00\x00\x00\x00\x00\x00\x96\x04\x96\x04\x96\x04\x00\x00\x00\x00\x00\x00\xee\x00\x0b\x02\x00\x00\x5a\x04\x00\x00\x00\x00\xd0\x02\x00\x00\x0a\x02\x00\x00\x00\x00\xa9\x02\x47\x04\x00\x00\x3a\x04\x77\x00\x00\x00\x00\x00\x00\x00\x00\x00\xf1\x04\x00\x00\x00\x00\x00\x00\xb3\x01\xc3\x01\x3f\x01\x00\x00\x00\x00\x26\x04\xb9\x01\x13\x04\xff\x03\x00\x00\x00\x00\x00\x00\x00\x00\x54\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x51\x02\x06\x03\x00\x00\x00\x00\xc9\x01\x70\x05\x66\x05\x4c\x02\x0f\x05\x64\x05\x59\x05\x4b\x05\x48\x05\x46\x05\x09\x02\xc0\x00\x43\x05\x35\x05\x08\x02\x25\x05\x23\x05\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x22\x00\x00\x00\x00\x00\x00\x00\x00\x00\xe6\x01\x00\x00\xf6\x01\x0f\x01\xf4\x01\xea\x01\x93\x01\x00\x00\x00\x00\x00\x00\x00\x00\xe4\x02\x00\x00\xdc\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x16\x05\x14\x05\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\x89\x01\x00\x00\x00\x00\xc8\x01\x00\x00\x00\x00\x65\x01\x00\x00\x00\x00\x71\x01\xf2\x03\xd8\x01\x00\x00\xc2\x01\x00\x00\xf3\x02\x25\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\x98\x00\xdf\x03\x00\x00\xc1\x01\x35\x00\x00\x00\x00\x00\xcb\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\x00\x00\x00\x00\x61\x01\x51\x01\x00\x00\x00\x00\x00\x00\x03\x01\xb7\x03\xab\x03\x00\x00\x00\x00\x00\x00\x00\x00\x20\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x70\x01\xa3\x01\x14\x00\xd1\x00\xe4\x00\x42\x01\xb6\x01\x97\x03\x19\x02\x00\x00\xaa\x00\xe4\x01\x00\x00\x00\x00\x83\x03\x9f\x00\x44\x01\x00\x00\x00\x00\x70\x03\x63\x03\x00\x00\x51\x04\x00\x00\x00\x00\x76\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xae\x01\x00\x00\x67\x02\x63\x02\x00\x00\xa4\x01\x00\x00\x00\x00\x00\x00\x5b\x01\x00\x00\x12\x00\xe2\x00\x4a\x01\x00\x00\x00\x00\x43\x01\x00\x00\x4e\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xf1\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x2a\x02\x00\x00\x14\x00\x00\x00\x00\x00\xff\x01\x48\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x11\x00\xfe\x00\xdc\x00\xa5\x00\xb5\x01\x14\x00\x3b\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xf5\x01\x89\x00\x00\x00\x35\x01\x00\x00\x11\x03\x00\x00\x00\x00\x00\x00\x00\x00\x78\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x2e\x03\x4f\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xe1\x02\x13\x00\x00\x00\x00\x00\x00\x00\x37\x00\x00\x00\x00\x00\x16\x00\x00\x00\x00\x00\x00\x00\x0d\x01\x2c\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"# happyDefActions :: HappyAddr -happyDefActions = HappyA# "\xf6\xff\xd1\xff\x1c\xff\x00\x00\x00\x00\xfb\xff\x88\xff\x84\xff\x83\xff\x79\xff\x75\xff\x6b\xff\x66\xff\x5b\xff\x00\x00\x85\xff\x00\x00\x8b\xff\x39\xff\x00\x00\x82\xff\x32\xff\x39\xff\x00\x00\x47\xff\x45\xff\x44\xff\x46\xff\x48\xff\x00\x00\x80\xff\x00\x00\x8b\xff\x00\x00\x00\x00\x00\x00\x00\x00\xfa\xff\xf9\xff\xf8\xff\x00\x00\xdd\xff\x00\x00\x00\x00\x00\x00\x00\x00\xd0\xff\x00\x00\xd1\xff\xf5\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xf4\xff\x19\xff\x1a\xff\x00\x00\x1b\xff\x00\x00\x00\x00\x00\x00\x1d\xff\x5a\xff\x88\xff\x00\x00\x8b\xff\x00\x00\x00\x00\x5a\xff\x00\x00\x90\xff\x00\x00\x8a\xff\x00\x00\x8b\xff\x28\xff\x00\x00\x6a\xff\x3b\xff\x38\xff\x00\x00\x39\xff\x3a\xff\x34\xff\x31\xff\x00\x00\x00\x00\x00\x00\x81\xff\x88\xff\x00\x00\x00\x00\x00\x00\x90\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x74\xff\x00\x00\x00\x00\x6c\xff\x8b\xff\x4a\xff\x78\xff\x00\x00\x8b\xff\x60\xff\x61\xff\x62\xff\x68\xff\x69\xff\x67\xff\x63\xff\x7e\xff\x87\xff\x00\x00\x00\x00\x00\x00\x00\x00\x7a\xff\x7f\xff\x86\xff\x00\x00\x7d\xff\x32\xff\x00\x00\x00\x00\x00\x00\x39\xff\x00\x00\x56\xff\x52\xff\x53\xff\x3f\xff\x00\x00\x27\xff\x00\x00\x43\xff\x00\x00\x2f\xff\x57\xff\x00\x00\x00\x00\x8b\xff\x00\x00\x00\x00\x00\x00\x59\xff\x00\x00\x00\x00\x90\xff\x4c\xff\x40\xff\x3d\xff\x00\x00\x2b\xff\x00\x00\x00\x00\x5a\xff\x00\x00\xdc\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\x16\xff\x18\xff\x17\xff\x14\xff\x15\xff\x00\x00\xe7\xff\xe6\xff\x00\x00\x00\x00\xe8\xff\xda\xff\x00\x00\x00\x00\x90\xff\xf2\xff\xd6\xff\x00\x00\x00\x00\xcc\xff\x00\x00\x00\x00\x00\x00\x13\xff\x90\xff\x00\x00\xb1\xff\x00\x00\xbe\xff\x00\x00\x00\x00\xb5\xff\x00\x00\x00\x00\x00\x00\xb3\xff\xa5\xff\x00\x00\xbd\xff\x00\x00\xbc\xff\xb4\xff\xba\xff\xbb\xff\xb9\xff\x00\x00\xc2\xff\x00\x00\x00\x00\x00\x00\xb6\xff\xc0\xff\x90\xff\x00\x00\xc1\xff\xbf\xff\x1f\xff\x00\x00\xc3\xff\x6f\xff\x00\x00\x56\xff\x00\x00\x73\xff\x00\x00\x00\x00\x00\x00\x4e\xff\x00\x00\x6d\xff\x5a\xff\x24\xff\x8e\xff\x8d\xff\x89\xff\x5e\xff\x00\x00\x33\xff\x2e\xff\x00\x00\x00\x00\x90\xff\x00\x00\x42\xff\x00\x00\x5c\xff\x28\xff\x00\x00\x3e\xff\x00\x00\x00\x00\x37\xff\x65\xff\x00\x00\x00\x00\x34\xff\x30\xff\x00\x00\x00\x00\x7c\xff\x00\x00\x8f\xff\x00\x00\x49\xff\x90\xff\x5d\xff\x77\xff\x36\xff\x76\xff\x7b\xff\x64\xff\x00\x00\x54\xff\x29\xff\x26\xff\x51\xff\x43\xff\x00\x00\x55\xff\x4f\xff\x50\xff\x2f\xff\x00\x00\x00\x00\x00\x00\x23\xff\x00\x00\x58\xff\x54\xff\x3c\xff\x2c\xff\x2a\xff\x72\xff\x71\xff\x9f\xff\xaf\xff\x9b\xff\xaa\xff\x95\xff\x00\x00\x00\x00\x9d\xff\x00\x00\x99\xff\x93\xff\xb7\xff\xb8\xff\x00\x00\x97\xff\xb0\xff\x00\x00\x00\x00\xa1\xff\x00\x00\xd4\xff\x00\x00\xcf\xff\xe4\xff\xe5\xff\xc9\xff\xde\xff\xcb\xff\xdf\xff\xdb\xff\x00\x00\xd9\xff\xd9\xff\x00\x00\x00\x00\xe1\xff\xd8\xff\x00\x00\xdd\xff\x00\x00\xcc\xff\x00\x00\x00\x00\xce\xff\xcd\xff\x00\x00\x00\x00\xa0\xff\xc7\xff\xc6\xff\x96\xff\xa3\xff\x1f\xff\x92\xff\xa7\xff\x00\x00\x98\xff\xdd\xff\x9c\xff\xae\xff\xa2\xff\x94\xff\xac\xff\xa9\xff\xad\xff\x00\x00\x9a\xff\x20\xff\x1e\xff\x39\xff\x9e\xff\x4d\xff\x6e\xff\x24\xff\x00\x00\x8c\xff\x5f\xff\x2d\xff\x4b\xff\x41\xff\x70\xff\x25\xff\x22\xff\x00\x00\xaa\xff\x00\x00\x00\x00\x00\x00\x93\xff\xa4\xff\x00\x00\xc5\xff\xe3\xff\x00\x00\x00\x00\xca\xff\xd9\xff\x00\x00\xd5\xff\xd9\xff\x00\x00\xf0\xff\xd7\xff\xe2\xff\xe0\xff\xc8\xff\x00\x00\xd3\xff\xc4\xff\x91\xff\x00\x00\x00\x00\xab\xff\xa8\xff\x00\x00\x00\x00\xb2\xff\xa6\xff\x00\x00\x00\x00\xef\xff\x00\x00\xf3\xff\xf0\xff\x00\x00\xd2\xff\x21\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\xd1\xff\x13\xff\x00\x00\x00\x00\xfb\xff\x82\xff\x7d\xff\x7e\xff\x72\xff\x6e\xff\x64\xff\x5f\xff\x54\xff\x00\x00\x7f\xff\x00\x00\x85\xff\x30\xff\x00\x00\x00\x00\x7c\xff\x29\xff\x30\xff\x00\x00\x3e\xff\x3c\xff\x3b\xff\x3d\xff\x3f\xff\x00\x00\x7a\xff\x00\x00\x85\xff\x00\x00\x00\x00\x00\x00\x00\x00\xfa\xff\xf9\xff\xf8\xff\x00\x00\xdd\xff\x00\x00\x00\x00\x00\x00\x00\x00\xd0\xff\x00\x00\xd1\xff\xf5\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xf4\xff\x10\xff\x11\xff\x00\x00\x12\xff\x00\x00\x00\x00\x00\x00\x14\xff\x53\xff\x82\xff\x00\x00\x85\xff\x00\x00\x00\x00\x53\xff\x00\x00\x8e\xff\x00\x00\x84\xff\x00\x00\x85\xff\x1f\xff\x00\x00\x63\xff\x32\xff\x2f\xff\x00\x00\x30\xff\x31\xff\x2b\xff\x28\xff\x00\x00\x00\x00\x50\xff\x00\x00\x7b\xff\x82\xff\x00\x00\x00\x00\x00\x00\x8e\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x6d\xff\x00\x00\x00\x00\x65\xff\x85\xff\x41\xff\x71\xff\x00\x00\x85\xff\x59\xff\x5a\xff\x5b\xff\x61\xff\x62\xff\x60\xff\x5c\xff\x77\xff\x81\xff\x00\x00\x00\x00\x00\x00\x00\x00\x73\xff\x78\xff\x50\xff\x00\x00\x00\x00\x80\xff\x76\xff\x29\xff\x00\x00\x00\x00\x00\x00\x30\xff\x00\x00\x4d\xff\x4a\xff\x49\xff\x36\xff\x00\x00\x1e\xff\x00\x00\x3a\xff\x00\x00\x26\xff\x4e\xff\x00\x00\x00\x00\x85\xff\x00\x00\x00\x00\x00\x00\x52\xff\x00\x00\x00\x00\x8e\xff\x43\xff\x37\xff\x34\xff\x00\x00\x22\xff\x00\x00\x00\x00\x53\xff\x00\x00\xdc\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\x0d\xff\x0f\xff\x0e\xff\x0b\xff\x0c\xff\x00\x00\xe7\xff\xe6\xff\x00\x00\x00\x00\xe8\xff\xda\xff\x00\x00\x00\x00\x8e\xff\xf2\xff\xd6\xff\x00\x00\x00\x00\xcc\xff\x00\x00\x00\x00\x00\x00\x0a\xff\x8c\xff\x00\x00\xb1\xff\x8a\xff\x00\x00\x00\x00\xbe\xff\x00\x00\x00\x00\xb5\xff\x8a\xff\x00\x00\x00\x00\x00\x00\xb3\xff\xa3\xff\x00\x00\xbd\xff\x00\x00\xbc\xff\xb4\xff\xba\xff\xbb\xff\xb9\xff\x00\x00\xc2\xff\x00\x00\x00\x00\x00\x00\xb6\xff\xc0\xff\x8e\xff\x00\x00\xc1\xff\xbf\xff\x16\xff\x00\x00\xc3\xff\x00\x00\x68\xff\x00\x00\x4d\xff\x00\x00\x6c\xff\x00\x00\x00\x00\x00\x00\x45\xff\x00\x00\x66\xff\x53\xff\x1b\xff\x88\xff\x87\xff\x83\xff\x57\xff\x00\x00\x2a\xff\x25\xff\x00\x00\x00\x00\x8e\xff\x00\x00\x39\xff\x00\x00\x55\xff\x1f\xff\x00\x00\x35\xff\x00\x00\x00\x00\x2e\xff\x5e\xff\x00\x00\x00\x00\x2b\xff\x27\xff\x00\x00\x79\xff\x4f\xff\x00\x00\x75\xff\x00\x00\x8d\xff\x00\x00\x40\xff\x8e\xff\x56\xff\x70\xff\x2d\xff\x6f\xff\x74\xff\x5d\xff\x00\x00\x4b\xff\x20\xff\x1d\xff\x48\xff\x3a\xff\x00\x00\x4c\xff\x46\xff\x47\xff\x26\xff\x00\x00\x00\x00\x00\x00\x1a\xff\x00\x00\x51\xff\x4b\xff\x33\xff\x23\xff\x21\xff\x6b\xff\x6a\xff\x16\xff\x9d\xff\xaf\xff\x99\xff\xa8\xff\x93\xff\x00\x00\x00\x00\x9b\xff\x00\x00\x97\xff\x91\xff\xb7\xff\xb8\xff\x00\x00\x00\x00\x95\xff\xb0\xff\x00\x00\x00\x00\x00\x00\x00\x00\x9f\xff\xd4\xff\x00\x00\xcf\xff\xe4\xff\xe5\xff\xc9\xff\xde\xff\xcb\xff\xdf\xff\xdb\xff\x00\x00\xd9\xff\xd9\xff\x00\x00\x00\x00\xe1\xff\xd8\xff\x00\x00\xdd\xff\x00\x00\xcc\xff\x00\x00\x00\x00\xce\xff\xcd\xff\x00\x00\x9e\xff\x00\x00\xc7\xff\xc6\xff\x8b\xff\x94\xff\x89\xff\xa1\xff\x16\xff\x90\xff\xa5\xff\x00\x00\x96\xff\xdd\xff\x9a\xff\xac\xff\xa0\xff\x92\xff\xaa\xff\xa7\xff\xab\xff\x00\x00\x98\xff\x17\xff\x15\xff\x30\xff\x9c\xff\x00\x00\x44\xff\x67\xff\x1b\xff\x00\x00\x86\xff\x58\xff\x24\xff\x42\xff\x38\xff\x69\xff\x1c\xff\x19\xff\xae\xff\x00\x00\xa8\xff\x00\x00\x00\x00\x00\x00\x91\xff\xa2\xff\x00\x00\xc5\xff\xe3\xff\x00\x00\x00\x00\xca\xff\xd9\xff\x00\x00\xd5\xff\xd9\xff\x00\x00\xf0\xff\xd7\xff\xe2\xff\xe0\xff\xc8\xff\x00\x00\xd3\xff\xc4\xff\x8f\xff\x00\x00\x00\x00\xa9\xff\xa6\xff\x00\x00\x00\x00\x00\x00\x00\x00\xb2\xff\xa4\xff\x00\x00\x00\x00\xef\xff\x00\x00\xf3\xff\xf0\xff\x00\x00\xd2\xff\x18\xff\xad\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\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\x03\x00\x2a\x00\x15\x00\x16\x00\x2d\x00\x00\x00\x01\x00\x02\x00\x0b\x00\x32\x00\x00\x00\x01\x00\x02\x00\x03\x00\x18\x00\x03\x00\x02\x00\x05\x00\x2a\x00\x00\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\x00\x00\x0b\x00\x22\x00\x00\x00\x33\x00\x0f\x00\x10\x00\x00\x00\x01\x00\x02\x00\x2a\x00\x3a\x00\x14\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\x04\x00\x33\x00\x34\x00\x00\x00\x33\x00\x34\x00\x0a\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\x02\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\x18\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\x00\x00\x4b\x00\x00\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\x10\x00\x00\x00\x12\x00\x0e\x00\x44\x00\x45\x00\x20\x00\x47\x00\x00\x00\x01\x00\x02\x00\x03\x00\x0c\x00\x27\x00\x1c\x00\x1d\x00\x2a\x00\x0c\x00\x0d\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\x00\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\x06\x00\x06\x00\x12\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x00\x00\x01\x00\x02\x00\x03\x00\x45\x00\x37\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x21\x00\x3e\x00\x3f\x00\x05\x00\x41\x00\x37\x00\x04\x00\x28\x00\x4b\x00\x01\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\x02\x00\x06\x00\x06\x00\x01\x00\x3c\x00\x3d\x00\x3e\x00\x06\x00\x37\x00\x4b\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x00\x00\x01\x00\x02\x00\x03\x00\x37\x00\x41\x00\x00\x00\x01\x00\x02\x00\x03\x00\x46\x00\x3e\x00\x01\x00\x0c\x00\x4b\x00\x4b\x00\x07\x00\x02\x00\x00\x00\x01\x00\x02\x00\x03\x00\x0e\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x00\x00\x01\x00\x02\x00\x03\x00\x37\x00\x0d\x00\x2d\x00\x0e\x00\x02\x00\x4b\x00\x4a\x00\x3e\x00\x00\x00\x01\x00\x02\x00\x03\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x2d\x00\x2e\x00\x2f\x00\x0a\x00\x37\x00\x00\x00\x01\x00\x02\x00\x03\x00\x02\x00\x37\x00\x3e\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x00\x00\x01\x00\x02\x00\x03\x00\x37\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x2d\x00\x3e\x00\x03\x00\x4b\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\x2d\x00\x2e\x00\x3e\x00\x04\x00\x0b\x00\x08\x00\x02\x00\x4b\x00\x03\x00\x0a\x00\x37\x00\x4b\x00\x0d\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\x1b\x00\x04\x00\x3e\x00\x4b\x00\x04\x00\x04\x00\x00\x00\x04\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\x06\x00\x3e\x00\x0c\x00\x11\x00\x4b\x00\x17\x00\x3e\x00\x00\x00\x01\x00\x02\x00\x03\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x22\x00\x2d\x00\x2e\x00\x2f\x00\x04\x00\x37\x00\x01\x00\x06\x00\x2a\x00\x02\x00\x11\x00\x37\x00\x3e\x00\x00\x00\x01\x00\x02\x00\x03\x00\x2d\x00\x00\x00\x01\x00\x02\x00\x03\x00\x00\x00\x4b\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x07\x00\x08\x00\x0a\x00\x02\x00\x04\x00\x37\x00\x0c\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\x01\x00\x01\x00\x3e\x00\x01\x00\x07\x00\x02\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\x02\x00\x3e\x00\x01\x00\x4b\x00\x00\x00\x02\x00\x3e\x00\x00\x00\x01\x00\x02\x00\x03\x00\x07\x00\x08\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x37\x00\x02\x00\x01\x00\x01\x00\x01\x00\x37\x00\x4b\x00\x3e\x00\x00\x00\x01\x00\x02\x00\x03\x00\x3e\x00\x00\x00\x01\x00\x02\x00\x03\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x38\x00\x09\x00\x23\x00\x03\x00\x37\x00\x37\x00\x37\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\x07\x00\x4b\x00\x3e\x00\x04\x00\x04\x00\x01\x00\x16\x00\x0c\x00\x0e\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\x04\x00\x3e\x00\x01\x00\x01\x00\x00\x00\x08\x00\x3e\x00\x00\x00\x01\x00\x02\x00\x03\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x37\x00\x4b\x00\x04\x00\x4b\x00\x04\x00\x37\x00\x17\x00\x3e\x00\x00\x00\x01\x00\x02\x00\x03\x00\x3e\x00\x00\x00\x01\x00\x02\x00\x03\x00\x22\x00\x01\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x0d\x00\x2a\x00\x03\x00\x16\x00\x06\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\x4b\x00\x4d\x00\x3e\x00\x0d\x00\x03\x00\x07\x00\x4b\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\x04\x00\x3e\x00\x4b\x00\x00\x00\x00\x00\x06\x00\x3e\x00\x00\x00\x01\x00\x02\x00\x03\x00\x11\x00\x0c\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\x00\x00\x17\x00\x17\x00\x37\x00\x00\x00\x3e\x00\x00\x00\x01\x00\x02\x00\x03\x00\x3e\x00\x0a\x00\x22\x00\x22\x00\x07\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x2a\x00\x2a\x00\x17\x00\x17\x00\x00\x00\x37\x00\x08\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x3e\x00\x22\x00\x22\x00\x0a\x00\x20\x00\x37\x00\x37\x00\x4b\x00\x2d\x00\x2a\x00\x2a\x00\x27\x00\x3e\x00\x01\x00\x2a\x00\x17\x00\x0a\x00\x01\x00\x01\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x4b\x00\x02\x00\x22\x00\x03\x00\x02\x00\x37\x00\x4b\x00\x03\x00\x50\x00\x50\x00\x2a\x00\x25\x00\x3e\x00\x27\x00\x28\x00\x29\x00\x03\x00\x2b\x00\x03\x00\x08\x00\x50\x00\x4b\x00\x0d\x00\x12\x00\x4b\x00\x33\x00\x34\x00\x35\x00\x36\x00\x2e\x00\xff\xff\x39\x00\xff\xff\x3b\x00\x3c\x00\x3d\x00\x23\x00\x3f\x00\xff\xff\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\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 = HappyA# "\xff\xff\x00\x00\x03\x00\x02\x00\x00\x00\x0b\x00\x02\x00\x00\x00\x00\x00\x02\x00\x02\x00\x00\x00\x00\x00\x02\x00\x02\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x02\x00\x03\x00\x1a\x00\x0a\x00\x05\x00\x03\x00\x09\x00\x03\x00\x05\x00\x05\x00\x16\x00\x0b\x00\x00\x00\x0b\x00\x1a\x00\x0b\x00\x05\x00\x15\x00\x16\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x1c\x00\x1d\x00\x0d\x00\x16\x00\x0f\x00\x0c\x00\x06\x00\x1a\x00\x00\x00\x01\x00\x02\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x12\x00\x25\x00\x13\x00\x0a\x00\x28\x00\x2f\x00\x0b\x00\x2b\x00\x4c\x00\x0b\x00\x2e\x00\x39\x00\x4c\x00\x4c\x00\x2a\x00\x33\x00\x3a\x00\x0b\x00\x01\x00\x50\x00\x51\x00\x0b\x00\x50\x00\x51\x00\x4c\x00\x50\x00\x50\x00\x3f\x00\x4b\x00\x50\x00\x50\x00\x43\x00\x44\x00\x51\x00\x4c\x00\x4c\x00\x03\x00\x49\x00\x05\x00\x4c\x00\x4c\x00\x4d\x00\x4e\x00\x4f\x00\x0b\x00\x36\x00\x37\x00\x4c\x00\x0f\x00\x10\x00\x11\x00\x3c\x00\x4c\x00\x3e\x00\x4e\x00\x16\x00\x06\x00\x00\x00\x00\x00\x00\x00\x0b\x00\x46\x00\x47\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x13\x00\x25\x00\x4c\x00\x02\x00\x28\x00\x4c\x00\x03\x00\x2b\x00\x05\x00\x1b\x00\x2e\x00\x0a\x00\x03\x00\x4c\x00\x05\x00\x33\x00\x0d\x00\x4c\x00\x26\x00\x0a\x00\x11\x00\x00\x00\x01\x00\x02\x00\x2c\x00\x00\x00\x11\x00\x3f\x00\x00\x00\x1a\x00\x18\x00\x43\x00\x44\x00\x2e\x00\x00\x00\x1a\x00\x03\x00\x49\x00\x05\x00\x00\x00\x4c\x00\x4d\x00\x4e\x00\x4f\x00\x0b\x00\x00\x00\x3b\x00\x02\x00\x0f\x00\x10\x00\x11\x00\x3f\x00\x40\x00\x3f\x00\x40\x00\x16\x00\x4c\x00\x0d\x00\x4c\x00\x0f\x00\x03\x00\x00\x00\x05\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x1e\x00\x25\x00\x2b\x00\x2c\x00\x28\x00\x11\x00\x36\x00\x2b\x00\x26\x00\x00\x00\x4c\x00\x4d\x00\x4e\x00\x3d\x00\x1a\x00\x33\x00\x4c\x00\x4d\x00\x4e\x00\x3f\x00\x40\x00\x03\x00\x1e\x00\x05\x00\x48\x00\x49\x00\x00\x00\x3f\x00\x00\x00\x0b\x00\x26\x00\x43\x00\x44\x00\x0f\x00\x10\x00\x11\x00\x1b\x00\x49\x00\x00\x00\x04\x00\x4c\x00\x4d\x00\x4e\x00\x4f\x00\x18\x00\x0a\x00\x25\x00\x0d\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x00\x00\x25\x00\x1c\x00\x1d\x00\x28\x00\x00\x00\x01\x00\x02\x00\x1c\x00\x1d\x00\x4c\x00\x4d\x00\x4e\x00\x04\x00\x2a\x00\x00\x00\x03\x00\x00\x00\x05\x00\x0a\x00\x0e\x00\x00\x00\x01\x00\x02\x00\x0b\x00\x0c\x00\x2a\x00\x3f\x00\x0f\x00\x10\x00\x11\x00\x43\x00\x44\x00\x12\x00\x00\x00\x01\x00\x02\x00\x49\x00\x15\x00\x16\x00\x4c\x00\x4d\x00\x4e\x00\x4f\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x03\x00\x30\x00\x05\x00\x32\x00\x28\x00\x08\x00\x00\x00\x4c\x00\x0b\x00\x4e\x00\x36\x00\x37\x00\x0f\x00\x10\x00\x11\x00\x4d\x00\x00\x00\x01\x00\x02\x00\x00\x00\x00\x00\x00\x00\x10\x00\x43\x00\x12\x00\x45\x00\x36\x00\x00\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x3d\x00\x00\x00\x01\x00\x02\x00\x28\x00\x12\x00\x36\x00\x4c\x00\x4d\x00\x4e\x00\x4f\x00\x48\x00\x49\x00\x3d\x00\x4e\x00\x4f\x00\x03\x00\x00\x00\x05\x00\x21\x00\x20\x00\x00\x00\x01\x00\x02\x00\x0b\x00\x0e\x00\x28\x00\x27\x00\x0f\x00\x10\x00\x11\x00\x2b\x00\x2c\x00\x00\x00\x01\x00\x02\x00\x2d\x00\x36\x00\x37\x00\x30\x00\x4c\x00\x4d\x00\x4e\x00\x4f\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x03\x00\x43\x00\x05\x00\x45\x00\x28\x00\x09\x00\x36\x00\x37\x00\x0b\x00\x14\x00\x2a\x00\x02\x00\x0f\x00\x10\x00\x11\x00\x06\x00\x14\x00\x15\x00\x00\x00\x17\x00\x18\x00\x19\x00\x2d\x00\x51\x00\x38\x00\x30\x00\x36\x00\x3b\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x3d\x00\x00\x00\x00\x00\x12\x00\x28\x00\x36\x00\x37\x00\x4c\x00\x4d\x00\x4e\x00\x4f\x00\x3c\x00\x00\x00\x3e\x00\x04\x00\x05\x00\x03\x00\x00\x00\x05\x00\x00\x00\x00\x00\x46\x00\x47\x00\x00\x00\x0b\x00\x00\x00\x19\x00\x4d\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x00\x00\x00\x00\x01\x00\x02\x00\x23\x00\x4a\x00\x00\x00\x00\x00\x4c\x00\x4d\x00\x4e\x00\x4f\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x03\x00\x1f\x00\x05\x00\x4d\x00\x28\x00\x00\x00\x01\x00\x02\x00\x0b\x00\x00\x00\x2a\x00\x29\x00\x0f\x00\x10\x00\x11\x00\x19\x00\x2a\x00\x00\x00\x2a\x00\x2d\x00\x2e\x00\x2d\x00\x2e\x00\x00\x00\x38\x00\x23\x00\x00\x00\x3b\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x00\x00\x00\x00\x00\x00\x11\x00\x28\x00\x36\x00\x37\x00\x4c\x00\x4d\x00\x4e\x00\x4f\x00\x00\x00\x01\x00\x02\x00\x03\x00\x1f\x00\x03\x00\x10\x00\x05\x00\x12\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0b\x00\x29\x00\x36\x00\x37\x00\x0f\x00\x10\x00\x11\x00\x02\x00\x3c\x00\x01\x00\x3e\x00\x2a\x00\x07\x00\x00\x00\x2d\x00\x2e\x00\x4c\x00\x4d\x00\x4e\x00\x4f\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x00\x00\x01\x00\x02\x00\x03\x00\x28\x00\x00\x00\x01\x00\x02\x00\x03\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x1a\x00\x03\x00\x04\x00\x05\x00\x02\x00\x00\x00\x3a\x00\x00\x00\x0a\x00\x07\x00\x24\x00\x0d\x00\x0e\x00\x41\x00\x18\x00\x11\x00\x2a\x00\x00\x00\x01\x00\x02\x00\x00\x00\x17\x00\x4a\x00\x4b\x00\x1a\x00\x00\x00\x4c\x00\x4d\x00\x4e\x00\x4f\x00\x00\x00\x01\x00\x02\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x00\x00\x3a\x00\x00\x00\x00\x00\x00\x00\x00\x00\x3a\x00\x00\x00\x41\x00\x00\x00\x0c\x00\x3f\x00\x40\x00\x41\x00\x04\x00\x21\x00\x2a\x00\x4a\x00\x4b\x00\x2d\x00\x2e\x00\x10\x00\x28\x00\x12\x00\x00\x00\x10\x00\x0e\x00\x12\x00\x36\x00\x37\x00\x00\x00\x4c\x00\x4d\x00\x4e\x00\x3c\x00\x00\x00\x3e\x00\x00\x00\x01\x00\x02\x00\x03\x00\x36\x00\x37\x00\x07\x00\x46\x00\x47\x00\x0a\x00\x3c\x00\x26\x00\x3e\x00\x28\x00\x29\x00\x2a\x00\x04\x00\x2c\x00\x13\x00\x42\x00\x46\x00\x47\x00\x06\x00\x06\x00\x47\x00\x34\x00\x35\x00\x36\x00\x37\x00\x4c\x00\x46\x00\x3a\x00\x05\x00\x3c\x00\x3d\x00\x3e\x00\x04\x00\x40\x00\x00\x00\x01\x00\x02\x00\x03\x00\x45\x00\x46\x00\x01\x00\x48\x00\x02\x00\x2f\x00\x30\x00\x31\x00\x26\x00\x06\x00\x28\x00\x29\x00\x2a\x00\x4c\x00\x2c\x00\x06\x00\x3a\x00\x04\x00\x00\x00\x01\x00\x02\x00\x03\x00\x34\x00\x35\x00\x36\x00\x37\x00\x4d\x00\x01\x00\x3a\x00\x06\x00\x3c\x00\x3d\x00\x3e\x00\x00\x00\x40\x00\x00\x00\x01\x00\x02\x00\x03\x00\x45\x00\x46\x00\x4c\x00\x48\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x00\x00\x01\x00\x02\x00\x03\x00\x00\x00\x0c\x00\x3a\x00\x00\x00\x01\x00\x02\x00\x01\x00\x07\x00\x08\x00\x41\x00\x42\x00\x4c\x00\x44\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x00\x00\x01\x00\x02\x00\x03\x00\x07\x00\x2a\x00\x3a\x00\x03\x00\x2d\x00\x2e\x00\x02\x00\x0d\x00\x2f\x00\x41\x00\x42\x00\x0e\x00\x44\x00\x0e\x00\x35\x00\x00\x00\x01\x00\x02\x00\x03\x00\x3a\x00\x02\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x00\x00\x00\x00\x01\x00\x02\x00\x03\x00\x2e\x00\x3a\x00\x07\x00\x08\x00\x36\x00\x4c\x00\x3f\x00\x40\x00\x41\x00\x4b\x00\x2e\x00\x3d\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x00\x00\x01\x00\x02\x00\x03\x00\x0a\x00\x3a\x00\x00\x00\x01\x00\x02\x00\x03\x00\x02\x00\x4c\x00\x41\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x00\x00\x01\x00\x02\x00\x03\x00\x03\x00\x3a\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x41\x00\x00\x00\x01\x00\x02\x00\x03\x00\x3a\x00\x4c\x00\x00\x00\x01\x00\x02\x00\x03\x00\x0b\x00\x41\x00\x00\x00\x01\x00\x02\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x3a\x00\x00\x00\x01\x00\x02\x00\x03\x00\x0a\x00\x3a\x00\x41\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x41\x00\x00\x00\x01\x00\x02\x00\x03\x00\x08\x00\x3a\x00\x02\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x41\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x3a\x00\x00\x00\x01\x00\x02\x00\x03\x00\x0c\x00\x3a\x00\x41\x00\x36\x00\x4c\x00\x03\x00\x4c\x00\x04\x00\x41\x00\x01\x00\x3d\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x00\x00\x01\x00\x02\x00\x03\x00\x1c\x00\x4c\x00\x3a\x00\x04\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x41\x00\x00\x00\x04\x00\x04\x00\x0f\x00\x01\x00\x3a\x00\x00\x00\x01\x00\x02\x00\x03\x00\x06\x00\x12\x00\x41\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x00\x00\x01\x00\x02\x00\x03\x00\x4c\x00\x04\x00\x3a\x00\x02\x00\x00\x00\x01\x00\x02\x00\x03\x00\x06\x00\x41\x00\x12\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x00\x00\x01\x00\x02\x00\x03\x00\x2a\x00\x04\x00\x3a\x00\x2d\x00\x2e\x00\x0a\x00\x2e\x00\x0a\x00\x02\x00\x41\x00\x0d\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x00\x00\x01\x00\x02\x00\x03\x00\x0c\x00\x4c\x00\x3a\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x04\x00\x41\x00\x00\x00\x2f\x00\x30\x00\x31\x00\x3a\x00\x00\x00\x01\x00\x02\x00\x03\x00\x4c\x00\x01\x00\x41\x00\x3a\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x00\x00\x01\x00\x02\x00\x03\x00\x01\x00\x01\x00\x3a\x00\x02\x00\x00\x00\x01\x00\x02\x00\x03\x00\x01\x00\x41\x00\x07\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x00\x00\x01\x00\x02\x00\x03\x00\x2a\x00\x02\x00\x3a\x00\x2d\x00\x2e\x00\x01\x00\x4c\x00\x02\x00\x02\x00\x41\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x00\x00\x01\x00\x02\x00\x03\x00\x0a\x00\x01\x00\x3a\x00\x01\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x41\x00\x01\x00\x4c\x00\x2f\x00\x30\x00\x31\x00\x3a\x00\x00\x00\x01\x00\x02\x00\x03\x00\x09\x00\x03\x00\x41\x00\x3a\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x00\x00\x01\x00\x02\x00\x03\x00\x39\x00\x24\x00\x3a\x00\x04\x00\x38\x00\x38\x00\x00\x00\x07\x00\x04\x00\x41\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x00\x00\x01\x00\x02\x00\x03\x00\x01\x00\x17\x00\x3a\x00\x4c\x00\x0e\x00\x04\x00\x0f\x00\x01\x00\x01\x00\x41\x00\x17\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x00\x00\x01\x00\x02\x00\x03\x00\x01\x00\x22\x00\x3a\x00\x4c\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x41\x00\x2b\x00\x2c\x00\x04\x00\x04\x00\x4c\x00\x3a\x00\x00\x00\x01\x00\x02\x00\x03\x00\x08\x00\x03\x00\x41\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x00\x00\x01\x00\x02\x00\x03\x00\x0d\x00\x17\x00\x3a\x00\x4c\x00\x00\x00\x01\x00\x02\x00\x03\x00\x06\x00\x41\x00\x0c\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x00\x00\x01\x00\x02\x00\x03\x00\x4d\x00\x4c\x00\x3a\x00\x0d\x00\x4c\x00\x03\x00\x4c\x00\x04\x00\x07\x00\x41\x00\x06\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x00\x00\x01\x00\x02\x00\x03\x00\x0c\x00\x0a\x00\x3a\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x12\x00\x41\x00\x07\x00\x2f\x00\x30\x00\x08\x00\x3a\x00\x00\x00\x01\x00\x02\x00\x03\x00\x0a\x00\x2e\x00\x41\x00\x3a\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x00\x00\x01\x00\x02\x00\x03\x00\x01\x00\x38\x00\x3a\x00\x4c\x00\x00\x00\x01\x00\x02\x00\x03\x00\x0a\x00\x41\x00\x4c\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x00\x00\x01\x00\x02\x00\x03\x00\x01\x00\x01\x00\x3a\x00\x00\x00\x01\x00\x02\x00\x02\x00\x02\x00\x51\x00\x41\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x00\x00\x01\x00\x02\x00\x03\x00\x4c\x00\x03\x00\x3a\x00\x4c\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x41\x00\x51\x00\x03\x00\x2f\x00\x03\x00\x00\x00\x3a\x00\x03\x00\x4c\x00\x35\x00\x00\x00\x08\x00\x00\x00\x41\x00\x3a\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x00\x00\x01\x00\x02\x00\x03\x00\x51\x00\x00\x00\x3a\x00\x00\x00\x0d\x00\x36\x00\x13\x00\x1a\x00\x2f\x00\x41\x00\x2f\x00\x30\x00\x3d\x00\x00\x00\x01\x00\x02\x00\x03\x00\x24\x00\x20\x00\x00\x00\x20\x00\x3a\x00\x4c\x00\x2a\x00\x17\x00\x27\x00\x17\x00\x27\x00\xff\xff\x2b\x00\x2c\x00\x2b\x00\x2c\x00\x00\x00\xff\xff\x22\x00\x00\x00\x22\x00\x00\x00\xff\xff\xff\xff\x00\x00\xff\xff\x2f\x00\x2b\x00\x2c\x00\x2b\x00\x2c\x00\xff\xff\xff\xff\xff\xff\x20\x00\xff\xff\xff\xff\x3a\x00\x00\x00\x17\x00\xff\xff\x27\x00\x17\x00\x2f\x00\x17\x00\x2b\x00\x2c\x00\x17\x00\xff\xff\x00\x00\x22\x00\x00\x00\xff\xff\x22\x00\x3a\x00\x22\x00\xff\xff\xff\xff\x22\x00\x2b\x00\x2c\x00\x00\x00\x2b\x00\x2c\x00\x2b\x00\x2c\x00\xff\xff\x2b\x00\x2c\x00\xff\xff\x20\x00\xff\xff\x17\x00\xff\xff\x17\x00\xff\xff\xff\xff\x27\x00\xff\xff\xff\xff\xff\xff\x2b\x00\x2c\x00\x22\x00\xff\xff\x22\x00\x24\x00\x1a\x00\x1b\x00\x27\x00\xff\xff\xff\xff\x2b\x00\x2c\x00\x2b\x00\x2c\x00\xff\xff\x24\x00\x25\x00\x31\x00\x32\x00\xff\xff\x26\x00\x2a\x00\x28\x00\x29\x00\x2a\x00\xff\xff\x2c\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x41\x00\x34\x00\x35\x00\x36\x00\x37\x00\x46\x00\xff\xff\x3a\x00\xff\xff\x3c\x00\x3d\x00\x3e\x00\xff\xff\x40\x00\xff\xff\xff\xff\xff\xff\xff\xff\x45\x00\x46\x00\xff\xff\x48\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"# happyTable :: HappyAddr -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\x5a\x01\x57\x01\x95\x00\x58\x00\x96\x00\x47\x01\x74\x00\xf1\x00\x57\x01\x12\x00\x7b\x01\x13\x00\x02\x01\x7f\x00\x57\x01\x97\x00\x5a\x01\x14\x00\x4b\x00\xcb\x01\xc6\x01\x15\x00\x16\x00\x7f\x00\x98\x00\xc5\x01\xcc\x01\x17\x00\x95\x00\x5e\x00\x96\x00\x58\x00\x9f\x01\xea\x00\xf2\x00\x18\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x97\x00\x1e\x00\xf3\x00\xf4\x00\x1f\x00\x06\x00\xb9\x01\x20\x00\xec\x00\x98\x00\x62\x00\x72\x00\x06\x00\x06\x00\x06\x00\x21\x00\x54\x00\x18\x01\xab\x00\xa1\x01\xbd\x00\xff\xff\x3d\x00\xd4\x00\x3d\x00\x3e\x00\xbe\x00\x22\x00\xbf\x00\x06\x00\xc1\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\x64\x01\xb1\x01\x15\x00\x16\x00\x4b\x00\x06\x00\x26\x00\x53\x00\x17\x00\x5c\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\x0e\x01\x2f\x00\x1f\x00\x53\x00\xa9\x00\x20\x00\xa2\x01\x5e\x01\x62\x00\xfa\x00\x8e\x00\x8f\x00\xaa\x00\x21\x00\x44\x00\x07\x00\x08\x00\x09\x00\xab\x00\x12\x00\xae\x01\x13\x00\x0f\x01\xb3\x01\xaf\x01\x22\x00\x77\x01\x14\x00\x22\x01\x23\x00\x24\x00\x15\x00\x16\x00\x10\x01\xf7\xff\x25\x00\x92\x01\x17\x00\x06\x00\x26\x00\x27\x00\x28\x00\x0f\x01\x54\x00\x89\x00\x18\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x2e\x00\x1e\x00\x10\x01\x2f\x00\x1f\x00\x11\x01\x78\x01\x20\x00\x86\x01\xa2\x00\x0a\x01\x40\x00\x54\x00\x55\x00\x54\x01\x21\x00\xb0\x01\x31\x00\x0f\x00\x55\x01\x4b\x00\x12\x00\x0b\x01\x48\x00\x90\x01\x41\x00\x42\x00\x22\x00\x84\x01\x14\x00\x2c\x00\x23\x00\x24\x00\x15\x00\x16\x00\x4b\x00\x87\x01\x25\x00\x77\x01\x9c\x00\x06\x00\x26\x00\x27\x00\x28\x00\x9d\x00\x4b\x00\xea\x00\x18\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x66\x00\x1e\x00\xf2\x00\x7d\x01\x1f\x00\x8d\x00\x8e\x00\x8f\x00\xea\x00\xec\x00\x67\x00\x68\x00\x85\x01\x69\x00\x6a\x00\x6b\x00\x78\x01\x12\x00\xeb\x00\x48\x00\x06\x00\x26\x00\x35\xff\x99\x01\xec\x00\x14\x00\x79\x01\x22\x00\x4b\x00\x15\x00\x16\x00\x23\x00\x24\x00\x5c\x01\x4c\x00\x4d\x00\x07\x01\x25\x00\x9c\x01\xca\x01\x06\x00\x26\x00\x27\x00\x28\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x71\x00\xa4\x01\x89\x01\xcb\x01\x1f\x00\x5d\x01\x5e\x01\x90\x00\x49\x00\x8d\x00\x8e\x00\x8f\x00\x15\x00\x16\x00\x91\x00\x6c\x00\xa0\x01\x57\x01\xfa\x00\x8e\x00\x8f\x00\x4c\x00\x4d\x00\x23\x01\xd5\x00\x92\x00\x2f\x01\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x95\x00\xa9\x01\x96\x00\x67\x01\x1f\x00\x57\x01\xa7\x01\x7f\x00\x06\x00\x26\x00\x27\x00\x28\x00\x25\x01\x97\x00\x7e\x00\xd6\x00\x6f\x01\x12\x00\x70\x01\x48\x00\x7f\x00\x4b\x00\x98\x00\x58\x01\x6a\x01\x14\x00\x72\x01\x4b\x00\x90\x00\x15\x00\x16\x00\xfa\x00\x8e\x00\x8f\x00\xd8\x00\x8a\x01\x6d\x01\xa2\x00\x0a\x01\x7f\x01\x06\x00\x26\x00\x27\x00\x28\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x71\x00\x0b\x01\x48\x00\x0c\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\xfa\x00\x8e\x00\x8f\x00\x4c\x00\x4d\x00\x4e\x00\x06\x00\x26\x00\x27\x00\x44\x01\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x2b\x00\xa2\x00\x91\x01\x2d\x01\x1f\x00\x95\x00\x7e\x00\x96\x00\x06\x00\x26\x00\x27\x00\x28\x00\x7f\x00\x2c\x00\x61\x01\x02\x01\x56\xff\x47\x00\x97\x00\x48\x00\x06\x00\x07\x00\x08\x00\x09\x00\x56\xff\x49\x00\x62\x00\x98\x00\x90\x00\x15\x00\x16\x00\x44\x00\x07\x00\x08\x00\x09\x00\x00\x01\xa2\x00\x0d\x01\xf5\x00\xf5\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\x3d\x01\x8d\x00\x8e\x00\x8f\x00\xc2\x01\xf6\x00\xf6\x00\x0a\x00\x0b\x00\x78\x00\x4c\x00\x4d\x00\x63\x00\xc3\x01\x5a\x01\x89\x01\xf7\x00\x0f\x00\x6f\x00\x06\x00\x26\x00\x27\x00\xa1\x00\x8e\x00\x8f\x00\xfa\x00\x8e\x00\x8f\x00\x0f\x00\x5b\x00\x5c\x00\x06\x00\x26\x00\x27\x00\x28\x00\x5b\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x39\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x39\x01\x0f\x00\xfa\x00\x8e\x00\x8f\x00\xe1\x00\x0f\x00\x90\x00\x10\x00\x8d\x00\x8e\x00\x8f\x00\x5f\x01\x10\x00\x91\x00\xd5\x00\xda\x00\x3a\x01\x95\x01\x4c\x00\x4d\x00\x63\x00\x3a\x01\x3b\x01\x4b\x00\x92\x00\x93\x00\x34\x01\xa2\x00\xa3\x00\xe4\x00\xa2\x00\xa3\x00\x7f\x00\xa4\x00\xe2\x00\xa5\x00\xa4\x00\xd6\x00\xa5\x00\xfa\x00\x8e\x00\x8f\x00\x7b\x01\xa6\x00\xa7\x00\x57\x01\xa6\x00\x2c\x01\xd7\x00\x28\x00\x29\x00\xe1\x00\xa2\x00\xa3\x00\xed\x00\xdb\x00\xd8\x00\x81\x01\xa4\x00\x90\x00\xa5\x00\xab\x01\x75\x01\x67\x01\xab\x01\xdd\x00\x56\x01\x1e\x01\xa6\x00\x40\x01\x2f\x00\x30\x00\x24\x01\xfa\x00\x8e\x00\x8f\x00\x8d\x00\x8e\x00\x8f\x00\x21\x01\xcb\x00\xe2\x00\x8d\x00\x8e\x00\x8f\x00\x82\x01\xb4\x01\xee\x00\x80\x00\xe3\x00\xa2\x00\xa3\x00\x57\x01\xcc\x00\x80\x01\xcd\x00\xa4\x00\xad\x00\xa5\x00\xae\x00\xaf\x00\xb0\x00\xb3\x01\xb1\x00\xc2\x00\xab\x00\xa6\x00\xfb\x00\x66\x01\xdf\x00\x67\x01\xb2\x00\xb3\x00\xb4\x00\xb5\x00\xe0\x00\xc3\x00\xb6\x00\xc4\x00\xb7\x00\xb8\x00\xb9\x00\xce\x00\xba\x00\xa2\x00\xa3\x00\xc5\x00\x90\x00\xbb\x00\xbc\x00\xa4\x00\xbd\x00\x3e\x01\x90\x00\x00\x01\xad\x00\x4b\x00\xae\x00\xaf\x00\xb0\x00\x15\x01\xb1\x00\x06\x00\x07\x00\x08\x00\x09\x00\x57\x01\x06\x00\x81\x01\xb2\x00\xb3\x00\xb4\x00\xb5\x00\x4b\x00\x4b\x00\xb6\x00\xc6\x00\xb7\x00\xb8\x00\xb9\x00\xc7\x00\xba\x00\x68\x01\x32\x00\x67\x01\x42\x00\xbb\x00\xbc\x00\xdb\x00\xbd\x00\x06\x00\x07\x00\x08\x00\x09\x00\x33\x00\x4e\x01\x82\x01\x83\x01\xdd\x00\x85\x00\x86\x00\x5e\x00\x07\x00\x08\x00\x09\x00\xdb\x00\xdb\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x1c\x01\x4f\x01\xdc\x00\x52\x00\xdd\x00\xdd\x00\x0f\x00\xed\x00\x5e\x00\x07\x00\x08\x00\x09\x00\x3b\xff\x10\x00\x59\x00\x3b\xff\x1d\x01\x44\x00\x07\x00\x08\x00\x09\x00\xce\x01\xcf\x01\x6f\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x58\x00\x06\x00\x07\x00\x08\x00\x09\x00\xc9\x01\x0f\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x5f\x00\xee\x00\x10\x00\x59\x00\xc8\x01\x5a\x00\x0f\x00\xbe\x01\xef\x00\x06\x00\xbf\x01\x54\x00\x96\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\xc0\x01\xc1\x01\xc2\x01\xb8\x01\x54\x00\x60\x00\x10\x00\xb9\x01\x0f\x00\x06\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x9e\x00\x3c\x01\x06\x00\x07\x00\x08\x00\x09\x00\x0f\x00\xd0\x00\x06\x00\x07\x00\x08\x00\x09\x00\xd1\x00\x10\x00\xa9\x01\xad\x01\x06\x00\x06\x00\xb6\x01\x47\x01\x06\x00\x07\x00\x08\x00\x09\x00\x98\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x9e\x00\xf9\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0f\x00\x99\x01\x9b\x01\x9c\x01\x9e\x01\x06\x00\xa4\x01\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x9e\x00\x9f\x00\x0a\x00\x0b\x00\x79\x00\xa7\x01\x0f\x00\x44\x00\x07\x00\x08\x00\x09\x00\x66\x01\x0f\x00\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x9e\x00\xaa\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0f\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\xb6\x01\xa6\x01\x10\x00\x6a\x01\x06\x00\x6c\x01\x0f\x00\x06\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\xaf\x01\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x6c\x00\x10\x00\x7e\x00\x6d\x01\x71\x01\x72\x01\x06\x00\x7d\x01\x7f\x00\x0f\x00\x06\x00\x80\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x94\x01\x06\x00\x07\x00\x08\x00\x09\x00\x8d\x01\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x8e\x01\x8c\x01\x10\x00\x06\x00\x94\x01\x27\x01\xd5\x00\x28\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x9e\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x73\x01\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0f\x00\x29\x01\x10\x00\x2a\x01\x2b\x01\x06\x00\xd6\x00\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x74\x01\xd9\x00\x0a\x00\x0b\x00\x7a\x00\x31\x01\x0f\x00\x32\x01\x35\x01\xd8\x00\x33\x01\x36\x01\x0f\x00\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\x38\x01\x06\x00\x07\x00\x08\x00\x09\x00\xba\x01\x06\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x76\x01\xbb\x01\xc4\x01\x37\x01\x39\x01\x42\x01\x0f\x00\x43\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x7e\x01\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x44\x01\x46\x01\x10\x00\x48\x01\x4a\x01\x49\x01\x4b\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x8e\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x8f\x01\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0f\x00\x4c\x01\x10\x00\x4d\x01\x06\x00\xba\x01\x4e\x01\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\xbb\x01\xbc\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x2b\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x2e\x01\x0f\x00\x51\x01\x52\x01\x53\x01\x56\x01\x0f\x00\x06\x00\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x3f\x01\x63\x01\x61\x01\x65\x01\xcb\x00\xd2\x00\x0f\x00\xd3\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x05\x01\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\xd4\x00\x06\x00\x10\x00\xf9\x00\xfd\x00\xfe\x00\xff\x00\x85\x00\x00\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x06\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x08\x01\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0f\x00\x03\x01\x10\x00\x04\x01\x05\x01\xd5\x00\x15\x01\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x19\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x1b\x01\x0f\x00\x06\x00\x0a\x01\x06\x00\x13\x01\x0f\x00\xd6\x00\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\xe0\x00\x14\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x1f\x01\x17\x01\xd8\x00\x18\x01\x1b\x01\x21\x01\x0f\x00\x06\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x75\x00\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x06\x00\x27\x00\x10\x00\x6e\x00\x75\x00\x82\x00\x06\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x76\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x77\x00\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0f\x00\x7d\x00\x10\x00\x06\x00\xd5\x00\xd5\x00\x83\x00\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\x87\x00\x84\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x7b\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x9d\x00\x0f\x00\xd5\x00\xd5\x00\xd6\x00\xd6\x00\x0f\x00\x4b\x00\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\x10\x00\x88\x00\xe5\x00\xe6\x00\x89\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x5f\x00\xd8\x00\xd8\x00\xd6\x00\xd6\x00\xd5\x00\x0f\x00\x8b\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x51\x00\x10\x00\xe7\x00\xe9\x00\x8c\x00\xdb\x00\x0f\x00\x8d\x00\x06\x00\x9a\x00\xd8\x00\xd8\x00\xe8\x00\x10\x00\x9b\x00\xdd\x00\xd6\x00\x7f\x00\xc1\x00\x3b\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x0e\x00\x06\x00\xc9\x00\xf0\x00\x44\x00\xca\x00\x0f\x00\x06\x00\x4a\x00\xff\xff\xff\xff\xd8\x00\xad\x00\x10\x00\xae\x00\xaf\x00\xb0\x00\x4b\x00\xb1\x00\x51\x00\x65\x00\xff\xff\x06\x00\x6e\x00\x6f\x00\x06\x00\xb2\x00\xb3\x00\xb4\x00\xb5\x00\x2b\x00\x00\x00\xb6\x00\x00\x00\xb7\x00\xb8\x00\xb9\x00\x35\x00\xba\x00\x00\x00\x36\x00\x00\x00\x00\x00\xbb\x00\xbc\x00\x00\x00\xbd\x00\x00\x00\x00\x00\x00\x00\x37\x00\x38\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\x39\x00\x00\x00\x00\x00\x00\x00\x00\x00\x3a\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 = HappyA# "\x00\x00\x3c\x00\x51\x00\x3d\x00\x3c\x00\xdf\x00\x3d\x00\x3c\x00\x3c\x00\x3d\x00\x3d\x00\x3c\x00\x3c\x00\x3d\x00\x3d\x00\x3c\x00\x73\x00\x90\x01\x69\x01\xd6\x01\x45\x00\x07\x00\x08\x00\x09\x00\x59\x00\x81\x00\x67\x01\xad\x00\xd7\x01\x12\x00\x8a\x01\x13\x00\x58\x00\xda\x01\xcf\x00\xae\x00\x59\x00\x14\x00\x67\x01\xb3\x01\x6b\x01\x15\x00\x16\x00\x17\x00\x64\x01\x91\x01\xc5\x01\xd0\x00\x18\x00\xd1\x00\x60\x00\x32\x00\x59\x00\x02\x01\x92\x00\x93\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\xdf\x01\x1f\x00\x2d\x00\xd9\x01\x20\x00\x95\x01\x00\x01\x21\x00\x06\x00\xdf\x00\x64\x00\x74\x00\x06\x00\x06\x00\xd2\x00\x22\x00\x0f\x00\xdf\x00\xc8\x01\x3e\x00\xd8\x00\x00\x01\x3e\x00\x3f\x00\x06\x00\xc1\x00\xc2\x00\x23\x00\x71\x01\xc3\x00\xc5\x00\x24\x00\x25\x00\xff\xff\x96\x01\x06\x00\x12\x00\x26\x00\x13\x00\x06\x00\x06\x00\x27\x00\x28\x00\x29\x00\x14\x00\xa6\x00\xa7\x00\x06\x00\x15\x00\x16\x00\x17\x00\xa8\x00\x06\x00\xa9\x00\x28\x00\x18\x00\x2c\x00\x54\x00\xcc\x01\x54\x00\xdf\x00\xaa\x00\x36\x01\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x2d\x00\x1f\x00\x06\x00\x52\x01\x20\x00\x06\x00\x99\x00\x21\x00\x9a\x00\x76\x00\x64\x00\x81\x00\x99\x00\x06\x00\x9a\x00\x22\x00\x0a\x01\x06\x00\xe6\x00\x5d\x01\x9b\x00\x91\x00\x92\x00\x93\x00\xe7\x00\x54\x00\x9b\x00\x23\x00\xd9\x00\x9c\x00\xaf\x00\x24\x00\x25\x00\xde\x01\xc2\x01\x9c\x00\x12\x00\x26\x00\x13\x00\xe8\x00\x06\x00\x27\x00\x28\x00\x29\x00\x14\x00\x5d\x00\xdf\x01\x5e\x00\x15\x00\x16\x00\x17\x00\x55\x00\x20\x01\x55\x00\x8d\x00\x18\x00\x06\x00\x89\x00\x06\x00\x8a\x00\x99\x00\xe8\x00\x9a\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\xe9\x00\x1f\x00\xe3\x00\x84\x01\x20\x00\x9b\x00\x94\x00\x21\x00\x8a\x01\x93\x01\x06\x00\x27\x00\x28\x00\x95\x00\x9c\x00\x22\x00\x06\x00\x27\x00\x28\x00\x55\x00\x56\x00\x12\x00\xe9\x00\x49\x00\x96\x00\x39\x01\x4c\x00\x23\x00\x90\x01\x14\x00\xea\x00\x24\x00\x25\x00\x15\x00\x16\x00\x17\x00\xf9\x00\x26\x00\x4c\x00\x80\x00\x06\x00\x27\x00\x28\x00\x29\x00\xaf\x00\x81\x00\x94\x01\x41\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\xc4\x01\x1f\x00\x91\x01\x92\x01\x20\x00\x02\x01\x92\x00\x93\x00\x42\x00\x43\x00\x06\x00\x27\x00\x28\x00\x3e\x01\xb2\x01\x64\x01\x73\x00\x69\x01\x98\x01\x81\x00\xaa\x01\x91\x00\x92\x00\x93\x00\x14\x00\xa7\x01\x2c\x01\x23\x00\x4a\x00\x16\x00\x17\x00\x24\x00\x25\x00\xe0\x01\x91\x00\x92\x00\x93\x00\x26\x00\x6a\x01\x6b\x01\x06\x00\x27\x00\x28\x00\x29\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x12\x00\x7c\x01\x49\x00\x7d\x01\x20\x00\x2c\xff\x64\x01\x06\x00\x14\x00\x28\x00\xa6\x00\x12\x01\x15\x00\x16\x00\x17\x00\xad\x01\x02\x01\x92\x00\x93\x00\xf4\x00\x64\x01\xd9\x00\xba\x01\x13\x01\x74\x01\xa0\x01\x94\x00\xb1\x01\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x95\x00\x02\x01\x92\x00\x93\x00\x20\x00\xb0\x01\x94\x00\x06\x00\x27\x00\x28\x00\x29\x00\x96\x00\x97\x00\x9a\x01\x29\x00\x2a\x00\x73\x00\x4c\x00\x98\x01\xf5\x00\xe1\x00\x91\x00\x92\x00\x93\x00\x14\x00\xb5\x01\x8f\x01\x83\x01\x4a\x00\x16\x00\x17\x00\xe3\x00\xe4\x00\x02\x01\x92\x00\x93\x00\x2f\x00\xa6\x00\x12\x01\x30\x00\x06\x00\x27\x00\x28\x00\x29\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x73\x00\x13\x01\x49\x00\x14\x01\x20\x00\x68\x00\xa6\x00\xa1\x01\x14\x00\x7a\x01\x17\x01\xbf\x01\x4a\x00\x16\x00\x17\x00\xc0\x01\x69\x00\x6a\x00\x64\x01\x6b\x00\x6c\x00\x6d\x00\x2f\x00\xf7\xff\x18\x01\x30\x00\x94\x00\xa2\x01\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x08\x01\xfc\x00\xb8\x01\x65\x01\x20\x00\xa6\x00\xa7\x00\x06\x00\x27\x00\x28\x00\x29\x00\xa8\x00\x77\x01\xa9\x00\x30\x00\x31\x00\x12\x00\x16\x01\x49\x00\x86\x01\x8e\x01\xaa\x00\x4a\x01\x4c\x00\x14\x00\x4c\x00\xfd\x00\x99\x01\x15\x00\x16\x00\x17\x00\x37\x01\x47\x01\x02\x01\x92\x00\x93\x00\x98\x01\x6e\x00\x4d\x01\xfc\x00\x06\x00\x27\x00\x28\x00\x29\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x73\x00\x87\x01\x49\x00\x4f\x01\x20\x00\x02\x01\x92\x00\x93\x00\x14\x00\x5f\x01\x17\x01\xc1\x01\x4a\x00\x16\x00\x17\x00\xfd\x00\x4d\x00\x86\x01\x4d\x00\x4e\x00\x0f\x01\x4e\x00\x2d\x01\x67\x01\x18\x01\xfe\x00\x2f\x01\x19\x01\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x68\x01\x64\x01\x6c\x01\x6e\x01\x20\x00\xa6\x00\x15\x01\x06\x00\x27\x00\x28\x00\x29\x00\x06\x00\x07\x00\x08\x00\x09\x00\x87\x01\x48\x00\xbc\x01\x49\x00\x74\x01\xe0\x00\xeb\x00\x26\x01\x2b\x01\x14\x00\x88\x01\xa6\x00\xa7\x00\x4a\x00\x16\x00\x17\x00\x61\x01\xa8\x00\x2e\x01\x48\x01\x4d\x00\x62\x01\x4c\x00\x4e\x00\x65\x00\x06\x00\x27\x00\x28\x00\x29\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x06\x00\x07\x00\x08\x00\x09\x00\x20\x00\x60\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x43\x01\xf1\x00\x99\x00\x80\x00\x9a\x00\xa0\x00\x82\x00\x0f\x00\xa4\x00\x81\x00\xa1\x00\x8c\x01\x0a\x01\x4d\xff\x10\x00\xaf\x00\x9b\x00\xf3\x00\xa5\x00\x92\x00\x93\x00\xc6\x00\x4d\xff\x44\x01\xa5\x01\x9c\x00\xf4\x00\x06\x00\x27\x00\x28\x00\x29\x00\x02\x01\x92\x00\x93\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x43\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x61\x00\xc7\x00\x0f\x00\xc8\x00\xc9\x00\xca\x00\x64\x01\x0f\x00\xcb\x00\x10\x00\x64\x01\x34\x00\x55\x00\xa7\x01\x10\x00\xbc\x01\xf5\x00\x4d\x00\x44\x01\x45\x01\x4e\x00\x65\x00\x73\x01\xf6\x00\x74\x01\x33\x00\x75\x01\x43\x00\x74\x01\xa6\x00\xa7\x00\x53\x00\x06\x00\x27\x00\x28\x00\xa8\x00\x5c\x00\xa9\x00\x06\x00\x07\x00\x08\x00\x09\x00\xa6\x00\xa7\x00\x32\xff\xaa\x00\xab\x00\x32\xff\xa8\x00\xb1\x00\xa9\x00\xb2\x00\xb3\x00\xb4\x00\xc4\x01\xb5\x00\x71\x00\xd4\x00\xaa\x00\x03\x01\xe2\x01\xe3\x01\xd5\x00\xb6\x00\xb7\x00\xb8\x00\xb9\x00\x06\x00\xdd\x01\xba\x00\xdc\x01\xbb\x00\xbc\x00\xbd\x00\xd1\x01\xbe\x00\x06\x00\x07\x00\x08\x00\x09\x00\xbf\x00\xc0\x00\xd2\x01\xc1\x00\xd3\x01\x0a\x00\x0b\x00\x7a\x00\xb1\x00\xd4\x01\xb2\x00\xb3\x00\xb4\x00\x06\x00\xb5\x00\xd5\x01\x0f\x00\xd6\x01\x06\x00\x07\x00\x08\x00\x09\x00\xb6\x00\xb7\x00\xb8\x00\xb9\x00\x27\x00\xcb\x01\xba\x00\xcc\x01\xbb\x00\xbc\x00\xbd\x00\x4c\x00\xbe\x00\x45\x00\x07\x00\x08\x00\x09\x00\xbf\x00\xc0\x00\x06\x00\xc1\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x24\x01\x60\x00\x07\x00\x08\x00\x09\x00\xcd\x01\xbe\x01\x0f\x00\x91\x00\x92\x00\x93\x00\xba\x01\xce\x01\xd8\x01\x10\x00\x5a\x00\x06\x00\x25\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x59\x00\x06\x00\x07\x00\x08\x00\x09\x00\xc7\x01\x4d\x00\x0f\x00\xc8\x01\x4e\x00\x9c\x00\x52\x01\xaa\x01\x86\x00\x10\x00\x5a\x00\xa9\x01\x5b\x00\xad\x01\x28\x01\x06\x00\x07\x00\x08\x00\x09\x00\x0f\x00\xaf\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x61\x00\xcd\x01\x06\x00\x07\x00\x08\x00\x09\x00\xac\x01\x0f\x00\xce\x01\xcf\x01\x94\x00\x06\x00\x55\x00\x62\x00\x10\x00\xb5\x01\xb7\x01\x62\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\xa2\x00\x46\x01\x06\x00\x07\x00\x08\x00\x09\x00\xb8\x01\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x73\x01\x06\x00\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\xa2\x00\x01\x01\x06\x00\x07\x00\x08\x00\x09\x00\x77\x01\x0f\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\xa2\x00\xa3\x00\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0f\x00\x06\x00\x06\x00\x07\x00\x08\x00\x09\x00\x7a\x01\x10\x00\x91\x00\x92\x00\x93\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\xa2\x00\xae\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\xc9\x01\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x79\x01\x0f\x00\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\xc0\x01\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\x7e\x01\x0f\x00\x80\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\xa4\x01\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\xaf\x01\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x83\x01\x0f\x00\x10\x00\x94\x00\x06\x00\x8c\x01\x06\x00\x9c\x01\x10\x00\x9d\x01\x08\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x80\x01\x06\x00\x07\x00\x08\x00\x09\x00\x9e\x01\x06\x00\x0f\x00\xa4\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x81\x01\x10\x00\x4c\x00\x31\x01\x32\x01\x34\x01\x3c\x01\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x33\x01\x35\x01\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x85\x01\x06\x00\x07\x00\x08\x00\x09\x00\x06\x00\x3b\x01\x0f\x00\x3d\x01\x06\x00\x07\x00\x08\x00\x09\x00\x3f\x01\x10\x00\x40\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x8d\x01\x06\x00\x07\x00\x08\x00\x09\x00\x4d\x00\x80\x00\x0f\x00\x4e\x00\x4f\x00\x41\x01\x42\x01\x81\x00\x43\x01\x10\x00\x82\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x9e\x01\x06\x00\x07\x00\x08\x00\x09\x00\x4d\x01\x06\x00\x0f\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x9f\x01\x4c\x01\x10\x00\x64\x00\x0a\x00\x0b\x00\x7b\x00\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x06\x00\x4f\x01\x10\x00\x0f\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x35\x01\x06\x00\x07\x00\x08\x00\x09\x00\x51\x01\x53\x01\x0f\x00\x54\x01\x06\x00\x07\x00\x08\x00\x09\x00\x56\x01\x10\x00\x55\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x38\x01\x06\x00\x07\x00\x08\x00\x09\x00\x4d\x00\x57\x01\x0f\x00\x4e\x00\x65\x00\x58\x01\x06\x00\x59\x01\x5c\x01\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x49\x01\x06\x00\x07\x00\x08\x00\x09\x00\x5d\x01\x5e\x01\x0f\x00\x5f\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x0d\x01\x10\x00\x64\x01\x06\x00\x0a\x00\x0b\x00\x7c\x00\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x6e\x01\xcf\x00\x10\x00\x0f\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x0e\x01\x06\x00\x07\x00\x08\x00\x09\x00\x70\x01\x72\x01\x0f\x00\x01\x01\xd6\x00\xd7\x00\xd9\x00\xd8\x00\x05\x01\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x10\x01\x06\x00\x07\x00\x08\x00\x09\x00\x06\x01\x07\x01\x0f\x00\x06\x00\x08\x01\x0b\x01\x8a\x00\x0c\x01\x0d\x01\x10\x00\xda\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x21\x01\x06\x00\x07\x00\x08\x00\x09\x00\x1c\x01\x7e\x01\x0f\x00\x06\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x23\x01\x10\x00\xdc\x00\xdd\x00\x12\x01\x1b\x01\x06\x00\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x1d\x01\x20\x01\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x29\x01\x06\x00\x07\x00\x08\x00\x09\x00\x1f\x01\x23\x01\x0f\x00\x06\x00\x45\x00\x07\x00\x08\x00\x09\x00\x2b\x01\x10\x00\x28\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x77\x00\x06\x00\x07\x00\x08\x00\x09\x00\x27\x00\x06\x00\x0f\x00\x70\x00\x06\x00\x77\x00\x06\x00\x7f\x00\x84\x00\x10\x00\x85\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x78\x00\x06\x00\x07\x00\x08\x00\x09\x00\x86\x00\x8c\x00\x0f\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x79\x00\x8b\x00\x10\x00\x8d\x00\x0a\x00\x6e\x00\x8f\x00\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x90\x00\x9e\x00\x10\x00\x0f\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x7d\x00\x06\x00\x07\x00\x08\x00\x09\x00\x9f\x00\x91\x00\x0f\x00\x06\x00\x45\x00\x07\x00\x08\x00\x09\x00\x81\x00\x10\x00\x06\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\xa1\x00\x06\x00\x07\x00\x08\x00\x09\x00\xc5\x00\x3c\x00\x0f\x00\x91\x00\x92\x00\x93\x00\xcd\x00\xce\x00\xff\xff\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x61\x00\x45\x00\x07\x00\x08\x00\x09\x00\x06\x00\x45\x00\x0f\x00\x06\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x52\x00\x10\x00\xff\xff\x4b\x00\x86\x00\x4c\x00\x4c\x00\x0f\x00\x52\x00\x06\x00\x87\x00\xd9\x00\x67\x00\xd9\x00\x10\x00\x0f\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x0e\x00\x45\x00\x07\x00\x08\x00\x09\x00\xff\xff\xd9\x00\x0f\x00\xd9\x00\x70\x00\x94\x00\x71\x00\xf1\x00\x2c\x00\x10\x00\x0a\x00\x6e\x00\x1d\x01\x45\x00\x07\x00\x08\x00\x09\x00\xf2\x00\xe1\x00\xd9\x00\xe1\x00\x0f\x00\x06\x00\xf3\x00\xda\x00\x59\x01\xda\x00\x5a\x01\x00\x00\xe3\x00\xe4\x00\xe3\x00\xe4\x00\xd9\x00\x00\x00\xdb\x00\xd9\x00\xdf\x00\xd9\x00\x00\x00\x00\x00\xd9\x00\x00\x00\x71\x00\xdc\x00\xdd\x00\xdc\x00\xdd\x00\x00\x00\x00\x00\x00\x00\xe1\x00\x00\x00\x00\x00\x0f\x00\xd9\x00\xda\x00\x00\x00\xe2\x00\xda\x00\x46\x00\xda\x00\xe3\x00\xe4\x00\xda\x00\x00\x00\xd9\x00\xe7\x00\xd9\x00\x00\x00\xec\x00\x0f\x00\xed\x00\x00\x00\x00\x00\xee\x00\xdc\x00\xdd\x00\xf8\x00\xdc\x00\xdd\x00\xdc\x00\xdd\x00\x00\x00\xdc\x00\xdd\x00\x00\x00\xe1\x00\x00\x00\xda\x00\x00\x00\xda\x00\x00\x00\x00\x00\xef\x00\x00\x00\x00\x00\x00\x00\xe3\x00\xe4\x00\xf0\x00\x00\x00\xf7\x00\x36\x00\xf1\x00\xf9\x00\x37\x00\x00\x00\x00\x00\xdc\x00\xdd\x00\xdc\x00\xdd\x00\x00\x00\xfa\x00\xfb\x00\x38\x00\x39\x00\x00\x00\xb1\x00\xf3\x00\xb2\x00\xb3\x00\xb4\x00\x00\x00\xb5\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x3a\x00\xb6\x00\xb7\x00\xb8\x00\xb9\x00\x3b\x00\x00\x00\xba\x00\x00\x00\xbb\x00\xbc\x00\xbd\x00\x00\x00\xbe\x00\x00\x00\x00\x00\x00\x00\x00\x00\xbf\x00\xc0\x00\x00\x00\xc1\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, 236) [ +happyReduceArr = array (4, 245) [ (4 , happyReduce_4), (5 , happyReduce_5), (6 , happyReduce_6), @@ -743,31 +761,40 @@ happyReduceArr = array (4, 236) [ (233 , happyReduce_233), (234 , happyReduce_234), (235 , happyReduce_235), - (236 , happyReduce_236) + (236 , happyReduce_236), + (237 , happyReduce_237), + (238 , happyReduce_238), + (239 , happyReduce_239), + (240 , happyReduce_240), + (241 , happyReduce_241), + (242 , happyReduce_242), + (243 , happyReduce_243), + (244 , happyReduce_244), + (245 , happyReduce_245) ] -happy_n_terms = 81 :: Int -happy_n_nonterms = 79 :: Int +happy_n_terms = 82 :: Int +happy_n_nonterms = 82 :: Int happyReduce_4 = happySpecReduce_1 0# happyReduction_4 happyReduction_4 happy_x_1 = case happyOutTok happy_x_1 of { (PT _ (TV happy_var_1)) -> happyIn7 - (identC happy_var_1 --H + (identC happy_var_1 )} happyReduce_5 = happySpecReduce_1 1# happyReduction_5 happyReduction_5 happy_x_1 - = case happyOutTok happy_x_1 of { (PT _ (TL happy_var_1)) -> + = case happyOutTok happy_x_1 of { (PT _ (TI happy_var_1)) -> happyIn8 - (happy_var_1 + ((read happy_var_1) :: Integer )} happyReduce_6 = happySpecReduce_1 2# happyReduction_6 happyReduction_6 happy_x_1 - = case happyOutTok happy_x_1 of { (PT _ (TI happy_var_1)) -> + = case happyOutTok happy_x_1 of { (PT _ (TL happy_var_1)) -> happyIn9 - ((read happy_var_1) :: Integer + (happy_var_1 )} happyReduce_7 = happySpecReduce_1 3# happyReduction_7 @@ -1204,8 +1231,8 @@ happyReduce_56 = happySpecReduce_3 23# happyReduction_56 happyReduction_56 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 -> + = case happyOut51 happy_x_1 of { happy_var_1 -> + case happyOut58 happy_x_3 of { happy_var_3 -> happyIn30 (DDecl happy_var_1 happy_var_3 )}} @@ -1214,8 +1241,8 @@ happyReduce_57 = happySpecReduce_3 23# happyReduction_57 happyReduction_57 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 -> + = case happyOut51 happy_x_1 of { happy_var_1 -> + case happyOut58 happy_x_3 of { happy_var_3 -> happyIn30 (DDef happy_var_1 happy_var_3 )}} @@ -1226,9 +1253,9 @@ happyReduction_58 (happy_x_4 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` happyRest) - = case happyOut7 happy_x_1 of { happy_var_1 -> - case happyOut65 happy_x_2 of { happy_var_2 -> - case happyOut56 happy_x_4 of { happy_var_4 -> + = case happyOut50 happy_x_1 of { happy_var_1 -> + case happyOut68 happy_x_2 of { happy_var_2 -> + case happyOut58 happy_x_4 of { happy_var_4 -> happyIn30 (DPatt happy_var_1 happy_var_2 happy_var_4 ) `HappyStk` happyRest}}} @@ -1240,9 +1267,9 @@ happyReduction_59 (happy_x_5 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` happyRest) - = case happyOut49 happy_x_1 of { happy_var_1 -> - case happyOut56 happy_x_3 of { happy_var_3 -> - case happyOut56 happy_x_5 of { happy_var_5 -> + = case happyOut51 happy_x_1 of { happy_var_1 -> + case happyOut58 happy_x_3 of { happy_var_3 -> + case happyOut58 happy_x_5 of { happy_var_5 -> happyIn30 (DFull happy_var_1 happy_var_3 happy_var_5 ) `HappyStk` happyRest}}} @@ -1421,23 +1448,51 @@ happyReduce_80 = happySpecReduce_2 25# happyReduction_80 happyReduction_80 happy_x_2 happy_x_1 = case happyOut7 happy_x_1 of { happy_var_1 -> - case happyOut81 happy_x_2 of { happy_var_2 -> + case happyOut84 happy_x_2 of { happy_var_2 -> happyIn32 - (CatDef happy_var_1 (reverse happy_var_2) + (SimpleCatDef happy_var_1 (reverse happy_var_2) )}} -happyReduce_81 = happySpecReduce_3 26# happyReduction_81 -happyReduction_81 happy_x_3 +happyReduce_81 = happyReduce 4# 25# happyReduction_81 +happyReduction_81 (happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut7 happy_x_2 of { happy_var_2 -> + case happyOut84 happy_x_3 of { happy_var_3 -> + happyIn32 + (ListCatDef happy_var_2 (reverse happy_var_3) + ) `HappyStk` happyRest}} + +happyReduce_82 = happyReduce 7# 25# happyReduction_82 +happyReduction_82 (happy_x_7 `HappyStk` + 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 happyOut7 happy_x_2 of { happy_var_2 -> + case happyOut84 happy_x_3 of { happy_var_3 -> + case happyOut8 happy_x_6 of { happy_var_6 -> + happyIn32 + (ListSizeCatDef happy_var_2 (reverse happy_var_3) happy_var_6 + ) `HappyStk` happyRest}}} + +happyReduce_83 = happySpecReduce_3 26# happyReduction_83 +happyReduction_83 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 -> + case happyOut58 happy_x_3 of { happy_var_3 -> happyIn33 (FunDef happy_var_1 happy_var_3 )}} -happyReduce_82 = happySpecReduce_3 27# happyReduction_82 -happyReduction_82 happy_x_3 +happyReduce_84 = happySpecReduce_3 27# happyReduction_84 +happyReduction_84 happy_x_3 happy_x_2 happy_x_1 = case happyOut7 happy_x_1 of { happy_var_1 -> @@ -1446,15 +1501,15 @@ happyReduction_82 happy_x_3 (DataDef happy_var_1 happy_var_3 )}} -happyReduce_83 = happySpecReduce_1 28# happyReduction_83 -happyReduction_83 happy_x_1 +happyReduce_85 = happySpecReduce_1 28# happyReduction_85 +happyReduction_85 happy_x_1 = case happyOut7 happy_x_1 of { happy_var_1 -> happyIn35 (DataId happy_var_1 )} -happyReduce_84 = happySpecReduce_3 28# happyReduction_84 -happyReduction_84 happy_x_3 +happyReduce_86 = happySpecReduce_3 28# happyReduction_86 +happyReduction_86 happy_x_3 happy_x_2 happy_x_1 = case happyOut7 happy_x_1 of { happy_var_1 -> @@ -1463,20 +1518,20 @@ happyReduction_84 happy_x_3 (DataQId happy_var_1 happy_var_3 )}} -happyReduce_85 = happySpecReduce_0 29# happyReduction_85 -happyReduction_85 = happyIn36 +happyReduce_87 = happySpecReduce_0 29# happyReduction_87 +happyReduction_87 = happyIn36 ([] ) -happyReduce_86 = happySpecReduce_1 29# happyReduction_86 -happyReduction_86 happy_x_1 +happyReduce_88 = happySpecReduce_1 29# happyReduction_88 +happyReduction_88 happy_x_1 = case happyOut35 happy_x_1 of { happy_var_1 -> happyIn36 ((:[]) happy_var_1 )} -happyReduce_87 = happySpecReduce_3 29# happyReduction_87 -happyReduction_87 happy_x_3 +happyReduce_89 = happySpecReduce_3 29# happyReduction_89 +happyReduction_89 happy_x_3 happy_x_2 happy_x_1 = case happyOut35 happy_x_1 of { happy_var_1 -> @@ -1485,8 +1540,8 @@ happyReduction_87 happy_x_3 ((:) happy_var_1 happy_var_3 )}} -happyReduce_88 = happySpecReduce_3 30# happyReduction_88 -happyReduction_88 happy_x_3 +happyReduce_90 = happySpecReduce_3 30# happyReduction_90 +happyReduction_90 happy_x_3 happy_x_2 happy_x_1 = case happyOut7 happy_x_1 of { happy_var_1 -> @@ -1495,8 +1550,8 @@ happyReduction_88 happy_x_3 (ParDefDir happy_var_1 happy_var_3 )}} -happyReduce_89 = happyReduce 6# 30# happyReduction_89 -happyReduction_89 (happy_x_6 `HappyStk` +happyReduce_91 = happyReduce 6# 30# happyReduction_91 +happyReduction_91 (happy_x_6 `HappyStk` happy_x_5 `HappyStk` happy_x_4 `HappyStk` happy_x_3 `HappyStk` @@ -1509,34 +1564,34 @@ happyReduction_89 (happy_x_6 `HappyStk` (ParDefIndir happy_var_1 happy_var_5 ) `HappyStk` happyRest}} -happyReduce_90 = happySpecReduce_1 30# happyReduction_90 -happyReduction_90 happy_x_1 +happyReduce_92 = happySpecReduce_1 30# happyReduction_92 +happyReduction_92 happy_x_1 = case happyOut7 happy_x_1 of { happy_var_1 -> happyIn37 (ParDefAbs happy_var_1 )} -happyReduce_91 = happySpecReduce_2 31# happyReduction_91 -happyReduction_91 happy_x_2 +happyReduce_93 = happySpecReduce_2 31# happyReduction_93 +happyReduction_93 happy_x_2 happy_x_1 = case happyOut7 happy_x_1 of { happy_var_1 -> - case happyOut81 happy_x_2 of { happy_var_2 -> + case happyOut84 happy_x_2 of { happy_var_2 -> happyIn38 (ParConstr happy_var_1 (reverse happy_var_2) )}} -happyReduce_92 = happySpecReduce_3 32# happyReduction_92 -happyReduction_92 happy_x_3 +happyReduce_94 = happySpecReduce_3 32# happyReduction_94 +happyReduction_94 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 -> + = case happyOut51 happy_x_1 of { happy_var_1 -> + case happyOut58 happy_x_3 of { happy_var_3 -> happyIn39 (PrintDef happy_var_1 happy_var_3 )}} -happyReduce_93 = happySpecReduce_3 33# happyReduction_93 -happyReduction_93 happy_x_3 +happyReduce_95 = happySpecReduce_3 33# happyReduction_95 +happyReduction_95 happy_x_3 happy_x_2 happy_x_1 = case happyOut7 happy_x_1 of { happy_var_1 -> @@ -1545,16 +1600,16 @@ happyReduction_93 happy_x_3 (FlagDef happy_var_1 happy_var_3 )}} -happyReduce_94 = happySpecReduce_2 34# happyReduction_94 -happyReduction_94 happy_x_2 +happyReduce_96 = happySpecReduce_2 34# happyReduction_96 +happyReduction_96 happy_x_2 happy_x_1 = case happyOut30 happy_x_1 of { happy_var_1 -> happyIn41 ((:[]) happy_var_1 )} -happyReduce_95 = happySpecReduce_3 34# happyReduction_95 -happyReduction_95 happy_x_3 +happyReduce_97 = happySpecReduce_3 34# happyReduction_97 +happyReduction_97 happy_x_3 happy_x_2 happy_x_1 = case happyOut30 happy_x_1 of { happy_var_1 -> @@ -1563,16 +1618,16 @@ happyReduction_95 happy_x_3 ((:) happy_var_1 happy_var_3 )}} -happyReduce_96 = happySpecReduce_2 35# happyReduction_96 -happyReduction_96 happy_x_2 +happyReduce_98 = happySpecReduce_2 35# happyReduction_98 +happyReduction_98 happy_x_2 happy_x_1 = case happyOut32 happy_x_1 of { happy_var_1 -> happyIn42 ((:[]) happy_var_1 )} -happyReduce_97 = happySpecReduce_3 35# happyReduction_97 -happyReduction_97 happy_x_3 +happyReduce_99 = happySpecReduce_3 35# happyReduction_99 +happyReduction_99 happy_x_3 happy_x_2 happy_x_1 = case happyOut32 happy_x_1 of { happy_var_1 -> @@ -1581,16 +1636,16 @@ happyReduction_97 happy_x_3 ((:) happy_var_1 happy_var_3 )}} -happyReduce_98 = happySpecReduce_2 36# happyReduction_98 -happyReduction_98 happy_x_2 +happyReduce_100 = happySpecReduce_2 36# happyReduction_100 +happyReduction_100 happy_x_2 happy_x_1 = case happyOut33 happy_x_1 of { happy_var_1 -> happyIn43 ((:[]) happy_var_1 )} -happyReduce_99 = happySpecReduce_3 36# happyReduction_99 -happyReduction_99 happy_x_3 +happyReduce_101 = happySpecReduce_3 36# happyReduction_101 +happyReduction_101 happy_x_3 happy_x_2 happy_x_1 = case happyOut33 happy_x_1 of { happy_var_1 -> @@ -1599,16 +1654,16 @@ happyReduction_99 happy_x_3 ((:) happy_var_1 happy_var_3 )}} -happyReduce_100 = happySpecReduce_2 37# happyReduction_100 -happyReduction_100 happy_x_2 +happyReduce_102 = happySpecReduce_2 37# happyReduction_102 +happyReduction_102 happy_x_2 happy_x_1 = case happyOut34 happy_x_1 of { happy_var_1 -> happyIn44 ((:[]) happy_var_1 )} -happyReduce_101 = happySpecReduce_3 37# happyReduction_101 -happyReduction_101 happy_x_3 +happyReduce_103 = happySpecReduce_3 37# happyReduction_103 +happyReduction_103 happy_x_3 happy_x_2 happy_x_1 = case happyOut34 happy_x_1 of { happy_var_1 -> @@ -1617,16 +1672,16 @@ happyReduction_101 happy_x_3 ((:) happy_var_1 happy_var_3 )}} -happyReduce_102 = happySpecReduce_2 38# happyReduction_102 -happyReduction_102 happy_x_2 +happyReduce_104 = happySpecReduce_2 38# happyReduction_104 +happyReduction_104 happy_x_2 happy_x_1 = case happyOut37 happy_x_1 of { happy_var_1 -> happyIn45 ((:[]) happy_var_1 )} -happyReduce_103 = happySpecReduce_3 38# happyReduction_103 -happyReduction_103 happy_x_3 +happyReduce_105 = happySpecReduce_3 38# happyReduction_105 +happyReduction_105 happy_x_3 happy_x_2 happy_x_1 = case happyOut37 happy_x_1 of { happy_var_1 -> @@ -1635,16 +1690,16 @@ happyReduction_103 happy_x_3 ((:) happy_var_1 happy_var_3 )}} -happyReduce_104 = happySpecReduce_2 39# happyReduction_104 -happyReduction_104 happy_x_2 +happyReduce_106 = happySpecReduce_2 39# happyReduction_106 +happyReduction_106 happy_x_2 happy_x_1 = case happyOut39 happy_x_1 of { happy_var_1 -> happyIn46 ((:[]) happy_var_1 )} -happyReduce_105 = happySpecReduce_3 39# happyReduction_105 -happyReduction_105 happy_x_3 +happyReduce_107 = happySpecReduce_3 39# happyReduction_107 +happyReduction_107 happy_x_3 happy_x_2 happy_x_1 = case happyOut39 happy_x_1 of { happy_var_1 -> @@ -1653,16 +1708,16 @@ happyReduction_105 happy_x_3 ((:) happy_var_1 happy_var_3 )}} -happyReduce_106 = happySpecReduce_2 40# happyReduction_106 -happyReduction_106 happy_x_2 +happyReduce_108 = happySpecReduce_2 40# happyReduction_108 +happyReduction_108 happy_x_2 happy_x_1 = case happyOut40 happy_x_1 of { happy_var_1 -> happyIn47 ((:[]) happy_var_1 )} -happyReduce_107 = happySpecReduce_3 40# happyReduction_107 -happyReduction_107 happy_x_3 +happyReduce_109 = happySpecReduce_3 40# happyReduction_109 +happyReduction_109 happy_x_3 happy_x_2 happy_x_1 = case happyOut40 happy_x_1 of { happy_var_1 -> @@ -1671,20 +1726,20 @@ happyReduction_107 happy_x_3 ((:) happy_var_1 happy_var_3 )}} -happyReduce_108 = happySpecReduce_0 41# happyReduction_108 -happyReduction_108 = happyIn48 +happyReduce_110 = happySpecReduce_0 41# happyReduction_110 +happyReduction_110 = happyIn48 ([] ) -happyReduce_109 = happySpecReduce_1 41# happyReduction_109 -happyReduction_109 happy_x_1 +happyReduce_111 = happySpecReduce_1 41# happyReduction_111 +happyReduction_111 happy_x_1 = case happyOut38 happy_x_1 of { happy_var_1 -> happyIn48 ((:[]) happy_var_1 )} -happyReduce_110 = happySpecReduce_3 41# happyReduction_110 -happyReduction_110 happy_x_3 +happyReduce_112 = happySpecReduce_3 41# happyReduction_112 +happyReduction_112 happy_x_3 happy_x_2 happy_x_1 = case happyOut38 happy_x_1 of { happy_var_1 -> @@ -1693,15 +1748,15 @@ happyReduction_110 happy_x_3 ((:) happy_var_1 happy_var_3 )}} -happyReduce_111 = happySpecReduce_1 42# happyReduction_111 -happyReduction_111 happy_x_1 +happyReduce_113 = happySpecReduce_1 42# happyReduction_113 +happyReduction_113 happy_x_1 = case happyOut7 happy_x_1 of { happy_var_1 -> happyIn49 ((:[]) happy_var_1 )} -happyReduce_112 = happySpecReduce_3 42# happyReduction_112 -happyReduction_112 happy_x_3 +happyReduce_114 = happySpecReduce_3 42# happyReduction_114 +happyReduction_114 happy_x_3 happy_x_2 happy_x_1 = case happyOut7 happy_x_1 of { happy_var_1 -> @@ -1710,44 +1765,21 @@ happyReduction_112 happy_x_3 ((:) happy_var_1 happy_var_3 )}} -happyReduce_113 = happySpecReduce_3 43# happyReduction_113 -happyReduction_113 happy_x_3 +happyReduce_115 = happySpecReduce_1 43# happyReduction_115 +happyReduction_115 happy_x_1 + = case happyOut7 happy_x_1 of { happy_var_1 -> + happyIn50 + (IdentName happy_var_1 + )} + +happyReduce_116 = happySpecReduce_3 43# happyReduction_116 +happyReduction_116 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 -> + = case happyOut7 happy_x_2 of { happy_var_2 -> happyIn50 - (LDDecl happy_var_1 happy_var_3 - )}} - -happyReduce_114 = happySpecReduce_3 43# happyReduction_114 -happyReduction_114 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 - (LDDef happy_var_1 happy_var_3 - )}} - -happyReduce_115 = happyReduce 5# 43# happyReduction_115 -happyReduction_115 (happy_x_5 `HappyStk` - happy_x_4 `HappyStk` - happy_x_3 `HappyStk` - happy_x_2 `HappyStk` - happy_x_1 `HappyStk` - happyRest) - = case happyOut49 happy_x_1 of { happy_var_1 -> - case happyOut56 happy_x_3 of { happy_var_3 -> - case happyOut56 happy_x_5 of { happy_var_5 -> - happyIn50 - (LDFull happy_var_1 happy_var_3 happy_var_5 - ) `HappyStk` happyRest}}} - -happyReduce_116 = happySpecReduce_0 44# happyReduction_116 -happyReduction_116 = happyIn51 - ([] - ) + (ListName happy_var_2 + )} happyReduce_117 = happySpecReduce_1 44# happyReduction_117 happyReduction_117 happy_x_1 @@ -1766,150 +1798,218 @@ happyReduction_118 happy_x_3 ((:) happy_var_1 happy_var_3 )}} -happyReduce_119 = happySpecReduce_1 45# happyReduction_119 -happyReduction_119 happy_x_1 - = case happyOut7 happy_x_1 of { happy_var_1 -> +happyReduce_119 = happySpecReduce_3 45# happyReduction_119 +happyReduction_119 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut49 happy_x_1 of { happy_var_1 -> + case happyOut58 happy_x_3 of { happy_var_3 -> happyIn52 - (EIdent happy_var_1 - )} + (LDDecl happy_var_1 happy_var_3 + )}} 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 -> + = case happyOut49 happy_x_1 of { happy_var_1 -> + case happyOut58 happy_x_3 of { happy_var_3 -> happyIn52 + (LDDef happy_var_1 happy_var_3 + )}} + +happyReduce_121 = happyReduce 5# 45# happyReduction_121 +happyReduction_121 (happy_x_5 `HappyStk` + happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut49 happy_x_1 of { happy_var_1 -> + case happyOut58 happy_x_3 of { happy_var_3 -> + case happyOut58 happy_x_5 of { happy_var_5 -> + happyIn52 + (LDFull happy_var_1 happy_var_3 happy_var_5 + ) `HappyStk` happyRest}}} + +happyReduce_122 = happySpecReduce_0 46# happyReduction_122 +happyReduction_122 = happyIn53 + ([] + ) + +happyReduce_123 = happySpecReduce_1 46# happyReduction_123 +happyReduction_123 happy_x_1 + = case happyOut52 happy_x_1 of { happy_var_1 -> + happyIn53 + ((:[]) happy_var_1 + )} + +happyReduce_124 = happySpecReduce_3 46# happyReduction_124 +happyReduction_124 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut52 happy_x_1 of { happy_var_1 -> + case happyOut53 happy_x_3 of { happy_var_3 -> + happyIn53 + ((:) happy_var_1 happy_var_3 + )}} + +happyReduce_125 = happySpecReduce_1 47# happyReduction_125 +happyReduction_125 happy_x_1 + = case happyOut7 happy_x_1 of { happy_var_1 -> + happyIn54 + (EIdent happy_var_1 + )} + +happyReduce_126 = happySpecReduce_3 47# happyReduction_126 +happyReduction_126 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut7 happy_x_2 of { happy_var_2 -> + happyIn54 (EConstr happy_var_2 )} -happyReduce_121 = happySpecReduce_3 45# happyReduction_121 -happyReduction_121 happy_x_3 +happyReduce_127 = happySpecReduce_3 47# happyReduction_127 +happyReduction_127 happy_x_3 happy_x_2 happy_x_1 = case happyOut7 happy_x_2 of { happy_var_2 -> - happyIn52 + happyIn54 (ECons happy_var_2 )} -happyReduce_122 = happySpecReduce_1 45# happyReduction_122 -happyReduction_122 happy_x_1 - = case happyOut62 happy_x_1 of { happy_var_1 -> - happyIn52 +happyReduce_128 = happySpecReduce_1 47# happyReduction_128 +happyReduction_128 happy_x_1 + = case happyOut65 happy_x_1 of { happy_var_1 -> + happyIn54 (ESort happy_var_1 )} -happyReduce_123 = happySpecReduce_1 45# happyReduction_123 -happyReduction_123 happy_x_1 - = case happyOut8 happy_x_1 of { happy_var_1 -> - happyIn52 +happyReduce_129 = happySpecReduce_1 47# happyReduction_129 +happyReduction_129 happy_x_1 + = case happyOut9 happy_x_1 of { happy_var_1 -> + happyIn54 (EString happy_var_1 )} -happyReduce_124 = happySpecReduce_1 45# happyReduction_124 -happyReduction_124 happy_x_1 - = case happyOut9 happy_x_1 of { happy_var_1 -> - happyIn52 +happyReduce_130 = happySpecReduce_1 47# happyReduction_130 +happyReduction_130 happy_x_1 + = case happyOut8 happy_x_1 of { happy_var_1 -> + happyIn54 (EInt happy_var_1 )} -happyReduce_125 = happySpecReduce_1 45# happyReduction_125 -happyReduction_125 happy_x_1 - = happyIn52 +happyReduce_131 = happySpecReduce_1 47# happyReduction_131 +happyReduction_131 happy_x_1 + = happyIn54 (EMeta ) -happyReduce_126 = happySpecReduce_2 45# happyReduction_126 -happyReduction_126 happy_x_2 +happyReduce_132 = happySpecReduce_2 47# happyReduction_132 +happyReduction_132 happy_x_2 happy_x_1 - = happyIn52 + = happyIn54 (EEmpty ) -happyReduce_127 = happySpecReduce_1 45# happyReduction_127 -happyReduction_127 happy_x_1 - = happyIn52 +happyReduce_133 = happySpecReduce_1 47# happyReduction_133 +happyReduction_133 happy_x_1 + = happyIn54 (EData ) -happyReduce_128 = happySpecReduce_3 45# happyReduction_128 -happyReduction_128 happy_x_3 +happyReduce_134 = happyReduce 4# 47# happyReduction_134 +happyReduction_134 (happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut7 happy_x_2 of { happy_var_2 -> + case happyOut60 happy_x_3 of { happy_var_3 -> + happyIn54 + (EList happy_var_2 happy_var_3 + ) `HappyStk` happyRest}} + +happyReduce_135 = happySpecReduce_3 47# happyReduction_135 +happyReduction_135 happy_x_3 happy_x_2 happy_x_1 - = case happyOut8 happy_x_2 of { happy_var_2 -> - happyIn52 + = case happyOut9 happy_x_2 of { happy_var_2 -> + happyIn54 (EStrings happy_var_2 )} -happyReduce_129 = happySpecReduce_3 45# happyReduction_129 -happyReduction_129 happy_x_3 +happyReduce_136 = happySpecReduce_3 47# happyReduction_136 +happyReduction_136 happy_x_3 happy_x_2 happy_x_1 - = case happyOut51 happy_x_2 of { happy_var_2 -> - happyIn52 + = case happyOut53 happy_x_2 of { happy_var_2 -> + happyIn54 (ERecord happy_var_2 )} -happyReduce_130 = happySpecReduce_3 45# happyReduction_130 -happyReduction_130 happy_x_3 +happyReduce_137 = happySpecReduce_3 47# happyReduction_137 +happyReduction_137 happy_x_3 happy_x_2 happy_x_1 - = case happyOut72 happy_x_2 of { happy_var_2 -> - happyIn52 + = case happyOut75 happy_x_2 of { happy_var_2 -> + happyIn54 (ETuple happy_var_2 )} -happyReduce_131 = happyReduce 4# 45# happyReduction_131 -happyReduction_131 (happy_x_4 `HappyStk` +happyReduce_138 = happyReduce 4# 47# happyReduction_138 +happyReduction_138 (happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` happyRest) = case happyOut7 happy_x_3 of { happy_var_3 -> - happyIn52 + happyIn54 (EIndir happy_var_3 ) `HappyStk` happyRest} -happyReduce_132 = happyReduce 5# 45# happyReduction_132 -happyReduction_132 (happy_x_5 `HappyStk` +happyReduce_139 = happyReduce 5# 47# happyReduction_139 +happyReduction_139 (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 happyOut56 happy_x_4 of { happy_var_4 -> - happyIn52 + = case happyOut58 happy_x_2 of { happy_var_2 -> + case happyOut58 happy_x_4 of { happy_var_4 -> + happyIn54 (ETyped happy_var_2 happy_var_4 ) `HappyStk` happyRest}} -happyReduce_133 = happySpecReduce_3 45# happyReduction_133 -happyReduction_133 happy_x_3 +happyReduce_140 = happySpecReduce_3 47# happyReduction_140 +happyReduction_140 happy_x_3 happy_x_2 happy_x_1 - = case happyOut56 happy_x_2 of { happy_var_2 -> - happyIn52 + = case happyOut58 happy_x_2 of { happy_var_2 -> + happyIn54 (happy_var_2 )} -happyReduce_134 = happySpecReduce_1 45# happyReduction_134 -happyReduction_134 happy_x_1 +happyReduce_141 = happySpecReduce_1 47# happyReduction_141 +happyReduction_141 happy_x_1 = case happyOut10 happy_x_1 of { happy_var_1 -> - happyIn52 + happyIn54 (ELString happy_var_1 )} -happyReduce_135 = happySpecReduce_3 46# happyReduction_135 -happyReduction_135 happy_x_3 +happyReduce_142 = happySpecReduce_3 48# happyReduction_142 +happyReduction_142 happy_x_3 happy_x_2 happy_x_1 - = case happyOut53 happy_x_1 of { happy_var_1 -> - case happyOut61 happy_x_3 of { happy_var_3 -> - happyIn53 + = case happyOut55 happy_x_1 of { happy_var_1 -> + case happyOut64 happy_x_3 of { happy_var_3 -> + happyIn55 (EProj happy_var_1 happy_var_3 )}} -happyReduce_136 = happyReduce 5# 46# happyReduction_136 -happyReduction_136 (happy_x_5 `HappyStk` +happyReduce_143 = happyReduce 5# 48# happyReduction_143 +happyReduction_143 (happy_x_5 `HappyStk` happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` @@ -1917,12 +2017,12 @@ happyReduction_136 (happy_x_5 `HappyStk` happyRest) = case happyOut7 happy_x_2 of { happy_var_2 -> case happyOut7 happy_x_4 of { happy_var_4 -> - happyIn53 + happyIn55 (EQConstr happy_var_2 happy_var_4 ) `HappyStk` happyRest}} -happyReduce_137 = happyReduce 5# 46# happyReduction_137 -happyReduction_137 (happy_x_5 `HappyStk` +happyReduce_144 = happyReduce 5# 48# happyReduction_144 +happyReduction_144 (happy_x_5 `HappyStk` happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` @@ -1930,865 +2030,879 @@ happyReduction_137 (happy_x_5 `HappyStk` happyRest) = case happyOut7 happy_x_2 of { happy_var_2 -> case happyOut7 happy_x_4 of { happy_var_4 -> - happyIn53 + happyIn55 (EQCons happy_var_2 happy_var_4 ) `HappyStk` happyRest}} -happyReduce_138 = happySpecReduce_1 46# happyReduction_138 -happyReduction_138 happy_x_1 - = case happyOut52 happy_x_1 of { happy_var_1 -> - happyIn53 +happyReduce_145 = happySpecReduce_1 48# happyReduction_145 +happyReduction_145 happy_x_1 + = case happyOut54 happy_x_1 of { happy_var_1 -> + happyIn55 (happy_var_1 )} -happyReduce_139 = happySpecReduce_2 47# happyReduction_139 -happyReduction_139 happy_x_2 +happyReduce_146 = happySpecReduce_2 49# happyReduction_146 +happyReduction_146 happy_x_2 happy_x_1 - = case happyOut54 happy_x_1 of { happy_var_1 -> - case happyOut53 happy_x_2 of { happy_var_2 -> - happyIn54 + = case happyOut56 happy_x_1 of { happy_var_1 -> + case happyOut55 happy_x_2 of { happy_var_2 -> + happyIn56 (EApp happy_var_1 happy_var_2 )}} -happyReduce_140 = happyReduce 4# 47# happyReduction_140 -happyReduction_140 (happy_x_4 `HappyStk` +happyReduce_147 = happyReduce 4# 49# happyReduction_147 +happyReduction_147 (happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` happyRest) - = case happyOut75 happy_x_3 of { happy_var_3 -> - happyIn54 + = case happyOut78 happy_x_3 of { happy_var_3 -> + happyIn56 (ETable happy_var_3 ) `HappyStk` happyRest} -happyReduce_141 = happyReduce 5# 47# happyReduction_141 -happyReduction_141 (happy_x_5 `HappyStk` +happyReduce_148 = happyReduce 5# 49# happyReduction_148 +happyReduction_148 (happy_x_5 `HappyStk` happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` happyRest) - = case happyOut52 happy_x_2 of { happy_var_2 -> - case happyOut75 happy_x_4 of { happy_var_4 -> - happyIn54 + = case happyOut54 happy_x_2 of { happy_var_2 -> + case happyOut78 happy_x_4 of { happy_var_4 -> + happyIn56 (ETTable happy_var_2 happy_var_4 ) `HappyStk` happyRest}} -happyReduce_142 = happyReduce 5# 47# happyReduction_142 -happyReduction_142 (happy_x_5 `HappyStk` +happyReduce_149 = happyReduce 5# 49# happyReduction_149 +happyReduction_149 (happy_x_5 `HappyStk` happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` happyRest) - = case happyOut52 happy_x_2 of { happy_var_2 -> - case happyOut57 happy_x_4 of { happy_var_4 -> - happyIn54 + = case happyOut54 happy_x_2 of { happy_var_2 -> + case happyOut59 happy_x_4 of { happy_var_4 -> + happyIn56 (EVTable happy_var_2 happy_var_4 ) `HappyStk` happyRest}} -happyReduce_143 = happyReduce 6# 47# happyReduction_143 -happyReduction_143 (happy_x_6 `HappyStk` +happyReduce_150 = happyReduce 6# 49# happyReduction_150 +happyReduction_150 (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 happyOut75 happy_x_5 of { happy_var_5 -> - happyIn54 + = case happyOut58 happy_x_2 of { happy_var_2 -> + case happyOut78 happy_x_5 of { happy_var_5 -> + happyIn56 (ECase happy_var_2 happy_var_5 ) `HappyStk` happyRest}} -happyReduce_144 = happyReduce 4# 47# happyReduction_144 -happyReduction_144 (happy_x_4 `HappyStk` +happyReduce_151 = happyReduce 4# 49# happyReduction_151 +happyReduction_151 (happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` happyRest) - = case happyOut57 happy_x_3 of { happy_var_3 -> - happyIn54 + = case happyOut59 happy_x_3 of { happy_var_3 -> + happyIn56 (EVariants happy_var_3 ) `HappyStk` happyRest} -happyReduce_145 = happyReduce 6# 47# happyReduction_145 -happyReduction_145 (happy_x_6 `HappyStk` +happyReduce_152 = happyReduce 6# 49# happyReduction_152 +happyReduction_152 (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_3 of { happy_var_3 -> - case happyOut79 happy_x_5 of { happy_var_5 -> - happyIn54 + = case happyOut58 happy_x_3 of { happy_var_3 -> + case happyOut82 happy_x_5 of { happy_var_5 -> + happyIn56 (EPre happy_var_3 happy_var_5 ) `HappyStk` happyRest}} -happyReduce_146 = happyReduce 4# 47# happyReduction_146 -happyReduction_146 (happy_x_4 `HappyStk` +happyReduce_153 = happyReduce 4# 49# happyReduction_153 +happyReduction_153 (happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` happyRest) - = case happyOut57 happy_x_3 of { happy_var_3 -> - happyIn54 + = case happyOut59 happy_x_3 of { happy_var_3 -> + happyIn56 (EStrs happy_var_3 ) `HappyStk` happyRest} -happyReduce_147 = happySpecReduce_3 47# happyReduction_147 -happyReduction_147 happy_x_3 +happyReduce_154 = happySpecReduce_3 49# happyReduction_154 +happyReduction_154 happy_x_3 happy_x_2 happy_x_1 = case happyOut7 happy_x_1 of { happy_var_1 -> - case happyOut52 happy_x_3 of { happy_var_3 -> - happyIn54 + case happyOut54 happy_x_3 of { happy_var_3 -> + happyIn56 (EConAt happy_var_1 happy_var_3 )}} -happyReduce_148 = happySpecReduce_1 47# happyReduction_148 -happyReduction_148 happy_x_1 - = case happyOut53 happy_x_1 of { happy_var_1 -> - happyIn54 +happyReduce_155 = happySpecReduce_1 49# happyReduction_155 +happyReduction_155 happy_x_1 + = case happyOut55 happy_x_1 of { happy_var_1 -> + happyIn56 (happy_var_1 )} -happyReduce_149 = happySpecReduce_2 47# happyReduction_149 -happyReduction_149 happy_x_2 +happyReduce_156 = happySpecReduce_2 49# happyReduction_156 +happyReduction_156 happy_x_2 happy_x_1 = case happyOut7 happy_x_2 of { happy_var_2 -> - happyIn54 + happyIn56 (ELin happy_var_2 )} -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 -> - case happyOut54 happy_x_3 of { happy_var_3 -> - happyIn55 - (ESelect happy_var_1 happy_var_3 - )}} - -happyReduce_151 = happySpecReduce_3 48# happyReduction_151 -happyReduction_151 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_152 = happySpecReduce_3 48# happyReduction_152 -happyReduction_152 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 - (EExtend happy_var_1 happy_var_3 - )}} - -happyReduce_153 = happySpecReduce_1 48# happyReduction_153 -happyReduction_153 happy_x_1 - = case happyOut54 happy_x_1 of { happy_var_1 -> - happyIn55 - (happy_var_1 - )} - -happyReduce_154 = happyReduce 4# 49# happyReduction_154 -happyReduction_154 (happy_x_4 `HappyStk` - happy_x_3 `HappyStk` - happy_x_2 `HappyStk` - happy_x_1 `HappyStk` - happyRest) - = case happyOut68 happy_x_2 of { happy_var_2 -> - case happyOut56 happy_x_4 of { happy_var_4 -> - happyIn56 - (EAbstr happy_var_2 happy_var_4 - ) `HappyStk` happyRest}} - -happyReduce_155 = happyReduce 5# 49# happyReduction_155 -happyReduction_155 (happy_x_5 `HappyStk` - happy_x_4 `HappyStk` - happy_x_3 `HappyStk` - happy_x_2 `HappyStk` - happy_x_1 `HappyStk` - happyRest) - = case happyOut68 happy_x_3 of { happy_var_3 -> - case happyOut56 happy_x_5 of { happy_var_5 -> - happyIn56 - (ECTable happy_var_3 happy_var_5 - ) `HappyStk` happyRest}} - -happyReduce_156 = happySpecReduce_3 49# happyReduction_156 -happyReduction_156 happy_x_3 - happy_x_2 - happy_x_1 - = case happyOut69 happy_x_1 of { happy_var_1 -> - case happyOut56 happy_x_3 of { happy_var_3 -> - happyIn56 - (EProd happy_var_1 happy_var_3 - )}} - -happyReduce_157 = happySpecReduce_3 49# happyReduction_157 +happyReduce_157 = happySpecReduce_3 50# happyReduction_157 happyReduction_157 happy_x_3 happy_x_2 happy_x_1 - = case happyOut55 happy_x_1 of { happy_var_1 -> + = case happyOut57 happy_x_1 of { happy_var_1 -> case happyOut56 happy_x_3 of { happy_var_3 -> - happyIn56 - (ETType happy_var_1 happy_var_3 + happyIn57 + (ESelect happy_var_1 happy_var_3 )}} -happyReduce_158 = happySpecReduce_3 49# happyReduction_158 +happyReduce_158 = happySpecReduce_3 50# happyReduction_158 happyReduction_158 happy_x_3 happy_x_2 happy_x_1 - = case happyOut55 happy_x_1 of { happy_var_1 -> + = case happyOut57 happy_x_1 of { happy_var_1 -> case happyOut56 happy_x_3 of { happy_var_3 -> - happyIn56 - (EConcat happy_var_1 happy_var_3 + happyIn57 + (ETupTyp happy_var_1 happy_var_3 )}} -happyReduce_159 = happySpecReduce_3 49# happyReduction_159 +happyReduce_159 = happySpecReduce_3 50# happyReduction_159 happyReduction_159 happy_x_3 happy_x_2 happy_x_1 - = case happyOut55 happy_x_1 of { happy_var_1 -> + = case happyOut57 happy_x_1 of { happy_var_1 -> case happyOut56 happy_x_3 of { happy_var_3 -> - happyIn56 - (EGlue happy_var_1 happy_var_3 + happyIn57 + (EExtend happy_var_1 happy_var_3 )}} -happyReduce_160 = happyReduce 6# 49# happyReduction_160 -happyReduction_160 (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 happyOut51 happy_x_3 of { happy_var_3 -> - case happyOut56 happy_x_6 of { happy_var_6 -> - happyIn56 - (ELet happy_var_3 happy_var_6 - ) `HappyStk` happyRest}} +happyReduce_160 = happySpecReduce_1 50# happyReduction_160 +happyReduction_160 happy_x_1 + = case happyOut56 happy_x_1 of { happy_var_1 -> + happyIn57 + (happy_var_1 + )} -happyReduce_161 = happyReduce 4# 49# happyReduction_161 +happyReduce_161 = happyReduce 4# 51# happyReduction_161 happyReduction_161 (happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` happyRest) - = case happyOut51 happy_x_2 of { happy_var_2 -> - case happyOut56 happy_x_4 of { happy_var_4 -> - happyIn56 - (ELetb happy_var_2 happy_var_4 + = case happyOut71 happy_x_2 of { happy_var_2 -> + case happyOut58 happy_x_4 of { happy_var_4 -> + happyIn58 + (EAbstr happy_var_2 happy_var_4 ) `HappyStk` happyRest}} -happyReduce_162 = happyReduce 5# 49# happyReduction_162 +happyReduce_162 = happyReduce 5# 51# happyReduction_162 happyReduction_162 (happy_x_5 `HappyStk` happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` happyRest) - = case happyOut55 happy_x_1 of { happy_var_1 -> - case happyOut51 happy_x_4 of { happy_var_4 -> - happyIn56 - (EWhere happy_var_1 happy_var_4 + = case happyOut71 happy_x_3 of { happy_var_3 -> + case happyOut58 happy_x_5 of { happy_var_5 -> + happyIn58 + (ECTable happy_var_3 happy_var_5 ) `HappyStk` happyRest}} -happyReduce_163 = happyReduce 4# 49# happyReduction_163 -happyReduction_163 (happy_x_4 `HappyStk` +happyReduce_163 = happySpecReduce_3 51# happyReduction_163 +happyReduction_163 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut72 happy_x_1 of { happy_var_1 -> + case happyOut58 happy_x_3 of { happy_var_3 -> + happyIn58 + (EProd happy_var_1 happy_var_3 + )}} + +happyReduce_164 = happySpecReduce_3 51# happyReduction_164 +happyReduction_164 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut57 happy_x_1 of { happy_var_1 -> + case happyOut58 happy_x_3 of { happy_var_3 -> + happyIn58 + (ETType happy_var_1 happy_var_3 + )}} + +happyReduce_165 = happySpecReduce_3 51# happyReduction_165 +happyReduction_165 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut57 happy_x_1 of { happy_var_1 -> + case happyOut58 happy_x_3 of { happy_var_3 -> + happyIn58 + (EConcat happy_var_1 happy_var_3 + )}} + +happyReduce_166 = happySpecReduce_3 51# happyReduction_166 +happyReduction_166 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut57 happy_x_1 of { happy_var_1 -> + case happyOut58 happy_x_3 of { happy_var_3 -> + happyIn58 + (EGlue happy_var_1 happy_var_3 + )}} + +happyReduce_167 = happyReduce 6# 51# happyReduction_167 +happyReduction_167 (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 happyOut77 happy_x_3 of { happy_var_3 -> - happyIn56 + = case happyOut53 happy_x_3 of { happy_var_3 -> + case happyOut58 happy_x_6 of { happy_var_6 -> + happyIn58 + (ELet happy_var_3 happy_var_6 + ) `HappyStk` happyRest}} + +happyReduce_168 = happyReduce 4# 51# happyReduction_168 +happyReduction_168 (happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut53 happy_x_2 of { happy_var_2 -> + case happyOut58 happy_x_4 of { happy_var_4 -> + happyIn58 + (ELetb happy_var_2 happy_var_4 + ) `HappyStk` happyRest}} + +happyReduce_169 = happyReduce 5# 51# happyReduction_169 +happyReduction_169 (happy_x_5 `HappyStk` + happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut57 happy_x_1 of { happy_var_1 -> + case happyOut53 happy_x_4 of { happy_var_4 -> + happyIn58 + (EWhere happy_var_1 happy_var_4 + ) `HappyStk` happyRest}} + +happyReduce_170 = happyReduce 4# 51# happyReduction_170 +happyReduction_170 (happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut80 happy_x_3 of { happy_var_3 -> + happyIn58 (EEqs happy_var_3 ) `HappyStk` happyRest} -happyReduce_164 = happySpecReduce_1 49# happyReduction_164 -happyReduction_164 happy_x_1 - = case happyOut55 happy_x_1 of { happy_var_1 -> - happyIn56 +happyReduce_171 = happySpecReduce_1 51# happyReduction_171 +happyReduction_171 happy_x_1 + = case happyOut57 happy_x_1 of { happy_var_1 -> + happyIn58 (happy_var_1 )} -happyReduce_165 = happySpecReduce_0 50# happyReduction_165 -happyReduction_165 = happyIn57 +happyReduce_172 = happySpecReduce_0 52# happyReduction_172 +happyReduction_172 = happyIn59 ([] ) -happyReduce_166 = happySpecReduce_1 50# happyReduction_166 -happyReduction_166 happy_x_1 - = case happyOut56 happy_x_1 of { happy_var_1 -> - happyIn57 +happyReduce_173 = happySpecReduce_1 52# happyReduction_173 +happyReduction_173 happy_x_1 + = case happyOut58 happy_x_1 of { happy_var_1 -> + happyIn59 ((:[]) happy_var_1 )} -happyReduce_167 = happySpecReduce_3 50# happyReduction_167 -happyReduction_167 happy_x_3 +happyReduce_174 = happySpecReduce_3 52# happyReduction_174 +happyReduction_174 happy_x_3 happy_x_2 happy_x_1 - = case happyOut56 happy_x_1 of { happy_var_1 -> - case happyOut57 happy_x_3 of { happy_var_3 -> - happyIn57 + = case happyOut58 happy_x_1 of { happy_var_1 -> + case happyOut59 happy_x_3 of { happy_var_3 -> + happyIn59 ((:) happy_var_1 happy_var_3 )}} -happyReduce_168 = happySpecReduce_1 51# happyReduction_168 -happyReduction_168 happy_x_1 - = happyIn58 +happyReduce_175 = happySpecReduce_0 53# happyReduction_175 +happyReduction_175 = happyIn60 + (NilExp + ) + +happyReduce_176 = happySpecReduce_2 53# happyReduction_176 +happyReduction_176 happy_x_2 + happy_x_1 + = case happyOut54 happy_x_1 of { happy_var_1 -> + case happyOut60 happy_x_2 of { happy_var_2 -> + happyIn60 + (ConsExp happy_var_1 happy_var_2 + )}} + +happyReduce_177 = happySpecReduce_1 54# happyReduction_177 +happyReduction_177 happy_x_1 + = happyIn61 (PW ) -happyReduce_169 = happySpecReduce_1 51# happyReduction_169 -happyReduction_169 happy_x_1 +happyReduce_178 = happySpecReduce_1 54# happyReduction_178 +happyReduction_178 happy_x_1 = case happyOut7 happy_x_1 of { happy_var_1 -> - happyIn58 + happyIn61 (PV happy_var_1 )} -happyReduce_170 = happySpecReduce_3 51# happyReduction_170 -happyReduction_170 happy_x_3 +happyReduce_179 = happySpecReduce_3 54# happyReduction_179 +happyReduction_179 happy_x_3 happy_x_2 happy_x_1 = case happyOut7 happy_x_2 of { happy_var_2 -> - happyIn58 + happyIn61 (PCon happy_var_2 )} -happyReduce_171 = happySpecReduce_3 51# happyReduction_171 -happyReduction_171 happy_x_3 +happyReduce_180 = happySpecReduce_3 54# happyReduction_180 +happyReduction_180 happy_x_3 happy_x_2 happy_x_1 = case happyOut7 happy_x_1 of { happy_var_1 -> case happyOut7 happy_x_3 of { happy_var_3 -> - happyIn58 + happyIn61 (PQ happy_var_1 happy_var_3 )}} -happyReduce_172 = happySpecReduce_1 51# happyReduction_172 -happyReduction_172 happy_x_1 - = case happyOut9 happy_x_1 of { happy_var_1 -> - happyIn58 +happyReduce_181 = happySpecReduce_1 54# happyReduction_181 +happyReduction_181 happy_x_1 + = case happyOut8 happy_x_1 of { happy_var_1 -> + happyIn61 (PInt happy_var_1 )} -happyReduce_173 = happySpecReduce_1 51# happyReduction_173 -happyReduction_173 happy_x_1 - = case happyOut8 happy_x_1 of { happy_var_1 -> - happyIn58 +happyReduce_182 = happySpecReduce_1 54# happyReduction_182 +happyReduction_182 happy_x_1 + = case happyOut9 happy_x_1 of { happy_var_1 -> + happyIn61 (PStr happy_var_1 )} -happyReduce_174 = happySpecReduce_3 51# happyReduction_174 -happyReduction_174 happy_x_3 +happyReduce_183 = happySpecReduce_3 54# happyReduction_183 +happyReduction_183 happy_x_3 happy_x_2 happy_x_1 - = case happyOut63 happy_x_2 of { happy_var_2 -> - happyIn58 + = case happyOut66 happy_x_2 of { happy_var_2 -> + happyIn61 (PR happy_var_2 )} -happyReduce_175 = happySpecReduce_3 51# happyReduction_175 -happyReduction_175 happy_x_3 +happyReduce_184 = happySpecReduce_3 54# happyReduction_184 +happyReduction_184 happy_x_3 happy_x_2 happy_x_1 - = case happyOut73 happy_x_2 of { happy_var_2 -> - happyIn58 + = case happyOut76 happy_x_2 of { happy_var_2 -> + happyIn61 (PTup happy_var_2 )} -happyReduce_176 = happySpecReduce_3 51# happyReduction_176 -happyReduction_176 happy_x_3 +happyReduce_185 = happySpecReduce_3 54# happyReduction_185 +happyReduction_185 happy_x_3 happy_x_2 happy_x_1 - = case happyOut59 happy_x_2 of { happy_var_2 -> - happyIn58 + = case happyOut62 happy_x_2 of { happy_var_2 -> + happyIn61 (happy_var_2 )} -happyReduce_177 = happySpecReduce_2 52# happyReduction_177 -happyReduction_177 happy_x_2 +happyReduce_186 = happySpecReduce_2 55# happyReduction_186 +happyReduction_186 happy_x_2 happy_x_1 = case happyOut7 happy_x_1 of { happy_var_1 -> - case happyOut65 happy_x_2 of { happy_var_2 -> - happyIn59 + case happyOut68 happy_x_2 of { happy_var_2 -> + happyIn62 (PC happy_var_1 happy_var_2 )}} -happyReduce_178 = happyReduce 4# 52# happyReduction_178 -happyReduction_178 (happy_x_4 `HappyStk` +happyReduce_187 = happyReduce 4# 55# happyReduction_187 +happyReduction_187 (happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` happyRest) = case happyOut7 happy_x_1 of { happy_var_1 -> case happyOut7 happy_x_3 of { happy_var_3 -> - case happyOut65 happy_x_4 of { happy_var_4 -> - happyIn59 + case happyOut68 happy_x_4 of { happy_var_4 -> + happyIn62 (PQC happy_var_1 happy_var_3 happy_var_4 ) `HappyStk` happyRest}}} -happyReduce_179 = happySpecReduce_1 52# happyReduction_179 -happyReduction_179 happy_x_1 - = case happyOut58 happy_x_1 of { happy_var_1 -> - happyIn59 +happyReduce_188 = happySpecReduce_1 55# happyReduction_188 +happyReduction_188 happy_x_1 + = case happyOut61 happy_x_1 of { happy_var_1 -> + happyIn62 (happy_var_1 )} -happyReduce_180 = happySpecReduce_3 53# happyReduction_180 -happyReduction_180 happy_x_3 +happyReduce_189 = happySpecReduce_3 56# happyReduction_189 +happyReduction_189 happy_x_3 happy_x_2 happy_x_1 = case happyOut49 happy_x_1 of { happy_var_1 -> - case happyOut59 happy_x_3 of { happy_var_3 -> - happyIn60 + case happyOut62 happy_x_3 of { happy_var_3 -> + happyIn63 (PA happy_var_1 happy_var_3 )}} -happyReduce_181 = happySpecReduce_1 54# happyReduction_181 -happyReduction_181 happy_x_1 +happyReduce_190 = happySpecReduce_1 57# happyReduction_190 +happyReduction_190 happy_x_1 = case happyOut7 happy_x_1 of { happy_var_1 -> - happyIn61 + happyIn64 (LIdent happy_var_1 )} -happyReduce_182 = happySpecReduce_2 54# happyReduction_182 -happyReduction_182 happy_x_2 +happyReduce_191 = happySpecReduce_2 57# happyReduction_191 +happyReduction_191 happy_x_2 happy_x_1 - = case happyOut9 happy_x_2 of { happy_var_2 -> - happyIn61 - (LVar happy_var_2 - )} - -happyReduce_183 = happySpecReduce_1 55# happyReduction_183 -happyReduction_183 happy_x_1 - = happyIn62 - (Sort_Type - ) - -happyReduce_184 = happySpecReduce_1 55# happyReduction_184 -happyReduction_184 happy_x_1 - = happyIn62 - (Sort_PType - ) - -happyReduce_185 = happySpecReduce_1 55# happyReduction_185 -happyReduction_185 happy_x_1 - = happyIn62 - (Sort_Tok - ) - -happyReduce_186 = happySpecReduce_1 55# happyReduction_186 -happyReduction_186 happy_x_1 - = happyIn62 - (Sort_Str - ) - -happyReduce_187 = happySpecReduce_1 55# happyReduction_187 -happyReduction_187 happy_x_1 - = happyIn62 - (Sort_Strs - ) - -happyReduce_188 = happySpecReduce_0 56# happyReduction_188 -happyReduction_188 = happyIn63 - ([] - ) - -happyReduce_189 = happySpecReduce_1 56# happyReduction_189 -happyReduction_189 happy_x_1 - = case happyOut60 happy_x_1 of { happy_var_1 -> - happyIn63 - ((:[]) happy_var_1 - )} - -happyReduce_190 = happySpecReduce_3 56# happyReduction_190 -happyReduction_190 happy_x_3 - happy_x_2 - happy_x_1 - = case happyOut60 happy_x_1 of { happy_var_1 -> - case happyOut63 happy_x_3 of { happy_var_3 -> - happyIn63 - ((:) happy_var_1 happy_var_3 - )}} - -happyReduce_191 = happySpecReduce_1 57# happyReduction_191 -happyReduction_191 happy_x_1 - = case happyOut59 happy_x_1 of { happy_var_1 -> + = case happyOut8 happy_x_2 of { happy_var_2 -> happyIn64 - (AltP happy_var_1 + (LVar happy_var_2 )} happyReduce_192 = happySpecReduce_1 58# happyReduction_192 happyReduction_192 happy_x_1 - = case happyOut58 happy_x_1 of { happy_var_1 -> - happyIn65 - ((:[]) happy_var_1 - )} + = happyIn65 + (Sort_Type + ) -happyReduce_193 = happySpecReduce_2 58# happyReduction_193 -happyReduction_193 happy_x_2 - happy_x_1 - = case happyOut58 happy_x_1 of { happy_var_1 -> - case happyOut65 happy_x_2 of { happy_var_2 -> - happyIn65 - ((:) happy_var_1 happy_var_2 - )}} +happyReduce_193 = happySpecReduce_1 58# happyReduction_193 +happyReduction_193 happy_x_1 + = happyIn65 + (Sort_PType + ) -happyReduce_194 = happySpecReduce_1 59# happyReduction_194 +happyReduce_194 = happySpecReduce_1 58# happyReduction_194 happyReduction_194 happy_x_1 - = case happyOut64 happy_x_1 of { happy_var_1 -> + = happyIn65 + (Sort_Tok + ) + +happyReduce_195 = happySpecReduce_1 58# happyReduction_195 +happyReduction_195 happy_x_1 + = happyIn65 + (Sort_Str + ) + +happyReduce_196 = happySpecReduce_1 58# happyReduction_196 +happyReduction_196 happy_x_1 + = happyIn65 + (Sort_Strs + ) + +happyReduce_197 = happySpecReduce_0 59# happyReduction_197 +happyReduction_197 = happyIn66 + ([] + ) + +happyReduce_198 = happySpecReduce_1 59# happyReduction_198 +happyReduction_198 happy_x_1 + = case happyOut63 happy_x_1 of { happy_var_1 -> happyIn66 ((:[]) happy_var_1 )} -happyReduce_195 = happySpecReduce_3 59# happyReduction_195 -happyReduction_195 happy_x_3 +happyReduce_199 = happySpecReduce_3 59# happyReduction_199 +happyReduction_199 happy_x_3 happy_x_2 happy_x_1 - = case happyOut64 happy_x_1 of { happy_var_1 -> + = case happyOut63 happy_x_1 of { happy_var_1 -> case happyOut66 happy_x_3 of { happy_var_3 -> happyIn66 ((:) happy_var_1 happy_var_3 )}} -happyReduce_196 = happySpecReduce_1 60# happyReduction_196 -happyReduction_196 happy_x_1 - = case happyOut7 happy_x_1 of { happy_var_1 -> +happyReduce_200 = happySpecReduce_1 60# happyReduction_200 +happyReduction_200 happy_x_1 + = case happyOut62 happy_x_1 of { happy_var_1 -> happyIn67 - (BIdent happy_var_1 + (AltP happy_var_1 )} -happyReduce_197 = happySpecReduce_1 60# happyReduction_197 -happyReduction_197 happy_x_1 - = happyIn67 - (BWild - ) - -happyReduce_198 = happySpecReduce_0 61# happyReduction_198 -happyReduction_198 = happyIn68 - ([] - ) - -happyReduce_199 = happySpecReduce_1 61# happyReduction_199 -happyReduction_199 happy_x_1 - = case happyOut67 happy_x_1 of { happy_var_1 -> +happyReduce_201 = happySpecReduce_1 61# happyReduction_201 +happyReduction_201 happy_x_1 + = case happyOut61 happy_x_1 of { happy_var_1 -> happyIn68 ((:[]) happy_var_1 )} -happyReduce_200 = happySpecReduce_3 61# happyReduction_200 -happyReduction_200 happy_x_3 +happyReduce_202 = happySpecReduce_2 61# happyReduction_202 +happyReduction_202 happy_x_2 + happy_x_1 + = case happyOut61 happy_x_1 of { happy_var_1 -> + case happyOut68 happy_x_2 of { happy_var_2 -> + happyIn68 + ((:) happy_var_1 happy_var_2 + )}} + +happyReduce_203 = happySpecReduce_1 62# happyReduction_203 +happyReduction_203 happy_x_1 + = case happyOut67 happy_x_1 of { happy_var_1 -> + happyIn69 + ((:[]) happy_var_1 + )} + +happyReduce_204 = happySpecReduce_3 62# happyReduction_204 +happyReduction_204 happy_x_3 happy_x_2 happy_x_1 = case happyOut67 happy_x_1 of { happy_var_1 -> - case happyOut68 happy_x_3 of { happy_var_3 -> - happyIn68 + case happyOut69 happy_x_3 of { happy_var_3 -> + happyIn69 ((:) happy_var_1 happy_var_3 )}} -happyReduce_201 = happyReduce 5# 62# happyReduction_201 -happyReduction_201 (happy_x_5 `HappyStk` +happyReduce_205 = happySpecReduce_1 63# happyReduction_205 +happyReduction_205 happy_x_1 + = case happyOut7 happy_x_1 of { happy_var_1 -> + happyIn70 + (BIdent happy_var_1 + )} + +happyReduce_206 = happySpecReduce_1 63# happyReduction_206 +happyReduction_206 happy_x_1 + = happyIn70 + (BWild + ) + +happyReduce_207 = happySpecReduce_0 64# happyReduction_207 +happyReduction_207 = happyIn71 + ([] + ) + +happyReduce_208 = happySpecReduce_1 64# happyReduction_208 +happyReduction_208 happy_x_1 + = case happyOut70 happy_x_1 of { happy_var_1 -> + happyIn71 + ((:[]) happy_var_1 + )} + +happyReduce_209 = happySpecReduce_3 64# happyReduction_209 +happyReduction_209 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut70 happy_x_1 of { happy_var_1 -> + case happyOut71 happy_x_3 of { happy_var_3 -> + happyIn71 + ((:) happy_var_1 happy_var_3 + )}} + +happyReduce_210 = happyReduce 5# 65# happyReduction_210 +happyReduction_210 (happy_x_5 `HappyStk` happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` happyRest) - = case happyOut68 happy_x_2 of { happy_var_2 -> - case happyOut56 happy_x_4 of { happy_var_4 -> - happyIn69 + = case happyOut71 happy_x_2 of { happy_var_2 -> + case happyOut58 happy_x_4 of { happy_var_4 -> + happyIn72 (DDec happy_var_2 happy_var_4 ) `HappyStk` happyRest}} -happyReduce_202 = happySpecReduce_1 62# happyReduction_202 -happyReduction_202 happy_x_1 - = case happyOut54 happy_x_1 of { happy_var_1 -> - happyIn69 +happyReduce_211 = happySpecReduce_1 65# happyReduction_211 +happyReduction_211 happy_x_1 + = case happyOut56 happy_x_1 of { happy_var_1 -> + happyIn72 (DExp happy_var_1 )} -happyReduce_203 = happySpecReduce_1 63# happyReduction_203 -happyReduction_203 happy_x_1 - = case happyOut56 happy_x_1 of { happy_var_1 -> - happyIn70 +happyReduce_212 = happySpecReduce_1 66# happyReduction_212 +happyReduction_212 happy_x_1 + = case happyOut58 happy_x_1 of { happy_var_1 -> + happyIn73 (TComp happy_var_1 )} -happyReduce_204 = happySpecReduce_1 64# happyReduction_204 -happyReduction_204 happy_x_1 - = case happyOut59 happy_x_1 of { happy_var_1 -> - happyIn71 +happyReduce_213 = happySpecReduce_1 67# happyReduction_213 +happyReduction_213 happy_x_1 + = case happyOut62 happy_x_1 of { happy_var_1 -> + happyIn74 (PTComp happy_var_1 )} -happyReduce_205 = happySpecReduce_0 65# happyReduction_205 -happyReduction_205 = happyIn72 +happyReduce_214 = happySpecReduce_0 68# happyReduction_214 +happyReduction_214 = happyIn75 ([] ) -happyReduce_206 = happySpecReduce_1 65# happyReduction_206 -happyReduction_206 happy_x_1 - = case happyOut70 happy_x_1 of { happy_var_1 -> - happyIn72 - ((:[]) happy_var_1 - )} - -happyReduce_207 = happySpecReduce_3 65# happyReduction_207 -happyReduction_207 happy_x_3 - happy_x_2 - happy_x_1 - = case happyOut70 happy_x_1 of { happy_var_1 -> - case happyOut72 happy_x_3 of { happy_var_3 -> - happyIn72 - ((:) happy_var_1 happy_var_3 - )}} - -happyReduce_208 = happySpecReduce_0 66# happyReduction_208 -happyReduction_208 = happyIn73 - ([] - ) - -happyReduce_209 = happySpecReduce_1 66# happyReduction_209 -happyReduction_209 happy_x_1 - = case happyOut71 happy_x_1 of { happy_var_1 -> - happyIn73 - ((:[]) happy_var_1 - )} - -happyReduce_210 = happySpecReduce_3 66# happyReduction_210 -happyReduction_210 happy_x_3 - happy_x_2 - happy_x_1 - = case happyOut71 happy_x_1 of { happy_var_1 -> - case happyOut73 happy_x_3 of { happy_var_3 -> - happyIn73 - ((:) happy_var_1 happy_var_3 - )}} - -happyReduce_211 = happySpecReduce_3 67# happyReduction_211 -happyReduction_211 happy_x_3 - happy_x_2 - happy_x_1 - = case happyOut66 happy_x_1 of { happy_var_1 -> - case happyOut56 happy_x_3 of { happy_var_3 -> - happyIn74 - (Case happy_var_1 happy_var_3 - )}} - -happyReduce_212 = happySpecReduce_1 68# happyReduction_212 -happyReduction_212 happy_x_1 - = case happyOut74 happy_x_1 of { happy_var_1 -> +happyReduce_215 = happySpecReduce_1 68# happyReduction_215 +happyReduction_215 happy_x_1 + = case happyOut73 happy_x_1 of { happy_var_1 -> happyIn75 ((:[]) happy_var_1 )} -happyReduce_213 = happySpecReduce_3 68# happyReduction_213 -happyReduction_213 happy_x_3 +happyReduce_216 = happySpecReduce_3 68# happyReduction_216 +happyReduction_216 happy_x_3 happy_x_2 happy_x_1 - = case happyOut74 happy_x_1 of { happy_var_1 -> + = case happyOut73 happy_x_1 of { happy_var_1 -> case happyOut75 happy_x_3 of { happy_var_3 -> happyIn75 ((:) happy_var_1 happy_var_3 )}} -happyReduce_214 = happySpecReduce_3 69# happyReduction_214 -happyReduction_214 happy_x_3 +happyReduce_217 = happySpecReduce_0 69# happyReduction_217 +happyReduction_217 = happyIn76 + ([] + ) + +happyReduce_218 = happySpecReduce_1 69# happyReduction_218 +happyReduction_218 happy_x_1 + = case happyOut74 happy_x_1 of { happy_var_1 -> + happyIn76 + ((:[]) happy_var_1 + )} + +happyReduce_219 = happySpecReduce_3 69# happyReduction_219 +happyReduction_219 happy_x_3 happy_x_2 happy_x_1 - = case happyOut65 happy_x_1 of { happy_var_1 -> - case happyOut56 happy_x_3 of { happy_var_3 -> + = case happyOut74 happy_x_1 of { happy_var_1 -> + case happyOut76 happy_x_3 of { happy_var_3 -> happyIn76 + ((:) happy_var_1 happy_var_3 + )}} + +happyReduce_220 = happySpecReduce_3 70# happyReduction_220 +happyReduction_220 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut69 happy_x_1 of { happy_var_1 -> + case happyOut58 happy_x_3 of { happy_var_3 -> + happyIn77 + (Case happy_var_1 happy_var_3 + )}} + +happyReduce_221 = happySpecReduce_1 71# happyReduction_221 +happyReduction_221 happy_x_1 + = case happyOut77 happy_x_1 of { happy_var_1 -> + happyIn78 + ((:[]) happy_var_1 + )} + +happyReduce_222 = happySpecReduce_3 71# happyReduction_222 +happyReduction_222 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut77 happy_x_1 of { happy_var_1 -> + case happyOut78 happy_x_3 of { happy_var_3 -> + happyIn78 + ((:) happy_var_1 happy_var_3 + )}} + +happyReduce_223 = happySpecReduce_3 72# happyReduction_223 +happyReduction_223 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut68 happy_x_1 of { happy_var_1 -> + case happyOut58 happy_x_3 of { happy_var_3 -> + happyIn79 (Equ happy_var_1 happy_var_3 )}} -happyReduce_215 = happySpecReduce_0 70# happyReduction_215 -happyReduction_215 = happyIn77 +happyReduce_224 = happySpecReduce_0 73# happyReduction_224 +happyReduction_224 = happyIn80 ([] ) -happyReduce_216 = happySpecReduce_1 70# happyReduction_216 -happyReduction_216 happy_x_1 - = case happyOut76 happy_x_1 of { happy_var_1 -> - happyIn77 +happyReduce_225 = happySpecReduce_1 73# happyReduction_225 +happyReduction_225 happy_x_1 + = case happyOut79 happy_x_1 of { happy_var_1 -> + happyIn80 ((:[]) happy_var_1 )} -happyReduce_217 = happySpecReduce_3 70# happyReduction_217 -happyReduction_217 happy_x_3 +happyReduce_226 = happySpecReduce_3 73# happyReduction_226 +happyReduction_226 happy_x_3 happy_x_2 happy_x_1 - = case happyOut76 happy_x_1 of { happy_var_1 -> - case happyOut77 happy_x_3 of { happy_var_3 -> - happyIn77 + = case happyOut79 happy_x_1 of { happy_var_1 -> + case happyOut80 happy_x_3 of { happy_var_3 -> + happyIn80 ((:) happy_var_1 happy_var_3 )}} -happyReduce_218 = happySpecReduce_3 71# happyReduction_218 -happyReduction_218 happy_x_3 +happyReduce_227 = happySpecReduce_3 74# happyReduction_227 +happyReduction_227 happy_x_3 happy_x_2 happy_x_1 - = case happyOut56 happy_x_1 of { happy_var_1 -> - case happyOut56 happy_x_3 of { happy_var_3 -> - happyIn78 + = case happyOut58 happy_x_1 of { happy_var_1 -> + case happyOut58 happy_x_3 of { happy_var_3 -> + happyIn81 (Alt happy_var_1 happy_var_3 )}} -happyReduce_219 = happySpecReduce_0 72# happyReduction_219 -happyReduction_219 = happyIn79 +happyReduce_228 = happySpecReduce_0 75# happyReduction_228 +happyReduction_228 = happyIn82 ([] ) -happyReduce_220 = happySpecReduce_1 72# happyReduction_220 -happyReduction_220 happy_x_1 - = case happyOut78 happy_x_1 of { happy_var_1 -> - happyIn79 +happyReduce_229 = happySpecReduce_1 75# happyReduction_229 +happyReduction_229 happy_x_1 + = case happyOut81 happy_x_1 of { happy_var_1 -> + happyIn82 ((:[]) happy_var_1 )} -happyReduce_221 = happySpecReduce_3 72# happyReduction_221 -happyReduction_221 happy_x_3 +happyReduce_230 = happySpecReduce_3 75# happyReduction_230 +happyReduction_230 happy_x_3 happy_x_2 happy_x_1 - = case happyOut78 happy_x_1 of { happy_var_1 -> - case happyOut79 happy_x_3 of { happy_var_3 -> - happyIn79 + = case happyOut81 happy_x_1 of { happy_var_1 -> + case happyOut82 happy_x_3 of { happy_var_3 -> + happyIn82 ((:) happy_var_1 happy_var_3 )}} -happyReduce_222 = happyReduce 5# 73# happyReduction_222 -happyReduction_222 (happy_x_5 `HappyStk` +happyReduce_231 = happyReduce 5# 76# happyReduction_231 +happyReduction_231 (happy_x_5 `HappyStk` happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` happyRest) - = case happyOut68 happy_x_2 of { happy_var_2 -> - case happyOut56 happy_x_4 of { happy_var_4 -> - happyIn80 + = case happyOut71 happy_x_2 of { happy_var_2 -> + case happyOut58 happy_x_4 of { happy_var_4 -> + happyIn83 (DDDec happy_var_2 happy_var_4 ) `HappyStk` happyRest}} -happyReduce_223 = happySpecReduce_1 73# happyReduction_223 -happyReduction_223 happy_x_1 - = case happyOut52 happy_x_1 of { happy_var_1 -> - happyIn80 +happyReduce_232 = happySpecReduce_1 76# happyReduction_232 +happyReduction_232 happy_x_1 + = case happyOut54 happy_x_1 of { happy_var_1 -> + happyIn83 (DDExp happy_var_1 )} -happyReduce_224 = happySpecReduce_0 74# happyReduction_224 -happyReduction_224 = happyIn81 +happyReduce_233 = happySpecReduce_0 77# happyReduction_233 +happyReduction_233 = happyIn84 ([] ) -happyReduce_225 = happySpecReduce_2 74# happyReduction_225 -happyReduction_225 happy_x_2 - happy_x_1 - = case happyOut81 happy_x_1 of { happy_var_1 -> - case happyOut80 happy_x_2 of { happy_var_2 -> - happyIn81 - (flip (:) happy_var_1 happy_var_2 - )}} - -happyReduce_226 = happySpecReduce_2 75# happyReduction_226 -happyReduction_226 happy_x_2 - happy_x_1 - = case happyOut83 happy_x_1 of { happy_var_1 -> - case happyOut21 happy_x_2 of { happy_var_2 -> - happyIn82 - (OldGr happy_var_1 (reverse happy_var_2) - )}} - -happyReduce_227 = happySpecReduce_0 76# happyReduction_227 -happyReduction_227 = happyIn83 - (NoIncl - ) - -happyReduce_228 = happySpecReduce_2 76# happyReduction_228 -happyReduction_228 happy_x_2 - happy_x_1 - = case happyOut85 happy_x_2 of { happy_var_2 -> - happyIn83 - (Incl happy_var_2 - )} - -happyReduce_229 = happySpecReduce_1 77# happyReduction_229 -happyReduction_229 happy_x_1 - = case happyOut8 happy_x_1 of { happy_var_1 -> - happyIn84 - (FString happy_var_1 - )} - -happyReduce_230 = happySpecReduce_1 77# happyReduction_230 -happyReduction_230 happy_x_1 - = case happyOut7 happy_x_1 of { happy_var_1 -> - happyIn84 - (FIdent happy_var_1 - )} - -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 - (FSlash happy_var_2 - )} - -happyReduce_232 = happySpecReduce_2 77# happyReduction_232 -happyReduction_232 happy_x_2 - happy_x_1 - = case happyOut84 happy_x_2 of { happy_var_2 -> - happyIn84 - (FDot happy_var_2 - )} - -happyReduce_233 = happySpecReduce_2 77# happyReduction_233 -happyReduction_233 happy_x_2 - happy_x_1 - = case happyOut84 happy_x_2 of { happy_var_2 -> - happyIn84 - (FMinus happy_var_2 - )} - happyReduce_234 = happySpecReduce_2 77# happyReduction_234 happyReduction_234 happy_x_2 happy_x_1 - = case happyOut7 happy_x_1 of { happy_var_1 -> - case happyOut84 happy_x_2 of { happy_var_2 -> + = case happyOut84 happy_x_1 of { happy_var_1 -> + case happyOut83 happy_x_2 of { happy_var_2 -> happyIn84 - (FAddId happy_var_1 happy_var_2 + (flip (:) happy_var_1 happy_var_2 )}} happyReduce_235 = happySpecReduce_2 78# happyReduction_235 happyReduction_235 happy_x_2 happy_x_1 - = case happyOut84 happy_x_1 of { happy_var_1 -> + = case happyOut86 happy_x_1 of { happy_var_1 -> + case happyOut21 happy_x_2 of { happy_var_2 -> happyIn85 + (OldGr happy_var_1 (reverse happy_var_2) + )}} + +happyReduce_236 = happySpecReduce_0 79# happyReduction_236 +happyReduction_236 = happyIn86 + (NoIncl + ) + +happyReduce_237 = happySpecReduce_2 79# happyReduction_237 +happyReduction_237 happy_x_2 + happy_x_1 + = case happyOut88 happy_x_2 of { happy_var_2 -> + happyIn86 + (Incl happy_var_2 + )} + +happyReduce_238 = happySpecReduce_1 80# happyReduction_238 +happyReduction_238 happy_x_1 + = case happyOut9 happy_x_1 of { happy_var_1 -> + happyIn87 + (FString happy_var_1 + )} + +happyReduce_239 = happySpecReduce_1 80# happyReduction_239 +happyReduction_239 happy_x_1 + = case happyOut7 happy_x_1 of { happy_var_1 -> + happyIn87 + (FIdent happy_var_1 + )} + +happyReduce_240 = happySpecReduce_2 80# happyReduction_240 +happyReduction_240 happy_x_2 + happy_x_1 + = case happyOut87 happy_x_2 of { happy_var_2 -> + happyIn87 + (FSlash happy_var_2 + )} + +happyReduce_241 = happySpecReduce_2 80# happyReduction_241 +happyReduction_241 happy_x_2 + happy_x_1 + = case happyOut87 happy_x_2 of { happy_var_2 -> + happyIn87 + (FDot happy_var_2 + )} + +happyReduce_242 = happySpecReduce_2 80# happyReduction_242 +happyReduction_242 happy_x_2 + happy_x_1 + = case happyOut87 happy_x_2 of { happy_var_2 -> + happyIn87 + (FMinus happy_var_2 + )} + +happyReduce_243 = happySpecReduce_2 80# happyReduction_243 +happyReduction_243 happy_x_2 + happy_x_1 + = case happyOut7 happy_x_1 of { happy_var_1 -> + case happyOut87 happy_x_2 of { happy_var_2 -> + happyIn87 + (FAddId happy_var_1 happy_var_2 + )}} + +happyReduce_244 = happySpecReduce_2 81# happyReduction_244 +happyReduction_244 happy_x_2 + happy_x_1 + = case happyOut87 happy_x_1 of { happy_var_1 -> + happyIn88 ((:[]) happy_var_1 )} -happyReduce_236 = happySpecReduce_3 78# happyReduction_236 -happyReduction_236 happy_x_3 +happyReduce_245 = happySpecReduce_3 81# happyReduction_245 +happyReduction_245 happy_x_3 happy_x_2 happy_x_1 - = case happyOut84 happy_x_1 of { happy_var_1 -> - case happyOut85 happy_x_3 of { happy_var_3 -> - happyIn85 + = case happyOut87 happy_x_1 of { happy_var_1 -> + case happyOut88 happy_x_3 of { happy_var_3 -> + happyIn88 ((:) happy_var_1 happy_var_3 )}} happyNewToken action sts stk [] = - happyDoAction 80# (error "reading EOF!") action sts stk [] + happyDoAction 81# (error "reading EOF!") action sts stk [] happyNewToken action sts stk (tk:tks) = let cont i = happyDoAction i tk action sts stk tks in @@ -2807,88 +2921,98 @@ happyNewToken action sts stk (tk:tks) = PT _ (TS "]") -> cont 12#; PT _ (TS ".") -> cont 13#; PT _ (TS "|") -> cont 14#; - PT _ (TS "?") -> cont 15#; - PT _ (TS "<") -> cont 16#; - PT _ (TS ">") -> cont 17#; - PT _ (TS "@") -> cont 18#; - PT _ (TS "!") -> cont 19#; - PT _ (TS "*") -> cont 20#; - PT _ (TS "\\") -> cont 21#; - PT _ (TS "=>") -> cont 22#; - PT _ (TS "++") -> cont 23#; - PT _ (TS "+") -> cont 24#; - PT _ (TS "_") -> cont 25#; - PT _ (TS "$") -> cont 26#; - PT _ (TS "/") -> cont 27#; - PT _ (TS "-") -> cont 28#; - PT _ (TS "Lin") -> cont 29#; - PT _ (TS "PType") -> cont 30#; - PT _ (TS "Str") -> cont 31#; - PT _ (TS "Strs") -> cont 32#; - PT _ (TS "Tok") -> cont 33#; - PT _ (TS "Type") -> cont 34#; - PT _ (TS "abstract") -> cont 35#; - PT _ (TS "case") -> cont 36#; - PT _ (TS "cat") -> cont 37#; - PT _ (TS "concrete") -> cont 38#; - PT _ (TS "data") -> cont 39#; - PT _ (TS "def") -> cont 40#; - PT _ (TS "flags") -> cont 41#; - PT _ (TS "fn") -> cont 42#; - PT _ (TS "fun") -> cont 43#; - PT _ (TS "grammar") -> cont 44#; - PT _ (TS "in") -> cont 45#; - PT _ (TS "include") -> cont 46#; - PT _ (TS "incomplete") -> cont 47#; - PT _ (TS "instance") -> cont 48#; - PT _ (TS "interface") -> cont 49#; - PT _ (TS "let") -> cont 50#; - PT _ (TS "lin") -> cont 51#; - PT _ (TS "lincat") -> cont 52#; - PT _ (TS "lindef") -> cont 53#; - PT _ (TS "lintype") -> cont 54#; - PT _ (TS "of") -> cont 55#; - PT _ (TS "open") -> cont 56#; - PT _ (TS "oper") -> cont 57#; - PT _ (TS "out") -> cont 58#; - PT _ (TS "package") -> cont 59#; - PT _ (TS "param") -> cont 60#; - PT _ (TS "pattern") -> cont 61#; - PT _ (TS "pre") -> cont 62#; - PT _ (TS "printname") -> cont 63#; - PT _ (TS "resource") -> cont 64#; - PT _ (TS "reuse") -> cont 65#; - PT _ (TS "strs") -> cont 66#; - PT _ (TS "table") -> cont 67#; - PT _ (TS "tokenizer") -> cont 68#; - PT _ (TS "transfer") -> cont 69#; - PT _ (TS "union") -> cont 70#; - PT _ (TS "var") -> cont 71#; - PT _ (TS "variants") -> cont 72#; - PT _ (TS "where") -> cont 73#; - PT _ (TS "with") -> cont 74#; - PT _ (TV happy_dollar_dollar) -> cont 75#; - PT _ (TL happy_dollar_dollar) -> cont 76#; + PT _ (TS "%") -> cont 15#; + PT _ (TS "?") -> cont 16#; + PT _ (TS "<") -> cont 17#; + PT _ (TS ">") -> cont 18#; + PT _ (TS "@") -> cont 19#; + PT _ (TS "!") -> cont 20#; + PT _ (TS "*") -> cont 21#; + PT _ (TS "\\") -> cont 22#; + PT _ (TS "=>") -> cont 23#; + PT _ (TS "++") -> cont 24#; + PT _ (TS "+") -> cont 25#; + PT _ (TS "_") -> cont 26#; + PT _ (TS "$") -> cont 27#; + PT _ (TS "/") -> cont 28#; + PT _ (TS "-") -> cont 29#; + PT _ (TS "Lin") -> cont 30#; + PT _ (TS "PType") -> cont 31#; + PT _ (TS "Str") -> cont 32#; + PT _ (TS "Strs") -> cont 33#; + PT _ (TS "Tok") -> cont 34#; + PT _ (TS "Type") -> cont 35#; + PT _ (TS "abstract") -> cont 36#; + PT _ (TS "case") -> cont 37#; + PT _ (TS "cat") -> cont 38#; + PT _ (TS "concrete") -> cont 39#; + PT _ (TS "data") -> cont 40#; + PT _ (TS "def") -> cont 41#; + PT _ (TS "flags") -> cont 42#; + PT _ (TS "fn") -> cont 43#; + PT _ (TS "fun") -> cont 44#; + PT _ (TS "grammar") -> cont 45#; + PT _ (TS "in") -> cont 46#; + PT _ (TS "include") -> cont 47#; + PT _ (TS "incomplete") -> cont 48#; + PT _ (TS "instance") -> cont 49#; + PT _ (TS "interface") -> cont 50#; + PT _ (TS "let") -> cont 51#; + PT _ (TS "lin") -> cont 52#; + PT _ (TS "lincat") -> cont 53#; + PT _ (TS "lindef") -> cont 54#; + PT _ (TS "lintype") -> cont 55#; + PT _ (TS "of") -> cont 56#; + PT _ (TS "open") -> cont 57#; + PT _ (TS "oper") -> cont 58#; + PT _ (TS "out") -> cont 59#; + PT _ (TS "package") -> cont 60#; + PT _ (TS "param") -> cont 61#; + PT _ (TS "pattern") -> cont 62#; + PT _ (TS "pre") -> cont 63#; + PT _ (TS "printname") -> cont 64#; + PT _ (TS "resource") -> cont 65#; + PT _ (TS "reuse") -> cont 66#; + PT _ (TS "strs") -> cont 67#; + PT _ (TS "table") -> cont 68#; + PT _ (TS "tokenizer") -> cont 69#; + PT _ (TS "transfer") -> cont 70#; + PT _ (TS "union") -> cont 71#; + PT _ (TS "var") -> cont 72#; + PT _ (TS "variants") -> cont 73#; + PT _ (TS "where") -> cont 74#; + PT _ (TS "with") -> cont 75#; + PT _ (TV happy_dollar_dollar) -> cont 76#; PT _ (TI happy_dollar_dollar) -> cont 77#; - PT _ (T_LString happy_dollar_dollar) -> cont 78#; - _ -> cont 79#; - _ -> happyError tks + PT _ (TL happy_dollar_dollar) -> cont 78#; + PT _ (T_LString happy_dollar_dollar) -> cont 79#; + _ -> cont 80#; + _ -> happyError' (tk:tks) } -happyThen :: Err a -> (a -> Err b) -> Err b +happyError_ tk tks = happyError' (tk:tks) + +happyThen :: () => Err a -> (a -> Err b) -> Err b happyThen = (thenM) -happyReturn :: a -> Err a +happyReturn :: () => a -> Err a happyReturn = (returnM) happyThen1 m k tks = (thenM) m (\a -> k a tks) +happyReturn1 :: () => a -> b -> Err a happyReturn1 = \a tks -> (returnM) a +happyError' :: () => [Token] -> Err a +happyError' = happyError -pGrammar tks = happyThen (happyParse 0# tks) (\x -> happyReturn (happyOut11 x)) +pGrammar tks = happySomeParser where + happySomeParser = happyThen (happyParse 0# tks) (\x -> happyReturn (happyOut11 x)) -pModDef tks = happyThen (happyParse 1# tks) (\x -> happyReturn (happyOut13 x)) +pModDef tks = happySomeParser where + happySomeParser = happyThen (happyParse 1# tks) (\x -> happyReturn (happyOut13 x)) -pOldGrammar tks = happyThen (happyParse 2# tks) (\x -> happyReturn (happyOut82 x)) +pOldGrammar tks = happySomeParser where + happySomeParser = happyThen (happyParse 2# tks) (\x -> happyReturn (happyOut85 x)) -pExp tks = happyThen (happyParse 3# tks) (\x -> happyReturn (happyOut56 x)) +pExp tks = happySomeParser where + happySomeParser = happyThen (happyParse 3# tks) (\x -> happyReturn (happyOut58 x)) happySeq = happyDontSeq @@ -2904,7 +3028,7 @@ happyError ts = myLexer = tokens {-# LINE 1 "GenericTemplate.hs" #-} --- $Id: ParGF.hs,v 1.10 2005/04/21 16:23:27 bringert Exp $ +-- $Id: ParGF.hs,v 1.11 2005/05/25 10:41:59 bringert Exp $ @@ -2972,9 +3096,13 @@ happyParse start_state = happyNewToken start_state notHappyAtAll notHappyAtAll ----------------------------------------------------------------------------- -- Accepting the parse -happyAccept j tk st sts (HappyStk ans _) = (happyTcHack j - (happyTcHack st)) - (happyReturn1 ans) +-- If the current token is 0#, it means we've just accepted a partial +-- parse (a %partial parser). We must ignore the saved token on the top of +-- the stack in this case. +happyAccept 0# tk st sts (_ `HappyStk` ans `HappyStk` _) = + happyReturn1 ans +happyAccept j tk st sts (HappyStk ans _) = + (happyTcHack j (happyTcHack st)) (happyReturn1 ans) ----------------------------------------------------------------------------- -- Arrays only: do the next action @@ -3047,7 +3175,7 @@ data HappyAddr = HappyA# Addr# ----------------------------------------------------------------------------- -- HappyState data type (not arrays) -{-# LINE 165 "GenericTemplate.hs" #-} +{-# LINE 169 "GenericTemplate.hs" #-} ----------------------------------------------------------------------------- @@ -3127,8 +3255,7 @@ happyGoto nt j tk st = -- parse error if we are in recovery and we fail again happyFail 0# tk old_st _ stk = -- trace "failing" $ - happyError - + happyError_ tk {- We don't need state discarding for our restricted implementation of "error". In fact, it can cause some bogus parses, so I've disabled it diff --git a/src/GF/Source/ParGF.y b/src/GF/Source/ParGF.y new file mode 100644 index 000000000..5fb0194eb --- /dev/null +++ b/src/GF/Source/ParGF.y @@ -0,0 +1,597 @@ +-- This Happy file was machine-generated by the BNF converter +{ +module GF.Source.ParGF where -- H +import GF.Source.AbsGF -- H +import GF.Source.LexGF -- H +import GF.Infra.Ident -- H +import GF.Data.ErrM -- H +} + +%name pGrammar Grammar +%name pModDef ModDef +%name pOldGrammar OldGrammar +%name pExp Exp + +-- no lexer declaration +%monad { Err } { thenM } { returnM } +%tokentype { Token } + +%token + ';' { PT _ (TS ";") } + '=' { PT _ (TS "=") } + '{' { PT _ (TS "{") } + '}' { PT _ (TS "}") } + '(' { PT _ (TS "(") } + ')' { PT _ (TS ")") } + ':' { PT _ (TS ":") } + '->' { PT _ (TS "->") } + '**' { PT _ (TS "**") } + ',' { PT _ (TS ",") } + '[' { PT _ (TS "[") } + ']' { PT _ (TS "]") } + '.' { PT _ (TS ".") } + '|' { PT _ (TS "|") } + '%' { PT _ (TS "%") } + '?' { PT _ (TS "?") } + '<' { PT _ (TS "<") } + '>' { PT _ (TS ">") } + '@' { PT _ (TS "@") } + '!' { PT _ (TS "!") } + '*' { PT _ (TS "*") } + '\\' { PT _ (TS "\\") } + '=>' { PT _ (TS "=>") } + '++' { PT _ (TS "++") } + '+' { PT _ (TS "+") } + '_' { PT _ (TS "_") } + '$' { PT _ (TS "$") } + '/' { PT _ (TS "/") } + '-' { PT _ (TS "-") } + 'Lin' { PT _ (TS "Lin") } + 'PType' { PT _ (TS "PType") } + 'Str' { PT _ (TS "Str") } + 'Strs' { PT _ (TS "Strs") } + 'Tok' { PT _ (TS "Tok") } + 'Type' { PT _ (TS "Type") } + 'abstract' { PT _ (TS "abstract") } + 'case' { PT _ (TS "case") } + 'cat' { PT _ (TS "cat") } + 'concrete' { PT _ (TS "concrete") } + 'data' { PT _ (TS "data") } + 'def' { PT _ (TS "def") } + 'flags' { PT _ (TS "flags") } + 'fn' { PT _ (TS "fn") } + 'fun' { PT _ (TS "fun") } + 'grammar' { PT _ (TS "grammar") } + 'in' { PT _ (TS "in") } + 'include' { PT _ (TS "include") } + 'incomplete' { PT _ (TS "incomplete") } + 'instance' { PT _ (TS "instance") } + 'interface' { PT _ (TS "interface") } + 'let' { PT _ (TS "let") } + 'lin' { PT _ (TS "lin") } + 'lincat' { PT _ (TS "lincat") } + 'lindef' { PT _ (TS "lindef") } + 'lintype' { PT _ (TS "lintype") } + 'of' { PT _ (TS "of") } + 'open' { PT _ (TS "open") } + 'oper' { PT _ (TS "oper") } + 'out' { PT _ (TS "out") } + 'package' { PT _ (TS "package") } + 'param' { PT _ (TS "param") } + 'pattern' { PT _ (TS "pattern") } + 'pre' { PT _ (TS "pre") } + 'printname' { PT _ (TS "printname") } + 'resource' { PT _ (TS "resource") } + 'reuse' { PT _ (TS "reuse") } + 'strs' { PT _ (TS "strs") } + 'table' { PT _ (TS "table") } + 'tokenizer' { PT _ (TS "tokenizer") } + 'transfer' { PT _ (TS "transfer") } + 'union' { PT _ (TS "union") } + 'var' { PT _ (TS "var") } + 'variants' { PT _ (TS "variants") } + 'where' { PT _ (TS "where") } + 'with' { PT _ (TS "with") } + +L_ident { PT _ (TV $$) } +L_integ { PT _ (TI $$) } +L_quoted { PT _ (TL $$) } +L_LString { PT _ (T_LString $$) } +L_err { _ } + + +%% + +Ident :: { Ident } : L_ident { identC $1 } -- H +Integer :: { Integer } : L_integ { (read $1) :: Integer } +String :: { String } : L_quoted { $1 } +LString :: { LString} : L_LString { LString ($1)} + +Grammar :: { Grammar } +Grammar : ListModDef { Gr (reverse $1) } + + +ListModDef :: { [ModDef] } +ListModDef : {- empty -} { [] } + | ListModDef ModDef { flip (:) $1 $2 } + + +ModDef :: { ModDef } +ModDef : ModDef ';' { $1 } + | 'grammar' Ident '=' '{' 'abstract' '=' Ident ';' ListConcSpec '}' { MMain $2 $7 $9 } + | ComplMod ModType '=' ModBody { MModule $1 $2 $4 } + + +ConcSpec :: { ConcSpec } +ConcSpec : Ident '=' ConcExp { ConcSpec $1 $3 } + + +ListConcSpec :: { [ConcSpec] } +ListConcSpec : {- empty -} { [] } + | ConcSpec { (:[]) $1 } + | ConcSpec ';' ListConcSpec { (:) $1 $3 } + + +ConcExp :: { ConcExp } +ConcExp : Ident ListTransfer { ConcExp $1 (reverse $2) } + + +ListTransfer :: { [Transfer] } +ListTransfer : {- empty -} { [] } + | ListTransfer Transfer { flip (:) $1 $2 } + + +Transfer :: { Transfer } +Transfer : '(' 'transfer' 'in' Open ')' { TransferIn $4 } + | '(' 'transfer' 'out' Open ')' { TransferOut $4 } + + +ModType :: { ModType } +ModType : 'abstract' Ident { MTAbstract $2 } + | 'resource' Ident { MTResource $2 } + | 'interface' Ident { MTInterface $2 } + | 'concrete' Ident 'of' Ident { MTConcrete $2 $4 } + | 'instance' Ident 'of' Ident { MTInstance $2 $4 } + | 'transfer' Ident ':' Open '->' Open { MTTransfer $2 $4 $6 } + + +ModBody :: { ModBody } +ModBody : Extend Opens '{' ListTopDef '}' { MBody $1 $2 (reverse $4) } + | Ident 'with' ListOpen { MWith $1 $3 } + | ListIdent '**' Ident 'with' ListOpen { MWithE $1 $3 $5 } + | 'reuse' Ident { MReuse $2 } + | 'union' ListIncluded { MUnion $2 } + + +ListTopDef :: { [TopDef] } +ListTopDef : {- empty -} { [] } + | ListTopDef TopDef { flip (:) $1 $2 } + + +Extend :: { Extend } +Extend : ListIdent '**' { Ext $1 } + | {- empty -} { NoExt } + + +ListOpen :: { [Open] } +ListOpen : {- empty -} { [] } + | Open { (:[]) $1 } + | Open ',' ListOpen { (:) $1 $3 } + + +Opens :: { Opens } +Opens : {- empty -} { NoOpens } + | 'open' ListOpen 'in' { OpenIn $2 } + + +Open :: { Open } +Open : Ident { OName $1 } + | '(' QualOpen Ident ')' { OQualQO $2 $3 } + | '(' QualOpen Ident '=' Ident ')' { OQual $2 $3 $5 } + + +ComplMod :: { ComplMod } +ComplMod : {- empty -} { CMCompl } + | 'incomplete' { CMIncompl } + + +QualOpen :: { QualOpen } +QualOpen : {- empty -} { QOCompl } + | 'incomplete' { QOIncompl } + | 'interface' { QOInterface } + + +ListIncluded :: { [Included] } +ListIncluded : {- empty -} { [] } + | Included { (:[]) $1 } + | Included ',' ListIncluded { (:) $1 $3 } + + +Included :: { Included } +Included : Ident { IAll $1 } + | Ident '[' ListIdent ']' { ISome $1 $3 } + + +Def :: { Def } +Def : ListName ':' Exp { DDecl $1 $3 } + | ListName '=' Exp { DDef $1 $3 } + | Name ListPatt '=' Exp { DPatt $1 $2 $4 } + | ListName ':' Exp '=' Exp { DFull $1 $3 $5 } + + +TopDef :: { TopDef } +TopDef : 'cat' ListCatDef { DefCat $2 } + | 'fun' ListFunDef { DefFun $2 } + | 'data' ListFunDef { DefFunData $2 } + | 'def' ListDef { DefDef $2 } + | 'data' ListDataDef { DefData $2 } + | 'transfer' ListDef { DefTrans $2 } + | 'param' ListParDef { DefPar $2 } + | 'oper' ListDef { DefOper $2 } + | 'lincat' ListPrintDef { DefLincat $2 } + | 'lindef' ListDef { DefLindef $2 } + | 'lin' ListDef { DefLin $2 } + | 'printname' 'cat' ListPrintDef { DefPrintCat $3 } + | 'printname' 'fun' ListPrintDef { DefPrintFun $3 } + | 'flags' ListFlagDef { DefFlag $2 } + | 'printname' ListPrintDef { DefPrintOld $2 } + | 'lintype' ListDef { DefLintype $2 } + | 'pattern' ListDef { DefPattern $2 } + | 'package' Ident '=' '{' ListTopDef '}' ';' { DefPackage $2 (reverse $5) } + | 'var' ListDef { DefVars $2 } + | 'tokenizer' Ident ';' { DefTokenizer $2 } + + +CatDef :: { CatDef } +CatDef : Ident ListDDecl { SimpleCatDef $1 (reverse $2) } + | '[' Ident ListDDecl ']' { ListCatDef $2 (reverse $3) } + | '[' Ident ListDDecl ']' '{' Integer '}' { ListSizeCatDef $2 (reverse $3) $6 } + + +FunDef :: { FunDef } +FunDef : ListIdent ':' Exp { FunDef $1 $3 } + + +DataDef :: { DataDef } +DataDef : Ident '=' ListDataConstr { DataDef $1 $3 } + + +DataConstr :: { DataConstr } +DataConstr : Ident { DataId $1 } + | Ident '.' Ident { DataQId $1 $3 } + + +ListDataConstr :: { [DataConstr] } +ListDataConstr : {- empty -} { [] } + | DataConstr { (:[]) $1 } + | DataConstr '|' ListDataConstr { (:) $1 $3 } + + +ParDef :: { ParDef } +ParDef : Ident '=' ListParConstr { ParDefDir $1 $3 } + | Ident '=' '(' 'in' Ident ')' { ParDefIndir $1 $5 } + | Ident { ParDefAbs $1 } + + +ParConstr :: { ParConstr } +ParConstr : Ident ListDDecl { ParConstr $1 (reverse $2) } + + +PrintDef :: { PrintDef } +PrintDef : ListName '=' Exp { PrintDef $1 $3 } + + +FlagDef :: { FlagDef } +FlagDef : Ident '=' Ident { FlagDef $1 $3 } + + +ListDef :: { [Def] } +ListDef : Def ';' { (:[]) $1 } + | Def ';' ListDef { (:) $1 $3 } + + +ListCatDef :: { [CatDef] } +ListCatDef : CatDef ';' { (:[]) $1 } + | CatDef ';' ListCatDef { (:) $1 $3 } + + +ListFunDef :: { [FunDef] } +ListFunDef : FunDef ';' { (:[]) $1 } + | FunDef ';' ListFunDef { (:) $1 $3 } + + +ListDataDef :: { [DataDef] } +ListDataDef : DataDef ';' { (:[]) $1 } + | DataDef ';' ListDataDef { (:) $1 $3 } + + +ListParDef :: { [ParDef] } +ListParDef : ParDef ';' { (:[]) $1 } + | ParDef ';' ListParDef { (:) $1 $3 } + + +ListPrintDef :: { [PrintDef] } +ListPrintDef : PrintDef ';' { (:[]) $1 } + | PrintDef ';' ListPrintDef { (:) $1 $3 } + + +ListFlagDef :: { [FlagDef] } +ListFlagDef : FlagDef ';' { (:[]) $1 } + | FlagDef ';' ListFlagDef { (:) $1 $3 } + + +ListParConstr :: { [ParConstr] } +ListParConstr : {- empty -} { [] } + | ParConstr { (:[]) $1 } + | ParConstr '|' ListParConstr { (:) $1 $3 } + + +ListIdent :: { [Ident] } +ListIdent : Ident { (:[]) $1 } + | Ident ',' ListIdent { (:) $1 $3 } + + +Name :: { Name } +Name : Ident { IdentName $1 } + | '[' Ident ']' { ListName $2 } + + +ListName :: { [Name] } +ListName : Name { (:[]) $1 } + | Name ',' ListName { (:) $1 $3 } + + +LocDef :: { LocDef } +LocDef : ListIdent ':' Exp { LDDecl $1 $3 } + | ListIdent '=' Exp { LDDef $1 $3 } + | ListIdent ':' Exp '=' Exp { LDFull $1 $3 $5 } + + +ListLocDef :: { [LocDef] } +ListLocDef : {- empty -} { [] } + | LocDef { (:[]) $1 } + | LocDef ';' ListLocDef { (:) $1 $3 } + + +Exp4 :: { Exp } +Exp4 : Ident { EIdent $1 } + | '{' Ident '}' { EConstr $2 } + | '%' Ident '%' { ECons $2 } + | Sort { ESort $1 } + | String { EString $1 } + | Integer { EInt $1 } + | '?' { EMeta } + | '[' ']' { EEmpty } + | 'data' { EData } + | '[' Ident Exps ']' { EList $2 $3 } + | '[' String ']' { EStrings $2 } + | '{' ListLocDef '}' { ERecord $2 } + | '<' ListTupleComp '>' { ETuple $2 } + | '(' 'in' Ident ')' { EIndir $3 } + | '<' Exp ':' Exp '>' { ETyped $2 $4 } + | '(' Exp ')' { $2 } + | LString { ELString $1 } + + +Exp3 :: { Exp } +Exp3 : Exp3 '.' Label { EProj $1 $3 } + | '{' Ident '.' Ident '}' { EQConstr $2 $4 } + | '%' Ident '.' Ident '%' { EQCons $2 $4 } + | Exp4 { $1 } + + +Exp2 :: { Exp } +Exp2 : Exp2 Exp3 { EApp $1 $2 } + | 'table' '{' ListCase '}' { ETable $3 } + | 'table' Exp4 '{' ListCase '}' { ETTable $2 $4 } + | 'table' Exp4 '[' ListExp ']' { EVTable $2 $4 } + | 'case' Exp 'of' '{' ListCase '}' { ECase $2 $5 } + | 'variants' '{' ListExp '}' { EVariants $3 } + | 'pre' '{' Exp ';' ListAltern '}' { EPre $3 $5 } + | 'strs' '{' ListExp '}' { EStrs $3 } + | Ident '@' Exp4 { EConAt $1 $3 } + | Exp3 { $1 } + | 'Lin' Ident { ELin $2 } + + +Exp1 :: { Exp } +Exp1 : Exp1 '!' Exp2 { ESelect $1 $3 } + | Exp1 '*' Exp2 { ETupTyp $1 $3 } + | Exp1 '**' Exp2 { EExtend $1 $3 } + | Exp2 { $1 } + + +Exp :: { Exp } +Exp : '\\' ListBind '->' Exp { EAbstr $2 $4 } + | '\\' '\\' ListBind '=>' Exp { ECTable $3 $5 } + | Decl '->' Exp { EProd $1 $3 } + | Exp1 '=>' Exp { ETType $1 $3 } + | Exp1 '++' Exp { EConcat $1 $3 } + | Exp1 '+' Exp { EGlue $1 $3 } + | 'let' '{' ListLocDef '}' 'in' Exp { ELet $3 $6 } + | 'let' ListLocDef 'in' Exp { ELetb $2 $4 } + | Exp1 'where' '{' ListLocDef '}' { EWhere $1 $4 } + | 'fn' '{' ListEquation '}' { EEqs $3 } + | Exp1 { $1 } + + +ListExp :: { [Exp] } +ListExp : {- empty -} { [] } + | Exp { (:[]) $1 } + | Exp ';' ListExp { (:) $1 $3 } + + +Exps :: { Exps } +Exps : {- empty -} { NilExp } + | Exp4 Exps { ConsExp $1 $2 } + + +Patt1 :: { Patt } +Patt1 : '_' { PW } + | Ident { PV $1 } + | '{' Ident '}' { PCon $2 } + | Ident '.' Ident { PQ $1 $3 } + | Integer { PInt $1 } + | String { PStr $1 } + | '{' ListPattAss '}' { PR $2 } + | '<' ListPattTupleComp '>' { PTup $2 } + | '(' Patt ')' { $2 } + + +Patt :: { Patt } +Patt : Ident ListPatt { PC $1 $2 } + | Ident '.' Ident ListPatt { PQC $1 $3 $4 } + | Patt1 { $1 } + + +PattAss :: { PattAss } +PattAss : ListIdent '=' Patt { PA $1 $3 } + + +Label :: { Label } +Label : Ident { LIdent $1 } + | '$' Integer { LVar $2 } + + +Sort :: { Sort } +Sort : 'Type' { Sort_Type } + | 'PType' { Sort_PType } + | 'Tok' { Sort_Tok } + | 'Str' { Sort_Str } + | 'Strs' { Sort_Strs } + + +ListPattAss :: { [PattAss] } +ListPattAss : {- empty -} { [] } + | PattAss { (:[]) $1 } + | PattAss ';' ListPattAss { (:) $1 $3 } + + +PattAlt :: { PattAlt } +PattAlt : Patt { AltP $1 } + + +ListPatt :: { [Patt] } +ListPatt : Patt1 { (:[]) $1 } + | Patt1 ListPatt { (:) $1 $2 } + + +ListPattAlt :: { [PattAlt] } +ListPattAlt : PattAlt { (:[]) $1 } + | PattAlt '|' ListPattAlt { (:) $1 $3 } + + +Bind :: { Bind } +Bind : Ident { BIdent $1 } + | '_' { BWild } + + +ListBind :: { [Bind] } +ListBind : {- empty -} { [] } + | Bind { (:[]) $1 } + | Bind ',' ListBind { (:) $1 $3 } + + +Decl :: { Decl } +Decl : '(' ListBind ':' Exp ')' { DDec $2 $4 } + | Exp2 { DExp $1 } + + +TupleComp :: { TupleComp } +TupleComp : Exp { TComp $1 } + + +PattTupleComp :: { PattTupleComp } +PattTupleComp : Patt { PTComp $1 } + + +ListTupleComp :: { [TupleComp] } +ListTupleComp : {- empty -} { [] } + | TupleComp { (:[]) $1 } + | TupleComp ',' ListTupleComp { (:) $1 $3 } + + +ListPattTupleComp :: { [PattTupleComp] } +ListPattTupleComp : {- empty -} { [] } + | PattTupleComp { (:[]) $1 } + | PattTupleComp ',' ListPattTupleComp { (:) $1 $3 } + + +Case :: { Case } +Case : ListPattAlt '=>' Exp { Case $1 $3 } + + +ListCase :: { [Case] } +ListCase : Case { (:[]) $1 } + | Case ';' ListCase { (:) $1 $3 } + + +Equation :: { Equation } +Equation : ListPatt '->' Exp { Equ $1 $3 } + + +ListEquation :: { [Equation] } +ListEquation : {- empty -} { [] } + | Equation { (:[]) $1 } + | Equation ';' ListEquation { (:) $1 $3 } + + +Altern :: { Altern } +Altern : Exp '/' Exp { Alt $1 $3 } + + +ListAltern :: { [Altern] } +ListAltern : {- empty -} { [] } + | Altern { (:[]) $1 } + | Altern ';' ListAltern { (:) $1 $3 } + + +DDecl :: { DDecl } +DDecl : '(' ListBind ':' Exp ')' { DDDec $2 $4 } + | Exp4 { DDExp $1 } + + +ListDDecl :: { [DDecl] } +ListDDecl : {- empty -} { [] } + | ListDDecl DDecl { flip (:) $1 $2 } + + +OldGrammar :: { OldGrammar } +OldGrammar : Include ListTopDef { OldGr $1 (reverse $2) } + + +Include :: { Include } +Include : {- empty -} { NoIncl } + | 'include' ListFileName { Incl $2 } + + +FileName :: { FileName } +FileName : String { FString $1 } + | Ident { FIdent $1 } + | '/' FileName { FSlash $2 } + | '.' FileName { FDot $2 } + | '-' FileName { FMinus $2 } + | Ident FileName { FAddId $1 $2 } + + +ListFileName :: { [FileName] } +ListFileName : FileName ';' { (:[]) $1 } + | FileName ';' ListFileName { (:) $1 $3 } + + + +{ + +returnM :: a -> Err a +returnM = return + +thenM :: Err a -> (a -> Err b) -> Err b +thenM = (>>=) + +happyError :: [Token] -> Err a +happyError ts = + Bad $ "syntax error at " ++ tokenPos ts ++ if null ts then [] else (" before " ++ unwords (map prToken (take 4 ts))) + +myLexer = tokens +} + diff --git a/src/GF/Source/PrintGF.hs b/src/GF/Source/PrintGF.hs index 007ca7928..d84fce863 100644 --- a/src/GF/Source/PrintGF.hs +++ b/src/GF/Source/PrintGF.hs @@ -198,10 +198,10 @@ instance Print Included where instance Print Def where prt i e = case e of - DDecl ids exp -> prPrec i 0 (concatD [prt 0 ids , doc (showString ":") , prt 0 exp]) - DDef ids exp -> prPrec i 0 (concatD [prt 0 ids , doc (showString "=") , prt 0 exp]) - DPatt id patts exp -> prPrec i 0 (concatD [prt 0 id , prt 0 patts , doc (showString "=") , prt 0 exp]) - DFull ids exp0 exp -> prPrec i 0 (concatD [prt 0 ids , doc (showString ":") , prt 0 exp0 , doc (showString "=") , prt 0 exp]) + DDecl names exp -> prPrec i 0 (concatD [prt 0 names , doc (showString ":") , prt 0 exp]) + DDef names exp -> prPrec i 0 (concatD [prt 0 names , doc (showString "=") , prt 0 exp]) + DPatt name patts exp -> prPrec i 0 (concatD [prt 0 name , prt 0 patts , doc (showString "=") , prt 0 exp]) + DFull names exp0 exp -> prPrec i 0 (concatD [prt 0 names , doc (showString ":") , prt 0 exp0 , doc (showString "=") , prt 0 exp]) prtList es = case es of [x] -> (concatD [prt 0 x , doc (showString ";")]) @@ -236,7 +236,9 @@ instance Print TopDef where instance Print CatDef where prt i e = case e of - CatDef id ddecls -> prPrec i 0 (concatD [prt 0 id , prt 0 ddecls]) + SimpleCatDef id ddecls -> prPrec i 0 (concatD [prt 0 id , prt 0 ddecls]) + ListCatDef id ddecls -> prPrec i 0 (concatD [doc (showString "[") , prt 0 id , prt 0 ddecls , doc (showString "]")]) + ListSizeCatDef id ddecls n -> prPrec i 0 (concatD [doc (showString "[") , prt 0 id , prt 0 ddecls , doc (showString "]") , doc (showString "{") , prt 0 n , doc (showString "}")]) prtList es = case es of [x] -> (concatD [prt 0 x , doc (showString ";")]) @@ -289,7 +291,7 @@ instance Print ParConstr where instance Print PrintDef where prt i e = case e of - PrintDef ids exp -> prPrec i 0 (concatD [prt 0 ids , doc (showString "=") , prt 0 exp]) + PrintDef names exp -> prPrec i 0 (concatD [prt 0 names , doc (showString "=") , prt 0 exp]) prtList es = case es of [x] -> (concatD [prt 0 x , doc (showString ";")]) @@ -303,6 +305,15 @@ instance Print FlagDef where [x] -> (concatD [prt 0 x , doc (showString ";")]) x:xs -> (concatD [prt 0 x , doc (showString ";") , prt 0 xs]) +instance Print Name where + prt i e = case e of + IdentName id -> prPrec i 0 (concatD [prt 0 id]) + ListName id -> prPrec i 0 (concatD [doc (showString "[") , prt 0 id , doc (showString "]")]) + + prtList es = case es of + [x] -> (concatD [prt 0 x]) + x:xs -> (concatD [prt 0 x , doc (showString ",") , prt 0 xs]) + instance Print LocDef where prt i e = case e of LDDecl ids exp -> prPrec i 0 (concatD [prt 0 ids , doc (showString ":") , prt 0 exp]) @@ -318,13 +329,14 @@ instance Print Exp where prt i e = case e of EIdent id -> prPrec i 4 (concatD [prt 0 id]) EConstr id -> prPrec i 4 (concatD [doc (showString "{0") , prt 0 id , doc (showString "}0")]) -- H - ECons id -> prPrec i 4 (concatD [doc (showString "[") , prt 0 id , doc (showString "]")]) + ECons id -> prPrec i 4 (concatD [doc (showString "%") , prt 0 id , doc (showString "%")]) ESort sort -> prPrec i 4 (concatD [prt 0 sort]) EString str -> prPrec i 4 (concatD [prt 0 str]) 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")]) + EList id exps -> prPrec i 4 (concatD [doc (showString "[") , prt 0 id , prt 0 exps , doc (showString "]")]) 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 ">")]) @@ -332,7 +344,7 @@ instance Print Exp where ETyped exp0 exp -> prPrec i 4 (concatD [doc (showString "<") , prt 0 exp0 , doc (showString ":") , prt 0 exp , doc (showString ">")]) EProj exp label -> prPrec i 3 (concatD [prt 3 exp , doc (showString ".") , prt 0 label]) EQConstr id0 id -> prPrec i 3 (concatD [doc (showString "{0") , prt 0 id0 , doc (showString ".") , prt 0 id , doc (showString "}0")]) -- H - EQCons id0 id -> prPrec i 3 (concatD [doc (showString "[") , prt 0 id0 , doc (showString ".") , prt 0 id , doc (showString "]")]) + EQCons id0 id -> prPrec i 3 (concatD [doc (showString "%") , prt 0 id0 , doc (showString ".") , prt 0 id , doc (showString "%")]) EApp exp0 exp -> prPrec i 2 (concatD [prt 2 exp0 , prt 3 exp]) ETable cases -> prPrec i 2 (concatD [doc (showString "table") , doc (showString "{") , prt 0 cases , doc (showString "}")]) ETTable exp cases -> prPrec i 2 (concatD [doc (showString "table") , prt 4 exp , doc (showString "{") , prt 0 cases , doc (showString "}")]) @@ -363,6 +375,12 @@ instance Print Exp where [x] -> (concatD [prt 0 x]) x:xs -> (concatD [prt 0 x , doc (showString ";") , prt 0 xs]) +instance Print Exps where + prt i e = case e of + NilExp -> prPrec i 0 (concatD []) + ConsExp exp exps -> prPrec i 0 (concatD [prt 4 exp , prt 0 exps]) + + instance Print Patt where prt i e = case e of PW -> prPrec i 1 (concatD [doc (showString "_")]) diff --git a/src/GF/Source/SkelGF.hs b/src/GF/Source/SkelGF.hs index 76e0bdc85..5c903523b 100644 --- a/src/GF/Source/SkelGF.hs +++ b/src/GF/Source/SkelGF.hs @@ -1,10 +1,11 @@ - module GF.Source.SkelGF where -- Haskell module generated by the BNF converter import GF.Source.AbsGF +import GF.Infra.Ident import GF.Data.ErrM + type Result = Err String failure :: Show a => a -> Result @@ -12,7 +13,7 @@ failure x = Bad $ "Undefined case: " ++ show x transIdent :: Ident -> Result transIdent x = case x of - Ident str -> failure x + IC str -> failure x transLString :: LString -> Result @@ -61,6 +62,7 @@ transModBody :: ModBody -> Result transModBody x = case x of MBody extend opens topdefs -> failure x MWith id opens -> failure x + MWithE ids id opens -> failure x MReuse id -> failure x MUnion includeds -> failure x @@ -74,7 +76,7 @@ transExtend x = case x of transOpens :: Opens -> Result transOpens x = case x of NoOpens -> failure x - Opens opens -> failure x + OpenIn opens -> failure x transOpen :: Open -> Result @@ -105,10 +107,10 @@ transIncluded x = case x of transDef :: Def -> Result transDef x = case x of - DDecl ids exp -> failure x - DDef ids exp -> failure x - DPatt id patts exp -> failure x - DFull ids exp0 exp -> failure x + DDecl names exp -> failure x + DDef names exp -> failure x + DPatt name patts exp -> failure x + DFull names exp0 exp -> failure x transTopDef :: TopDef -> Result @@ -137,7 +139,9 @@ transTopDef x = case x of transCatDef :: CatDef -> Result transCatDef x = case x of - CatDef id ddecls -> failure x + SimpleCatDef id ddecls -> failure x + ListCatDef id ddecls -> failure x + ListSizeCatDef id ddecls n -> failure x transFunDef :: FunDef -> Result @@ -158,7 +162,7 @@ transDataConstr x = case x of transParDef :: ParDef -> Result transParDef x = case x of - ParDef id parconstrs -> failure x + ParDefDir id parconstrs -> failure x ParDefIndir id0 id -> failure x ParDefAbs id -> failure x @@ -170,7 +174,7 @@ transParConstr x = case x of transPrintDef :: PrintDef -> Result transPrintDef x = case x of - PrintDef ids exp -> failure x + PrintDef names exp -> failure x transFlagDef :: FlagDef -> Result @@ -178,6 +182,12 @@ transFlagDef x = case x of FlagDef id0 id -> failure x +transName :: Name -> Result +transName x = case x of + IdentName id -> failure x + ListName id -> failure x + + transLocDef :: LocDef -> Result transLocDef x = case x of LDDecl ids exp -> failure x @@ -196,6 +206,7 @@ transExp x = case x of EMeta -> failure x EEmpty -> failure x EData -> failure x + EList id exps -> failure x EStrings str -> failure x ERecord locdefs -> failure x ETuple tuplecomps -> failure x @@ -230,6 +241,12 @@ transExp x = case x of ELin id -> failure x +transExps :: Exps -> Result +transExps x = case x of + NilExp -> failure x + ConsExp exp exps -> failure x + + transPatt :: Patt -> Result transPatt x = case x of PW -> failure x diff --git a/src/GF/Source/SourceToGrammar.hs b/src/GF/Source/SourceToGrammar.hs index 75474200a..3736e44c4 100644 --- a/src/GF/Source/SourceToGrammar.hs +++ b/src/GF/Source/SourceToGrammar.hs @@ -5,9 +5,9 @@ -- Stability : (stable) -- Portability : (portable) -- --- > CVS $Date: 2005/04/21 16:23:29 $ +-- > CVS $Date: 2005/05/25 10:42:00 $ -- > CVS $Author: bringert $ --- > CVS $Revision: 1.22 $ +-- > CVS $Revision: 1.23 $ -- -- based on the skeleton Haskell module generated by the BNF converter ----------------------------------------------------------------------------- @@ -36,6 +36,7 @@ import GF.Infra.Option import Control.Monad import Data.Char +import Data.List (genericReplicate) -- based on the skeleton Haskell module generated by the BNF converter @@ -48,6 +49,11 @@ transIdent :: Ident -> Err Ident transIdent x = case x of x -> return x +transName :: Name -> Err Ident +transName n = case n of + IdentName i -> transIdent i + ListName i -> transIdent (mkListId i) + transGrammar :: Grammar -> Err G.SourceGrammar transGrammar x = case x of Gr moddefs -> do @@ -192,9 +198,7 @@ transIncluded x = case x of transAbsDef :: TopDef -> Err (Either [(Ident, G.Info)] [GO.Option]) transAbsDef x = case x of - DefCat catdefs -> do - catdefs' <- mapM transCatDef catdefs - returnl [(cat, G.AbsCat (yes cont) nope) | (cat,cont) <- catdefs'] + DefCat catdefs -> liftM (Left . concat) $ mapM transCatDef catdefs DefFun fundefs -> do fundefs' <- mapM transFunDef fundefs returnl [(fun, G.AbsFun (yes typ) nope) | (funs,typ) <- fundefs', fun <- funs] @@ -229,10 +233,27 @@ transFlagDef :: FlagDef -> Err GO.Option transFlagDef x = case x of FlagDef f x -> return $ GO.Opt (prIdent f,[prIdent x]) -transCatDef :: CatDef -> Err (Ident, G.Context) +-- | Cat definitions can also return some fun defs +-- if it is a list category definition +transCatDef :: CatDef -> Err [(Ident, G.Info)] transCatDef x = case x of - CatDef id ddecls -> liftM2 (,) (transIdent id) - (mapM transDDecl ddecls >>= return . concat) + SimpleCatDef id ddecls -> liftM (:[]) $ cat id ddecls + ListCatDef id ddecls -> listCat id ddecls 0 + ListSizeCatDef id ddecls size -> listCat id ddecls size + where cat id ddecls = do + i <- transIdent id + cont <- liftM concat $ mapM transDDecl ddecls + return (i, G.AbsCat (yes cont) nope) + listCat id ddecls size = do + let li = mkListId id + catd <- cat li ddecls + let cd = M.mkDecl (G.Vr id) + lc = G.Vr li + niltyp = M.mkProdSimple (genericReplicate size cd) lc + nilfund = (mkBaseId id, G.AbsFun (yes niltyp) nope) + constyp = M.mkProdSimple [cd, M.mkDecl lc] lc + consfund = (mkConsId id, G.AbsFun (yes constyp) nope) + return [catd,nilfund,consfund] transFunDef :: FunDef -> Err ([Ident], G.Type) transFunDef x = case x of @@ -302,27 +323,27 @@ transCncDef x = case x of transPrintDef :: PrintDef -> Err [(Ident,G.Term)] transPrintDef x = case x of - PrintDef id exp -> do - (ids,e) <- liftM2 (,) (mapM transIdent id) (transExp exp) + PrintDef ids exp -> do + (ids,e) <- liftM2 (,) (mapM transName ids) (transExp exp) return $ [(i,e) | i <- ids] getDefsGen :: Def -> Err [(Ident, (G.Perh G.Type, G.Perh G.Term))] getDefsGen d = case d of DDecl ids t -> do - ids' <- mapM transIdent ids + ids' <- mapM transName ids t' <- transExp t return [(i,(yes t', nope)) | i <- ids'] DDef ids e -> do - ids' <- mapM transIdent ids + ids' <- mapM transName ids e' <- transExp e return [(i,(nope, yes e')) | i <- ids'] DFull ids t e -> do - ids' <- mapM transIdent ids + ids' <- mapM transName ids t' <- transExp t e' <- transExp e return [(i,(yes t', yes e')) | i <- ids'] DPatt id patts e -> do - id' <- transIdent id + id' <- transName id ps' <- mapM transPatt patts e' <- transExp e return [(id',(nope, yes (G.Eqs [(ps',e')])))] @@ -331,7 +352,7 @@ getDefsGen d = case d of getDefs :: Def -> Err [(Ident, (G.Perh G.Type, G.Perh G.Term))] getDefs d = case d of DPatt id patts e -> do - id' <- transIdent id + id' <- transName id xs <- mapM tryMakeVar patts e' <- transExp e return [(id',(nope, yes (M.mkAbs xs e')))] @@ -358,6 +379,8 @@ transExp x = case x of EInt n -> return $ G.EInt $ fromInteger n EMeta -> return $ M.meta $ M.int2meta 0 EEmpty -> return G.Empty + -- [ C x_1 ... x_n ] becomes (ListC x_1 ... x_n) + EList i es -> transExp $ foldl EApp (EIdent (mkListId i)) (exps2list es) EStrings [] -> return G.Empty EStrings str -> return $ foldr1 G.C $ map G.K $ words str ERecord defs -> erecord2term defs @@ -416,6 +439,10 @@ transExp x = case x of _ -> Bad $ "translation not yet defined for" +++ printTree x ---- +exps2list :: Exps -> [Exp] +exps2list NilExp = [] +exps2list (ConsExp e es) = e : exps2list es + --- this is complicated: should we change Exp or G.Term ? erecord2term :: [LocDef] -> Err G.Term @@ -615,3 +642,11 @@ termInPattern t = M.mkAbs xx $ G.R [(s, (Nothing, toP body))] where abss xs t = case t of G.Abs x b -> abss (x:xs) b _ -> (reverse xs,t) + +mkListId,mkConsId,mkBaseId :: Ident -> Ident +mkListId = prefixId "List" +mkConsId = prefixId "Cons" +mkBaseId = prefixId "Base" + +prefixId :: String -> Ident -> Ident +prefixId pref id = IC (pref ++ prIdent id) \ No newline at end of file diff --git a/src/GF/Source/TestGF.hs b/src/GF/Source/TestGF.hs index 65c238db2..b05baade9 100644 --- a/src/GF/Source/TestGF.hs +++ b/src/GF/Source/TestGF.hs @@ -1,6 +1,5 @@ - -- automatically generated by BNF Converter -module GF.Source.TestGF where +module Main where import System.IO ( stdin, hGetContents ) @@ -13,6 +12,8 @@ import GF.Source.PrintGF import GF.Source.AbsGF + + import GF.Data.ErrM type ParseFun a = [Token] -> Err a @@ -29,18 +30,29 @@ runFile v p f = putStrLn f >> readFile f >>= run v p run :: (Print a, Show a) => Verbosity -> ParseFun a -> String -> IO () run v p s = let ts = myLLexer s in case p ts of - Bad s -> do putStrLn "\nParse Failed...\n" - putStrV v "Tokens:" - putStrV v $ show ts - putStrLn s + Bad s -> do putStrLn "\nParse Failed...\n" + putStrV v "Tokens:" + putStrV v $ show ts + putStrLn s Ok tree -> do putStrLn "\nParse Successful!" - putStrV v $ "\n[Abstract Syntax]\n\n" ++ show tree - putStrV v $ "\n[Linearized tree]\n\n" ++ printTree tree + showTree v tree + +showTree :: (Show a, Print a) => Int -> a -> IO () +showTree v tree + = do + putStrV v $ "\n[Abstract Syntax]\n\n" ++ show tree + putStrV v $ "\n[Linearized tree]\n\n" ++ printTree tree + main :: IO () main = do args <- getArgs case args of [] -> hGetContents stdin >>= run 2 pGrammar "-s":fs -> mapM_ (runFile 0 pGrammar) fs fs -> mapM_ (runFile 2 pGrammar) fs + + + + +