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