From dea5158cbf1c11d45f2ed91d9975fbc77245e652 Mon Sep 17 00:00:00 2001 From: aarne Date: Fri, 2 Dec 2005 13:13:14 +0000 Subject: [PATCH] floats in GF and GFC (parsing user input still doesn't work) --- src/GF/CF/CFIdent.hs | 25 +- src/GF/CF/CanonToCF.hs | 3 +- src/GF/Canon/AbsGFC.hs | 4 + src/GF/Canon/CMacros.hs | 2 + src/GF/Canon/CanonToGrammar.hs | 6 +- src/GF/Canon/GFC.cf | 5 +- src/GF/Canon/LexGFC.hs | 91 +- src/GF/Canon/ParGFC.hs | 1473 ++++++------- src/GF/Canon/PrintGFC.hs | 3 + src/GF/Compile/CheckGrammar.hs | 4 + src/GF/Compile/GrammarToCanon.hs | 6 +- src/GF/Compile/Rename.hs | 1 + src/GF/Grammar/AppPredefined.hs | 12 +- src/GF/Grammar/Grammar.hs | 6 +- src/GF/Grammar/LookAbs.hs | 2 + src/GF/Grammar/Lookup.hs | 2 +- src/GF/Grammar/MMacros.hs | 1 + src/GF/Grammar/Macros.hs | 7 +- src/GF/Grammar/PatternMatch.hs | 1 + src/GF/Grammar/PrGrammar.hs | 1 + src/GF/Grammar/TC.hs | 14 +- src/GF/Grammar/TypeCheck.hs | 2 + src/GF/Grammar/Values.hs | 14 +- src/GF/Probabilistic/Probabilistic.hs | 6 +- src/GF/Source/AbsGF.hs | 2 + src/GF/Source/GF.cf | 2 + src/GF/Source/GrammarToSource.hs | 6 +- src/GF/Source/LexGF.hs | 88 +- src/GF/Source/ParGF.hs | 2727 +++++++++++++------------ src/GF/Source/PrintGF.hs | 2 + src/GF/Source/SourceToGrammar.hs | 6 +- src/GF/UseGrammar/Generate.hs | 5 +- src/GF/UseGrammar/Linear.hs | 1 + src/GF/UseGrammar/Tokenize.hs | 21 +- 34 files changed, 2366 insertions(+), 2185 deletions(-) diff --git a/src/GF/CF/CFIdent.hs b/src/GF/CF/CFIdent.hs index fe1f1b663..0cf793827 100644 --- a/src/GF/CF/CFIdent.hs +++ b/src/GF/CF/CFIdent.hs @@ -14,17 +14,18 @@ module GF.CF.CFIdent (-- * Tokens and categories CFTok(..), CFCat(..), - tS, tC, tL, tI, tV, tM, tInt, + tS, tC, tL, tI, tF, tV, tM, tInt, prCFTok, -- * Function names and profiles CFFun(..), Profile, wordsCFTok, -- * CF Functions - mkCFFun, varCFFun, consCFFun, string2CFFun, stringCFFun, intCFFun, dummyCFFun, + mkCFFun, varCFFun, consCFFun, string2CFFun, stringCFFun, + intCFFun, floatCFFun, dummyCFFun, cfFun2String, cfFun2Ident, cfFun2Profile, metaCFFun, -- * CF Categories mkCIdent, ident2CFCat, labels2CFCat, string2CFCat, - catVarCF, cat2CFCat, cfCatString, cfCatInt, + catVarCF, cat2CFCat, cfCatString, cfCatInt,cfCatFloat, moduleOfCFCat, cfCat2Cat, cfCat2Ident, lexCFCat, -- * CF Tokens string2CFTok, str2cftoks, @@ -48,7 +49,8 @@ data CFTok = TS String -- ^ normal strings | TC String -- ^ strings that are ambiguous between upper or lower case | TL String -- ^ string literals - | TI Int -- ^ integer literals + | TI Integer -- ^ integer literals + | TF Double -- ^ float literals | TV Ident -- ^ variables | TM Int String -- ^ metavariables; the integer identifies it deriving (Eq, Ord, Show) @@ -60,6 +62,7 @@ tS :: String -> CFTok tC :: String -> CFTok tL :: String -> CFTok tI :: String -> CFTok +tF :: String -> CFTok tV :: String -> CFTok tM :: String -> CFTok @@ -67,10 +70,11 @@ tS = TS tC = TC tL = TL tI = TI . read +tF = TF . read tV = TV . identC tM = TM 0 -tInt :: Int -> CFTok +tInt :: Integer -> CFTok tInt = TI prCFTok :: CFTok -> String @@ -79,6 +83,7 @@ prCFTok t = case t of TC s -> s TL s -> s TI i -> show i + TF i -> show i TV x -> prt x TM i m -> m --- "?" --- m @@ -113,8 +118,11 @@ string2CFFun m c = consCFFun $ mkCIdent m c stringCFFun :: String -> CFFun stringCFFun = mkCFFun . AS -intCFFun :: Int -> CFFun -intCFFun = mkCFFun . AI . toInteger +intCFFun :: Integer -> CFFun +intCFFun = mkCFFun . AI + +floatCFFun :: Double -> CFFun +floatCFFun = mkCFFun . AF -- | used in lexer-by-need rules dummyCFFun :: CFFun @@ -166,8 +174,9 @@ cat2CFCat = uncurry idents2CFCat cfCatString :: CFCat cfCatString = string2CFCat (prt cPredefAbs) "String" -cfCatInt :: CFCat +cfCatInt, cfCatFloat :: CFCat cfCatInt = string2CFCat (prt cPredefAbs) "Int" +cfCatFloat = string2CFCat (prt cPredefAbs) "Float" diff --git a/src/GF/CF/CanonToCF.hs b/src/GF/CF/CanonToCF.hs index 6ce443351..882860b2c 100644 --- a/src/GF/CF/CanonToCF.hs +++ b/src/GF/CF/CanonToCF.hs @@ -190,7 +190,8 @@ mkCFPredef opts binds rules = (ruls, \s -> preds0 s ++ look s) where [(cat, metaCFFun) | TM _ _ <- [s], cat <- cats] ++ [(cat, varCFFun x) | TV x <- [s], cat <- catVarCF : bindcats] ++ [(cfCatString, stringCFFun t) | TL t <- [s]] ++ - [(cfCatInt, intCFFun t) | TI t <- [s]] + [(cfCatInt, intCFFun t) | TI t <- [s]] ++ + [(cfCatFloat, floatCFFun t) | TF t <- [s]] cats = nub [c | (_,rs) <- rules, (_,(_,its)) <- rs, CFNonterm c <- its] bindcats = [c | c <- cats, elem (cfCat2Ident c) binds] look = concatMap snd . map (trieLookup preds) . wordsCFTok --- for TC tokens diff --git a/src/GF/Canon/AbsGFC.hs b/src/GF/Canon/AbsGFC.hs index 170159240..8ce719104 100644 --- a/src/GF/Canon/AbsGFC.hs +++ b/src/GF/Canon/AbsGFC.hs @@ -90,6 +90,7 @@ data APatt = | APV Ident | APS String | API Integer + | APF Double | APW deriving (Eq,Ord,Show) @@ -100,6 +101,7 @@ data Atom = | AM Integer | AS String | AI Integer + | AF Double | AT Sort deriving (Eq,Ord,Show) @@ -132,6 +134,7 @@ data Term = | C Term Term | FV [Term] | EInt Integer + | EFloat Double | K Tokn | E deriving (Eq,Ord,Show) @@ -170,6 +173,7 @@ data Patt = | PW | PR [PattAssign] | PI Integer + | PF Double deriving (Eq,Ord,Show) data PattAssign = diff --git a/src/GF/Canon/CMacros.hs b/src/GF/Canon/CMacros.hs index 609e8e869..2facd6e65 100644 --- a/src/GF/Canon/CMacros.hs +++ b/src/GF/Canon/CMacros.hs @@ -130,6 +130,7 @@ term2patt trm = case trm of return (PR (map (uncurry PAss) (zip ll aa'))) LI x -> return $ PV x EInt i -> return $ PI i + EFloat i -> return $ PF i FV (t:_) -> term2patt t ---- _ -> prtBad "no pattern corresponds to term" trm @@ -140,6 +141,7 @@ patt2term p = case p of PW -> anyTerm ---- PR pas -> R [ Ass lbl (patt2term q) | PAss lbl q <- pas ] PI i -> EInt i + PF i -> EFloat i anyTerm :: Term anyTerm = LI (A.identC "_") --- should not happen diff --git a/src/GF/Canon/CanonToGrammar.hs b/src/GF/Canon/CanonToGrammar.hs index 9d9af1496..758bddd69 100644 --- a/src/GF/Canon/CanonToGrammar.hs +++ b/src/GF/Canon/CanonToGrammar.hs @@ -156,7 +156,8 @@ redCTerm x = case x of C term0 term -> liftM2 G.C (redCTerm term0) (redCTerm term) FV terms -> liftM G.FV $ mapM redCTerm terms K (KS str) -> return $ G.K str - EInt i -> return $ G.EInt $ fromInteger i + EInt i -> return $ G.EInt i + EFloat i -> return $ G.EFloat i E -> return $ G.Empty K (KP d vs) -> return $ G.Alts (tList d,[(tList s, G.Strs $ map G.K v) | Var s v <- vs]) @@ -187,6 +188,7 @@ redPatt p = case p of ls' = map redLabel ls ts <- mapM redPatt ts return $ G.PR $ zip ls' ts - PI i -> return $ G.PInt (fromInteger i) + PI i -> return $ G.PInt i + PF i -> return $ G.PFloat i _ -> Bad $ "cannot recompile pattern" +++ show p diff --git a/src/GF/Canon/GFC.cf b/src/GF/Canon/GFC.cf index 5c0c95be3..d9385a49f 100644 --- a/src/GF/Canon/GFC.cf +++ b/src/GF/Canon/GFC.cf @@ -80,6 +80,7 @@ APC. APatt ::= "(" CIdent [APatt] ")" ; APV. APatt ::= Ident ; APS. APatt ::= String ; API. APatt ::= Integer ; +APF. APatt ::= Double ; APW. APatt ::= "_" ; separator Decl ";" ; @@ -120,7 +121,8 @@ S. Term1 ::= Term1 "!" Term2 ; C. Term ::= Term "++" Term1 ; FV. Term1 ::= "variants" "{" [Term2] "}" ; --- no separator! -EInt. Term2 ::= Integer ; +EInt. Term2 ::= Integer ; +EFloat. Term2 ::= Double ; K. Term2 ::= Tokn ; E. Term2 ::= "[" "]" ; @@ -144,6 +146,7 @@ PV. Patt ::= Ident ; PW. Patt ::= "_" ; PR. Patt ::= "{" [PattAssign] "}" ; PI. Patt ::= Integer ; +PF. Patt ::= Double ; PAss. PattAssign ::= Label "=" Patt ; diff --git a/src/GF/Canon/LexGFC.hs b/src/GF/Canon/LexGFC.hs index d85fcd3c0..31a4a9b30 100644 --- a/src/GF/Canon/LexGFC.hs +++ b/src/GF/Canon/LexGFC.hs @@ -1,10 +1,15 @@ {-# OPTIONS -fglasgow-exts -cpp #-} {-# LINE 3 "LexGFC.x" #-} -module GF.Canon.LexGFC where +module GF.Canon.LexGFC where --H -import GF.Data.ErrM -- H -import GF.Data.SharedString -- H +import GF.Data.ErrM --H +import GF.Data.SharedString --H +#if __GLASGOW_HASKELL__ >= 603 +#include "ghcconfig.h" +#else +#include "config.h" +#endif #if __GLASGOW_HASKELL__ >= 503 import Data.Array import Data.Char (ord) @@ -19,18 +24,18 @@ import GHC.Exts import GlaExts #endif alex_base :: AlexAddr -alex_base = AlexA# "\x01\x00\x39\x00\x42\x00\x00\x00\x09\x00\x1d\x00\x0b\x00\x20\x00\x9a\x00\x6a\x01\x00\x00\x15\x01\xe5\x01\xd3\x00\x33\x00"# +alex_base = AlexA# "\x01\x00\x00\x00\x39\x00\x00\x00\x42\x00\x00\x00\x00\x00\x00\x00\x09\x00\x00\x00\x1d\x00\x00\x00\x0b\x00\x00\x00\x20\x00\x00\x00\x9a\x00\x00\x00\x00\x00\x00\x00\x15\x01\x00\x00\xd3\x00\x00\x00\x35\x00\x00\x00\xe5\x00\x00\x00\x3f\x00\x00\x00\xf0\x00\x00\x00\x1b\x01\x00\x00\x6d\x01\x00\x00"# 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\x02\x00\x02\x00\x02\x00\x02\x00\x02\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\x02\x00\x03\x00\x0b\x00\xff\xff\x03\x00\xff\xff\xff\xff\xff\xff\x03\x00\x03\x00\x07\x00\x05\x00\x03\x00\x06\x00\x03\x00\x03\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x03\x00\x03\x00\x03\x00\x04\x00\x03\x00\x03\x00\x03\x00\x02\x00\x02\x00\x02\x00\x02\x00\x02\x00\x03\x00\x03\x00\x03\x00\x03\x00\x02\x00\x02\x00\x02\x00\x02\x00\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00\x00\x00\x00\x00\x03\x00\x03\x00\x03\x00\xff\xff\x03\x00\xff\xff\x02\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x03\x00\x03\x00\x03\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\x09\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x00\x00\x00\x00\x00\x00\x00\x00\xff\xff\x00\x00\x00\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x0c\x00\x00\x00\x00\x00\xff\xff\x09\x00\x0c\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\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\x0c\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0a\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0c\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0c\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x0d\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x00\x00\x00\x00\x00\x00\x00\x00\x09\x00\x00\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\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\x0a\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x0d\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x00\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x09\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\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_table = AlexA# "\x00\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x02\x00\x02\x00\x02\x00\x02\x00\x02\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\x02\x00\x03\x00\x0a\x00\xff\xff\x03\x00\xff\xff\xff\xff\xff\xff\x03\x00\x03\x00\x07\x00\x05\x00\x03\x00\x06\x00\x03\x00\x03\x00\x0c\x00\x0c\x00\x0c\x00\x0c\x00\x0c\x00\x0c\x00\x0c\x00\x0c\x00\x0c\x00\x0c\x00\x03\x00\x03\x00\x03\x00\x04\x00\x03\x00\x03\x00\x03\x00\x02\x00\x02\x00\x02\x00\x02\x00\x02\x00\x03\x00\x03\x00\x03\x00\x03\x00\x02\x00\x02\x00\x02\x00\x02\x00\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00\x00\x00\x00\x00\x03\x00\x03\x00\x03\x00\xff\xff\x03\x00\xff\xff\x02\x00\x0f\x00\x00\x00\x0c\x00\x0c\x00\x0c\x00\x0c\x00\x0c\x00\x0c\x00\x0c\x00\x0c\x00\x0c\x00\x0c\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x00\x00\x00\x00\x00\x00\x03\x00\x03\x00\x03\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\x08\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x00\x00\x00\x00\x00\x00\x00\x00\xff\xff\x00\x00\x00\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x0a\x00\x00\x00\x00\x00\xff\xff\x08\x00\x0a\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x0d\x00\x0d\x00\x0d\x00\x0d\x00\x0d\x00\x0d\x00\x0d\x00\x0d\x00\x0d\x00\x0d\x00\xff\xff\x0d\x00\x0d\x00\x0d\x00\x0d\x00\x0d\x00\x0d\x00\x0d\x00\x0d\x00\x0d\x00\x0d\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0a\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x09\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0a\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0a\x00\x00\x00\x00\x00\x11\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x0b\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x00\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x08\x00\x10\x00\x00\x00\x00\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x0e\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\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 :: 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\x09\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x3e\x00\x2b\x00\x3e\x00\x2a\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x20\x00\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\xff\xff\xff\xff\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\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\xff\xff\xff\xff\xd7\x00\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\xff\xff\xff\xff\xf7\x00\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_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\x09\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x3e\x00\x2b\x00\x3e\x00\x2a\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x20\x00\xff\xff\xff\xff\x5b\x00\x5c\x00\x5d\x00\x5e\x00\x5f\x00\x60\x00\x20\x00\x2e\x00\xff\xff\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x39\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\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\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\xff\xff\xff\xff\xd7\x00\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\xff\xff\xff\xff\xf7\x00\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\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x39\x00\x0a\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\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\x65\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\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\x2d\x00\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\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\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 :: AlexAddr -alex_deflt = AlexA# "\x08\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x0c\x00\x0c\x00\xff\xff\xff\xff"# +alex_deflt = AlexA# "\x08\x00\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"# -alex_accept = listArray (0::Int,14) [[],[],[(AlexAccSkip)],[(AlexAcc (alex_action_1))],[(AlexAcc (alex_action_1))],[(AlexAcc (alex_action_1))],[],[],[(AlexAcc (alex_action_2))],[(AlexAcc (alex_action_2))],[(AlexAcc (alex_action_3))],[],[],[],[(AlexAcc (alex_action_4))]] +alex_accept = listArray (0::Int,17) [[],[],[(AlexAccSkip)],[(AlexAcc (alex_action_1))],[(AlexAcc (alex_action_1))],[(AlexAcc (alex_action_1))],[],[],[(AlexAcc (alex_action_2))],[(AlexAcc (alex_action_3))],[],[],[(AlexAcc (alex_action_4))],[(AlexAcc (alex_action_5))],[(AlexAcc (alex_action_5))],[],[],[]] {-# LINE 32 "LexGFC.x" #-} tok f p s = f p s @@ -136,6 +141,7 @@ alex_action_1 = tok (\p s -> PT p (TS $ share s)) alex_action_2 = tok (\p s -> PT p (eitherResIdent (TV . share) s)) alex_action_3 = tok (\p s -> PT p (TL $ share $ unescapeInitTail s)) alex_action_4 = tok (\p s -> PT p (TI $ share s)) +alex_action_5 = tok (\p s -> PT p (TD $ share s)) {-# LINE 1 "GenericTemplate.hs" #-} {-# LINE 1 "" #-} {-# LINE 1 "" #-} @@ -162,26 +168,57 @@ alex_action_4 = tok (\p s -> PT p (TI $ share 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# +#if __GLASGOW_HASKELL__ < 503 +uncheckedShiftL# = shiftL# #endif + +{-# INLINE alexIndexInt16OffAddr #-} +alexIndexInt16OffAddr (AlexA# arr) off = +#ifdef WORDS_BIGENDIAN + narrow16Int# i where -#if __GLASGOW_HASKELL__ >= 503 - i = word2Int# ((high `uncheckedShiftL#` 8#) `or#` low) -#else - i = word2Int# ((high `shiftL#` 8#) `or#` low) -#endif + i = word2Int# ((high `uncheckedShiftL#` 8#) `or#` low) high = int2Word# (ord# (indexCharOffAddr# arr (off' +# 1#))) low = int2Word# (ord# (indexCharOffAddr# arr off')) off' = off *# 2# +#else + indexInt16OffAddr# arr off +#endif + + + + + +{-# INLINE alexIndexInt32OffAddr #-} +alexIndexInt32OffAddr (AlexA# arr) off = +#ifdef WORDS_BIGENDIAN + narrow32Int# i + where + i = word2Int# ((b3 `uncheckedShiftL#` 24#) `or#` + (b2 `uncheckedShiftL#` 16#) `or#` + (b1 `uncheckedShiftL#` 8#) `or#` b0) + b3 = int2Word# (ord# (indexCharOffAddr# arr (off' +# 3#))) + b2 = int2Word# (ord# (indexCharOffAddr# arr (off' +# 2#))) + b1 = int2Word# (ord# (indexCharOffAddr# arr (off' +# 1#))) + b0 = int2Word# (ord# (indexCharOffAddr# arr off')) + off' = off *# 4# +#else + indexInt32OffAddr# arr off +#endif + + + + + +#if __GLASGOW_HASKELL__ < 503 +quickIndex arr i = arr ! i +#else +-- GHC >= 503, unsafeAt is available from Data.Array.Base. +quickIndex = unsafeAt +#endif @@ -212,7 +249,7 @@ alexScanUser user input (I# (sc)) - AlexError input + AlexError input' (AlexLastSkip input len, _) -> @@ -238,7 +275,7 @@ 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` (I# (s))) + new_acc = check_accs (alex_accept `quickIndex` (I# (s))) in new_acc `seq` case alexGetChar input of @@ -248,14 +285,14 @@ alex_scan_tkn' user orig_input len input s last_acc = let - base = alexIndexShortOffAddr alex_base s + base = alexIndexInt32OffAddr alex_base s (I# (ord_c)) = ord c offset = (base +# ord_c) - check = alexIndexShortOffAddr alex_check offset + check = alexIndexInt16OffAddr alex_check offset new_s = if (offset >=# 0#) && (check ==# ord_c) - then alexIndexShortOffAddr alex_table offset - else alexIndexShortOffAddr alex_deflt s + then alexIndexInt16OffAddr alex_table offset + else alexIndexInt16OffAddr alex_deflt s in alex_scan_tkn user orig_input (len +# 1#) new_input new_s new_acc diff --git a/src/GF/Canon/ParGFC.hs b/src/GF/Canon/ParGFC.hs index 3727ab9bf..4332c06e4 100644 --- a/src/GF/Canon/ParGFC.hs +++ b/src/GF/Canon/ParGFC.hs @@ -1,7 +1,7 @@ {-# OPTIONS -fglasgow-exts -cpp #-} -module GF.Canon.ParGFC where -import GF.Canon.AbsGFC -import GF.Canon.LexGFC +module GF.Canon.ParGFC where -- H +import GF.Canon.AbsGFC -- H +import GF.Canon.LexGFC -- H import GF.Data.ErrM -- H import GF.Infra.Ident -- H import Array @@ -32,82 +32,82 @@ happyIn7 x = unsafeCoerce# x happyOut7 :: (HappyAbsSyn ) -> (Integer) happyOut7 x = unsafeCoerce# x {-# INLINE happyOut7 #-} -happyIn8 :: (Canon) -> (HappyAbsSyn ) +happyIn8 :: (Double) -> (HappyAbsSyn ) happyIn8 x = unsafeCoerce# x {-# INLINE happyIn8 #-} -happyOut8 :: (HappyAbsSyn ) -> (Canon) +happyOut8 :: (HappyAbsSyn ) -> (Double) happyOut8 x = unsafeCoerce# x {-# INLINE happyOut8 #-} -happyIn9 :: (Line) -> (HappyAbsSyn ) +happyIn9 :: (Canon) -> (HappyAbsSyn ) happyIn9 x = unsafeCoerce# x {-# INLINE happyIn9 #-} -happyOut9 :: (HappyAbsSyn ) -> (Line) +happyOut9 :: (HappyAbsSyn ) -> (Canon) happyOut9 x = unsafeCoerce# x {-# INLINE happyOut9 #-} -happyIn10 :: (Module) -> (HappyAbsSyn ) +happyIn10 :: (Line) -> (HappyAbsSyn ) happyIn10 x = unsafeCoerce# x {-# INLINE happyIn10 #-} -happyOut10 :: (HappyAbsSyn ) -> (Module) +happyOut10 :: (HappyAbsSyn ) -> (Line) happyOut10 x = unsafeCoerce# x {-# INLINE happyOut10 #-} -happyIn11 :: (ModType) -> (HappyAbsSyn ) +happyIn11 :: (Module) -> (HappyAbsSyn ) happyIn11 x = unsafeCoerce# x {-# INLINE happyIn11 #-} -happyOut11 :: (HappyAbsSyn ) -> (ModType) +happyOut11 :: (HappyAbsSyn ) -> (Module) happyOut11 x = unsafeCoerce# x {-# INLINE happyOut11 #-} -happyIn12 :: ([Module]) -> (HappyAbsSyn ) +happyIn12 :: (ModType) -> (HappyAbsSyn ) happyIn12 x = unsafeCoerce# x {-# INLINE happyIn12 #-} -happyOut12 :: (HappyAbsSyn ) -> ([Module]) +happyOut12 :: (HappyAbsSyn ) -> (ModType) happyOut12 x = unsafeCoerce# x {-# INLINE happyOut12 #-} -happyIn13 :: (Extend) -> (HappyAbsSyn ) +happyIn13 :: ([Module]) -> (HappyAbsSyn ) happyIn13 x = unsafeCoerce# x {-# INLINE happyIn13 #-} -happyOut13 :: (HappyAbsSyn ) -> (Extend) +happyOut13 :: (HappyAbsSyn ) -> ([Module]) happyOut13 x = unsafeCoerce# x {-# INLINE happyOut13 #-} -happyIn14 :: (Open) -> (HappyAbsSyn ) +happyIn14 :: (Extend) -> (HappyAbsSyn ) happyIn14 x = unsafeCoerce# x {-# INLINE happyIn14 #-} -happyOut14 :: (HappyAbsSyn ) -> (Open) +happyOut14 :: (HappyAbsSyn ) -> (Extend) happyOut14 x = unsafeCoerce# x {-# INLINE happyOut14 #-} -happyIn15 :: (Flag) -> (HappyAbsSyn ) +happyIn15 :: (Open) -> (HappyAbsSyn ) happyIn15 x = unsafeCoerce# x {-# INLINE happyIn15 #-} -happyOut15 :: (HappyAbsSyn ) -> (Flag) +happyOut15 :: (HappyAbsSyn ) -> (Open) happyOut15 x = unsafeCoerce# x {-# INLINE happyOut15 #-} -happyIn16 :: (Def) -> (HappyAbsSyn ) +happyIn16 :: (Flag) -> (HappyAbsSyn ) happyIn16 x = unsafeCoerce# x {-# INLINE happyIn16 #-} -happyOut16 :: (HappyAbsSyn ) -> (Def) +happyOut16 :: (HappyAbsSyn ) -> (Flag) happyOut16 x = unsafeCoerce# x {-# INLINE happyOut16 #-} -happyIn17 :: (ParDef) -> (HappyAbsSyn ) +happyIn17 :: (Def) -> (HappyAbsSyn ) happyIn17 x = unsafeCoerce# x {-# INLINE happyIn17 #-} -happyOut17 :: (HappyAbsSyn ) -> (ParDef) +happyOut17 :: (HappyAbsSyn ) -> (Def) happyOut17 x = unsafeCoerce# x {-# INLINE happyOut17 #-} -happyIn18 :: (Status) -> (HappyAbsSyn ) +happyIn18 :: (ParDef) -> (HappyAbsSyn ) happyIn18 x = unsafeCoerce# x {-# INLINE happyIn18 #-} -happyOut18 :: (HappyAbsSyn ) -> (Status) +happyOut18 :: (HappyAbsSyn ) -> (ParDef) happyOut18 x = unsafeCoerce# x {-# INLINE happyOut18 #-} -happyIn19 :: (CIdent) -> (HappyAbsSyn ) +happyIn19 :: (Status) -> (HappyAbsSyn ) happyIn19 x = unsafeCoerce# x {-# INLINE happyIn19 #-} -happyOut19 :: (HappyAbsSyn ) -> (CIdent) +happyOut19 :: (HappyAbsSyn ) -> (Status) happyOut19 x = unsafeCoerce# x {-# INLINE happyOut19 #-} -happyIn20 :: (Exp) -> (HappyAbsSyn ) +happyIn20 :: (CIdent) -> (HappyAbsSyn ) happyIn20 x = unsafeCoerce# x {-# INLINE happyIn20 #-} -happyOut20 :: (HappyAbsSyn ) -> (Exp) +happyOut20 :: (HappyAbsSyn ) -> (CIdent) happyOut20 x = unsafeCoerce# x {-# INLINE happyOut20 #-} happyIn21 :: (Exp) -> (HappyAbsSyn ) @@ -122,70 +122,70 @@ happyIn22 x = unsafeCoerce# x happyOut22 :: (HappyAbsSyn ) -> (Exp) happyOut22 x = unsafeCoerce# x {-# INLINE happyOut22 #-} -happyIn23 :: (Sort) -> (HappyAbsSyn ) +happyIn23 :: (Exp) -> (HappyAbsSyn ) happyIn23 x = unsafeCoerce# x {-# INLINE happyIn23 #-} -happyOut23 :: (HappyAbsSyn ) -> (Sort) +happyOut23 :: (HappyAbsSyn ) -> (Exp) happyOut23 x = unsafeCoerce# x {-# INLINE happyOut23 #-} -happyIn24 :: (Equation) -> (HappyAbsSyn ) +happyIn24 :: (Sort) -> (HappyAbsSyn ) happyIn24 x = unsafeCoerce# x {-# INLINE happyIn24 #-} -happyOut24 :: (HappyAbsSyn ) -> (Equation) +happyOut24 :: (HappyAbsSyn ) -> (Sort) happyOut24 x = unsafeCoerce# x {-# INLINE happyOut24 #-} -happyIn25 :: (APatt) -> (HappyAbsSyn ) +happyIn25 :: (Equation) -> (HappyAbsSyn ) happyIn25 x = unsafeCoerce# x {-# INLINE happyIn25 #-} -happyOut25 :: (HappyAbsSyn ) -> (APatt) +happyOut25 :: (HappyAbsSyn ) -> (Equation) happyOut25 x = unsafeCoerce# x {-# INLINE happyOut25 #-} -happyIn26 :: ([Decl]) -> (HappyAbsSyn ) +happyIn26 :: (APatt) -> (HappyAbsSyn ) happyIn26 x = unsafeCoerce# x {-# INLINE happyIn26 #-} -happyOut26 :: (HappyAbsSyn ) -> ([Decl]) +happyOut26 :: (HappyAbsSyn ) -> (APatt) happyOut26 x = unsafeCoerce# x {-# INLINE happyOut26 #-} -happyIn27 :: ([APatt]) -> (HappyAbsSyn ) +happyIn27 :: ([Decl]) -> (HappyAbsSyn ) happyIn27 x = unsafeCoerce# x {-# INLINE happyIn27 #-} -happyOut27 :: (HappyAbsSyn ) -> ([APatt]) +happyOut27 :: (HappyAbsSyn ) -> ([Decl]) happyOut27 x = unsafeCoerce# x {-# INLINE happyOut27 #-} -happyIn28 :: ([Equation]) -> (HappyAbsSyn ) +happyIn28 :: ([APatt]) -> (HappyAbsSyn ) happyIn28 x = unsafeCoerce# x {-# INLINE happyIn28 #-} -happyOut28 :: (HappyAbsSyn ) -> ([Equation]) +happyOut28 :: (HappyAbsSyn ) -> ([APatt]) happyOut28 x = unsafeCoerce# x {-# INLINE happyOut28 #-} -happyIn29 :: (Atom) -> (HappyAbsSyn ) +happyIn29 :: ([Equation]) -> (HappyAbsSyn ) happyIn29 x = unsafeCoerce# x {-# INLINE happyIn29 #-} -happyOut29 :: (HappyAbsSyn ) -> (Atom) +happyOut29 :: (HappyAbsSyn ) -> ([Equation]) happyOut29 x = unsafeCoerce# x {-# INLINE happyOut29 #-} -happyIn30 :: (Decl) -> (HappyAbsSyn ) +happyIn30 :: (Atom) -> (HappyAbsSyn ) happyIn30 x = unsafeCoerce# x {-# INLINE happyIn30 #-} -happyOut30 :: (HappyAbsSyn ) -> (Decl) +happyOut30 :: (HappyAbsSyn ) -> (Atom) happyOut30 x = unsafeCoerce# x {-# INLINE happyOut30 #-} -happyIn31 :: (CType) -> (HappyAbsSyn ) +happyIn31 :: (Decl) -> (HappyAbsSyn ) happyIn31 x = unsafeCoerce# x {-# INLINE happyIn31 #-} -happyOut31 :: (HappyAbsSyn ) -> (CType) +happyOut31 :: (HappyAbsSyn ) -> (Decl) happyOut31 x = unsafeCoerce# x {-# INLINE happyOut31 #-} -happyIn32 :: (Labelling) -> (HappyAbsSyn ) +happyIn32 :: (CType) -> (HappyAbsSyn ) happyIn32 x = unsafeCoerce# x {-# INLINE happyIn32 #-} -happyOut32 :: (HappyAbsSyn ) -> (Labelling) +happyOut32 :: (HappyAbsSyn ) -> (CType) happyOut32 x = unsafeCoerce# x {-# INLINE happyOut32 #-} -happyIn33 :: (Term) -> (HappyAbsSyn ) +happyIn33 :: (Labelling) -> (HappyAbsSyn ) happyIn33 x = unsafeCoerce# x {-# INLINE happyIn33 #-} -happyOut33 :: (HappyAbsSyn ) -> (Term) +happyOut33 :: (HappyAbsSyn ) -> (Labelling) happyOut33 x = unsafeCoerce# x {-# INLINE happyOut33 #-} happyIn34 :: (Term) -> (HappyAbsSyn ) @@ -200,144 +200,150 @@ happyIn35 x = unsafeCoerce# x happyOut35 :: (HappyAbsSyn ) -> (Term) happyOut35 x = unsafeCoerce# x {-# INLINE happyOut35 #-} -happyIn36 :: (Tokn) -> (HappyAbsSyn ) +happyIn36 :: (Term) -> (HappyAbsSyn ) happyIn36 x = unsafeCoerce# x {-# INLINE happyIn36 #-} -happyOut36 :: (HappyAbsSyn ) -> (Tokn) +happyOut36 :: (HappyAbsSyn ) -> (Term) happyOut36 x = unsafeCoerce# x {-# INLINE happyOut36 #-} -happyIn37 :: (Assign) -> (HappyAbsSyn ) +happyIn37 :: (Tokn) -> (HappyAbsSyn ) happyIn37 x = unsafeCoerce# x {-# INLINE happyIn37 #-} -happyOut37 :: (HappyAbsSyn ) -> (Assign) +happyOut37 :: (HappyAbsSyn ) -> (Tokn) happyOut37 x = unsafeCoerce# x {-# INLINE happyOut37 #-} -happyIn38 :: (Case) -> (HappyAbsSyn ) +happyIn38 :: (Assign) -> (HappyAbsSyn ) happyIn38 x = unsafeCoerce# x {-# INLINE happyIn38 #-} -happyOut38 :: (HappyAbsSyn ) -> (Case) +happyOut38 :: (HappyAbsSyn ) -> (Assign) happyOut38 x = unsafeCoerce# x {-# INLINE happyOut38 #-} -happyIn39 :: (Variant) -> (HappyAbsSyn ) +happyIn39 :: (Case) -> (HappyAbsSyn ) happyIn39 x = unsafeCoerce# x {-# INLINE happyIn39 #-} -happyOut39 :: (HappyAbsSyn ) -> (Variant) +happyOut39 :: (HappyAbsSyn ) -> (Case) happyOut39 x = unsafeCoerce# x {-# INLINE happyOut39 #-} -happyIn40 :: (Label) -> (HappyAbsSyn ) +happyIn40 :: (Variant) -> (HappyAbsSyn ) happyIn40 x = unsafeCoerce# x {-# INLINE happyIn40 #-} -happyOut40 :: (HappyAbsSyn ) -> (Label) +happyOut40 :: (HappyAbsSyn ) -> (Variant) happyOut40 x = unsafeCoerce# x {-# INLINE happyOut40 #-} -happyIn41 :: (ArgVar) -> (HappyAbsSyn ) +happyIn41 :: (Label) -> (HappyAbsSyn ) happyIn41 x = unsafeCoerce# x {-# INLINE happyIn41 #-} -happyOut41 :: (HappyAbsSyn ) -> (ArgVar) +happyOut41 :: (HappyAbsSyn ) -> (Label) happyOut41 x = unsafeCoerce# x {-# INLINE happyOut41 #-} -happyIn42 :: (Patt) -> (HappyAbsSyn ) +happyIn42 :: (ArgVar) -> (HappyAbsSyn ) happyIn42 x = unsafeCoerce# x {-# INLINE happyIn42 #-} -happyOut42 :: (HappyAbsSyn ) -> (Patt) +happyOut42 :: (HappyAbsSyn ) -> (ArgVar) happyOut42 x = unsafeCoerce# x {-# INLINE happyOut42 #-} -happyIn43 :: (PattAssign) -> (HappyAbsSyn ) +happyIn43 :: (Patt) -> (HappyAbsSyn ) happyIn43 x = unsafeCoerce# x {-# INLINE happyIn43 #-} -happyOut43 :: (HappyAbsSyn ) -> (PattAssign) +happyOut43 :: (HappyAbsSyn ) -> (Patt) happyOut43 x = unsafeCoerce# x {-# INLINE happyOut43 #-} -happyIn44 :: ([Flag]) -> (HappyAbsSyn ) +happyIn44 :: (PattAssign) -> (HappyAbsSyn ) happyIn44 x = unsafeCoerce# x {-# INLINE happyIn44 #-} -happyOut44 :: (HappyAbsSyn ) -> ([Flag]) +happyOut44 :: (HappyAbsSyn ) -> (PattAssign) happyOut44 x = unsafeCoerce# x {-# INLINE happyOut44 #-} -happyIn45 :: ([Def]) -> (HappyAbsSyn ) +happyIn45 :: ([Flag]) -> (HappyAbsSyn ) happyIn45 x = unsafeCoerce# x {-# INLINE happyIn45 #-} -happyOut45 :: (HappyAbsSyn ) -> ([Def]) +happyOut45 :: (HappyAbsSyn ) -> ([Flag]) happyOut45 x = unsafeCoerce# x {-# INLINE happyOut45 #-} -happyIn46 :: ([ParDef]) -> (HappyAbsSyn ) +happyIn46 :: ([Def]) -> (HappyAbsSyn ) happyIn46 x = unsafeCoerce# x {-# INLINE happyIn46 #-} -happyOut46 :: (HappyAbsSyn ) -> ([ParDef]) +happyOut46 :: (HappyAbsSyn ) -> ([Def]) happyOut46 x = unsafeCoerce# x {-# INLINE happyOut46 #-} -happyIn47 :: ([CType]) -> (HappyAbsSyn ) +happyIn47 :: ([ParDef]) -> (HappyAbsSyn ) happyIn47 x = unsafeCoerce# x {-# INLINE happyIn47 #-} -happyOut47 :: (HappyAbsSyn ) -> ([CType]) +happyOut47 :: (HappyAbsSyn ) -> ([ParDef]) happyOut47 x = unsafeCoerce# x {-# INLINE happyOut47 #-} -happyIn48 :: ([CIdent]) -> (HappyAbsSyn ) +happyIn48 :: ([CType]) -> (HappyAbsSyn ) happyIn48 x = unsafeCoerce# x {-# INLINE happyIn48 #-} -happyOut48 :: (HappyAbsSyn ) -> ([CIdent]) +happyOut48 :: (HappyAbsSyn ) -> ([CType]) happyOut48 x = unsafeCoerce# x {-# INLINE happyOut48 #-} -happyIn49 :: ([Assign]) -> (HappyAbsSyn ) +happyIn49 :: ([CIdent]) -> (HappyAbsSyn ) happyIn49 x = unsafeCoerce# x {-# INLINE happyIn49 #-} -happyOut49 :: (HappyAbsSyn ) -> ([Assign]) +happyOut49 :: (HappyAbsSyn ) -> ([CIdent]) happyOut49 x = unsafeCoerce# x {-# INLINE happyOut49 #-} -happyIn50 :: ([ArgVar]) -> (HappyAbsSyn ) +happyIn50 :: ([Assign]) -> (HappyAbsSyn ) happyIn50 x = unsafeCoerce# x {-# INLINE happyIn50 #-} -happyOut50 :: (HappyAbsSyn ) -> ([ArgVar]) +happyOut50 :: (HappyAbsSyn ) -> ([Assign]) happyOut50 x = unsafeCoerce# x {-# INLINE happyOut50 #-} -happyIn51 :: ([Labelling]) -> (HappyAbsSyn ) +happyIn51 :: ([ArgVar]) -> (HappyAbsSyn ) happyIn51 x = unsafeCoerce# x {-# INLINE happyIn51 #-} -happyOut51 :: (HappyAbsSyn ) -> ([Labelling]) +happyOut51 :: (HappyAbsSyn ) -> ([ArgVar]) happyOut51 x = unsafeCoerce# x {-# INLINE happyOut51 #-} -happyIn52 :: ([Case]) -> (HappyAbsSyn ) +happyIn52 :: ([Labelling]) -> (HappyAbsSyn ) happyIn52 x = unsafeCoerce# x {-# INLINE happyIn52 #-} -happyOut52 :: (HappyAbsSyn ) -> ([Case]) +happyOut52 :: (HappyAbsSyn ) -> ([Labelling]) happyOut52 x = unsafeCoerce# x {-# INLINE happyOut52 #-} -happyIn53 :: ([Term]) -> (HappyAbsSyn ) +happyIn53 :: ([Case]) -> (HappyAbsSyn ) happyIn53 x = unsafeCoerce# x {-# INLINE happyIn53 #-} -happyOut53 :: (HappyAbsSyn ) -> ([Term]) +happyOut53 :: (HappyAbsSyn ) -> ([Case]) happyOut53 x = unsafeCoerce# x {-# INLINE happyOut53 #-} -happyIn54 :: ([String]) -> (HappyAbsSyn ) +happyIn54 :: ([Term]) -> (HappyAbsSyn ) happyIn54 x = unsafeCoerce# x {-# INLINE happyIn54 #-} -happyOut54 :: (HappyAbsSyn ) -> ([String]) +happyOut54 :: (HappyAbsSyn ) -> ([Term]) happyOut54 x = unsafeCoerce# x {-# INLINE happyOut54 #-} -happyIn55 :: ([Variant]) -> (HappyAbsSyn ) +happyIn55 :: ([String]) -> (HappyAbsSyn ) happyIn55 x = unsafeCoerce# x {-# INLINE happyIn55 #-} -happyOut55 :: (HappyAbsSyn ) -> ([Variant]) +happyOut55 :: (HappyAbsSyn ) -> ([String]) happyOut55 x = unsafeCoerce# x {-# INLINE happyOut55 #-} -happyIn56 :: ([PattAssign]) -> (HappyAbsSyn ) +happyIn56 :: ([Variant]) -> (HappyAbsSyn ) happyIn56 x = unsafeCoerce# x {-# INLINE happyIn56 #-} -happyOut56 :: (HappyAbsSyn ) -> ([PattAssign]) +happyOut56 :: (HappyAbsSyn ) -> ([Variant]) happyOut56 x = unsafeCoerce# x {-# INLINE happyOut56 #-} -happyIn57 :: ([Patt]) -> (HappyAbsSyn ) +happyIn57 :: ([PattAssign]) -> (HappyAbsSyn ) happyIn57 x = unsafeCoerce# x {-# INLINE happyIn57 #-} -happyOut57 :: (HappyAbsSyn ) -> ([Patt]) +happyOut57 :: (HappyAbsSyn ) -> ([PattAssign]) happyOut57 x = unsafeCoerce# x {-# INLINE happyOut57 #-} -happyIn58 :: ([Ident]) -> (HappyAbsSyn ) +happyIn58 :: ([Patt]) -> (HappyAbsSyn ) happyIn58 x = unsafeCoerce# x {-# INLINE happyIn58 #-} -happyOut58 :: (HappyAbsSyn ) -> ([Ident]) +happyOut58 :: (HappyAbsSyn ) -> ([Patt]) happyOut58 x = unsafeCoerce# x {-# INLINE happyOut58 #-} +happyIn59 :: ([Ident]) -> (HappyAbsSyn ) +happyIn59 x = unsafeCoerce# x +{-# INLINE happyIn59 #-} +happyOut59 :: (HappyAbsSyn ) -> ([Ident]) +happyOut59 x = unsafeCoerce# x +{-# INLINE happyOut59 #-} happyInTok :: Token -> (HappyAbsSyn ) happyInTok x = unsafeCoerce# x {-# INLINE happyInTok #-} @@ -346,21 +352,21 @@ happyOutTok x = unsafeCoerce# x {-# INLINE happyOutTok #-} happyActOffsets :: HappyAddr -happyActOffsets = HappyA# "\x5b\x02\x83\x00\x55\x02\x00\x00\x53\x02\x4d\x02\x70\x02\x6e\x02\x6b\x02\x00\x00\x49\x02\x49\x02\x49\x02\x49\x02\x49\x02\x49\x02\x49\x02\x49\x02\x49\x02\x49\x02\x49\x02\x49\x02\x46\x02\x8a\x01\x42\x02\x54\x02\x45\x02\x00\x00\x69\x02\x40\x02\xe4\x00\x00\x00\x67\x02\x65\x02\x64\x02\x63\x02\x3f\x02\x60\x02\x61\x02\x39\x02\x5a\x02\x00\x00\x00\x00\x00\x00\x1d\x00\x3a\x02\x00\x00\x33\x02\x35\x02\x59\x02\x2c\x02\x2c\x02\x2c\x02\x0f\x00\x2c\x02\x2c\x02\x67\x00\x67\x00\x2c\x02\x0f\x00\x2c\x02\x57\x02\x1d\x00\x29\x02\x29\x02\x00\x00\x58\x02\x32\x02\x51\x02\x4b\x02\x00\x00\x00\x00\x00\x00\xcb\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x1f\x02\x0f\x00\x1f\x02\x1f\x02\x25\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x3c\x02\x00\x00\x00\x00\x52\x02\xf6\xff\x67\x00\x20\x02\x00\x00\x50\x02\x4f\x02\x4e\x02\x4c\x02\x00\x00\x00\x00\x48\x02\x43\x02\x4a\x02\x00\x00\x47\x02\x18\x02\x00\x00\x23\x02\x00\x00\x16\x02\x44\x02\x0f\x00\x0f\x00\x00\x00\x3b\x02\x17\x00\x00\x00\x31\x02\x00\x00\x41\x02\x3e\x02\x3d\x02\x0d\x02\x17\x00\x0e\x02\x67\x00\x00\x00\x00\x00\x2e\x02\x12\x00\x30\x02\x36\x02\x37\x02\x00\x00\x0f\x00\x07\x02\x07\x02\x34\x02\x00\x00\x8a\x01\x00\x00\x00\x00\x00\x00\x27\x02\x8d\x00\x00\x00\x0f\x00\x00\x00\x0f\x00\x00\x00\x00\x00\x00\x00\x49\x01\x00\x00\x00\x00\x00\x00\x26\x02\x22\x02\x1d\x02\x00\x00\x00\x00\xf6\xff\x4e\x00\x17\x00\xff\x01\xff\x01\x67\x00\x24\x02\x00\x00\x00\x00\x67\x00\xf6\xff\x67\x00\xc6\x00\xf5\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xf5\x01\xf7\x00\x0b\x02\x1e\x02\x17\x00\x17\x00\x13\x02\x00\x00\x00\x00\x00\x00\x10\x00\x00\x00\x00\x00\x07\x00\x00\x00\x00\x00\x14\x02\x12\x02\x03\x02\x5d\x00\xf6\xff\xd5\x01\xd5\x01\xf7\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0f\x00\xd4\x01\x00\x00\x00\x00\xe4\x01\xf6\x01\x92\x00\x00\x00\x00\x00\xfc\x01\xea\x01\x00\x00\x00\x00\x00\x00\x00\x00\x17\x00\xf6\xff\x0a\x00\x00\x00\x53\x00\xf1\x01\x00\x00\x4d\x00\x00\x00\xe2\x01\xde\x01\x17\x00\xc3\x01\x00\x00\x00\x00\x14\x00\x00\x00\x00\x00\x43\x00\xe9\x01\xe3\x01\x5a\x00\x00\x00\x00\x00\x72\x00\x00\x00\xd3\x01\xb6\x01\x0f\x00\xbc\x00\xe5\x01\x00\x00\xb3\x01\x00\x00\xe1\x01\x00\x00\x00\x00\x00\x00\x00\x00\xd8\x01\x4b\x00\xd2\x01\x00\x00\x00\x00\x00\x00\xf6\xff\x9b\x01\x00\x00\x17\x00\x00\x00\xd1\x01\x00\x00\x17\x00\xb5\x01\x00\x00\xb5\x01\x00\x00\xc9\x01\xc8\x01\xb4\x01\xbd\x01\x00\x00\xfb\xff\x00\x00\x93\x01\x00\x00\x00\x00\xf6\xff\x64\x00\x27\x00\x00\x00\x00\x00\x00\x00\x00\x00"# +happyActOffsets = HappyA# "\x74\x02\xa7\x00\x6e\x02\x00\x00\x6c\x02\x66\x02\x89\x02\x88\x02\x84\x02\x00\x00\x62\x02\x62\x02\x62\x02\x62\x02\x62\x02\x62\x02\x62\x02\x62\x02\x62\x02\x62\x02\x62\x02\x62\x02\x52\x02\x21\x02\x60\x02\x6d\x02\x5e\x02\x00\x00\x82\x02\x5b\x02\xdb\x00\x00\x00\x80\x02\x7e\x02\x7d\x02\x79\x02\x59\x02\x78\x02\x7a\x02\x58\x02\x73\x02\x00\x00\x00\x00\x00\x00\x28\x00\x53\x02\x00\x00\x46\x02\x51\x02\x72\x02\x44\x02\x44\x02\x44\x02\x8b\x00\x44\x02\x44\x02\x9b\x00\x9b\x00\x44\x02\x8b\x00\x44\x02\x71\x02\x28\x00\x42\x02\x42\x02\x00\x00\x70\x02\x4b\x02\x6a\x02\x64\x02\x00\x00\x00\x00\x00\x00\xdf\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x38\x02\x8b\x00\x38\x02\x38\x02\x3f\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x55\x02\x00\x00\x00\x00\x6b\x02\xf7\xff\x9b\x00\x39\x02\x00\x00\x69\x02\x68\x02\x67\x02\x65\x02\x00\x00\x00\x00\x61\x02\x5c\x02\x63\x02\x00\x00\x5f\x02\x30\x02\x00\x00\x3e\x02\x00\x00\x2f\x02\x5d\x02\x8b\x00\x8b\x00\x00\x00\x54\x02\x12\x00\x00\x00\x4a\x02\x00\x00\x5a\x02\x57\x02\x56\x02\x26\x02\x12\x00\x27\x02\x9b\x00\x00\x00\x00\x00\x47\x02\xd7\x00\x48\x02\x50\x02\x4d\x02\x00\x00\x8b\x00\x23\x02\x23\x02\x4f\x02\x00\x00\x21\x02\x00\x00\x00\x00\x00\x00\x4e\x02\x7e\x00\x00\x00\x8b\x00\x00\x00\x8b\x00\x00\x00\x00\x00\x00\x00\xfe\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x02\x36\x02\x33\x02\x00\x00\x00\x00\xf7\xff\xfe\xff\x12\x00\x16\x02\x16\x02\x9b\x00\x43\x02\x00\x00\x00\x00\x00\x00\x9b\x00\xf7\xff\x9b\x00\xba\x00\x14\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x14\x02\x66\x00\x2a\x02\x3d\x02\x12\x00\x12\x00\x35\x02\x00\x00\x00\x00\x00\x00\xb7\x00\x00\x00\x00\x00\x07\x00\x00\x00\x00\x00\x3c\x02\x2c\x02\x29\x02\x5f\x00\xf7\xff\x0d\x02\x0d\x02\x1e\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x8b\x00\xfb\x01\x00\x00\x00\x00\x08\x02\x28\x02\xb4\x00\x00\x00\x00\x00\x22\x02\x0c\x02\x00\x00\x00\x00\x00\x00\x00\x00\x12\x00\xf7\xff\x1a\x00\x00\x00\x55\x00\x10\x02\x00\x00\x4f\x00\x00\x00\xff\x01\xfc\x01\x12\x00\xe1\x01\x00\x00\x00\x00\xac\x00\x00\x00\x00\x00\x1d\x00\x0f\x02\x0a\x02\x65\x00\x00\x00\x00\x00\x6f\x00\x00\x00\xfa\x01\xd6\x01\x8b\x00\xda\x00\xf9\x01\x00\x00\xc8\x01\x00\x00\xf6\x01\x00\x00\x00\x00\x00\x00\x00\x00\xf4\x01\x59\x00\xf3\x01\x00\x00\x00\x00\x00\x00\x00\x00\xf7\xff\xc5\x01\x00\x00\x12\x00\x00\x00\xf0\x01\x00\x00\x12\x00\xc9\x01\x00\x00\xc9\x01\x00\x00\xdd\x01\xdc\x01\xd8\x01\xd1\x01\x00\x00\x37\x00\x00\x00\xa9\x01\x00\x00\x00\x00\xf7\xff\x16\x00\x48\x00\x00\x00\x00\x00\x00\x00\x00\x00"# happyGotoOffsets :: HappyAddr -happyGotoOffsets = HappyA# "\x75\x00\x2f\x02\x00\x00\x00\x00\x7c\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xae\x01\xad\x01\xac\x01\xa7\x01\x9c\x01\x06\x00\x9a\x01\x94\x01\x8c\x01\x87\x01\x86\x01\x85\x01\x00\x00\xdf\x00\x05\x00\x00\x00\x00\x00\x00\x00\x00\x00\x83\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\x02\x00\x00\x00\x00\x00\x80\x01\x60\x01\x00\x00\xf2\x00\x6b\x01\x63\x01\x1c\x02\x62\x01\x34\x01\x81\x01\x7d\x01\xab\x00\x09\x02\x5d\x01\x00\x00\x01\x00\x57\x01\x04\x00\x00\x00\x00\x00\x38\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x11\x02\x00\x00\x00\x00\x00\x00\x00\x00\x41\x01\x40\x01\xfe\x01\x2b\x01\x3a\x01\x36\x01\x00\x00\x00\x00\x00\x00\x00\x00\x0d\x01\x00\x00\x00\x00\x00\x00\x00\x00\x71\x00\x74\x01\x33\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\x03\x00\x00\x00\x00\x00\x00\x00\xe2\x00\x00\x00\xeb\x01\xe0\x01\x00\x00\x00\x00\x51\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x2e\x01\x48\x01\x9c\x00\x6a\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xbf\x00\x00\x00\xcd\x01\x2f\x01\x19\x01\x00\x00\x10\x01\xdf\x00\xee\x00\x00\x00\x00\x00\x00\x00\x0e\x00\x00\x00\xc2\x01\x00\x00\xaf\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\xb3\x00\x00\x00\x31\x01\x0c\x01\xf1\x00\x14\x01\x00\x00\x00\x00\x00\x00\xeb\x00\x6f\x00\xea\x00\x00\x00\xa0\x00\x00\x00\x00\x00\xcf\x00\x00\x00\x00\x00\xd9\x00\x00\x00\x00\x00\x00\x00\x28\x01\x5a\x01\x00\x00\x00\x00\x00\x00\xc0\x00\x00\x00\x00\x00\xa1\x00\x00\x00\x00\x00\x95\x00\x00\x00\x00\x00\x00\x00\x7a\x01\x08\x00\xb9\x00\xb4\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xa4\x01\x7b\x00\x00\x00\x00\x00\x1b\x00\x00\x00\xaf\x00\x84\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x1f\x01\xac\x00\x80\x00\x00\x00\x71\x01\x69\x01\x61\x00\x71\x01\x00\x00\x00\x00\x00\x00\x08\x01\x9e\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x71\x01\x00\x00\x00\x00\xe1\x00\x00\x00\x00\x00\xa6\x01\x00\x00\x00\x00\x51\x00\x91\x01\x0e\x00\x00\x00\x00\x00\x77\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x4c\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0c\x00\x6b\x00\x00\x00\xff\x00\x00\x00\x2a\x01\x00\x00\xf4\x00\x00\x00\x00\x00\x00\x00\x09\x00\x00\x00\x00\x00\x00\x00\x00\x00\x13\x00\x89\x01\x00\x00\x15\x00\x00\x00\x00\x00\x0b\x00\xde\x00\xce\x00\x00\x00\x00\x00\x00\x00\x00\x00"# +happyGotoOffsets = HappyA# "\x9c\x00\x5d\x01\x00\x00\x00\x00\xb7\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xc4\x01\xc2\x01\xc1\x01\xbc\x01\xb1\x01\x06\x00\xb0\x01\xa8\x01\xa4\x01\x8f\x01\x8e\x01\x8c\x01\x00\x00\x6e\x00\x05\x00\x00\x00\x00\x00\x00\x00\x00\x00\x87\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\x02\x00\x00\x00\x00\x00\x86\x01\x72\x01\x00\x00\x9f\x00\x7b\x01\x70\x01\x25\x02\x65\x01\xe0\x01\x36\x01\x19\x01\xa6\x00\x20\x02\x52\x01\x00\x00\x01\x00\x40\x01\x04\x00\x00\x00\x00\x00\x35\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x3a\x02\x00\x00\x00\x00\x00\x00\x00\x00\x26\x01\x3c\x01\x0b\x02\xc6\x01\x3b\x01\x38\x01\x00\x00\x00\x00\x00\x00\x00\x00\x0d\x01\x00\x00\x00\x00\x00\x00\x00\x00\x7f\x00\x18\x01\x33\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\x03\x00\x00\x00\x00\x00\x00\x00\x8f\x00\x00\x00\x06\x02\xf1\x01\x00\x00\x00\x00\x7e\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x1e\x01\x6b\x01\x6a\x00\x17\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xff\xff\x00\x00\xec\x01\x1f\x01\x1d\x01\x00\x00\x14\x01\x6e\x00\xf3\x00\x00\x00\x00\x00\x00\x00\xab\x01\x00\x00\xd7\x01\x00\x00\xd2\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\xc8\x00\x00\x00\x58\x01\xb4\x01\xfd\x00\xf9\x00\x00\x00\x00\x00\x00\x00\x00\x00\xef\x00\x0f\x00\x0c\x00\x00\x00\x35\x00\x00\x00\x00\x00\xc7\x00\x00\x00\x00\x00\xa6\x01\x00\x00\x00\x00\x00\x00\x54\x01\x82\x01\x00\x00\x00\x00\x00\x00\xc1\x00\x00\x00\x00\x00\xa8\x00\x00\x00\x00\x00\x90\x00\x00\x00\x00\x00\x00\x00\x96\x01\x0e\x00\xe8\x00\xd3\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xbd\x01\x37\x01\x00\x00\x00\x00\x51\x00\x00\x00\x03\x01\x93\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x41\x01\xc0\x00\xa1\x00\x00\x00\x92\x01\x3a\x01\x5c\x00\x92\x01\x00\x00\x00\x00\x00\x00\x2e\x01\x11\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x92\x01\x00\x00\x00\x00\xff\x00\x00\x00\x00\x00\x77\x01\x00\x00\x00\x00\x74\x00\xb8\x01\xab\x01\x00\x00\x00\x00\x6c\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x47\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0d\x00\x10\x00\x00\x00\x2a\x01\x00\x00\x3d\x00\x00\x00\x04\x01\x00\x00\x00\x00\x00\x00\xe2\xff\x00\x00\x00\x00\x00\x00\x00\x00\xe0\xff\x91\x00\x00\x00\x17\x00\x00\x00\x00\x00\x09\x00\xf8\x00\xf4\x00\x00\x00\x00\x00\x00\x00\x00\x00"# happyDefActions :: HappyAddr -happyDefActions = HappyA# "\xee\xff\x00\x00\x00\x00\xfd\xff\xdd\xff\x00\x00\x00\x00\x00\x00\x00\x00\xf4\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x73\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xf9\xff\x73\xff\x72\xff\x00\x00\xed\xff\x00\x00\x00\x00\x00\x00\xf0\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xf2\xff\xf5\xff\xf6\xff\xeb\xff\x00\x00\xde\xff\x00\x00\xe9\xff\x00\x00\xcb\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x92\xff\x00\x00\x00\x00\x00\x00\xeb\xff\x00\x00\x73\xff\x71\xff\x00\x00\xe9\xff\x00\x00\x00\x00\xc0\xff\xbf\xff\xc4\xff\xd6\xff\xe5\xff\xda\xff\xbe\xff\xd5\xff\xc6\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xd2\xff\xd4\xff\xfc\xff\xfb\xff\x8f\xff\x91\xff\xe4\xff\xba\xff\x00\x00\x85\xff\x00\x00\x00\x00\xb9\xff\x00\x00\x00\x00\x00\x00\x00\x00\xe8\xff\xf1\xff\x00\x00\x00\x00\xca\xff\xec\xff\x00\x00\x73\xff\xe0\xff\x00\x00\xf7\xff\xcb\xff\x00\x00\x00\x00\x00\x00\xf8\xff\x00\x00\x00\x00\xb8\xff\x00\x00\xa0\xff\x84\xff\x00\x00\x00\x00\x00\x00\x00\x00\x92\xff\xdf\xff\xc1\xff\xc2\xff\x00\x00\x00\x00\x00\x00\x00\x00\xc8\xff\xdb\xff\x00\x00\x00\x00\x00\x00\x00\x00\xee\xff\xfa\xff\x96\xff\xef\xff\xdc\xff\x00\x00\x00\x00\xd7\xff\x00\x00\xd3\xff\x00\x00\xc3\xff\x8e\xff\x90\xff\x00\x00\xa5\xff\xb1\xff\xb5\xff\xa8\xff\xa6\xff\xe3\xff\xb0\xff\xb6\xff\x8b\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x9f\xff\xbc\xff\x00\x00\x85\xff\x00\x00\x00\x00\x88\xff\xe6\xff\xbd\xff\x8d\xff\xc9\xff\xea\xff\xe7\xff\x00\x00\x87\xff\x00\x00\x00\x00\x00\x00\x00\x00\x83\xff\xb7\xff\x7f\xff\x00\x00\xb3\xff\x7f\xff\x00\x00\xaf\xff\x7d\xff\x8a\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xd8\xff\xcf\xff\xce\xff\xcd\xff\xc7\xff\x00\x00\x00\x00\xcc\xff\xc5\xff\x94\xff\x00\x00\x00\x00\xc8\xff\xd1\xff\x00\x00\x00\x00\x9e\xff\xad\xff\xaa\xff\xb2\xff\x00\x00\x8b\xff\x00\x00\xae\xff\x00\x00\x75\xff\x7f\xff\x00\x00\xbb\xff\xa7\xff\xe2\xff\x00\x00\x88\xff\x8c\xff\x86\xff\x00\x00\x7e\xff\xa9\xff\x00\x00\x81\xff\x00\x00\x00\x00\xb4\xff\x7c\xff\x7b\xff\x89\xff\xa3\xff\x00\x00\x00\x00\x00\x00\x00\x00\xf3\xff\x00\x00\x95\xff\x00\x00\x93\xff\xd0\xff\xd9\xff\x9d\xff\x7a\xff\x00\x00\x00\x00\x9b\xff\x98\xff\x74\xff\x78\xff\x00\x00\x9a\xff\x00\x00\xac\xff\x75\xff\xab\xff\x00\x00\xe1\xff\x80\xff\xa2\xff\x75\xff\x00\x00\x77\xff\x00\x00\x00\x00\x7d\xff\x7b\xff\x79\xff\xa1\xff\xa4\xff\x99\xff\x78\xff\x00\x00\x00\x00\x9c\xff\x97\xff\x76\xff"# +happyDefActions = HappyA# "\xed\xff\x00\x00\x00\x00\xfd\xff\xdc\xff\x00\x00\x00\x00\x00\x00\x00\x00\xf3\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x6f\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xf8\xff\x6f\xff\x6e\xff\x00\x00\xec\xff\x00\x00\x00\x00\x00\x00\xef\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xf1\xff\xf4\xff\xf5\xff\xea\xff\x00\x00\xdd\xff\x00\x00\xe8\xff\x00\x00\xc9\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x8e\xff\x00\x00\x00\x00\x00\x00\xea\xff\x00\x00\x6f\xff\x6d\xff\x00\x00\xe8\xff\x00\x00\x00\x00\xbe\xff\xbd\xff\xc2\xff\xd5\xff\xe4\xff\xd9\xff\xbc\xff\xd4\xff\xc4\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xd1\xff\xd3\xff\xfc\xff\xfb\xff\x8b\xff\x8d\xff\xe3\xff\xb8\xff\x00\x00\x81\xff\x00\x00\x00\x00\xb7\xff\x00\x00\x00\x00\x00\x00\x00\x00\xe7\xff\xf0\xff\x00\x00\x00\x00\xc8\xff\xeb\xff\x00\x00\x6f\xff\xdf\xff\x00\x00\xf6\xff\xc9\xff\x00\x00\x00\x00\x00\x00\xf7\xff\x00\x00\x00\x00\xb6\xff\x00\x00\x9d\xff\x80\xff\x00\x00\x00\x00\x00\x00\x00\x00\x8e\xff\xde\xff\xbf\xff\xc0\xff\x00\x00\x00\x00\x00\x00\x00\x00\xc6\xff\xda\xff\x00\x00\x00\x00\x00\x00\x00\x00\xed\xff\xf9\xff\x92\xff\xee\xff\xdb\xff\x00\x00\x00\x00\xd6\xff\x00\x00\xd2\xff\x00\x00\xc1\xff\x8a\xff\x8c\xff\x00\x00\xa2\xff\xaf\xff\xae\xff\xb3\xff\xa5\xff\xa3\xff\xe2\xff\xad\xff\xb4\xff\x87\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xfa\xff\x9c\xff\xba\xff\x00\x00\x81\xff\x00\x00\x00\x00\x84\xff\xe5\xff\xbb\xff\x89\xff\xc7\xff\xe9\xff\xe6\xff\x00\x00\x83\xff\x00\x00\x00\x00\x00\x00\x00\x00\x7f\xff\xb5\xff\x7b\xff\x00\x00\xb1\xff\x7b\xff\x00\x00\xac\xff\x79\xff\x86\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xd7\xff\xce\xff\xcd\xff\xcc\xff\xcb\xff\xc5\xff\x00\x00\x00\x00\xca\xff\xc3\xff\x90\xff\x00\x00\x00\x00\xc6\xff\xd0\xff\x00\x00\x00\x00\x9b\xff\xaa\xff\xa7\xff\xb0\xff\x00\x00\x87\xff\x00\x00\xab\xff\x00\x00\x71\xff\x7b\xff\x00\x00\xb9\xff\xa4\xff\xe1\xff\x00\x00\x84\xff\x88\xff\x82\xff\x00\x00\x7a\xff\xa6\xff\x00\x00\x7d\xff\x00\x00\x00\x00\xb2\xff\x78\xff\x77\xff\x85\xff\xa0\xff\x00\x00\x00\x00\x00\x00\x00\x00\xf2\xff\x00\x00\x91\xff\x00\x00\x8f\xff\xcf\xff\xd8\xff\x9a\xff\x76\xff\x00\x00\x00\x00\x98\xff\x95\xff\x94\xff\x70\xff\x74\xff\x00\x00\x97\xff\x00\x00\xa9\xff\x71\xff\xa8\xff\x00\x00\xe0\xff\x7c\xff\x9f\xff\x71\xff\x00\x00\x73\xff\x00\x00\x00\x00\x79\xff\x77\xff\x75\xff\x9e\xff\xa1\xff\x96\xff\x74\xff\x00\x00\x00\x00\x99\xff\x93\xff\x72\xff"# happyCheck :: HappyAddr -happyCheck = HappyA# "\xff\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x11\x00\x00\x00\x08\x00\x08\x00\x00\x00\x00\x00\x03\x00\x00\x00\x01\x00\x02\x00\x16\x00\x03\x00\x03\x00\x0d\x00\x01\x00\x01\x00\x05\x00\x08\x00\x0a\x00\x03\x00\x0c\x00\x15\x00\x0b\x00\x0f\x00\x08\x00\x11\x00\x12\x00\x14\x00\x0c\x00\x07\x00\x0a\x00\x0f\x00\x31\x00\x11\x00\x15\x00\x03\x00\x23\x00\x1d\x00\x32\x00\x23\x00\x23\x00\x21\x00\x26\x00\x26\x00\x0c\x00\x0d\x00\x0e\x00\x35\x00\x35\x00\x35\x00\x35\x00\x35\x00\x35\x00\x32\x00\x34\x00\x33\x00\x33\x00\x31\x00\x32\x00\x33\x00\x28\x00\x31\x00\x2e\x00\x03\x00\x30\x00\x31\x00\x32\x00\x33\x00\x08\x00\x09\x00\x01\x00\x31\x00\x0c\x00\x03\x00\x04\x00\x0f\x00\x02\x00\x11\x00\x08\x00\x03\x00\x09\x00\x31\x00\x0c\x00\x33\x00\x08\x00\x0f\x00\x03\x00\x11\x00\x0c\x00\x03\x00\x16\x00\x0f\x00\x10\x00\x11\x00\x08\x00\x0c\x00\x03\x00\x0e\x00\x0c\x00\x03\x00\x00\x00\x0f\x00\x13\x00\x11\x00\x00\x00\x0c\x00\x00\x00\x0e\x00\x0c\x00\x31\x00\x32\x00\x33\x00\x00\x00\x03\x00\x0e\x00\x2c\x00\x00\x00\x07\x00\x32\x00\x31\x00\x32\x00\x33\x00\x01\x00\x1b\x00\x1c\x00\x31\x00\x32\x00\x33\x00\x04\x00\x16\x00\x0e\x00\x1b\x00\x31\x00\x1b\x00\x33\x00\x31\x00\x32\x00\x33\x00\x30\x00\x23\x00\x06\x00\x23\x00\x31\x00\x04\x00\x33\x00\x31\x00\x0c\x00\x16\x00\x0e\x00\x00\x00\x2e\x00\x00\x00\x2e\x00\x00\x00\x1e\x00\x1f\x00\x20\x00\x32\x00\x22\x00\x23\x00\x24\x00\x0c\x00\x26\x00\x27\x00\x00\x00\x00\x00\x2a\x00\x2b\x00\x00\x00\x2d\x00\x1f\x00\x2f\x00\x00\x00\x31\x00\x23\x00\x02\x00\x0c\x00\x26\x00\x27\x00\x0b\x00\x02\x00\x2a\x00\x2b\x00\x31\x00\x32\x00\x33\x00\x2f\x00\x24\x00\x31\x00\x24\x00\x29\x00\x31\x00\x01\x00\x0c\x00\x0d\x00\x0e\x00\x2d\x00\x20\x00\x2d\x00\x00\x00\x23\x00\x02\x00\x30\x00\x13\x00\x20\x00\x29\x00\x16\x00\x23\x00\x0c\x00\x2c\x00\x00\x00\x0f\x00\x15\x00\x11\x00\x12\x00\x00\x00\x2c\x00\x02\x00\x00\x00\x00\x00\x02\x00\x05\x00\x06\x00\x02\x00\x0e\x00\x1d\x00\x05\x00\x00\x00\x00\x00\x21\x00\x31\x00\x32\x00\x33\x00\x30\x00\x00\x00\x00\x00\x25\x00\x00\x00\x01\x00\x02\x00\x15\x00\x0e\x00\x0e\x00\x2b\x00\x19\x00\x31\x00\x32\x00\x33\x00\x00\x00\x01\x00\x02\x00\x0e\x00\x25\x00\x1a\x00\x1a\x00\x25\x00\x15\x00\x00\x00\x01\x00\x02\x00\x19\x00\x00\x00\x0e\x00\x17\x00\x18\x00\x1c\x00\x1d\x00\x1e\x00\x1f\x00\x00\x00\x27\x00\x0e\x00\x07\x00\x24\x00\x00\x00\x0e\x00\x1c\x00\x1d\x00\x1e\x00\x1f\x00\x00\x00\x01\x00\x02\x00\x0e\x00\x24\x00\x1c\x00\x1d\x00\x1e\x00\x1f\x00\x00\x00\x01\x00\x02\x00\x00\x00\x24\x00\x0e\x00\x1a\x00\x00\x00\x02\x00\x00\x00\x01\x00\x02\x00\x00\x00\x02\x00\x0e\x00\x2a\x00\x02\x00\x0e\x00\x00\x00\x1c\x00\x1d\x00\x1e\x00\x1f\x00\x0e\x00\x00\x00\x09\x00\x0e\x00\x24\x00\x1c\x00\x1d\x00\x1e\x00\x1f\x00\x00\x00\x01\x00\x02\x00\x21\x00\x24\x00\x1c\x00\x1d\x00\x1e\x00\x1f\x00\x00\x00\x01\x00\x02\x00\x0b\x00\x24\x00\x0e\x00\x00\x00\x17\x00\x2f\x00\x00\x00\x01\x00\x02\x00\x00\x00\x34\x00\x0e\x00\x17\x00\x18\x00\x00\x00\x00\x00\x1c\x00\x1d\x00\x1e\x00\x1f\x00\x0e\x00\x09\x00\x00\x00\x00\x00\x24\x00\x1c\x00\x1d\x00\x1e\x00\x1f\x00\x00\x00\x01\x00\x02\x00\x00\x00\x24\x00\x1c\x00\x1d\x00\x0e\x00\x1f\x00\x00\x00\x01\x00\x02\x00\x00\x00\x24\x00\x0e\x00\x00\x00\x00\x00\x0e\x00\x00\x00\x1a\x00\x00\x00\x00\x00\x00\x00\x0e\x00\x0d\x00\x21\x00\x0e\x00\x00\x00\x1c\x00\x1a\x00\x0e\x00\x1f\x00\x00\x00\x01\x00\x02\x00\x00\x00\x24\x00\x1c\x00\x1a\x00\x2f\x00\x1f\x00\x00\x00\x1a\x00\x00\x00\x34\x00\x24\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x12\x00\x00\x00\x01\x00\x02\x00\x00\x00\x1e\x00\x18\x00\x20\x00\x22\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x02\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x12\x00\x2d\x00\x04\x00\x2f\x00\x31\x00\x32\x00\x18\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x12\x00\x00\x00\x01\x00\x02\x00\x32\x00\x09\x00\x18\x00\x22\x00\x01\x00\x15\x00\x02\x00\x31\x00\x00\x00\x01\x00\x02\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x12\x00\x04\x00\x04\x00\x31\x00\x32\x00\x01\x00\x18\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x12\x00\x00\x00\x01\x00\x02\x00\x02\x00\x31\x00\x18\x00\x01\x00\x04\x00\x15\x00\x33\x00\x01\x00\x00\x00\x01\x00\x02\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x12\x00\x15\x00\x31\x00\x04\x00\x14\x00\x01\x00\x18\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x12\x00\x00\x00\x01\x00\x02\x00\x17\x00\x06\x00\x18\x00\x0d\x00\x31\x00\x22\x00\x04\x00\x33\x00\x00\x00\x01\x00\x02\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x12\x00\x00\x00\x01\x00\x02\x00\x02\x00\x01\x00\x18\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x12\x00\x00\x00\x01\x00\x02\x00\x0e\x00\x0d\x00\x18\x00\x11\x00\x12\x00\x06\x00\x1a\x00\x31\x00\x03\x00\x01\x00\x18\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x12\x00\x00\x00\x31\x00\x0b\x00\x15\x00\x04\x00\x18\x00\x06\x00\x14\x00\x03\x00\x31\x00\x0a\x00\x0b\x00\x04\x00\x06\x00\x0d\x00\x10\x00\x31\x00\x33\x00\x04\x00\x01\x00\x05\x00\x13\x00\x0a\x00\x02\x00\x31\x00\x25\x00\x31\x00\x03\x00\x01\x00\x09\x00\x05\x00\x02\x00\x01\x00\x31\x00\x02\x00\x02\x00\x33\x00\x02\x00\x19\x00\x0b\x00\x06\x00\x33\x00\x01\x00\x31\x00\x29\x00\x05\x00\x31\x00\x29\x00\x25\x00\x07\x00\x28\x00\x08\x00\x02\x00\x31\x00\x05\x00\x02\x00\x28\x00\x05\x00\x02\x00\x05\x00\x02\x00\x01\x00\x28\x00\x1a\x00\x01\x00\xff\xff\x31\x00\x02\x00\x31\x00\x21\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x31\x00\x35\x00\xff\xff\xff\xff\xff\xff\x24\x00\xff\xff\xff\xff\x35\x00\xff\xff\xff\xff\xff\xff\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\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\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\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x09\x00\x11\x00\x00\x00\x09\x00\x09\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x32\x00\x14\x00\x0d\x00\x03\x00\x17\x00\x35\x00\x01\x00\x03\x00\x08\x00\x0f\x00\x15\x00\x03\x00\x0c\x00\x0f\x00\x03\x00\x0f\x00\x0c\x00\x11\x00\x0e\x00\x08\x00\x09\x00\x1b\x00\x31\x00\x0c\x00\x2c\x00\x1c\x00\x0f\x00\x24\x00\x11\x00\x07\x00\x27\x00\x24\x00\x24\x00\x24\x00\x27\x00\x00\x00\x25\x00\x36\x00\x36\x00\x36\x00\x36\x00\x36\x00\x36\x00\x34\x00\x2f\x00\x2e\x00\x2e\x00\x34\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x31\x00\x01\x00\x33\x00\x34\x00\x03\x00\x32\x00\x16\x00\x31\x00\x32\x00\x33\x00\x34\x00\x03\x00\x04\x00\x0c\x00\x0d\x00\x0e\x00\x08\x00\x03\x00\x31\x00\x25\x00\x0c\x00\x0b\x00\x08\x00\x0f\x00\x22\x00\x11\x00\x0c\x00\x03\x00\x2e\x00\x0f\x00\x10\x00\x11\x00\x08\x00\x03\x00\x32\x00\x00\x00\x0c\x00\x00\x00\x30\x00\x0f\x00\x16\x00\x11\x00\x0c\x00\x35\x00\x0e\x00\x06\x00\x07\x00\x02\x00\x0d\x00\x13\x00\x31\x00\x29\x00\x33\x00\x34\x00\x17\x00\x18\x00\x00\x00\x31\x00\x32\x00\x33\x00\x34\x00\x06\x00\x16\x00\x31\x00\x32\x00\x33\x00\x34\x00\x0c\x00\x32\x00\x0e\x00\x31\x00\x03\x00\x00\x00\x31\x00\x32\x00\x33\x00\x34\x00\x2a\x00\x0a\x00\x31\x00\x0c\x00\x33\x00\x34\x00\x0f\x00\x1c\x00\x11\x00\x12\x00\x03\x00\x00\x00\x04\x00\x32\x00\x01\x00\x24\x00\x08\x00\x16\x00\x00\x00\x0c\x00\x1d\x00\x1a\x00\x17\x00\x04\x00\x21\x00\x01\x00\x2f\x00\x31\x00\x32\x00\x33\x00\x34\x00\x0d\x00\x23\x00\x16\x00\x1b\x00\x1c\x00\x04\x00\x1a\x00\x03\x00\x01\x00\x31\x00\x32\x00\x33\x00\x08\x00\x00\x00\x15\x00\x32\x00\x32\x00\x33\x00\x1e\x00\x1f\x00\x20\x00\x00\x00\x22\x00\x23\x00\x24\x00\x31\x00\x26\x00\x27\x00\x15\x00\x2a\x00\x2a\x00\x2b\x00\x1f\x00\x2d\x00\x02\x00\x2f\x00\x23\x00\x31\x00\x31\x00\x26\x00\x27\x00\x05\x00\x02\x00\x2a\x00\x2b\x00\x05\x00\x21\x00\x0b\x00\x2f\x00\x24\x00\x31\x00\x0c\x00\x0d\x00\x0e\x00\x21\x00\x02\x00\x0c\x00\x24\x00\x2d\x00\x0f\x00\x00\x00\x11\x00\x12\x00\x31\x00\x2c\x00\x00\x00\x2d\x00\x02\x00\x03\x00\x00\x00\x00\x00\x02\x00\x03\x00\x1d\x00\x00\x00\x0f\x00\x00\x00\x21\x00\x02\x00\x03\x00\x00\x00\x00\x00\x01\x00\x02\x00\x03\x00\x0f\x00\x0b\x00\x1b\x00\x31\x00\x32\x00\x33\x00\x34\x00\x0c\x00\x31\x00\x32\x00\x33\x00\x0f\x00\x1b\x00\x17\x00\x18\x00\x00\x00\x00\x00\x00\x00\x26\x00\x28\x00\x08\x00\x00\x00\x26\x00\x00\x00\x02\x00\x1d\x00\x1e\x00\x1f\x00\x20\x00\x26\x00\x0f\x00\x0f\x00\x0f\x00\x25\x00\x00\x00\x01\x00\x02\x00\x03\x00\x00\x00\x01\x00\x02\x00\x03\x00\x1b\x00\x1b\x00\x1b\x00\x02\x00\x00\x00\x00\x00\x2b\x00\x0f\x00\x02\x00\x00\x00\x00\x00\x0f\x00\x18\x00\x0a\x00\x00\x00\x00\x00\x01\x00\x02\x00\x03\x00\x0f\x00\x0f\x00\x1d\x00\x1e\x00\x1f\x00\x20\x00\x1d\x00\x1e\x00\x1f\x00\x20\x00\x25\x00\x0f\x00\x1b\x00\x00\x00\x25\x00\x00\x00\x01\x00\x02\x00\x03\x00\x00\x00\x01\x00\x02\x00\x03\x00\x22\x00\x00\x00\x1d\x00\x1e\x00\x1f\x00\x20\x00\x05\x00\x0f\x00\x07\x00\x00\x00\x25\x00\x0f\x00\x0b\x00\x0c\x00\x30\x00\x00\x00\x01\x00\x02\x00\x03\x00\x35\x00\x00\x00\x1d\x00\x1e\x00\x1f\x00\x20\x00\x1d\x00\x1e\x00\x1f\x00\x20\x00\x25\x00\x0f\x00\x00\x00\x0a\x00\x25\x00\x00\x00\x01\x00\x02\x00\x03\x00\x00\x00\x01\x00\x02\x00\x03\x00\x00\x00\x00\x00\x1d\x00\x1e\x00\x1f\x00\x20\x00\x00\x00\x0f\x00\x00\x00\x00\x00\x25\x00\x0f\x00\x00\x00\x01\x00\x02\x00\x03\x00\x00\x00\x01\x00\x02\x00\x03\x00\x23\x00\x1d\x00\x1e\x00\x1f\x00\x20\x00\x1d\x00\x1e\x00\x0f\x00\x20\x00\x25\x00\x00\x00\x0f\x00\x00\x00\x25\x00\x00\x00\x32\x00\x33\x00\x00\x00\x01\x00\x02\x00\x03\x00\x1d\x00\x00\x00\x00\x00\x20\x00\x1d\x00\x00\x00\x0f\x00\x20\x00\x25\x00\x00\x00\x01\x00\x02\x00\x25\x00\x00\x00\x00\x00\x01\x00\x02\x00\x15\x00\x00\x00\x00\x00\x0f\x00\x00\x00\x0e\x00\x00\x00\x0f\x00\x10\x00\x11\x00\x12\x00\x13\x00\x0f\x00\x10\x00\x11\x00\x12\x00\x13\x00\x19\x00\x00\x00\x01\x00\x02\x00\x0f\x00\x19\x00\x00\x00\x01\x00\x02\x00\x09\x00\x32\x00\x04\x00\x01\x00\x15\x00\x02\x00\x00\x00\x0f\x00\x10\x00\x11\x00\x12\x00\x13\x00\x0f\x00\x10\x00\x11\x00\x12\x00\x13\x00\x19\x00\x00\x00\x01\x00\x02\x00\x0f\x00\x19\x00\x00\x00\x01\x00\x02\x00\x04\x00\x01\x00\x31\x00\x04\x00\x02\x00\x31\x00\x01\x00\x0f\x00\x10\x00\x11\x00\x12\x00\x13\x00\x0f\x00\x10\x00\x11\x00\x12\x00\x13\x00\x19\x00\x00\x00\x01\x00\x02\x00\x33\x00\x19\x00\x00\x00\x01\x00\x02\x00\x04\x00\x15\x00\x01\x00\x15\x00\x31\x00\x14\x00\x04\x00\x0f\x00\x10\x00\x11\x00\x12\x00\x13\x00\x0f\x00\x10\x00\x11\x00\x12\x00\x13\x00\x19\x00\x00\x00\x01\x00\x02\x00\x17\x00\x19\x00\x00\x00\x01\x00\x02\x00\x06\x00\x01\x00\x22\x00\x0d\x00\x31\x00\x04\x00\x02\x00\x0f\x00\x10\x00\x11\x00\x12\x00\x13\x00\x0f\x00\x10\x00\x11\x00\x12\x00\x13\x00\x19\x00\x00\x00\x01\x00\x02\x00\x01\x00\x19\x00\x1e\x00\x33\x00\x20\x00\x0d\x00\x06\x00\x1a\x00\x31\x00\x03\x00\x31\x00\x15\x00\x0f\x00\x14\x00\x0b\x00\x12\x00\x13\x00\x2d\x00\x01\x00\x2f\x00\x04\x00\x03\x00\x19\x00\x31\x00\x0d\x00\x06\x00\x10\x00\x31\x00\x33\x00\x04\x00\x01\x00\x05\x00\x13\x00\x0a\x00\x02\x00\x31\x00\x31\x00\x03\x00\x25\x00\x01\x00\x09\x00\x05\x00\x02\x00\x01\x00\x31\x00\x02\x00\x02\x00\x33\x00\x02\x00\x19\x00\x0b\x00\x06\x00\x01\x00\x33\x00\x31\x00\x29\x00\x31\x00\x05\x00\x31\x00\x25\x00\x07\x00\x29\x00\x08\x00\x02\x00\x05\x00\x05\x00\x02\x00\x28\x00\x28\x00\x02\x00\x05\x00\x02\x00\x01\x00\x28\x00\x1a\x00\x36\x00\x01\x00\xff\xff\x02\x00\x31\x00\x21\x00\xff\xff\xff\xff\xff\xff\x31\x00\xff\xff\x31\x00\xff\xff\xff\xff\xff\xff\xff\xff\x24\x00\xff\xff\xff\xff\xff\xff\x36\x00\xff\xff\xff\xff\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\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\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\x19\x00\x19\x00\x19\x00\x19\x00\x19\x00\x19\x00\x7e\x00\x79\x00\x43\x00\x30\x00\x79\x00\x79\x00\xfc\x00\xd0\x00\xd1\x00\xd2\x00\x7d\xff\x4f\x00\xe9\x00\xe7\x00\x18\x01\xfa\x00\x98\x00\xea\x00\x50\x00\xa5\x00\x51\x00\xbd\x00\x8b\x00\x52\x00\xa6\x00\x53\x00\x54\x00\xd3\x00\xa7\x00\x73\xff\xd9\x00\xa8\x00\x04\x00\xa9\x00\xbd\x00\x11\x01\xe0\x00\x55\x00\x7d\xff\x1c\x01\x1c\x01\x56\x00\x1d\x01\x1d\x01\x12\x01\x2a\x01\x13\x01\x31\x00\x31\x00\x6e\x00\x41\x00\x1a\x00\x24\x00\x57\x00\x28\x01\x2b\x01\x1e\x01\x04\x00\x57\x00\x58\x00\xda\x00\x23\x01\xaa\x00\xa5\x00\xab\x00\x04\x00\x57\x00\x58\x00\xa6\x00\x17\x01\xfa\x00\x04\x00\xa7\x00\xa5\x00\xf5\x00\xa8\x00\x09\x01\xa9\x00\xa6\x00\xa5\x00\xc6\x00\x04\x00\xa7\x00\x58\x00\xa6\x00\xa8\x00\x11\x01\xa9\x00\xa7\x00\xa5\x00\x21\x01\xa8\x00\xfa\x00\xa9\x00\xa6\x00\x12\x01\x11\x01\x13\x01\xa7\x00\x5e\x00\x45\x00\xa8\x00\x14\x01\xa9\x00\x79\x00\x12\x01\x79\x00\x13\x01\x5f\x00\x04\x00\x57\x00\x58\x00\x05\x01\x16\x00\x1b\x01\xc7\x00\x45\x00\x17\x00\x57\x00\x04\x00\x57\x00\x58\x00\xfa\x00\x60\x00\x61\x00\x04\x00\x57\x00\x58\x00\x0a\x00\x7d\xff\xdb\x00\x7a\x00\x04\x00\x7a\x00\x58\x00\x04\x00\x57\x00\x58\x00\xf5\x00\x7b\x00\xd5\x00\x7b\x00\x04\x00\x03\x01\x58\x00\x04\x00\xd6\x00\x00\x01\xd7\x00\x58\x00\xbe\x00\xb8\x00\x7c\x00\xb8\x00\x0b\x00\x0c\x00\x0d\x00\x7d\xff\x0e\x00\x0f\x00\x10\x00\x59\x00\x11\x00\x12\x00\x58\x00\x79\x00\x13\x00\x14\x00\x04\x00\x15\x00\x0c\x00\x16\x00\x79\x00\x04\x00\x0f\x00\xde\x00\x59\x00\x11\x00\x12\x00\x01\x01\xdf\x00\x13\x00\x14\x00\x04\x00\x57\x00\x58\x00\x04\x01\xb9\x00\x04\x00\xb9\x00\x9a\x00\xe5\x00\xbc\x00\xd6\x00\x08\x01\xd7\x00\xf1\x00\xc7\x00\xba\x00\x0d\x01\xc8\x00\x0e\x01\xe7\x00\x92\x00\xc7\x00\x5a\x00\x93\x00\xc8\x00\x8a\x00\xfc\x00\x45\x00\x52\x00\xbd\x00\x53\x00\x54\x00\x0d\x01\xc9\x00\x0e\x01\x0d\x01\x67\x00\x0e\x01\x1b\x00\x1c\x00\x3c\x00\xf0\x00\x55\x00\x3d\x00\x45\x00\x45\x00\x56\x00\x04\x00\x57\x00\x58\x00\xea\x00\xc2\x00\x67\x00\x0f\x01\x9b\x00\x9c\x00\x9d\x00\xb5\x00\x5b\x00\x5b\x00\xb7\x00\x69\x00\x04\x00\x57\x00\x58\x00\x9b\x00\x9c\x00\x9d\x00\x9e\x00\x2a\x01\xbd\x00\xbf\x00\x0f\x01\x68\x00\x9b\x00\x9c\x00\x9d\x00\x69\x00\x45\x00\x9e\x00\xcd\x00\xce\x00\x9f\x00\xa0\x00\x18\x01\xa2\x00\x45\x00\xd8\x00\x9e\x00\x8e\x00\xa3\x00\x90\x00\xc3\x00\x9f\x00\xa0\x00\x1a\x01\xa2\x00\x9b\x00\x9c\x00\x9d\x00\x5b\x00\xa3\x00\x9f\x00\xa0\x00\xf2\x00\xa2\x00\x9b\x00\x9c\x00\x9d\x00\x45\x00\xa3\x00\x9e\x00\xc1\x00\x91\x00\xab\x00\x9b\x00\x9c\x00\x9d\x00\x45\x00\x77\x00\x9e\x00\x80\x00\x81\x00\x83\x00\x82\x00\x9f\x00\xa0\x00\xfd\x00\xa2\x00\x9e\x00\x86\x00\x8c\x00\x62\x00\xa3\x00\x9f\x00\xa0\x00\xed\x00\xa2\x00\x9b\x00\x9c\x00\x9d\x00\xf6\x00\xa3\x00\x9f\x00\xa0\x00\xc4\x00\xa2\x00\x9b\x00\x9c\x00\x9d\x00\x8b\x00\xa3\x00\x9e\x00\x42\x00\x87\x00\x19\x01\x9b\x00\x9c\x00\x9d\x00\x44\x00\xf8\x00\x9e\x00\xcd\x00\xce\x00\x63\x00\x65\x00\x9f\x00\xa0\x00\xa1\x00\xa2\x00\x9e\x00\x6b\x00\x45\x00\x66\x00\xa3\x00\x9f\x00\xa0\x00\xb0\x00\xa2\x00\x9b\x00\x9c\x00\x9d\x00\x45\x00\xa3\x00\x9f\x00\xec\x00\x5b\x00\xa2\x00\x9b\x00\x9c\x00\x9d\x00\x45\x00\xa3\x00\x9e\x00\x6d\x00\x45\x00\x5b\x00\x3d\x00\x99\x00\x1e\x00\x1f\x00\x20\x00\x9e\x00\x2d\x00\xf6\x00\x5b\x00\x21\x00\xf3\x00\x78\x00\x5b\x00\xa2\x00\x45\x00\x46\x00\x47\x00\x22\x00\xa3\x00\xe1\x00\x5c\x00\xf7\x00\xa2\x00\x23\x00\x61\x00\x25\x00\xf8\x00\xa3\x00\x48\x00\x49\x00\x08\x01\x4b\x00\x4c\x00\x45\x00\x46\x00\x47\x00\x26\x00\x0b\x00\x4d\x00\x0d\x00\x0a\x01\x27\x00\x28\x00\x29\x00\x45\x00\x46\x00\x47\x00\x48\x00\x49\x00\xdc\x00\x4b\x00\x4c\x00\x15\x00\x26\x01\x1e\x00\x0b\x01\x22\x01\x4d\x00\x48\x00\x49\x00\xce\x00\x4b\x00\x4c\x00\x45\x00\x46\x00\x47\x00\x57\x00\x25\x01\x4d\x00\x0a\x01\x27\x01\xbd\x00\x28\x01\x04\x00\x45\x00\x46\x00\x47\x00\x48\x00\x49\x00\xcf\x00\x4b\x00\x4c\x00\x82\xff\x20\x01\x0b\x01\x0c\x01\x22\x01\x4d\x00\x48\x00\x49\x00\x85\x00\x4b\x00\x4c\x00\x45\x00\x46\x00\x47\x00\x3c\x00\x04\x00\x4d\x00\x07\x01\x15\x01\xbd\x00\x58\x00\x16\x01\x45\x00\x46\x00\x47\x00\x48\x00\x49\x00\xb2\x00\x4b\x00\x4c\x00\xbd\x00\x04\x00\x82\xff\xcb\x00\x05\x01\x4d\x00\x48\x00\x49\x00\xb3\x00\x4b\x00\x4c\x00\x84\x00\x46\x00\x47\x00\xff\x00\x00\x01\x4d\x00\xde\x00\x04\x00\x0e\x00\xe3\x00\x58\x00\x45\x00\x46\x00\x47\x00\x48\x00\x49\x00\x85\x00\x4b\x00\x4c\x00\x45\x00\x46\x00\x47\x00\xe4\x00\xe5\x00\x4d\x00\x48\x00\x49\x00\x4a\x00\x4b\x00\x4c\x00\x45\x00\x46\x00\x47\x00\x48\x00\xec\x00\x4d\x00\x88\x00\x4c\x00\xef\x00\xf0\x00\x04\x00\xc1\x00\xd8\x00\x4d\x00\x48\x00\x49\x00\x64\x00\x4b\x00\x4c\x00\x04\x00\x04\x00\xcc\x00\xbd\x00\x05\x00\x4d\x00\x06\x00\xcb\x00\x90\x00\x04\x00\x07\x00\x08\x00\x95\x00\x96\x00\x97\x00\x99\x00\x04\x00\x58\x00\xad\x00\xaf\x00\xae\x00\xb0\x00\xb2\x00\xb5\x00\x04\x00\xb7\x00\x04\x00\x70\x00\x71\x00\x72\x00\x73\x00\x74\x00\x75\x00\x04\x00\x76\x00\x77\x00\x58\x00\x7f\x00\x80\x00\x8b\x00\x8c\x00\x58\x00\x8e\x00\x04\x00\x6d\x00\x3d\x00\x04\x00\x6d\x00\x30\x00\x6b\x00\x34\x00\x33\x00\x35\x00\x04\x00\x36\x00\x39\x00\x37\x00\x38\x00\x3b\x00\x3a\x00\x3f\x00\x2b\x00\x40\x00\x41\x00\x2c\x00\x00\x00\x04\x00\x2d\x00\x04\x00\x2f\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00\xff\xff\x00\x00\x00\x00\x00\x00\x19\x00\x00\x00\x00\x00\xff\xff\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\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\x19\x00\x19\x00\x19\x00\x19\x00\x19\x00\x19\x00\xc8\x00\x7e\x00\x79\x00\x43\x00\x30\x00\x45\x00\x79\x00\x79\x00\x79\x00\x45\x00\xba\x00\x27\x01\x92\x00\xea\x00\xa6\x00\x93\x00\x2c\x01\xfd\x00\x15\x01\xa7\x00\x5b\x00\xbf\x00\xff\x00\xa8\x00\x1f\x01\xa6\x00\xa9\x00\x16\x01\xaa\x00\x17\x01\xa7\x00\x1b\x01\xbf\x00\x04\x00\xa8\x00\xc9\x00\x7a\x00\xa9\x00\x20\x01\xaa\x00\x6f\xff\x21\x01\x20\x01\xe3\x00\x7b\x00\x21\x01\xba\x00\xbb\x00\x31\x00\x31\x00\x6e\x00\x41\x00\x1a\x00\x24\x00\x2f\x01\xc0\x00\xf4\x00\xab\x00\x22\x01\xac\x00\x04\x00\x57\x00\x58\x00\xad\x00\x04\x00\xfd\x00\x58\x00\xad\x00\x15\x01\x57\x00\x79\xff\x04\x00\x57\x00\x58\x00\xad\x00\xa6\x00\xf8\x00\x16\x01\x2e\x01\x17\x01\xa7\x00\xa6\x00\x04\x00\xbb\x00\xa8\x00\xdc\x00\xa7\x00\xa9\x00\xf9\x00\xaa\x00\xa8\x00\xa6\x00\xbc\x00\xa9\x00\xfd\x00\xaa\x00\xa7\x00\x15\x01\x79\xff\x58\x00\xa8\x00\x08\x01\x1d\x01\xa9\x00\x25\x01\xaa\x00\x16\x01\xfb\x00\x17\x01\x1b\x00\x1c\x00\x0c\x01\x59\x00\x18\x01\x04\x00\xdd\x00\x58\x00\xad\x00\xcf\x00\xd0\x00\x79\x00\x04\x00\x57\x00\x58\x00\xad\x00\xd8\x00\x79\xff\x04\x00\x57\x00\x58\x00\xad\x00\xd9\x00\x57\x00\xda\x00\xf8\x00\x4f\x00\x67\x00\x04\x00\x57\x00\x58\x00\xad\x00\x9a\x00\x50\x00\x04\x00\x51\x00\x58\x00\xad\x00\x52\x00\x7a\x00\x53\x00\x54\x00\x5e\x00\x67\x00\x16\x00\x79\xff\xfd\x00\x7b\x00\x17\x00\xb7\x00\x58\x00\x5f\x00\x55\x00\x69\x00\x03\x01\x0a\x00\x56\x00\x1c\x01\x7c\x00\x04\x00\x57\x00\x58\x00\xad\x00\x59\x00\x0d\x01\x68\x00\x60\x00\x61\x00\x06\x01\x69\x00\xec\x00\xbe\x00\x04\x00\x57\x00\x58\x00\xed\x00\x79\x00\xbf\x00\xe8\x00\x0e\x01\x26\x01\x0b\x00\x0c\x00\x0d\x00\x79\x00\x0e\x00\x0f\x00\x10\x00\x04\x00\x11\x00\x12\x00\xbf\x00\x5a\x00\x13\x00\x14\x00\x0c\x00\x15\x00\xe1\x00\x16\x00\x0f\x00\x04\x00\xea\x00\x11\x00\x12\x00\x98\x00\x3c\x00\x13\x00\x14\x00\x3d\x00\xc9\x00\x8b\x00\x07\x01\xca\x00\x04\x00\xd9\x00\x0b\x01\xda\x00\xc9\x00\xe2\x00\x8a\x00\xca\x00\xff\x00\x52\x00\x45\x00\x53\x00\x54\x00\xed\x00\xb9\x00\x10\x01\xcb\x00\x11\x01\x12\x01\x10\x01\x45\x00\x11\x01\x12\x01\x55\x00\xc4\x00\x5b\x00\x10\x01\x56\x00\x11\x01\x12\x01\x04\x00\x9b\x00\x9c\x00\x9d\x00\x9e\x00\x5b\x00\x8b\x00\xc1\x00\x04\x00\x57\x00\x58\x00\xad\x00\x04\x01\x04\x00\x57\x00\x58\x00\x9f\x00\xc3\x00\xcf\x00\xd0\x00\x45\x00\x45\x00\x45\x00\x13\x01\xdb\x00\x8e\x00\x90\x00\x2e\x01\x91\x00\xad\x00\xa0\x00\xa1\x00\x1c\x01\xa3\x00\x13\x01\x5b\x00\x5b\x00\x5b\x00\xa4\x00\x9b\x00\x9c\x00\x9d\x00\x9e\x00\x9b\x00\x9c\x00\x9d\x00\x9e\x00\x99\x00\x78\x00\x5c\x00\x77\x00\x45\x00\x45\x00\x80\x00\x9f\x00\x81\x00\x82\x00\x86\x00\x9f\x00\x87\x00\x8c\x00\x42\x00\x9b\x00\x9c\x00\x9d\x00\x9e\x00\x5b\x00\xde\x00\xa0\x00\xa1\x00\x1e\x01\xa3\x00\xa0\x00\xa1\x00\xf5\x00\xa3\x00\xa4\x00\x9f\x00\x61\x00\x44\x00\xa4\x00\x9b\x00\x9c\x00\x9d\x00\x9e\x00\x9b\x00\x9c\x00\x9d\x00\x9e\x00\xf9\x00\x04\x00\xa0\x00\xa1\x00\x00\x01\xa3\x00\x05\x00\x9f\x00\x06\x00\x63\x00\xa4\x00\x9f\x00\x07\x00\x08\x00\xfa\x00\x9b\x00\x9c\x00\x9d\x00\x9e\x00\xfb\x00\x65\x00\xa0\x00\xa1\x00\xf0\x00\xa3\x00\xa0\x00\xa1\x00\xc6\x00\xa3\x00\xa4\x00\x9f\x00\x66\x00\x6b\x00\xa4\x00\x9b\x00\x9c\x00\x9d\x00\x9e\x00\x9b\x00\x9c\x00\x9d\x00\x9e\x00\x6d\x00\x3d\x00\xa0\x00\xa1\x00\xa2\x00\xa3\x00\x1e\x00\x9f\x00\x1f\x00\x20\x00\xa4\x00\x9f\x00\x9b\x00\x9c\x00\x9d\x00\x9e\x00\x9b\x00\x9c\x00\x9d\x00\x9e\x00\x0d\x01\xa0\x00\xa1\x00\xb2\x00\xa3\x00\xa0\x00\xef\x00\x9f\x00\xa3\x00\xa4\x00\x21\x00\x9f\x00\x45\x00\xa4\x00\x22\x00\x0e\x01\x0f\x01\xd2\x00\xd3\x00\xd4\x00\xd5\x00\xf6\x00\x23\x00\x25\x00\xa3\x00\xe4\x00\x45\x00\xf3\x00\xa3\x00\xa4\x00\x45\x00\x46\x00\x47\x00\xa4\x00\x26\x00\x45\x00\x46\x00\x47\x00\xd6\x00\x27\x00\x28\x00\xc5\x00\x29\x00\x2d\x00\x45\x00\x48\x00\x49\x00\x0b\x01\x4b\x00\x4c\x00\x48\x00\x49\x00\xdf\x00\x4b\x00\x4c\x00\x4d\x00\x45\x00\x46\x00\x47\x00\x83\x00\x4d\x00\x45\x00\x46\x00\x47\x00\x29\x01\x57\x00\x2a\x01\x2b\x01\xbf\x00\x2c\x01\x45\x00\x48\x00\x49\x00\xd0\x00\x4b\x00\x4c\x00\x48\x00\x49\x00\xd1\x00\x4b\x00\x4c\x00\x4d\x00\x45\x00\x46\x00\x47\x00\x62\x00\x4d\x00\x45\x00\x46\x00\x47\x00\x7e\xff\x26\x01\x04\x00\x24\x01\x3c\x00\x04\x00\x0a\x01\x48\x00\x49\x00\x85\x00\x4b\x00\x4c\x00\x48\x00\x49\x00\xb4\x00\x4b\x00\x4c\x00\x4d\x00\x45\x00\x46\x00\x47\x00\x58\x00\x4d\x00\x84\x00\x46\x00\x47\x00\x19\x01\xbf\x00\x1a\x01\xbf\x00\x04\x00\xcd\x00\x7e\xff\x48\x00\x49\x00\xb5\x00\x4b\x00\x4c\x00\x48\x00\x49\x00\x85\x00\x4b\x00\x4c\x00\x4d\x00\x45\x00\x46\x00\x47\x00\x02\x01\x4d\x00\x45\x00\x46\x00\x47\x00\x03\x01\x08\x01\x0e\x00\xe1\x00\x04\x00\xe6\x00\xe7\x00\x48\x00\x49\x00\x4a\x00\x4b\x00\x4c\x00\x48\x00\x49\x00\x64\x00\x4b\x00\x4c\x00\x4d\x00\x45\x00\x46\x00\x47\x00\xe8\x00\x4d\x00\x0b\x00\x58\x00\x0d\x00\xef\x00\xf2\x00\xf3\x00\x04\x00\xc3\x00\x04\x00\xbf\x00\x48\x00\xcd\x00\xce\x00\x88\x00\x4c\x00\x15\x00\xdb\x00\x1e\x00\x95\x00\x90\x00\x4d\x00\x04\x00\x97\x00\x96\x00\x99\x00\x04\x00\x58\x00\xaf\x00\xb1\x00\xb0\x00\xb2\x00\xb4\x00\xb7\x00\x04\x00\x04\x00\x70\x00\xb9\x00\x71\x00\x72\x00\x73\x00\x74\x00\x75\x00\x04\x00\x76\x00\x77\x00\x58\x00\x7f\x00\x80\x00\x8b\x00\x8c\x00\x8e\x00\x58\x00\x04\x00\x6d\x00\x04\x00\x3d\x00\x04\x00\x30\x00\x6b\x00\x6d\x00\x33\x00\x35\x00\x36\x00\x38\x00\x39\x00\x34\x00\x37\x00\x3b\x00\x3a\x00\x3f\x00\x2b\x00\x40\x00\x41\x00\xff\xff\x2c\x00\x00\x00\x2d\x00\x04\x00\x2f\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x19\x00\x00\x00\x00\x00\x00\x00\xff\xff\x00\x00\x00\x00\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\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 (2, 142) [ +happyReduceArr = array (2, 146) [ (2 , happyReduce_2), (3 , happyReduce_3), (4 , happyReduce_4), @@ -501,17 +507,21 @@ happyReduceArr = array (2, 142) [ (139 , happyReduce_139), (140 , happyReduce_140), (141 , happyReduce_141), - (142 , happyReduce_142) + (142 , happyReduce_142), + (143 , happyReduce_143), + (144 , happyReduce_144), + (145 , happyReduce_145), + (146 , happyReduce_146) ] -happy_n_terms = 54 :: Int -happy_n_nonterms = 54 :: Int +happy_n_terms = 55 :: Int +happy_n_nonterms = 55 :: Int happyReduce_2 = happySpecReduce_1 0# happyReduction_2 happyReduction_2 happy_x_1 = case happyOutTok happy_x_1 of { (PT _ (TV happy_var_1)) -> happyIn5 - (identC happy_var_1 + (identC happy_var_1 --H )} happyReduce_3 = happySpecReduce_1 1# happyReduction_3 @@ -528,79 +538,86 @@ happyReduction_4 happy_x_1 ((read happy_var_1) :: Integer )} -happyReduce_5 = happyReduce 6# 3# happyReduction_5 -happyReduction_5 (happy_x_6 `HappyStk` +happyReduce_5 = happySpecReduce_1 3# happyReduction_5 +happyReduction_5 happy_x_1 + = case happyOutTok happy_x_1 of { (PT _ (TD happy_var_1)) -> + happyIn8 + ((read happy_var_1) :: Double + )} + +happyReduce_6 = happyReduce 6# 4# happyReduction_6 +happyReduction_6 (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 happyOut58 happy_x_2 of { happy_var_2 -> + = case happyOut59 happy_x_2 of { happy_var_2 -> case happyOut5 happy_x_4 of { happy_var_4 -> - case happyOut12 happy_x_6 of { happy_var_6 -> - happyIn8 + case happyOut13 happy_x_6 of { happy_var_6 -> + happyIn9 (MGr happy_var_2 happy_var_4 (reverse happy_var_6) ) `HappyStk` happyRest}}} -happyReduce_6 = happySpecReduce_1 3# happyReduction_6 -happyReduction_6 happy_x_1 - = case happyOut12 happy_x_1 of { happy_var_1 -> - happyIn8 +happyReduce_7 = happySpecReduce_1 4# happyReduction_7 +happyReduction_7 happy_x_1 + = case happyOut13 happy_x_1 of { happy_var_1 -> + happyIn9 (Gr (reverse happy_var_1) )} -happyReduce_7 = happyReduce 5# 4# happyReduction_7 -happyReduction_7 (happy_x_5 `HappyStk` - happy_x_4 `HappyStk` - happy_x_3 `HappyStk` - happy_x_2 `HappyStk` - happy_x_1 `HappyStk` - happyRest) - = case happyOut58 happy_x_2 of { happy_var_2 -> - case happyOut5 happy_x_4 of { happy_var_4 -> - happyIn9 - (LMulti happy_var_2 happy_var_4 - ) `HappyStk` happyRest}} - -happyReduce_8 = happyReduce 5# 4# happyReduction_8 +happyReduce_8 = happyReduce 5# 5# happyReduction_8 happyReduction_8 (happy_x_5 `HappyStk` happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` happyRest) - = case happyOut11 happy_x_1 of { happy_var_1 -> - case happyOut13 happy_x_3 of { happy_var_3 -> - case happyOut14 happy_x_4 of { happy_var_4 -> - happyIn9 + = case happyOut59 happy_x_2 of { happy_var_2 -> + case happyOut5 happy_x_4 of { happy_var_4 -> + happyIn10 + (LMulti happy_var_2 happy_var_4 + ) `HappyStk` happyRest}} + +happyReduce_9 = happyReduce 5# 5# happyReduction_9 +happyReduction_9 (happy_x_5 `HappyStk` + happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut12 happy_x_1 of { happy_var_1 -> + case happyOut14 happy_x_3 of { happy_var_3 -> + case happyOut15 happy_x_4 of { happy_var_4 -> + happyIn10 (LHeader happy_var_1 happy_var_3 happy_var_4 ) `HappyStk` happyRest}}} -happyReduce_9 = happySpecReduce_2 4# happyReduction_9 -happyReduction_9 happy_x_2 - happy_x_1 - = case happyOut15 happy_x_1 of { happy_var_1 -> - happyIn9 - (LFlag happy_var_1 - )} - -happyReduce_10 = happySpecReduce_2 4# happyReduction_10 +happyReduce_10 = happySpecReduce_2 5# happyReduction_10 happyReduction_10 happy_x_2 happy_x_1 = case happyOut16 happy_x_1 of { happy_var_1 -> - happyIn9 + happyIn10 + (LFlag happy_var_1 + )} + +happyReduce_11 = happySpecReduce_2 5# happyReduction_11 +happyReduction_11 happy_x_2 + happy_x_1 + = case happyOut17 happy_x_1 of { happy_var_1 -> + happyIn10 (LDef happy_var_1 )} -happyReduce_11 = happySpecReduce_1 4# happyReduction_11 -happyReduction_11 happy_x_1 - = happyIn9 +happyReduce_12 = happySpecReduce_1 5# happyReduction_12 +happyReduction_12 happy_x_1 + = happyIn10 (LEnd ) -happyReduce_12 = happyReduce 8# 5# happyReduction_12 -happyReduction_12 (happy_x_8 `HappyStk` +happyReduce_13 = happyReduce 8# 6# happyReduction_13 +happyReduction_13 (happy_x_8 `HappyStk` happy_x_7 `HappyStk` happy_x_6 `HappyStk` happy_x_5 `HappyStk` @@ -609,45 +626,45 @@ happyReduction_12 (happy_x_8 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` happyRest) - = case happyOut11 happy_x_1 of { happy_var_1 -> - case happyOut13 happy_x_3 of { happy_var_3 -> - case happyOut14 happy_x_4 of { happy_var_4 -> - case happyOut44 happy_x_6 of { happy_var_6 -> - case happyOut45 happy_x_7 of { happy_var_7 -> - happyIn10 + = case happyOut12 happy_x_1 of { happy_var_1 -> + case happyOut14 happy_x_3 of { happy_var_3 -> + case happyOut15 happy_x_4 of { happy_var_4 -> + case happyOut45 happy_x_6 of { happy_var_6 -> + case happyOut46 happy_x_7 of { happy_var_7 -> + happyIn11 (Mod happy_var_1 happy_var_3 happy_var_4 (reverse happy_var_6) (reverse happy_var_7) ) `HappyStk` happyRest}}}}} -happyReduce_13 = happySpecReduce_2 6# happyReduction_13 -happyReduction_13 happy_x_2 +happyReduce_14 = happySpecReduce_2 7# happyReduction_14 +happyReduction_14 happy_x_2 happy_x_1 = case happyOut5 happy_x_2 of { happy_var_2 -> - happyIn11 + happyIn12 (MTAbs happy_var_2 )} -happyReduce_14 = happyReduce 4# 6# happyReduction_14 -happyReduction_14 (happy_x_4 `HappyStk` +happyReduce_15 = happyReduce 4# 7# happyReduction_15 +happyReduction_15 (happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` happyRest) = case happyOut5 happy_x_2 of { happy_var_2 -> case happyOut5 happy_x_4 of { happy_var_4 -> - happyIn11 + happyIn12 (MTCnc happy_var_2 happy_var_4 ) `HappyStk` happyRest}} -happyReduce_15 = happySpecReduce_2 6# happyReduction_15 -happyReduction_15 happy_x_2 +happyReduce_16 = happySpecReduce_2 7# happyReduction_16 +happyReduction_16 happy_x_2 happy_x_1 = case happyOut5 happy_x_2 of { happy_var_2 -> - happyIn11 + happyIn12 (MTRes happy_var_2 )} -happyReduce_16 = happyReduce 6# 6# happyReduction_16 -happyReduction_16 (happy_x_6 `HappyStk` +happyReduce_17 = happyReduce 6# 7# happyReduction_17 +happyReduction_17 (happy_x_6 `HappyStk` happy_x_5 `HappyStk` happy_x_4 `HappyStk` happy_x_3 `HappyStk` @@ -657,65 +674,65 @@ happyReduction_16 (happy_x_6 `HappyStk` = case happyOut5 happy_x_2 of { happy_var_2 -> case happyOut5 happy_x_4 of { happy_var_4 -> case happyOut5 happy_x_6 of { happy_var_6 -> - happyIn11 + happyIn12 (MTTrans happy_var_2 happy_var_4 happy_var_6 ) `HappyStk` happyRest}}} -happyReduce_17 = happySpecReduce_0 7# happyReduction_17 -happyReduction_17 = happyIn12 +happyReduce_18 = happySpecReduce_0 8# happyReduction_18 +happyReduction_18 = happyIn13 ([] ) -happyReduce_18 = happySpecReduce_2 7# happyReduction_18 -happyReduction_18 happy_x_2 - happy_x_1 - = case happyOut12 happy_x_1 of { happy_var_1 -> - case happyOut10 happy_x_2 of { happy_var_2 -> - happyIn12 - (flip (:) happy_var_1 happy_var_2 - )}} - happyReduce_19 = happySpecReduce_2 8# happyReduction_19 happyReduction_19 happy_x_2 happy_x_1 - = case happyOut58 happy_x_1 of { happy_var_1 -> + = case happyOut13 happy_x_1 of { happy_var_1 -> + case happyOut11 happy_x_2 of { happy_var_2 -> happyIn13 + (flip (:) happy_var_1 happy_var_2 + )}} + +happyReduce_20 = happySpecReduce_2 9# happyReduction_20 +happyReduction_20 happy_x_2 + happy_x_1 + = case happyOut59 happy_x_1 of { happy_var_1 -> + happyIn14 (Ext happy_var_1 )} -happyReduce_20 = happySpecReduce_0 8# happyReduction_20 -happyReduction_20 = happyIn13 +happyReduce_21 = happySpecReduce_0 9# happyReduction_21 +happyReduction_21 = happyIn14 (NoExt ) -happyReduce_21 = happySpecReduce_3 9# happyReduction_21 -happyReduction_21 happy_x_3 +happyReduce_22 = happySpecReduce_3 10# happyReduction_22 +happyReduction_22 happy_x_3 happy_x_2 happy_x_1 - = case happyOut58 happy_x_2 of { happy_var_2 -> - happyIn14 + = case happyOut59 happy_x_2 of { happy_var_2 -> + happyIn15 (Opens happy_var_2 )} -happyReduce_22 = happySpecReduce_0 9# happyReduction_22 -happyReduction_22 = happyIn14 +happyReduce_23 = happySpecReduce_0 10# happyReduction_23 +happyReduction_23 = happyIn15 (NoOpens ) -happyReduce_23 = happyReduce 4# 10# happyReduction_23 -happyReduction_23 (happy_x_4 `HappyStk` +happyReduce_24 = happyReduce 4# 11# happyReduction_24 +happyReduction_24 (happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` happyRest) = case happyOut5 happy_x_2 of { happy_var_2 -> case happyOut5 happy_x_4 of { happy_var_4 -> - happyIn15 + happyIn16 (Flg happy_var_2 happy_var_4 ) `HappyStk` happyRest}} -happyReduce_24 = happyReduce 7# 11# happyReduction_24 -happyReduction_24 (happy_x_7 `HappyStk` +happyReduce_25 = happyReduce 7# 12# happyReduction_25 +happyReduction_25 (happy_x_7 `HappyStk` happy_x_6 `HappyStk` happy_x_5 `HappyStk` happy_x_4 `HappyStk` @@ -724,14 +741,14 @@ happyReduction_24 (happy_x_7 `HappyStk` happy_x_1 `HappyStk` happyRest) = case happyOut5 happy_x_2 of { happy_var_2 -> - case happyOut26 happy_x_4 of { happy_var_4 -> - case happyOut48 happy_x_7 of { happy_var_7 -> - happyIn16 + case happyOut27 happy_x_4 of { happy_var_4 -> + case happyOut49 happy_x_7 of { happy_var_7 -> + happyIn17 (AbsDCat happy_var_2 happy_var_4 (reverse happy_var_7) ) `HappyStk` happyRest}}} -happyReduce_25 = happyReduce 6# 11# happyReduction_25 -happyReduction_25 (happy_x_6 `HappyStk` +happyReduce_26 = happyReduce 6# 12# happyReduction_26 +happyReduction_26 (happy_x_6 `HappyStk` happy_x_5 `HappyStk` happy_x_4 `HappyStk` happy_x_3 `HappyStk` @@ -739,38 +756,38 @@ happyReduction_25 (happy_x_6 `HappyStk` happy_x_1 `HappyStk` happyRest) = case happyOut5 happy_x_2 of { happy_var_2 -> - case happyOut21 happy_x_4 of { happy_var_4 -> - case happyOut21 happy_x_6 of { happy_var_6 -> - happyIn16 + case happyOut22 happy_x_4 of { happy_var_4 -> + case happyOut22 happy_x_6 of { happy_var_6 -> + happyIn17 (AbsDFun happy_var_2 happy_var_4 happy_var_6 ) `HappyStk` happyRest}}} -happyReduce_26 = happyReduce 4# 11# happyReduction_26 -happyReduction_26 (happy_x_4 `HappyStk` - happy_x_3 `HappyStk` - happy_x_2 `HappyStk` - happy_x_1 `HappyStk` - happyRest) - = case happyOut5 happy_x_2 of { happy_var_2 -> - case happyOut21 happy_x_4 of { happy_var_4 -> - happyIn16 - (AbsDTrans happy_var_2 happy_var_4 - ) `HappyStk` happyRest}} - -happyReduce_27 = happyReduce 4# 11# happyReduction_27 +happyReduce_27 = happyReduce 4# 12# happyReduction_27 happyReduction_27 (happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` happyRest) = case happyOut5 happy_x_2 of { happy_var_2 -> - case happyOut46 happy_x_4 of { happy_var_4 -> - happyIn16 + case happyOut22 happy_x_4 of { happy_var_4 -> + happyIn17 + (AbsDTrans happy_var_2 happy_var_4 + ) `HappyStk` happyRest}} + +happyReduce_28 = happyReduce 4# 12# happyReduction_28 +happyReduction_28 (happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut5 happy_x_2 of { happy_var_2 -> + case happyOut47 happy_x_4 of { happy_var_4 -> + happyIn17 (ResDPar happy_var_2 happy_var_4 ) `HappyStk` happyRest}} -happyReduce_28 = happyReduce 6# 11# happyReduction_28 -happyReduction_28 (happy_x_6 `HappyStk` +happyReduce_29 = happyReduce 6# 12# happyReduction_29 +happyReduction_29 (happy_x_6 `HappyStk` happy_x_5 `HappyStk` happy_x_4 `HappyStk` happy_x_3 `HappyStk` @@ -778,14 +795,14 @@ happyReduction_28 (happy_x_6 `HappyStk` happy_x_1 `HappyStk` happyRest) = case happyOut5 happy_x_2 of { happy_var_2 -> - case happyOut31 happy_x_4 of { happy_var_4 -> - case happyOut35 happy_x_6 of { happy_var_6 -> - happyIn16 + case happyOut32 happy_x_4 of { happy_var_4 -> + case happyOut36 happy_x_6 of { happy_var_6 -> + happyIn17 (ResDOper happy_var_2 happy_var_4 happy_var_6 ) `HappyStk` happyRest}}} -happyReduce_29 = happyReduce 8# 11# happyReduction_29 -happyReduction_29 (happy_x_8 `HappyStk` +happyReduce_30 = happyReduce 8# 12# happyReduction_30 +happyReduction_30 (happy_x_8 `HappyStk` happy_x_7 `HappyStk` happy_x_6 `HappyStk` happy_x_5 `HappyStk` @@ -795,15 +812,15 @@ happyReduction_29 (happy_x_8 `HappyStk` happy_x_1 `HappyStk` happyRest) = case happyOut5 happy_x_2 of { happy_var_2 -> - case happyOut31 happy_x_4 of { happy_var_4 -> - case happyOut35 happy_x_6 of { happy_var_6 -> - case happyOut35 happy_x_8 of { happy_var_8 -> - happyIn16 + case happyOut32 happy_x_4 of { happy_var_4 -> + case happyOut36 happy_x_6 of { happy_var_6 -> + case happyOut36 happy_x_8 of { happy_var_8 -> + happyIn17 (CncDCat happy_var_2 happy_var_4 happy_var_6 happy_var_8 ) `HappyStk` happyRest}}}} -happyReduce_30 = happyReduce 11# 11# happyReduction_30 -happyReduction_30 (happy_x_11 `HappyStk` +happyReduce_31 = happyReduce 11# 12# happyReduction_31 +happyReduction_31 (happy_x_11 `HappyStk` happy_x_10 `HappyStk` happy_x_9 `HappyStk` happy_x_8 `HappyStk` @@ -816,75 +833,75 @@ happyReduction_30 (happy_x_11 `HappyStk` happy_x_1 `HappyStk` happyRest) = case happyOut5 happy_x_2 of { happy_var_2 -> - case happyOut19 happy_x_4 of { happy_var_4 -> - case happyOut50 happy_x_7 of { happy_var_7 -> - case happyOut35 happy_x_9 of { happy_var_9 -> - case happyOut35 happy_x_11 of { happy_var_11 -> - happyIn16 + case happyOut20 happy_x_4 of { happy_var_4 -> + case happyOut51 happy_x_7 of { happy_var_7 -> + case happyOut36 happy_x_9 of { happy_var_9 -> + case happyOut36 happy_x_11 of { happy_var_11 -> + happyIn17 (CncDFun happy_var_2 happy_var_4 happy_var_7 happy_var_9 happy_var_11 ) `HappyStk` happyRest}}}}} -happyReduce_31 = happyReduce 4# 11# happyReduction_31 -happyReduction_31 (happy_x_4 `HappyStk` +happyReduce_32 = happyReduce 4# 12# happyReduction_32 +happyReduction_32 (happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` happyRest) = case happyOut5 happy_x_1 of { happy_var_1 -> - case happyOut18 happy_x_2 of { happy_var_2 -> + case happyOut19 happy_x_2 of { happy_var_2 -> case happyOut5 happy_x_4 of { happy_var_4 -> - happyIn16 + happyIn17 (AnyDInd happy_var_1 happy_var_2 happy_var_4 ) `HappyStk` happyRest}}} -happyReduce_32 = happySpecReduce_2 12# happyReduction_32 -happyReduction_32 happy_x_2 +happyReduce_33 = happySpecReduce_2 13# happyReduction_33 +happyReduction_33 happy_x_2 happy_x_1 = case happyOut5 happy_x_1 of { happy_var_1 -> - case happyOut47 happy_x_2 of { happy_var_2 -> - happyIn17 + case happyOut48 happy_x_2 of { happy_var_2 -> + happyIn18 (ParD happy_var_1 (reverse happy_var_2) )}} -happyReduce_33 = happySpecReduce_1 13# happyReduction_33 -happyReduction_33 happy_x_1 - = happyIn18 +happyReduce_34 = happySpecReduce_1 14# happyReduction_34 +happyReduction_34 happy_x_1 + = happyIn19 (Canon ) -happyReduce_34 = happySpecReduce_0 13# happyReduction_34 -happyReduction_34 = happyIn18 +happyReduce_35 = happySpecReduce_0 14# happyReduction_35 +happyReduction_35 = happyIn19 (NonCan ) -happyReduce_35 = happySpecReduce_3 14# happyReduction_35 -happyReduction_35 happy_x_3 +happyReduce_36 = happySpecReduce_3 15# happyReduction_36 +happyReduction_36 happy_x_3 happy_x_2 happy_x_1 = case happyOut5 happy_x_1 of { happy_var_1 -> case happyOut5 happy_x_3 of { happy_var_3 -> - happyIn19 + happyIn20 (CIQ happy_var_1 happy_var_3 )}} -happyReduce_36 = happySpecReduce_2 15# happyReduction_36 -happyReduction_36 happy_x_2 +happyReduce_37 = happySpecReduce_2 16# happyReduction_37 +happyReduction_37 happy_x_2 happy_x_1 - = case happyOut20 happy_x_1 of { happy_var_1 -> - case happyOut22 happy_x_2 of { happy_var_2 -> - happyIn20 + = case happyOut21 happy_x_1 of { happy_var_1 -> + case happyOut23 happy_x_2 of { happy_var_2 -> + happyIn21 (EApp happy_var_1 happy_var_2 )}} -happyReduce_37 = happySpecReduce_1 15# happyReduction_37 -happyReduction_37 happy_x_1 - = case happyOut22 happy_x_1 of { happy_var_1 -> - happyIn20 +happyReduce_38 = happySpecReduce_1 16# happyReduction_38 +happyReduction_38 happy_x_1 + = case happyOut23 happy_x_1 of { happy_var_1 -> + happyIn21 (happy_var_1 )} -happyReduce_38 = happyReduce 7# 16# happyReduction_38 -happyReduction_38 (happy_x_7 `HappyStk` +happyReduce_39 = happyReduce 7# 17# happyReduction_39 +happyReduction_39 (happy_x_7 `HappyStk` happy_x_6 `HappyStk` happy_x_5 `HappyStk` happy_x_4 `HappyStk` @@ -893,151 +910,144 @@ happyReduction_38 (happy_x_7 `HappyStk` happy_x_1 `HappyStk` happyRest) = case happyOut5 happy_x_2 of { happy_var_2 -> - case happyOut21 happy_x_4 of { happy_var_4 -> - case happyOut21 happy_x_7 of { happy_var_7 -> - happyIn21 + case happyOut22 happy_x_4 of { happy_var_4 -> + case happyOut22 happy_x_7 of { happy_var_7 -> + happyIn22 (EProd happy_var_2 happy_var_4 happy_var_7 ) `HappyStk` happyRest}}} -happyReduce_39 = happyReduce 4# 16# happyReduction_39 -happyReduction_39 (happy_x_4 `HappyStk` +happyReduce_40 = happyReduce 4# 17# happyReduction_40 +happyReduction_40 (happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` happyRest) = case happyOut5 happy_x_2 of { happy_var_2 -> - case happyOut21 happy_x_4 of { happy_var_4 -> - happyIn21 + case happyOut22 happy_x_4 of { happy_var_4 -> + happyIn22 (EAbs happy_var_2 happy_var_4 ) `HappyStk` happyRest}} -happyReduce_40 = happySpecReduce_3 16# happyReduction_40 -happyReduction_40 happy_x_3 +happyReduce_41 = happySpecReduce_3 17# happyReduction_41 +happyReduction_41 happy_x_3 happy_x_2 happy_x_1 - = case happyOut28 happy_x_2 of { happy_var_2 -> - happyIn21 + = case happyOut29 happy_x_2 of { happy_var_2 -> + happyIn22 (EEq (reverse happy_var_2) )} -happyReduce_41 = happySpecReduce_1 16# happyReduction_41 -happyReduction_41 happy_x_1 - = case happyOut20 happy_x_1 of { happy_var_1 -> - happyIn21 - (happy_var_1 - )} - happyReduce_42 = happySpecReduce_1 17# happyReduction_42 happyReduction_42 happy_x_1 - = case happyOut29 happy_x_1 of { happy_var_1 -> + = case happyOut21 happy_x_1 of { happy_var_1 -> happyIn22 + (happy_var_1 + )} + +happyReduce_43 = happySpecReduce_1 18# happyReduction_43 +happyReduction_43 happy_x_1 + = case happyOut30 happy_x_1 of { happy_var_1 -> + happyIn23 (EAtom happy_var_1 )} -happyReduce_43 = happySpecReduce_1 17# happyReduction_43 -happyReduction_43 happy_x_1 - = happyIn22 +happyReduce_44 = happySpecReduce_1 18# happyReduction_44 +happyReduction_44 happy_x_1 + = happyIn23 (EData ) -happyReduce_44 = happySpecReduce_3 17# happyReduction_44 -happyReduction_44 happy_x_3 +happyReduce_45 = happySpecReduce_3 18# happyReduction_45 +happyReduction_45 happy_x_3 happy_x_2 happy_x_1 - = case happyOut21 happy_x_2 of { happy_var_2 -> - happyIn22 + = case happyOut22 happy_x_2 of { happy_var_2 -> + happyIn23 (happy_var_2 )} -happyReduce_45 = happySpecReduce_1 18# happyReduction_45 -happyReduction_45 happy_x_1 - = happyIn23 +happyReduce_46 = happySpecReduce_1 19# happyReduction_46 +happyReduction_46 happy_x_1 + = happyIn24 (SType ) -happyReduce_46 = happySpecReduce_3 19# happyReduction_46 -happyReduction_46 happy_x_3 +happyReduce_47 = happySpecReduce_3 20# happyReduction_47 +happyReduction_47 happy_x_3 happy_x_2 happy_x_1 - = case happyOut27 happy_x_1 of { happy_var_1 -> - case happyOut21 happy_x_3 of { happy_var_3 -> - happyIn24 + = case happyOut28 happy_x_1 of { happy_var_1 -> + case happyOut22 happy_x_3 of { happy_var_3 -> + happyIn25 (Equ (reverse happy_var_1) happy_var_3 )}} -happyReduce_47 = happyReduce 4# 20# happyReduction_47 -happyReduction_47 (happy_x_4 `HappyStk` +happyReduce_48 = happyReduce 4# 21# happyReduction_48 +happyReduction_48 (happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` happyRest) - = case happyOut19 happy_x_2 of { happy_var_2 -> - case happyOut27 happy_x_3 of { happy_var_3 -> - happyIn25 + = case happyOut20 happy_x_2 of { happy_var_2 -> + case happyOut28 happy_x_3 of { happy_var_3 -> + happyIn26 (APC happy_var_2 (reverse happy_var_3) ) `HappyStk` happyRest}} -happyReduce_48 = happySpecReduce_1 20# happyReduction_48 -happyReduction_48 happy_x_1 +happyReduce_49 = happySpecReduce_1 21# happyReduction_49 +happyReduction_49 happy_x_1 = case happyOut5 happy_x_1 of { happy_var_1 -> - happyIn25 + happyIn26 (APV happy_var_1 )} -happyReduce_49 = happySpecReduce_1 20# happyReduction_49 -happyReduction_49 happy_x_1 +happyReduce_50 = happySpecReduce_1 21# happyReduction_50 +happyReduction_50 happy_x_1 = case happyOut6 happy_x_1 of { happy_var_1 -> - happyIn25 + happyIn26 (APS happy_var_1 )} -happyReduce_50 = happySpecReduce_1 20# happyReduction_50 -happyReduction_50 happy_x_1 +happyReduce_51 = happySpecReduce_1 21# happyReduction_51 +happyReduction_51 happy_x_1 = case happyOut7 happy_x_1 of { happy_var_1 -> - happyIn25 + happyIn26 (API happy_var_1 )} -happyReduce_51 = happySpecReduce_1 20# happyReduction_51 -happyReduction_51 happy_x_1 - = happyIn25 - (APW - ) - -happyReduce_52 = happySpecReduce_0 21# happyReduction_52 -happyReduction_52 = happyIn26 - ([] - ) +happyReduce_52 = happySpecReduce_1 21# happyReduction_52 +happyReduction_52 happy_x_1 + = case happyOut8 happy_x_1 of { happy_var_1 -> + happyIn26 + (APF happy_var_1 + )} happyReduce_53 = happySpecReduce_1 21# happyReduction_53 happyReduction_53 happy_x_1 - = case happyOut30 happy_x_1 of { happy_var_1 -> - happyIn26 - ((:[]) happy_var_1 - )} + = happyIn26 + (APW + ) -happyReduce_54 = happySpecReduce_3 21# happyReduction_54 -happyReduction_54 happy_x_3 - happy_x_2 - happy_x_1 - = case happyOut30 happy_x_1 of { happy_var_1 -> - case happyOut26 happy_x_3 of { happy_var_3 -> - happyIn26 - ((:) happy_var_1 happy_var_3 - )}} - -happyReduce_55 = happySpecReduce_0 22# happyReduction_55 -happyReduction_55 = happyIn27 +happyReduce_54 = happySpecReduce_0 22# happyReduction_54 +happyReduction_54 = happyIn27 ([] ) -happyReduce_56 = happySpecReduce_2 22# happyReduction_56 -happyReduction_56 happy_x_2 - happy_x_1 - = case happyOut27 happy_x_1 of { happy_var_1 -> - case happyOut25 happy_x_2 of { happy_var_2 -> +happyReduce_55 = happySpecReduce_1 22# happyReduction_55 +happyReduction_55 happy_x_1 + = case happyOut31 happy_x_1 of { happy_var_1 -> happyIn27 - (flip (:) happy_var_1 happy_var_2 + ((:[]) happy_var_1 + )} + +happyReduce_56 = happySpecReduce_3 22# happyReduction_56 +happyReduction_56 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut31 happy_x_1 of { happy_var_1 -> + case happyOut27 happy_x_3 of { happy_var_3 -> + happyIn27 + ((:) happy_var_1 happy_var_3 )}} happyReduce_57 = happySpecReduce_0 23# happyReduction_57 @@ -1045,268 +1055,261 @@ happyReduction_57 = happyIn28 ([] ) -happyReduce_58 = happySpecReduce_3 23# happyReduction_58 -happyReduction_58 happy_x_3 - happy_x_2 +happyReduce_58 = happySpecReduce_2 23# happyReduction_58 +happyReduction_58 happy_x_2 happy_x_1 = case happyOut28 happy_x_1 of { happy_var_1 -> - case happyOut24 happy_x_2 of { happy_var_2 -> + case happyOut26 happy_x_2 of { happy_var_2 -> happyIn28 (flip (:) happy_var_1 happy_var_2 )}} -happyReduce_59 = happySpecReduce_1 24# happyReduction_59 -happyReduction_59 happy_x_1 - = case happyOut19 happy_x_1 of { happy_var_1 -> - happyIn29 - (AC happy_var_1 - )} +happyReduce_59 = happySpecReduce_0 24# happyReduction_59 +happyReduction_59 = happyIn29 + ([] + ) happyReduce_60 = happySpecReduce_3 24# happyReduction_60 happyReduction_60 happy_x_3 happy_x_2 happy_x_1 - = case happyOut19 happy_x_2 of { happy_var_2 -> + = case happyOut29 happy_x_1 of { happy_var_1 -> + case happyOut25 happy_x_2 of { happy_var_2 -> happyIn29 + (flip (:) happy_var_1 happy_var_2 + )}} + +happyReduce_61 = happySpecReduce_1 25# happyReduction_61 +happyReduction_61 happy_x_1 + = case happyOut20 happy_x_1 of { happy_var_1 -> + happyIn30 + (AC happy_var_1 + )} + +happyReduce_62 = happySpecReduce_3 25# happyReduction_62 +happyReduction_62 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut20 happy_x_2 of { happy_var_2 -> + happyIn30 (AD happy_var_2 )} -happyReduce_61 = happySpecReduce_2 24# happyReduction_61 -happyReduction_61 happy_x_2 +happyReduce_63 = happySpecReduce_2 25# happyReduction_63 +happyReduction_63 happy_x_2 happy_x_1 = case happyOut5 happy_x_2 of { happy_var_2 -> - happyIn29 + happyIn30 (AV happy_var_2 )} -happyReduce_62 = happySpecReduce_2 24# happyReduction_62 -happyReduction_62 happy_x_2 +happyReduce_64 = happySpecReduce_2 25# happyReduction_64 +happyReduction_64 happy_x_2 happy_x_1 = case happyOut7 happy_x_2 of { happy_var_2 -> - happyIn29 + happyIn30 (AM happy_var_2 )} -happyReduce_63 = happySpecReduce_1 24# happyReduction_63 -happyReduction_63 happy_x_1 +happyReduce_65 = happySpecReduce_1 25# happyReduction_65 +happyReduction_65 happy_x_1 = case happyOut6 happy_x_1 of { happy_var_1 -> - happyIn29 + happyIn30 (AS happy_var_1 )} -happyReduce_64 = happySpecReduce_1 24# happyReduction_64 -happyReduction_64 happy_x_1 +happyReduce_66 = happySpecReduce_1 25# happyReduction_66 +happyReduction_66 happy_x_1 = case happyOut7 happy_x_1 of { happy_var_1 -> - happyIn29 + happyIn30 (AI happy_var_1 )} -happyReduce_65 = happySpecReduce_1 24# happyReduction_65 -happyReduction_65 happy_x_1 - = case happyOut23 happy_x_1 of { happy_var_1 -> - happyIn29 +happyReduce_67 = happySpecReduce_1 25# happyReduction_67 +happyReduction_67 happy_x_1 + = case happyOut24 happy_x_1 of { happy_var_1 -> + happyIn30 (AT happy_var_1 )} -happyReduce_66 = happySpecReduce_3 25# happyReduction_66 -happyReduction_66 happy_x_3 +happyReduce_68 = happySpecReduce_3 26# happyReduction_68 +happyReduction_68 happy_x_3 happy_x_2 happy_x_1 = case happyOut5 happy_x_1 of { happy_var_1 -> - case happyOut21 happy_x_3 of { happy_var_3 -> - happyIn30 + case happyOut22 happy_x_3 of { happy_var_3 -> + happyIn31 (Decl happy_var_1 happy_var_3 )}} -happyReduce_67 = happySpecReduce_3 26# happyReduction_67 -happyReduction_67 happy_x_3 +happyReduce_69 = happySpecReduce_3 27# happyReduction_69 +happyReduction_69 happy_x_3 happy_x_2 happy_x_1 - = case happyOut51 happy_x_2 of { happy_var_2 -> - happyIn31 + = case happyOut52 happy_x_2 of { happy_var_2 -> + happyIn32 (RecType happy_var_2 )} -happyReduce_68 = happyReduce 5# 26# happyReduction_68 -happyReduction_68 (happy_x_5 `HappyStk` +happyReduce_70 = happyReduce 5# 27# happyReduction_70 +happyReduction_70 (happy_x_5 `HappyStk` happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` happyRest) - = case happyOut31 happy_x_2 of { happy_var_2 -> - case happyOut31 happy_x_4 of { happy_var_4 -> - happyIn31 + = case happyOut32 happy_x_2 of { happy_var_2 -> + case happyOut32 happy_x_4 of { happy_var_4 -> + happyIn32 (Table happy_var_2 happy_var_4 ) `HappyStk` happyRest}} -happyReduce_69 = happySpecReduce_1 26# happyReduction_69 -happyReduction_69 happy_x_1 - = case happyOut19 happy_x_1 of { happy_var_1 -> - happyIn31 +happyReduce_71 = happySpecReduce_1 27# happyReduction_71 +happyReduction_71 happy_x_1 + = case happyOut20 happy_x_1 of { happy_var_1 -> + happyIn32 (Cn happy_var_1 )} -happyReduce_70 = happySpecReduce_1 26# happyReduction_70 -happyReduction_70 happy_x_1 - = happyIn31 +happyReduce_72 = happySpecReduce_1 27# happyReduction_72 +happyReduction_72 happy_x_1 + = happyIn32 (TStr ) -happyReduce_71 = happySpecReduce_2 26# happyReduction_71 -happyReduction_71 happy_x_2 +happyReduce_73 = happySpecReduce_2 27# happyReduction_73 +happyReduction_73 happy_x_2 happy_x_1 = case happyOut7 happy_x_2 of { happy_var_2 -> - happyIn31 + happyIn32 (TInts happy_var_2 )} -happyReduce_72 = happySpecReduce_3 27# happyReduction_72 -happyReduction_72 happy_x_3 +happyReduce_74 = happySpecReduce_3 28# happyReduction_74 +happyReduction_74 happy_x_3 happy_x_2 happy_x_1 - = case happyOut40 happy_x_1 of { happy_var_1 -> - case happyOut31 happy_x_3 of { happy_var_3 -> - happyIn32 + = case happyOut41 happy_x_1 of { happy_var_1 -> + case happyOut32 happy_x_3 of { happy_var_3 -> + happyIn33 (Lbg happy_var_1 happy_var_3 )}} -happyReduce_73 = happySpecReduce_1 28# happyReduction_73 -happyReduction_73 happy_x_1 - = case happyOut41 happy_x_1 of { happy_var_1 -> - happyIn33 +happyReduce_75 = happySpecReduce_1 29# happyReduction_75 +happyReduction_75 happy_x_1 + = case happyOut42 happy_x_1 of { happy_var_1 -> + happyIn34 (Arg happy_var_1 )} -happyReduce_74 = happySpecReduce_1 28# happyReduction_74 -happyReduction_74 happy_x_1 - = case happyOut19 happy_x_1 of { happy_var_1 -> - happyIn33 +happyReduce_76 = happySpecReduce_1 29# happyReduction_76 +happyReduction_76 happy_x_1 + = case happyOut20 happy_x_1 of { happy_var_1 -> + happyIn34 (I happy_var_1 )} -happyReduce_75 = happyReduce 4# 28# happyReduction_75 -happyReduction_75 (happy_x_4 `HappyStk` +happyReduce_77 = happyReduce 4# 29# happyReduction_77 +happyReduction_77 (happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` happyRest) - = case happyOut19 happy_x_2 of { happy_var_2 -> - case happyOut53 happy_x_3 of { happy_var_3 -> - happyIn33 + = case happyOut20 happy_x_2 of { happy_var_2 -> + case happyOut54 happy_x_3 of { happy_var_3 -> + happyIn34 (Par happy_var_2 (reverse happy_var_3) ) `HappyStk` happyRest}} -happyReduce_76 = happySpecReduce_2 28# happyReduction_76 -happyReduction_76 happy_x_2 +happyReduce_78 = happySpecReduce_2 29# happyReduction_78 +happyReduction_78 happy_x_2 happy_x_1 = case happyOut5 happy_x_2 of { happy_var_2 -> - happyIn33 + happyIn34 (LI happy_var_2 )} -happyReduce_77 = happySpecReduce_3 28# happyReduction_77 -happyReduction_77 happy_x_3 +happyReduce_79 = happySpecReduce_3 29# happyReduction_79 +happyReduction_79 happy_x_3 happy_x_2 happy_x_1 - = case happyOut49 happy_x_2 of { happy_var_2 -> - happyIn33 + = case happyOut50 happy_x_2 of { happy_var_2 -> + happyIn34 (R happy_var_2 )} -happyReduce_78 = happySpecReduce_1 28# happyReduction_78 -happyReduction_78 happy_x_1 +happyReduce_80 = happySpecReduce_1 29# happyReduction_80 +happyReduction_80 happy_x_1 = case happyOut7 happy_x_1 of { happy_var_1 -> - happyIn33 + happyIn34 (EInt happy_var_1 )} -happyReduce_79 = happySpecReduce_1 28# happyReduction_79 -happyReduction_79 happy_x_1 - = case happyOut36 happy_x_1 of { happy_var_1 -> - happyIn33 +happyReduce_81 = happySpecReduce_1 29# happyReduction_81 +happyReduction_81 happy_x_1 + = case happyOut8 happy_x_1 of { happy_var_1 -> + happyIn34 + (EFloat happy_var_1 + )} + +happyReduce_82 = happySpecReduce_1 29# happyReduction_82 +happyReduction_82 happy_x_1 + = case happyOut37 happy_x_1 of { happy_var_1 -> + happyIn34 (K happy_var_1 )} -happyReduce_80 = happySpecReduce_2 28# happyReduction_80 -happyReduction_80 happy_x_2 +happyReduce_83 = happySpecReduce_2 29# happyReduction_83 +happyReduction_83 happy_x_2 happy_x_1 - = happyIn33 + = happyIn34 (E ) -happyReduce_81 = happySpecReduce_3 28# happyReduction_81 -happyReduction_81 happy_x_3 +happyReduce_84 = happySpecReduce_3 29# happyReduction_84 +happyReduction_84 happy_x_3 happy_x_2 happy_x_1 - = case happyOut35 happy_x_2 of { happy_var_2 -> - happyIn33 + = case happyOut36 happy_x_2 of { happy_var_2 -> + happyIn34 (happy_var_2 )} -happyReduce_82 = happySpecReduce_3 29# happyReduction_82 -happyReduction_82 happy_x_3 - happy_x_2 - happy_x_1 - = case happyOut33 happy_x_1 of { happy_var_1 -> - case happyOut40 happy_x_3 of { happy_var_3 -> - happyIn34 - (P happy_var_1 happy_var_3 - )}} - -happyReduce_83 = happyReduce 5# 29# happyReduction_83 -happyReduction_83 (happy_x_5 `HappyStk` - happy_x_4 `HappyStk` - happy_x_3 `HappyStk` - happy_x_2 `HappyStk` - happy_x_1 `HappyStk` - happyRest) - = case happyOut31 happy_x_2 of { happy_var_2 -> - case happyOut52 happy_x_4 of { happy_var_4 -> - happyIn34 - (T happy_var_2 happy_var_4 - ) `HappyStk` happyRest}} - -happyReduce_84 = happyReduce 5# 29# happyReduction_84 -happyReduction_84 (happy_x_5 `HappyStk` - happy_x_4 `HappyStk` - happy_x_3 `HappyStk` - happy_x_2 `HappyStk` - happy_x_1 `HappyStk` - happyRest) - = case happyOut31 happy_x_2 of { happy_var_2 -> - case happyOut53 happy_x_4 of { happy_var_4 -> - happyIn34 - (V happy_var_2 (reverse happy_var_4) - ) `HappyStk` happyRest}} - -happyReduce_85 = happySpecReduce_3 29# happyReduction_85 +happyReduce_85 = happySpecReduce_3 30# happyReduction_85 happyReduction_85 happy_x_3 happy_x_2 happy_x_1 = case happyOut34 happy_x_1 of { happy_var_1 -> - case happyOut33 happy_x_3 of { happy_var_3 -> - happyIn34 - (S happy_var_1 happy_var_3 + case happyOut41 happy_x_3 of { happy_var_3 -> + happyIn35 + (P happy_var_1 happy_var_3 )}} -happyReduce_86 = happyReduce 4# 29# happyReduction_86 -happyReduction_86 (happy_x_4 `HappyStk` +happyReduce_86 = happyReduce 5# 30# happyReduction_86 +happyReduction_86 (happy_x_5 `HappyStk` + happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` happyRest) - = case happyOut53 happy_x_3 of { happy_var_3 -> - happyIn34 - (FV (reverse happy_var_3) - ) `HappyStk` happyRest} + = case happyOut32 happy_x_2 of { happy_var_2 -> + case happyOut53 happy_x_4 of { happy_var_4 -> + happyIn35 + (T happy_var_2 happy_var_4 + ) `HappyStk` happyRest}} -happyReduce_87 = happySpecReduce_1 29# happyReduction_87 -happyReduction_87 happy_x_1 - = case happyOut33 happy_x_1 of { happy_var_1 -> - happyIn34 - (happy_var_1 - )} +happyReduce_87 = happyReduce 5# 30# happyReduction_87 +happyReduction_87 (happy_x_5 `HappyStk` + happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut32 happy_x_2 of { happy_var_2 -> + case happyOut54 happy_x_4 of { happy_var_4 -> + happyIn35 + (V happy_var_2 (reverse happy_var_4) + ) `HappyStk` happyRest}} happyReduce_88 = happySpecReduce_3 30# happyReduction_88 happyReduction_88 happy_x_3 @@ -1315,25 +1318,53 @@ happyReduction_88 happy_x_3 = case happyOut35 happy_x_1 of { happy_var_1 -> case happyOut34 happy_x_3 of { happy_var_3 -> happyIn35 - (C happy_var_1 happy_var_3 + (S happy_var_1 happy_var_3 )}} -happyReduce_89 = happySpecReduce_1 30# happyReduction_89 -happyReduction_89 happy_x_1 +happyReduce_89 = happyReduce 4# 30# happyReduction_89 +happyReduction_89 (happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut54 happy_x_3 of { happy_var_3 -> + happyIn35 + (FV (reverse happy_var_3) + ) `HappyStk` happyRest} + +happyReduce_90 = happySpecReduce_1 30# happyReduction_90 +happyReduction_90 happy_x_1 = case happyOut34 happy_x_1 of { happy_var_1 -> happyIn35 (happy_var_1 )} -happyReduce_90 = happySpecReduce_1 31# happyReduction_90 -happyReduction_90 happy_x_1 - = case happyOut6 happy_x_1 of { happy_var_1 -> +happyReduce_91 = happySpecReduce_3 31# happyReduction_91 +happyReduction_91 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut36 happy_x_1 of { happy_var_1 -> + case happyOut35 happy_x_3 of { happy_var_3 -> happyIn36 + (C happy_var_1 happy_var_3 + )}} + +happyReduce_92 = happySpecReduce_1 31# happyReduction_92 +happyReduction_92 happy_x_1 + = case happyOut35 happy_x_1 of { happy_var_1 -> + happyIn36 + (happy_var_1 + )} + +happyReduce_93 = happySpecReduce_1 32# happyReduction_93 +happyReduction_93 happy_x_1 + = case happyOut6 happy_x_1 of { happy_var_1 -> + happyIn37 (KS happy_var_1 )} -happyReduce_91 = happyReduce 7# 31# happyReduction_91 -happyReduction_91 (happy_x_7 `HappyStk` +happyReduce_94 = happyReduce 7# 32# happyReduction_94 +happyReduction_94 (happy_x_7 `HappyStk` happy_x_6 `HappyStk` happy_x_5 `HappyStk` happy_x_4 `HappyStk` @@ -1341,69 +1372,69 @@ happyReduction_91 (happy_x_7 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` happyRest) - = case happyOut54 happy_x_3 of { happy_var_3 -> - case happyOut55 happy_x_5 of { happy_var_5 -> - happyIn36 + = case happyOut55 happy_x_3 of { happy_var_3 -> + case happyOut56 happy_x_5 of { happy_var_5 -> + happyIn37 (KP (reverse happy_var_3) happy_var_5 ) `HappyStk` happyRest}} -happyReduce_92 = happySpecReduce_3 32# happyReduction_92 -happyReduction_92 happy_x_3 +happyReduce_95 = happySpecReduce_3 33# happyReduction_95 +happyReduction_95 happy_x_3 happy_x_2 happy_x_1 - = case happyOut40 happy_x_1 of { happy_var_1 -> - case happyOut35 happy_x_3 of { happy_var_3 -> - happyIn37 + = case happyOut41 happy_x_1 of { happy_var_1 -> + case happyOut36 happy_x_3 of { happy_var_3 -> + happyIn38 (Ass happy_var_1 happy_var_3 )}} -happyReduce_93 = happySpecReduce_3 33# happyReduction_93 -happyReduction_93 happy_x_3 +happyReduce_96 = happySpecReduce_3 34# happyReduction_96 +happyReduction_96 happy_x_3 happy_x_2 happy_x_1 - = case happyOut57 happy_x_1 of { happy_var_1 -> - case happyOut35 happy_x_3 of { happy_var_3 -> - happyIn38 + = case happyOut58 happy_x_1 of { happy_var_1 -> + case happyOut36 happy_x_3 of { happy_var_3 -> + happyIn39 (Cas (reverse happy_var_1) happy_var_3 )}} -happyReduce_94 = happySpecReduce_3 34# happyReduction_94 -happyReduction_94 happy_x_3 +happyReduce_97 = happySpecReduce_3 35# happyReduction_97 +happyReduction_97 happy_x_3 happy_x_2 happy_x_1 - = case happyOut54 happy_x_1 of { happy_var_1 -> - case happyOut54 happy_x_3 of { happy_var_3 -> - happyIn39 + = case happyOut55 happy_x_1 of { happy_var_1 -> + case happyOut55 happy_x_3 of { happy_var_3 -> + happyIn40 (Var (reverse happy_var_1) (reverse happy_var_3) )}} -happyReduce_95 = happySpecReduce_1 35# happyReduction_95 -happyReduction_95 happy_x_1 +happyReduce_98 = happySpecReduce_1 36# happyReduction_98 +happyReduction_98 happy_x_1 = case happyOut5 happy_x_1 of { happy_var_1 -> - happyIn40 + happyIn41 (L happy_var_1 )} -happyReduce_96 = happySpecReduce_2 35# happyReduction_96 -happyReduction_96 happy_x_2 +happyReduce_99 = happySpecReduce_2 36# happyReduction_99 +happyReduction_99 happy_x_2 happy_x_1 = case happyOut7 happy_x_2 of { happy_var_2 -> - happyIn40 + happyIn41 (LV happy_var_2 )} -happyReduce_97 = happySpecReduce_3 36# happyReduction_97 -happyReduction_97 happy_x_3 +happyReduce_100 = happySpecReduce_3 37# happyReduction_100 +happyReduction_100 happy_x_3 happy_x_2 happy_x_1 = case happyOut5 happy_x_1 of { happy_var_1 -> case happyOut7 happy_x_3 of { happy_var_3 -> - happyIn41 + happyIn42 (A happy_var_1 happy_var_3 )}} -happyReduce_98 = happyReduce 5# 36# happyReduction_98 -happyReduction_98 (happy_x_5 `HappyStk` +happyReduce_101 = happyReduce 5# 37# happyReduction_101 +happyReduction_101 (happy_x_5 `HappyStk` happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` @@ -1412,83 +1443,75 @@ happyReduction_98 (happy_x_5 `HappyStk` = case happyOut5 happy_x_1 of { happy_var_1 -> case happyOut7 happy_x_3 of { happy_var_3 -> case happyOut7 happy_x_5 of { happy_var_5 -> - happyIn41 + happyIn42 (AB happy_var_1 happy_var_3 happy_var_5 ) `HappyStk` happyRest}}} -happyReduce_99 = happyReduce 4# 37# happyReduction_99 -happyReduction_99 (happy_x_4 `HappyStk` +happyReduce_102 = happyReduce 4# 38# happyReduction_102 +happyReduction_102 (happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` happyRest) - = case happyOut19 happy_x_2 of { happy_var_2 -> - case happyOut57 happy_x_3 of { happy_var_3 -> - happyIn42 + = case happyOut20 happy_x_2 of { happy_var_2 -> + case happyOut58 happy_x_3 of { happy_var_3 -> + happyIn43 (PC happy_var_2 (reverse happy_var_3) ) `HappyStk` happyRest}} -happyReduce_100 = happySpecReduce_1 37# happyReduction_100 -happyReduction_100 happy_x_1 +happyReduce_103 = happySpecReduce_1 38# happyReduction_103 +happyReduction_103 happy_x_1 = case happyOut5 happy_x_1 of { happy_var_1 -> - happyIn42 + happyIn43 (PV happy_var_1 )} -happyReduce_101 = happySpecReduce_1 37# happyReduction_101 -happyReduction_101 happy_x_1 - = happyIn42 +happyReduce_104 = happySpecReduce_1 38# happyReduction_104 +happyReduction_104 happy_x_1 + = happyIn43 (PW ) -happyReduce_102 = happySpecReduce_3 37# happyReduction_102 -happyReduction_102 happy_x_3 +happyReduce_105 = happySpecReduce_3 38# happyReduction_105 +happyReduction_105 happy_x_3 happy_x_2 happy_x_1 - = case happyOut56 happy_x_2 of { happy_var_2 -> - happyIn42 + = case happyOut57 happy_x_2 of { happy_var_2 -> + happyIn43 (PR happy_var_2 )} -happyReduce_103 = happySpecReduce_1 37# happyReduction_103 -happyReduction_103 happy_x_1 +happyReduce_106 = happySpecReduce_1 38# happyReduction_106 +happyReduction_106 happy_x_1 = case happyOut7 happy_x_1 of { happy_var_1 -> - happyIn42 + happyIn43 (PI happy_var_1 )} -happyReduce_104 = happySpecReduce_3 38# happyReduction_104 -happyReduction_104 happy_x_3 +happyReduce_107 = happySpecReduce_1 38# happyReduction_107 +happyReduction_107 happy_x_1 + = case happyOut8 happy_x_1 of { happy_var_1 -> + happyIn43 + (PF happy_var_1 + )} + +happyReduce_108 = happySpecReduce_3 39# happyReduction_108 +happyReduction_108 happy_x_3 happy_x_2 happy_x_1 - = case happyOut40 happy_x_1 of { happy_var_1 -> - case happyOut42 happy_x_3 of { happy_var_3 -> - happyIn43 + = case happyOut41 happy_x_1 of { happy_var_1 -> + case happyOut43 happy_x_3 of { happy_var_3 -> + happyIn44 (PAss happy_var_1 happy_var_3 )}} -happyReduce_105 = happySpecReduce_0 39# happyReduction_105 -happyReduction_105 = happyIn44 +happyReduce_109 = happySpecReduce_0 40# happyReduction_109 +happyReduction_109 = happyIn45 ([] ) -happyReduce_106 = happySpecReduce_3 39# happyReduction_106 -happyReduction_106 happy_x_3 - happy_x_2 - happy_x_1 - = case happyOut44 happy_x_1 of { happy_var_1 -> - case happyOut15 happy_x_2 of { happy_var_2 -> - happyIn44 - (flip (:) happy_var_1 happy_var_2 - )}} - -happyReduce_107 = happySpecReduce_0 40# happyReduction_107 -happyReduction_107 = happyIn45 - ([] - ) - -happyReduce_108 = happySpecReduce_3 40# happyReduction_108 -happyReduction_108 happy_x_3 +happyReduce_110 = happySpecReduce_3 40# happyReduction_110 +happyReduction_110 happy_x_3 happy_x_2 happy_x_1 = case happyOut45 happy_x_1 of { happy_var_1 -> @@ -1497,254 +1520,269 @@ happyReduction_108 happy_x_3 (flip (:) happy_var_1 happy_var_2 )}} -happyReduce_109 = happySpecReduce_0 41# happyReduction_109 -happyReduction_109 = happyIn46 +happyReduce_111 = happySpecReduce_0 41# happyReduction_111 +happyReduction_111 = happyIn46 ([] ) -happyReduce_110 = happySpecReduce_1 41# happyReduction_110 -happyReduction_110 happy_x_1 - = case happyOut17 happy_x_1 of { happy_var_1 -> - happyIn46 - ((:[]) happy_var_1 - )} - -happyReduce_111 = happySpecReduce_3 41# happyReduction_111 -happyReduction_111 happy_x_3 +happyReduce_112 = happySpecReduce_3 41# happyReduction_112 +happyReduction_112 happy_x_3 happy_x_2 happy_x_1 - = case happyOut17 happy_x_1 of { happy_var_1 -> - case happyOut46 happy_x_3 of { happy_var_3 -> + = case happyOut46 happy_x_1 of { happy_var_1 -> + case happyOut17 happy_x_2 of { happy_var_2 -> happyIn46 - ((:) happy_var_1 happy_var_3 - )}} - -happyReduce_112 = happySpecReduce_0 42# happyReduction_112 -happyReduction_112 = happyIn47 - ([] - ) - -happyReduce_113 = happySpecReduce_2 42# happyReduction_113 -happyReduction_113 happy_x_2 - happy_x_1 - = case happyOut47 happy_x_1 of { happy_var_1 -> - case happyOut31 happy_x_2 of { happy_var_2 -> - happyIn47 (flip (:) happy_var_1 happy_var_2 )}} -happyReduce_114 = happySpecReduce_0 43# happyReduction_114 -happyReduction_114 = happyIn48 +happyReduce_113 = happySpecReduce_0 42# happyReduction_113 +happyReduction_113 = happyIn47 ([] ) -happyReduce_115 = happySpecReduce_2 43# happyReduction_115 -happyReduction_115 happy_x_2 +happyReduce_114 = happySpecReduce_1 42# happyReduction_114 +happyReduction_114 happy_x_1 + = case happyOut18 happy_x_1 of { happy_var_1 -> + happyIn47 + ((:[]) happy_var_1 + )} + +happyReduce_115 = happySpecReduce_3 42# happyReduction_115 +happyReduction_115 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut18 happy_x_1 of { happy_var_1 -> + case happyOut47 happy_x_3 of { happy_var_3 -> + happyIn47 + ((:) happy_var_1 happy_var_3 + )}} + +happyReduce_116 = happySpecReduce_0 43# happyReduction_116 +happyReduction_116 = happyIn48 + ([] + ) + +happyReduce_117 = happySpecReduce_2 43# happyReduction_117 +happyReduction_117 happy_x_2 happy_x_1 = case happyOut48 happy_x_1 of { happy_var_1 -> - case happyOut19 happy_x_2 of { happy_var_2 -> + case happyOut32 happy_x_2 of { happy_var_2 -> happyIn48 (flip (:) happy_var_1 happy_var_2 )}} -happyReduce_116 = happySpecReduce_0 44# happyReduction_116 -happyReduction_116 = happyIn49 +happyReduce_118 = happySpecReduce_0 44# happyReduction_118 +happyReduction_118 = happyIn49 ([] ) -happyReduce_117 = happySpecReduce_1 44# happyReduction_117 -happyReduction_117 happy_x_1 - = case happyOut37 happy_x_1 of { happy_var_1 -> - happyIn49 - ((:[]) happy_var_1 - )} - -happyReduce_118 = happySpecReduce_3 44# happyReduction_118 -happyReduction_118 happy_x_3 - happy_x_2 +happyReduce_119 = happySpecReduce_2 44# happyReduction_119 +happyReduction_119 happy_x_2 happy_x_1 - = case happyOut37 happy_x_1 of { happy_var_1 -> - case happyOut49 happy_x_3 of { happy_var_3 -> + = case happyOut49 happy_x_1 of { happy_var_1 -> + case happyOut20 happy_x_2 of { happy_var_2 -> happyIn49 - ((:) happy_var_1 happy_var_3 + (flip (:) happy_var_1 happy_var_2 )}} -happyReduce_119 = happySpecReduce_0 45# happyReduction_119 -happyReduction_119 = happyIn50 +happyReduce_120 = happySpecReduce_0 45# happyReduction_120 +happyReduction_120 = happyIn50 ([] ) -happyReduce_120 = happySpecReduce_1 45# happyReduction_120 -happyReduction_120 happy_x_1 - = case happyOut41 happy_x_1 of { happy_var_1 -> +happyReduce_121 = happySpecReduce_1 45# happyReduction_121 +happyReduction_121 happy_x_1 + = case happyOut38 happy_x_1 of { happy_var_1 -> happyIn50 ((:[]) happy_var_1 )} -happyReduce_121 = happySpecReduce_3 45# happyReduction_121 -happyReduction_121 happy_x_3 +happyReduce_122 = happySpecReduce_3 45# happyReduction_122 +happyReduction_122 happy_x_3 happy_x_2 happy_x_1 - = case happyOut41 happy_x_1 of { happy_var_1 -> + = case happyOut38 happy_x_1 of { happy_var_1 -> case happyOut50 happy_x_3 of { happy_var_3 -> happyIn50 ((:) happy_var_1 happy_var_3 )}} -happyReduce_122 = happySpecReduce_0 46# happyReduction_122 -happyReduction_122 = happyIn51 +happyReduce_123 = happySpecReduce_0 46# happyReduction_123 +happyReduction_123 = happyIn51 ([] ) -happyReduce_123 = happySpecReduce_1 46# happyReduction_123 -happyReduction_123 happy_x_1 - = case happyOut32 happy_x_1 of { happy_var_1 -> +happyReduce_124 = happySpecReduce_1 46# happyReduction_124 +happyReduction_124 happy_x_1 + = case happyOut42 happy_x_1 of { happy_var_1 -> happyIn51 ((:[]) happy_var_1 )} -happyReduce_124 = happySpecReduce_3 46# happyReduction_124 -happyReduction_124 happy_x_3 +happyReduce_125 = happySpecReduce_3 46# happyReduction_125 +happyReduction_125 happy_x_3 happy_x_2 happy_x_1 - = case happyOut32 happy_x_1 of { happy_var_1 -> + = case happyOut42 happy_x_1 of { happy_var_1 -> case happyOut51 happy_x_3 of { happy_var_3 -> happyIn51 ((:) happy_var_1 happy_var_3 )}} -happyReduce_125 = happySpecReduce_0 47# happyReduction_125 -happyReduction_125 = happyIn52 +happyReduce_126 = happySpecReduce_0 47# happyReduction_126 +happyReduction_126 = happyIn52 ([] ) -happyReduce_126 = happySpecReduce_1 47# happyReduction_126 -happyReduction_126 happy_x_1 - = case happyOut38 happy_x_1 of { happy_var_1 -> +happyReduce_127 = happySpecReduce_1 47# happyReduction_127 +happyReduction_127 happy_x_1 + = case happyOut33 happy_x_1 of { happy_var_1 -> happyIn52 ((:[]) happy_var_1 )} -happyReduce_127 = happySpecReduce_3 47# happyReduction_127 -happyReduction_127 happy_x_3 +happyReduce_128 = happySpecReduce_3 47# happyReduction_128 +happyReduction_128 happy_x_3 happy_x_2 happy_x_1 - = case happyOut38 happy_x_1 of { happy_var_1 -> + = case happyOut33 happy_x_1 of { happy_var_1 -> case happyOut52 happy_x_3 of { happy_var_3 -> happyIn52 ((:) happy_var_1 happy_var_3 )}} -happyReduce_128 = happySpecReduce_0 48# happyReduction_128 -happyReduction_128 = happyIn53 +happyReduce_129 = happySpecReduce_0 48# happyReduction_129 +happyReduction_129 = happyIn53 ([] ) -happyReduce_129 = happySpecReduce_2 48# happyReduction_129 -happyReduction_129 happy_x_2 - happy_x_1 - = case happyOut53 happy_x_1 of { happy_var_1 -> - case happyOut33 happy_x_2 of { happy_var_2 -> +happyReduce_130 = happySpecReduce_1 48# happyReduction_130 +happyReduction_130 happy_x_1 + = case happyOut39 happy_x_1 of { happy_var_1 -> happyIn53 - (flip (:) happy_var_1 happy_var_2 + ((:[]) happy_var_1 + )} + +happyReduce_131 = happySpecReduce_3 48# happyReduction_131 +happyReduction_131 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut39 happy_x_1 of { happy_var_1 -> + case happyOut53 happy_x_3 of { happy_var_3 -> + happyIn53 + ((:) happy_var_1 happy_var_3 )}} -happyReduce_130 = happySpecReduce_0 49# happyReduction_130 -happyReduction_130 = happyIn54 +happyReduce_132 = happySpecReduce_0 49# happyReduction_132 +happyReduction_132 = happyIn54 ([] ) -happyReduce_131 = happySpecReduce_2 49# happyReduction_131 -happyReduction_131 happy_x_2 +happyReduce_133 = happySpecReduce_2 49# happyReduction_133 +happyReduction_133 happy_x_2 happy_x_1 = case happyOut54 happy_x_1 of { happy_var_1 -> - case happyOut6 happy_x_2 of { happy_var_2 -> + case happyOut34 happy_x_2 of { happy_var_2 -> happyIn54 (flip (:) happy_var_1 happy_var_2 )}} -happyReduce_132 = happySpecReduce_0 50# happyReduction_132 -happyReduction_132 = happyIn55 +happyReduce_134 = happySpecReduce_0 50# happyReduction_134 +happyReduction_134 = happyIn55 ([] ) -happyReduce_133 = happySpecReduce_1 50# happyReduction_133 -happyReduction_133 happy_x_1 - = case happyOut39 happy_x_1 of { happy_var_1 -> - happyIn55 - ((:[]) happy_var_1 - )} - -happyReduce_134 = happySpecReduce_3 50# happyReduction_134 -happyReduction_134 happy_x_3 - happy_x_2 +happyReduce_135 = happySpecReduce_2 50# happyReduction_135 +happyReduction_135 happy_x_2 happy_x_1 - = case happyOut39 happy_x_1 of { happy_var_1 -> - case happyOut55 happy_x_3 of { happy_var_3 -> + = case happyOut55 happy_x_1 of { happy_var_1 -> + case happyOut6 happy_x_2 of { happy_var_2 -> happyIn55 - ((:) happy_var_1 happy_var_3 + (flip (:) happy_var_1 happy_var_2 )}} -happyReduce_135 = happySpecReduce_0 51# happyReduction_135 -happyReduction_135 = happyIn56 +happyReduce_136 = happySpecReduce_0 51# happyReduction_136 +happyReduction_136 = happyIn56 ([] ) -happyReduce_136 = happySpecReduce_1 51# happyReduction_136 -happyReduction_136 happy_x_1 - = case happyOut43 happy_x_1 of { happy_var_1 -> +happyReduce_137 = happySpecReduce_1 51# happyReduction_137 +happyReduction_137 happy_x_1 + = case happyOut40 happy_x_1 of { happy_var_1 -> happyIn56 ((:[]) happy_var_1 )} -happyReduce_137 = happySpecReduce_3 51# happyReduction_137 -happyReduction_137 happy_x_3 +happyReduce_138 = happySpecReduce_3 51# happyReduction_138 +happyReduction_138 happy_x_3 happy_x_2 happy_x_1 - = case happyOut43 happy_x_1 of { happy_var_1 -> + = case happyOut40 happy_x_1 of { happy_var_1 -> case happyOut56 happy_x_3 of { happy_var_3 -> happyIn56 ((:) happy_var_1 happy_var_3 )}} -happyReduce_138 = happySpecReduce_0 52# happyReduction_138 -happyReduction_138 = happyIn57 +happyReduce_139 = happySpecReduce_0 52# happyReduction_139 +happyReduction_139 = happyIn57 ([] ) -happyReduce_139 = happySpecReduce_2 52# happyReduction_139 -happyReduction_139 happy_x_2 - happy_x_1 - = case happyOut57 happy_x_1 of { happy_var_1 -> - case happyOut42 happy_x_2 of { happy_var_2 -> +happyReduce_140 = happySpecReduce_1 52# happyReduction_140 +happyReduction_140 happy_x_1 + = case happyOut44 happy_x_1 of { happy_var_1 -> happyIn57 - (flip (:) happy_var_1 happy_var_2 - )}} - -happyReduce_140 = happySpecReduce_0 53# happyReduction_140 -happyReduction_140 = happyIn58 - ([] - ) - -happyReduce_141 = happySpecReduce_1 53# happyReduction_141 -happyReduction_141 happy_x_1 - = case happyOut5 happy_x_1 of { happy_var_1 -> - happyIn58 ((:[]) happy_var_1 )} -happyReduce_142 = happySpecReduce_3 53# happyReduction_142 -happyReduction_142 happy_x_3 +happyReduce_141 = happySpecReduce_3 52# happyReduction_141 +happyReduction_141 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut44 happy_x_1 of { happy_var_1 -> + case happyOut57 happy_x_3 of { happy_var_3 -> + happyIn57 + ((:) happy_var_1 happy_var_3 + )}} + +happyReduce_142 = happySpecReduce_0 53# happyReduction_142 +happyReduction_142 = happyIn58 + ([] + ) + +happyReduce_143 = happySpecReduce_2 53# happyReduction_143 +happyReduction_143 happy_x_2 + happy_x_1 + = case happyOut58 happy_x_1 of { happy_var_1 -> + case happyOut43 happy_x_2 of { happy_var_2 -> + happyIn58 + (flip (:) happy_var_1 happy_var_2 + )}} + +happyReduce_144 = happySpecReduce_0 54# happyReduction_144 +happyReduction_144 = happyIn59 + ([] + ) + +happyReduce_145 = happySpecReduce_1 54# happyReduction_145 +happyReduction_145 happy_x_1 + = case happyOut5 happy_x_1 of { happy_var_1 -> + happyIn59 + ((:[]) happy_var_1 + )} + +happyReduce_146 = happySpecReduce_3 54# happyReduction_146 +happyReduction_146 happy_x_3 happy_x_2 happy_x_1 = case happyOut5 happy_x_1 of { happy_var_1 -> - case happyOut58 happy_x_3 of { happy_var_3 -> - happyIn58 + case happyOut59 happy_x_3 of { happy_var_3 -> + happyIn59 ((:) happy_var_1 happy_var_3 )}} happyNewToken action sts stk [] = - happyDoAction 53# (error "reading EOF!") action sts stk [] + happyDoAction 54# (error "reading EOF!") action sts stk [] happyNewToken action sts stk (tk:tks) = let cont i = happyDoAction i tk action sts stk tks in @@ -1800,7 +1838,8 @@ happyNewToken action sts stk (tk:tks) = PT _ (TV happy_dollar_dollar) -> cont 49#; PT _ (TL happy_dollar_dollar) -> cont 50#; PT _ (TI happy_dollar_dollar) -> cont 51#; - _ -> cont 52#; + PT _ (TD happy_dollar_dollar) -> cont 52#; + _ -> cont 53#; _ -> happyError' (tk:tks) } @@ -1817,10 +1856,10 @@ happyError' :: () => [Token] -> Err a happyError' = happyError pCanon tks = happySomeParser where - happySomeParser = happyThen (happyParse 0# tks) (\x -> happyReturn (happyOut8 x)) + happySomeParser = happyThen (happyParse 0# tks) (\x -> happyReturn (happyOut9 x)) pLine tks = happySomeParser where - happySomeParser = happyThen (happyParse 1# tks) (\x -> happyReturn (happyOut9 x)) + happySomeParser = happyThen (happyParse 1# tks) (\x -> happyReturn (happyOut10 x)) happySeq = happyDontSeq @@ -1836,22 +1875,13 @@ happyError ts = myLexer = tokens {-# LINE 1 "GenericTemplate.hs" #-} --- $Id: ParGFC.hs,v 1.11 2005/06/17 14:15:17 bringert Exp $ +{-# LINE 1 "" #-} +{-# LINE 1 "" #-} +{-# LINE 1 "GenericTemplate.hs" #-} +-- $Id$ - - - - - - - - - - - -{-# LINE 27 "GenericTemplate.hs" #-} - +{-# LINE 28 "GenericTemplate.hs" #-} data Happy_IntList = HappyCons Int# Happy_IntList @@ -1861,28 +1891,10 @@ data Happy_IntList = HappyCons Int# Happy_IntList +{-# LINE 49 "GenericTemplate.hs" #-} - - - - - - - - - - - - - - - - - - - - +{-# LINE 59 "GenericTemplate.hs" #-} @@ -1983,8 +1995,7 @@ data HappyAddr = HappyA# Addr# ----------------------------------------------------------------------------- -- HappyState data type (not arrays) -{-# LINE 169 "GenericTemplate.hs" #-} - +{-# LINE 170 "GenericTemplate.hs" #-} ----------------------------------------------------------------------------- -- Shifting a token diff --git a/src/GF/Canon/PrintGFC.hs b/src/GF/Canon/PrintGFC.hs index 11b4729c0..437f3a1e9 100644 --- a/src/GF/Canon/PrintGFC.hs +++ b/src/GF/Canon/PrintGFC.hs @@ -231,6 +231,7 @@ instance Print APatt where APV id -> prPrec i 0 (concatD [prt 0 id]) APS str -> prPrec i 0 (concatD [prt 0 str]) API n -> prPrec i 0 (concatD [prt 0 n]) + APF n -> prPrec i 0 (concatD [prt 0 n]) APW -> prPrec i 0 (concatD [doc (showString "_")]) prtList es = case es of @@ -292,6 +293,7 @@ instance Print Term where C term0 term -> prPrec i 0 (concatD [prt 0 term0 , doc (showString "++") , prt 1 term]) FV terms -> prPrec i 1 (concatD [docs (showString "variants") , doc (showString "{") , prt 2 terms , doc (showString "}")]) EInt n -> prPrec i 2 (concatD [prt 0 n]) + EFloat n -> prPrec i 2 (concatD [prt 0 n]) K tokn -> prPrec i 2 (concatD [prt 0 tokn]) E -> prPrec i 2 (concatD [doc (showString "[") , doc (showString "]")]) @@ -356,6 +358,7 @@ instance Print Patt where PW -> prPrec i 0 (concatD [docs (showString "_")]) PR pattassigns -> prPrec i 0 (concatD [doc (showString "{") , prt 0 pattassigns , doc (showString "}")]) PI n -> prPrec i 0 (concatD [prt 0 n]) + PF n -> prPrec i 0 (concatD [prt 0 n]) prtList es = case es of [] -> (concatD []) diff --git a/src/GF/Compile/CheckGrammar.hs b/src/GF/Compile/CheckGrammar.hs index c46c51af7..14d4f9b93 100644 --- a/src/GF/Compile/CheckGrammar.hs +++ b/src/GF/Compile/CheckGrammar.hs @@ -279,6 +279,7 @@ computeLType gr t = do App (Q (IC "Predef") (IC "Ints")) _ -> return ty ---- shouldn't be needed Q (IC "Predef") (IC "Int") -> return ty ---- shouldn't be needed + Q (IC "Predef") (IC "Float") -> return ty ---- shouldn't be needed Q m c | elem c [cPredef,cPredefAbs] -> return ty @@ -416,6 +417,8 @@ inferLType gr trm = case trm of EInt i -> return (trm, typeInt) + EFloat i -> return (trm, typeFloat) + Empty -> return (trm, typeTok) C s1 s2 -> @@ -508,6 +511,7 @@ inferLType gr trm = case trm of PT _ p -> isConstPatt p PString _ -> True PInt _ -> True + PFloat _ -> True _ -> False inferPatt p = case p of diff --git a/src/GF/Compile/GrammarToCanon.hs b/src/GF/Compile/GrammarToCanon.hs index d5b52d062..de6427e82 100644 --- a/src/GF/Compile/GrammarToCanon.hs +++ b/src/GF/Compile/GrammarToCanon.hs @@ -231,7 +231,8 @@ redCTerm t = case t of return $ G.V ty' ts' S u v -> liftM2 G.S (redCTerm u) (redCTerm v) K s -> return $ G.K (G.KS s) - EInt i -> return $ G.EInt $ toInteger i + EInt i -> return $ G.EInt i + EFloat i -> return $ G.EFloat i C u v -> liftM2 G.C (redCTerm u) (redCTerm v) FV ts -> liftM G.FV $ mapM redCTerm ts --- Ready ss -> return $ G.Ready [redStr ss] --- obsolete @@ -259,7 +260,8 @@ redPatt p = case p of ts <- mapM redPatt tts return $ G.PR $ map (uncurry G.PAss) $ zip ls' ts PT _ q -> redPatt q - PInt i -> return $ G.PI (toInteger i) + PInt i -> return $ G.PI i + PFloat i -> return $ G.PF i PV x -> liftM G.PV $ redIdent x --- for parametrize optimization _ -> prtBad "cannot reduce pattern" p diff --git a/src/GF/Compile/Rename.hs b/src/GF/Compile/Rename.hs index d38b897a7..70451a25a 100644 --- a/src/GF/Compile/Rename.hs +++ b/src/GF/Compile/Rename.hs @@ -94,6 +94,7 @@ renameIdentTerm env@(act,imps) t = -- this facility is mainly for BWC with GF1: you need not import PredefAbs predefAbs c s = case c of IC "Int" -> return $ const $ Q cPredefAbs cInt + IC "Float" -> return $ const $ Q cPredefAbs cFloat IC "String" -> return $ const $ Q cPredefAbs cString _ -> Bad s diff --git a/src/GF/Grammar/AppPredefined.hs b/src/GF/Grammar/AppPredefined.hs index 5a2450632..c8710f32d 100644 --- a/src/GF/Grammar/AppPredefined.hs +++ b/src/GF/Grammar/AppPredefined.hs @@ -30,6 +30,7 @@ isInPredefined = err (const True) (const False) . typPredefined typPredefined :: Ident -> Err Type typPredefined c@(IC f) = case f of "Int" -> return typePType + "Float" -> return typePType "Ints" -> return $ mkFunType [cnPredef "Int"] typePType "PBool" -> return typePType "PFalse" -> return $ cnPredef "PBool" @@ -65,17 +66,17 @@ appPredefined t = case t of case f of -- one-place functions Q (IC "Predef") (IC f) -> case (f, x) of - ("length", K s) -> retb $ EInt $ length s + ("length", K s) -> retb $ EInt $ toInteger $ length s _ -> retb t ---- prtBad "cannot compute predefined" t -- two-place functions App (Q (IC "Predef") (IC f)) z0 -> do (z,_) <- appPredefined z0 case (f, norm z, norm x) of - ("drop", EInt i, K s) -> retb $ K (drop i s) - ("take", EInt i, K s) -> retb $ K (take i s) - ("tk", EInt i, K s) -> retb $ K (take (max 0 (length s - i)) s) - ("dp", EInt i, K s) -> retb $ K (drop (max 0 (length s - i)) s) + ("drop", EInt i, K s) -> retb $ K (drop (fi i) s) + ("take", EInt i, K s) -> retb $ K (take (fi i) s) + ("tk", EInt i, K s) -> retb $ K (take (max 0 (length s - fi i)) s) + ("dp", EInt i, K s) -> retb $ K (drop (max 0 (length s - fi i)) s) ("eqStr",K s, K t) -> retb $ if s == t then predefTrue else predefFalse ("occur",K s, K t) -> retb $ if substring s t then predefTrue else predefFalse ("occurs",K s, K t) -> retb $ if any (flip elem t) s then predefTrue else predefFalse @@ -105,6 +106,7 @@ appPredefined t = case t of norm t = case t of Empty -> K [] _ -> t + fi = fromInteger -- read makes variables into constants diff --git a/src/GF/Grammar/Grammar.hs b/src/GF/Grammar/Grammar.hs index ff5209204..4a983abcc 100644 --- a/src/GF/Grammar/Grammar.hs +++ b/src/GF/Grammar/Grammar.hs @@ -114,7 +114,8 @@ data Term = | Con Ident -- ^ constructor | EData -- ^ to mark in definition that a fun is a constructor | Sort String -- ^ basic type - | EInt Int -- ^ integer literal + | EInt Integer -- ^ integer literal + | EFloat Double -- ^ floating point literal | K String -- ^ string literal or token: @\"foo\"@ | Empty -- ^ the empty string @[]@ @@ -167,7 +168,8 @@ data Patt = | PW -- ^ wild card pattern: @_@ | PR [(Label,Patt)] -- ^ record pattern: @{r = p ; ...}@ -- only concrete | PString String -- ^ string literal pattern: @\"foo\"@ -- only abstract - | PInt Int -- ^ integer literal pattern: @12@ -- only abstract + | PInt Integer -- ^ integer literal pattern: @12@ -- only abstract + | PFloat Double -- ^ float literal pattern: @1.2@ -- only abstract | PT Type Patt -- ^ type-annotated pattern deriving (Read, Show, Eq, Ord) diff --git a/src/GF/Grammar/LookAbs.hs b/src/GF/Grammar/LookAbs.hs index f0681934c..0c86ae3e9 100644 --- a/src/GF/Grammar/LookAbs.hs +++ b/src/GF/Grammar/LookAbs.hs @@ -107,6 +107,7 @@ lookupRef gr binds at = case at of Q m f -> lookupFunType gr m f >>= return . vClos Vr i -> maybeErr ("unknown variable" +++ prt at) $ lookup i binds EInt _ -> return valAbsInt + EFloat _ -> return valAbsFloat K _ -> return valAbsString _ -> prtBad "cannot refine with complex term" at --- @@ -116,6 +117,7 @@ refsForType compat gr binds val = [(vr i, (t,False)) | (i,t) <- binds, Ok ty <- [val2exp t], compat val ty] ++ -- integer and string literals [(EInt i, (val,False)) | val == valAbsInt, i <- [0,1,2,5,11,1978]] ++ + [(EFloat i, (val,False)) | val == valAbsFloat, i <- [3.1415926]] ++ [(K s, (val,False)) | val == valAbsString, s <- ["foo", "NN", "x"]] ++ -- functions defined in the current abstract syntax [(qq f, (vClos t,isRecursiveType t)) | (f,t) <- funsForType compat gr val] diff --git a/src/GF/Grammar/Lookup.hs b/src/GF/Grammar/Lookup.hs index 57806fc05..4123f450f 100644 --- a/src/GF/Grammar/Lookup.hs +++ b/src/GF/Grammar/Lookup.hs @@ -158,7 +158,7 @@ lookupAbsDef gr m c = errIn ("looking up absdef of" +++ prt c) $ do lookupLincat :: SourceGrammar -> Ident -> Ident -> Err Type -lookupLincat gr m c | elem c [zIdent "String", zIdent "Int"] = +lookupLincat gr m c | elem c [zIdent "String", zIdent "Int", zIdent "Float"] = return defLinType --- ad hoc; not needed? lookupLincat gr m c = do diff --git a/src/GF/Grammar/MMacros.hs b/src/GF/Grammar/MMacros.hs index 8370e102a..dd7331685 100644 --- a/src/GF/Grammar/MMacros.hs +++ b/src/GF/Grammar/MMacros.hs @@ -335,6 +335,7 @@ exp2tree e = do Meta m -> return $ AtM m K s -> return $ AtL s EInt n -> return $ AtI n + EFloat n -> return $ AtF n _ -> prtBad "cannot convert to atom" f ts <- mapM exp2tree xs return $ Tr (N (cont,at,uVal,([],[]),True),ts) diff --git a/src/GF/Grammar/Macros.hs b/src/GF/Grammar/Macros.hs index 440a54562..dc4f790fd 100644 --- a/src/GF/Grammar/Macros.hs +++ b/src/GF/Grammar/Macros.hs @@ -287,11 +287,12 @@ typeStr = srt "Str" typeTok = srt "Tok" typeStrs = srt "Strs" -typeString, typeInt :: Term -typeInts :: Int -> Term +typeString, typeFloat, typeInt :: Term +typeInts :: Integer -> Term typeString = constPredefRes "String" typeInt = constPredefRes "Int" +typeFloat = constPredefRes "Float" typeInts i = App (constPredefRes "Ints") (EInt i) isTypeInts :: Term -> Bool @@ -501,6 +502,7 @@ term2patt trm = case termForm trm of aa' <- mapM term2patt aa return (PR (zip ll aa')) Ok ([],EInt i,[]) -> return $ PInt i + Ok ([],EFloat i,[]) -> return $ PFloat i Ok ([],K s, []) -> return $ PString s _ -> prtBad "no pattern corresponds to term" trm @@ -513,6 +515,7 @@ patt2term pt = case pt of PR r -> R [assign l (patt2term p) | (l,p) <- r] PT _ p -> patt2term p PInt i -> EInt i + PFloat i -> EFloat i PString s -> K s redirectTerm :: Ident -> Term -> Term diff --git a/src/GF/Grammar/PatternMatch.hs b/src/GF/Grammar/PatternMatch.hs index 696f19e78..db6f7dc5b 100644 --- a/src/GF/Grammar/PatternMatch.hs +++ b/src/GF/Grammar/PatternMatch.hs @@ -61,6 +61,7 @@ tryMatch (p,t) = do (PString s, ([],K i,[])) | s==i -> return [] (PString "",([],Empty,[])) -> return [] -- because "" = [""] = [] (PInt s, ([],EInt i,[])) | s==i -> return [] + (PFloat s,([],EFloat i,[])) | s==i -> return [] --- rounding? (PC p pp, ([], Con f, tt)) | p `eqStrIdent` f && length pp == length tt -> do matches <- mapM tryMatch (zip pp tt) diff --git a/src/GF/Grammar/PrGrammar.hs b/src/GF/Grammar/PrGrammar.hs index 905eb39f4..4c35089f3 100644 --- a/src/GF/Grammar/PrGrammar.hs +++ b/src/GF/Grammar/PrGrammar.hs @@ -219,6 +219,7 @@ instance Print Atom where prt (AtV i) = prt i prt (AtL s) = s prt (AtI i) = show i + prt (AtF i) = show i prt_ (AtC (_,f)) = prt f prt_ a = prt a diff --git a/src/GF/Grammar/TC.hs b/src/GF/Grammar/TC.hs index 8cfe23408..be52d1889 100644 --- a/src/GF/Grammar/TC.hs +++ b/src/GF/Grammar/TC.hs @@ -32,7 +32,8 @@ data AExp = AVr Ident Val | ACn QIdent Val | AType - | AInt Int + | AInt Integer + | AFloat Double | AStr String | AMeta MetaSymb Val | AApp AExp AExp Val @@ -145,11 +146,12 @@ inferExp :: Theory -> TCEnv -> Exp -> Err (AExp, Val, [(Val,Val)]) inferExp th tenv@(k,rho,gamma) e = case e of Vr x -> mkAnnot (AVr x) $ noConstr $ lookupVar gamma x Q m c - | m == cPredefAbs && (elem c (map identC ["Int","String"])) -> + | m == cPredefAbs && (elem c (map identC ["Int","String","Float"])) -> return (ACn (m,c) vType, vType, []) | otherwise -> mkAnnot (ACn (m,c)) $ noConstr $ lookupConst th (m,c) QC m c -> mkAnnot (ACn (m,c)) $ noConstr $ lookupConst th (m,c) ---- EInt i -> return (AInt i, valAbsInt, []) + EFloat i -> return (AFloat i, valAbsFloat, []) K i -> return (AStr i, valAbsString, []) Sort _ -> return (AType, vType, []) App f t -> do @@ -165,6 +167,7 @@ inferExp th tenv@(k,rho,gamma) e = case e of where predefAbs c s = case c of IC "Int" -> return $ const $ Q cPredefAbs cInt + IC "Float" -> return $ const $ Q cPredefAbs cFloat IC "String" -> return $ const $ Q cPredefAbs cString _ -> Bad s @@ -189,7 +192,8 @@ checkEqs th tenv@(k,rho,gamma) (fun@(m,f),def) val = case def of PV IW -> (meta (MetaSymb i) : ps, i+1, g) PV x -> (meta (MetaSymb i) : ps, i+1,upd x i g) PString s -> ( K s : ps, i, g) - PInt i -> (EInt i : ps, i, g) + PInt n -> (EInt n : ps, i, g) + PFloat n -> (EFloat n : ps, i, g) PP m c xs -> (mkApp (qq (m,c)) xss : ps, i', g') where (xss,i',g') = foldr p2t ([],i,g) xs _ -> error $ "undefined p2t case" +++ prt p +++ "in checkBranch" @@ -238,7 +242,8 @@ checkBranch th tenv b@(ps,t) ty = errIn ("branch" +++ show b) $ PV IW -> (meta (MetaSymb i) : ps, i+1,g,k) PV x -> (vr x : ps, i, upd x k g,k+1) PString s -> (K s : ps, i, g, k) - PInt i -> (EInt i : ps, i, g, k) + PInt n -> (EInt n : ps, i, g, k) + PFloat n -> (EFloat n : ps, i, g, k) PP m c xs -> (mkApp (qq (m,c)) xss : ps, j, g',k') where (xss,j,g',k') = foldr p2t ([],i,g,k) xs _ -> error $ "undefined p2t case" +++ prt p +++ "in checkBranch" @@ -262,6 +267,7 @@ checkPatt th tenv exp val = do Meta m -> return $ (AMeta m val, val, []) Vr x -> return $ (AVr x val, val, []) EInt i -> return (AInt i, valAbsInt, []) + EFloat i -> return (AFloat i, valAbsFloat, []) K s -> return (AStr s, valAbsString, []) Q m c -> do diff --git a/src/GF/Grammar/TypeCheck.hs b/src/GF/Grammar/TypeCheck.hs index 53c9a4ad7..97b7ff243 100644 --- a/src/GF/Grammar/TypeCheck.hs +++ b/src/GF/Grammar/TypeCheck.hs @@ -218,6 +218,8 @@ aexp2tree (aexp,cs) = do return ([],AtC c,v',[]) AInt i -> do return ([],AtI i,valAbsInt,[]) + AFloat i -> do + return ([],AtF i,valAbsFloat,[]) AStr s -> do return ([],AtL s,valAbsString,[]) AMeta m v -> do diff --git a/src/GF/Grammar/Values.hs b/src/GF/Grammar/Values.hs index e6247cfc8..a7c58036d 100644 --- a/src/GF/Grammar/Values.hs +++ b/src/GF/Grammar/Values.hs @@ -17,9 +17,9 @@ module GF.Grammar.Values (-- * values used in TC type checking -- * annotated tree used in editing Tree, TrNode(..), Atom(..), Binds, Constraints, MetaSubst, -- * for TC - valAbsInt, valAbsString, vType, + valAbsInt, valAbsFloat, valAbsString, vType, isPredefCat, - cType, cPredefAbs, cInt, cString, + cType, cPredefAbs, cInt, cFloat, cString, eType, tree2exp, loc2treeFocus ) where @@ -45,7 +45,8 @@ type Tree = Tr TrNode newtype TrNode = N (Binds,Atom,Val,(Constraints,MetaSubst),Bool) deriving (Eq,Show) -data Atom = AtC Fun | AtM MetaSymb | AtV Ident | AtL String | AtI Int +data Atom = + AtC Fun | AtM MetaSymb | AtV Ident | AtL String | AtI Integer | AtF Double deriving (Eq,Show) type Binds = [(Ident,Val)] @@ -57,6 +58,9 @@ type MetaSubst = [(MetaSymb,Val)] valAbsInt :: Val valAbsInt = VCn (cPredefAbs, cInt) +valAbsFloat :: Val +valAbsFloat = VCn (cPredefAbs, cFloat) + valAbsString :: Val valAbsString = VCn (cPredefAbs, cString) @@ -72,6 +76,9 @@ cPredefAbs = identC "PredefAbs" cInt :: Ident cInt = identC "Int" +cFloat :: Ident +cFloat = identC "Float" + cString :: Ident cString = identC "String" @@ -89,6 +96,7 @@ tree2exp (Tr (N (bi,at,_,_,_),ts)) = foldr Abs (foldl App at' ts') bi' where AtM m -> Meta m AtL s -> K s AtI s -> EInt s + AtF s -> EFloat s bi' = map fst bi ts' = map tree2exp ts diff --git a/src/GF/Probabilistic/Probabilistic.hs b/src/GF/Probabilistic/Probabilistic.hs index 5b5c6b2af..c9bc1b8b2 100644 --- a/src/GF/Probabilistic/Probabilistic.hs +++ b/src/GF/Probabilistic/Probabilistic.hs @@ -125,6 +125,7 @@ str2tr t = case t of SMeta _ -> mkMeta 0 SString s -> K s SInt i -> EInt i + SFloat i -> EFloat i where trId = cn . zIdent @@ -142,7 +143,8 @@ data STree = -- | SAppN (SIdent,[STree]) -- no probability given | SMeta SCat | SString String - | SInt Int + | SInt Integer + | SFloat Double deriving (Show,Eq) probTree :: STree -> Double @@ -165,6 +167,7 @@ genTree :: [Double] -> SGrammar -> SCat -> (STree,Int) genTree rs gr = gett rs where gett ds "String" = (SString "foo",1) gett ds "Int" = (SInt 1978,1) + gett ds "Float" = (SFloat 3.1415926, 1) gett ds cat = case look cat of [] -> (SMeta cat,1) -- if no productions, return ? fs -> let @@ -212,6 +215,7 @@ prSTree t = case t of SMeta c -> '?':c SString s -> prQuotedString s SInt i -> show i + SFloat i -> show i where pr1 t@(SApp (_,ts)) = ' ' : (if null ts then id else prParenth) (prSTree t) pr1 t = prSTree t diff --git a/src/GF/Source/AbsGF.hs b/src/GF/Source/AbsGF.hs index a92313f0b..4cdc911d2 100644 --- a/src/GF/Source/AbsGF.hs +++ b/src/GF/Source/AbsGF.hs @@ -164,6 +164,7 @@ data Exp = | ESort Sort | EString String | EInt Integer + | EFloat Double | EMeta | EEmpty | EData @@ -213,6 +214,7 @@ data Patt = | PCon Ident | PQ Ident Ident | PInt Integer + | PFloat Double | PStr String | PR [PattAss] | PTup [PattTupleComp] diff --git a/src/GF/Source/GF.cf b/src/GF/Source/GF.cf index 06c81b61f..ec07d3c0f 100644 --- a/src/GF/Source/GF.cf +++ b/src/GF/Source/GF.cf @@ -156,6 +156,7 @@ ECons. Exp4 ::= "%" Ident "%" ; ESort. Exp4 ::= Sort ; EString. Exp4 ::= String ; EInt. Exp4 ::= Integer ; +EFloat. Exp4 ::= Double ; EMeta. Exp4 ::= "?" ; EEmpty. Exp4 ::= "[" "]" ; EData. Exp4 ::= "data" ; @@ -210,6 +211,7 @@ PV. Patt1 ::= Ident ; PCon. Patt1 ::= "{" Ident "}" ; PQ. Patt1 ::= Ident "." Ident ; PInt. Patt1 ::= Integer ; +PFloat. Patt1 ::= Double ; PStr. Patt1 ::= String ; PR. Patt1 ::= "{" [PattAss] "}" ; PTup. Patt1 ::= "<" [PattTupleComp] ">" ; diff --git a/src/GF/Source/GrammarToSource.hs b/src/GF/Source/GrammarToSource.hs index ee54d7a16..8375af2af 100644 --- a/src/GF/Source/GrammarToSource.hs +++ b/src/GF/Source/GrammarToSource.hs @@ -172,7 +172,8 @@ trt trm = case trm of K a -> P.EString a C a b -> P.EConcat (trt a) (trt b) - EInt i -> P.EInt $ toInteger i + EInt i -> P.EInt i + EFloat i -> P.EFloat i Glue a b -> P.EGlue (trt a) (trt b) Alts (t, tt) -> P.EPre (trt t) [P.Alt (trt v) (trt c) | (v,c) <- tt] @@ -192,7 +193,8 @@ trp p = case p of PP p c a -> P.PQC (tri p) (tri c) (map trp a) PR r -> P.PR [P.PA [trLabelIdent l] (trp p) | (l,p) <- r] PString s -> P.PStr s - PInt i -> P.PInt $ toInteger i + PInt i -> P.PInt i + PFloat i -> P.PFloat i PT t p -> trp p ---- prParenth (prt p +++ ":" +++ prt t) diff --git a/src/GF/Source/LexGF.hs b/src/GF/Source/LexGF.hs index 5bb731698..d29f702b8 100644 --- a/src/GF/Source/LexGF.hs +++ b/src/GF/Source/LexGF.hs @@ -5,6 +5,12 @@ module GF.Source.LexGF where -- H import GF.Data.ErrM -- H import GF.Data.SharedString -- H + +#if __GLASGOW_HASKELL__ >= 603 +#include "ghcconfig.h" +#else +#include "config.h" +#endif #if __GLASGOW_HASKELL__ >= 503 import Data.Array import Data.Char (ord) @@ -19,24 +25,24 @@ import GHC.Exts 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_base = AlexA# "\x01\x00\x00\x00\x15\x00\x00\x00\x39\x00\x00\x00\x3a\x00\x00\x00\x18\x00\x00\x00\x19\x00\x00\x00\x1a\x00\x00\x00\x00\x00\x00\x00\x44\x00\x00\x00\x45\x00\x00\x00\x1b\x00\x00\x00\x1c\x00\x00\x00\x1d\x00\x00\x00\x42\x00\x00\x00\x00\x00\x00\x00\x26\x00\x00\x00\x13\x00\x00\x00\x27\x00\x00\x00\x00\x00\x00\x00\x2c\x00\x00\x00\x9c\x00\x00\x00\x00\x00\x00\x00\x17\x01\x00\x00\xd5\x00\x00\x00\x35\x00\x00\x00\xe7\x00\x00\x00\xf2\x00\x00\x00\x1d\x01\x00\x00\x6c\x01\x00\x00\x79\x01\x00\x00"# 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_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\x16\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\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x0e\x00\x0e\x00\x0e\x00\x10\x00\x0e\x00\x0e\x00\x0e\x00\x04\x00\xff\xff\xff\xff\x03\x00\x03\x00\x09\x00\x09\x00\x09\x00\x0b\x00\x0d\x00\x0d\x00\x0d\x00\x0d\x00\x0d\x00\x0e\x00\x0e\x00\x0e\x00\x12\x00\x00\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\x00\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\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\x14\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x00\x00\x00\x00\xff\xff\x00\x00\x00\x00\x00\x00\x00\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x16\x00\xff\xff\x00\x00\x00\x00\x14\x00\x16\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x19\x00\x19\x00\x19\x00\x19\x00\x19\x00\x19\x00\x19\x00\x19\x00\x19\x00\x19\x00\xff\xff\x1a\x00\x1a\x00\x1a\x00\x1a\x00\x1a\x00\x1a\x00\x1a\x00\x1a\x00\x1a\x00\x1a\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x16\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x15\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x16\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x16\x00\x00\x00\x00\x00\x1d\x00\x19\x00\x19\x00\x19\x00\x19\x00\x19\x00\x19\x00\x19\x00\x19\x00\x19\x00\x19\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x17\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x00\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x14\x00\x1a\x00\x1a\x00\x1a\x00\x1a\x00\x1a\x00\x1a\x00\x1a\x00\x1a\x00\x1a\x00\x1a\x00\x1c\x00\x00\x00\x00\x00\x1a\x00\x1a\x00\x1a\x00\x1a\x00\x1a\x00\x1a\x00\x1a\x00\x1a\x00\x1a\x00\x1a\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\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 :: 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_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\xff\xff\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\x2e\x00\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\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\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x39\x00\x0a\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\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\x65\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\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\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x39\x00\x2d\x00\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\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\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 :: 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_deflt = AlexA# "\x14\x00\xff\xff\x02\x00\x02\x00\xff\xff\xff\xff\x0a\x00\xff\xff\x0a\x00\x0a\x00\x0a\x00\x0a\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x13\x00\xff\xff\xff\xff\x16\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\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))]] +alex_accept = listArray (0::Int,29) [[],[],[(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_6))],[],[],[(AlexAcc (alex_action_7))],[(AlexAcc (alex_action_8))],[(AlexAcc (alex_action_8))],[],[],[]] {-# LINE 35 "LexGF.x" #-} tok f p s = f p s share :: String -> String -share = shareString +share = shareString --H data Tok = TS !String -- reserved words @@ -139,6 +145,7 @@ 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)) +alex_action_8 = tok (\p s -> PT p (TD $ share s)) {-# LINE 1 "GenericTemplate.hs" #-} {-# LINE 1 "" #-} {-# LINE 1 "" #-} @@ -165,26 +172,57 @@ alex_action_7 = tok (\p s -> PT p (TI $ share 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# +#if __GLASGOW_HASKELL__ < 503 +uncheckedShiftL# = shiftL# #endif + +{-# INLINE alexIndexInt16OffAddr #-} +alexIndexInt16OffAddr (AlexA# arr) off = +#ifdef WORDS_BIGENDIAN + narrow16Int# i where -#if __GLASGOW_HASKELL__ >= 503 - i = word2Int# ((high `uncheckedShiftL#` 8#) `or#` low) -#else - i = word2Int# ((high `shiftL#` 8#) `or#` low) -#endif + i = word2Int# ((high `uncheckedShiftL#` 8#) `or#` low) high = int2Word# (ord# (indexCharOffAddr# arr (off' +# 1#))) low = int2Word# (ord# (indexCharOffAddr# arr off')) off' = off *# 2# +#else + indexInt16OffAddr# arr off +#endif + + + + + +{-# INLINE alexIndexInt32OffAddr #-} +alexIndexInt32OffAddr (AlexA# arr) off = +#ifdef WORDS_BIGENDIAN + narrow32Int# i + where + i = word2Int# ((b3 `uncheckedShiftL#` 24#) `or#` + (b2 `uncheckedShiftL#` 16#) `or#` + (b1 `uncheckedShiftL#` 8#) `or#` b0) + b3 = int2Word# (ord# (indexCharOffAddr# arr (off' +# 3#))) + b2 = int2Word# (ord# (indexCharOffAddr# arr (off' +# 2#))) + b1 = int2Word# (ord# (indexCharOffAddr# arr (off' +# 1#))) + b0 = int2Word# (ord# (indexCharOffAddr# arr off')) + off' = off *# 4# +#else + indexInt32OffAddr# arr off +#endif + + + + + +#if __GLASGOW_HASKELL__ < 503 +quickIndex arr i = arr ! i +#else +-- GHC >= 503, unsafeAt is available from Data.Array.Base. +quickIndex = unsafeAt +#endif @@ -215,7 +253,7 @@ alexScanUser user input (I# (sc)) - AlexError input + AlexError input' (AlexLastSkip input len, _) -> @@ -241,7 +279,7 @@ 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` (I# (s))) + new_acc = check_accs (alex_accept `quickIndex` (I# (s))) in new_acc `seq` case alexGetChar input of @@ -251,14 +289,14 @@ alex_scan_tkn' user orig_input len input s last_acc = let - base = alexIndexShortOffAddr alex_base s + base = alexIndexInt32OffAddr alex_base s (I# (ord_c)) = ord c offset = (base +# ord_c) - check = alexIndexShortOffAddr alex_check offset + check = alexIndexInt16OffAddr alex_check offset new_s = if (offset >=# 0#) && (check ==# ord_c) - then alexIndexShortOffAddr alex_table offset - else alexIndexShortOffAddr alex_deflt s + then alexIndexInt16OffAddr alex_table offset + else alexIndexInt16OffAddr alex_deflt s in alex_scan_tkn user orig_input (len +# 1#) new_input new_s new_acc diff --git a/src/GF/Source/ParGF.hs b/src/GF/Source/ParGF.hs index f931537c5..3f22068bf 100644 --- a/src/GF/Source/ParGF.hs +++ b/src/GF/Source/ParGF.hs @@ -32,274 +32,274 @@ happyIn9 x = unsafeCoerce# x happyOut9 :: (HappyAbsSyn ) -> (String) happyOut9 x = unsafeCoerce# x {-# INLINE happyOut9 #-} -happyIn10 :: (LString) -> (HappyAbsSyn ) +happyIn10 :: (Double) -> (HappyAbsSyn ) happyIn10 x = unsafeCoerce# x {-# INLINE happyIn10 #-} -happyOut10 :: (HappyAbsSyn ) -> (LString) +happyOut10 :: (HappyAbsSyn ) -> (Double) happyOut10 x = unsafeCoerce# x {-# INLINE happyOut10 #-} -happyIn11 :: (Grammar) -> (HappyAbsSyn ) +happyIn11 :: (LString) -> (HappyAbsSyn ) happyIn11 x = unsafeCoerce# x {-# INLINE happyIn11 #-} -happyOut11 :: (HappyAbsSyn ) -> (Grammar) +happyOut11 :: (HappyAbsSyn ) -> (LString) happyOut11 x = unsafeCoerce# x {-# INLINE happyOut11 #-} -happyIn12 :: ([ModDef]) -> (HappyAbsSyn ) +happyIn12 :: (Grammar) -> (HappyAbsSyn ) happyIn12 x = unsafeCoerce# x {-# INLINE happyIn12 #-} -happyOut12 :: (HappyAbsSyn ) -> ([ModDef]) +happyOut12 :: (HappyAbsSyn ) -> (Grammar) happyOut12 x = unsafeCoerce# x {-# INLINE happyOut12 #-} -happyIn13 :: (ModDef) -> (HappyAbsSyn ) +happyIn13 :: ([ModDef]) -> (HappyAbsSyn ) happyIn13 x = unsafeCoerce# x {-# INLINE happyIn13 #-} -happyOut13 :: (HappyAbsSyn ) -> (ModDef) +happyOut13 :: (HappyAbsSyn ) -> ([ModDef]) happyOut13 x = unsafeCoerce# x {-# INLINE happyOut13 #-} -happyIn14 :: (ConcSpec) -> (HappyAbsSyn ) +happyIn14 :: (ModDef) -> (HappyAbsSyn ) happyIn14 x = unsafeCoerce# x {-# INLINE happyIn14 #-} -happyOut14 :: (HappyAbsSyn ) -> (ConcSpec) +happyOut14 :: (HappyAbsSyn ) -> (ModDef) happyOut14 x = unsafeCoerce# x {-# INLINE happyOut14 #-} -happyIn15 :: ([ConcSpec]) -> (HappyAbsSyn ) +happyIn15 :: (ConcSpec) -> (HappyAbsSyn ) happyIn15 x = unsafeCoerce# x {-# INLINE happyIn15 #-} -happyOut15 :: (HappyAbsSyn ) -> ([ConcSpec]) +happyOut15 :: (HappyAbsSyn ) -> (ConcSpec) happyOut15 x = unsafeCoerce# x {-# INLINE happyOut15 #-} -happyIn16 :: (ConcExp) -> (HappyAbsSyn ) +happyIn16 :: ([ConcSpec]) -> (HappyAbsSyn ) happyIn16 x = unsafeCoerce# x {-# INLINE happyIn16 #-} -happyOut16 :: (HappyAbsSyn ) -> (ConcExp) +happyOut16 :: (HappyAbsSyn ) -> ([ConcSpec]) happyOut16 x = unsafeCoerce# x {-# INLINE happyOut16 #-} -happyIn17 :: ([Transfer]) -> (HappyAbsSyn ) +happyIn17 :: (ConcExp) -> (HappyAbsSyn ) happyIn17 x = unsafeCoerce# x {-# INLINE happyIn17 #-} -happyOut17 :: (HappyAbsSyn ) -> ([Transfer]) +happyOut17 :: (HappyAbsSyn ) -> (ConcExp) happyOut17 x = unsafeCoerce# x {-# INLINE happyOut17 #-} -happyIn18 :: (Transfer) -> (HappyAbsSyn ) +happyIn18 :: ([Transfer]) -> (HappyAbsSyn ) happyIn18 x = unsafeCoerce# x {-# INLINE happyIn18 #-} -happyOut18 :: (HappyAbsSyn ) -> (Transfer) +happyOut18 :: (HappyAbsSyn ) -> ([Transfer]) happyOut18 x = unsafeCoerce# x {-# INLINE happyOut18 #-} -happyIn19 :: (ModType) -> (HappyAbsSyn ) +happyIn19 :: (Transfer) -> (HappyAbsSyn ) happyIn19 x = unsafeCoerce# x {-# INLINE happyIn19 #-} -happyOut19 :: (HappyAbsSyn ) -> (ModType) +happyOut19 :: (HappyAbsSyn ) -> (Transfer) happyOut19 x = unsafeCoerce# x {-# INLINE happyOut19 #-} -happyIn20 :: (ModBody) -> (HappyAbsSyn ) +happyIn20 :: (ModType) -> (HappyAbsSyn ) happyIn20 x = unsafeCoerce# x {-# INLINE happyIn20 #-} -happyOut20 :: (HappyAbsSyn ) -> (ModBody) +happyOut20 :: (HappyAbsSyn ) -> (ModType) happyOut20 x = unsafeCoerce# x {-# INLINE happyOut20 #-} -happyIn21 :: ([TopDef]) -> (HappyAbsSyn ) +happyIn21 :: (ModBody) -> (HappyAbsSyn ) happyIn21 x = unsafeCoerce# x {-# INLINE happyIn21 #-} -happyOut21 :: (HappyAbsSyn ) -> ([TopDef]) +happyOut21 :: (HappyAbsSyn ) -> (ModBody) happyOut21 x = unsafeCoerce# x {-# INLINE happyOut21 #-} -happyIn22 :: (Extend) -> (HappyAbsSyn ) +happyIn22 :: ([TopDef]) -> (HappyAbsSyn ) happyIn22 x = unsafeCoerce# x {-# INLINE happyIn22 #-} -happyOut22 :: (HappyAbsSyn ) -> (Extend) +happyOut22 :: (HappyAbsSyn ) -> ([TopDef]) happyOut22 x = unsafeCoerce# x {-# INLINE happyOut22 #-} -happyIn23 :: ([Open]) -> (HappyAbsSyn ) +happyIn23 :: (Extend) -> (HappyAbsSyn ) happyIn23 x = unsafeCoerce# x {-# INLINE happyIn23 #-} -happyOut23 :: (HappyAbsSyn ) -> ([Open]) +happyOut23 :: (HappyAbsSyn ) -> (Extend) happyOut23 x = unsafeCoerce# x {-# INLINE happyOut23 #-} -happyIn24 :: (Opens) -> (HappyAbsSyn ) +happyIn24 :: ([Open]) -> (HappyAbsSyn ) happyIn24 x = unsafeCoerce# x {-# INLINE happyIn24 #-} -happyOut24 :: (HappyAbsSyn ) -> (Opens) +happyOut24 :: (HappyAbsSyn ) -> ([Open]) happyOut24 x = unsafeCoerce# x {-# INLINE happyOut24 #-} -happyIn25 :: (Open) -> (HappyAbsSyn ) +happyIn25 :: (Opens) -> (HappyAbsSyn ) happyIn25 x = unsafeCoerce# x {-# INLINE happyIn25 #-} -happyOut25 :: (HappyAbsSyn ) -> (Open) +happyOut25 :: (HappyAbsSyn ) -> (Opens) happyOut25 x = unsafeCoerce# x {-# INLINE happyOut25 #-} -happyIn26 :: (ComplMod) -> (HappyAbsSyn ) +happyIn26 :: (Open) -> (HappyAbsSyn ) happyIn26 x = unsafeCoerce# x {-# INLINE happyIn26 #-} -happyOut26 :: (HappyAbsSyn ) -> (ComplMod) +happyOut26 :: (HappyAbsSyn ) -> (Open) happyOut26 x = unsafeCoerce# x {-# INLINE happyOut26 #-} -happyIn27 :: (QualOpen) -> (HappyAbsSyn ) +happyIn27 :: (ComplMod) -> (HappyAbsSyn ) happyIn27 x = unsafeCoerce# x {-# INLINE happyIn27 #-} -happyOut27 :: (HappyAbsSyn ) -> (QualOpen) +happyOut27 :: (HappyAbsSyn ) -> (ComplMod) happyOut27 x = unsafeCoerce# x {-# INLINE happyOut27 #-} -happyIn28 :: ([Included]) -> (HappyAbsSyn ) +happyIn28 :: (QualOpen) -> (HappyAbsSyn ) happyIn28 x = unsafeCoerce# x {-# INLINE happyIn28 #-} -happyOut28 :: (HappyAbsSyn ) -> ([Included]) +happyOut28 :: (HappyAbsSyn ) -> (QualOpen) happyOut28 x = unsafeCoerce# x {-# INLINE happyOut28 #-} -happyIn29 :: (Included) -> (HappyAbsSyn ) +happyIn29 :: ([Included]) -> (HappyAbsSyn ) happyIn29 x = unsafeCoerce# x {-# INLINE happyIn29 #-} -happyOut29 :: (HappyAbsSyn ) -> (Included) +happyOut29 :: (HappyAbsSyn ) -> ([Included]) happyOut29 x = unsafeCoerce# x {-# INLINE happyOut29 #-} -happyIn30 :: (Def) -> (HappyAbsSyn ) +happyIn30 :: (Included) -> (HappyAbsSyn ) happyIn30 x = unsafeCoerce# x {-# INLINE happyIn30 #-} -happyOut30 :: (HappyAbsSyn ) -> (Def) +happyOut30 :: (HappyAbsSyn ) -> (Included) happyOut30 x = unsafeCoerce# x {-# INLINE happyOut30 #-} -happyIn31 :: (TopDef) -> (HappyAbsSyn ) +happyIn31 :: (Def) -> (HappyAbsSyn ) happyIn31 x = unsafeCoerce# x {-# INLINE happyIn31 #-} -happyOut31 :: (HappyAbsSyn ) -> (TopDef) +happyOut31 :: (HappyAbsSyn ) -> (Def) happyOut31 x = unsafeCoerce# x {-# INLINE happyOut31 #-} -happyIn32 :: (CatDef) -> (HappyAbsSyn ) +happyIn32 :: (TopDef) -> (HappyAbsSyn ) happyIn32 x = unsafeCoerce# x {-# INLINE happyIn32 #-} -happyOut32 :: (HappyAbsSyn ) -> (CatDef) +happyOut32 :: (HappyAbsSyn ) -> (TopDef) happyOut32 x = unsafeCoerce# x {-# INLINE happyOut32 #-} -happyIn33 :: (FunDef) -> (HappyAbsSyn ) +happyIn33 :: (CatDef) -> (HappyAbsSyn ) happyIn33 x = unsafeCoerce# x {-# INLINE happyIn33 #-} -happyOut33 :: (HappyAbsSyn ) -> (FunDef) +happyOut33 :: (HappyAbsSyn ) -> (CatDef) happyOut33 x = unsafeCoerce# x {-# INLINE happyOut33 #-} -happyIn34 :: (DataDef) -> (HappyAbsSyn ) +happyIn34 :: (FunDef) -> (HappyAbsSyn ) happyIn34 x = unsafeCoerce# x {-# INLINE happyIn34 #-} -happyOut34 :: (HappyAbsSyn ) -> (DataDef) +happyOut34 :: (HappyAbsSyn ) -> (FunDef) happyOut34 x = unsafeCoerce# x {-# INLINE happyOut34 #-} -happyIn35 :: (DataConstr) -> (HappyAbsSyn ) +happyIn35 :: (DataDef) -> (HappyAbsSyn ) happyIn35 x = unsafeCoerce# x {-# INLINE happyIn35 #-} -happyOut35 :: (HappyAbsSyn ) -> (DataConstr) +happyOut35 :: (HappyAbsSyn ) -> (DataDef) happyOut35 x = unsafeCoerce# x {-# INLINE happyOut35 #-} -happyIn36 :: ([DataConstr]) -> (HappyAbsSyn ) +happyIn36 :: (DataConstr) -> (HappyAbsSyn ) happyIn36 x = unsafeCoerce# x {-# INLINE happyIn36 #-} -happyOut36 :: (HappyAbsSyn ) -> ([DataConstr]) +happyOut36 :: (HappyAbsSyn ) -> (DataConstr) happyOut36 x = unsafeCoerce# x {-# INLINE happyOut36 #-} -happyIn37 :: (ParDef) -> (HappyAbsSyn ) +happyIn37 :: ([DataConstr]) -> (HappyAbsSyn ) happyIn37 x = unsafeCoerce# x {-# INLINE happyIn37 #-} -happyOut37 :: (HappyAbsSyn ) -> (ParDef) +happyOut37 :: (HappyAbsSyn ) -> ([DataConstr]) happyOut37 x = unsafeCoerce# x {-# INLINE happyOut37 #-} -happyIn38 :: (ParConstr) -> (HappyAbsSyn ) +happyIn38 :: (ParDef) -> (HappyAbsSyn ) happyIn38 x = unsafeCoerce# x {-# INLINE happyIn38 #-} -happyOut38 :: (HappyAbsSyn ) -> (ParConstr) +happyOut38 :: (HappyAbsSyn ) -> (ParDef) happyOut38 x = unsafeCoerce# x {-# INLINE happyOut38 #-} -happyIn39 :: (PrintDef) -> (HappyAbsSyn ) +happyIn39 :: (ParConstr) -> (HappyAbsSyn ) happyIn39 x = unsafeCoerce# x {-# INLINE happyIn39 #-} -happyOut39 :: (HappyAbsSyn ) -> (PrintDef) +happyOut39 :: (HappyAbsSyn ) -> (ParConstr) happyOut39 x = unsafeCoerce# x {-# INLINE happyOut39 #-} -happyIn40 :: (FlagDef) -> (HappyAbsSyn ) +happyIn40 :: (PrintDef) -> (HappyAbsSyn ) happyIn40 x = unsafeCoerce# x {-# INLINE happyIn40 #-} -happyOut40 :: (HappyAbsSyn ) -> (FlagDef) +happyOut40 :: (HappyAbsSyn ) -> (PrintDef) happyOut40 x = unsafeCoerce# x {-# INLINE happyOut40 #-} -happyIn41 :: ([Def]) -> (HappyAbsSyn ) +happyIn41 :: (FlagDef) -> (HappyAbsSyn ) happyIn41 x = unsafeCoerce# x {-# INLINE happyIn41 #-} -happyOut41 :: (HappyAbsSyn ) -> ([Def]) +happyOut41 :: (HappyAbsSyn ) -> (FlagDef) happyOut41 x = unsafeCoerce# x {-# INLINE happyOut41 #-} -happyIn42 :: ([CatDef]) -> (HappyAbsSyn ) +happyIn42 :: ([Def]) -> (HappyAbsSyn ) happyIn42 x = unsafeCoerce# x {-# INLINE happyIn42 #-} -happyOut42 :: (HappyAbsSyn ) -> ([CatDef]) +happyOut42 :: (HappyAbsSyn ) -> ([Def]) happyOut42 x = unsafeCoerce# x {-# INLINE happyOut42 #-} -happyIn43 :: ([FunDef]) -> (HappyAbsSyn ) +happyIn43 :: ([CatDef]) -> (HappyAbsSyn ) happyIn43 x = unsafeCoerce# x {-# INLINE happyIn43 #-} -happyOut43 :: (HappyAbsSyn ) -> ([FunDef]) +happyOut43 :: (HappyAbsSyn ) -> ([CatDef]) happyOut43 x = unsafeCoerce# x {-# INLINE happyOut43 #-} -happyIn44 :: ([DataDef]) -> (HappyAbsSyn ) +happyIn44 :: ([FunDef]) -> (HappyAbsSyn ) happyIn44 x = unsafeCoerce# x {-# INLINE happyIn44 #-} -happyOut44 :: (HappyAbsSyn ) -> ([DataDef]) +happyOut44 :: (HappyAbsSyn ) -> ([FunDef]) happyOut44 x = unsafeCoerce# x {-# INLINE happyOut44 #-} -happyIn45 :: ([ParDef]) -> (HappyAbsSyn ) +happyIn45 :: ([DataDef]) -> (HappyAbsSyn ) happyIn45 x = unsafeCoerce# x {-# INLINE happyIn45 #-} -happyOut45 :: (HappyAbsSyn ) -> ([ParDef]) +happyOut45 :: (HappyAbsSyn ) -> ([DataDef]) happyOut45 x = unsafeCoerce# x {-# INLINE happyOut45 #-} -happyIn46 :: ([PrintDef]) -> (HappyAbsSyn ) +happyIn46 :: ([ParDef]) -> (HappyAbsSyn ) happyIn46 x = unsafeCoerce# x {-# INLINE happyIn46 #-} -happyOut46 :: (HappyAbsSyn ) -> ([PrintDef]) +happyOut46 :: (HappyAbsSyn ) -> ([ParDef]) happyOut46 x = unsafeCoerce# x {-# INLINE happyOut46 #-} -happyIn47 :: ([FlagDef]) -> (HappyAbsSyn ) +happyIn47 :: ([PrintDef]) -> (HappyAbsSyn ) happyIn47 x = unsafeCoerce# x {-# INLINE happyIn47 #-} -happyOut47 :: (HappyAbsSyn ) -> ([FlagDef]) +happyOut47 :: (HappyAbsSyn ) -> ([PrintDef]) happyOut47 x = unsafeCoerce# x {-# INLINE happyOut47 #-} -happyIn48 :: ([ParConstr]) -> (HappyAbsSyn ) +happyIn48 :: ([FlagDef]) -> (HappyAbsSyn ) happyIn48 x = unsafeCoerce# x {-# INLINE happyIn48 #-} -happyOut48 :: (HappyAbsSyn ) -> ([ParConstr]) +happyOut48 :: (HappyAbsSyn ) -> ([FlagDef]) happyOut48 x = unsafeCoerce# x {-# INLINE happyOut48 #-} -happyIn49 :: ([Ident]) -> (HappyAbsSyn ) +happyIn49 :: ([ParConstr]) -> (HappyAbsSyn ) happyIn49 x = unsafeCoerce# x {-# INLINE happyIn49 #-} -happyOut49 :: (HappyAbsSyn ) -> ([Ident]) +happyOut49 :: (HappyAbsSyn ) -> ([ParConstr]) happyOut49 x = unsafeCoerce# x {-# INLINE happyOut49 #-} -happyIn50 :: (Name) -> (HappyAbsSyn ) +happyIn50 :: ([Ident]) -> (HappyAbsSyn ) happyIn50 x = unsafeCoerce# x {-# INLINE happyIn50 #-} -happyOut50 :: (HappyAbsSyn ) -> (Name) +happyOut50 :: (HappyAbsSyn ) -> ([Ident]) happyOut50 x = unsafeCoerce# x {-# INLINE happyOut50 #-} -happyIn51 :: ([Name]) -> (HappyAbsSyn ) +happyIn51 :: (Name) -> (HappyAbsSyn ) happyIn51 x = unsafeCoerce# x {-# INLINE happyIn51 #-} -happyOut51 :: (HappyAbsSyn ) -> ([Name]) +happyOut51 :: (HappyAbsSyn ) -> (Name) happyOut51 x = unsafeCoerce# x {-# INLINE happyOut51 #-} -happyIn52 :: (LocDef) -> (HappyAbsSyn ) +happyIn52 :: ([Name]) -> (HappyAbsSyn ) happyIn52 x = unsafeCoerce# x {-# INLINE happyIn52 #-} -happyOut52 :: (HappyAbsSyn ) -> (LocDef) +happyOut52 :: (HappyAbsSyn ) -> ([Name]) happyOut52 x = unsafeCoerce# x {-# INLINE happyOut52 #-} -happyIn53 :: ([LocDef]) -> (HappyAbsSyn ) +happyIn53 :: (LocDef) -> (HappyAbsSyn ) happyIn53 x = unsafeCoerce# x {-# INLINE happyIn53 #-} -happyOut53 :: (HappyAbsSyn ) -> ([LocDef]) +happyOut53 :: (HappyAbsSyn ) -> (LocDef) happyOut53 x = unsafeCoerce# x {-# INLINE happyOut53 #-} -happyIn54 :: (Exp) -> (HappyAbsSyn ) +happyIn54 :: ([LocDef]) -> (HappyAbsSyn ) happyIn54 x = unsafeCoerce# x {-# INLINE happyIn54 #-} -happyOut54 :: (HappyAbsSyn ) -> (Exp) +happyOut54 :: (HappyAbsSyn ) -> ([LocDef]) happyOut54 x = unsafeCoerce# x {-# INLINE happyOut54 #-} happyIn55 :: (Exp) -> (HappyAbsSyn ) @@ -326,22 +326,22 @@ happyIn58 x = unsafeCoerce# x happyOut58 :: (HappyAbsSyn ) -> (Exp) happyOut58 x = unsafeCoerce# x {-# INLINE happyOut58 #-} -happyIn59 :: ([Exp]) -> (HappyAbsSyn ) +happyIn59 :: (Exp) -> (HappyAbsSyn ) happyIn59 x = unsafeCoerce# x {-# INLINE happyIn59 #-} -happyOut59 :: (HappyAbsSyn ) -> ([Exp]) +happyOut59 :: (HappyAbsSyn ) -> (Exp) happyOut59 x = unsafeCoerce# x {-# INLINE happyOut59 #-} -happyIn60 :: (Exps) -> (HappyAbsSyn ) +happyIn60 :: ([Exp]) -> (HappyAbsSyn ) happyIn60 x = unsafeCoerce# x {-# INLINE happyIn60 #-} -happyOut60 :: (HappyAbsSyn ) -> (Exps) +happyOut60 :: (HappyAbsSyn ) -> ([Exp]) happyOut60 x = unsafeCoerce# x {-# INLINE happyOut60 #-} -happyIn61 :: (Patt) -> (HappyAbsSyn ) +happyIn61 :: (Exps) -> (HappyAbsSyn ) happyIn61 x = unsafeCoerce# x {-# INLINE happyIn61 #-} -happyOut61 :: (HappyAbsSyn ) -> (Patt) +happyOut61 :: (HappyAbsSyn ) -> (Exps) happyOut61 x = unsafeCoerce# x {-# INLINE happyOut61 #-} happyIn62 :: (Patt) -> (HappyAbsSyn ) @@ -350,162 +350,168 @@ happyIn62 x = unsafeCoerce# x happyOut62 :: (HappyAbsSyn ) -> (Patt) happyOut62 x = unsafeCoerce# x {-# INLINE happyOut62 #-} -happyIn63 :: (PattAss) -> (HappyAbsSyn ) +happyIn63 :: (Patt) -> (HappyAbsSyn ) happyIn63 x = unsafeCoerce# x {-# INLINE happyIn63 #-} -happyOut63 :: (HappyAbsSyn ) -> (PattAss) +happyOut63 :: (HappyAbsSyn ) -> (Patt) happyOut63 x = unsafeCoerce# x {-# INLINE happyOut63 #-} -happyIn64 :: (Label) -> (HappyAbsSyn ) +happyIn64 :: (PattAss) -> (HappyAbsSyn ) happyIn64 x = unsafeCoerce# x {-# INLINE happyIn64 #-} -happyOut64 :: (HappyAbsSyn ) -> (Label) +happyOut64 :: (HappyAbsSyn ) -> (PattAss) happyOut64 x = unsafeCoerce# x {-# INLINE happyOut64 #-} -happyIn65 :: (Sort) -> (HappyAbsSyn ) +happyIn65 :: (Label) -> (HappyAbsSyn ) happyIn65 x = unsafeCoerce# x {-# INLINE happyIn65 #-} -happyOut65 :: (HappyAbsSyn ) -> (Sort) +happyOut65 :: (HappyAbsSyn ) -> (Label) happyOut65 x = unsafeCoerce# x {-# INLINE happyOut65 #-} -happyIn66 :: ([PattAss]) -> (HappyAbsSyn ) +happyIn66 :: (Sort) -> (HappyAbsSyn ) happyIn66 x = unsafeCoerce# x {-# INLINE happyIn66 #-} -happyOut66 :: (HappyAbsSyn ) -> ([PattAss]) +happyOut66 :: (HappyAbsSyn ) -> (Sort) happyOut66 x = unsafeCoerce# x {-# INLINE happyOut66 #-} -happyIn67 :: (PattAlt) -> (HappyAbsSyn ) +happyIn67 :: ([PattAss]) -> (HappyAbsSyn ) happyIn67 x = unsafeCoerce# x {-# INLINE happyIn67 #-} -happyOut67 :: (HappyAbsSyn ) -> (PattAlt) +happyOut67 :: (HappyAbsSyn ) -> ([PattAss]) happyOut67 x = unsafeCoerce# x {-# INLINE happyOut67 #-} -happyIn68 :: ([Patt]) -> (HappyAbsSyn ) +happyIn68 :: (PattAlt) -> (HappyAbsSyn ) happyIn68 x = unsafeCoerce# x {-# INLINE happyIn68 #-} -happyOut68 :: (HappyAbsSyn ) -> ([Patt]) +happyOut68 :: (HappyAbsSyn ) -> (PattAlt) happyOut68 x = unsafeCoerce# x {-# INLINE happyOut68 #-} -happyIn69 :: ([PattAlt]) -> (HappyAbsSyn ) +happyIn69 :: ([Patt]) -> (HappyAbsSyn ) happyIn69 x = unsafeCoerce# x {-# INLINE happyIn69 #-} -happyOut69 :: (HappyAbsSyn ) -> ([PattAlt]) +happyOut69 :: (HappyAbsSyn ) -> ([Patt]) happyOut69 x = unsafeCoerce# x {-# INLINE happyOut69 #-} -happyIn70 :: (Bind) -> (HappyAbsSyn ) +happyIn70 :: ([PattAlt]) -> (HappyAbsSyn ) happyIn70 x = unsafeCoerce# x {-# INLINE happyIn70 #-} -happyOut70 :: (HappyAbsSyn ) -> (Bind) +happyOut70 :: (HappyAbsSyn ) -> ([PattAlt]) happyOut70 x = unsafeCoerce# x {-# INLINE happyOut70 #-} -happyIn71 :: ([Bind]) -> (HappyAbsSyn ) +happyIn71 :: (Bind) -> (HappyAbsSyn ) happyIn71 x = unsafeCoerce# x {-# INLINE happyIn71 #-} -happyOut71 :: (HappyAbsSyn ) -> ([Bind]) +happyOut71 :: (HappyAbsSyn ) -> (Bind) happyOut71 x = unsafeCoerce# x {-# INLINE happyOut71 #-} -happyIn72 :: (Decl) -> (HappyAbsSyn ) +happyIn72 :: ([Bind]) -> (HappyAbsSyn ) happyIn72 x = unsafeCoerce# x {-# INLINE happyIn72 #-} -happyOut72 :: (HappyAbsSyn ) -> (Decl) +happyOut72 :: (HappyAbsSyn ) -> ([Bind]) happyOut72 x = unsafeCoerce# x {-# INLINE happyOut72 #-} -happyIn73 :: (TupleComp) -> (HappyAbsSyn ) +happyIn73 :: (Decl) -> (HappyAbsSyn ) happyIn73 x = unsafeCoerce# x {-# INLINE happyIn73 #-} -happyOut73 :: (HappyAbsSyn ) -> (TupleComp) +happyOut73 :: (HappyAbsSyn ) -> (Decl) happyOut73 x = unsafeCoerce# x {-# INLINE happyOut73 #-} -happyIn74 :: (PattTupleComp) -> (HappyAbsSyn ) +happyIn74 :: (TupleComp) -> (HappyAbsSyn ) happyIn74 x = unsafeCoerce# x {-# INLINE happyIn74 #-} -happyOut74 :: (HappyAbsSyn ) -> (PattTupleComp) +happyOut74 :: (HappyAbsSyn ) -> (TupleComp) happyOut74 x = unsafeCoerce# x {-# INLINE happyOut74 #-} -happyIn75 :: ([TupleComp]) -> (HappyAbsSyn ) +happyIn75 :: (PattTupleComp) -> (HappyAbsSyn ) happyIn75 x = unsafeCoerce# x {-# INLINE happyIn75 #-} -happyOut75 :: (HappyAbsSyn ) -> ([TupleComp]) +happyOut75 :: (HappyAbsSyn ) -> (PattTupleComp) happyOut75 x = unsafeCoerce# x {-# INLINE happyOut75 #-} -happyIn76 :: ([PattTupleComp]) -> (HappyAbsSyn ) +happyIn76 :: ([TupleComp]) -> (HappyAbsSyn ) happyIn76 x = unsafeCoerce# x {-# INLINE happyIn76 #-} -happyOut76 :: (HappyAbsSyn ) -> ([PattTupleComp]) +happyOut76 :: (HappyAbsSyn ) -> ([TupleComp]) happyOut76 x = unsafeCoerce# x {-# INLINE happyOut76 #-} -happyIn77 :: (Case) -> (HappyAbsSyn ) +happyIn77 :: ([PattTupleComp]) -> (HappyAbsSyn ) happyIn77 x = unsafeCoerce# x {-# INLINE happyIn77 #-} -happyOut77 :: (HappyAbsSyn ) -> (Case) +happyOut77 :: (HappyAbsSyn ) -> ([PattTupleComp]) happyOut77 x = unsafeCoerce# x {-# INLINE happyOut77 #-} -happyIn78 :: ([Case]) -> (HappyAbsSyn ) +happyIn78 :: (Case) -> (HappyAbsSyn ) happyIn78 x = unsafeCoerce# x {-# INLINE happyIn78 #-} -happyOut78 :: (HappyAbsSyn ) -> ([Case]) +happyOut78 :: (HappyAbsSyn ) -> (Case) happyOut78 x = unsafeCoerce# x {-# INLINE happyOut78 #-} -happyIn79 :: (Equation) -> (HappyAbsSyn ) +happyIn79 :: ([Case]) -> (HappyAbsSyn ) happyIn79 x = unsafeCoerce# x {-# INLINE happyIn79 #-} -happyOut79 :: (HappyAbsSyn ) -> (Equation) +happyOut79 :: (HappyAbsSyn ) -> ([Case]) happyOut79 x = unsafeCoerce# x {-# INLINE happyOut79 #-} -happyIn80 :: ([Equation]) -> (HappyAbsSyn ) +happyIn80 :: (Equation) -> (HappyAbsSyn ) happyIn80 x = unsafeCoerce# x {-# INLINE happyIn80 #-} -happyOut80 :: (HappyAbsSyn ) -> ([Equation]) +happyOut80 :: (HappyAbsSyn ) -> (Equation) happyOut80 x = unsafeCoerce# x {-# INLINE happyOut80 #-} -happyIn81 :: (Altern) -> (HappyAbsSyn ) +happyIn81 :: ([Equation]) -> (HappyAbsSyn ) happyIn81 x = unsafeCoerce# x {-# INLINE happyIn81 #-} -happyOut81 :: (HappyAbsSyn ) -> (Altern) +happyOut81 :: (HappyAbsSyn ) -> ([Equation]) happyOut81 x = unsafeCoerce# x {-# INLINE happyOut81 #-} -happyIn82 :: ([Altern]) -> (HappyAbsSyn ) +happyIn82 :: (Altern) -> (HappyAbsSyn ) happyIn82 x = unsafeCoerce# x {-# INLINE happyIn82 #-} -happyOut82 :: (HappyAbsSyn ) -> ([Altern]) +happyOut82 :: (HappyAbsSyn ) -> (Altern) happyOut82 x = unsafeCoerce# x {-# INLINE happyOut82 #-} -happyIn83 :: (DDecl) -> (HappyAbsSyn ) +happyIn83 :: ([Altern]) -> (HappyAbsSyn ) happyIn83 x = unsafeCoerce# x {-# INLINE happyIn83 #-} -happyOut83 :: (HappyAbsSyn ) -> (DDecl) +happyOut83 :: (HappyAbsSyn ) -> ([Altern]) happyOut83 x = unsafeCoerce# x {-# INLINE happyOut83 #-} -happyIn84 :: ([DDecl]) -> (HappyAbsSyn ) +happyIn84 :: (DDecl) -> (HappyAbsSyn ) happyIn84 x = unsafeCoerce# x {-# INLINE happyIn84 #-} -happyOut84 :: (HappyAbsSyn ) -> ([DDecl]) +happyOut84 :: (HappyAbsSyn ) -> (DDecl) happyOut84 x = unsafeCoerce# x {-# INLINE happyOut84 #-} -happyIn85 :: (OldGrammar) -> (HappyAbsSyn ) +happyIn85 :: ([DDecl]) -> (HappyAbsSyn ) happyIn85 x = unsafeCoerce# x {-# INLINE happyIn85 #-} -happyOut85 :: (HappyAbsSyn ) -> (OldGrammar) +happyOut85 :: (HappyAbsSyn ) -> ([DDecl]) happyOut85 x = unsafeCoerce# x {-# INLINE happyOut85 #-} -happyIn86 :: (Include) -> (HappyAbsSyn ) +happyIn86 :: (OldGrammar) -> (HappyAbsSyn ) happyIn86 x = unsafeCoerce# x {-# INLINE happyIn86 #-} -happyOut86 :: (HappyAbsSyn ) -> (Include) +happyOut86 :: (HappyAbsSyn ) -> (OldGrammar) happyOut86 x = unsafeCoerce# x {-# INLINE happyOut86 #-} -happyIn87 :: (FileName) -> (HappyAbsSyn ) +happyIn87 :: (Include) -> (HappyAbsSyn ) happyIn87 x = unsafeCoerce# x {-# INLINE happyIn87 #-} -happyOut87 :: (HappyAbsSyn ) -> (FileName) +happyOut87 :: (HappyAbsSyn ) -> (Include) happyOut87 x = unsafeCoerce# x {-# INLINE happyOut87 #-} -happyIn88 :: ([FileName]) -> (HappyAbsSyn ) +happyIn88 :: (FileName) -> (HappyAbsSyn ) happyIn88 x = unsafeCoerce# x {-# INLINE happyIn88 #-} -happyOut88 :: (HappyAbsSyn ) -> ([FileName]) +happyOut88 :: (HappyAbsSyn ) -> (FileName) happyOut88 x = unsafeCoerce# x {-# INLINE happyOut88 #-} +happyIn89 :: ([FileName]) -> (HappyAbsSyn ) +happyIn89 x = unsafeCoerce# x +{-# INLINE happyIn89 #-} +happyOut89 :: (HappyAbsSyn ) -> ([FileName]) +happyOut89 x = unsafeCoerce# x +{-# INLINE happyOut89 #-} happyInTok :: Token -> (HappyAbsSyn ) happyInTok x = unsafeCoerce# x {-# INLINE happyInTok #-} @@ -514,21 +520,21 @@ happyOutTok x = unsafeCoerce# x {-# INLINE happyOutTok #-} happyActOffsets :: HappyAddr -happyActOffsets = HappyA# "\x00\x00\x8c\x01\xef\x04\xa4\x00\xd0\x04\x00\x00\x0c\x05\x00\x00\x00\x00\x00\x00\x00\x00\x0f\x05\x2f\x01\x23\x01\xca\x04\x00\x00\x11\x05\xc6\x04\x1a\x00\x27\x00\xc6\x04\x00\x00\xa4\x00\x7c\x00\xc6\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xa4\x00\x00\x00\x0a\x05\xff\xff\x08\x05\x07\x05\x04\x02\xfb\x04\x00\x00\x00\x00\x00\x00\xa8\x04\x00\x00\x6b\x00\x0e\x00\x41\x05\xb4\x04\x00\x00\xa6\x04\xf4\x00\xf5\x04\xe8\x04\xe7\x04\x97\x04\x97\x04\x97\x04\x97\x04\x97\x04\x97\x04\x00\x00\x6b\x00\x00\x00\xdf\x04\x00\x00\x6b\x00\x6b\x00\x6b\x00\x78\x05\xa4\x00\x00\x00\x05\x02\xbb\x00\x5f\x00\x96\x04\xa4\x00\xa4\x00\xd4\x04\x8a\x02\xd5\x04\x9c\x04\x8b\x04\xbb\x00\x90\x04\x00\x00\x00\x00\xc2\x04\xc1\x04\xfe\xff\x00\x00\xc0\x04\xbb\x04\xb3\x04\x8a\x01\xd3\x01\xb7\x04\x00\x00\xaa\x01\xbc\x04\xaf\x04\x6c\x04\xfa\x02\xad\x04\xa4\x00\xd9\x00\xd9\x00\xd9\x00\xa4\x00\xa4\x00\xa4\x00\xac\x04\x94\x04\xf5\xff\xd3\x01\x00\x00\x62\x04\x00\x00\x00\x00\x4e\x04\x57\x04\x00\x00\x00\x00\x00\x00\xb2\x01\xb2\x01\xb2\x01\x00\x00\x00\x00\x00\x00\x57\x04\x57\x04\x88\x04\xa4\x00\x00\x00\x00\x00\x81\x01\x85\x04\x50\x04\x00\x00\x00\x00\xa4\x00\xa4\x00\x82\x04\xa4\x00\xfe\xff\x7e\x04\x71\x04\x00\x00\x00\x00\xbb\x00\x7a\x04\x7d\x04\x77\x04\x34\x04\xbb\x00\xbb\x00\x00\x00\x6a\x04\xa4\x00\x31\x04\xa4\x00\xa4\x00\x79\x04\x6e\x04\x67\x04\x5c\x04\x33\x02\x00\x00\x00\x00\x5b\x04\x4f\x04\x59\x04\x64\x04\xbb\x00\xa4\x00\x45\x04\x00\x00\x45\x00\x0f\x04\x44\x00\x0f\x04\x0f\x04\x44\x00\x44\x00\x44\x00\x44\x00\x44\x00\x0f\x04\x0f\x04\x44\x00\xfa\xff\x0f\x04\x44\x00\x44\x00\x00\x00\x00\x00\x00\x00\x6b\x00\x00\x00\x49\x04\x00\x00\x00\x00\x1c\x04\x19\x04\x00\x00\x2b\x00\x44\x04\x22\x04\x09\x01\x00\x00\x00\x04\x32\x04\x30\x04\xec\x03\xec\x03\xec\x03\xec\x03\x1f\x00\x00\x00\x00\x00\x33\x04\x00\x00\xfa\x00\x48\x02\xdd\x03\x00\x00\x26\x04\x12\x04\x00\x00\x18\x04\x1e\x04\x44\x00\x44\x00\x00\x00\x1d\x04\x11\x04\x00\x00\x0a\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x06\x04\x00\x00\xf9\x03\xfd\x03\xf4\x03\x00\x00\x00\x00\x19\x01\xf1\x03\x00\x00\x00\x00\x00\x00\xef\x03\x00\x00\xa0\x03\x00\x00\xce\x03\x86\x00\xd4\x03\x00\x00\xbb\x00\xa4\x00\xbb\x00\x00\x00\x93\x03\x00\x00\xa4\x00\xa4\x00\xca\x03\x00\x00\x00\x00\x00\x00\x9d\x03\x00\x00\xcd\x03\xb2\x03\xbd\x03\x3a\x01\xc2\x03\xb6\x03\xbe\x03\x00\x00\xbb\x00\xa4\x00\x00\x00\x60\x03\xbb\x00\x00\x00\x00\x00\xa4\x00\x90\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x8a\x03\x00\x00\xa6\x03\x00\x00\xa5\x03\x00\x00\x1d\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xa3\x03\x00\x00\x00\x00\x00\x00\x00\x00\x37\x03\xbb\x00\x00\x00\x00\x00\x00\x00\xbb\x00\xa4\x00\xa4\x00\x51\x03\x5a\x03\x8e\x03\x00\x00\xbb\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x39\x00\x60\x01\x1d\x03\x1d\x03\x1d\x03\x1d\x03\xa4\x00\x1d\x03\x4c\x03\x02\x03\x19\x00\x00\x00\x00\x00\xa4\x00\x22\x00\x22\x00\x00\x00\x3c\x03\xa4\x00\xa4\x00\x3a\x03\x22\x00\x00\x00\x2f\x03\x17\x02\x00\x00\x00\x00\x3b\x02\x00\x00\x00\x00\xef\x02\xef\x02\x32\x03\x15\x00\xe8\x02\x27\x03\x15\x00\x24\x03\xd5\x02\x00\x00\x16\x03\xd3\x02\x0d\x03\xf0\x02\x00\x00\xcb\x02\x00\x00\xb9\x02\x00\x00\x00\x00\x15\x00\x00\x00\xa4\x00\x11\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xee\x02\x00\x00\xc0\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xe4\x02\xe0\x02\x00\x00\xeb\x02\x00\x00\x00\x00\x00\x00\x1a\x00\x00\x00\x0e\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\xe9\x02\xdf\x02\x98\x02\x98\x02\xab\x02\x98\x02\x98\x02\x60\x01\xa4\x00\x00\x00\x00\x00\x80\x02\x15\x00\x84\x02\x00\x00\x00\x00\xd7\x02\x15\x00\xd9\x02\x8c\x02\x00\x00\x00\x00\x00\x00\x00\x00\x8c\x02\x00\x00\x00\x00\x00\x00\xd0\x02\xd1\x02\x00\x00\x00\x00\xa4\x00\x7e\x02\xbf\x02\xc7\x02\x00\x00\x00\x00\xb7\x02\xbd\x02\xbb\x02\xb3\x02\x00\x00\x6a\x02\x6a\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xb0\x02\x00\x00\x6b\x02\xed\xff\x15\x00\x15\x00\xac\x02\xa1\x02\x00\x00\x00\x00\x00\x00"# +happyActOffsets = HappyA# "\x00\x00\x39\x01\x5a\x05\xb7\x00\x3c\x05\x00\x00\x72\x05\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x76\x05\x42\x01\x72\x01\x20\x05\x00\x00\x75\x05\x25\x05\x1b\x00\xf9\xff\x25\x05\x00\x00\xb7\x00\xd9\x00\x25\x05\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xb7\x00\x00\x00\x6c\x05\xff\xff\x6b\x05\x6a\x05\x1a\x02\x69\x05\x00\x00\x00\x00\x00\x00\x00\x00\x19\x05\x00\x00\x78\x00\x0e\x00\xd4\x05\x1e\x05\x00\x00\x16\x05\x9a\x02\x5c\x05\x54\x05\x46\x05\x08\x05\x08\x05\x08\x05\x08\x05\x08\x05\x08\x05\x00\x00\x78\x00\x00\x00\x40\x05\x00\x00\x78\x00\x78\x00\x78\x00\xd6\x05\xb7\x00\x00\x00\xf3\x01\x7e\x00\x69\x00\xf4\x04\xb7\x00\xb7\x00\x2c\x05\xda\x02\x28\x05\xfe\x04\xdf\x04\x7e\x00\xe9\x04\x00\x00\x00\x00\x15\x05\x0b\x05\xf6\xff\x00\x00\x0a\x05\x04\x05\xfc\x04\x47\x02\xe8\x01\x00\x05\x00\x00\x20\x00\xfb\x04\xf6\x04\xb4\x04\x25\x02\xfa\x04\xb7\x00\xec\x00\xec\x00\xec\x00\xb7\x00\xb7\x00\xb7\x00\xf9\x04\xed\x04\x63\x00\xe8\x01\x00\x00\xae\x04\x00\x00\x00\x00\xac\x04\xab\x04\x00\x00\x00\x00\x00\x00\xc7\x01\xc7\x01\xc7\x01\x00\x00\x00\x00\x00\x00\xab\x04\xab\x04\xdd\x04\xb7\x00\x00\x00\x00\x00\x95\x01\xd6\x04\x9e\x04\x00\x00\x00\x00\xb7\x00\xb7\x00\xc8\x04\xb7\x00\xf6\xff\xdb\x04\xc9\x04\x00\x00\x00\x00\x00\x00\x7e\x00\xc0\x04\xcb\x04\xc7\x04\x7b\x04\x7e\x00\x7e\x00\x00\x00\xc5\x04\xb7\x00\x7a\x04\xb7\x00\xb7\x00\xc4\x04\xc3\x04\xbe\x04\xa0\x04\x4a\x02\x00\x00\x00\x00\xa8\x04\x96\x04\xa1\x04\x97\x04\x7e\x00\xb7\x00\x94\x04\x00\x00\x68\x00\x4b\x04\x62\x00\x4b\x04\x4b\x04\x62\x00\x62\x00\x62\x00\x62\x00\x62\x00\x4b\x04\x4b\x04\x62\x00\x97\x00\x4b\x04\x62\x00\x62\x00\x00\x00\x00\x00\x00\x00\x78\x00\x00\x00\x8f\x04\x00\x00\x00\x00\x55\x04\x4e\x04\x00\x00\x36\x00\x80\x04\x5e\x04\x9e\x00\x00\x00\x42\x04\x70\x04\x62\x04\x1f\x04\x1f\x04\x1f\x04\x1f\x04\x24\x00\x00\x00\x00\x00\x5a\x04\x00\x00\x72\x00\x91\x00\x1c\x04\x00\x00\x59\x04\x52\x04\x00\x00\x47\x04\x44\x04\x62\x00\x62\x00\x00\x00\x43\x04\x3d\x04\x00\x00\x3a\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x39\x04\x00\x00\x30\x04\x36\x04\x35\x04\x00\x00\x00\x00\x0e\x01\x34\x04\x00\x00\x00\x00\x00\x00\x32\x04\x00\x00\xe8\x03\x00\x00\x1a\x04\x98\x00\x2d\x04\x00\x00\x7e\x00\xb7\x00\x7e\x00\x00\x00\xd9\x03\x00\x00\xb7\x00\xb7\x00\x22\x04\x00\x00\x00\x00\x00\x00\xf5\x03\x00\x00\x18\x04\x02\x04\x1b\x04\x2a\x01\x10\x04\x0f\x04\xfa\x03\x00\x00\x7e\x00\xb7\x00\x00\x00\xb0\x03\x7e\x00\x00\x00\x00\x00\xb7\x00\xf2\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xe7\x03\x00\x00\xec\x03\x00\x00\xeb\x03\x00\x00\xee\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xea\x03\x00\x00\x00\x00\x00\x00\x00\x00\xa0\x03\x7e\x00\x00\x00\x00\x00\x00\x00\x7e\x00\xb7\x00\xb7\x00\xce\x03\xe9\x03\xde\x03\x00\x00\x7e\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x2a\x00\x74\x01\x9d\x03\x9d\x03\x9d\x03\x9d\x03\xb7\x00\x9d\x03\xdd\x03\x89\x03\x23\x00\x00\x00\x00\x00\xb7\x00\x05\x00\x05\x00\x00\x00\xc0\x03\xb7\x00\xb7\x00\xc9\x03\x05\x00\x00\x00\xa9\x03\xa3\x02\x00\x00\x00\x00\xc7\x02\x00\x00\x00\x00\x7e\x03\x7e\x03\xc6\x03\x1a\x00\x68\x03\xa8\x03\x1a\x00\xae\x03\x63\x03\x00\x00\x8b\x03\x61\x03\x88\x03\x65\x03\x00\x00\x46\x03\x00\x00\x33\x03\x00\x00\x00\x00\x1a\x00\x00\x00\xb7\x00\x7c\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x6e\x03\x00\x00\x4e\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x6d\x03\x66\x03\x00\x00\x60\x03\x00\x00\x00\x00\x00\x00\x1b\x00\x00\x00\x21\x01\x00\x00\x00\x00\xb7\x00\xb7\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x5e\x03\x59\x03\x09\x03\x09\x03\xd2\x02\x09\x03\x09\x03\x74\x01\xb7\x00\x00\x00\x00\x00\xea\x01\x1a\x00\xb1\x02\x00\x00\x00\x00\x53\x03\x1a\x00\x49\x03\xfd\x02\x00\x00\x00\x00\x00\x00\x00\x00\xfd\x02\x00\x00\x00\x00\x00\x00\x40\x03\x44\x03\x00\x00\x00\x00\xb7\x00\xf1\x02\x39\x03\x36\x03\x00\x00\x00\x00\x35\x03\x37\x03\x2d\x03\x29\x03\x00\x00\xdb\x02\xdb\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x21\x03\x00\x00\xcd\x02\x30\x01\x1a\x00\x1a\x00\x1e\x03\x0e\x03\x00\x00\x00\x00\x00\x00"# happyGotoOffsets :: HappyAddr -happyGotoOffsets = HappyA# "\x5d\x01\xe4\x01\xd4\xff\x06\x05\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x23\x04\x00\x00\x00\x00\x00\x00\x00\x00\x09\x04\xf9\x02\x85\x01\x9d\x02\x00\x00\xc5\x02\xa6\x00\x9c\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xf2\x04\x00\x00\x00\x00\xc1\x03\x00\x00\x00\x00\xb2\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x75\x02\x04\x00\x00\x00\x8d\x02\x7b\x02\x00\x00\x00\x00\x53\x01\x00\x00\x00\x00\x00\x00\x71\x02\x70\x02\x5d\x02\x30\x02\x1e\x02\x13\x02\x00\x00\x0c\x00\x00\x00\x00\x00\x00\x00\x0b\x00\x08\x00\x07\x00\xfa\x01\x44\x03\x00\x00\x00\x00\x3e\x02\xe5\x04\x06\x02\x2e\x03\xd2\x04\x00\x00\x00\x00\x00\x00\x00\x00\xea\x02\x5e\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x99\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0e\x05\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xfd\x01\x00\x00\x00\x00\xbe\x04\x9f\x02\x5e\x02\x0a\x02\xaa\x04\x9e\x04\x8a\x04\x00\x00\x00\x00\x10\x00\xdf\x01\x00\x00\xed\x01\x00\x00\x00\x00\xfb\x01\xc1\x01\x00\x00\x00\x00\x00\x00\xdb\x03\xdb\x03\xdb\x03\x00\x00\x00\x00\x00\x00\x8e\x00\xec\x01\x00\x00\x76\x04\x00\x00\x00\x00\xfa\x04\x00\x00\xe9\x01\x00\x00\x00\x00\x64\x02\x63\x04\x00\x00\x56\x04\x56\x00\x00\x00\x00\x00\x00\x00\x00\x00\x70\x03\x00\x00\x00\x00\x00\x00\xcb\x00\xe6\x01\x9a\x00\x00\x00\x00\x00\x42\x04\x6f\x01\x2f\x04\x1b\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x6d\x02\x22\x03\x00\x00\x00\x00\xd7\x01\x75\x05\x6c\x05\xce\x00\x60\x05\x69\x05\x3f\x05\x5d\x05\x5a\x05\x4d\x05\xd9\x01\x8c\x00\x4b\x05\x30\x05\xc9\x01\x2d\x05\x27\x05\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x9b\x05\x00\x00\x00\x00\x00\x00\x00\x00\xa2\x01\x00\x00\x00\x00\xa8\x01\x79\x01\x90\x01\x7a\x01\xb8\x01\x00\x00\x00\x00\x00\x00\x00\x00\x2d\x02\x00\x00\x67\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x2a\x05\x1a\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\x0b\x01\x00\x00\x00\x00\x4d\x01\x00\x00\x00\x00\xdb\x01\x00\x00\x00\x00\x54\x02\x0e\x04\x89\x01\x00\x00\x42\x01\x00\x00\x0f\x03\x28\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\x0d\x01\xfb\x03\x00\x00\x33\x01\x74\x01\x00\x00\x00\x00\xe7\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\xca\x00\x95\x01\x00\x00\x00\x00\x00\x00\x7a\x00\xd3\x03\xc7\x03\x00\x00\x00\x00\x00\x00\x00\x00\x68\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xc5\x00\x4b\x01\x14\x00\x10\x01\x5c\x02\xba\x00\xee\x00\xb3\x03\x03\x03\x00\x00\x18\x00\x2a\x01\x00\x00\x00\x00\x9f\x03\x74\x00\x4c\x01\x00\x00\x00\x00\x8c\x03\x7f\x03\x00\x00\x6d\x04\x00\x00\x00\x00\xf7\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x8f\x00\xe0\x00\x00\x00\xe1\x03\x30\x00\x00\x00\xa8\x03\x00\x00\xd5\x00\x00\x00\x00\x00\x29\x00\x00\x00\x00\x00\xb3\x00\x00\x00\x00\x00\xbc\x00\x00\x00\x00\x00\x8d\x01\x00\x00\x6a\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x50\x00\x00\x00\x00\x00\x00\x00\x00\x00\xa5\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xdb\x02\x00\x00\x14\x00\x00\x00\x00\x00\x02\x02\x64\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x12\x00\x83\x00\x6e\x00\x6c\x00\xe1\x00\x14\x00\x57\x03\x00\x00\x00\x00\x00\x00\x77\x02\x34\x00\x00\x00\x00\x00\x00\x00\xb6\x01\x00\x00\x76\x02\x00\x00\x00\x00\x00\x00\x00\x00\x47\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x4a\x03\x3f\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xf1\x01\x13\x00\x00\x00\x00\x00\x00\x00\x28\x00\x00\x00\x00\x00\x2c\x00\x00\x00\x00\x00\x00\x00\x17\x01\xda\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"# +happyGotoOffsets = HappyA# "\x09\x02\xaa\x01\xd4\xff\x78\x05\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xe3\x03\x00\x00\x00\x00\x00\x00\x00\x00\x3b\x04\x1b\x03\xf5\x01\x0d\x03\x00\x00\x9d\x02\xa0\x00\x0b\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x63\x05\x00\x00\x00\x00\xf1\x03\x00\x00\x00\x00\xb1\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xf6\x02\x04\x00\x00\x00\xf7\x02\xf5\x02\x00\x00\x00\x00\x93\x00\x00\x00\x00\x00\x00\x00\xf0\x02\xea\x02\xe4\x02\xe3\x02\xde\x02\xcc\x02\x00\x00\x0c\x00\x00\x00\x00\x00\x00\x00\x0b\x00\x08\x00\x07\x00\xa5\x02\x86\x03\x00\x00\x00\x00\x73\x01\x4f\x05\xbd\x02\x6a\x03\x43\x05\x00\x00\x00\x00\x00\x00\x00\x00\x19\x03\x1e\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x8f\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x57\x05\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xab\x02\x00\x00\x00\x00\x2e\x05\x28\x03\xc2\x02\x20\x02\x1a\x05\x07\x05\xf2\x04\x00\x00\x00\x00\x12\x00\x54\x04\x00\x00\x91\x02\x00\x00\x00\x00\xa6\x02\x03\x02\x00\x00\x00\x00\x00\x00\x80\x02\x80\x02\x80\x02\x00\x00\x00\x00\x00\x00\x30\x00\x93\x02\x00\x00\xe5\x04\x00\x00\x00\x00\x79\x02\x00\x00\x8d\x02\x00\x00\x00\x00\x86\x02\xd2\x04\x00\x00\xbd\x04\x31\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x06\x04\x00\x00\x00\x00\x00\x00\x13\x01\xda\x01\x19\x01\x00\x00\x00\x00\xa9\x04\x7e\x01\x9d\x04\x88\x04\x00\x00\x00\x00\x00\x00\x00\x00\x96\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x6b\x02\x50\x03\x00\x00\x00\x00\xdb\x00\xcb\x05\xc2\x05\x58\x01\xd2\x05\xbe\x05\xa0\x05\xb6\x05\x9d\x05\x9a\x05\x8c\x02\xae\x01\x12\x05\x8f\x05\x61\x02\x10\x05\x6d\x04\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x8d\x01\x00\x00\x00\x00\x00\x00\x00\x00\x44\x02\x00\x00\x00\x00\x41\x02\x28\x02\x30\x02\x27\x02\x78\x02\x00\x00\x00\x00\x00\x00\x00\x00\x77\x03\x00\x00\x26\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x8c\x05\xe9\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\xd0\x01\x00\x00\x00\x00\xde\x01\x00\x00\x00\x00\x20\x03\x00\x00\x00\x00\x5d\x02\x74\x04\xeb\x00\x00\x00\xb9\x01\x00\x00\x34\x03\x43\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\x19\x00\x61\x04\x00\x00\xa8\x01\xc5\x01\x00\x00\x00\x00\x4c\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x12\x01\xce\x01\x00\x00\x00\x00\x00\x00\xd1\x00\x3f\x04\x2c\x04\x00\x00\x00\x00\x00\x00\x00\x00\x6f\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x61\x01\xa1\x00\x14\x00\x2e\x00\x25\x03\x1d\x01\x89\x01\x17\x04\x57\x01\x00\x00\x59\x01\x9f\x01\x00\x00\x00\x00\xf7\x03\xb1\x00\xd3\x01\x00\x00\x00\x00\xdb\x03\xcf\x03\x00\x00\xb3\x01\x00\x00\x00\x00\x84\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x21\x00\x83\x01\x00\x00\x9b\x02\x22\x00\x00\x00\x7f\x02\x00\x00\x7d\x01\x00\x00\x00\x00\x1d\x00\x00\x00\x00\x00\x5d\x01\x00\x00\x00\x00\x5a\x01\x00\x00\x00\x00\x2d\x02\x00\x00\xc2\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xe9\x00\x00\x00\x00\x00\x00\x00\x00\x00\xe4\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xff\x02\x00\x00\x14\x00\x00\x00\x00\x00\x18\x02\xa6\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xd4\x01\xb0\x00\xcf\x00\xa4\x00\x36\x01\x14\x00\x8c\x03\x00\x00\x00\x00\x00\x00\x16\x01\x65\x00\x00\x00\x00\x00\x00\x00\x92\x00\x00\x00\xf9\x00\x00\x00\x00\x00\x00\x00\x00\x00\x13\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x70\x03\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x96\x00\x25\x00\x00\x00\x00\x00\x00\x00\x5a\x00\x00\x00\x00\x00\x27\x00\x00\x00\x00\x00\x00\x00\xee\x01\x48\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"# happyDefActions :: HappyAddr -happyDefActions = HappyA# "\xf6\xff\xd1\xff\x12\xff\x00\x00\x00\x00\xfb\xff\x81\xff\x7c\xff\x7d\xff\x71\xff\x6d\xff\x63\xff\x5e\xff\x53\xff\x00\x00\x7e\xff\x00\x00\x84\xff\x2f\xff\x00\x00\x00\x00\x7b\xff\x28\xff\x2f\xff\x00\x00\x3d\xff\x3b\xff\x3a\xff\x3c\xff\x3e\xff\x00\x00\x79\xff\x00\x00\x84\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\x0f\xff\x10\xff\x00\x00\x11\xff\x00\x00\x00\x00\x00\x00\x13\xff\x52\xff\x81\xff\x00\x00\x84\xff\x00\x00\x00\x00\x52\xff\x00\x00\x8d\xff\x00\x00\x83\xff\x00\x00\x84\xff\x1e\xff\x00\x00\x62\xff\x31\xff\x2e\xff\x00\x00\x2f\xff\x30\xff\x2a\xff\x27\xff\x00\x00\x00\x00\x4f\xff\x00\x00\x7a\xff\x81\xff\x00\x00\x00\x00\x00\x00\x8d\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x6c\xff\x00\x00\x00\x00\x64\xff\x84\xff\x40\xff\x70\xff\x00\x00\x84\xff\x58\xff\x59\xff\x5a\xff\x60\xff\x61\xff\x5f\xff\x5b\xff\x76\xff\x80\xff\x00\x00\x00\x00\x00\x00\x00\x00\x72\xff\x77\xff\x4f\xff\x00\x00\x00\x00\x7f\xff\x75\xff\x28\xff\x00\x00\x00\x00\x00\x00\x2f\xff\x00\x00\x4c\xff\x49\xff\x48\xff\x35\xff\x00\x00\x1d\xff\x00\x00\x39\xff\x00\x00\x25\xff\x4d\xff\x00\x00\x00\x00\x84\xff\x00\x00\x00\x00\x00\x00\x51\xff\x00\x00\x00\x00\x8d\xff\x42\xff\x36\xff\x33\xff\x00\x00\x21\xff\x00\x00\x00\x00\x52\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\x0e\xff\x0d\xff\x0c\xff\x0a\xff\x0b\xff\x00\x00\xe7\xff\xe6\xff\x00\x00\x00\x00\xe8\xff\xda\xff\x00\x00\x00\x00\xc9\xff\xf2\xff\xd6\xff\x00\x00\xcb\xff\x00\x00\xcc\xff\x00\x00\x00\x00\x00\x00\x09\xff\x8b\xff\x00\x00\xb0\xff\x89\xff\x00\x00\x00\x00\xbd\xff\x00\x00\x00\x00\xb4\xff\x89\xff\x00\x00\x00\x00\x00\x00\xb2\xff\xa2\xff\x00\x00\xbc\xff\x00\x00\xbb\xff\xb3\xff\xb9\xff\xba\xff\xb8\xff\x00\x00\xc1\xff\x00\x00\x00\x00\x00\x00\xb5\xff\xbf\xff\x8d\xff\x00\x00\xc0\xff\xbe\xff\x15\xff\x00\x00\xc2\xff\x00\x00\x67\xff\x00\x00\x4c\xff\x00\x00\x6b\xff\x00\x00\x00\x00\x00\x00\x44\xff\x00\x00\x65\xff\x52\xff\x1a\xff\x87\xff\x86\xff\x82\xff\x56\xff\x00\x00\x29\xff\x24\xff\x00\x00\x00\x00\x8d\xff\x00\x00\x38\xff\x00\x00\x54\xff\x1e\xff\x00\x00\x34\xff\x00\x00\x00\x00\x2d\xff\x5d\xff\x00\x00\x00\x00\x2a\xff\x26\xff\x6e\xff\x78\xff\x4e\xff\x00\x00\x74\xff\x00\x00\x8c\xff\x00\x00\x3f\xff\x8d\xff\x55\xff\x6f\xff\x2c\xff\x73\xff\x5c\xff\x00\x00\x4a\xff\x1f\xff\x1c\xff\x47\xff\x39\xff\x00\x00\x4b\xff\x45\xff\x46\xff\x25\xff\x00\x00\x00\x00\x00\x00\x19\xff\x00\x00\x50\xff\x4a\xff\x32\xff\x22\xff\x20\xff\x6a\xff\x69\xff\x15\xff\x9c\xff\xae\xff\x98\xff\xa7\xff\x92\xff\x00\x00\x00\x00\x9a\xff\x00\x00\x96\xff\x90\xff\xb6\xff\xb7\xff\x00\x00\x00\x00\x94\xff\xaf\xff\x00\x00\x00\x00\x00\x00\x00\x00\x9e\xff\xd4\xff\x00\x00\xcf\xff\xe4\xff\xe5\xff\xc9\xff\xde\xff\xdf\xff\xcc\xff\xdb\xff\x00\x00\xd9\xff\x00\x00\x00\x00\xd9\xff\x00\x00\x00\x00\xe1\xff\xd8\xff\x00\x00\x00\x00\x00\x00\xdd\xff\x00\x00\xca\xff\x00\x00\xce\xff\xcd\xff\x00\x00\x9d\xff\x00\x00\xc6\xff\xc5\xff\x8a\xff\x93\xff\x88\xff\xa0\xff\x15\xff\x8f\xff\xa4\xff\x00\x00\x95\xff\xdd\xff\x99\xff\xab\xff\x9f\xff\x91\xff\xa9\xff\xa6\xff\xaa\xff\x00\x00\x97\xff\x16\xff\x14\xff\x2f\xff\x9b\xff\x00\x00\x43\xff\x66\xff\x1a\xff\x00\x00\x85\xff\x57\xff\x23\xff\x41\xff\x37\xff\x68\xff\x1b\xff\x18\xff\xad\xff\x00\x00\xa7\xff\x00\x00\x00\x00\x00\x00\x90\xff\xa1\xff\x00\x00\xc4\xff\xe3\xff\x00\x00\xd9\xff\x00\x00\xd5\xff\xc8\xff\x00\x00\xd9\xff\x00\x00\xf0\xff\xd7\xff\xc7\xff\xe2\xff\xe0\xff\x00\x00\xd3\xff\xc3\xff\x8e\xff\x00\x00\x00\x00\xa8\xff\xa5\xff\x00\x00\x00\x00\x00\x00\x00\x00\xb1\xff\xa3\xff\x00\x00\x00\x00\xef\xff\x00\x00\xf3\xff\xf0\xff\x00\x00\xd2\xff\x17\xff\xac\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# "\xf5\xff\xd0\xff\x0f\xff\x00\x00\x00\x00\xfb\xff\x80\xff\x7b\xff\x7c\xff\x7a\xff\x6f\xff\x6b\xff\x61\xff\x5c\xff\x51\xff\x00\x00\x7d\xff\x00\x00\x83\xff\x2c\xff\x00\x00\x00\x00\x79\xff\x25\xff\x2c\xff\x00\x00\x3a\xff\x38\xff\x37\xff\x39\xff\x3b\xff\x00\x00\x77\xff\x00\x00\x83\xff\x00\x00\x00\x00\x00\x00\x00\x00\xfa\xff\xf9\xff\xf8\xff\xf7\xff\x00\x00\xdc\xff\x00\x00\x00\x00\x00\x00\x00\x00\xcf\xff\x00\x00\xd0\xff\xf4\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xf3\xff\x0c\xff\x0d\xff\x00\x00\x0e\xff\x00\x00\x00\x00\x00\x00\x10\xff\x50\xff\x80\xff\x00\x00\x83\xff\x00\x00\x00\x00\x50\xff\x00\x00\x8c\xff\x00\x00\x82\xff\x00\x00\x83\xff\x1b\xff\x00\x00\x60\xff\x2e\xff\x2b\xff\x00\x00\x2c\xff\x2d\xff\x27\xff\x24\xff\x00\x00\x00\x00\x4d\xff\x00\x00\x78\xff\x80\xff\x00\x00\x00\x00\x00\x00\x8c\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x6a\xff\x00\x00\x00\x00\x62\xff\x83\xff\x3d\xff\x6e\xff\x00\x00\x83\xff\x56\xff\x57\xff\x58\xff\x5e\xff\x5f\xff\x5d\xff\x59\xff\x74\xff\x7f\xff\x00\x00\x00\x00\x00\x00\x00\x00\x70\xff\x75\xff\x4d\xff\x00\x00\x00\x00\x7e\xff\x73\xff\x25\xff\x00\x00\x00\x00\x00\x00\x2c\xff\x00\x00\x4a\xff\x47\xff\x45\xff\x46\xff\x32\xff\x00\x00\x1a\xff\x00\x00\x36\xff\x00\x00\x22\xff\x4b\xff\x00\x00\x00\x00\x83\xff\x00\x00\x00\x00\x00\x00\x4f\xff\x00\x00\x00\x00\x8c\xff\x3f\xff\x33\xff\x30\xff\x00\x00\x1e\xff\x00\x00\x00\x00\x50\xff\x00\x00\xdb\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\x0b\xff\x0a\xff\x09\xff\x07\xff\x08\xff\x00\x00\xe6\xff\xe5\xff\x00\x00\x00\x00\xe7\xff\xd9\xff\x00\x00\x00\x00\xc8\xff\xf1\xff\xd5\xff\x00\x00\xca\xff\x00\x00\xcb\xff\x00\x00\x00\x00\x00\x00\x06\xff\x8a\xff\x00\x00\xaf\xff\x88\xff\x00\x00\x00\x00\xbc\xff\x00\x00\x00\x00\xb3\xff\x88\xff\x00\x00\x00\x00\x00\x00\xb1\xff\xa1\xff\x00\x00\xbb\xff\x00\x00\xba\xff\xb2\xff\xb8\xff\xb9\xff\xb7\xff\x00\x00\xc0\xff\x00\x00\x00\x00\x00\x00\xb4\xff\xbe\xff\x8c\xff\x00\x00\xbf\xff\xbd\xff\x12\xff\x00\x00\xc1\xff\x00\x00\x65\xff\x00\x00\x4a\xff\x00\x00\x69\xff\x00\x00\x00\x00\x00\x00\x41\xff\x00\x00\x63\xff\x50\xff\x17\xff\x86\xff\x85\xff\x81\xff\x54\xff\x00\x00\x26\xff\x21\xff\x00\x00\x00\x00\x8c\xff\x00\x00\x35\xff\x00\x00\x52\xff\x1b\xff\x00\x00\x31\xff\x00\x00\x00\x00\x2a\xff\x5b\xff\x00\x00\x00\x00\x27\xff\x23\xff\x6c\xff\x76\xff\x4c\xff\x00\x00\x72\xff\x00\x00\x8b\xff\x00\x00\x3c\xff\x8c\xff\x53\xff\x6d\xff\x29\xff\x71\xff\x5a\xff\x00\x00\x48\xff\x1c\xff\x19\xff\x44\xff\x36\xff\x00\x00\x49\xff\x42\xff\x43\xff\x22\xff\x00\x00\x00\x00\x00\x00\x16\xff\x00\x00\x4e\xff\x48\xff\x2f\xff\x1f\xff\x1d\xff\x68\xff\x67\xff\x12\xff\x9b\xff\xad\xff\x97\xff\xa6\xff\x91\xff\x00\x00\x00\x00\x99\xff\x00\x00\x95\xff\x8f\xff\xb5\xff\xb6\xff\x00\x00\x00\x00\x93\xff\xae\xff\x00\x00\x00\x00\x00\x00\x00\x00\x9d\xff\xd3\xff\x00\x00\xce\xff\xe3\xff\xe4\xff\xc8\xff\xdd\xff\xde\xff\xcb\xff\xda\xff\x00\x00\xd8\xff\x00\x00\x00\x00\xd8\xff\x00\x00\x00\x00\xe0\xff\xd7\xff\x00\x00\x00\x00\x00\x00\xdc\xff\x00\x00\xc9\xff\x00\x00\xcd\xff\xcc\xff\x00\x00\x9c\xff\x00\x00\xc5\xff\xc4\xff\x89\xff\x92\xff\x87\xff\x9f\xff\x12\xff\x8e\xff\xa3\xff\x00\x00\x94\xff\xdc\xff\x98\xff\xaa\xff\x9e\xff\x90\xff\xa8\xff\xa5\xff\xa9\xff\x00\x00\x96\xff\x13\xff\x11\xff\x2c\xff\x9a\xff\x00\x00\x40\xff\x64\xff\x17\xff\x00\x00\x84\xff\x55\xff\x20\xff\x3e\xff\x34\xff\x66\xff\x18\xff\x15\xff\xac\xff\x00\x00\xa6\xff\x00\x00\x00\x00\x00\x00\x8f\xff\xa0\xff\x00\x00\xc3\xff\xe2\xff\x00\x00\xd8\xff\x00\x00\xd4\xff\xc7\xff\x00\x00\xd8\xff\x00\x00\xef\xff\xd6\xff\xc6\xff\xe1\xff\xdf\xff\x00\x00\xd2\xff\xc2\xff\x8d\xff\x00\x00\x00\x00\xa7\xff\xa4\xff\x00\x00\x00\x00\x00\x00\x00\x00\xb0\xff\xa2\xff\x00\x00\x00\x00\xee\xff\x00\x00\xf2\xff\xef\xff\x00\x00\xd1\xff\x14\xff\xab\xff\xeb\xff\xf0\xff\xed\xff\xec\xff\xea\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xe9\xff\xe8\xff"# happyCheck :: HappyAddr -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\x1c\x00\x00\x00\x00\x00\x00\x00\x01\x00\x02\x00\x03\x00\x00\x00\x1b\x00\x05\x00\x2e\x00\x09\x00\x03\x00\x05\x00\x05\x00\x26\x00\x04\x00\x4e\x00\x4f\x00\x05\x00\x0b\x00\x2c\x00\x0a\x00\x3b\x00\x00\x00\x10\x00\x11\x00\x12\x00\x0b\x00\x1c\x00\x1d\x00\x00\x00\x17\x00\x0a\x00\x0c\x00\x09\x00\x1b\x00\x1e\x00\x0b\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x26\x00\x25\x00\x01\x00\x4c\x00\x28\x00\x2f\x00\x0b\x00\x2b\x00\x4c\x00\x00\x00\x2e\x00\x39\x00\x4c\x00\x4c\x00\x18\x00\x33\x00\x3a\x00\x0b\x00\x0b\x00\x50\x00\x51\x00\x2a\x00\x50\x00\x51\x00\x00\x00\x50\x00\x50\x00\x3f\x00\x2a\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\x4c\x00\x00\x00\x42\x00\x4c\x00\x10\x00\x11\x00\x12\x00\x47\x00\x4c\x00\x00\x00\x4e\x00\x17\x00\x4c\x00\x0d\x00\x0e\x00\x00\x00\x01\x00\x02\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x00\x00\x25\x00\x4c\x00\x18\x00\x28\x00\x1d\x00\x03\x00\x2b\x00\x05\x00\x00\x00\x2e\x00\x00\x00\x00\x00\x4c\x00\x4c\x00\x33\x00\x17\x00\x0e\x00\x3f\x00\x40\x00\x1b\x00\x12\x00\x00\x00\x00\x00\x01\x00\x02\x00\x4d\x00\x3f\x00\x2b\x00\x2c\x00\x1b\x00\x43\x00\x44\x00\x15\x00\x16\x00\x00\x00\x03\x00\x49\x00\x05\x00\x1e\x00\x4c\x00\x4d\x00\x4e\x00\x4f\x00\x0b\x00\x36\x00\x37\x00\x26\x00\x0e\x00\x10\x00\x11\x00\x12\x00\x4c\x00\x2a\x00\x4e\x00\x00\x00\x17\x00\x00\x00\x43\x00\x03\x00\x45\x00\x05\x00\x0e\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x4c\x00\x25\x00\x00\x00\x00\x00\x28\x00\x12\x00\x00\x00\x2b\x00\x36\x00\x37\x00\x4c\x00\x4d\x00\x4e\x00\x00\x00\x1b\x00\x33\x00\x3f\x00\x40\x00\x00\x00\x21\x00\x03\x00\x43\x00\x05\x00\x45\x00\x00\x00\x00\x00\x28\x00\x3f\x00\x0b\x00\x3f\x00\x40\x00\x43\x00\x44\x00\x10\x00\x11\x00\x12\x00\x12\x00\x49\x00\x00\x00\x21\x00\x4c\x00\x4d\x00\x4e\x00\x4f\x00\x2a\x00\x2a\x00\x28\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x03\x00\x25\x00\x05\x00\x1f\x00\x28\x00\x38\x00\x38\x00\x0a\x00\x3b\x00\x3b\x00\x4c\x00\x4d\x00\x4e\x00\x29\x00\x14\x00\x12\x00\x00\x00\x01\x00\x02\x00\x00\x00\x03\x00\x4d\x00\x05\x00\x0b\x00\x1b\x00\x0d\x00\x00\x00\x3f\x00\x0b\x00\x0c\x00\x02\x00\x43\x00\x44\x00\x10\x00\x11\x00\x12\x00\x2d\x00\x49\x00\x0a\x00\x30\x00\x4c\x00\x4d\x00\x4e\x00\x4f\x00\x12\x00\x00\x00\x1b\x00\x09\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x03\x00\x00\x00\x05\x00\x25\x00\x28\x00\x08\x00\x15\x00\x16\x00\x0b\x00\x18\x00\x19\x00\x1a\x00\x04\x00\x10\x00\x11\x00\x12\x00\x00\x00\x36\x00\x0a\x00\x51\x00\x4c\x00\x4d\x00\x4e\x00\x1f\x00\x3d\x00\x00\x00\x00\x00\x00\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x29\x00\x4b\x00\x48\x00\x49\x00\x28\x00\x4d\x00\x06\x00\x4c\x00\x4d\x00\x4e\x00\x4f\x00\x00\x00\x01\x00\x02\x00\x04\x00\x05\x00\x03\x00\x19\x00\x05\x00\x13\x00\x00\x00\x00\x00\x01\x00\x02\x00\x0b\x00\x20\x00\x4a\x00\x23\x00\x00\x00\x10\x00\x11\x00\x12\x00\x27\x00\x00\x00\x01\x00\x02\x00\x2b\x00\x2c\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\x00\x00\x05\x00\x02\x00\x28\x00\x00\x00\x01\x00\x02\x00\x0b\x00\x00\x00\x15\x00\x16\x00\x00\x00\x10\x00\x11\x00\x12\x00\x36\x00\x00\x00\x01\x00\x02\x00\x0e\x00\x2a\x00\x10\x00\x3d\x00\x2d\x00\x2e\x00\x36\x00\x12\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x3d\x00\x48\x00\x49\x00\x00\x00\x28\x00\x36\x00\x37\x00\x4c\x00\x4d\x00\x4e\x00\x4f\x00\x3c\x00\x07\x00\x3e\x00\x11\x00\x0a\x00\x03\x00\x00\x00\x05\x00\x00\x00\x2d\x00\x46\x00\x47\x00\x30\x00\x0b\x00\x14\x00\x36\x00\x37\x00\x00\x00\x10\x00\x11\x00\x12\x00\x3c\x00\x10\x00\x3e\x00\x12\x00\x00\x00\x12\x00\x36\x00\x37\x00\x4c\x00\x4d\x00\x4e\x00\x4f\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x03\x00\x00\x00\x05\x00\x00\x00\x28\x00\x00\x00\x01\x00\x02\x00\x0b\x00\x00\x00\x01\x00\x02\x00\x03\x00\x10\x00\x11\x00\x12\x00\x00\x00\x01\x00\x02\x00\x00\x00\x06\x00\x2a\x00\x00\x00\x00\x00\x2d\x00\x2e\x00\x19\x00\x00\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x13\x00\x07\x00\x08\x00\x23\x00\x28\x00\x01\x00\x00\x00\x4c\x00\x4d\x00\x4e\x00\x4f\x00\x00\x00\x01\x00\x02\x00\x03\x00\x00\x00\x03\x00\x03\x00\x05\x00\x00\x00\x01\x00\x02\x00\x03\x00\x2f\x00\x0b\x00\x0b\x00\x36\x00\x18\x00\x00\x00\x10\x00\x11\x00\x12\x00\x2a\x00\x3d\x00\x3a\x00\x2d\x00\x2e\x00\x36\x00\x37\x00\x00\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\x00\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x03\x00\x04\x00\x05\x00\x2f\x00\x30\x00\x31\x00\x3a\x00\x0a\x00\x00\x00\x01\x00\x02\x00\x0e\x00\x0f\x00\x41\x00\x3a\x00\x12\x00\x0b\x00\x30\x00\x0d\x00\x32\x00\x02\x00\x18\x00\x4a\x00\x4b\x00\x1b\x00\x07\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\x00\x00\x00\x00\x00\x00\x01\x00\x02\x00\x03\x00\x3a\x00\x36\x00\x00\x00\x01\x00\x02\x00\x03\x00\x2a\x00\x41\x00\x3d\x00\x2d\x00\x2e\x00\x00\x00\x01\x00\x02\x00\x00\x00\x00\x00\x4a\x00\x4b\x00\x36\x00\x37\x00\x00\x00\x00\x00\x1c\x00\x1d\x00\x3c\x00\x00\x00\x3e\x00\x07\x00\x08\x00\x4c\x00\x4d\x00\x4e\x00\x02\x00\x0e\x00\x46\x00\x47\x00\x06\x00\x10\x00\x04\x00\x12\x00\x36\x00\x37\x00\x02\x00\x2f\x00\x30\x00\x31\x00\x3c\x00\x07\x00\x3e\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x3a\x00\x0c\x00\x46\x00\x47\x00\x00\x00\x00\x00\x3a\x00\x00\x00\x01\x00\x02\x00\x03\x00\x36\x00\x37\x00\x41\x00\x42\x00\x06\x00\x44\x00\x3c\x00\x26\x00\x3e\x00\x28\x00\x29\x00\x2a\x00\x04\x00\x2c\x00\x46\x00\x06\x00\x46\x00\x47\x00\x05\x00\x4c\x00\x04\x00\x34\x00\x35\x00\x36\x00\x37\x00\x01\x00\x06\x00\x3a\x00\x02\x00\x3c\x00\x3d\x00\x3e\x00\x04\x00\x40\x00\x00\x00\x01\x00\x02\x00\x03\x00\x45\x00\x46\x00\x4d\x00\x48\x00\x06\x00\x2f\x00\x30\x00\x31\x00\x26\x00\x01\x00\x28\x00\x29\x00\x2a\x00\x06\x00\x2c\x00\x4c\x00\x3a\x00\x01\x00\x00\x00\x01\x00\x02\x00\x03\x00\x34\x00\x35\x00\x36\x00\x37\x00\x0c\x00\x4c\x00\x3a\x00\x07\x00\x3c\x00\x3d\x00\x3e\x00\x00\x00\x40\x00\x03\x00\x02\x00\x2e\x00\x0f\x00\x45\x00\x46\x00\x0e\x00\x48\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x00\x00\x01\x00\x02\x00\x03\x00\x0f\x00\x04\x00\x3a\x00\x00\x00\x01\x00\x02\x00\x00\x00\x0a\x00\x4c\x00\x41\x00\x42\x00\x0e\x00\x44\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x00\x00\x01\x00\x02\x00\x03\x00\x02\x00\x2a\x00\x3a\x00\x4b\x00\x2d\x00\x2e\x00\x0c\x00\x3f\x00\x40\x00\x41\x00\x1a\x00\x2e\x00\x4c\x00\x0a\x00\x4c\x00\x00\x00\x01\x00\x02\x00\x03\x00\x02\x00\x24\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x2a\x00\x00\x00\x01\x00\x02\x00\x03\x00\x0b\x00\x3a\x00\x4c\x00\x03\x00\x36\x00\x08\x00\x3f\x00\x40\x00\x41\x00\x4c\x00\x02\x00\x3d\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x00\x00\x01\x00\x02\x00\x03\x00\x0c\x00\x3a\x00\x00\x00\x01\x00\x02\x00\x03\x00\x4c\x00\x03\x00\x41\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x00\x00\x01\x00\x02\x00\x03\x00\x01\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\x1d\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\x4c\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\x06\x00\x3a\x00\x04\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\x13\x00\x3a\x00\x41\x00\x36\x00\x04\x00\x00\x00\x04\x00\x04\x00\x41\x00\x4c\x00\x3d\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x00\x00\x01\x00\x02\x00\x03\x00\x01\x00\x10\x00\x3a\x00\x12\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x41\x00\x00\x00\x04\x00\x06\x00\x02\x00\x13\x00\x3a\x00\x00\x00\x01\x00\x02\x00\x03\x00\x2e\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\x04\x00\x3a\x00\x0c\x00\x00\x00\x01\x00\x02\x00\x03\x00\x4c\x00\x41\x00\x00\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x00\x00\x01\x00\x02\x00\x03\x00\x2a\x00\x4c\x00\x3a\x00\x2d\x00\x2e\x00\x01\x00\x10\x00\x01\x00\x12\x00\x41\x00\x01\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x00\x00\x01\x00\x02\x00\x03\x00\x02\x00\x07\x00\x3a\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x01\x00\x41\x00\x00\x00\x2f\x00\x30\x00\x02\x00\x3a\x00\x00\x00\x01\x00\x02\x00\x03\x00\x01\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\x02\x00\x02\x00\x3a\x00\x0a\x00\x00\x00\x01\x00\x02\x00\x03\x00\x01\x00\x41\x00\x4c\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x00\x00\x01\x00\x02\x00\x03\x00\x2a\x00\x01\x00\x3a\x00\x2d\x00\x2e\x00\x4c\x00\x39\x00\x0a\x00\x09\x00\x41\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x00\x00\x01\x00\x02\x00\x03\x00\x24\x00\x03\x00\x3a\x00\x04\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x41\x00\x07\x00\x38\x00\x2f\x00\x30\x00\x38\x00\x3a\x00\x00\x00\x01\x00\x02\x00\x03\x00\x01\x00\x4c\x00\x41\x00\x3a\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x00\x00\x01\x00\x02\x00\x03\x00\x18\x00\x04\x00\x3a\x00\x0f\x00\x04\x00\x10\x00\x00\x00\x04\x00\x01\x00\x41\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x00\x00\x01\x00\x02\x00\x03\x00\x01\x00\x04\x00\x3a\x00\x4c\x00\x01\x00\x0e\x00\x4c\x00\x03\x00\x08\x00\x41\x00\x17\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x00\x00\x01\x00\x02\x00\x03\x00\x06\x00\x22\x00\x3a\x00\x0c\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x41\x00\x2b\x00\x2c\x00\x18\x00\x4d\x00\x4c\x00\x3a\x00\x00\x00\x01\x00\x02\x00\x03\x00\x0e\x00\x4c\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\x04\x00\x00\x00\x01\x00\x02\x00\x03\x00\x07\x00\x41\x00\x4c\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x00\x00\x01\x00\x02\x00\x03\x00\x06\x00\x0c\x00\x3a\x00\x0a\x00\x13\x00\x07\x00\x38\x00\x08\x00\x2e\x00\x41\x00\x0a\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x00\x00\x01\x00\x02\x00\x03\x00\x01\x00\x4c\x00\x3a\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x0a\x00\x41\x00\x01\x00\x2f\x00\x4c\x00\x4c\x00\x3a\x00\x00\x00\x01\x00\x02\x00\x03\x00\x02\x00\x02\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\x51\x00\x3a\x00\x51\x00\x00\x00\x01\x00\x02\x00\x03\x00\x03\x00\x41\x00\x4c\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x00\x00\x01\x00\x02\x00\x03\x00\x03\x00\x03\x00\x3a\x00\x03\x00\x00\x00\x01\x00\x02\x00\x03\x00\x4c\x00\x41\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x08\x00\x00\x00\x51\x00\x4c\x00\x0e\x00\x2f\x00\x3a\x00\x14\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x41\x00\x00\x00\xff\xff\x2f\x00\x00\x00\xff\xff\x3a\x00\x00\x00\xff\xff\x35\x00\x00\x00\xff\xff\xff\xff\x41\x00\x3a\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x20\x00\xff\xff\xff\xff\x2f\x00\x17\x00\x00\x00\x3a\x00\x27\x00\xff\xff\x35\x00\x17\x00\x2b\x00\x2c\x00\x41\x00\x3a\x00\x22\x00\x20\x00\x00\x00\xff\xff\x00\x00\xff\xff\x22\x00\x20\x00\x27\x00\x2b\x00\x2c\x00\xff\xff\x2b\x00\x2c\x00\x27\x00\x2b\x00\x2c\x00\x00\x00\x2b\x00\x2c\x00\x00\x00\xff\xff\x20\x00\x00\x00\xff\xff\x17\x00\xff\xff\x17\x00\x24\x00\x27\x00\xff\xff\x27\x00\x00\x00\x2b\x00\x2c\x00\x00\x00\x22\x00\xff\xff\x22\x00\xff\xff\x17\x00\x31\x00\x32\x00\x17\x00\x00\x00\x2b\x00\x2c\x00\x2b\x00\x2c\x00\x1a\x00\xff\xff\x22\x00\xff\xff\xff\xff\x22\x00\x17\x00\xff\xff\x41\x00\x17\x00\x24\x00\x2b\x00\x2c\x00\x46\x00\x2b\x00\x2c\x00\x2a\x00\x22\x00\xff\xff\xff\xff\x22\x00\x1a\x00\x1b\x00\xff\xff\xff\xff\xff\xff\x2b\x00\x2c\x00\xff\xff\x2b\x00\x2c\x00\x24\x00\x25\x00\x00\x00\xff\xff\xff\xff\x26\x00\x2a\x00\x28\x00\x29\x00\x2a\x00\xff\xff\x2c\x00\xff\xff\xff\xff\xff\xff\x0d\x00\xff\xff\x0f\x00\xff\xff\x34\x00\x35\x00\x36\x00\x37\x00\x15\x00\x16\x00\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\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\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\x0c\x00\x02\x00\x00\x00\x00\x00\x02\x00\x02\x00\x00\x00\x00\x00\x02\x00\x02\x00\x01\x00\x0b\x00\x1b\x00\x00\x00\x00\x00\x00\x00\x01\x00\x02\x00\x03\x00\x04\x00\x00\x00\x01\x00\x02\x00\x03\x00\x00\x00\x03\x00\x05\x00\x05\x00\x00\x00\x00\x00\x4f\x00\x50\x00\x00\x00\x0b\x00\x07\x00\x05\x00\x05\x00\x0a\x00\x10\x00\x11\x00\x12\x00\x00\x00\x0a\x00\x00\x00\x00\x00\x17\x00\x0c\x00\x14\x00\x0b\x00\x1b\x00\x16\x00\x17\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x09\x00\x25\x00\x01\x00\x4c\x00\x28\x00\x30\x00\x4c\x00\x2b\x00\x4e\x00\x2b\x00\x2e\x00\x1c\x00\x4c\x00\x3a\x00\x2b\x00\x33\x00\x3b\x00\x37\x00\x4c\x00\x51\x00\x52\x00\x26\x00\x51\x00\x52\x00\x3e\x00\x51\x00\x51\x00\x3f\x00\x2b\x00\x51\x00\x51\x00\x43\x00\x44\x00\x52\x00\x4d\x00\x49\x00\x4a\x00\x49\x00\x0b\x00\x4c\x00\x4c\x00\x4d\x00\x4e\x00\x4f\x00\x50\x00\x03\x00\x0b\x00\x05\x00\x4c\x00\x4c\x00\x40\x00\x41\x00\x0b\x00\x0b\x00\x03\x00\x4c\x00\x05\x00\x42\x00\x10\x00\x11\x00\x12\x00\x0a\x00\x47\x00\x19\x00\x1c\x00\x17\x00\x03\x00\x4c\x00\x05\x00\x12\x00\x0d\x00\x0e\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x1b\x00\x25\x00\x00\x00\x12\x00\x28\x00\x00\x00\x02\x00\x2b\x00\x1d\x00\x00\x00\x2e\x00\x07\x00\x1b\x00\x07\x00\x03\x00\x33\x00\x05\x00\x08\x00\x09\x00\x00\x00\x00\x00\x0b\x00\x11\x00\x00\x00\x13\x00\x0e\x00\x14\x00\x3f\x00\x0b\x00\x12\x00\x0d\x00\x43\x00\x44\x00\x4c\x00\x4c\x00\x00\x00\x00\x00\x49\x00\x1b\x00\x4c\x00\x4c\x00\x4d\x00\x4e\x00\x4f\x00\x50\x00\x03\x00\x1a\x00\x05\x00\x26\x00\x4c\x00\x4d\x00\x4e\x00\x4f\x00\x0b\x00\x2c\x00\x4c\x00\x24\x00\x4e\x00\x10\x00\x11\x00\x12\x00\x4c\x00\x4d\x00\x4e\x00\x4f\x00\x17\x00\x40\x00\x41\x00\x00\x00\x01\x00\x02\x00\x03\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x00\x00\x25\x00\x2c\x00\x2d\x00\x28\x00\x40\x00\x41\x00\x2b\x00\x4c\x00\x4c\x00\x4d\x00\x4e\x00\x4f\x00\x19\x00\x4b\x00\x33\x00\x00\x00\x01\x00\x02\x00\x03\x00\x03\x00\x17\x00\x05\x00\x04\x00\x0f\x00\x1b\x00\x1a\x00\x3f\x00\x0b\x00\x0a\x00\x00\x00\x43\x00\x44\x00\x10\x00\x11\x00\x12\x00\x24\x00\x49\x00\x08\x00\x09\x00\x4c\x00\x4d\x00\x4e\x00\x4f\x00\x50\x00\x37\x00\x38\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x02\x00\x25\x00\x00\x00\x00\x00\x28\x00\x44\x00\x00\x00\x46\x00\x0a\x00\x00\x00\x01\x00\x02\x00\x03\x00\x00\x00\x00\x00\x01\x00\x02\x00\x03\x00\x37\x00\x38\x00\x03\x00\x4c\x00\x05\x00\x11\x00\x3d\x00\x13\x00\x3f\x00\x3f\x00\x0b\x00\x0c\x00\x04\x00\x43\x00\x44\x00\x10\x00\x11\x00\x12\x00\x0a\x00\x49\x00\x00\x00\x4e\x00\x4c\x00\x4d\x00\x4e\x00\x4f\x00\x50\x00\x2b\x00\x2b\x00\x22\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x03\x00\x29\x00\x05\x00\x00\x00\x28\x00\x08\x00\x39\x00\x39\x00\x0b\x00\x3c\x00\x3c\x00\x37\x00\x38\x00\x10\x00\x11\x00\x12\x00\x37\x00\x20\x00\x00\x00\x00\x00\x00\x00\x00\x00\x13\x00\x3e\x00\x44\x00\x2e\x00\x46\x00\x2a\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x2d\x00\x49\x00\x4a\x00\x30\x00\x28\x00\x3b\x00\x0f\x00\x4c\x00\x4d\x00\x4e\x00\x4f\x00\x50\x00\x1b\x00\x00\x00\x01\x00\x02\x00\x03\x00\x03\x00\x1f\x00\x05\x00\x22\x00\x09\x00\x25\x00\x00\x00\x00\x00\x0b\x00\x27\x00\x29\x00\x2b\x00\x00\x00\x10\x00\x11\x00\x12\x00\x15\x00\x16\x00\x00\x00\x18\x00\x19\x00\x1a\x00\x00\x00\x4c\x00\x4d\x00\x4e\x00\x4f\x00\x50\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x03\x00\x15\x00\x05\x00\x0e\x00\x28\x00\x10\x00\x2b\x00\x00\x00\x0b\x00\x2e\x00\x2f\x00\x16\x00\x17\x00\x10\x00\x11\x00\x12\x00\x00\x00\x2b\x00\x37\x00\x38\x00\x2e\x00\x2f\x00\x00\x00\x4e\x00\x3d\x00\x07\x00\x3f\x00\x00\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x00\x00\x47\x00\x48\x00\x4a\x00\x28\x00\x14\x00\x20\x00\x4c\x00\x4d\x00\x4e\x00\x4f\x00\x50\x00\x00\x00\x01\x00\x02\x00\x03\x00\x2a\x00\x03\x00\x18\x00\x05\x00\x1f\x00\x00\x00\x01\x00\x02\x00\x03\x00\x0b\x00\x00\x00\x00\x00\x27\x00\x23\x00\x10\x00\x11\x00\x12\x00\x00\x00\x01\x00\x02\x00\x03\x00\x00\x00\x2c\x00\x2d\x00\x4c\x00\x4d\x00\x4e\x00\x4f\x00\x50\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x03\x00\x02\x00\x05\x00\x00\x00\x28\x00\x06\x00\x1d\x00\x1e\x00\x0b\x00\x21\x00\x00\x00\x03\x00\x02\x00\x10\x00\x11\x00\x12\x00\x28\x00\x37\x00\x38\x00\x0b\x00\x2c\x00\x2d\x00\x13\x00\x3d\x00\x00\x00\x3f\x00\x37\x00\x38\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x47\x00\x48\x00\x05\x00\x06\x00\x28\x00\x37\x00\x38\x00\x4c\x00\x4d\x00\x4e\x00\x4f\x00\x50\x00\x00\x00\x01\x00\x02\x00\x03\x00\x04\x00\x03\x00\x4e\x00\x05\x00\x00\x00\x01\x00\x02\x00\x03\x00\x04\x00\x0b\x00\x00\x00\x00\x00\x00\x00\x04\x00\x10\x00\x11\x00\x12\x00\x00\x00\x2b\x00\x0a\x00\x00\x00\x2e\x00\x2f\x00\x0e\x00\x4c\x00\x4d\x00\x4e\x00\x4f\x00\x50\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x16\x00\x17\x00\x13\x00\x00\x00\x28\x00\x00\x00\x01\x00\x02\x00\x03\x00\x04\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x03\x00\x04\x00\x05\x00\x30\x00\x31\x00\x32\x00\x3b\x00\x0a\x00\x0e\x00\x12\x00\x10\x00\x0e\x00\x0f\x00\x42\x00\x3b\x00\x12\x00\x00\x00\x01\x00\x02\x00\x03\x00\x00\x00\x18\x00\x4b\x00\x4c\x00\x1b\x00\x4c\x00\x4d\x00\x4e\x00\x4f\x00\x50\x00\x00\x00\x01\x00\x02\x00\x03\x00\x00\x00\x01\x00\x02\x00\x03\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x00\x00\x00\x00\x01\x00\x02\x00\x03\x00\x04\x00\x3b\x00\x00\x00\x00\x00\x01\x00\x02\x00\x03\x00\x04\x00\x42\x00\x00\x00\x01\x00\x02\x00\x03\x00\x04\x00\x13\x00\x00\x00\x00\x00\x4b\x00\x4c\x00\x11\x00\x00\x00\x13\x00\x00\x00\x37\x00\x38\x00\x4c\x00\x4d\x00\x4e\x00\x4f\x00\x3d\x00\x00\x00\x3f\x00\x00\x00\x01\x00\x02\x00\x03\x00\x04\x00\x37\x00\x38\x00\x47\x00\x48\x00\x37\x00\x01\x00\x3d\x00\x30\x00\x3f\x00\x00\x00\x11\x00\x3e\x00\x13\x00\x36\x00\x30\x00\x31\x00\x47\x00\x48\x00\x3b\x00\x04\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x3b\x00\x2b\x00\x00\x00\x19\x00\x2e\x00\x2f\x00\x3b\x00\x00\x00\x01\x00\x02\x00\x03\x00\x04\x00\x2d\x00\x42\x00\x43\x00\x30\x00\x45\x00\x00\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x0b\x00\x30\x00\x0d\x00\x32\x00\x04\x00\x26\x00\x3b\x00\x28\x00\x29\x00\x2a\x00\x02\x00\x2c\x00\x00\x00\x42\x00\x43\x00\x07\x00\x45\x00\x00\x00\x00\x00\x34\x00\x35\x00\x36\x00\x37\x00\x00\x00\x00\x00\x3a\x00\x52\x00\x3c\x00\x3d\x00\x3e\x00\x00\x00\x40\x00\x30\x00\x31\x00\x32\x00\x00\x00\x45\x00\x46\x00\x26\x00\x48\x00\x28\x00\x29\x00\x2a\x00\x3b\x00\x2c\x00\x00\x00\x01\x00\x02\x00\x03\x00\x04\x00\x0d\x00\x0f\x00\x34\x00\x35\x00\x36\x00\x37\x00\x21\x00\x00\x00\x3a\x00\x00\x00\x3c\x00\x3d\x00\x3e\x00\x28\x00\x40\x00\x46\x00\x06\x00\x2c\x00\x2d\x00\x45\x00\x46\x00\x00\x00\x48\x00\x00\x00\x01\x00\x02\x00\x03\x00\x04\x00\x00\x00\x01\x00\x02\x00\x03\x00\x06\x00\x00\x00\x05\x00\x4c\x00\x00\x00\x01\x00\x02\x00\x03\x00\x04\x00\x04\x00\x01\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x00\x00\x01\x00\x02\x00\x03\x00\x04\x00\x02\x00\x3b\x00\x06\x00\x06\x00\x04\x00\x4d\x00\x40\x00\x41\x00\x42\x00\x1d\x00\x1e\x00\x2b\x00\x01\x00\x06\x00\x2e\x00\x2f\x00\x4c\x00\x01\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x00\x00\x01\x00\x02\x00\x03\x00\x04\x00\x4c\x00\x3b\x00\x37\x00\x30\x00\x31\x00\x32\x00\x40\x00\x41\x00\x42\x00\x3e\x00\x0c\x00\x07\x00\x03\x00\x02\x00\x3b\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x35\x00\x00\x00\x01\x00\x02\x00\x03\x00\x04\x00\x3b\x00\x00\x00\x01\x00\x02\x00\x03\x00\x04\x00\x0f\x00\x42\x00\x00\x00\x01\x00\x02\x00\x03\x00\x0e\x00\x2e\x00\x0f\x00\x02\x00\x4c\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x35\x00\x00\x00\x01\x00\x02\x00\x03\x00\x04\x00\x3b\x00\x00\x00\x01\x00\x02\x00\x03\x00\x04\x00\x4b\x00\x42\x00\x2e\x00\x0c\x00\x0a\x00\x00\x00\x01\x00\x02\x00\x03\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x35\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x3b\x00\x00\x00\x01\x00\x02\x00\x03\x00\x04\x00\x3b\x00\x42\x00\x4c\x00\x37\x00\x4c\x00\x02\x00\x08\x00\x42\x00\x0b\x00\x4c\x00\x3e\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x35\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x3b\x00\x00\x00\x01\x00\x02\x00\x03\x00\x04\x00\x3b\x00\x42\x00\x03\x00\x4c\x00\x02\x00\x0c\x00\x37\x00\x42\x00\x00\x00\x01\x00\x02\x00\x03\x00\x04\x00\x3e\x00\x4c\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x00\x00\x01\x00\x02\x00\x03\x00\x04\x00\x03\x00\x3b\x00\x04\x00\x00\x00\x01\x00\x02\x00\x03\x00\x04\x00\x42\x00\x4c\x00\x01\x00\x1d\x00\x4c\x00\x06\x00\x04\x00\x04\x00\x04\x00\x00\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x00\x00\x01\x00\x02\x00\x03\x00\x04\x00\x4c\x00\x3b\x00\x04\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x42\x00\x13\x00\x00\x00\x01\x00\x02\x00\x03\x00\x3b\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x01\x00\x42\x00\x02\x00\x30\x00\x31\x00\x13\x00\x3b\x00\x00\x00\x01\x00\x02\x00\x03\x00\x04\x00\x2b\x00\x42\x00\x3b\x00\x2e\x00\x2f\x00\x06\x00\x0a\x00\x2e\x00\x02\x00\x4c\x00\x0c\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x00\x00\x01\x00\x02\x00\x03\x00\x04\x00\x04\x00\x3b\x00\x01\x00\x4c\x00\x01\x00\x01\x00\x07\x00\x02\x00\x42\x00\x01\x00\x00\x00\x02\x00\x37\x00\x01\x00\x00\x00\x01\x00\x02\x00\x03\x00\x04\x00\x3e\x00\x02\x00\x02\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x00\x00\x01\x00\x02\x00\x03\x00\x04\x00\x0a\x00\x3b\x00\x01\x00\x00\x00\x01\x00\x02\x00\x03\x00\x04\x00\x42\x00\x01\x00\x01\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x00\x00\x01\x00\x02\x00\x03\x00\x04\x00\x2b\x00\x3b\x00\x4c\x00\x2e\x00\x2f\x00\x4c\x00\x0a\x00\x00\x00\x42\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x00\x00\x01\x00\x02\x00\x03\x00\x04\x00\x09\x00\x3b\x00\x39\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x42\x00\x24\x00\x03\x00\x30\x00\x18\x00\x38\x00\x3b\x00\x00\x00\x01\x00\x02\x00\x03\x00\x04\x00\x38\x00\x42\x00\x3b\x00\x23\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x07\x00\x4c\x00\x04\x00\x2c\x00\x2d\x00\x04\x00\x3b\x00\x00\x00\x01\x00\x02\x00\x03\x00\x04\x00\x01\x00\x42\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x00\x00\x01\x00\x02\x00\x03\x00\x04\x00\x18\x00\x3b\x00\x10\x00\x00\x00\x01\x00\x02\x00\x03\x00\x04\x00\x42\x00\x0f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x00\x00\x01\x00\x02\x00\x03\x00\x04\x00\x04\x00\x3b\x00\x01\x00\x01\x00\x4c\x00\x4c\x00\x08\x00\x04\x00\x42\x00\x04\x00\x01\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x00\x00\x01\x00\x02\x00\x03\x00\x04\x00\x0e\x00\x3b\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x03\x00\x42\x00\x18\x00\x30\x00\x0c\x00\x06\x00\x3b\x00\x00\x00\x01\x00\x02\x00\x03\x00\x04\x00\x4c\x00\x42\x00\x3b\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x00\x00\x01\x00\x02\x00\x03\x00\x04\x00\x4c\x00\x3b\x00\x4d\x00\x4c\x00\x0e\x00\x03\x00\x07\x00\x04\x00\x42\x00\x4c\x00\x06\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x00\x00\x01\x00\x02\x00\x03\x00\x04\x00\x0c\x00\x3b\x00\x0a\x00\x13\x00\x00\x00\x07\x00\x00\x00\x08\x00\x42\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x00\x00\x01\x00\x02\x00\x03\x00\x04\x00\x0a\x00\x3b\x00\x38\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x42\x00\x18\x00\x01\x00\x18\x00\x4c\x00\x2e\x00\x3b\x00\x00\x00\x01\x00\x02\x00\x03\x00\x04\x00\x23\x00\x42\x00\x23\x00\x0a\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x2c\x00\x2d\x00\x2c\x00\x2d\x00\x4c\x00\x01\x00\x3b\x00\x00\x00\x01\x00\x02\x00\x03\x00\x04\x00\x02\x00\x42\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x00\x00\x01\x00\x02\x00\x03\x00\x04\x00\x4c\x00\x3b\x00\x02\x00\x00\x00\x01\x00\x02\x00\x03\x00\x04\x00\x42\x00\x01\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x00\x00\x01\x00\x02\x00\x03\x00\x04\x00\x52\x00\x3b\x00\x4c\x00\x52\x00\x03\x00\x03\x00\x03\x00\x03\x00\x42\x00\x4c\x00\x52\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x00\x00\x01\x00\x02\x00\x03\x00\x04\x00\x08\x00\x3b\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x0e\x00\x42\x00\x14\x00\x30\x00\x4c\x00\x2f\x00\x3b\x00\xff\xff\x00\x00\x36\x00\xff\xff\x00\x00\xff\xff\x42\x00\x3b\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\xff\xff\xff\xff\x00\x00\xff\xff\xff\xff\x00\x00\x3b\x00\xff\xff\x00\x00\xff\xff\xff\xff\xff\xff\xff\xff\x42\x00\xff\xff\xff\xff\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x21\x00\xff\xff\xff\xff\x21\x00\xff\xff\x18\x00\x3b\x00\x28\x00\x18\x00\x00\x00\x28\x00\x2c\x00\x2d\x00\x42\x00\x2c\x00\x2d\x00\x23\x00\x00\x00\xff\xff\x23\x00\x21\x00\x00\x00\xff\xff\xff\xff\xff\xff\x2c\x00\x2d\x00\x28\x00\x2c\x00\x2d\x00\x00\x00\x2c\x00\x2d\x00\x18\x00\xff\xff\xff\xff\xff\xff\x00\x00\xff\xff\xff\xff\xff\xff\x18\x00\xff\xff\xff\xff\x23\x00\x18\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x23\x00\x2c\x00\x2d\x00\xff\xff\x23\x00\x1b\x00\x1c\x00\xff\xff\xff\xff\x2c\x00\x2d\x00\xff\xff\x1b\x00\x2c\x00\x2d\x00\x25\x00\x26\x00\xff\xff\xff\xff\xff\xff\xff\xff\x2b\x00\x25\x00\x24\x00\xff\xff\xff\xff\x27\x00\x26\x00\x2b\x00\x28\x00\x29\x00\x2a\x00\xff\xff\x2c\x00\xff\xff\xff\xff\x31\x00\x32\x00\xff\xff\xff\xff\xff\xff\x34\x00\x35\x00\x36\x00\x37\x00\xff\xff\xff\xff\x3a\x00\xff\xff\x3c\x00\x3d\x00\x3e\x00\x41\x00\x40\x00\xff\xff\xff\xff\xff\xff\x46\x00\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\xff\xff"# happyTable :: HappyAddr -happyTable = HappyA# "\x00\x00\x3c\x00\x51\x00\x3d\x00\x3c\x00\xe0\x00\x3d\x00\x3c\x00\x3c\x00\x3d\x00\x3d\x00\x3c\x00\x3c\x00\x3d\x00\x3d\x00\x3c\x00\x73\x00\x76\x00\x93\x01\xd9\x01\x45\x00\x07\x00\x08\x00\x09\x00\xe9\x00\x59\x00\x67\x01\xe1\x01\xda\x01\x12\x00\x8d\x01\x13\x00\xe7\x00\x80\x00\x29\x00\x2a\x00\x67\x01\x14\x00\xe8\x00\x81\x00\xe2\x01\x4c\x00\x15\x00\x16\x00\x17\x00\xe0\x00\x94\x01\xc8\x01\x4c\x00\x18\x00\xdc\x01\x60\x00\xcc\xff\x59\x00\xea\x00\xdd\x01\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x8d\x01\x1f\x00\xcb\x01\x06\x00\x20\x00\x98\x01\x01\x01\x21\x00\x06\x00\xcf\x01\x64\x00\x74\x00\x06\x00\x06\x00\xaf\x00\x22\x00\x0f\x00\xe0\x00\x01\x01\x3e\x00\xd9\x00\xb9\x01\x3e\x00\x3f\x00\x54\x00\xc1\x00\xc2\x00\x23\x00\x78\x01\xc3\x00\xc5\x00\x24\x00\x25\x00\xff\xff\x99\x01\x06\x00\x12\x00\x26\x00\x13\x00\x06\x00\x06\x00\x27\x00\x28\x00\x29\x00\x14\x00\x06\x00\xc5\x01\xd5\x00\x06\x00\x15\x00\x16\x00\x17\x00\xd6\x00\x06\x00\xda\x00\x28\x00\x18\x00\x06\x00\x41\x00\x42\x00\x03\x01\x92\x00\x93\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\xc7\x01\x1f\x00\x06\x00\xaf\x00\x20\x00\x43\x00\x99\x00\x21\x00\x9a\x00\xe9\x00\x64\x00\x4c\x00\x69\x01\x06\x00\x06\x00\x22\x00\x58\x00\x0b\x01\x55\x00\x21\x01\x59\x00\x9b\x00\x54\x00\x03\x01\x92\x00\x93\x00\xb0\x01\x23\x00\xe4\x00\x87\x01\x9c\x00\x24\x00\x25\x00\x7c\x01\xd3\x00\x54\x00\x12\x00\x26\x00\x13\x00\xea\x00\x06\x00\x27\x00\x28\x00\x29\x00\x14\x00\xa6\x00\x13\x01\xeb\x00\xad\x01\x15\x00\x16\x00\x17\x00\x06\x00\x2d\x01\x28\x00\xf5\x00\x18\x00\xb4\x01\x14\x01\x99\x00\xa3\x01\x9a\x00\xb6\x01\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x06\x00\x1f\x00\x4c\x00\x17\x01\x20\x00\x9b\x00\xf5\x00\x21\x00\xa6\x00\x13\x01\x06\x00\x27\x00\x28\x00\xbb\x01\x9c\x00\x22\x00\x55\x00\x8d\x00\x64\x01\xf6\x00\x12\x00\x14\x01\x49\x00\x15\x01\x7b\x01\x89\x01\x92\x01\x23\x00\x14\x00\x55\x00\x56\x00\x24\x00\x25\x00\x15\x00\x16\x00\x17\x00\xe2\x01\x26\x00\x91\x01\xf6\x00\x06\x00\x27\x00\x28\x00\x29\x00\x18\x01\x18\x01\xf7\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x99\x00\x1f\x00\x9a\x00\x8a\x01\x20\x00\x19\x01\x19\x01\x5d\x01\xa5\x01\x1a\x01\x06\x00\x27\x00\x28\x00\xc4\x01\x7d\x01\x9b\x00\x91\x00\x92\x00\x93\x00\x96\x01\x73\x00\x9c\x01\x9b\x01\x71\x01\x9c\x00\x72\x01\x64\x01\x23\x00\x14\x00\xaa\x01\x52\x01\x24\x00\x25\x00\x4a\x00\x16\x00\x17\x00\x2f\x00\x26\x00\x81\x00\x30\x00\x06\x00\x27\x00\x28\x00\x29\x00\xe3\x01\x89\x01\xfa\x00\x68\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x12\x00\x37\x01\x49\x00\x97\x01\x20\x00\x2b\xff\x69\x00\x6a\x00\x14\x00\x6b\x00\x6c\x00\x6d\x00\x3e\x01\x15\x00\x16\x00\x17\x00\x47\x01\x94\x00\x81\x00\xf7\xff\x06\x00\x27\x00\x28\x00\x8a\x01\x95\x00\xfd\x00\xda\x00\x4d\x01\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x8b\x01\x73\x01\x96\x00\x39\x01\x20\x00\x4f\x01\x32\x00\x06\x00\x27\x00\x28\x00\x29\x00\x91\x00\x92\x00\x93\x00\x30\x00\x31\x00\x73\x00\xfe\x00\x9b\x01\x2d\x00\x5f\x01\x91\x00\x92\x00\x93\x00\x14\x00\xe2\x00\x6e\x00\x9b\x01\x4c\x00\x4a\x00\x16\x00\x17\x00\x86\x01\x03\x01\x92\x00\x93\x00\xe4\x00\xe5\x00\x69\x01\x67\x01\x06\x00\x27\x00\x28\x00\x29\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x73\x00\x5d\x00\x49\x00\x5e\x00\x20\x00\x03\x01\x92\x00\x93\x00\x14\x00\x64\x01\x6a\x01\xd3\x00\x68\x01\x4a\x00\x16\x00\x17\x00\x94\x00\x03\x01\x92\x00\x93\x00\x89\x00\x4d\x00\x8a\x00\x95\x00\x4e\x00\x10\x01\x94\x00\xb3\x01\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x9d\x01\x96\x00\x97\x00\x6b\x01\x20\x00\xa6\x00\xa7\x00\x06\x00\x27\x00\x28\x00\x29\x00\xa8\x00\x31\xff\xa9\x00\x6e\x01\x31\xff\x12\x00\x64\x01\x49\x00\x64\x01\x2f\x00\xaa\x00\x36\x01\x30\x00\x14\x00\x71\x00\xa6\x00\xa7\x00\x4c\x00\x15\x00\x16\x00\x17\x00\xa8\x00\xbd\x01\x48\x01\x76\x01\xe1\x00\x65\x01\xa6\x00\xa4\x01\x06\x00\x27\x00\x28\x00\x29\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x73\x00\xfd\x00\x49\x00\xec\x00\x20\x00\x91\x00\x92\x00\x93\x00\x14\x00\x45\x00\x07\x00\x08\x00\x09\x00\x4a\x00\x16\x00\x17\x00\x03\x01\x92\x00\x93\x00\x27\x01\x2c\x00\x4d\x00\x2c\x01\x30\x01\x4e\x00\x2e\x01\xfe\x00\xd0\x01\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x2d\x00\xd1\x01\xdb\x01\xff\x00\x20\x00\x2f\x01\x82\x00\x06\x00\x27\x00\x28\x00\x29\x00\x06\x00\x07\x00\x08\x00\x09\x00\xa4\x00\x48\x00\xad\x00\x49\x00\x06\x00\x07\x00\x08\x00\x09\x00\x71\x00\x14\x00\xae\x00\x94\x00\xaf\x00\xc6\x00\x4a\x00\x16\x00\x17\x00\x4d\x00\x09\x01\x0f\x00\x4e\x00\x65\x00\xa6\x00\x16\x01\xc7\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\x91\x00\x92\x00\x93\x00\xc8\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x43\x01\x99\x00\x80\x00\x9a\x00\x0a\x00\x0b\x00\x7a\x00\x0f\x00\x81\x00\xa5\x00\x92\x00\x93\x00\x0b\x01\x4c\xff\x10\x00\x0f\x00\x9b\x00\x71\x01\x7f\x01\x72\x01\x80\x01\x61\x01\x4c\xff\x44\x01\xa8\x01\x9c\x00\x62\x01\x06\x00\x27\x00\x28\x00\x29\x00\x03\x01\x92\x00\x93\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x43\x01\x93\x01\xc9\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0f\x00\x94\x00\x06\x00\x07\x00\x08\x00\x09\x00\x4d\x00\x10\x00\x62\x01\x4e\x00\x65\x00\x03\x01\x92\x00\x93\x00\xca\x00\xcb\x00\x44\x01\x45\x01\xa6\x00\xa7\x00\xd0\x01\x64\x01\x94\x01\x95\x01\xa8\x00\x33\x00\xa9\x00\xd1\x01\xd2\x01\x06\x00\x27\x00\x28\x00\xc2\x01\x43\x00\xaa\x00\xab\x00\xc3\x01\xc0\x01\xc0\x01\x76\x01\xa6\x00\xa7\x00\xa0\x00\x0a\x00\x0b\x00\x7b\x00\xa8\x00\xa1\x00\xa9\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x25\x01\x0f\x00\x34\x00\xaa\x00\x4a\x01\x53\x00\x5c\x00\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\xa6\x00\xa7\x00\x10\x00\x5a\x00\xe5\x01\x26\x01\xa8\x00\xb1\x00\xa9\x00\xb2\x00\xb3\x00\xb4\x00\xc7\x01\xb5\x00\xe0\x01\xe6\x01\xaa\x00\x04\x01\xdf\x01\x06\x00\xd4\x01\xb6\x00\xb7\x00\xb8\x00\xb9\x00\xd5\x01\xd7\x01\xba\x00\xd6\x01\xbb\x00\xbc\x00\xbd\x00\xd9\x01\xbe\x00\x06\x00\x07\x00\x08\x00\x09\x00\xbf\x00\xc0\x00\x27\x00\xc1\x00\xd8\x01\x0a\x00\x0b\x00\x7c\x00\xb1\x00\xce\x01\xb2\x00\xb3\x00\xb4\x00\xcf\x01\xb5\x00\x06\x00\x0f\x00\xbd\x01\x60\x00\x07\x00\x08\x00\x09\x00\xb6\x00\xb7\x00\xb8\x00\xb9\x00\xbf\x01\x06\x00\xba\x00\xca\x01\xbb\x00\xbc\x00\xbd\x00\x4c\x00\xbe\x00\xcb\x01\x52\x01\xaf\x01\xac\x01\xbf\x00\xc0\x00\xad\x01\xc1\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x59\x00\x60\x00\x07\x00\x08\x00\x09\x00\xb0\x01\x80\x00\x0f\x00\x91\x00\x92\x00\x93\x00\x4c\x00\x81\x00\x06\x00\x10\x00\x5a\x00\x82\x00\x5b\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x61\x00\x06\x00\x07\x00\x08\x00\x09\x00\xb2\x01\x4d\x00\x0f\x00\xb6\x01\x4e\x00\x9c\x00\xb9\x01\x55\x00\xaa\x01\x10\x00\xf2\x00\xb8\x01\x06\x00\xbb\x01\x06\x00\x06\x00\x07\x00\x08\x00\x09\x00\x75\x01\x8f\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x61\x00\xf4\x00\x06\x00\x07\x00\x08\x00\x09\x00\x78\x01\x0f\x00\x06\x00\x7b\x01\x94\x00\x81\x01\x55\x00\x62\x00\x10\x00\x06\x00\x83\x01\x09\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\xa2\x00\x46\x01\x06\x00\x07\x00\x08\x00\x09\x00\x86\x01\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x06\x00\x8f\x01\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\xa2\x00\x02\x01\x06\x00\x07\x00\x08\x00\x09\x00\xa0\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\xa1\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\xcc\x01\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x06\x00\x0f\x00\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\xc3\x01\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\x34\x01\x0f\x00\x9f\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\xa7\x01\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\xb2\x01\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x35\x01\x0f\x00\x10\x00\x94\x00\xa7\x01\x64\x01\x32\x01\x33\x01\x10\x00\x06\x00\x1e\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x83\x01\x06\x00\x07\x00\x08\x00\x09\x00\x3c\x01\x75\x01\x0f\x00\x76\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x84\x01\x10\x00\x4c\x00\x3b\x01\x3f\x01\x3d\x01\x40\x01\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x42\x01\x43\x01\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x88\x01\x06\x00\x07\x00\x08\x00\x09\x00\x41\x01\x4c\x01\x0f\x00\x4d\x01\x45\x00\x07\x00\x08\x00\x09\x00\x06\x00\x10\x00\x64\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x90\x01\x06\x00\x07\x00\x08\x00\x09\x00\x4d\x00\x06\x00\x0f\x00\x4e\x00\x4f\x00\x4f\x01\x79\x01\x51\x01\x76\x01\x10\x00\x53\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\xa1\x01\x06\x00\x07\x00\x08\x00\x09\x00\x54\x01\x55\x01\x0f\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\xa2\x01\x56\x01\x10\x00\x64\x00\x0a\x00\x6e\x00\x57\x01\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x58\x01\x5e\x01\x10\x00\x0f\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x35\x01\x06\x00\x07\x00\x08\x00\x09\x00\x59\x01\x5c\x01\x0f\x00\x5d\x01\x45\x00\x07\x00\x08\x00\x09\x00\x5f\x01\x10\x00\x06\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x38\x01\x06\x00\x07\x00\x08\x00\x09\x00\x4d\x00\x64\x01\x0f\x00\x4e\x00\x65\x00\x06\x00\x70\x01\x6d\x01\x6e\x01\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x49\x01\x06\x00\x07\x00\x08\x00\x09\x00\x74\x01\xcf\x00\x0f\x00\x02\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x0e\x01\x10\x00\xd9\x00\xd7\x00\x0a\x00\x6e\x00\xd8\x00\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x07\x01\x06\x00\x10\x00\x0f\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x0f\x01\x06\x00\x07\x00\x08\x00\x09\x00\x08\x01\x06\x01\x0f\x00\x09\x01\x0c\x01\x8a\x00\xda\x00\x13\x01\x0d\x01\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x11\x01\x06\x00\x07\x00\x08\x00\x09\x00\x0e\x01\x1c\x01\x0f\x00\x06\x00\x1d\x01\x20\x01\x06\x00\x21\x01\x1e\x01\x10\x00\xdb\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x22\x01\x06\x00\x07\x00\x08\x00\x09\x00\x2c\x01\x81\x01\x0f\x00\x29\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x24\x01\x10\x00\xdd\x00\xde\x00\x24\x01\x27\x00\x06\x00\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x70\x00\x06\x00\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x2a\x01\x06\x00\x07\x00\x08\x00\x09\x00\x06\x00\x77\x00\x0f\x00\x7f\x00\x45\x00\x07\x00\x08\x00\x09\x00\x84\x00\x10\x00\x06\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x77\x00\x06\x00\x07\x00\x08\x00\x09\x00\x85\x00\x86\x00\x0f\x00\x8c\x00\x8b\x00\x8d\x00\x91\x00\x8f\x00\x9e\x00\x10\x00\x90\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x78\x00\x06\x00\x07\x00\x08\x00\x09\x00\x9f\x00\x06\x00\x0f\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x79\x00\x81\x00\x10\x00\xc5\x00\x46\x00\x06\x00\x06\x00\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\xcd\x00\xce\x00\x10\x00\x0f\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x7d\x00\x06\x00\x07\x00\x08\x00\x09\x00\x3c\x00\xff\xff\x0f\x00\xff\xff\x45\x00\x07\x00\x08\x00\x09\x00\x45\x00\x10\x00\x06\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\xa1\x00\x06\x00\x07\x00\x08\x00\x09\x00\x4b\x00\x4c\x00\x0f\x00\x52\x00\x45\x00\x07\x00\x08\x00\x09\x00\x06\x00\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x61\x00\x67\x00\xda\x00\xff\xff\x06\x00\x70\x00\x2c\x00\x0f\x00\x71\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x52\x00\x10\x00\xda\x00\x00\x00\x86\x00\xda\x00\x00\x00\x0f\x00\xda\x00\x00\x00\x29\x01\xda\x00\x00\x00\x00\x00\x10\x00\x0f\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x0e\x00\xe2\x00\x00\x00\x00\x00\x86\x00\xdb\x00\xda\x00\x0f\x00\x59\x01\x00\x00\x87\x00\xdb\x00\xe4\x00\xe5\x00\x10\x00\x0f\x00\xdc\x00\xe2\x00\xda\x00\x00\x00\xda\x00\x00\x00\xe0\x00\xe2\x00\x5a\x01\xdd\x00\xde\x00\x00\x00\xe4\x00\xe5\x00\xe3\x00\xdd\x00\xde\x00\xda\x00\xe4\x00\xe5\x00\xda\x00\x00\x00\xe2\x00\x4c\x00\x00\x00\xdb\x00\x00\x00\xdb\x00\x36\x00\xf0\x00\x00\x00\x37\x00\xda\x00\xe4\x00\xe5\x00\xda\x00\xe8\x00\x00\x00\xed\x00\x00\x00\xdb\x00\x38\x00\x39\x00\xdb\x00\xf9\x00\xdd\x00\xde\x00\xdd\x00\xde\x00\xf2\x00\x00\x00\xee\x00\x00\x00\x00\x00\xef\x00\xdb\x00\x00\x00\x3a\x00\xdb\x00\xf3\x00\xdd\x00\xde\x00\x3b\x00\xdd\x00\xde\x00\xf4\x00\xf1\x00\x00\x00\x00\x00\xf8\x00\xf2\x00\xfa\x00\x00\x00\x00\x00\x00\x00\xdd\x00\xde\x00\x00\x00\xdd\x00\xde\x00\xfb\x00\xfc\x00\xcf\x00\x00\x00\x00\x00\xb1\x00\xf4\x00\xb2\x00\xb3\x00\xb4\x00\x00\x00\xb5\x00\x00\x00\x00\x00\x00\x00\xd0\x00\x00\x00\xd1\x00\x00\x00\xb6\x00\xb7\x00\xb8\x00\xb9\x00\xd2\x00\xd3\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\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\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\x3e\x00\x53\x00\x3f\x00\x3e\x00\x62\x00\x3f\x00\x3e\x00\x3e\x00\x3f\x00\x3f\x00\x3e\x00\x3e\x00\x3f\x00\x3f\x00\x3e\x00\xe3\x00\x5b\x00\x75\x00\xd2\x01\x47\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x93\x00\x94\x00\x95\x00\x96\x00\x4e\x00\x13\x00\x6a\x01\x14\x00\x6c\x01\x4e\x00\x2b\x00\x2c\x00\xdc\x01\x15\x00\x2e\xff\x90\x01\x6a\x01\x2e\xff\x16\x00\x17\x00\x18\x00\x99\x01\xdd\x01\x4e\x00\x56\x00\x19\x00\xe0\x01\x73\x00\x04\x01\x5b\x00\x7f\x01\xd6\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x1f\x00\xcb\xff\x20\x00\xce\x01\x06\x00\x21\x00\x9b\x01\x06\x00\x22\x00\x29\x00\xbc\x01\x66\x00\xfd\x00\x06\x00\x76\x00\x7b\x01\x23\x00\x10\x00\x97\x00\x06\x00\x40\x00\xdc\x00\x9a\x01\x40\x00\x41\x00\x98\x00\xc4\x00\xc5\x00\x24\x00\x30\x01\xc6\x00\xc8\x00\x25\x00\x26\x00\xff\xff\x9c\x01\x99\x00\x3c\x01\x27\x00\xdf\x01\x06\x00\x06\x00\x28\x00\x29\x00\x2a\x00\x2b\x00\x13\x00\xe3\x00\x14\x00\x06\x00\x06\x00\x57\x00\x24\x01\x04\x01\x15\x00\x9c\x00\x06\x00\x9d\x00\xd8\x00\x16\x00\x17\x00\x18\x00\x60\x01\xd9\x00\xb2\x00\x78\x00\x19\x00\x9c\x00\x06\x00\x9d\x00\x9e\x00\x43\x00\x44\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x1f\x00\x9f\x00\x20\x00\x56\x00\x9e\x00\x21\x00\x67\x01\x64\x01\x22\x00\x45\x00\xd3\x01\x66\x00\x65\x01\x9f\x00\x34\x00\x9c\x00\x23\x00\x9d\x00\xd4\x01\xde\x01\x56\x00\x00\x01\xe3\x00\xc0\x01\xc8\x01\x79\x01\x0e\x01\x2f\x00\x24\x00\x74\x01\x9e\x00\x75\x01\x25\x00\x26\x00\x06\x00\x06\x00\xca\x01\xdd\x00\x27\x00\x9f\x00\x06\x00\x06\x00\x28\x00\x29\x00\x2a\x00\x2b\x00\x13\x00\x01\x01\x14\x00\xea\x00\x06\x00\x28\x00\x29\x00\x2a\x00\x15\x00\xeb\x00\x06\x00\x9e\x01\x29\x00\x16\x00\x17\x00\x18\x00\x06\x00\x28\x00\x29\x00\x2a\x00\x19\x00\x57\x00\x8f\x00\x06\x01\x94\x00\x95\x00\x96\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x1f\x00\x00\x01\x20\x00\xe7\x00\x8a\x01\x21\x00\x57\x00\x58\x00\x22\x00\x06\x00\x06\x00\x28\x00\x29\x00\x2a\x00\xb2\x00\x76\x01\x23\x00\x06\x01\x94\x00\x95\x00\x96\x00\x13\x00\x5a\x00\x4b\x00\x82\x00\xb0\x01\x5b\x00\x01\x01\x24\x00\x15\x00\x83\x00\xd3\x01\x25\x00\x26\x00\x16\x00\x17\x00\x18\x00\x02\x01\x27\x00\xd4\x01\xd5\x01\x06\x00\x28\x00\x29\x00\x2a\x00\x2b\x00\xa9\x00\x16\x01\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x1f\x00\x55\x01\x20\x00\x4e\x00\x1a\x01\x21\x00\x17\x01\x67\x01\xa6\x01\x83\x00\x06\x01\x94\x00\x95\x00\x96\x00\xf8\x00\x93\x00\x94\x00\x95\x00\x96\x00\xa9\x00\xaa\x00\x75\x00\x06\x00\x9e\x01\xc3\x01\xab\x00\x79\x01\x4b\x01\x24\x00\x15\x00\xad\x01\x41\x01\x25\x00\x26\x00\x4c\x00\x17\x00\x18\x00\x83\x00\x27\x00\x8c\x01\xb3\x01\x06\x00\x28\x00\x29\x00\x2a\x00\x2b\x00\x1b\x01\x1b\x01\xf9\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x1f\x00\x13\x00\x95\x01\x4b\x00\x67\x01\x21\x00\x28\xff\x1c\x01\x1c\x01\x15\x00\xa8\x01\x1d\x01\xa9\x00\x16\x01\x16\x00\x17\x00\x18\x00\x97\x00\x8d\x01\x4e\x00\xf8\x00\xec\x00\xb7\x01\xe5\x01\x98\x00\x17\x01\xe4\x01\x18\x01\xc7\x01\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x1f\x00\x31\x00\x99\x00\x9a\x00\x32\x00\x21\x00\xe5\x01\xb9\x01\x06\x00\x28\x00\x29\x00\x2a\x00\x2b\x00\xf5\x00\xa8\x00\x94\x00\x95\x00\x96\x00\x75\x00\xed\x00\x9e\x01\xf9\x00\x6a\x00\x92\x01\xbe\x01\x4e\x00\x15\x00\x90\x01\xfa\x00\xf7\x00\x7e\x01\x4c\x00\x17\x00\x18\x00\x6b\x00\x6c\x00\x94\x01\x6d\x00\x6e\x00\x6f\x00\xd2\x00\x06\x00\x28\x00\x29\x00\x2a\x00\x2b\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x1f\x00\x75\x00\x80\x01\x4b\x00\xd3\x00\x21\x00\xd4\x00\x4f\x00\x8c\x01\x15\x00\x50\x00\x67\x00\xd5\x00\xd6\x00\x4c\x00\x17\x00\x18\x00\x3a\x01\x4f\x00\xa9\x00\xaa\x00\x50\x00\x13\x01\xec\x00\x9f\x01\xab\x00\x2e\x00\xac\x00\xdd\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x1f\x00\x4a\x01\xad\x00\xae\x00\x70\x00\x21\x00\x2f\x00\x8d\x01\x06\x00\x28\x00\x29\x00\x2a\x00\x2b\x00\x06\x01\x94\x00\x95\x00\x96\x00\x8e\x01\x13\x00\xde\x00\x4b\x00\xed\x00\x06\x01\x94\x00\x95\x00\x96\x00\x15\x00\xdd\x00\x96\x01\xee\x00\x84\x01\x16\x00\x17\x00\x18\x00\x06\x01\x94\x00\x95\x00\x96\x00\x50\x01\xe0\x00\xe1\x00\x06\x00\x28\x00\x29\x00\x2a\x00\x2b\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x1f\x00\x75\x00\xc5\x01\x4b\x00\x67\x01\x21\x00\xc6\x01\x97\x01\xcb\x01\x15\x00\xe5\x00\x5f\x00\xb0\x00\x60\x00\x4c\x00\x17\x00\x18\x00\x89\x01\xa9\x00\xaa\x00\xb1\x00\xe7\x00\xe8\x00\xe6\x01\xab\x00\x4e\x00\xac\x00\xa9\x00\xa7\x01\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x1f\x00\xad\x00\x39\x01\x32\x00\x33\x00\x21\x00\xa9\x00\x19\x01\x06\x00\x28\x00\x29\x00\x2a\x00\x2b\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x4a\x00\x52\x01\x4b\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x15\x00\x62\x01\x6a\x01\x6c\x01\x82\x00\x4c\x00\x17\x00\x18\x00\x67\x01\x4f\x00\x83\x00\x6b\x01\x50\x00\x31\x01\x84\x00\x06\x00\x28\x00\x29\x00\x2a\x00\x2b\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x1f\x00\x6d\x01\xd6\x00\xb6\x01\x6e\x01\x21\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x0e\x00\x46\x01\x9c\x00\x82\x00\x9d\x00\x0b\x00\x0c\x00\x7c\x00\x10\x00\x83\x00\x8b\x00\x71\x01\x8c\x00\x0e\x01\x4a\xff\x11\x00\x10\x00\x9e\x00\x06\x01\x94\x00\x95\x00\x96\x00\xe4\x00\x4a\xff\x47\x01\xab\x01\x9f\x00\x06\x00\x28\x00\x29\x00\x2a\x00\x2b\x00\x06\x01\x94\x00\x95\x00\x96\x00\x93\x00\x94\x00\x95\x00\x96\x00\x0b\x00\x0c\x00\x0d\x00\x0e\x00\x46\x01\x67\x01\x47\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x10\x00\x67\x01\x47\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x11\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x68\x01\xef\x00\x2a\x01\x47\x01\x48\x01\x78\x01\x33\x01\x79\x01\x2f\x01\xa9\x00\xaa\x00\x06\x00\x28\x00\x29\x00\x2a\x00\xab\x00\x67\x01\xac\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\xa9\x00\xaa\x00\xad\x00\x4d\x01\x97\x00\x32\x01\xab\x00\x88\x00\xac\x00\x84\x00\x7c\x01\xa0\x01\x79\x01\x2c\x01\x0b\x00\x70\x00\xad\x00\x07\x01\x10\x00\xc3\x01\x0b\x00\x0c\x00\x0d\x00\x0e\x00\x28\x01\x10\x00\x4f\x00\xa7\x00\xb2\x00\x50\x00\x67\x00\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x31\x00\x11\x00\x5c\x00\x32\x00\x29\x01\xc9\x00\x0b\x00\x0c\x00\x0d\x00\x0e\x00\x5b\x00\x74\x01\x82\x01\x75\x01\x83\x01\xca\x01\xb4\x00\x10\x00\xb5\x00\xb6\x00\xb7\x00\xa3\x00\xb8\x00\xca\x00\x11\x00\x5c\x00\xa4\x00\x5d\x00\xcb\x00\xcc\x00\xb9\x00\xba\x00\xbb\x00\xbc\x00\xdd\x00\xcd\x00\xbd\x00\xf6\xff\xbe\x00\xbf\x00\xc0\x00\xce\x00\xc1\x00\x0b\x00\x0c\x00\x7d\x00\x35\x00\xc2\x00\xc3\x00\xb4\x00\xc4\x00\xb5\x00\xb6\x00\xb7\x00\x10\x00\xb8\x00\x62\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x36\x00\x45\x00\xb9\x00\xba\x00\xbb\x00\xbc\x00\xe5\x00\x55\x00\xbd\x00\x5e\x00\xbe\x00\xbf\x00\xc0\x00\x5c\x01\xc1\x00\xe3\x01\xe8\x01\xe7\x00\xe8\x00\xc2\x00\xc3\x00\x4e\x00\xc4\x00\x62\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x93\x00\x94\x00\x95\x00\x96\x00\xe9\x01\x96\x01\xe2\x01\x06\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\xd7\x01\xd8\x01\x0b\x00\x0c\x00\x0d\x00\x0e\x00\x63\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\xd9\x01\x10\x00\xda\x01\xdb\x01\xdc\x01\x28\x00\x57\x00\xad\x01\x11\x00\x97\x01\x98\x01\x4f\x00\xd1\x01\xd2\x01\x50\x00\x9f\x00\x06\x00\xc0\x01\x0b\x00\x0c\x00\x0d\x00\x0e\x00\x63\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x06\x00\x10\x00\x97\x00\x0b\x00\x0c\x00\x7e\x00\x57\x00\x64\x00\x11\x00\x0c\x01\xc2\x01\xcd\x01\xce\x01\x55\x01\x10\x00\x0b\x00\x0c\x00\x0d\x00\x0e\x00\xa5\x00\x49\x01\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\xaf\x01\x11\x00\x93\x00\x94\x00\x95\x00\x96\x00\xb0\x01\xb2\x01\xb3\x01\xb5\x01\x06\x00\x0b\x00\x0c\x00\x0d\x00\x0e\x00\xa5\x00\x05\x01\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\xb9\x01\x11\x00\xbb\x01\xbc\x01\xbe\x01\x93\x00\x94\x00\x95\x00\x96\x00\x0b\x00\x0c\x00\x0d\x00\x0e\x00\xa5\x00\xa6\x00\x0b\x00\x0c\x00\x0d\x00\x0e\x00\xcf\x01\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x10\x00\x11\x00\x06\x00\x97\x00\x06\x00\x78\x01\x84\x01\x11\x00\x7b\x01\x06\x00\x65\x01\x0b\x00\x0c\x00\x0d\x00\x0e\x00\xa5\x00\xb1\x00\x0b\x00\x0c\x00\x0d\x00\x0e\x00\xc6\x01\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x10\x00\x11\x00\x7e\x01\x06\x00\x86\x01\x89\x01\x97\x00\x11\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x0c\x01\x06\x00\x0b\x00\x0c\x00\x0d\x00\x0e\x00\xaa\x01\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x92\x01\x10\x00\xa2\x01\x47\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x11\x00\x06\x00\xa3\x01\xa4\x01\x06\x00\x37\x01\xaa\x01\x35\x01\x36\x01\x4e\x00\x0b\x00\x0c\x00\x0d\x00\x0e\x00\xb5\x01\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x06\x00\x10\x00\x3e\x01\x0b\x00\x0c\x00\x0d\x00\x0e\x00\x86\x01\x11\x00\x38\x01\x93\x00\x94\x00\x95\x00\x96\x00\x10\x00\x0b\x00\x0c\x00\x0d\x00\x0e\x00\x87\x01\x3f\x01\x11\x00\x40\x01\x0b\x00\x70\x00\x43\x01\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x4f\x00\x11\x00\x10\x00\x50\x00\x51\x00\x42\x01\x44\x01\x45\x01\x46\x01\x06\x00\x50\x01\x0b\x00\x0c\x00\x0d\x00\x0e\x00\x8b\x01\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x4f\x01\x10\x00\x52\x01\x06\x00\x54\x01\x56\x01\x58\x01\x57\x01\x11\x00\x59\x01\x66\x00\x5a\x01\x97\x00\x5b\x01\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x21\x01\x5c\x01\x5f\x01\x0b\x00\x0c\x00\x0d\x00\x0e\x00\x93\x01\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x60\x01\x10\x00\x61\x01\x47\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x11\x00\x62\x01\x67\x01\x0b\x00\x0c\x00\x0d\x00\x0e\x00\xa4\x01\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x4f\x00\x10\x00\x06\x00\x50\x00\x67\x00\x06\x00\x70\x01\xdd\x00\x11\x00\x0b\x00\x0c\x00\x0d\x00\x0e\x00\xa5\x01\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x71\x01\x10\x00\x73\x01\x0b\x00\x0c\x00\x0d\x00\x0e\x00\x38\x01\x11\x00\x77\x01\xd2\x00\x73\x00\xde\x00\xda\x00\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\xdb\x00\x11\x00\x10\x00\xdf\x00\x0b\x00\x0c\x00\x0d\x00\x0e\x00\x3b\x01\xdc\x00\x06\x00\x05\x01\xe0\x00\xe1\x00\x09\x01\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x0a\x01\x11\x00\x0b\x00\x0c\x00\x0d\x00\x0e\x00\x4c\x01\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x01\x10\x00\x8c\x00\x47\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x11\x00\x0c\x01\x0b\x00\x0c\x00\x0d\x00\x0e\x00\x11\x01\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x0f\x01\x10\x00\x10\x01\x11\x01\x06\x00\x06\x00\x21\x01\x16\x01\x11\x00\x1f\x01\x20\x01\x0b\x00\x0c\x00\x0d\x00\x0e\x00\x12\x01\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x23\x01\x10\x00\x0b\x00\x0c\x00\x0d\x00\x0e\x00\x14\x01\x24\x01\x11\x00\x27\x01\x48\x00\x2c\x01\x2f\x01\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x06\x00\x11\x00\x10\x00\x0b\x00\x0c\x00\x0d\x00\x0e\x00\x25\x01\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x06\x00\x10\x00\x28\x00\x06\x00\x72\x00\x79\x00\x86\x00\x81\x00\x11\x00\x06\x00\x87\x00\x0b\x00\x0c\x00\x0d\x00\x0e\x00\x27\x01\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x88\x00\x10\x00\x8e\x00\x8d\x00\xdd\x00\x8f\x00\xdd\x00\x91\x00\x11\x00\x0b\x00\x0c\x00\x0d\x00\x0e\x00\x2d\x01\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x92\x00\x10\x00\x93\x00\x0b\x00\x0c\x00\x0d\x00\x0e\x00\x79\x00\x11\x00\xde\x00\xa2\x00\xde\x00\x06\x00\xa1\x00\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\xe3\x00\x11\x00\xeb\x00\x83\x00\x0b\x00\x0c\x00\x0d\x00\x0e\x00\x7a\x00\xe0\x00\xe1\x00\xe0\x00\xe1\x00\x06\x00\xc8\x00\x10\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\xd0\x00\x11\x00\x0b\x00\x0c\x00\x0d\x00\x0e\x00\x7b\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x06\x00\x10\x00\xd1\x00\x47\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x11\x00\x3e\x00\x0b\x00\x0c\x00\x0d\x00\x0e\x00\x7f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\xff\xff\x10\x00\x06\x00\xff\xff\x47\x00\x4d\x00\x4e\x00\x54\x00\x11\x00\x06\x00\xff\xff\x0b\x00\x0c\x00\x0d\x00\x0e\x00\xa4\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x69\x00\x10\x00\x0b\x00\x0c\x00\x0d\x00\x0e\x00\x63\x00\x72\x00\x11\x00\x73\x00\x88\x00\x06\x00\x2e\x00\x10\x00\x00\x00\xdd\x00\x89\x00\x00\x00\xdd\x00\x00\x00\x11\x00\x10\x00\x0b\x00\x0c\x00\x0d\x00\x0e\x00\x54\x00\x00\x00\x00\x00\xdd\x00\x00\x00\x00\x00\xdd\x00\x10\x00\x00\x00\xdd\x00\x00\x00\x00\x00\x00\x00\x00\x00\x11\x00\x00\x00\x00\x00\x0b\x00\x0c\x00\x0d\x00\x0e\x00\x0f\x00\xe5\x00\x00\x00\x00\x00\xe5\x00\x00\x00\xde\x00\x10\x00\x5d\x01\xde\x00\xdd\x00\xe6\x00\xe7\x00\xe8\x00\x11\x00\xe7\x00\xe8\x00\xf0\x00\xdd\x00\x00\x00\xf1\x00\xe5\x00\xdd\x00\x00\x00\x00\x00\x00\x00\xe0\x00\xe1\x00\xf3\x00\xe0\x00\xe1\x00\xfc\x00\xe7\x00\xe8\x00\xde\x00\x00\x00\x00\x00\x00\x00\x4e\x00\x00\x00\x00\x00\x00\x00\xde\x00\x00\x00\x00\x00\xf2\x00\xde\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xf4\x00\xe0\x00\xe1\x00\x00\x00\xfb\x00\xf5\x00\xfd\x00\x00\x00\x00\x00\xe0\x00\xe1\x00\x00\x00\xf5\x00\xe0\x00\xe1\x00\xfe\x00\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\xf7\x00\xf6\x00\x38\x00\x00\x00\x00\x00\x39\x00\xb4\x00\xf7\x00\xb5\x00\xb6\x00\xb7\x00\x00\x00\xb8\x00\x00\x00\x00\x00\x3a\x00\x3b\x00\x00\x00\x00\x00\x00\x00\xb9\x00\xba\x00\xbb\x00\xbc\x00\x00\x00\x00\x00\xbd\x00\x00\x00\xbe\x00\xbf\x00\xc0\x00\x3c\x00\xc1\x00\x00\x00\x00\x00\x00\x00\x3d\x00\xc2\x00\xc3\x00\x00\x00\xc4\x00\x00\x00\x00\x00\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, 246) [ +happyReduceArr = array (4, 249) [ (4 , happyReduce_4), (5 , happyReduce_5), (6 , happyReduce_6), @@ -771,11 +777,14 @@ happyReduceArr = array (4, 246) [ (243 , happyReduce_243), (244 , happyReduce_244), (245 , happyReduce_245), - (246 , happyReduce_246) + (246 , happyReduce_246), + (247 , happyReduce_247), + (248 , happyReduce_248), + (249 , happyReduce_249) ] -happy_n_terms = 82 :: Int -happy_n_nonterms = 82 :: Int +happy_n_terms = 83 :: Int +happy_n_nonterms = 83 :: Int happyReduce_4 = happySpecReduce_1 0# happyReduction_4 happyReduction_4 happy_x_1 @@ -800,42 +809,49 @@ happyReduction_6 happy_x_1 happyReduce_7 = happySpecReduce_1 3# happyReduction_7 happyReduction_7 happy_x_1 - = case happyOutTok happy_x_1 of { (PT _ (T_LString happy_var_1)) -> + = case happyOutTok happy_x_1 of { (PT _ (TD happy_var_1)) -> happyIn10 - (LString (happy_var_1) + ((read happy_var_1) :: Double )} happyReduce_8 = happySpecReduce_1 4# happyReduction_8 happyReduction_8 happy_x_1 - = case happyOut12 happy_x_1 of { happy_var_1 -> + = case happyOutTok happy_x_1 of { (PT _ (T_LString happy_var_1)) -> happyIn11 + (LString (happy_var_1) + )} + +happyReduce_9 = happySpecReduce_1 5# happyReduction_9 +happyReduction_9 happy_x_1 + = case happyOut13 happy_x_1 of { happy_var_1 -> + happyIn12 (Gr (reverse happy_var_1) )} -happyReduce_9 = happySpecReduce_0 5# happyReduction_9 -happyReduction_9 = happyIn12 +happyReduce_10 = happySpecReduce_0 6# happyReduction_10 +happyReduction_10 = happyIn13 ([] ) -happyReduce_10 = happySpecReduce_2 5# happyReduction_10 -happyReduction_10 happy_x_2 - happy_x_1 - = case happyOut12 happy_x_1 of { happy_var_1 -> - case happyOut13 happy_x_2 of { happy_var_2 -> - happyIn12 - (flip (:) happy_var_1 happy_var_2 - )}} - happyReduce_11 = happySpecReduce_2 6# happyReduction_11 happyReduction_11 happy_x_2 happy_x_1 = case happyOut13 happy_x_1 of { happy_var_1 -> + case happyOut14 happy_x_2 of { happy_var_2 -> happyIn13 + (flip (:) happy_var_1 happy_var_2 + )}} + +happyReduce_12 = happySpecReduce_2 7# happyReduction_12 +happyReduction_12 happy_x_2 + happy_x_1 + = case happyOut14 happy_x_1 of { happy_var_1 -> + happyIn14 (happy_var_1 )} -happyReduce_12 = happyReduce 10# 6# happyReduction_12 -happyReduction_12 (happy_x_10 `HappyStk` +happyReduce_13 = happyReduce 10# 7# happyReduction_13 +happyReduction_13 (happy_x_10 `HappyStk` happy_x_9 `HappyStk` happy_x_8 `HappyStk` happy_x_7 `HappyStk` @@ -848,140 +864,128 @@ happyReduction_12 (happy_x_10 `HappyStk` happyRest) = case happyOut7 happy_x_2 of { happy_var_2 -> case happyOut7 happy_x_7 of { happy_var_7 -> - case happyOut15 happy_x_9 of { happy_var_9 -> - happyIn13 + case happyOut16 happy_x_9 of { happy_var_9 -> + happyIn14 (MMain happy_var_2 happy_var_7 happy_var_9 ) `HappyStk` happyRest}}} -happyReduce_13 = happyReduce 4# 6# happyReduction_13 -happyReduction_13 (happy_x_4 `HappyStk` +happyReduce_14 = happyReduce 4# 7# happyReduction_14 +happyReduction_14 (happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` happyRest) - = case happyOut26 happy_x_1 of { happy_var_1 -> - case happyOut19 happy_x_2 of { happy_var_2 -> - case happyOut20 happy_x_4 of { happy_var_4 -> - happyIn13 + = case happyOut27 happy_x_1 of { happy_var_1 -> + case happyOut20 happy_x_2 of { happy_var_2 -> + case happyOut21 happy_x_4 of { happy_var_4 -> + happyIn14 (MModule happy_var_1 happy_var_2 happy_var_4 ) `HappyStk` happyRest}}} -happyReduce_14 = happySpecReduce_3 7# happyReduction_14 -happyReduction_14 happy_x_3 +happyReduce_15 = happySpecReduce_3 8# happyReduction_15 +happyReduction_15 happy_x_3 happy_x_2 happy_x_1 = case happyOut7 happy_x_1 of { happy_var_1 -> - case happyOut16 happy_x_3 of { happy_var_3 -> - happyIn14 + case happyOut17 happy_x_3 of { happy_var_3 -> + happyIn15 (ConcSpec happy_var_1 happy_var_3 )}} -happyReduce_15 = happySpecReduce_0 8# happyReduction_15 -happyReduction_15 = happyIn15 +happyReduce_16 = happySpecReduce_0 9# happyReduction_16 +happyReduction_16 = happyIn16 ([] ) -happyReduce_16 = happySpecReduce_1 8# happyReduction_16 -happyReduction_16 happy_x_1 - = case happyOut14 happy_x_1 of { happy_var_1 -> - happyIn15 +happyReduce_17 = happySpecReduce_1 9# happyReduction_17 +happyReduction_17 happy_x_1 + = case happyOut15 happy_x_1 of { happy_var_1 -> + happyIn16 ((:[]) happy_var_1 )} -happyReduce_17 = happySpecReduce_3 8# happyReduction_17 -happyReduction_17 happy_x_3 +happyReduce_18 = happySpecReduce_3 9# happyReduction_18 +happyReduction_18 happy_x_3 happy_x_2 happy_x_1 - = case happyOut14 happy_x_1 of { happy_var_1 -> - case happyOut15 happy_x_3 of { happy_var_3 -> - happyIn15 + = case happyOut15 happy_x_1 of { happy_var_1 -> + case happyOut16 happy_x_3 of { happy_var_3 -> + happyIn16 ((:) happy_var_1 happy_var_3 )}} -happyReduce_18 = happySpecReduce_2 9# happyReduction_18 -happyReduction_18 happy_x_2 +happyReduce_19 = happySpecReduce_2 10# happyReduction_19 +happyReduction_19 happy_x_2 happy_x_1 = case happyOut7 happy_x_1 of { happy_var_1 -> - case happyOut17 happy_x_2 of { happy_var_2 -> - happyIn16 + case happyOut18 happy_x_2 of { happy_var_2 -> + happyIn17 (ConcExp happy_var_1 (reverse happy_var_2) )}} -happyReduce_19 = happySpecReduce_0 10# happyReduction_19 -happyReduction_19 = happyIn17 +happyReduce_20 = happySpecReduce_0 11# happyReduction_20 +happyReduction_20 = happyIn18 ([] ) -happyReduce_20 = happySpecReduce_2 10# happyReduction_20 -happyReduction_20 happy_x_2 +happyReduce_21 = happySpecReduce_2 11# happyReduction_21 +happyReduction_21 happy_x_2 happy_x_1 - = case happyOut17 happy_x_1 of { happy_var_1 -> - case happyOut18 happy_x_2 of { happy_var_2 -> - happyIn17 + = case happyOut18 happy_x_1 of { happy_var_1 -> + case happyOut19 happy_x_2 of { happy_var_2 -> + happyIn18 (flip (:) happy_var_1 happy_var_2 )}} -happyReduce_21 = happyReduce 5# 11# happyReduction_21 -happyReduction_21 (happy_x_5 `HappyStk` - happy_x_4 `HappyStk` - happy_x_3 `HappyStk` - happy_x_2 `HappyStk` - happy_x_1 `HappyStk` - happyRest) - = case happyOut25 happy_x_4 of { happy_var_4 -> - happyIn18 - (TransferIn happy_var_4 - ) `HappyStk` happyRest} - -happyReduce_22 = happyReduce 5# 11# happyReduction_22 +happyReduce_22 = happyReduce 5# 12# happyReduction_22 happyReduction_22 (happy_x_5 `HappyStk` happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` happyRest) - = case happyOut25 happy_x_4 of { happy_var_4 -> - happyIn18 - (TransferOut happy_var_4 + = case happyOut26 happy_x_4 of { happy_var_4 -> + happyIn19 + (TransferIn happy_var_4 ) `HappyStk` happyRest} -happyReduce_23 = happySpecReduce_2 12# happyReduction_23 -happyReduction_23 happy_x_2 - happy_x_1 - = case happyOut7 happy_x_2 of { happy_var_2 -> - happyIn19 - (MTAbstract happy_var_2 - )} - -happyReduce_24 = happySpecReduce_2 12# happyReduction_24 -happyReduction_24 happy_x_2 - happy_x_1 - = case happyOut7 happy_x_2 of { happy_var_2 -> - happyIn19 - (MTResource happy_var_2 - )} - -happyReduce_25 = happySpecReduce_2 12# happyReduction_25 -happyReduction_25 happy_x_2 - happy_x_1 - = case happyOut7 happy_x_2 of { happy_var_2 -> - happyIn19 - (MTInterface happy_var_2 - )} - -happyReduce_26 = happyReduce 4# 12# happyReduction_26 -happyReduction_26 (happy_x_4 `HappyStk` +happyReduce_23 = happyReduce 5# 12# happyReduction_23 +happyReduction_23 (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 happyOut7 happy_x_4 of { happy_var_4 -> + = case happyOut26 happy_x_4 of { happy_var_4 -> happyIn19 - (MTConcrete happy_var_2 happy_var_4 - ) `HappyStk` happyRest}} + (TransferOut happy_var_4 + ) `HappyStk` happyRest} -happyReduce_27 = happyReduce 4# 12# happyReduction_27 +happyReduce_24 = happySpecReduce_2 13# happyReduction_24 +happyReduction_24 happy_x_2 + happy_x_1 + = case happyOut7 happy_x_2 of { happy_var_2 -> + happyIn20 + (MTAbstract happy_var_2 + )} + +happyReduce_25 = happySpecReduce_2 13# happyReduction_25 +happyReduction_25 happy_x_2 + happy_x_1 + = case happyOut7 happy_x_2 of { happy_var_2 -> + happyIn20 + (MTResource happy_var_2 + )} + +happyReduce_26 = happySpecReduce_2 13# happyReduction_26 +happyReduction_26 happy_x_2 + happy_x_1 + = case happyOut7 happy_x_2 of { happy_var_2 -> + happyIn20 + (MTInterface happy_var_2 + )} + +happyReduce_27 = happyReduce 4# 13# happyReduction_27 happyReduction_27 (happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` @@ -989,12 +993,24 @@ happyReduction_27 (happy_x_4 `HappyStk` happyRest) = case happyOut7 happy_x_2 of { happy_var_2 -> case happyOut7 happy_x_4 of { happy_var_4 -> - happyIn19 + happyIn20 + (MTConcrete happy_var_2 happy_var_4 + ) `HappyStk` happyRest}} + +happyReduce_28 = happyReduce 4# 13# happyReduction_28 +happyReduction_28 (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 happyOut7 happy_x_4 of { happy_var_4 -> + happyIn20 (MTInstance happy_var_2 happy_var_4 ) `HappyStk` happyRest}} -happyReduce_28 = happyReduce 6# 12# happyReduction_28 -happyReduction_28 (happy_x_6 `HappyStk` +happyReduce_29 = happyReduce 6# 13# happyReduction_29 +happyReduction_29 (happy_x_6 `HappyStk` happy_x_5 `HappyStk` happy_x_4 `HappyStk` happy_x_3 `HappyStk` @@ -1002,432 +1018,432 @@ happyReduction_28 (happy_x_6 `HappyStk` happy_x_1 `HappyStk` happyRest) = case happyOut7 happy_x_2 of { happy_var_2 -> - case happyOut25 happy_x_4 of { happy_var_4 -> - case happyOut25 happy_x_6 of { happy_var_6 -> - happyIn19 + case happyOut26 happy_x_4 of { happy_var_4 -> + case happyOut26 happy_x_6 of { happy_var_6 -> + happyIn20 (MTTransfer happy_var_2 happy_var_4 happy_var_6 ) `HappyStk` happyRest}}} -happyReduce_29 = happyReduce 5# 13# happyReduction_29 -happyReduction_29 (happy_x_5 `HappyStk` +happyReduce_30 = happyReduce 5# 14# happyReduction_30 +happyReduction_30 (happy_x_5 `HappyStk` happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` happyRest) - = case happyOut22 happy_x_1 of { happy_var_1 -> - case happyOut24 happy_x_2 of { happy_var_2 -> - case happyOut21 happy_x_4 of { happy_var_4 -> - happyIn20 + = case happyOut23 happy_x_1 of { happy_var_1 -> + case happyOut25 happy_x_2 of { happy_var_2 -> + case happyOut22 happy_x_4 of { happy_var_4 -> + happyIn21 (MBody happy_var_1 happy_var_2 (reverse happy_var_4) ) `HappyStk` happyRest}}} -happyReduce_30 = happySpecReduce_3 13# happyReduction_30 -happyReduction_30 happy_x_3 +happyReduce_31 = happySpecReduce_3 14# happyReduction_31 +happyReduction_31 happy_x_3 happy_x_2 happy_x_1 = case happyOut7 happy_x_1 of { happy_var_1 -> - case happyOut23 happy_x_3 of { happy_var_3 -> - happyIn20 + case happyOut24 happy_x_3 of { happy_var_3 -> + happyIn21 (MWith happy_var_1 happy_var_3 )}} -happyReduce_31 = happyReduce 5# 13# happyReduction_31 -happyReduction_31 (happy_x_5 `HappyStk` +happyReduce_32 = happyReduce 5# 14# happyReduction_32 +happyReduction_32 (happy_x_5 `HappyStk` happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` happyRest) - = case happyOut28 happy_x_1 of { happy_var_1 -> + = case happyOut29 happy_x_1 of { happy_var_1 -> case happyOut7 happy_x_3 of { happy_var_3 -> - case happyOut23 happy_x_5 of { happy_var_5 -> - happyIn20 + case happyOut24 happy_x_5 of { happy_var_5 -> + happyIn21 (MWithE happy_var_1 happy_var_3 happy_var_5 ) `HappyStk` happyRest}}} -happyReduce_32 = happySpecReduce_2 13# happyReduction_32 -happyReduction_32 happy_x_2 +happyReduce_33 = happySpecReduce_2 14# happyReduction_33 +happyReduction_33 happy_x_2 happy_x_1 = case happyOut7 happy_x_2 of { happy_var_2 -> - happyIn20 + happyIn21 (MReuse happy_var_2 )} -happyReduce_33 = happySpecReduce_2 13# happyReduction_33 -happyReduction_33 happy_x_2 +happyReduce_34 = happySpecReduce_2 14# happyReduction_34 +happyReduction_34 happy_x_2 happy_x_1 - = case happyOut28 happy_x_2 of { happy_var_2 -> - happyIn20 + = case happyOut29 happy_x_2 of { happy_var_2 -> + happyIn21 (MUnion happy_var_2 )} -happyReduce_34 = happySpecReduce_0 14# happyReduction_34 -happyReduction_34 = happyIn21 +happyReduce_35 = happySpecReduce_0 15# happyReduction_35 +happyReduction_35 = happyIn22 ([] ) -happyReduce_35 = happySpecReduce_2 14# happyReduction_35 -happyReduction_35 happy_x_2 - happy_x_1 - = case happyOut21 happy_x_1 of { happy_var_1 -> - case happyOut31 happy_x_2 of { happy_var_2 -> - happyIn21 - (flip (:) happy_var_1 happy_var_2 - )}} - happyReduce_36 = happySpecReduce_2 15# happyReduction_36 happyReduction_36 happy_x_2 happy_x_1 - = case happyOut28 happy_x_1 of { happy_var_1 -> + = case happyOut22 happy_x_1 of { happy_var_1 -> + case happyOut32 happy_x_2 of { happy_var_2 -> happyIn22 + (flip (:) happy_var_1 happy_var_2 + )}} + +happyReduce_37 = happySpecReduce_2 16# happyReduction_37 +happyReduction_37 happy_x_2 + happy_x_1 + = case happyOut29 happy_x_1 of { happy_var_1 -> + happyIn23 (Ext happy_var_1 )} -happyReduce_37 = happySpecReduce_0 15# happyReduction_37 -happyReduction_37 = happyIn22 +happyReduce_38 = happySpecReduce_0 16# happyReduction_38 +happyReduction_38 = happyIn23 (NoExt ) -happyReduce_38 = happySpecReduce_0 16# happyReduction_38 -happyReduction_38 = happyIn23 +happyReduce_39 = happySpecReduce_0 17# happyReduction_39 +happyReduction_39 = happyIn24 ([] ) -happyReduce_39 = happySpecReduce_1 16# happyReduction_39 -happyReduction_39 happy_x_1 - = case happyOut25 happy_x_1 of { happy_var_1 -> - happyIn23 +happyReduce_40 = happySpecReduce_1 17# happyReduction_40 +happyReduction_40 happy_x_1 + = case happyOut26 happy_x_1 of { happy_var_1 -> + happyIn24 ((:[]) happy_var_1 )} -happyReduce_40 = happySpecReduce_3 16# happyReduction_40 -happyReduction_40 happy_x_3 +happyReduce_41 = happySpecReduce_3 17# happyReduction_41 +happyReduction_41 happy_x_3 happy_x_2 happy_x_1 - = case happyOut25 happy_x_1 of { happy_var_1 -> - case happyOut23 happy_x_3 of { happy_var_3 -> - happyIn23 + = case happyOut26 happy_x_1 of { happy_var_1 -> + case happyOut24 happy_x_3 of { happy_var_3 -> + happyIn24 ((:) happy_var_1 happy_var_3 )}} -happyReduce_41 = happySpecReduce_0 17# happyReduction_41 -happyReduction_41 = happyIn24 +happyReduce_42 = happySpecReduce_0 18# happyReduction_42 +happyReduction_42 = happyIn25 (NoOpens ) -happyReduce_42 = happySpecReduce_3 17# happyReduction_42 -happyReduction_42 happy_x_3 +happyReduce_43 = happySpecReduce_3 18# happyReduction_43 +happyReduction_43 happy_x_3 happy_x_2 happy_x_1 - = case happyOut23 happy_x_2 of { happy_var_2 -> - happyIn24 + = case happyOut24 happy_x_2 of { happy_var_2 -> + happyIn25 (OpenIn happy_var_2 )} -happyReduce_43 = happySpecReduce_1 18# happyReduction_43 -happyReduction_43 happy_x_1 +happyReduce_44 = happySpecReduce_1 19# happyReduction_44 +happyReduction_44 happy_x_1 = case happyOut7 happy_x_1 of { happy_var_1 -> - happyIn25 + happyIn26 (OName happy_var_1 )} -happyReduce_44 = happyReduce 4# 18# happyReduction_44 -happyReduction_44 (happy_x_4 `HappyStk` +happyReduce_45 = happyReduce 4# 19# happyReduction_45 +happyReduction_45 (happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` happyRest) - = case happyOut27 happy_x_2 of { happy_var_2 -> + = case happyOut28 happy_x_2 of { happy_var_2 -> case happyOut7 happy_x_3 of { happy_var_3 -> - happyIn25 + happyIn26 (OQualQO happy_var_2 happy_var_3 ) `HappyStk` happyRest}} -happyReduce_45 = happyReduce 6# 18# happyReduction_45 -happyReduction_45 (happy_x_6 `HappyStk` +happyReduce_46 = happyReduce 6# 19# happyReduction_46 +happyReduction_46 (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 happyOut27 happy_x_2 of { happy_var_2 -> + = case happyOut28 happy_x_2 of { happy_var_2 -> case happyOut7 happy_x_3 of { happy_var_3 -> case happyOut7 happy_x_5 of { happy_var_5 -> - happyIn25 + happyIn26 (OQual happy_var_2 happy_var_3 happy_var_5 ) `HappyStk` happyRest}}} -happyReduce_46 = happySpecReduce_0 19# happyReduction_46 -happyReduction_46 = happyIn26 +happyReduce_47 = happySpecReduce_0 20# happyReduction_47 +happyReduction_47 = happyIn27 (CMCompl ) -happyReduce_47 = happySpecReduce_1 19# happyReduction_47 -happyReduction_47 happy_x_1 - = happyIn26 +happyReduce_48 = happySpecReduce_1 20# happyReduction_48 +happyReduction_48 happy_x_1 + = happyIn27 (CMIncompl ) -happyReduce_48 = happySpecReduce_0 20# happyReduction_48 -happyReduction_48 = happyIn27 +happyReduce_49 = happySpecReduce_0 21# happyReduction_49 +happyReduction_49 = happyIn28 (QOCompl ) -happyReduce_49 = happySpecReduce_1 20# happyReduction_49 -happyReduction_49 happy_x_1 - = happyIn27 +happyReduce_50 = happySpecReduce_1 21# happyReduction_50 +happyReduction_50 happy_x_1 + = happyIn28 (QOIncompl ) -happyReduce_50 = happySpecReduce_1 20# happyReduction_50 -happyReduction_50 happy_x_1 - = happyIn27 +happyReduce_51 = happySpecReduce_1 21# happyReduction_51 +happyReduction_51 happy_x_1 + = happyIn28 (QOInterface ) -happyReduce_51 = happySpecReduce_0 21# happyReduction_51 -happyReduction_51 = happyIn28 +happyReduce_52 = happySpecReduce_0 22# happyReduction_52 +happyReduction_52 = happyIn29 ([] ) -happyReduce_52 = happySpecReduce_1 21# happyReduction_52 -happyReduction_52 happy_x_1 - = case happyOut29 happy_x_1 of { happy_var_1 -> - happyIn28 +happyReduce_53 = happySpecReduce_1 22# happyReduction_53 +happyReduction_53 happy_x_1 + = case happyOut30 happy_x_1 of { happy_var_1 -> + happyIn29 ((:[]) happy_var_1 )} -happyReduce_53 = happySpecReduce_3 21# happyReduction_53 -happyReduction_53 happy_x_3 +happyReduce_54 = happySpecReduce_3 22# happyReduction_54 +happyReduction_54 happy_x_3 happy_x_2 happy_x_1 - = case happyOut29 happy_x_1 of { happy_var_1 -> - case happyOut28 happy_x_3 of { happy_var_3 -> - happyIn28 + = case happyOut30 happy_x_1 of { happy_var_1 -> + case happyOut29 happy_x_3 of { happy_var_3 -> + happyIn29 ((:) happy_var_1 happy_var_3 )}} -happyReduce_54 = happySpecReduce_1 22# happyReduction_54 -happyReduction_54 happy_x_1 +happyReduce_55 = happySpecReduce_1 23# happyReduction_55 +happyReduction_55 happy_x_1 = case happyOut7 happy_x_1 of { happy_var_1 -> - happyIn29 + happyIn30 (IAll happy_var_1 )} -happyReduce_55 = happyReduce 4# 22# happyReduction_55 -happyReduction_55 (happy_x_4 `HappyStk` +happyReduce_56 = happyReduce 4# 23# happyReduction_56 +happyReduction_56 (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 happyOut49 happy_x_3 of { happy_var_3 -> - happyIn29 + case happyOut50 happy_x_3 of { happy_var_3 -> + happyIn30 (ISome happy_var_1 happy_var_3 ) `HappyStk` happyRest}} -happyReduce_56 = happyReduce 5# 22# happyReduction_56 -happyReduction_56 (happy_x_5 `HappyStk` +happyReduce_57 = happyReduce 5# 23# happyReduction_57 +happyReduction_57 (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_1 of { happy_var_1 -> - case happyOut49 happy_x_4 of { happy_var_4 -> - happyIn29 + case happyOut50 happy_x_4 of { happy_var_4 -> + happyIn30 (IMinus happy_var_1 happy_var_4 ) `HappyStk` happyRest}} -happyReduce_57 = happySpecReduce_3 23# happyReduction_57 -happyReduction_57 happy_x_3 - happy_x_2 - happy_x_1 - = 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 - )}} - -happyReduce_58 = happySpecReduce_3 23# happyReduction_58 +happyReduce_58 = happySpecReduce_3 24# happyReduction_58 happyReduction_58 happy_x_3 happy_x_2 happy_x_1 - = case happyOut51 happy_x_1 of { happy_var_1 -> - case happyOut58 happy_x_3 of { happy_var_3 -> - happyIn30 + = case happyOut52 happy_x_1 of { happy_var_1 -> + case happyOut59 happy_x_3 of { happy_var_3 -> + happyIn31 + (DDecl happy_var_1 happy_var_3 + )}} + +happyReduce_59 = happySpecReduce_3 24# happyReduction_59 +happyReduction_59 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut52 happy_x_1 of { happy_var_1 -> + case happyOut59 happy_x_3 of { happy_var_3 -> + happyIn31 (DDef happy_var_1 happy_var_3 )}} -happyReduce_59 = happyReduce 4# 23# happyReduction_59 -happyReduction_59 (happy_x_4 `HappyStk` - happy_x_3 `HappyStk` - happy_x_2 `HappyStk` - happy_x_1 `HappyStk` - happyRest) - = 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}}} - -happyReduce_60 = happyReduce 5# 23# happyReduction_60 -happyReduction_60 (happy_x_5 `HappyStk` - happy_x_4 `HappyStk` +happyReduce_60 = happyReduce 4# 24# happyReduction_60 +happyReduction_60 (happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` happyRest) = 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 + case happyOut69 happy_x_2 of { happy_var_2 -> + case happyOut59 happy_x_4 of { happy_var_4 -> + happyIn31 + (DPatt happy_var_1 happy_var_2 happy_var_4 + ) `HappyStk` happyRest}}} + +happyReduce_61 = happyReduce 5# 24# happyReduction_61 +happyReduction_61 (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_1 of { happy_var_1 -> + case happyOut59 happy_x_3 of { happy_var_3 -> + case happyOut59 happy_x_5 of { happy_var_5 -> + happyIn31 (DFull happy_var_1 happy_var_3 happy_var_5 ) `HappyStk` happyRest}}} -happyReduce_61 = happySpecReduce_2 24# happyReduction_61 -happyReduction_61 happy_x_2 - happy_x_1 - = case happyOut42 happy_x_2 of { happy_var_2 -> - happyIn31 - (DefCat happy_var_2 - )} - -happyReduce_62 = happySpecReduce_2 24# happyReduction_62 +happyReduce_62 = happySpecReduce_2 25# happyReduction_62 happyReduction_62 happy_x_2 happy_x_1 = case happyOut43 happy_x_2 of { happy_var_2 -> - happyIn31 + happyIn32 + (DefCat happy_var_2 + )} + +happyReduce_63 = happySpecReduce_2 25# happyReduction_63 +happyReduction_63 happy_x_2 + happy_x_1 + = case happyOut44 happy_x_2 of { happy_var_2 -> + happyIn32 (DefFun happy_var_2 )} -happyReduce_63 = happySpecReduce_2 24# happyReduction_63 -happyReduction_63 happy_x_2 +happyReduce_64 = happySpecReduce_2 25# happyReduction_64 +happyReduction_64 happy_x_2 happy_x_1 - = case happyOut43 happy_x_2 of { happy_var_2 -> - happyIn31 + = case happyOut44 happy_x_2 of { happy_var_2 -> + happyIn32 (DefFunData happy_var_2 )} -happyReduce_64 = happySpecReduce_2 24# happyReduction_64 -happyReduction_64 happy_x_2 +happyReduce_65 = happySpecReduce_2 25# happyReduction_65 +happyReduction_65 happy_x_2 happy_x_1 - = case happyOut41 happy_x_2 of { happy_var_2 -> - happyIn31 + = case happyOut42 happy_x_2 of { happy_var_2 -> + happyIn32 (DefDef happy_var_2 )} -happyReduce_65 = happySpecReduce_2 24# happyReduction_65 -happyReduction_65 happy_x_2 +happyReduce_66 = happySpecReduce_2 25# happyReduction_66 +happyReduction_66 happy_x_2 happy_x_1 - = case happyOut44 happy_x_2 of { happy_var_2 -> - happyIn31 + = case happyOut45 happy_x_2 of { happy_var_2 -> + happyIn32 (DefData happy_var_2 )} -happyReduce_66 = happySpecReduce_2 24# happyReduction_66 -happyReduction_66 happy_x_2 +happyReduce_67 = happySpecReduce_2 25# happyReduction_67 +happyReduction_67 happy_x_2 happy_x_1 - = case happyOut41 happy_x_2 of { happy_var_2 -> - happyIn31 + = case happyOut42 happy_x_2 of { happy_var_2 -> + happyIn32 (DefTrans happy_var_2 )} -happyReduce_67 = happySpecReduce_2 24# happyReduction_67 -happyReduction_67 happy_x_2 +happyReduce_68 = happySpecReduce_2 25# happyReduction_68 +happyReduction_68 happy_x_2 happy_x_1 - = case happyOut45 happy_x_2 of { happy_var_2 -> - happyIn31 + = case happyOut46 happy_x_2 of { happy_var_2 -> + happyIn32 (DefPar happy_var_2 )} -happyReduce_68 = happySpecReduce_2 24# happyReduction_68 -happyReduction_68 happy_x_2 +happyReduce_69 = happySpecReduce_2 25# happyReduction_69 +happyReduction_69 happy_x_2 happy_x_1 - = case happyOut41 happy_x_2 of { happy_var_2 -> - happyIn31 + = case happyOut42 happy_x_2 of { happy_var_2 -> + happyIn32 (DefOper happy_var_2 )} -happyReduce_69 = happySpecReduce_2 24# happyReduction_69 -happyReduction_69 happy_x_2 +happyReduce_70 = happySpecReduce_2 25# happyReduction_70 +happyReduction_70 happy_x_2 happy_x_1 - = case happyOut46 happy_x_2 of { happy_var_2 -> - happyIn31 + = case happyOut47 happy_x_2 of { happy_var_2 -> + happyIn32 (DefLincat happy_var_2 )} -happyReduce_70 = happySpecReduce_2 24# happyReduction_70 -happyReduction_70 happy_x_2 +happyReduce_71 = happySpecReduce_2 25# happyReduction_71 +happyReduction_71 happy_x_2 happy_x_1 - = case happyOut41 happy_x_2 of { happy_var_2 -> - happyIn31 + = case happyOut42 happy_x_2 of { happy_var_2 -> + happyIn32 (DefLindef happy_var_2 )} -happyReduce_71 = happySpecReduce_2 24# happyReduction_71 -happyReduction_71 happy_x_2 +happyReduce_72 = happySpecReduce_2 25# happyReduction_72 +happyReduction_72 happy_x_2 happy_x_1 - = case happyOut41 happy_x_2 of { happy_var_2 -> - happyIn31 + = case happyOut42 happy_x_2 of { happy_var_2 -> + happyIn32 (DefLin happy_var_2 )} -happyReduce_72 = happySpecReduce_3 24# happyReduction_72 -happyReduction_72 happy_x_3 - happy_x_2 - happy_x_1 - = case happyOut46 happy_x_3 of { happy_var_3 -> - happyIn31 - (DefPrintCat happy_var_3 - )} - -happyReduce_73 = happySpecReduce_3 24# happyReduction_73 +happyReduce_73 = happySpecReduce_3 25# happyReduction_73 happyReduction_73 happy_x_3 happy_x_2 happy_x_1 - = case happyOut46 happy_x_3 of { happy_var_3 -> - happyIn31 + = case happyOut47 happy_x_3 of { happy_var_3 -> + happyIn32 + (DefPrintCat happy_var_3 + )} + +happyReduce_74 = happySpecReduce_3 25# happyReduction_74 +happyReduction_74 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut47 happy_x_3 of { happy_var_3 -> + happyIn32 (DefPrintFun happy_var_3 )} -happyReduce_74 = happySpecReduce_2 24# happyReduction_74 -happyReduction_74 happy_x_2 +happyReduce_75 = happySpecReduce_2 25# happyReduction_75 +happyReduction_75 happy_x_2 happy_x_1 - = case happyOut47 happy_x_2 of { happy_var_2 -> - happyIn31 + = case happyOut48 happy_x_2 of { happy_var_2 -> + happyIn32 (DefFlag happy_var_2 )} -happyReduce_75 = happySpecReduce_2 24# happyReduction_75 -happyReduction_75 happy_x_2 +happyReduce_76 = happySpecReduce_2 25# happyReduction_76 +happyReduction_76 happy_x_2 happy_x_1 - = case happyOut46 happy_x_2 of { happy_var_2 -> - happyIn31 + = case happyOut47 happy_x_2 of { happy_var_2 -> + happyIn32 (DefPrintOld happy_var_2 )} -happyReduce_76 = happySpecReduce_2 24# happyReduction_76 -happyReduction_76 happy_x_2 +happyReduce_77 = happySpecReduce_2 25# happyReduction_77 +happyReduction_77 happy_x_2 happy_x_1 - = case happyOut41 happy_x_2 of { happy_var_2 -> - happyIn31 + = case happyOut42 happy_x_2 of { happy_var_2 -> + happyIn32 (DefLintype happy_var_2 )} -happyReduce_77 = happySpecReduce_2 24# happyReduction_77 -happyReduction_77 happy_x_2 +happyReduce_78 = happySpecReduce_2 25# happyReduction_78 +happyReduction_78 happy_x_2 happy_x_1 - = case happyOut41 happy_x_2 of { happy_var_2 -> - happyIn31 + = case happyOut42 happy_x_2 of { happy_var_2 -> + happyIn32 (DefPattern happy_var_2 )} -happyReduce_78 = happyReduce 7# 24# happyReduction_78 -happyReduction_78 (happy_x_7 `HappyStk` +happyReduce_79 = happyReduce 7# 25# happyReduction_79 +happyReduction_79 (happy_x_7 `HappyStk` happy_x_6 `HappyStk` happy_x_5 `HappyStk` happy_x_4 `HappyStk` @@ -1436,51 +1452,51 @@ happyReduction_78 (happy_x_7 `HappyStk` happy_x_1 `HappyStk` happyRest) = case happyOut7 happy_x_2 of { happy_var_2 -> - case happyOut21 happy_x_5 of { happy_var_5 -> - happyIn31 + case happyOut22 happy_x_5 of { happy_var_5 -> + happyIn32 (DefPackage happy_var_2 (reverse happy_var_5) ) `HappyStk` happyRest}} -happyReduce_79 = happySpecReduce_2 24# happyReduction_79 -happyReduction_79 happy_x_2 +happyReduce_80 = happySpecReduce_2 25# happyReduction_80 +happyReduction_80 happy_x_2 happy_x_1 - = case happyOut41 happy_x_2 of { happy_var_2 -> - happyIn31 + = case happyOut42 happy_x_2 of { happy_var_2 -> + happyIn32 (DefVars happy_var_2 )} -happyReduce_80 = happySpecReduce_3 24# happyReduction_80 -happyReduction_80 happy_x_3 +happyReduce_81 = happySpecReduce_3 25# happyReduction_81 +happyReduction_81 happy_x_3 happy_x_2 happy_x_1 = case happyOut7 happy_x_2 of { happy_var_2 -> - happyIn31 + happyIn32 (DefTokenizer happy_var_2 )} -happyReduce_81 = happySpecReduce_2 25# happyReduction_81 -happyReduction_81 happy_x_2 +happyReduce_82 = happySpecReduce_2 26# happyReduction_82 +happyReduction_82 happy_x_2 happy_x_1 = case happyOut7 happy_x_1 of { happy_var_1 -> - case happyOut84 happy_x_2 of { happy_var_2 -> - happyIn32 + case happyOut85 happy_x_2 of { happy_var_2 -> + happyIn33 (SimpleCatDef happy_var_1 (reverse happy_var_2) )}} -happyReduce_82 = happyReduce 4# 25# happyReduction_82 -happyReduction_82 (happy_x_4 `HappyStk` +happyReduce_83 = happyReduce 4# 26# happyReduction_83 +happyReduction_83 (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 + case happyOut85 happy_x_3 of { happy_var_3 -> + happyIn33 (ListCatDef happy_var_2 (reverse happy_var_3) ) `HappyStk` happyRest}} -happyReduce_83 = happyReduce 7# 25# happyReduction_83 -happyReduction_83 (happy_x_7 `HappyStk` +happyReduce_84 = happyReduce 7# 26# happyReduction_84 +happyReduction_84 (happy_x_7 `HappyStk` happy_x_6 `HappyStk` happy_x_5 `HappyStk` happy_x_4 `HappyStk` @@ -1489,83 +1505,83 @@ happyReduction_83 (happy_x_7 `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 happyOut85 happy_x_3 of { happy_var_3 -> case happyOut8 happy_x_6 of { happy_var_6 -> - happyIn32 + happyIn33 (ListSizeCatDef happy_var_2 (reverse happy_var_3) happy_var_6 ) `HappyStk` happyRest}}} -happyReduce_84 = happySpecReduce_3 26# happyReduction_84 -happyReduction_84 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 -> - happyIn33 - (FunDef happy_var_1 happy_var_3 - )}} - happyReduce_85 = happySpecReduce_3 27# happyReduction_85 happyReduction_85 happy_x_3 happy_x_2 happy_x_1 - = case happyOut7 happy_x_1 of { happy_var_1 -> - case happyOut36 happy_x_3 of { happy_var_3 -> + = case happyOut50 happy_x_1 of { happy_var_1 -> + case happyOut59 happy_x_3 of { happy_var_3 -> happyIn34 + (FunDef happy_var_1 happy_var_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 -> + case happyOut37 happy_x_3 of { happy_var_3 -> + happyIn35 (DataDef happy_var_1 happy_var_3 )}} -happyReduce_86 = happySpecReduce_1 28# happyReduction_86 -happyReduction_86 happy_x_1 +happyReduce_87 = happySpecReduce_1 29# happyReduction_87 +happyReduction_87 happy_x_1 = case happyOut7 happy_x_1 of { happy_var_1 -> - happyIn35 + happyIn36 (DataId happy_var_1 )} -happyReduce_87 = happySpecReduce_3 28# happyReduction_87 -happyReduction_87 happy_x_3 +happyReduce_88 = happySpecReduce_3 29# happyReduction_88 +happyReduction_88 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 -> - happyIn35 + happyIn36 (DataQId happy_var_1 happy_var_3 )}} -happyReduce_88 = happySpecReduce_0 29# happyReduction_88 -happyReduction_88 = happyIn36 +happyReduce_89 = happySpecReduce_0 30# happyReduction_89 +happyReduction_89 = happyIn37 ([] ) -happyReduce_89 = happySpecReduce_1 29# happyReduction_89 -happyReduction_89 happy_x_1 - = case happyOut35 happy_x_1 of { happy_var_1 -> - happyIn36 +happyReduce_90 = happySpecReduce_1 30# happyReduction_90 +happyReduction_90 happy_x_1 + = case happyOut36 happy_x_1 of { happy_var_1 -> + happyIn37 ((:[]) happy_var_1 )} -happyReduce_90 = happySpecReduce_3 29# happyReduction_90 -happyReduction_90 happy_x_3 - happy_x_2 - happy_x_1 - = case happyOut35 happy_x_1 of { happy_var_1 -> - case happyOut36 happy_x_3 of { happy_var_3 -> - happyIn36 - ((:) happy_var_1 happy_var_3 - )}} - happyReduce_91 = happySpecReduce_3 30# happyReduction_91 happyReduction_91 happy_x_3 happy_x_2 happy_x_1 - = case happyOut7 happy_x_1 of { happy_var_1 -> - case happyOut48 happy_x_3 of { happy_var_3 -> + = case happyOut36 happy_x_1 of { happy_var_1 -> + case happyOut37 happy_x_3 of { happy_var_3 -> happyIn37 + ((:) happy_var_1 happy_var_3 + )}} + +happyReduce_92 = happySpecReduce_3 31# happyReduction_92 +happyReduction_92 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut7 happy_x_1 of { happy_var_1 -> + case happyOut49 happy_x_3 of { happy_var_3 -> + happyIn38 (ParDefDir happy_var_1 happy_var_3 )}} -happyReduce_92 = happyReduce 6# 30# happyReduction_92 -happyReduction_92 (happy_x_6 `HappyStk` +happyReduce_93 = happyReduce 6# 31# happyReduction_93 +happyReduction_93 (happy_x_6 `HappyStk` happy_x_5 `HappyStk` happy_x_4 `HappyStk` happy_x_3 `HappyStk` @@ -1574,92 +1590,74 @@ happyReduction_92 (happy_x_6 `HappyStk` happyRest) = case happyOut7 happy_x_1 of { happy_var_1 -> case happyOut7 happy_x_5 of { happy_var_5 -> - happyIn37 + happyIn38 (ParDefIndir happy_var_1 happy_var_5 ) `HappyStk` happyRest}} -happyReduce_93 = happySpecReduce_1 30# happyReduction_93 -happyReduction_93 happy_x_1 +happyReduce_94 = happySpecReduce_1 31# happyReduction_94 +happyReduction_94 happy_x_1 = case happyOut7 happy_x_1 of { happy_var_1 -> - happyIn37 + happyIn38 (ParDefAbs happy_var_1 )} -happyReduce_94 = happySpecReduce_2 31# happyReduction_94 -happyReduction_94 happy_x_2 +happyReduce_95 = happySpecReduce_2 32# happyReduction_95 +happyReduction_95 happy_x_2 happy_x_1 = case happyOut7 happy_x_1 of { happy_var_1 -> - case happyOut84 happy_x_2 of { happy_var_2 -> - happyIn38 - (ParConstr happy_var_1 (reverse happy_var_2) - )}} - -happyReduce_95 = happySpecReduce_3 32# happyReduction_95 -happyReduction_95 happy_x_3 - happy_x_2 - happy_x_1 - = case happyOut51 happy_x_1 of { happy_var_1 -> - case happyOut58 happy_x_3 of { happy_var_3 -> + case happyOut85 happy_x_2 of { happy_var_2 -> happyIn39 - (PrintDef happy_var_1 happy_var_3 + (ParConstr happy_var_1 (reverse happy_var_2) )}} happyReduce_96 = happySpecReduce_3 33# happyReduction_96 happyReduction_96 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut52 happy_x_1 of { happy_var_1 -> + case happyOut59 happy_x_3 of { happy_var_3 -> + happyIn40 + (PrintDef happy_var_1 happy_var_3 + )}} + +happyReduce_97 = happySpecReduce_3 34# happyReduction_97 +happyReduction_97 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 -> - happyIn40 + happyIn41 (FlagDef happy_var_1 happy_var_3 )}} -happyReduce_97 = happySpecReduce_2 34# happyReduction_97 -happyReduction_97 happy_x_2 +happyReduce_98 = happySpecReduce_2 35# happyReduction_98 +happyReduction_98 happy_x_2 happy_x_1 - = case happyOut30 happy_x_1 of { happy_var_1 -> - happyIn41 - ((:[]) happy_var_1 - )} - -happyReduce_98 = happySpecReduce_3 34# happyReduction_98 -happyReduction_98 happy_x_3 - happy_x_2 - happy_x_1 - = case happyOut30 happy_x_1 of { happy_var_1 -> - case happyOut41 happy_x_3 of { happy_var_3 -> - happyIn41 - ((:) happy_var_1 happy_var_3 - )}} - -happyReduce_99 = happySpecReduce_2 35# happyReduction_99 -happyReduction_99 happy_x_2 - happy_x_1 - = case happyOut32 happy_x_1 of { happy_var_1 -> + = case happyOut31 happy_x_1 of { happy_var_1 -> happyIn42 ((:[]) happy_var_1 )} -happyReduce_100 = happySpecReduce_3 35# happyReduction_100 -happyReduction_100 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 -> + = case happyOut31 happy_x_1 of { happy_var_1 -> case happyOut42 happy_x_3 of { happy_var_3 -> happyIn42 ((:) happy_var_1 happy_var_3 )}} -happyReduce_101 = happySpecReduce_2 36# happyReduction_101 -happyReduction_101 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_102 = happySpecReduce_3 36# happyReduction_102 -happyReduction_102 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 -> @@ -1668,16 +1666,16 @@ happyReduction_102 happy_x_3 ((:) happy_var_1 happy_var_3 )}} -happyReduce_103 = happySpecReduce_2 37# happyReduction_103 -happyReduction_103 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_104 = happySpecReduce_3 37# happyReduction_104 -happyReduction_104 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 -> @@ -1686,52 +1684,52 @@ happyReduction_104 happy_x_3 ((:) happy_var_1 happy_var_3 )}} -happyReduce_105 = happySpecReduce_2 38# happyReduction_105 -happyReduction_105 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 -> + = case happyOut35 happy_x_1 of { happy_var_1 -> happyIn45 ((:[]) happy_var_1 )} -happyReduce_106 = happySpecReduce_3 38# happyReduction_106 -happyReduction_106 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 -> + = case happyOut35 happy_x_1 of { happy_var_1 -> case happyOut45 happy_x_3 of { happy_var_3 -> happyIn45 ((:) happy_var_1 happy_var_3 )}} -happyReduce_107 = happySpecReduce_2 39# happyReduction_107 -happyReduction_107 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 -> + = case happyOut38 happy_x_1 of { happy_var_1 -> happyIn46 ((:[]) happy_var_1 )} -happyReduce_108 = happySpecReduce_3 39# happyReduction_108 -happyReduction_108 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 -> + = case happyOut38 happy_x_1 of { happy_var_1 -> case happyOut46 happy_x_3 of { happy_var_3 -> happyIn46 ((:) happy_var_1 happy_var_3 )}} -happyReduce_109 = happySpecReduce_2 40# happyReduction_109 -happyReduction_109 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_110 = happySpecReduce_3 40# happyReduction_110 -happyReduction_110 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 -> @@ -1740,290 +1738,315 @@ happyReduction_110 happy_x_3 ((:) happy_var_1 happy_var_3 )}} -happyReduce_111 = happySpecReduce_0 41# happyReduction_111 -happyReduction_111 = happyIn48 - ([] - ) - -happyReduce_112 = happySpecReduce_1 41# happyReduction_112 -happyReduction_112 happy_x_1 - = case happyOut38 happy_x_1 of { happy_var_1 -> +happyReduce_110 = happySpecReduce_2 41# happyReduction_110 +happyReduction_110 happy_x_2 + happy_x_1 + = case happyOut41 happy_x_1 of { happy_var_1 -> happyIn48 ((:[]) happy_var_1 )} -happyReduce_113 = happySpecReduce_3 41# happyReduction_113 -happyReduction_113 happy_x_3 +happyReduce_111 = happySpecReduce_3 41# happyReduction_111 +happyReduction_111 happy_x_3 happy_x_2 happy_x_1 - = case happyOut38 happy_x_1 of { happy_var_1 -> + = case happyOut41 happy_x_1 of { happy_var_1 -> case happyOut48 happy_x_3 of { happy_var_3 -> happyIn48 ((:) happy_var_1 happy_var_3 )}} -happyReduce_114 = happySpecReduce_1 42# happyReduction_114 -happyReduction_114 happy_x_1 - = case happyOut7 happy_x_1 of { happy_var_1 -> +happyReduce_112 = happySpecReduce_0 42# happyReduction_112 +happyReduction_112 = happyIn49 + ([] + ) + +happyReduce_113 = happySpecReduce_1 42# happyReduction_113 +happyReduction_113 happy_x_1 + = case happyOut39 happy_x_1 of { happy_var_1 -> happyIn49 ((:[]) happy_var_1 )} -happyReduce_115 = happySpecReduce_3 42# happyReduction_115 -happyReduction_115 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 -> + = case happyOut39 happy_x_1 of { happy_var_1 -> case happyOut49 happy_x_3 of { happy_var_3 -> happyIn49 ((:) happy_var_1 happy_var_3 )}} -happyReduce_116 = happySpecReduce_1 43# happyReduction_116 -happyReduction_116 happy_x_1 +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_117 = happySpecReduce_3 43# happyReduction_117 -happyReduction_117 happy_x_3 - happy_x_2 - happy_x_1 - = case happyOut7 happy_x_2 of { happy_var_2 -> - happyIn50 - (ListName happy_var_2 - )} - -happyReduce_118 = happySpecReduce_1 44# happyReduction_118 -happyReduction_118 happy_x_1 - = case happyOut50 happy_x_1 of { happy_var_1 -> - happyIn51 ((:[]) happy_var_1 )} -happyReduce_119 = happySpecReduce_3 44# happyReduction_119 -happyReduction_119 happy_x_3 +happyReduce_116 = happySpecReduce_3 43# happyReduction_116 +happyReduction_116 happy_x_3 happy_x_2 happy_x_1 - = case happyOut50 happy_x_1 of { happy_var_1 -> - case happyOut51 happy_x_3 of { happy_var_3 -> - happyIn51 + = case happyOut7 happy_x_1 of { happy_var_1 -> + case happyOut50 happy_x_3 of { happy_var_3 -> + happyIn50 ((:) happy_var_1 happy_var_3 )}} +happyReduce_117 = happySpecReduce_1 44# happyReduction_117 +happyReduction_117 happy_x_1 + = case happyOut7 happy_x_1 of { happy_var_1 -> + happyIn51 + (IdentName happy_var_1 + )} + +happyReduce_118 = happySpecReduce_3 44# happyReduction_118 +happyReduction_118 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut7 happy_x_2 of { happy_var_2 -> + happyIn51 + (ListName happy_var_2 + )} + +happyReduce_119 = happySpecReduce_1 45# happyReduction_119 +happyReduction_119 happy_x_1 + = case happyOut51 happy_x_1 of { happy_var_1 -> + happyIn52 + ((:[]) happy_var_1 + )} + happyReduce_120 = happySpecReduce_3 45# happyReduction_120 happyReduction_120 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 -> + = case happyOut51 happy_x_1 of { happy_var_1 -> + case happyOut52 happy_x_3 of { happy_var_3 -> happyIn52 - (LDDecl happy_var_1 happy_var_3 + ((:) happy_var_1 happy_var_3 )}} -happyReduce_121 = happySpecReduce_3 45# happyReduction_121 +happyReduce_121 = happySpecReduce_3 46# happyReduction_121 happyReduction_121 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 + = case happyOut50 happy_x_1 of { happy_var_1 -> + case happyOut59 happy_x_3 of { happy_var_3 -> + happyIn53 + (LDDecl happy_var_1 happy_var_3 + )}} + +happyReduce_122 = happySpecReduce_3 46# happyReduction_122 +happyReduction_122 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut50 happy_x_1 of { happy_var_1 -> + case happyOut59 happy_x_3 of { happy_var_3 -> + happyIn53 (LDDef happy_var_1 happy_var_3 )}} -happyReduce_122 = happyReduce 5# 45# happyReduction_122 -happyReduction_122 (happy_x_5 `HappyStk` +happyReduce_123 = happyReduce 5# 46# happyReduction_123 +happyReduction_123 (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 + = case happyOut50 happy_x_1 of { happy_var_1 -> + case happyOut59 happy_x_3 of { happy_var_3 -> + case happyOut59 happy_x_5 of { happy_var_5 -> + happyIn53 (LDFull happy_var_1 happy_var_3 happy_var_5 ) `HappyStk` happyRest}}} -happyReduce_123 = happySpecReduce_0 46# happyReduction_123 -happyReduction_123 = happyIn53 +happyReduce_124 = happySpecReduce_0 47# happyReduction_124 +happyReduction_124 = happyIn54 ([] ) -happyReduce_124 = happySpecReduce_1 46# happyReduction_124 -happyReduction_124 happy_x_1 - = case happyOut52 happy_x_1 of { happy_var_1 -> - happyIn53 +happyReduce_125 = happySpecReduce_1 47# happyReduction_125 +happyReduction_125 happy_x_1 + = case happyOut53 happy_x_1 of { happy_var_1 -> + happyIn54 ((:[]) happy_var_1 )} -happyReduce_125 = happySpecReduce_3 46# happyReduction_125 -happyReduction_125 happy_x_3 +happyReduce_126 = happySpecReduce_3 47# happyReduction_126 +happyReduction_126 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 + = case happyOut53 happy_x_1 of { happy_var_1 -> + case happyOut54 happy_x_3 of { happy_var_3 -> + happyIn54 ((:) happy_var_1 happy_var_3 )}} -happyReduce_126 = happySpecReduce_1 47# happyReduction_126 -happyReduction_126 happy_x_1 +happyReduce_127 = happySpecReduce_1 48# happyReduction_127 +happyReduction_127 happy_x_1 = case happyOut7 happy_x_1 of { happy_var_1 -> - happyIn54 + happyIn55 (EIdent happy_var_1 )} -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 -> - happyIn54 - (EConstr happy_var_2 - )} - -happyReduce_128 = happySpecReduce_3 47# happyReduction_128 +happyReduce_128 = happySpecReduce_3 48# happyReduction_128 happyReduction_128 happy_x_3 happy_x_2 happy_x_1 = case happyOut7 happy_x_2 of { happy_var_2 -> - happyIn54 + happyIn55 + (EConstr happy_var_2 + )} + +happyReduce_129 = happySpecReduce_3 48# happyReduction_129 +happyReduction_129 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut7 happy_x_2 of { happy_var_2 -> + happyIn55 (ECons happy_var_2 )} -happyReduce_129 = happySpecReduce_1 47# happyReduction_129 -happyReduction_129 happy_x_1 - = case happyOut65 happy_x_1 of { happy_var_1 -> - happyIn54 +happyReduce_130 = happySpecReduce_1 48# happyReduction_130 +happyReduction_130 happy_x_1 + = case happyOut66 happy_x_1 of { happy_var_1 -> + happyIn55 (ESort happy_var_1 )} -happyReduce_130 = happySpecReduce_1 47# happyReduction_130 -happyReduction_130 happy_x_1 +happyReduce_131 = happySpecReduce_1 48# happyReduction_131 +happyReduction_131 happy_x_1 = case happyOut9 happy_x_1 of { happy_var_1 -> - happyIn54 + happyIn55 (EString happy_var_1 )} -happyReduce_131 = happySpecReduce_1 47# happyReduction_131 -happyReduction_131 happy_x_1 +happyReduce_132 = happySpecReduce_1 48# happyReduction_132 +happyReduction_132 happy_x_1 = case happyOut8 happy_x_1 of { happy_var_1 -> - happyIn54 + happyIn55 (EInt happy_var_1 )} -happyReduce_132 = happySpecReduce_1 47# happyReduction_132 -happyReduction_132 happy_x_1 - = happyIn54 +happyReduce_133 = happySpecReduce_1 48# happyReduction_133 +happyReduction_133 happy_x_1 + = case happyOut10 happy_x_1 of { happy_var_1 -> + happyIn55 + (EFloat happy_var_1 + )} + +happyReduce_134 = happySpecReduce_1 48# happyReduction_134 +happyReduction_134 happy_x_1 + = happyIn55 (EMeta ) -happyReduce_133 = happySpecReduce_2 47# happyReduction_133 -happyReduction_133 happy_x_2 +happyReduce_135 = happySpecReduce_2 48# happyReduction_135 +happyReduction_135 happy_x_2 happy_x_1 - = happyIn54 + = happyIn55 (EEmpty ) -happyReduce_134 = happySpecReduce_1 47# happyReduction_134 -happyReduction_134 happy_x_1 - = happyIn54 +happyReduce_136 = happySpecReduce_1 48# happyReduction_136 +happyReduction_136 happy_x_1 + = happyIn55 (EData ) -happyReduce_135 = happyReduce 4# 47# happyReduction_135 -happyReduction_135 (happy_x_4 `HappyStk` +happyReduce_137 = happyReduce 4# 48# happyReduction_137 +happyReduction_137 (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 + case happyOut61 happy_x_3 of { happy_var_3 -> + happyIn55 (EList happy_var_2 happy_var_3 ) `HappyStk` happyRest}} -happyReduce_136 = happySpecReduce_3 47# happyReduction_136 -happyReduction_136 happy_x_3 - happy_x_2 - happy_x_1 - = case happyOut9 happy_x_2 of { happy_var_2 -> - happyIn54 - (EStrings happy_var_2 - )} - -happyReduce_137 = happySpecReduce_3 47# happyReduction_137 -happyReduction_137 happy_x_3 - happy_x_2 - happy_x_1 - = case happyOut53 happy_x_2 of { happy_var_2 -> - happyIn54 - (ERecord happy_var_2 - )} - -happyReduce_138 = happySpecReduce_3 47# happyReduction_138 +happyReduce_138 = happySpecReduce_3 48# happyReduction_138 happyReduction_138 happy_x_3 happy_x_2 happy_x_1 - = case happyOut75 happy_x_2 of { happy_var_2 -> - happyIn54 + = case happyOut9 happy_x_2 of { happy_var_2 -> + happyIn55 + (EStrings happy_var_2 + )} + +happyReduce_139 = happySpecReduce_3 48# happyReduction_139 +happyReduction_139 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut54 happy_x_2 of { happy_var_2 -> + happyIn55 + (ERecord happy_var_2 + )} + +happyReduce_140 = happySpecReduce_3 48# happyReduction_140 +happyReduction_140 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut76 happy_x_2 of { happy_var_2 -> + happyIn55 (ETuple happy_var_2 )} -happyReduce_139 = happyReduce 4# 47# happyReduction_139 -happyReduction_139 (happy_x_4 `HappyStk` +happyReduce_141 = happyReduce 4# 48# happyReduction_141 +happyReduction_141 (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 -> - happyIn54 + happyIn55 (EIndir happy_var_3 ) `HappyStk` happyRest} -happyReduce_140 = happyReduce 5# 47# happyReduction_140 -happyReduction_140 (happy_x_5 `HappyStk` +happyReduce_142 = happyReduce 5# 48# happyReduction_142 +happyReduction_142 (happy_x_5 `HappyStk` happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` happyRest) - = case happyOut58 happy_x_2 of { happy_var_2 -> - case happyOut58 happy_x_4 of { happy_var_4 -> - happyIn54 + = case happyOut59 happy_x_2 of { happy_var_2 -> + case happyOut59 happy_x_4 of { happy_var_4 -> + happyIn55 (ETyped happy_var_2 happy_var_4 ) `HappyStk` happyRest}} -happyReduce_141 = happySpecReduce_3 47# happyReduction_141 -happyReduction_141 happy_x_3 - happy_x_2 - happy_x_1 - = case happyOut58 happy_x_2 of { happy_var_2 -> - happyIn54 - (happy_var_2 - )} - -happyReduce_142 = happySpecReduce_1 47# happyReduction_142 -happyReduction_142 happy_x_1 - = case happyOut10 happy_x_1 of { happy_var_1 -> - happyIn54 - (ELString happy_var_1 - )} - happyReduce_143 = happySpecReduce_3 48# happyReduction_143 happyReduction_143 happy_x_3 happy_x_2 happy_x_1 - = case happyOut55 happy_x_1 of { happy_var_1 -> - case happyOut64 happy_x_3 of { happy_var_3 -> + = case happyOut59 happy_x_2 of { happy_var_2 -> happyIn55 + (happy_var_2 + )} + +happyReduce_144 = happySpecReduce_1 48# happyReduction_144 +happyReduction_144 happy_x_1 + = case happyOut11 happy_x_1 of { happy_var_1 -> + happyIn55 + (ELString happy_var_1 + )} + +happyReduce_145 = happySpecReduce_3 49# happyReduction_145 +happyReduction_145 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut56 happy_x_1 of { happy_var_1 -> + case happyOut65 happy_x_3 of { happy_var_3 -> + happyIn56 (EProj happy_var_1 happy_var_3 )}} -happyReduce_144 = happyReduce 5# 48# happyReduction_144 -happyReduction_144 (happy_x_5 `HappyStk` +happyReduce_146 = happyReduce 5# 49# happyReduction_146 +happyReduction_146 (happy_x_5 `HappyStk` happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` @@ -2031,101 +2054,76 @@ happyReduction_144 (happy_x_5 `HappyStk` happyRest) = case happyOut7 happy_x_2 of { happy_var_2 -> case happyOut7 happy_x_4 of { happy_var_4 -> - happyIn55 + happyIn56 (EQConstr happy_var_2 happy_var_4 ) `HappyStk` happyRest}} -happyReduce_145 = happyReduce 4# 48# happyReduction_145 -happyReduction_145 (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 happyOut7 happy_x_2 of { happy_var_2 -> case happyOut7 happy_x_4 of { happy_var_4 -> - happyIn55 + happyIn56 (EQCons happy_var_2 happy_var_4 ) `HappyStk` happyRest}} -happyReduce_146 = happySpecReduce_1 48# happyReduction_146 -happyReduction_146 happy_x_1 - = case happyOut54 happy_x_1 of { happy_var_1 -> - happyIn55 +happyReduce_148 = happySpecReduce_1 49# happyReduction_148 +happyReduction_148 happy_x_1 + = case happyOut55 happy_x_1 of { happy_var_1 -> + happyIn56 (happy_var_1 )} -happyReduce_147 = happySpecReduce_2 49# happyReduction_147 -happyReduction_147 happy_x_2 +happyReduce_149 = happySpecReduce_2 50# happyReduction_149 +happyReduction_149 happy_x_2 happy_x_1 - = case happyOut56 happy_x_1 of { happy_var_1 -> - case happyOut55 happy_x_2 of { happy_var_2 -> - happyIn56 + = case happyOut57 happy_x_1 of { happy_var_1 -> + case happyOut56 happy_x_2 of { happy_var_2 -> + happyIn57 (EApp happy_var_1 happy_var_2 )}} -happyReduce_148 = happyReduce 4# 49# happyReduction_148 -happyReduction_148 (happy_x_4 `HappyStk` +happyReduce_150 = happyReduce 4# 50# happyReduction_150 +happyReduction_150 (happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` happyRest) - = case happyOut78 happy_x_3 of { happy_var_3 -> - happyIn56 + = case happyOut79 happy_x_3 of { happy_var_3 -> + happyIn57 (ETable happy_var_3 ) `HappyStk` happyRest} -happyReduce_149 = happyReduce 5# 49# happyReduction_149 -happyReduction_149 (happy_x_5 `HappyStk` +happyReduce_151 = happyReduce 5# 50# happyReduction_151 +happyReduction_151 (happy_x_5 `HappyStk` happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` happyRest) - = case happyOut54 happy_x_2 of { happy_var_2 -> - case happyOut78 happy_x_4 of { happy_var_4 -> - happyIn56 + = case happyOut55 happy_x_2 of { happy_var_2 -> + case happyOut79 happy_x_4 of { happy_var_4 -> + happyIn57 (ETTable happy_var_2 happy_var_4 ) `HappyStk` happyRest}} -happyReduce_150 = happyReduce 5# 49# happyReduction_150 -happyReduction_150 (happy_x_5 `HappyStk` +happyReduce_152 = happyReduce 5# 50# happyReduction_152 +happyReduction_152 (happy_x_5 `HappyStk` happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` happyRest) - = case happyOut54 happy_x_2 of { happy_var_2 -> - case happyOut59 happy_x_4 of { happy_var_4 -> - happyIn56 + = case happyOut55 happy_x_2 of { happy_var_2 -> + case happyOut60 happy_x_4 of { happy_var_4 -> + happyIn57 (EVTable happy_var_2 happy_var_4 ) `HappyStk` happyRest}} -happyReduce_151 = happyReduce 6# 49# happyReduction_151 -happyReduction_151 (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 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_152 = happyReduce 4# 49# happyReduction_152 -happyReduction_152 (happy_x_4 `HappyStk` - happy_x_3 `HappyStk` - happy_x_2 `HappyStk` - happy_x_1 `HappyStk` - happyRest) - = case happyOut59 happy_x_3 of { happy_var_3 -> - happyIn56 - (EVariants happy_var_3 - ) `HappyStk` happyRest} - -happyReduce_153 = happyReduce 6# 49# happyReduction_153 +happyReduce_153 = happyReduce 6# 50# happyReduction_153 happyReduction_153 (happy_x_6 `HappyStk` happy_x_5 `HappyStk` happy_x_4 `HappyStk` @@ -2133,553 +2131,563 @@ happyReduction_153 (happy_x_6 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` happyRest) - = 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 + = case happyOut59 happy_x_2 of { happy_var_2 -> + case happyOut79 happy_x_5 of { happy_var_5 -> + happyIn57 + (ECase happy_var_2 happy_var_5 ) `HappyStk` happyRest}} -happyReduce_154 = happyReduce 4# 49# happyReduction_154 +happyReduce_154 = happyReduce 4# 50# happyReduction_154 happyReduction_154 (happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` happyRest) - = case happyOut59 happy_x_3 of { happy_var_3 -> - happyIn56 - (EStrs happy_var_3 + = case happyOut60 happy_x_3 of { happy_var_3 -> + happyIn57 + (EVariants happy_var_3 ) `HappyStk` happyRest} -happyReduce_155 = happySpecReduce_3 49# happyReduction_155 -happyReduction_155 happy_x_3 - happy_x_2 - happy_x_1 - = case happyOut7 happy_x_1 of { happy_var_1 -> - case happyOut54 happy_x_3 of { happy_var_3 -> - happyIn56 - (EConAt happy_var_1 happy_var_3 - )}} - -happyReduce_156 = happySpecReduce_1 49# happyReduction_156 -happyReduction_156 happy_x_1 - = case happyOut55 happy_x_1 of { happy_var_1 -> - happyIn56 - (happy_var_1 - )} - -happyReduce_157 = happySpecReduce_2 49# happyReduction_157 -happyReduction_157 happy_x_2 - happy_x_1 - = case happyOut7 happy_x_2 of { happy_var_2 -> - happyIn56 - (ELin happy_var_2 - )} - -happyReduce_158 = happySpecReduce_3 50# happyReduction_158 -happyReduction_158 happy_x_3 - happy_x_2 - happy_x_1 - = case happyOut57 happy_x_1 of { happy_var_1 -> - case happyOut56 happy_x_3 of { happy_var_3 -> - happyIn57 - (ESelect happy_var_1 happy_var_3 - )}} - -happyReduce_159 = happySpecReduce_3 50# happyReduction_159 -happyReduction_159 happy_x_3 - happy_x_2 - happy_x_1 - = case happyOut57 happy_x_1 of { happy_var_1 -> - case happyOut56 happy_x_3 of { happy_var_3 -> - happyIn57 - (ETupTyp happy_var_1 happy_var_3 - )}} - -happyReduce_160 = happySpecReduce_3 50# happyReduction_160 -happyReduction_160 happy_x_3 - happy_x_2 - happy_x_1 - = case happyOut57 happy_x_1 of { happy_var_1 -> - case happyOut56 happy_x_3 of { happy_var_3 -> - happyIn57 - (EExtend happy_var_1 happy_var_3 - )}} - -happyReduce_161 = happySpecReduce_1 50# happyReduction_161 -happyReduction_161 happy_x_1 - = case happyOut56 happy_x_1 of { happy_var_1 -> - happyIn57 - (happy_var_1 - )} - -happyReduce_162 = happyReduce 4# 51# happyReduction_162 -happyReduction_162 (happy_x_4 `HappyStk` - happy_x_3 `HappyStk` - happy_x_2 `HappyStk` - happy_x_1 `HappyStk` - happyRest) - = 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_163 = happyReduce 5# 51# happyReduction_163 -happyReduction_163 (happy_x_5 `HappyStk` - happy_x_4 `HappyStk` - happy_x_3 `HappyStk` - happy_x_2 `HappyStk` - happy_x_1 `HappyStk` - happyRest) - = 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_164 = happySpecReduce_3 51# happyReduction_164 -happyReduction_164 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_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 - (ETType 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 - (EConcat happy_var_1 happy_var_3 - )}} - -happyReduce_167 = happySpecReduce_3 51# happyReduction_167 -happyReduction_167 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_168 = happyReduce 6# 51# happyReduction_168 -happyReduction_168 (happy_x_6 `HappyStk` +happyReduce_155 = happyReduce 6# 50# happyReduction_155 +happyReduction_155 (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 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 + = case happyOut59 happy_x_3 of { happy_var_3 -> + case happyOut83 happy_x_5 of { happy_var_5 -> + happyIn57 + (EPre happy_var_3 happy_var_5 ) `HappyStk` happyRest}} -happyReduce_169 = happyReduce 4# 51# happyReduction_169 -happyReduction_169 (happy_x_4 `HappyStk` +happyReduce_156 = happyReduce 4# 50# happyReduction_156 +happyReduction_156 (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_170 = happyReduce 5# 51# happyReduction_170 -happyReduction_170 (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_171 = happyReduce 4# 51# happyReduction_171 -happyReduction_171 (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 + = case happyOut60 happy_x_3 of { happy_var_3 -> + happyIn57 + (EStrs happy_var_3 ) `HappyStk` happyRest} -happyReduce_172 = happySpecReduce_1 51# happyReduction_172 -happyReduction_172 happy_x_1 +happyReduce_157 = happySpecReduce_3 50# happyReduction_157 +happyReduction_157 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut7 happy_x_1 of { happy_var_1 -> + case happyOut55 happy_x_3 of { happy_var_3 -> + happyIn57 + (EConAt happy_var_1 happy_var_3 + )}} + +happyReduce_158 = happySpecReduce_1 50# happyReduction_158 +happyReduction_158 happy_x_1 + = case happyOut56 happy_x_1 of { happy_var_1 -> + happyIn57 + (happy_var_1 + )} + +happyReduce_159 = happySpecReduce_2 50# happyReduction_159 +happyReduction_159 happy_x_2 + happy_x_1 + = case happyOut7 happy_x_2 of { happy_var_2 -> + happyIn57 + (ELin happy_var_2 + )} + +happyReduce_160 = happySpecReduce_3 51# happyReduction_160 +happyReduction_160 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut58 happy_x_1 of { happy_var_1 -> + case happyOut57 happy_x_3 of { happy_var_3 -> + happyIn58 + (ESelect happy_var_1 happy_var_3 + )}} + +happyReduce_161 = happySpecReduce_3 51# happyReduction_161 +happyReduction_161 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut58 happy_x_1 of { happy_var_1 -> + case happyOut57 happy_x_3 of { happy_var_3 -> + happyIn58 + (ETupTyp happy_var_1 happy_var_3 + )}} + +happyReduce_162 = happySpecReduce_3 51# happyReduction_162 +happyReduction_162 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut58 happy_x_1 of { happy_var_1 -> + case happyOut57 happy_x_3 of { happy_var_3 -> + happyIn58 + (EExtend happy_var_1 happy_var_3 + )}} + +happyReduce_163 = happySpecReduce_1 51# happyReduction_163 +happyReduction_163 happy_x_1 = case happyOut57 happy_x_1 of { happy_var_1 -> happyIn58 (happy_var_1 )} -happyReduce_173 = happySpecReduce_0 52# happyReduction_173 -happyReduction_173 = happyIn59 - ([] - ) - -happyReduce_174 = happySpecReduce_1 52# happyReduction_174 -happyReduction_174 happy_x_1 - = case happyOut58 happy_x_1 of { happy_var_1 -> +happyReduce_164 = happyReduce 4# 52# happyReduction_164 +happyReduction_164 (happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut72 happy_x_2 of { happy_var_2 -> + case happyOut59 happy_x_4 of { happy_var_4 -> happyIn59 - ((:[]) happy_var_1 - )} + (EAbstr happy_var_2 happy_var_4 + ) `HappyStk` happyRest}} -happyReduce_175 = happySpecReduce_3 52# happyReduction_175 -happyReduction_175 happy_x_3 +happyReduce_165 = happyReduce 5# 52# happyReduction_165 +happyReduction_165 (happy_x_5 `HappyStk` + happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut72 happy_x_3 of { happy_var_3 -> + case happyOut59 happy_x_5 of { happy_var_5 -> + happyIn59 + (ECTable happy_var_3 happy_var_5 + ) `HappyStk` happyRest}} + +happyReduce_166 = happySpecReduce_3 52# happyReduction_166 +happyReduction_166 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut73 happy_x_1 of { happy_var_1 -> + case happyOut59 happy_x_3 of { happy_var_3 -> + happyIn59 + (EProd happy_var_1 happy_var_3 + )}} + +happyReduce_167 = happySpecReduce_3 52# happyReduction_167 +happyReduction_167 happy_x_3 happy_x_2 happy_x_1 = case happyOut58 happy_x_1 of { happy_var_1 -> case happyOut59 happy_x_3 of { happy_var_3 -> happyIn59 + (ETType happy_var_1 happy_var_3 + )}} + +happyReduce_168 = happySpecReduce_3 52# happyReduction_168 +happyReduction_168 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut58 happy_x_1 of { happy_var_1 -> + case happyOut59 happy_x_3 of { happy_var_3 -> + happyIn59 + (EConcat happy_var_1 happy_var_3 + )}} + +happyReduce_169 = happySpecReduce_3 52# happyReduction_169 +happyReduction_169 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut58 happy_x_1 of { happy_var_1 -> + case happyOut59 happy_x_3 of { happy_var_3 -> + happyIn59 + (EGlue happy_var_1 happy_var_3 + )}} + +happyReduce_170 = happyReduce 6# 52# happyReduction_170 +happyReduction_170 (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 happyOut54 happy_x_3 of { happy_var_3 -> + case happyOut59 happy_x_6 of { happy_var_6 -> + happyIn59 + (ELet happy_var_3 happy_var_6 + ) `HappyStk` happyRest}} + +happyReduce_171 = happyReduce 4# 52# happyReduction_171 +happyReduction_171 (happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut54 happy_x_2 of { happy_var_2 -> + case happyOut59 happy_x_4 of { happy_var_4 -> + happyIn59 + (ELetb happy_var_2 happy_var_4 + ) `HappyStk` happyRest}} + +happyReduce_172 = happyReduce 5# 52# happyReduction_172 +happyReduction_172 (happy_x_5 `HappyStk` + happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut58 happy_x_1 of { happy_var_1 -> + case happyOut54 happy_x_4 of { happy_var_4 -> + happyIn59 + (EWhere happy_var_1 happy_var_4 + ) `HappyStk` happyRest}} + +happyReduce_173 = happyReduce 4# 52# happyReduction_173 +happyReduction_173 (happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut81 happy_x_3 of { happy_var_3 -> + happyIn59 + (EEqs happy_var_3 + ) `HappyStk` happyRest} + +happyReduce_174 = happySpecReduce_1 52# happyReduction_174 +happyReduction_174 happy_x_1 + = case happyOut58 happy_x_1 of { happy_var_1 -> + happyIn59 + (happy_var_1 + )} + +happyReduce_175 = happySpecReduce_0 53# happyReduction_175 +happyReduction_175 = happyIn60 + ([] + ) + +happyReduce_176 = happySpecReduce_1 53# happyReduction_176 +happyReduction_176 happy_x_1 + = case happyOut59 happy_x_1 of { happy_var_1 -> + happyIn60 + ((:[]) happy_var_1 + )} + +happyReduce_177 = happySpecReduce_3 53# happyReduction_177 +happyReduction_177 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut59 happy_x_1 of { happy_var_1 -> + case happyOut60 happy_x_3 of { happy_var_3 -> + happyIn60 ((:) happy_var_1 happy_var_3 )}} -happyReduce_176 = happySpecReduce_0 53# happyReduction_176 -happyReduction_176 = happyIn60 +happyReduce_178 = happySpecReduce_0 54# happyReduction_178 +happyReduction_178 = happyIn61 (NilExp ) -happyReduce_177 = happySpecReduce_2 53# happyReduction_177 -happyReduction_177 happy_x_2 +happyReduce_179 = happySpecReduce_2 54# happyReduction_179 +happyReduction_179 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 + = case happyOut55 happy_x_1 of { happy_var_1 -> + case happyOut61 happy_x_2 of { happy_var_2 -> + happyIn61 (ConsExp happy_var_1 happy_var_2 )}} -happyReduce_178 = happySpecReduce_1 54# happyReduction_178 -happyReduction_178 happy_x_1 - = happyIn61 +happyReduce_180 = happySpecReduce_1 55# happyReduction_180 +happyReduction_180 happy_x_1 + = happyIn62 (PW ) -happyReduce_179 = happySpecReduce_1 54# happyReduction_179 -happyReduction_179 happy_x_1 +happyReduce_181 = happySpecReduce_1 55# happyReduction_181 +happyReduction_181 happy_x_1 = case happyOut7 happy_x_1 of { happy_var_1 -> - happyIn61 + happyIn62 (PV happy_var_1 )} -happyReduce_180 = happySpecReduce_3 54# happyReduction_180 -happyReduction_180 happy_x_3 +happyReduce_182 = happySpecReduce_3 55# happyReduction_182 +happyReduction_182 happy_x_3 happy_x_2 happy_x_1 = case happyOut7 happy_x_2 of { happy_var_2 -> - happyIn61 + happyIn62 (PCon happy_var_2 )} -happyReduce_181 = happySpecReduce_3 54# happyReduction_181 -happyReduction_181 happy_x_3 +happyReduce_183 = happySpecReduce_3 55# happyReduction_183 +happyReduction_183 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 -> - happyIn61 + happyIn62 (PQ happy_var_1 happy_var_3 )}} -happyReduce_182 = happySpecReduce_1 54# happyReduction_182 -happyReduction_182 happy_x_1 +happyReduce_184 = happySpecReduce_1 55# happyReduction_184 +happyReduction_184 happy_x_1 = case happyOut8 happy_x_1 of { happy_var_1 -> - happyIn61 + happyIn62 (PInt happy_var_1 )} -happyReduce_183 = happySpecReduce_1 54# happyReduction_183 -happyReduction_183 happy_x_1 +happyReduce_185 = happySpecReduce_1 55# happyReduction_185 +happyReduction_185 happy_x_1 + = case happyOut10 happy_x_1 of { happy_var_1 -> + happyIn62 + (PFloat happy_var_1 + )} + +happyReduce_186 = happySpecReduce_1 55# happyReduction_186 +happyReduction_186 happy_x_1 = case happyOut9 happy_x_1 of { happy_var_1 -> - happyIn61 + happyIn62 (PStr happy_var_1 )} -happyReduce_184 = happySpecReduce_3 54# happyReduction_184 -happyReduction_184 happy_x_3 +happyReduce_187 = happySpecReduce_3 55# happyReduction_187 +happyReduction_187 happy_x_3 happy_x_2 happy_x_1 - = case happyOut66 happy_x_2 of { happy_var_2 -> - happyIn61 + = case happyOut67 happy_x_2 of { happy_var_2 -> + happyIn62 (PR happy_var_2 )} -happyReduce_185 = happySpecReduce_3 54# happyReduction_185 -happyReduction_185 happy_x_3 +happyReduce_188 = happySpecReduce_3 55# happyReduction_188 +happyReduction_188 happy_x_3 happy_x_2 happy_x_1 - = case happyOut76 happy_x_2 of { happy_var_2 -> - happyIn61 + = case happyOut77 happy_x_2 of { happy_var_2 -> + happyIn62 (PTup happy_var_2 )} -happyReduce_186 = happySpecReduce_3 54# happyReduction_186 -happyReduction_186 happy_x_3 +happyReduce_189 = happySpecReduce_3 55# happyReduction_189 +happyReduction_189 happy_x_3 happy_x_2 happy_x_1 - = case happyOut62 happy_x_2 of { happy_var_2 -> - happyIn61 + = case happyOut63 happy_x_2 of { happy_var_2 -> + happyIn62 (happy_var_2 )} -happyReduce_187 = happySpecReduce_2 55# happyReduction_187 -happyReduction_187 happy_x_2 +happyReduce_190 = happySpecReduce_2 56# happyReduction_190 +happyReduction_190 happy_x_2 happy_x_1 = case happyOut7 happy_x_1 of { happy_var_1 -> - case happyOut68 happy_x_2 of { happy_var_2 -> - happyIn62 + case happyOut69 happy_x_2 of { happy_var_2 -> + happyIn63 (PC happy_var_1 happy_var_2 )}} -happyReduce_188 = happyReduce 4# 55# happyReduction_188 -happyReduction_188 (happy_x_4 `HappyStk` +happyReduce_191 = happyReduce 4# 56# happyReduction_191 +happyReduction_191 (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 happyOut68 happy_x_4 of { happy_var_4 -> - happyIn62 + case happyOut69 happy_x_4 of { happy_var_4 -> + happyIn63 (PQC happy_var_1 happy_var_3 happy_var_4 ) `HappyStk` happyRest}}} -happyReduce_189 = happySpecReduce_1 55# happyReduction_189 -happyReduction_189 happy_x_1 - = case happyOut61 happy_x_1 of { happy_var_1 -> - happyIn62 +happyReduce_192 = happySpecReduce_1 56# happyReduction_192 +happyReduction_192 happy_x_1 + = case happyOut62 happy_x_1 of { happy_var_1 -> + happyIn63 (happy_var_1 )} -happyReduce_190 = happySpecReduce_3 56# happyReduction_190 -happyReduction_190 happy_x_3 +happyReduce_193 = happySpecReduce_3 57# happyReduction_193 +happyReduction_193 happy_x_3 happy_x_2 happy_x_1 - = case happyOut49 happy_x_1 of { happy_var_1 -> - case happyOut62 happy_x_3 of { happy_var_3 -> - happyIn63 + = case happyOut50 happy_x_1 of { happy_var_1 -> + case happyOut63 happy_x_3 of { happy_var_3 -> + happyIn64 (PA happy_var_1 happy_var_3 )}} -happyReduce_191 = happySpecReduce_1 57# happyReduction_191 -happyReduction_191 happy_x_1 +happyReduce_194 = happySpecReduce_1 58# happyReduction_194 +happyReduction_194 happy_x_1 = case happyOut7 happy_x_1 of { happy_var_1 -> - happyIn64 + happyIn65 (LIdent happy_var_1 )} -happyReduce_192 = happySpecReduce_2 57# happyReduction_192 -happyReduction_192 happy_x_2 +happyReduce_195 = happySpecReduce_2 58# happyReduction_195 +happyReduction_195 happy_x_2 happy_x_1 = case happyOut8 happy_x_2 of { happy_var_2 -> - happyIn64 + happyIn65 (LVar happy_var_2 )} -happyReduce_193 = happySpecReduce_1 58# happyReduction_193 -happyReduction_193 happy_x_1 - = happyIn65 +happyReduce_196 = happySpecReduce_1 59# happyReduction_196 +happyReduction_196 happy_x_1 + = happyIn66 (Sort_Type ) -happyReduce_194 = happySpecReduce_1 58# happyReduction_194 -happyReduction_194 happy_x_1 - = happyIn65 +happyReduce_197 = happySpecReduce_1 59# happyReduction_197 +happyReduction_197 happy_x_1 + = happyIn66 (Sort_PType ) -happyReduce_195 = happySpecReduce_1 58# happyReduction_195 -happyReduction_195 happy_x_1 - = happyIn65 +happyReduce_198 = happySpecReduce_1 59# happyReduction_198 +happyReduction_198 happy_x_1 + = happyIn66 (Sort_Tok ) -happyReduce_196 = happySpecReduce_1 58# happyReduction_196 -happyReduction_196 happy_x_1 - = happyIn65 - (Sort_Str - ) - -happyReduce_197 = happySpecReduce_1 58# happyReduction_197 -happyReduction_197 happy_x_1 - = happyIn65 - (Sort_Strs - ) - -happyReduce_198 = happySpecReduce_0 59# happyReduction_198 -happyReduction_198 = happyIn66 - ([] - ) - happyReduce_199 = happySpecReduce_1 59# happyReduction_199 happyReduction_199 happy_x_1 - = case happyOut63 happy_x_1 of { happy_var_1 -> - happyIn66 - ((:[]) happy_var_1 - )} - -happyReduce_200 = happySpecReduce_3 59# happyReduction_200 -happyReduction_200 happy_x_3 - happy_x_2 - happy_x_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_201 = happySpecReduce_1 60# happyReduction_201 -happyReduction_201 happy_x_1 - = case happyOut62 happy_x_1 of { happy_var_1 -> - happyIn67 - (AltP happy_var_1 - )} - -happyReduce_202 = happySpecReduce_1 61# happyReduction_202 -happyReduction_202 happy_x_1 - = case happyOut61 happy_x_1 of { happy_var_1 -> - happyIn68 - ((:[]) happy_var_1 - )} - -happyReduce_203 = happySpecReduce_2 61# happyReduction_203 -happyReduction_203 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_204 = happySpecReduce_1 62# happyReduction_204 -happyReduction_204 happy_x_1 - = case happyOut67 happy_x_1 of { happy_var_1 -> - happyIn69 - ((:[]) happy_var_1 - )} - -happyReduce_205 = happySpecReduce_3 62# happyReduction_205 -happyReduction_205 happy_x_3 - happy_x_2 - happy_x_1 - = case happyOut67 happy_x_1 of { happy_var_1 -> - case happyOut69 happy_x_3 of { happy_var_3 -> - happyIn69 - ((:) happy_var_1 happy_var_3 - )}} - -happyReduce_206 = happySpecReduce_1 63# happyReduction_206 -happyReduction_206 happy_x_1 - = case happyOut7 happy_x_1 of { happy_var_1 -> - happyIn70 - (BIdent happy_var_1 - )} - -happyReduce_207 = happySpecReduce_1 63# happyReduction_207 -happyReduction_207 happy_x_1 - = happyIn70 - (BWild + = happyIn66 + (Sort_Str ) -happyReduce_208 = happySpecReduce_0 64# happyReduction_208 -happyReduction_208 = happyIn71 +happyReduce_200 = happySpecReduce_1 59# happyReduction_200 +happyReduction_200 happy_x_1 + = happyIn66 + (Sort_Strs + ) + +happyReduce_201 = happySpecReduce_0 60# happyReduction_201 +happyReduction_201 = happyIn67 ([] ) -happyReduce_209 = happySpecReduce_1 64# happyReduction_209 -happyReduction_209 happy_x_1 - = case happyOut70 happy_x_1 of { happy_var_1 -> - happyIn71 +happyReduce_202 = happySpecReduce_1 60# happyReduction_202 +happyReduction_202 happy_x_1 + = case happyOut64 happy_x_1 of { happy_var_1 -> + happyIn67 ((:[]) happy_var_1 )} -happyReduce_210 = happySpecReduce_3 64# happyReduction_210 -happyReduction_210 happy_x_3 +happyReduce_203 = happySpecReduce_3 60# happyReduction_203 +happyReduction_203 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 + = case happyOut64 happy_x_1 of { happy_var_1 -> + case happyOut67 happy_x_3 of { happy_var_3 -> + happyIn67 ((:) happy_var_1 happy_var_3 )}} -happyReduce_211 = happyReduce 5# 65# happyReduction_211 -happyReduction_211 (happy_x_5 `HappyStk` +happyReduce_204 = happySpecReduce_1 61# happyReduction_204 +happyReduction_204 happy_x_1 + = case happyOut63 happy_x_1 of { happy_var_1 -> + happyIn68 + (AltP happy_var_1 + )} + +happyReduce_205 = happySpecReduce_1 62# happyReduction_205 +happyReduction_205 happy_x_1 + = case happyOut62 happy_x_1 of { happy_var_1 -> + happyIn69 + ((:[]) happy_var_1 + )} + +happyReduce_206 = happySpecReduce_2 62# happyReduction_206 +happyReduction_206 happy_x_2 + happy_x_1 + = case happyOut62 happy_x_1 of { happy_var_1 -> + case happyOut69 happy_x_2 of { happy_var_2 -> + happyIn69 + ((:) happy_var_1 happy_var_2 + )}} + +happyReduce_207 = happySpecReduce_1 63# happyReduction_207 +happyReduction_207 happy_x_1 + = case happyOut68 happy_x_1 of { happy_var_1 -> + happyIn70 + ((:[]) happy_var_1 + )} + +happyReduce_208 = happySpecReduce_3 63# happyReduction_208 +happyReduction_208 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut68 happy_x_1 of { happy_var_1 -> + case happyOut70 happy_x_3 of { happy_var_3 -> + happyIn70 + ((:) happy_var_1 happy_var_3 + )}} + +happyReduce_209 = happySpecReduce_1 64# happyReduction_209 +happyReduction_209 happy_x_1 + = case happyOut7 happy_x_1 of { happy_var_1 -> + happyIn71 + (BIdent happy_var_1 + )} + +happyReduce_210 = happySpecReduce_1 64# happyReduction_210 +happyReduction_210 happy_x_1 + = happyIn71 + (BWild + ) + +happyReduce_211 = happySpecReduce_0 65# happyReduction_211 +happyReduction_211 = happyIn72 + ([] + ) + +happyReduce_212 = happySpecReduce_1 65# happyReduction_212 +happyReduction_212 happy_x_1 + = case happyOut71 happy_x_1 of { happy_var_1 -> + happyIn72 + ((:[]) happy_var_1 + )} + +happyReduce_213 = happySpecReduce_3 65# happyReduction_213 +happyReduction_213 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut71 happy_x_1 of { happy_var_1 -> + case happyOut72 happy_x_3 of { happy_var_3 -> + happyIn72 + ((:) happy_var_1 happy_var_3 + )}} + +happyReduce_214 = happyReduce 5# 66# happyReduction_214 +happyReduction_214 (happy_x_5 `HappyStk` happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` happyRest) - = case happyOut71 happy_x_2 of { happy_var_2 -> - case happyOut58 happy_x_4 of { happy_var_4 -> - happyIn72 + = case happyOut72 happy_x_2 of { happy_var_2 -> + case happyOut59 happy_x_4 of { happy_var_4 -> + happyIn73 (DDec happy_var_2 happy_var_4 ) `HappyStk` happyRest}} -happyReduce_212 = happySpecReduce_1 65# happyReduction_212 -happyReduction_212 happy_x_1 - = case happyOut56 happy_x_1 of { happy_var_1 -> - happyIn72 +happyReduce_215 = happySpecReduce_1 66# happyReduction_215 +happyReduction_215 happy_x_1 + = case happyOut57 happy_x_1 of { happy_var_1 -> + happyIn73 (DExp happy_var_1 )} -happyReduce_213 = happySpecReduce_1 66# happyReduction_213 -happyReduction_213 happy_x_1 - = case happyOut58 happy_x_1 of { happy_var_1 -> - happyIn73 +happyReduce_216 = happySpecReduce_1 67# happyReduction_216 +happyReduction_216 happy_x_1 + = case happyOut59 happy_x_1 of { happy_var_1 -> + happyIn74 (TComp happy_var_1 )} -happyReduce_214 = happySpecReduce_1 67# happyReduction_214 -happyReduction_214 happy_x_1 - = case happyOut62 happy_x_1 of { happy_var_1 -> - happyIn74 +happyReduce_217 = happySpecReduce_1 68# happyReduction_217 +happyReduction_217 happy_x_1 + = case happyOut63 happy_x_1 of { happy_var_1 -> + happyIn75 (PTComp happy_var_1 )} -happyReduce_215 = happySpecReduce_0 68# happyReduction_215 -happyReduction_215 = happyIn75 - ([] - ) - -happyReduce_216 = happySpecReduce_1 68# happyReduction_216 -happyReduction_216 happy_x_1 - = case happyOut73 happy_x_1 of { happy_var_1 -> - happyIn75 - ((:[]) happy_var_1 - )} - -happyReduce_217 = happySpecReduce_3 68# happyReduction_217 -happyReduction_217 happy_x_3 - happy_x_2 - happy_x_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_218 = happySpecReduce_0 69# happyReduction_218 happyReduction_218 = happyIn76 ([] @@ -2702,220 +2710,242 @@ happyReduction_220 happy_x_3 ((:) happy_var_1 happy_var_3 )}} -happyReduce_221 = happySpecReduce_3 70# happyReduction_221 -happyReduction_221 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_222 = happySpecReduce_1 71# happyReduction_222 -happyReduction_222 happy_x_1 - = case happyOut77 happy_x_1 of { happy_var_1 -> - happyIn78 - ((:[]) happy_var_1 - )} - -happyReduce_223 = happySpecReduce_3 71# happyReduction_223 -happyReduction_223 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_224 = happySpecReduce_3 72# happyReduction_224 -happyReduction_224 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_225 = happySpecReduce_0 73# happyReduction_225 -happyReduction_225 = happyIn80 +happyReduce_221 = happySpecReduce_0 70# happyReduction_221 +happyReduction_221 = happyIn77 ([] ) -happyReduce_226 = happySpecReduce_1 73# happyReduction_226 -happyReduction_226 happy_x_1 - = case happyOut79 happy_x_1 of { happy_var_1 -> - happyIn80 +happyReduce_222 = happySpecReduce_1 70# happyReduction_222 +happyReduction_222 happy_x_1 + = case happyOut75 happy_x_1 of { happy_var_1 -> + happyIn77 ((:[]) happy_var_1 )} +happyReduce_223 = happySpecReduce_3 70# happyReduction_223 +happyReduction_223 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut75 happy_x_1 of { happy_var_1 -> + case happyOut77 happy_x_3 of { happy_var_3 -> + happyIn77 + ((:) happy_var_1 happy_var_3 + )}} + +happyReduce_224 = happySpecReduce_3 71# happyReduction_224 +happyReduction_224 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut70 happy_x_1 of { happy_var_1 -> + case happyOut59 happy_x_3 of { happy_var_3 -> + happyIn78 + (Case happy_var_1 happy_var_3 + )}} + +happyReduce_225 = happySpecReduce_1 72# happyReduction_225 +happyReduction_225 happy_x_1 + = case happyOut78 happy_x_1 of { happy_var_1 -> + happyIn79 + ((:[]) happy_var_1 + )} + +happyReduce_226 = happySpecReduce_3 72# happyReduction_226 +happyReduction_226 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 + ((:) happy_var_1 happy_var_3 + )}} + happyReduce_227 = happySpecReduce_3 73# happyReduction_227 happyReduction_227 happy_x_3 happy_x_2 happy_x_1 - = case happyOut79 happy_x_1 of { happy_var_1 -> - case happyOut80 happy_x_3 of { happy_var_3 -> + = case happyOut69 happy_x_1 of { happy_var_1 -> + case happyOut59 happy_x_3 of { happy_var_3 -> happyIn80 - ((:) happy_var_1 happy_var_3 + (Equ happy_var_1 happy_var_3 )}} -happyReduce_228 = happySpecReduce_3 74# happyReduction_228 -happyReduction_228 happy_x_3 - happy_x_2 - happy_x_1 - = 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_229 = happySpecReduce_0 75# happyReduction_229 -happyReduction_229 = happyIn82 +happyReduce_228 = happySpecReduce_0 74# happyReduction_228 +happyReduction_228 = happyIn81 ([] ) -happyReduce_230 = happySpecReduce_1 75# happyReduction_230 -happyReduction_230 happy_x_1 - = case happyOut81 happy_x_1 of { happy_var_1 -> - happyIn82 +happyReduce_229 = happySpecReduce_1 74# happyReduction_229 +happyReduction_229 happy_x_1 + = case happyOut80 happy_x_1 of { happy_var_1 -> + happyIn81 ((:[]) happy_var_1 )} +happyReduce_230 = happySpecReduce_3 74# happyReduction_230 +happyReduction_230 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut80 happy_x_1 of { happy_var_1 -> + case happyOut81 happy_x_3 of { happy_var_3 -> + happyIn81 + ((:) happy_var_1 happy_var_3 + )}} + happyReduce_231 = happySpecReduce_3 75# happyReduction_231 happyReduction_231 happy_x_3 happy_x_2 happy_x_1 - = case happyOut81 happy_x_1 of { happy_var_1 -> - case happyOut82 happy_x_3 of { happy_var_3 -> + = case happyOut59 happy_x_1 of { happy_var_1 -> + case happyOut59 happy_x_3 of { happy_var_3 -> happyIn82 + (Alt happy_var_1 happy_var_3 + )}} + +happyReduce_232 = happySpecReduce_0 76# happyReduction_232 +happyReduction_232 = happyIn83 + ([] + ) + +happyReduce_233 = happySpecReduce_1 76# happyReduction_233 +happyReduction_233 happy_x_1 + = case happyOut82 happy_x_1 of { happy_var_1 -> + happyIn83 + ((:[]) happy_var_1 + )} + +happyReduce_234 = happySpecReduce_3 76# happyReduction_234 +happyReduction_234 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut82 happy_x_1 of { happy_var_1 -> + case happyOut83 happy_x_3 of { happy_var_3 -> + happyIn83 ((:) happy_var_1 happy_var_3 )}} -happyReduce_232 = happyReduce 5# 76# happyReduction_232 -happyReduction_232 (happy_x_5 `HappyStk` +happyReduce_235 = happyReduce 5# 77# happyReduction_235 +happyReduction_235 (happy_x_5 `HappyStk` happy_x_4 `HappyStk` happy_x_3 `HappyStk` happy_x_2 `HappyStk` happy_x_1 `HappyStk` happyRest) - = case happyOut71 happy_x_2 of { happy_var_2 -> - case happyOut58 happy_x_4 of { happy_var_4 -> - happyIn83 + = case happyOut72 happy_x_2 of { happy_var_2 -> + case happyOut59 happy_x_4 of { happy_var_4 -> + happyIn84 (DDDec happy_var_2 happy_var_4 ) `HappyStk` happyRest}} -happyReduce_233 = happySpecReduce_1 76# happyReduction_233 -happyReduction_233 happy_x_1 - = case happyOut54 happy_x_1 of { happy_var_1 -> - happyIn83 +happyReduce_236 = happySpecReduce_1 77# happyReduction_236 +happyReduction_236 happy_x_1 + = case happyOut55 happy_x_1 of { happy_var_1 -> + happyIn84 (DDExp happy_var_1 )} -happyReduce_234 = happySpecReduce_0 77# happyReduction_234 -happyReduction_234 = happyIn84 +happyReduce_237 = happySpecReduce_0 78# happyReduction_237 +happyReduction_237 = happyIn85 ([] ) -happyReduce_235 = happySpecReduce_2 77# happyReduction_235 -happyReduction_235 happy_x_2 +happyReduce_238 = happySpecReduce_2 78# happyReduction_238 +happyReduction_238 happy_x_2 happy_x_1 - = case happyOut84 happy_x_1 of { happy_var_1 -> - case happyOut83 happy_x_2 of { happy_var_2 -> - happyIn84 + = case happyOut85 happy_x_1 of { happy_var_1 -> + case happyOut84 happy_x_2 of { happy_var_2 -> + happyIn85 (flip (:) happy_var_1 happy_var_2 )}} -happyReduce_236 = happySpecReduce_2 78# happyReduction_236 -happyReduction_236 happy_x_2 +happyReduce_239 = happySpecReduce_2 79# happyReduction_239 +happyReduction_239 happy_x_2 happy_x_1 - = case happyOut86 happy_x_1 of { happy_var_1 -> - case happyOut21 happy_x_2 of { happy_var_2 -> - happyIn85 + = case happyOut87 happy_x_1 of { happy_var_1 -> + case happyOut22 happy_x_2 of { happy_var_2 -> + happyIn86 (OldGr happy_var_1 (reverse happy_var_2) )}} -happyReduce_237 = happySpecReduce_0 79# happyReduction_237 -happyReduction_237 = happyIn86 +happyReduce_240 = happySpecReduce_0 80# happyReduction_240 +happyReduction_240 = happyIn87 (NoIncl ) -happyReduce_238 = happySpecReduce_2 79# happyReduction_238 -happyReduction_238 happy_x_2 - happy_x_1 - = case happyOut88 happy_x_2 of { happy_var_2 -> - happyIn86 - (Incl happy_var_2 - )} - -happyReduce_239 = happySpecReduce_1 80# happyReduction_239 -happyReduction_239 happy_x_1 - = case happyOut9 happy_x_1 of { happy_var_1 -> - happyIn87 - (FString happy_var_1 - )} - -happyReduce_240 = happySpecReduce_1 80# happyReduction_240 -happyReduction_240 happy_x_1 - = case happyOut7 happy_x_1 of { happy_var_1 -> - happyIn87 - (FIdent happy_var_1 - )} - happyReduce_241 = happySpecReduce_2 80# happyReduction_241 happyReduction_241 happy_x_2 happy_x_1 - = case happyOut87 happy_x_2 of { happy_var_2 -> + = case happyOut89 happy_x_2 of { happy_var_2 -> happyIn87 - (FSlash happy_var_2 + (Incl 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 - (FDot happy_var_2 +happyReduce_242 = happySpecReduce_1 81# happyReduction_242 +happyReduction_242 happy_x_1 + = case happyOut9 happy_x_1 of { happy_var_1 -> + happyIn88 + (FString happy_var_1 )} -happyReduce_243 = happySpecReduce_2 80# happyReduction_243 -happyReduction_243 happy_x_2 - happy_x_1 - = case happyOut87 happy_x_2 of { happy_var_2 -> - happyIn87 - (FMinus happy_var_2 +happyReduce_243 = happySpecReduce_1 81# happyReduction_243 +happyReduction_243 happy_x_1 + = case happyOut7 happy_x_1 of { happy_var_1 -> + happyIn88 + (FIdent happy_var_1 )} -happyReduce_244 = happySpecReduce_2 80# happyReduction_244 +happyReduce_244 = happySpecReduce_2 81# happyReduction_244 happyReduction_244 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 - )}} + = case happyOut88 happy_x_2 of { happy_var_2 -> + happyIn88 + (FSlash happy_var_2 + )} happyReduce_245 = happySpecReduce_2 81# happyReduction_245 happyReduction_245 happy_x_2 happy_x_1 - = case happyOut87 happy_x_1 of { happy_var_1 -> + = case happyOut88 happy_x_2 of { happy_var_2 -> happyIn88 + (FDot happy_var_2 + )} + +happyReduce_246 = happySpecReduce_2 81# happyReduction_246 +happyReduction_246 happy_x_2 + happy_x_1 + = case happyOut88 happy_x_2 of { happy_var_2 -> + happyIn88 + (FMinus happy_var_2 + )} + +happyReduce_247 = happySpecReduce_2 81# happyReduction_247 +happyReduction_247 happy_x_2 + happy_x_1 + = case happyOut7 happy_x_1 of { happy_var_1 -> + case happyOut88 happy_x_2 of { happy_var_2 -> + happyIn88 + (FAddId happy_var_1 happy_var_2 + )}} + +happyReduce_248 = happySpecReduce_2 82# happyReduction_248 +happyReduction_248 happy_x_2 + happy_x_1 + = case happyOut88 happy_x_1 of { happy_var_1 -> + happyIn89 ((:[]) happy_var_1 )} -happyReduce_246 = happySpecReduce_3 81# happyReduction_246 -happyReduction_246 happy_x_3 +happyReduce_249 = happySpecReduce_3 82# happyReduction_249 +happyReduction_249 happy_x_3 happy_x_2 happy_x_1 - = case happyOut87 happy_x_1 of { happy_var_1 -> - case happyOut88 happy_x_3 of { happy_var_3 -> - happyIn88 + = case happyOut88 happy_x_1 of { happy_var_1 -> + case happyOut89 happy_x_3 of { happy_var_3 -> + happyIn89 ((:) happy_var_1 happy_var_3 )}} happyNewToken action sts stk [] = - happyDoAction 81# (error "reading EOF!") action sts stk [] + happyDoAction 82# (error "reading EOF!") action sts stk [] happyNewToken action sts stk (tk:tks) = let cont i = happyDoAction i tk action sts stk tks in @@ -2998,8 +3028,9 @@ happyNewToken action sts stk (tk:tks) = PT _ (TV happy_dollar_dollar) -> cont 76#; PT _ (TI happy_dollar_dollar) -> cont 77#; PT _ (TL happy_dollar_dollar) -> cont 78#; - PT _ (T_LString happy_dollar_dollar) -> cont 79#; - _ -> cont 80#; + PT _ (TD happy_dollar_dollar) -> cont 79#; + PT _ (T_LString happy_dollar_dollar) -> cont 80#; + _ -> cont 81#; _ -> happyError' (tk:tks) } @@ -3016,16 +3047,16 @@ happyError' :: () => [Token] -> Err a happyError' = happyError pGrammar tks = happySomeParser where - happySomeParser = happyThen (happyParse 0# tks) (\x -> happyReturn (happyOut11 x)) + happySomeParser = happyThen (happyParse 0# tks) (\x -> happyReturn (happyOut12 x)) pModDef tks = happySomeParser where - happySomeParser = happyThen (happyParse 1# tks) (\x -> happyReturn (happyOut13 x)) + happySomeParser = happyThen (happyParse 1# tks) (\x -> happyReturn (happyOut14 x)) pOldGrammar tks = happySomeParser where - happySomeParser = happyThen (happyParse 2# tks) (\x -> happyReturn (happyOut85 x)) + happySomeParser = happyThen (happyParse 2# tks) (\x -> happyReturn (happyOut86 x)) pExp tks = happySomeParser where - happySomeParser = happyThen (happyParse 3# tks) (\x -> happyReturn (happyOut58 x)) + happySomeParser = happyThen (happyParse 3# tks) (\x -> happyReturn (happyOut59 x)) happySeq = happyDontSeq @@ -3041,22 +3072,13 @@ happyError ts = myLexer = tokens {-# LINE 1 "GenericTemplate.hs" #-} --- $Id: ParGF.hs,v 1.12 2005/05/26 14:18:17 aarne Exp $ +{-# LINE 1 "" #-} +{-# LINE 1 "" #-} +{-# LINE 1 "GenericTemplate.hs" #-} +-- $Id$ - - - - - - - - - - - -{-# LINE 27 "GenericTemplate.hs" #-} - +{-# LINE 28 "GenericTemplate.hs" #-} data Happy_IntList = HappyCons Int# Happy_IntList @@ -3066,28 +3088,10 @@ data Happy_IntList = HappyCons Int# Happy_IntList +{-# LINE 49 "GenericTemplate.hs" #-} - - - - - - - - - - - - - - - - - - - - +{-# LINE 59 "GenericTemplate.hs" #-} @@ -3188,8 +3192,7 @@ data HappyAddr = HappyA# Addr# ----------------------------------------------------------------------------- -- HappyState data type (not arrays) -{-# LINE 169 "GenericTemplate.hs" #-} - +{-# LINE 170 "GenericTemplate.hs" #-} ----------------------------------------------------------------------------- -- Shifting a token diff --git a/src/GF/Source/PrintGF.hs b/src/GF/Source/PrintGF.hs index e793e7d94..51e7317e3 100644 --- a/src/GF/Source/PrintGF.hs +++ b/src/GF/Source/PrintGF.hs @@ -335,6 +335,7 @@ instance Print Exp where 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]) + EFloat 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")]) @@ -390,6 +391,7 @@ instance Print Patt where PCon id -> prPrec i 1 (concatD [doc (showString "{0") , prt 0 id , doc (showString "}0")]) -- H PQ id0 id -> prPrec i 1 (concatD [prt 0 id0 , doc (showString ".") , prt 0 id]) PInt n -> prPrec i 1 (concatD [prt 0 n]) + PFloat n -> prPrec i 1 (concatD [prt 0 n]) PStr str -> prPrec i 1 (concatD [prt 0 str]) PR pattasss -> prPrec i 1 (concatD [doc (showString "{") , prt 0 pattasss , doc (showString "}")]) PTup patttuplecomps -> prPrec i 1 (concatD [doc (showString "<") , prt 0 patttuplecomps , doc (showString ">")]) diff --git a/src/GF/Source/SourceToGrammar.hs b/src/GF/Source/SourceToGrammar.hs index 421435bbc..2e63e68d4 100644 --- a/src/GF/Source/SourceToGrammar.hs +++ b/src/GF/Source/SourceToGrammar.hs @@ -396,7 +396,8 @@ transExp x = case x of EQCons m c -> liftM2 G.Q (transIdent m) (transIdent c) EString str -> return $ G.K str ESort sort -> liftM G.Sort $ transSort sort - EInt n -> return $ G.EInt $ fromInteger n + EInt n -> return $ G.EInt n + EFloat n -> return $ G.EFloat n EMeta -> return $ M.meta $ M.int2meta 0 EEmpty -> return G.Empty -- [ C x_1 ... x_n ] becomes (ListC x_1 ... x_n) @@ -522,7 +523,8 @@ transPatt x = case x of PV id -> liftM G.PV $ transIdent id PC id patts -> liftM2 G.PC (transIdent id) (mapM transPatt patts) PCon id -> liftM2 G.PC (transIdent id) (return []) - PInt n -> return $ G.PInt (fromInteger n) + PInt n -> return $ G.PInt n + PFloat n -> return $ G.PFloat n PStr str -> return $ G.PString str PR pattasss -> do let (lss,ps) = unzip [(ls,p) | PA ls p <- pattasss] diff --git a/src/GF/UseGrammar/Generate.hs b/src/GF/UseGrammar/Generate.hs index 941695f8b..f2482e8e8 100644 --- a/src/GF/UseGrammar/Generate.hs +++ b/src/GF/UseGrammar/Generate.hs @@ -85,6 +85,7 @@ tr2str (Tr (N (_,at,val,_,_),ts)) = case (at,val) of (AtM _, v) -> SMeta (catOf v) (AtL s, _) -> SString s (AtI i, _) -> SInt i + (AtF i, _) -> SFloat i _ -> SMeta "FAILED_TO_GENERATE" ---- err monad! where catOf v = case v of @@ -148,7 +149,8 @@ data STree = SApp (SFun,[STree]) | SMeta SCat | SString String - | SInt Int + | SInt Integer + | SFloat Double deriving (Show,Eq) depth :: STree -> Int @@ -164,6 +166,7 @@ prSTree t = case t of SMeta c -> '?':c SString s -> prQuotedString s SInt i -> show i + SFloat i -> show i where pr1 t@(SApp (_,ts)) = ' ' : (if null ts then id else prParenth) (prSTree t) pr1 t = prSTree t diff --git a/src/GF/UseGrammar/Linear.hs b/src/GF/UseGrammar/Linear.hs index 24f7312c5..7e052426d 100644 --- a/src/GF/UseGrammar/Linear.hs +++ b/src/GF/UseGrammar/Linear.hs @@ -62,6 +62,7 @@ linearizeToRecord gr mk m = lin [] where A.AtC f -> lookf c t f >>= comp xs' A.AtL s -> return $ recS $ tK $ prt at A.AtI i -> return $ recS $ tK $ prt at + A.AtF i -> return $ recS $ tK $ prt at A.AtV x -> lookCat c >>= comp [tK (prt_ at)] A.AtM m -> lookCat c >>= comp [tK (prt_ at)] diff --git a/src/GF/UseGrammar/Tokenize.hs b/src/GF/UseGrammar/Tokenize.hs index bfc0e53bb..91f7f0c61 100644 --- a/src/GF/UseGrammar/Tokenize.hs +++ b/src/GF/UseGrammar/Tokenize.hs @@ -52,10 +52,17 @@ tokLits = map mkCFTok . mergeStr . words where tokVars :: String -> [CFTok] tokVars = map mkCFTokVar . words +isFloat s = case s of + c:cs | isDigit c -> isFloat cs + '.':cs@(_:_) -> all isDigit cs + _ -> False + + mkCFTok :: String -> CFTok mkCFTok s = case s of '"' :cs@(_:_) | last cs == '"' -> tL $ init cs '\'':cs@(_:_) | last cs == '\'' -> tL $ init cs --- 's Gravenhage + _:_ | isFloat s -> tF s _:_ | all isDigit s -> tI s _ -> tS s @@ -73,10 +80,16 @@ mkTokVars tok = map tv . tok where tv t = t mkLit :: String -> CFTok -mkLit s = if (all isDigit s) then (tI s) else (tL s) +mkLit s + | isFloat s = tF s + | all isDigit s = tI s + | otherwise = tL s mkTL :: String -> CFTok -mkTL s = if (all isDigit s) then (tI s) else (tL ("'" ++ s ++ "'")) +mkTL s + | isFloat s = tF s + | all isDigit s = tI s + | otherwise = tL ("'" ++ s ++ "'") -- | Haskell lexer, usable for much code @@ -120,7 +133,7 @@ lexC2M' isHigherOrder s = case s of where lexC = lexC2M' isHigherOrder getId s = mkT i : lexC cs where (i,cs) = span isIdChar s - getLit s = tI i : lexC cs where (i,cs) = span isDigit s + getLit s = tI i : lexC cs where (i,cs) = span isDigit s ---- Float! isIdChar c = isAlpha c || isDigit c || elem c "'_" isSymb = reservedAnsiCSymbol dropComment s = case s of @@ -160,6 +173,7 @@ unknown2string :: (String -> Bool) -> [CFTok] -> [CFTok] unknown2string isKnown = map mkOne where mkOne t@(TS s) | isKnown s = t + | isFloat s = tF s | all isDigit s = tI s | otherwise = tL s mkOne t@(TC s) = if isKnown s then t else mkTL s @@ -170,6 +184,7 @@ unknown2var isKnown = map mkOne where mkOne t@(TS "??") = if isKnown "??" then t else tM "??" mkOne t@(TS s) | isKnown s = t + | isFloat s = tF s | all isDigit s = tI s | otherwise = tV s mkOne t@(TC s) = if isKnown s then t else tV s