diff --git a/bin/jgf2 b/bin/jgf2 index ca83e4edc..7543b699b 100644 --- a/bin/jgf2 +++ b/bin/jgf2 @@ -5,7 +5,7 @@ GFHOME=/home/aarne/GF2/bin # /.../chalmers.se/fs/cab/cs/.users/markus/home/GF1 JGUILIB=$GFHOME/java/ -GF=$GFHOME/gf2+ +GF=$GFHOME/gf2 JGUI=GFEditor java -cp $JGUILIB $JGUI "$GF -java $*" diff --git a/bin/jgf2+ b/bin/jgf2+ new file mode 100644 index 000000000..a452d34cc --- /dev/null +++ b/bin/jgf2+ @@ -0,0 +1,12 @@ +#! /bin/sh + +# change the value of GFHOME to the directory where you have the gf binary +GFHOME=/home/aarne/GF2/bin + # /.../chalmers.se/fs/cab/cs/.users/markus/home/GF1 + +JGUILIB=$GFHOME/java/ +GF=$GFHOME/gf2+ +JGUI=GFEditor2 + +java -cp $JGUILIB $JGUI "$GF -java -new $*" + diff --git a/grammars/resource/finnish/MorphoFin.gf b/grammars/resource/finnish/MorphoFin.gf index c634999b4..5d0ebc1ee 100644 --- a/grammars/resource/finnish/MorphoFin.gf +++ b/grammars/resource/finnish/MorphoFin.gf @@ -459,7 +459,7 @@ getHarmony : Str -> Str = \u -> -- as a separate word ("auto &+ ni"), which needs unlexing. Unlexing also -- has to fix the vowel harmony in cases like "äiti &+ nsä". - suff : Str -> Str = \ni -> "&+" ++ ni ; + suff : Str -> Str = \ni -> BIND ++ ni ; possSuffix : Number => Person => Str = \\n,p => suff (case of { diff --git a/src/GF.hs b/src/GF.hs index bdc9a9fea..3144e8a18 100644 --- a/src/GF.hs +++ b/src/GF.hs @@ -23,12 +23,13 @@ main = do xs <- getArgs let (os,fs) = getOptions "-" xs java = oElem forJava os + isNew = oElem newParser os ---- temporary hack to have two parallel GUIs putStrLn $ if java then encodeUTF8 welcomeMsg else welcomeMsg st <- case fs of _ -> useIOE emptyShellState $ foldM (shellStateFromFiles os) emptyShellState fs --- _ -> return emptyShellState if null fs then return () else putCPU - if java then sessionLineJ st else do + if java then sessionLineJ isNew st else do gfInteract (initHState st) return () diff --git a/src/GF/Canon/CMacros.hs b/src/GF/Canon/CMacros.hs index d32f639b4..a5a079b4e 100644 --- a/src/GF/Canon/CMacros.hs +++ b/src/GF/Canon/CMacros.hs @@ -41,7 +41,7 @@ markXML n i b = else ("", "") where c = "type=" ++ prt (M.valNode n) - p = "position=" ++ show i + p = "position=" ++ (show $ reverse i) -- for XML in JGF 1, use markXMLjgf :: Marker diff --git a/src/GF/Canon/ParGFC.hs b/src/GF/Canon/ParGFC.hs new file mode 100644 index 000000000..f6ccdb676 --- /dev/null +++ b/src/GF/Canon/ParGFC.hs @@ -0,0 +1,1966 @@ +{-# OPTIONS -fglasgow-exts -cpp #-} +-- parser produced by Happy Version 1.11 + +module ParGFC where +import AbsGFC +import LexGFC +import Ident --H +import ErrM +import GlaExts +import Array + +data HappyAbsSyn t4 t5 t6 = HappyAbsSyn +happyIn4 :: t4 -> (HappyAbsSyn t4 t5 t6) +happyIn4 x = unsafeCoerce# x +{-# INLINE happyIn4 #-} +happyOut4 :: (HappyAbsSyn t4 t5 t6) -> t4 +happyOut4 x = unsafeCoerce# x +{-# INLINE happyOut4 #-} +happyIn5 :: t5 -> (HappyAbsSyn t4 t5 t6) +happyIn5 x = unsafeCoerce# x +{-# INLINE happyIn5 #-} +happyOut5 :: (HappyAbsSyn t4 t5 t6) -> t5 +happyOut5 x = unsafeCoerce# x +{-# INLINE happyOut5 #-} +happyIn6 :: t6 -> (HappyAbsSyn t4 t5 t6) +happyIn6 x = unsafeCoerce# x +{-# INLINE happyIn6 #-} +happyOut6 :: (HappyAbsSyn t4 t5 t6) -> t6 +happyOut6 x = unsafeCoerce# x +{-# INLINE happyOut6 #-} +happyIn7 :: (Canon) -> (HappyAbsSyn t4 t5 t6) +happyIn7 x = unsafeCoerce# x +{-# INLINE happyIn7 #-} +happyOut7 :: (HappyAbsSyn t4 t5 t6) -> (Canon) +happyOut7 x = unsafeCoerce# x +{-# INLINE happyOut7 #-} +happyIn8 :: (Module) -> (HappyAbsSyn t4 t5 t6) +happyIn8 x = unsafeCoerce# x +{-# INLINE happyIn8 #-} +happyOut8 :: (HappyAbsSyn t4 t5 t6) -> (Module) +happyOut8 x = unsafeCoerce# x +{-# INLINE happyOut8 #-} +happyIn9 :: (ModType) -> (HappyAbsSyn t4 t5 t6) +happyIn9 x = unsafeCoerce# x +{-# INLINE happyIn9 #-} +happyOut9 :: (HappyAbsSyn t4 t5 t6) -> (ModType) +happyOut9 x = unsafeCoerce# x +{-# INLINE happyOut9 #-} +happyIn10 :: ([Module]) -> (HappyAbsSyn t4 t5 t6) +happyIn10 x = unsafeCoerce# x +{-# INLINE happyIn10 #-} +happyOut10 :: (HappyAbsSyn t4 t5 t6) -> ([Module]) +happyOut10 x = unsafeCoerce# x +{-# INLINE happyOut10 #-} +happyIn11 :: (Extend) -> (HappyAbsSyn t4 t5 t6) +happyIn11 x = unsafeCoerce# x +{-# INLINE happyIn11 #-} +happyOut11 :: (HappyAbsSyn t4 t5 t6) -> (Extend) +happyOut11 x = unsafeCoerce# x +{-# INLINE happyOut11 #-} +happyIn12 :: (Open) -> (HappyAbsSyn t4 t5 t6) +happyIn12 x = unsafeCoerce# x +{-# INLINE happyIn12 #-} +happyOut12 :: (HappyAbsSyn t4 t5 t6) -> (Open) +happyOut12 x = unsafeCoerce# x +{-# INLINE happyOut12 #-} +happyIn13 :: (Flag) -> (HappyAbsSyn t4 t5 t6) +happyIn13 x = unsafeCoerce# x +{-# INLINE happyIn13 #-} +happyOut13 :: (HappyAbsSyn t4 t5 t6) -> (Flag) +happyOut13 x = unsafeCoerce# x +{-# INLINE happyOut13 #-} +happyIn14 :: (Def) -> (HappyAbsSyn t4 t5 t6) +happyIn14 x = unsafeCoerce# x +{-# INLINE happyIn14 #-} +happyOut14 :: (HappyAbsSyn t4 t5 t6) -> (Def) +happyOut14 x = unsafeCoerce# x +{-# INLINE happyOut14 #-} +happyIn15 :: (ParDef) -> (HappyAbsSyn t4 t5 t6) +happyIn15 x = unsafeCoerce# x +{-# INLINE happyIn15 #-} +happyOut15 :: (HappyAbsSyn t4 t5 t6) -> (ParDef) +happyOut15 x = unsafeCoerce# x +{-# INLINE happyOut15 #-} +happyIn16 :: (Status) -> (HappyAbsSyn t4 t5 t6) +happyIn16 x = unsafeCoerce# x +{-# INLINE happyIn16 #-} +happyOut16 :: (HappyAbsSyn t4 t5 t6) -> (Status) +happyOut16 x = unsafeCoerce# x +{-# INLINE happyOut16 #-} +happyIn17 :: (CIdent) -> (HappyAbsSyn t4 t5 t6) +happyIn17 x = unsafeCoerce# x +{-# INLINE happyIn17 #-} +happyOut17 :: (HappyAbsSyn t4 t5 t6) -> (CIdent) +happyOut17 x = unsafeCoerce# x +{-# INLINE happyOut17 #-} +happyIn18 :: (Exp) -> (HappyAbsSyn t4 t5 t6) +happyIn18 x = unsafeCoerce# x +{-# INLINE happyIn18 #-} +happyOut18 :: (HappyAbsSyn t4 t5 t6) -> (Exp) +happyOut18 x = unsafeCoerce# x +{-# INLINE happyOut18 #-} +happyIn19 :: (Exp) -> (HappyAbsSyn t4 t5 t6) +happyIn19 x = unsafeCoerce# x +{-# INLINE happyIn19 #-} +happyOut19 :: (HappyAbsSyn t4 t5 t6) -> (Exp) +happyOut19 x = unsafeCoerce# x +{-# INLINE happyOut19 #-} +happyIn20 :: (Exp) -> (HappyAbsSyn t4 t5 t6) +happyIn20 x = unsafeCoerce# x +{-# INLINE happyIn20 #-} +happyOut20 :: (HappyAbsSyn t4 t5 t6) -> (Exp) +happyOut20 x = unsafeCoerce# x +{-# INLINE happyOut20 #-} +happyIn21 :: (Sort) -> (HappyAbsSyn t4 t5 t6) +happyIn21 x = unsafeCoerce# x +{-# INLINE happyIn21 #-} +happyOut21 :: (HappyAbsSyn t4 t5 t6) -> (Sort) +happyOut21 x = unsafeCoerce# x +{-# INLINE happyOut21 #-} +happyIn22 :: (Equation) -> (HappyAbsSyn t4 t5 t6) +happyIn22 x = unsafeCoerce# x +{-# INLINE happyIn22 #-} +happyOut22 :: (HappyAbsSyn t4 t5 t6) -> (Equation) +happyOut22 x = unsafeCoerce# x +{-# INLINE happyOut22 #-} +happyIn23 :: (APatt) -> (HappyAbsSyn t4 t5 t6) +happyIn23 x = unsafeCoerce# x +{-# INLINE happyIn23 #-} +happyOut23 :: (HappyAbsSyn t4 t5 t6) -> (APatt) +happyOut23 x = unsafeCoerce# x +{-# INLINE happyOut23 #-} +happyIn24 :: ([Decl]) -> (HappyAbsSyn t4 t5 t6) +happyIn24 x = unsafeCoerce# x +{-# INLINE happyIn24 #-} +happyOut24 :: (HappyAbsSyn t4 t5 t6) -> ([Decl]) +happyOut24 x = unsafeCoerce# x +{-# INLINE happyOut24 #-} +happyIn25 :: ([APatt]) -> (HappyAbsSyn t4 t5 t6) +happyIn25 x = unsafeCoerce# x +{-# INLINE happyIn25 #-} +happyOut25 :: (HappyAbsSyn t4 t5 t6) -> ([APatt]) +happyOut25 x = unsafeCoerce# x +{-# INLINE happyOut25 #-} +happyIn26 :: ([Equation]) -> (HappyAbsSyn t4 t5 t6) +happyIn26 x = unsafeCoerce# x +{-# INLINE happyIn26 #-} +happyOut26 :: (HappyAbsSyn t4 t5 t6) -> ([Equation]) +happyOut26 x = unsafeCoerce# x +{-# INLINE happyOut26 #-} +happyIn27 :: (Atom) -> (HappyAbsSyn t4 t5 t6) +happyIn27 x = unsafeCoerce# x +{-# INLINE happyIn27 #-} +happyOut27 :: (HappyAbsSyn t4 t5 t6) -> (Atom) +happyOut27 x = unsafeCoerce# x +{-# INLINE happyOut27 #-} +happyIn28 :: (Decl) -> (HappyAbsSyn t4 t5 t6) +happyIn28 x = unsafeCoerce# x +{-# INLINE happyIn28 #-} +happyOut28 :: (HappyAbsSyn t4 t5 t6) -> (Decl) +happyOut28 x = unsafeCoerce# x +{-# INLINE happyOut28 #-} +happyIn29 :: (CType) -> (HappyAbsSyn t4 t5 t6) +happyIn29 x = unsafeCoerce# x +{-# INLINE happyIn29 #-} +happyOut29 :: (HappyAbsSyn t4 t5 t6) -> (CType) +happyOut29 x = unsafeCoerce# x +{-# INLINE happyOut29 #-} +happyIn30 :: (Labelling) -> (HappyAbsSyn t4 t5 t6) +happyIn30 x = unsafeCoerce# x +{-# INLINE happyIn30 #-} +happyOut30 :: (HappyAbsSyn t4 t5 t6) -> (Labelling) +happyOut30 x = unsafeCoerce# x +{-# INLINE happyOut30 #-} +happyIn31 :: (Term) -> (HappyAbsSyn t4 t5 t6) +happyIn31 x = unsafeCoerce# x +{-# INLINE happyIn31 #-} +happyOut31 :: (HappyAbsSyn t4 t5 t6) -> (Term) +happyOut31 x = unsafeCoerce# x +{-# INLINE happyOut31 #-} +happyIn32 :: (Term) -> (HappyAbsSyn t4 t5 t6) +happyIn32 x = unsafeCoerce# x +{-# INLINE happyIn32 #-} +happyOut32 :: (HappyAbsSyn t4 t5 t6) -> (Term) +happyOut32 x = unsafeCoerce# x +{-# INLINE happyOut32 #-} +happyIn33 :: (Term) -> (HappyAbsSyn t4 t5 t6) +happyIn33 x = unsafeCoerce# x +{-# INLINE happyIn33 #-} +happyOut33 :: (HappyAbsSyn t4 t5 t6) -> (Term) +happyOut33 x = unsafeCoerce# x +{-# INLINE happyOut33 #-} +happyIn34 :: (Tokn) -> (HappyAbsSyn t4 t5 t6) +happyIn34 x = unsafeCoerce# x +{-# INLINE happyIn34 #-} +happyOut34 :: (HappyAbsSyn t4 t5 t6) -> (Tokn) +happyOut34 x = unsafeCoerce# x +{-# INLINE happyOut34 #-} +happyIn35 :: (Assign) -> (HappyAbsSyn t4 t5 t6) +happyIn35 x = unsafeCoerce# x +{-# INLINE happyIn35 #-} +happyOut35 :: (HappyAbsSyn t4 t5 t6) -> (Assign) +happyOut35 x = unsafeCoerce# x +{-# INLINE happyOut35 #-} +happyIn36 :: (Case) -> (HappyAbsSyn t4 t5 t6) +happyIn36 x = unsafeCoerce# x +{-# INLINE happyIn36 #-} +happyOut36 :: (HappyAbsSyn t4 t5 t6) -> (Case) +happyOut36 x = unsafeCoerce# x +{-# INLINE happyOut36 #-} +happyIn37 :: (Variant) -> (HappyAbsSyn t4 t5 t6) +happyIn37 x = unsafeCoerce# x +{-# INLINE happyIn37 #-} +happyOut37 :: (HappyAbsSyn t4 t5 t6) -> (Variant) +happyOut37 x = unsafeCoerce# x +{-# INLINE happyOut37 #-} +happyIn38 :: (Label) -> (HappyAbsSyn t4 t5 t6) +happyIn38 x = unsafeCoerce# x +{-# INLINE happyIn38 #-} +happyOut38 :: (HappyAbsSyn t4 t5 t6) -> (Label) +happyOut38 x = unsafeCoerce# x +{-# INLINE happyOut38 #-} +happyIn39 :: (ArgVar) -> (HappyAbsSyn t4 t5 t6) +happyIn39 x = unsafeCoerce# x +{-# INLINE happyIn39 #-} +happyOut39 :: (HappyAbsSyn t4 t5 t6) -> (ArgVar) +happyOut39 x = unsafeCoerce# x +{-# INLINE happyOut39 #-} +happyIn40 :: (Patt) -> (HappyAbsSyn t4 t5 t6) +happyIn40 x = unsafeCoerce# x +{-# INLINE happyIn40 #-} +happyOut40 :: (HappyAbsSyn t4 t5 t6) -> (Patt) +happyOut40 x = unsafeCoerce# x +{-# INLINE happyOut40 #-} +happyIn41 :: (PattAssign) -> (HappyAbsSyn t4 t5 t6) +happyIn41 x = unsafeCoerce# x +{-# INLINE happyIn41 #-} +happyOut41 :: (HappyAbsSyn t4 t5 t6) -> (PattAssign) +happyOut41 x = unsafeCoerce# x +{-# INLINE happyOut41 #-} +happyIn42 :: ([Flag]) -> (HappyAbsSyn t4 t5 t6) +happyIn42 x = unsafeCoerce# x +{-# INLINE happyIn42 #-} +happyOut42 :: (HappyAbsSyn t4 t5 t6) -> ([Flag]) +happyOut42 x = unsafeCoerce# x +{-# INLINE happyOut42 #-} +happyIn43 :: ([Def]) -> (HappyAbsSyn t4 t5 t6) +happyIn43 x = unsafeCoerce# x +{-# INLINE happyIn43 #-} +happyOut43 :: (HappyAbsSyn t4 t5 t6) -> ([Def]) +happyOut43 x = unsafeCoerce# x +{-# INLINE happyOut43 #-} +happyIn44 :: ([ParDef]) -> (HappyAbsSyn t4 t5 t6) +happyIn44 x = unsafeCoerce# x +{-# INLINE happyIn44 #-} +happyOut44 :: (HappyAbsSyn t4 t5 t6) -> ([ParDef]) +happyOut44 x = unsafeCoerce# x +{-# INLINE happyOut44 #-} +happyIn45 :: ([CType]) -> (HappyAbsSyn t4 t5 t6) +happyIn45 x = unsafeCoerce# x +{-# INLINE happyIn45 #-} +happyOut45 :: (HappyAbsSyn t4 t5 t6) -> ([CType]) +happyOut45 x = unsafeCoerce# x +{-# INLINE happyOut45 #-} +happyIn46 :: ([CIdent]) -> (HappyAbsSyn t4 t5 t6) +happyIn46 x = unsafeCoerce# x +{-# INLINE happyIn46 #-} +happyOut46 :: (HappyAbsSyn t4 t5 t6) -> ([CIdent]) +happyOut46 x = unsafeCoerce# x +{-# INLINE happyOut46 #-} +happyIn47 :: ([Assign]) -> (HappyAbsSyn t4 t5 t6) +happyIn47 x = unsafeCoerce# x +{-# INLINE happyIn47 #-} +happyOut47 :: (HappyAbsSyn t4 t5 t6) -> ([Assign]) +happyOut47 x = unsafeCoerce# x +{-# INLINE happyOut47 #-} +happyIn48 :: ([ArgVar]) -> (HappyAbsSyn t4 t5 t6) +happyIn48 x = unsafeCoerce# x +{-# INLINE happyIn48 #-} +happyOut48 :: (HappyAbsSyn t4 t5 t6) -> ([ArgVar]) +happyOut48 x = unsafeCoerce# x +{-# INLINE happyOut48 #-} +happyIn49 :: ([Labelling]) -> (HappyAbsSyn t4 t5 t6) +happyIn49 x = unsafeCoerce# x +{-# INLINE happyIn49 #-} +happyOut49 :: (HappyAbsSyn t4 t5 t6) -> ([Labelling]) +happyOut49 x = unsafeCoerce# x +{-# INLINE happyOut49 #-} +happyIn50 :: ([Case]) -> (HappyAbsSyn t4 t5 t6) +happyIn50 x = unsafeCoerce# x +{-# INLINE happyIn50 #-} +happyOut50 :: (HappyAbsSyn t4 t5 t6) -> ([Case]) +happyOut50 x = unsafeCoerce# x +{-# INLINE happyOut50 #-} +happyIn51 :: ([Term]) -> (HappyAbsSyn t4 t5 t6) +happyIn51 x = unsafeCoerce# x +{-# INLINE happyIn51 #-} +happyOut51 :: (HappyAbsSyn t4 t5 t6) -> ([Term]) +happyOut51 x = unsafeCoerce# x +{-# INLINE happyOut51 #-} +happyIn52 :: ([String]) -> (HappyAbsSyn t4 t5 t6) +happyIn52 x = unsafeCoerce# x +{-# INLINE happyIn52 #-} +happyOut52 :: (HappyAbsSyn t4 t5 t6) -> ([String]) +happyOut52 x = unsafeCoerce# x +{-# INLINE happyOut52 #-} +happyIn53 :: ([Variant]) -> (HappyAbsSyn t4 t5 t6) +happyIn53 x = unsafeCoerce# x +{-# INLINE happyIn53 #-} +happyOut53 :: (HappyAbsSyn t4 t5 t6) -> ([Variant]) +happyOut53 x = unsafeCoerce# x +{-# INLINE happyOut53 #-} +happyIn54 :: ([PattAssign]) -> (HappyAbsSyn t4 t5 t6) +happyIn54 x = unsafeCoerce# x +{-# INLINE happyIn54 #-} +happyOut54 :: (HappyAbsSyn t4 t5 t6) -> ([PattAssign]) +happyOut54 x = unsafeCoerce# x +{-# INLINE happyOut54 #-} +happyIn55 :: ([Patt]) -> (HappyAbsSyn t4 t5 t6) +happyIn55 x = unsafeCoerce# x +{-# INLINE happyIn55 #-} +happyOut55 :: (HappyAbsSyn t4 t5 t6) -> ([Patt]) +happyOut55 x = unsafeCoerce# x +{-# INLINE happyOut55 #-} +happyIn56 :: ([Ident]) -> (HappyAbsSyn t4 t5 t6) +happyIn56 x = unsafeCoerce# x +{-# INLINE happyIn56 #-} +happyOut56 :: (HappyAbsSyn t4 t5 t6) -> ([Ident]) +happyOut56 x = unsafeCoerce# x +{-# INLINE happyOut56 #-} +happyInTok :: Token -> (HappyAbsSyn t4 t5 t6) +happyInTok x = unsafeCoerce# x +{-# INLINE happyInTok #-} +happyOutTok :: (HappyAbsSyn t4 t5 t6) -> Token +happyOutTok x = unsafeCoerce# x +{-# INLINE happyOutTok #-} + +happyActOffsets :: Addr +happyActOffsets = A# "\x00\x00\x01\x02\x00\x00\xff\x01\x18\x01\x00\x00\x1e\x02\xfe\x01\xfe\x01\xfe\x01\xfe\x01\x0f\x02\x00\x00\xfd\x01\x00\x00\xfc\x01\x1b\x02\xfb\x01\xf1\x01\xf1\x01\x19\x02\x00\x00\x1a\x02\xee\x01\x00\x00\x00\x02\xf6\x01\x00\x00\xe9\x01\x00\x00\xfa\x01\x00\x00\xe8\x01\x00\x00\x0d\x02\x6d\x00\xe6\x01\x11\x02\xf4\x01\x08\x02\x00\x00\xe1\x01\xe1\x01\xe1\x01\xe1\x01\xe1\x01\xe1\x01\xe1\x01\x00\x00\x0e\x02\x0c\x02\x0a\x02\x09\x02\x05\x02\x04\x02\xf9\x01\x00\x00\xe4\x01\x00\x00\xdc\x01\x00\x00\xdc\x01\xdc\x01\x0d\x00\xdc\x01\x5f\x00\x5f\x00\xdc\x01\x0d\x00\xf8\x01\x00\x00\x00\x00\x00\x00\x8c\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xd2\x01\x0d\x00\xd2\x01\xd2\x01\xce\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xe0\x01\x00\x00\x00\x00\xf7\x01\x51\x00\x5f\x00\x00\x00\xf3\x01\xf2\x01\xf0\x01\xec\x01\xdf\x01\xdd\x01\x00\x00\xb6\x01\xe3\x01\x0d\x00\x0d\x00\xd9\x01\x14\x00\xcf\x01\x00\x00\xd8\x01\xda\x01\xd1\x01\xa4\x01\x14\x00\xb0\x01\x5f\x00\x00\x00\x00\x00\xc3\x01\xdd\x00\xc5\x01\xcc\x01\xcd\x01\x00\x00\x0d\x00\x9e\x01\x00\x00\xba\x01\x73\x00\x00\x00\x0d\x00\x00\x00\x0d\x00\x00\x00\x00\x00\x00\x00\xfc\xff\x00\x00\x00\x00\xc1\x01\xbb\x01\xad\x01\x00\x00\x00\x00\x51\x00\x3f\x00\x14\x00\x92\x01\x92\x01\x5f\x00\xbe\x01\x00\x00\x00\x00\x5f\x00\x51\x00\x5f\x00\xa4\x00\x90\x01\x00\x00\x00\x00\x00\x00\x00\x00\x90\x01\xf1\x00\xa3\x01\xb9\x01\x14\x00\x14\x00\xae\x01\x00\x00\x00\x00\x00\x00\xb8\x01\x00\x00\x00\x00\xc7\x00\x00\x00\x00\x00\xa8\x01\xaf\x01\xac\x01\x4e\x00\x51\x00\x7d\x01\x7d\x01\xa0\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0d\x00\x7c\x01\x00\x00\x00\x00\x00\x00\x00\x00\xa7\x01\x91\x01\x00\x00\x00\x00\x00\x00\x00\x00\x14\x00\x51\x00\x09\x00\x00\x00\x47\x00\xa6\x01\x43\x00\x00\x00\x8b\x01\x88\x01\x14\x00\x6d\x01\x00\x00\x00\x00\x84\x00\x00\x00\x00\x00\x95\x01\x97\x01\x57\x00\x00\x00\x00\x00\x6f\x00\x00\x00\x86\x01\x68\x01\x0d\x00\x99\x00\x00\x00\x00\x00\x00\x00\x83\x01\x1d\x00\x94\x01\x00\x00\x00\x00\x51\x00\x67\x01\x00\x00\x14\x00\x00\x00\x8a\x01\x14\x00\x76\x01\x00\x00\x76\x01\x00\x00\x89\x01\x80\x01\x85\x01\x7f\x01\x00\x00\xf2\xff\x00\x00\x55\x01\x00\x00\x00\x00\x51\x00\x0c\x00\x22\x00\x00\x00\x00\x00\x00\x00\x00\x00"# + +happyGotoOffsets :: Addr +happyGotoOffsets = A# "\x6e\x00\x00\x00\x00\x00\x00\x00\xe6\x00\x00\x00\x00\x00\x84\x01\x7b\x01\x7a\x01\x77\x01\x00\x00\x00\x00\x00\x00\x00\x00\xd6\x00\x00\x00\x6e\x01\x75\x01\x73\x01\x00\x00\x00\x00\x00\x00\x02\x00\x00\x00\x00\x00\x00\x00\x4c\x01\x64\x01\x00\x00\xfa\xff\x00\x00\x01\x00\x00\x00\x00\x00\xdf\x00\x61\x01\x00\x00\x47\x01\x00\x00\x00\x00\x50\x01\x49\x01\x42\x01\x3d\x01\x3c\x01\x31\x01\x25\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x1c\x01\x00\x00\x14\x01\x22\x01\xed\x01\xd3\x00\x3b\x01\x2b\x01\x5c\x00\xdb\x01\x00\x00\x00\x00\x00\x00\x00\x00\xf5\x01\x00\x00\x00\x00\x00\x00\x00\x00\xfd\x00\x12\x01\xc9\x01\xb4\x00\x0e\x01\x0f\x01\x00\x00\x00\x00\x00\x00\x00\x00\xe2\x00\x00\x00\x00\x00\x00\x00\x00\x00\x4c\x00\x02\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x1a\x01\x00\x00\xb7\x01\xa5\x01\x00\x00\x0c\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x01\x03\x01\x0a\x00\xd9\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xf7\xff\x00\x00\x93\x01\x05\x01\x00\x00\x00\x00\xaf\x00\x00\x00\x81\x01\x00\x00\x6f\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x75\x00\x00\x00\xfa\x00\xab\x00\xfc\x00\xd8\x00\x00\x00\x00\x00\x00\x00\xbe\x00\x12\x00\xa1\x00\x00\x00\x60\x00\x00\x00\x00\x00\xcf\x00\x00\x00\x7c\x00\x00\x00\x00\x00\x00\x00\xe3\x00\x23\x01\x00\x00\x00\x00\x00\x00\xc4\x00\x00\x00\x00\x00\xb3\x00\x00\x00\x00\x00\x90\x00\x00\x00\x00\x00\x00\x00\x33\x01\x04\x00\xc1\x00\xb5\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x5d\x01\x7b\x00\x00\x00\x00\x00\xa0\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xda\x00\x68\x00\x8f\x00\x00\x00\x2c\x01\x35\x01\x2c\x01\x00\x00\x00\x00\x00\x00\xd1\x00\x41\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x4b\x00\x00\x00\x00\x00\x48\x01\x00\x00\x00\x00\x80\x00\x4b\x01\xaf\x00\x00\x00\x00\x00\x00\x00\x00\x00\x5a\x00\x00\x00\x00\x00\x00\x00\x06\x00\x10\x00\x00\x00\xb2\x00\x00\x00\x32\x01\xa9\x00\x00\x00\x00\x00\x00\x00\xde\xff\x00\x00\x00\x00\x00\x00\x00\x00\xdd\xff\x36\x01\x00\x00\x30\x00\x00\x00\x00\x00\x05\x00\x48\x00\x3a\x00\x00\x00\x00\x00\x00\x00\x00\x00"# + +happyDefActions :: Addr +happyDefActions = A# "\xf5\xff\x00\x00\xfe\xff\x00\x00\xfb\xff\xf4\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xf7\xff\x00\x00\xf9\xff\xf2\xff\x00\x00\xf1\xff\x00\x00\x00\x00\x00\x00\xf8\xff\x00\x00\x7e\xff\xf3\xff\x7d\xff\x00\x00\xa1\xff\x00\x00\xf6\xff\x9f\xff\xf0\xff\x7e\xff\x7c\xff\x00\x00\x00\x00\x00\x00\x00\x00\xe4\xff\x00\x00\xfa\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xa0\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x9e\xff\x00\x00\xe5\xff\x00\x00\xef\xff\x00\x00\xd2\xff\x00\x00\x00\x00\x00\x00\x00\x00\x9d\xff\x00\x00\x00\x00\xc7\xff\xc6\xff\xcb\xff\xdd\xff\xec\xff\xe1\xff\xc5\xff\xdc\xff\xcd\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xd9\xff\xdb\xff\xfd\xff\xfc\xff\x9a\xff\x9c\xff\xeb\xff\xc1\xff\x00\x00\x90\xff\x00\x00\xc0\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xd1\xff\xe7\xff\xd2\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xaa\xff\x8f\xff\x00\x00\x00\x00\x00\x00\x00\x00\x9d\xff\xe6\xff\xc8\xff\xc9\xff\x00\x00\x00\x00\x00\x00\x00\x00\xcf\xff\xe2\xff\x00\x00\x00\x00\xe3\xff\x00\x00\x00\x00\xde\xff\x00\x00\xda\xff\x00\x00\xca\xff\x99\xff\x9b\xff\x00\x00\xaf\xff\xbd\xff\xb2\xff\xb0\xff\xea\xff\xb9\xff\xbe\xff\x96\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xa9\xff\xc3\xff\x00\x00\x90\xff\x00\x00\x00\x00\x93\xff\xed\xff\xc4\xff\x98\xff\xd0\xff\xee\xff\x00\x00\x92\xff\x00\x00\x00\x00\x00\x00\x00\x00\x8e\xff\xbf\xff\x8a\xff\x00\x00\xbb\xff\x8a\xff\x00\x00\xb8\xff\x88\xff\x95\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xdf\xff\xd6\xff\xd5\xff\xd4\xff\xce\xff\x00\x00\x00\x00\xd3\xff\xcc\xff\xcf\xff\xd8\xff\x00\x00\x00\x00\xa8\xff\xb6\xff\xb4\xff\xba\xff\x00\x00\x96\xff\x00\x00\xb7\xff\x00\x00\x80\xff\x00\x00\xc2\xff\xb1\xff\xe9\xff\x00\x00\x93\xff\x97\xff\x91\xff\x00\x00\x89\xff\xb3\xff\x8c\xff\x00\x00\x00\x00\xbc\xff\x87\xff\x86\xff\x94\xff\xad\xff\x00\x00\x00\x00\x00\x00\xd7\xff\xe0\xff\xa7\xff\x85\xff\x00\x00\x00\x00\xa5\xff\x7f\xff\x83\xff\x00\x00\xa4\xff\x00\x00\xb5\xff\x80\xff\x00\x00\xe8\xff\x8b\xff\xac\xff\x80\xff\x00\x00\x82\xff\x00\x00\x00\x00\x88\xff\x86\xff\x84\xff\xab\xff\xae\xff\xa3\xff\x83\xff\x00\x00\x00\x00\xa6\xff\xa2\xff\x81\xff"# + +happyCheck :: Addr +happyCheck = A# "\xff\xff\x00\x00\x00\x00\x09\x00\x00\x00\x00\x00\x00\x00\x0b\x00\x16\x00\x12\x00\x00\x00\x02\x00\x15\x00\x30\x00\x02\x00\x02\x00\x00\x00\x33\x00\x00\x00\x17\x00\x18\x00\x0b\x00\x02\x00\x0a\x00\x0c\x00\x0c\x00\x0e\x00\x07\x00\x0f\x00\x0d\x00\x11\x00\x12\x00\x0c\x00\x27\x00\x30\x00\x0f\x00\x02\x00\x11\x00\x22\x00\x22\x00\x22\x00\x1c\x00\x25\x00\x25\x00\x1a\x00\x20\x00\x0c\x00\x0d\x00\x0e\x00\x01\x00\x28\x00\x16\x00\x22\x00\x34\x00\x34\x00\x32\x00\x32\x00\x30\x00\x00\x00\x2f\x00\x2f\x00\x30\x00\x31\x00\x2d\x00\x2c\x00\x00\x00\x2e\x00\x2f\x00\x30\x00\x02\x00\x03\x00\x08\x00\x00\x00\x02\x00\x07\x00\x00\x00\x00\x00\x30\x00\x07\x00\x0c\x00\x02\x00\x2f\x00\x0f\x00\x0c\x00\x11\x00\x07\x00\x0f\x00\x10\x00\x11\x00\x02\x00\x0c\x00\x01\x00\x00\x00\x0f\x00\x24\x00\x11\x00\x00\x00\x02\x00\x11\x00\x0c\x00\x23\x00\x0e\x00\x1a\x00\x0b\x00\x00\x00\x2a\x00\x13\x00\x0c\x00\x24\x00\x2c\x00\x22\x00\x24\x00\x03\x00\x03\x00\x2f\x00\x30\x00\x06\x00\x00\x00\x2f\x00\x30\x00\x05\x00\x2d\x00\x1b\x00\x00\x00\x00\x00\x2f\x00\x30\x00\x0c\x00\x2f\x00\x0e\x00\x02\x00\x23\x00\x28\x00\x16\x00\x2f\x00\x1f\x00\x0d\x00\x0d\x00\x22\x00\x1e\x00\x2c\x00\x09\x00\x2f\x00\x22\x00\x01\x00\x24\x00\x25\x00\x2b\x00\x1f\x00\x28\x00\x29\x00\x22\x00\x0c\x00\x15\x00\x2d\x00\x0f\x00\x2f\x00\x11\x00\x12\x00\x30\x00\x2b\x00\x00\x00\x2f\x00\x30\x00\x31\x00\x0c\x00\x0d\x00\x0e\x00\x1c\x00\x00\x00\x01\x00\x00\x00\x20\x00\x09\x00\x0d\x00\x00\x00\x01\x00\x02\x00\x00\x00\x01\x00\x00\x00\x15\x00\x0d\x00\x02\x00\x0d\x00\x15\x00\x19\x00\x2f\x00\x30\x00\x31\x00\x00\x00\x0d\x00\x30\x00\x0d\x00\x13\x00\x02\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x2f\x00\x30\x00\x31\x00\x0d\x00\x23\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x00\x00\x01\x00\x00\x00\x0d\x00\x23\x00\x00\x00\x19\x00\x00\x00\x00\x00\x00\x00\x01\x00\x15\x00\x07\x00\x0d\x00\x00\x00\x0d\x00\x04\x00\x2f\x00\x00\x00\x01\x00\x0d\x00\x0d\x00\x0d\x00\x0b\x00\x0a\x00\x04\x00\x05\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x0d\x00\x19\x00\x19\x00\x2f\x00\x23\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x2a\x00\x00\x00\x01\x00\x00\x00\x23\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x00\x00\x00\x00\x01\x00\x00\x00\x23\x00\x0d\x00\x17\x00\x18\x00\x02\x00\x29\x00\x00\x00\x01\x00\x00\x00\x0d\x00\x0d\x00\x02\x00\x00\x00\x16\x00\x00\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x0d\x00\x00\x00\x19\x00\x00\x00\x23\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x00\x00\x00\x00\x01\x00\x00\x00\x23\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x00\x00\x00\x00\x01\x00\x14\x00\x23\x00\x0d\x00\x00\x00\x18\x00\x00\x00\x01\x00\x1d\x00\x14\x00\x1f\x00\x0d\x00\x0d\x00\x18\x00\x00\x00\x00\x00\x00\x00\x1b\x00\x1c\x00\x0d\x00\x1e\x00\x00\x00\x2b\x00\x19\x00\x2d\x00\x23\x00\x1b\x00\x0d\x00\x00\x00\x1e\x00\x00\x00\x01\x00\x02\x00\x1b\x00\x23\x00\x00\x00\x1e\x00\x20\x00\x0c\x00\x19\x00\x20\x00\x23\x00\x21\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x2e\x00\x00\x00\x17\x00\x2e\x00\x00\x00\x33\x00\x30\x00\x31\x00\x33\x00\x21\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x26\x00\x00\x00\x17\x00\x00\x00\x08\x00\x00\x00\x30\x00\x31\x00\x00\x00\x00\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x00\x00\x30\x00\x17\x00\x08\x00\x03\x00\x09\x00\x01\x00\x15\x00\x09\x00\x03\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x2f\x00\x03\x00\x17\x00\x31\x00\x03\x00\x15\x00\x2f\x00\x15\x00\x09\x00\x14\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x17\x00\x03\x00\x17\x00\x2f\x00\x05\x00\x0d\x00\x31\x00\x03\x00\x01\x00\x09\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x02\x00\x0d\x00\x17\x00\x1a\x00\x05\x00\x2f\x00\x02\x00\x2f\x00\x15\x00\x09\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x0b\x00\x2f\x00\x17\x00\x14\x00\x03\x00\x05\x00\x0d\x00\x10\x00\x03\x00\x31\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x04\x00\x2f\x00\x17\x00\x09\x00\x13\x00\x0a\x00\x01\x00\x2f\x00\x09\x00\x08\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x00\x00\x01\x00\x02\x00\x04\x00\x01\x00\x17\x00\x01\x00\x01\x00\x00\x00\x01\x00\x02\x00\x01\x00\x19\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x31\x00\x07\x00\x2f\x00\x0d\x00\x0b\x00\x17\x00\x10\x00\x11\x00\x23\x00\x04\x00\x04\x00\x01\x00\x2f\x00\x17\x00\x01\x00\x04\x00\x01\x00\x2f\x00\x09\x00\x01\x00\x04\x00\x20\x00\x2f\x00\x09\x00\x2f\x00\x2f\x00\x23\x00\x1a\x00\x21\x00\x02\x00\x2f\x00\x05\x00\x01\x00\x2f\x00\x06\x00\x27\x00\x26\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x2f\x00\xff\xff\x2f\x00\xff\xff\xff\xff\x2f\x00\xff\xff\x33\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff"# + +happyTable :: Addr +happyTable = A# "\x00\x00\x19\x00\x19\x00\x22\x00\x6e\x00\x6e\x00\x6e\x00\x80\x00\x88\xff\x81\x00\x58\x00\xe4\x00\x82\x00\x03\x01\xf2\x00\x4f\x00\x45\x00\x08\x01\x6e\x00\xba\x00\xbb\x00\x59\x00\x93\x00\x50\x00\xf3\x00\x51\x00\xf4\x00\x94\x00\x52\x00\xfb\x00\x53\x00\x54\x00\x95\x00\x23\x00\x88\xff\x96\x00\xf2\x00\x97\x00\xca\x00\xfc\x00\xfc\x00\x55\x00\xfd\x00\xfd\x00\x6f\x00\x56\x00\xf3\x00\x0a\x01\xf4\x00\xe2\x00\x89\x00\x01\x01\x70\x00\x21\x00\x1a\x00\x0b\x01\xfe\x00\x57\x00\xef\x00\x03\x00\x03\x00\x57\x00\x58\x00\xab\x00\x98\x00\xa5\x00\x99\x00\x03\x00\x57\x00\x93\x00\xde\x00\xb3\x00\xef\x00\x93\x00\x94\x00\xef\x00\x6e\x00\x57\x00\x94\x00\x95\x00\x93\x00\x03\x00\x96\x00\x95\x00\x97\x00\x94\x00\x96\x00\xe2\x00\x97\x00\xf2\x00\x95\x00\xe2\x00\x58\x00\x96\x00\xf0\x00\x97\x00\xa5\x00\x5e\x00\x73\x00\xf3\x00\xa6\x00\xf4\x00\x6f\x00\x59\x00\x6e\x00\xb4\x00\xf5\x00\x5f\x00\x0a\x01\xda\x00\x70\x00\xf0\x00\x29\x00\x03\x00\x03\x00\x57\x00\x04\x00\x6e\x00\x03\x00\x57\x00\xc2\x00\x71\x00\x60\x00\x45\x00\x45\x00\x03\x00\x57\x00\xc3\x00\x03\x00\xc4\x00\xeb\x00\xa6\x00\x5a\x00\x88\xff\x03\x00\xb4\x00\xc5\x00\xd9\x00\xb5\x00\x2a\x00\xa7\x00\xf8\x00\x03\x00\x2b\x00\xe2\x00\x2c\x00\x2d\x00\xe4\x00\xb4\x00\x2e\x00\x2f\x00\xb5\x00\x7f\x00\xaa\x00\x30\x00\x52\x00\x03\x00\x53\x00\x54\x00\x88\xff\xb6\x00\x45\x00\x03\x00\x57\x00\x58\x00\xc3\x00\xea\x00\xc4\x00\x55\x00\x8a\x00\x8b\x00\x45\x00\x56\x00\xa9\x00\x5b\x00\xbd\x00\xbe\x00\xbf\x00\x8a\x00\x8b\x00\x45\x00\xe8\x00\x8c\x00\xc8\x00\xb0\x00\xaa\x00\xaa\x00\x03\x00\x57\x00\x58\x00\x45\x00\x8c\x00\xcf\x00\x78\x00\xc0\x00\xc9\x00\x8d\x00\x8e\x00\xf8\x00\x90\x00\x03\x00\x57\x00\x58\x00\x5b\x00\x91\x00\x8d\x00\x8e\x00\xfa\x00\x90\x00\x8a\x00\x8b\x00\x45\x00\xd1\x00\x91\x00\x10\x00\xac\x00\x45\x00\x45\x00\x8a\x00\x8b\x00\xaa\x00\x11\x00\x8c\x00\x26\x00\x61\x00\x87\x00\xd1\x00\x8a\x00\x8b\x00\x5b\x00\x5b\x00\x8c\x00\x80\x00\x27\x00\x05\x00\x06\x00\x8d\x00\x8e\x00\xdb\x00\x90\x00\x8c\x00\xae\x00\x88\x00\xd3\x00\x91\x00\x8d\x00\x8e\x00\xe5\x00\x90\x00\xa4\x00\x8a\x00\x8b\x00\xaf\x00\x91\x00\x8d\x00\x8e\x00\xd6\x00\x90\x00\x45\x00\x8a\x00\x8b\x00\x80\x00\x91\x00\x8c\x00\xba\x00\xbb\x00\x99\x00\x75\x00\x8a\x00\x8b\x00\x77\x00\x5b\x00\x8c\x00\x76\x00\x7b\x00\x7c\x00\x66\x00\x8d\x00\x8e\x00\xb1\x00\x90\x00\x8c\x00\x63\x00\x6d\x00\x3c\x00\x91\x00\x8d\x00\x8e\x00\x8f\x00\x90\x00\x63\x00\x8a\x00\x8b\x00\x31\x00\x91\x00\x8d\x00\x8e\x00\x9e\x00\x90\x00\x45\x00\x8a\x00\x8b\x00\xa3\x00\x91\x00\x8c\x00\x32\x00\x65\x00\x8a\x00\x8b\x00\x08\x00\x64\x00\x09\x00\x5b\x00\x8c\x00\x65\x00\x45\x00\x33\x00\x34\x00\x8d\x00\xd5\x00\x8c\x00\x90\x00\x35\x00\x0a\x00\x5c\x00\x0b\x00\x91\x00\xdc\x00\x5b\x00\x36\x00\x90\x00\x45\x00\x46\x00\x47\x00\xcb\x00\x91\x00\x37\x00\x90\x00\xde\x00\x39\x00\x60\x00\xde\x00\x91\x00\xec\x00\x48\x00\x49\x00\xea\x00\x4b\x00\x4c\x00\x45\x00\x46\x00\x47\x00\xf9\x00\x25\x00\x4d\x00\xdf\x00\x1d\x00\xe0\x00\xed\x00\x02\x01\xe0\x00\xec\x00\x48\x00\x49\x00\xc6\x00\x4b\x00\x4c\x00\x45\x00\x46\x00\x47\x00\x1e\x00\x14\x00\x4d\x00\x15\x00\x16\x00\x0b\x00\xed\x00\xee\x00\x0c\x00\x0d\x00\x48\x00\x49\x00\xbb\x00\x4b\x00\x4c\x00\x45\x00\x46\x00\x47\x00\x0e\x00\x57\x00\x4d\x00\x05\x01\x06\x01\x07\x01\x08\x01\xaa\x00\x02\x01\x8d\xff\x48\x00\x49\x00\xbc\x00\x4b\x00\x4c\x00\x45\x00\x46\x00\x47\x00\x03\x00\x00\x01\x4d\x00\x58\x00\xf6\x00\xaa\x00\x03\x00\xaa\x00\xf7\x00\xb8\x00\x48\x00\x49\x00\x7a\x00\x4b\x00\x4c\x00\x45\x00\x46\x00\x47\x00\xe7\x00\x8d\xff\x4d\x00\x03\x00\xe8\x00\xc8\x00\x58\x00\xcd\x00\xce\x00\xcf\x00\x48\x00\x49\x00\xa0\x00\x4b\x00\x4c\x00\x45\x00\x46\x00\x47\x00\xd3\x00\xd5\x00\x4d\x00\xd9\x00\xd8\x00\x03\x00\xae\x00\x03\x00\xaa\x00\xc5\x00\x48\x00\x49\x00\xa1\x00\x4b\x00\x4c\x00\x79\x00\x46\x00\x47\x00\xb9\x00\x03\x00\x4d\x00\xb8\x00\x84\x00\x85\x00\x86\x00\x88\x00\x9b\x00\x58\x00\x48\x00\x49\x00\x7a\x00\x4b\x00\x4c\x00\x45\x00\x46\x00\x47\x00\x9c\x00\x03\x00\x4d\x00\x9d\x00\x9e\x00\xa0\x00\xa3\x00\x03\x00\x68\x00\x69\x00\x48\x00\x49\x00\x4a\x00\x4b\x00\x4c\x00\x45\x00\x46\x00\x47\x00\x6a\x00\x6b\x00\x4d\x00\x6c\x00\x6d\x00\x45\x00\x46\x00\x47\x00\x74\x00\x75\x00\x48\x00\x49\x00\x62\x00\x4b\x00\x4c\x00\x58\x00\x3f\x00\x03\x00\x48\x00\x80\x00\x4d\x00\x7d\x00\x4c\x00\x3e\x00\x40\x00\x41\x00\x42\x00\x03\x00\x4d\x00\x44\x00\x43\x00\x45\x00\x03\x00\x39\x00\x3c\x00\x14\x00\x3b\x00\x03\x00\x31\x00\x03\x00\x03\x00\x20\x00\x21\x00\x25\x00\x1c\x00\x03\x00\x1d\x00\x10\x00\x03\x00\x19\x00\x18\x00\x13\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x03\x00\x00\x00\x03\x00\x00\x00\x00\x00\x03\x00\x00\x00\xff\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"# + +happyReduceArr = array (1, 131) [ + (1 , happyReduce_1), + (2 , happyReduce_2), + (3 , happyReduce_3), + (4 , happyReduce_4), + (5 , happyReduce_5), + (6 , happyReduce_6), + (7 , happyReduce_7), + (8 , happyReduce_8), + (9 , happyReduce_9), + (10 , happyReduce_10), + (11 , happyReduce_11), + (12 , happyReduce_12), + (13 , happyReduce_13), + (14 , happyReduce_14), + (15 , happyReduce_15), + (16 , happyReduce_16), + (17 , happyReduce_17), + (18 , happyReduce_18), + (19 , happyReduce_19), + (20 , happyReduce_20), + (21 , happyReduce_21), + (22 , happyReduce_22), + (23 , happyReduce_23), + (24 , happyReduce_24), + (25 , happyReduce_25), + (26 , happyReduce_26), + (27 , happyReduce_27), + (28 , happyReduce_28), + (29 , happyReduce_29), + (30 , happyReduce_30), + (31 , happyReduce_31), + (32 , happyReduce_32), + (33 , happyReduce_33), + (34 , happyReduce_34), + (35 , happyReduce_35), + (36 , happyReduce_36), + (37 , happyReduce_37), + (38 , happyReduce_38), + (39 , happyReduce_39), + (40 , happyReduce_40), + (41 , happyReduce_41), + (42 , happyReduce_42), + (43 , happyReduce_43), + (44 , happyReduce_44), + (45 , happyReduce_45), + (46 , happyReduce_46), + (47 , happyReduce_47), + (48 , happyReduce_48), + (49 , happyReduce_49), + (50 , happyReduce_50), + (51 , happyReduce_51), + (52 , happyReduce_52), + (53 , happyReduce_53), + (54 , happyReduce_54), + (55 , happyReduce_55), + (56 , happyReduce_56), + (57 , happyReduce_57), + (58 , happyReduce_58), + (59 , happyReduce_59), + (60 , happyReduce_60), + (61 , happyReduce_61), + (62 , happyReduce_62), + (63 , happyReduce_63), + (64 , happyReduce_64), + (65 , happyReduce_65), + (66 , happyReduce_66), + (67 , happyReduce_67), + (68 , happyReduce_68), + (69 , happyReduce_69), + (70 , happyReduce_70), + (71 , happyReduce_71), + (72 , happyReduce_72), + (73 , happyReduce_73), + (74 , happyReduce_74), + (75 , happyReduce_75), + (76 , happyReduce_76), + (77 , happyReduce_77), + (78 , happyReduce_78), + (79 , happyReduce_79), + (80 , happyReduce_80), + (81 , happyReduce_81), + (82 , happyReduce_82), + (83 , happyReduce_83), + (84 , happyReduce_84), + (85 , happyReduce_85), + (86 , happyReduce_86), + (87 , happyReduce_87), + (88 , happyReduce_88), + (89 , happyReduce_89), + (90 , happyReduce_90), + (91 , happyReduce_91), + (92 , happyReduce_92), + (93 , happyReduce_93), + (94 , happyReduce_94), + (95 , happyReduce_95), + (96 , happyReduce_96), + (97 , happyReduce_97), + (98 , happyReduce_98), + (99 , happyReduce_99), + (100 , happyReduce_100), + (101 , happyReduce_101), + (102 , happyReduce_102), + (103 , happyReduce_103), + (104 , happyReduce_104), + (105 , happyReduce_105), + (106 , happyReduce_106), + (107 , happyReduce_107), + (108 , happyReduce_108), + (109 , happyReduce_109), + (110 , happyReduce_110), + (111 , happyReduce_111), + (112 , happyReduce_112), + (113 , happyReduce_113), + (114 , happyReduce_114), + (115 , happyReduce_115), + (116 , happyReduce_116), + (117 , happyReduce_117), + (118 , happyReduce_118), + (119 , happyReduce_119), + (120 , happyReduce_120), + (121 , happyReduce_121), + (122 , happyReduce_122), + (123 , happyReduce_123), + (124 , happyReduce_124), + (125 , happyReduce_125), + (126 , happyReduce_126), + (127 , happyReduce_127), + (128 , happyReduce_128), + (129 , happyReduce_129), + (130 , happyReduce_130), + (131 , happyReduce_131) + ] + +happy_n_terms = 52 :: Int +happy_n_nonterms = 53 :: Int + +happyReduce_1 = happySpecReduce_1 0# happyReduction_1 +happyReduction_1 happy_x_1 + = case happyOutTok happy_x_1 of { (PT _ (TV happy_var_1)) -> + happyIn4 + (identC happy_var_1 --H + )} + +happyReduce_2 = happySpecReduce_1 1# happyReduction_2 +happyReduction_2 happy_x_1 + = case happyOutTok happy_x_1 of { (PT _ (TL happy_var_1)) -> + happyIn5 + (happy_var_1 + )} + +happyReduce_3 = happySpecReduce_1 2# happyReduction_3 +happyReduction_3 happy_x_1 + = case happyOutTok happy_x_1 of { (PT _ (TI happy_var_1)) -> + happyIn6 + ((read happy_var_1) :: Integer + )} + +happyReduce_4 = happySpecReduce_1 3# happyReduction_4 +happyReduction_4 happy_x_1 + = case happyOut10 happy_x_1 of { happy_var_1 -> + happyIn7 + (Gr (reverse happy_var_1) + )} + +happyReduce_5 = happyReduce 8# 4# happyReduction_5 +happyReduction_5 (happy_x_8 `HappyStk` + 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 happyOut9 happy_x_1 of { happy_var_1 -> + case happyOut11 happy_x_3 of { happy_var_3 -> + case happyOut12 happy_x_4 of { happy_var_4 -> + case happyOut42 happy_x_6 of { happy_var_6 -> + case happyOut43 happy_x_7 of { happy_var_7 -> + happyIn8 + (Mod happy_var_1 happy_var_3 happy_var_4 (reverse happy_var_6) (reverse happy_var_7) + ) `HappyStk` happyRest}}}}} + +happyReduce_6 = happySpecReduce_2 5# happyReduction_6 +happyReduction_6 happy_x_2 + happy_x_1 + = case happyOut4 happy_x_2 of { happy_var_2 -> + happyIn9 + (MTAbs happy_var_2 + )} + +happyReduce_7 = happyReduce 4# 5# happyReduction_7 +happyReduction_7 (happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut4 happy_x_2 of { happy_var_2 -> + case happyOut4 happy_x_4 of { happy_var_4 -> + happyIn9 + (MTCnc happy_var_2 happy_var_4 + ) `HappyStk` happyRest}} + +happyReduce_8 = happySpecReduce_2 5# happyReduction_8 +happyReduction_8 happy_x_2 + happy_x_1 + = case happyOut4 happy_x_2 of { happy_var_2 -> + happyIn9 + (MTRes happy_var_2 + )} + +happyReduce_9 = happyReduce 6# 5# happyReduction_9 +happyReduction_9 (happy_x_6 `HappyStk` + happy_x_5 `HappyStk` + happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut4 happy_x_2 of { happy_var_2 -> + case happyOut4 happy_x_4 of { happy_var_4 -> + case happyOut4 happy_x_6 of { happy_var_6 -> + happyIn9 + (MTTrans happy_var_2 happy_var_4 happy_var_6 + ) `HappyStk` happyRest}}} + +happyReduce_10 = happySpecReduce_0 6# happyReduction_10 +happyReduction_10 = happyIn10 + ([] + ) + +happyReduce_11 = happySpecReduce_2 6# happyReduction_11 +happyReduction_11 happy_x_2 + happy_x_1 + = case happyOut10 happy_x_1 of { happy_var_1 -> + case happyOut8 happy_x_2 of { happy_var_2 -> + happyIn10 + (flip (:) happy_var_1 happy_var_2 + )}} + +happyReduce_12 = happySpecReduce_2 7# happyReduction_12 +happyReduction_12 happy_x_2 + happy_x_1 + = case happyOut4 happy_x_1 of { happy_var_1 -> + happyIn11 + (Ext happy_var_1 + )} + +happyReduce_13 = happySpecReduce_0 7# happyReduction_13 +happyReduction_13 = happyIn11 + (NoExt + ) + +happyReduce_14 = happySpecReduce_0 8# happyReduction_14 +happyReduction_14 = happyIn12 + (NoOpens + ) + +happyReduce_15 = happySpecReduce_3 8# happyReduction_15 +happyReduction_15 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut56 happy_x_2 of { happy_var_2 -> + happyIn12 + (Opens happy_var_2 + )} + +happyReduce_16 = happyReduce 4# 9# happyReduction_16 +happyReduction_16 (happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut4 happy_x_2 of { happy_var_2 -> + case happyOut4 happy_x_4 of { happy_var_4 -> + happyIn13 + (Flg happy_var_2 happy_var_4 + ) `HappyStk` happyRest}} + +happyReduce_17 = happyReduce 7# 10# happyReduction_17 +happyReduction_17 (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 happyOut4 happy_x_2 of { happy_var_2 -> + case happyOut24 happy_x_4 of { happy_var_4 -> + case happyOut46 happy_x_7 of { happy_var_7 -> + happyIn14 + (AbsDCat happy_var_2 happy_var_4 (reverse happy_var_7) + ) `HappyStk` happyRest}}} + +happyReduce_18 = happyReduce 6# 10# happyReduction_18 +happyReduction_18 (happy_x_6 `HappyStk` + happy_x_5 `HappyStk` + happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut4 happy_x_2 of { happy_var_2 -> + case happyOut19 happy_x_4 of { happy_var_4 -> + case happyOut19 happy_x_6 of { happy_var_6 -> + happyIn14 + (AbsDFun happy_var_2 happy_var_4 happy_var_6 + ) `HappyStk` happyRest}}} + +happyReduce_19 = happyReduce 4# 10# happyReduction_19 +happyReduction_19 (happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut4 happy_x_2 of { happy_var_2 -> + case happyOut19 happy_x_4 of { happy_var_4 -> + happyIn14 + (AbsDTrans happy_var_2 happy_var_4 + ) `HappyStk` happyRest}} + +happyReduce_20 = happyReduce 4# 10# happyReduction_20 +happyReduction_20 (happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut4 happy_x_2 of { happy_var_2 -> + case happyOut44 happy_x_4 of { happy_var_4 -> + happyIn14 + (ResDPar happy_var_2 happy_var_4 + ) `HappyStk` happyRest}} + +happyReduce_21 = happyReduce 6# 10# happyReduction_21 +happyReduction_21 (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 happyOut4 happy_x_2 of { happy_var_2 -> + case happyOut29 happy_x_4 of { happy_var_4 -> + case happyOut33 happy_x_6 of { happy_var_6 -> + happyIn14 + (ResDOper happy_var_2 happy_var_4 happy_var_6 + ) `HappyStk` happyRest}}} + +happyReduce_22 = happyReduce 8# 10# happyReduction_22 +happyReduction_22 (happy_x_8 `HappyStk` + 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 happyOut4 happy_x_2 of { happy_var_2 -> + case happyOut29 happy_x_4 of { happy_var_4 -> + case happyOut33 happy_x_6 of { happy_var_6 -> + case happyOut33 happy_x_8 of { happy_var_8 -> + happyIn14 + (CncDCat happy_var_2 happy_var_4 happy_var_6 happy_var_8 + ) `HappyStk` happyRest}}}} + +happyReduce_23 = happyReduce 11# 10# happyReduction_23 +happyReduction_23 (happy_x_11 `HappyStk` + happy_x_10 `HappyStk` + happy_x_9 `HappyStk` + happy_x_8 `HappyStk` + 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 happyOut4 happy_x_2 of { happy_var_2 -> + case happyOut17 happy_x_4 of { happy_var_4 -> + case happyOut48 happy_x_7 of { happy_var_7 -> + case happyOut33 happy_x_9 of { happy_var_9 -> + case happyOut33 happy_x_11 of { happy_var_11 -> + happyIn14 + (CncDFun happy_var_2 happy_var_4 happy_var_7 happy_var_9 happy_var_11 + ) `HappyStk` happyRest}}}}} + +happyReduce_24 = happyReduce 4# 10# happyReduction_24 +happyReduction_24 (happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut4 happy_x_1 of { happy_var_1 -> + case happyOut16 happy_x_2 of { happy_var_2 -> + case happyOut4 happy_x_4 of { happy_var_4 -> + happyIn14 + (AnyDInd happy_var_1 happy_var_2 happy_var_4 + ) `HappyStk` happyRest}}} + +happyReduce_25 = happySpecReduce_2 11# happyReduction_25 +happyReduction_25 happy_x_2 + happy_x_1 + = case happyOut4 happy_x_1 of { happy_var_1 -> + case happyOut45 happy_x_2 of { happy_var_2 -> + happyIn15 + (ParD happy_var_1 (reverse happy_var_2) + )}} + +happyReduce_26 = happySpecReduce_1 12# happyReduction_26 +happyReduction_26 happy_x_1 + = happyIn16 + (Canon + ) + +happyReduce_27 = happySpecReduce_0 12# happyReduction_27 +happyReduction_27 = happyIn16 + (NonCan + ) + +happyReduce_28 = happySpecReduce_3 13# happyReduction_28 +happyReduction_28 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut4 happy_x_1 of { happy_var_1 -> + case happyOut4 happy_x_3 of { happy_var_3 -> + happyIn17 + (CIQ happy_var_1 happy_var_3 + )}} + +happyReduce_29 = happySpecReduce_2 14# happyReduction_29 +happyReduction_29 happy_x_2 + happy_x_1 + = case happyOut18 happy_x_1 of { happy_var_1 -> + case happyOut20 happy_x_2 of { happy_var_2 -> + happyIn18 + (EApp happy_var_1 happy_var_2 + )}} + +happyReduce_30 = happySpecReduce_1 14# happyReduction_30 +happyReduction_30 happy_x_1 + = case happyOut20 happy_x_1 of { happy_var_1 -> + happyIn18 + (happy_var_1 + )} + +happyReduce_31 = happyReduce 7# 15# happyReduction_31 +happyReduction_31 (happy_x_7 `HappyStk` + 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 happyOut4 happy_x_2 of { happy_var_2 -> + case happyOut19 happy_x_4 of { happy_var_4 -> + case happyOut19 happy_x_7 of { happy_var_7 -> + happyIn19 + (EProd happy_var_2 happy_var_4 happy_var_7 + ) `HappyStk` happyRest}}} + +happyReduce_32 = happyReduce 4# 15# happyReduction_32 +happyReduction_32 (happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut4 happy_x_2 of { happy_var_2 -> + case happyOut19 happy_x_4 of { happy_var_4 -> + happyIn19 + (EAbs happy_var_2 happy_var_4 + ) `HappyStk` happyRest}} + +happyReduce_33 = happySpecReduce_3 15# happyReduction_33 +happyReduction_33 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut26 happy_x_2 of { happy_var_2 -> + happyIn19 + (EEq (reverse happy_var_2) + )} + +happyReduce_34 = happySpecReduce_1 15# happyReduction_34 +happyReduction_34 happy_x_1 + = case happyOut18 happy_x_1 of { happy_var_1 -> + happyIn19 + (happy_var_1 + )} + +happyReduce_35 = happySpecReduce_1 16# happyReduction_35 +happyReduction_35 happy_x_1 + = case happyOut27 happy_x_1 of { happy_var_1 -> + happyIn20 + (EAtom happy_var_1 + )} + +happyReduce_36 = happySpecReduce_1 16# happyReduction_36 +happyReduction_36 happy_x_1 + = happyIn20 + (EData + ) + +happyReduce_37 = happySpecReduce_3 16# happyReduction_37 +happyReduction_37 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut19 happy_x_2 of { happy_var_2 -> + happyIn20 + (happy_var_2 + )} + +happyReduce_38 = happySpecReduce_1 17# happyReduction_38 +happyReduction_38 happy_x_1 + = happyIn21 + (SType + ) + +happyReduce_39 = happySpecReduce_3 18# happyReduction_39 +happyReduction_39 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut25 happy_x_1 of { happy_var_1 -> + case happyOut19 happy_x_3 of { happy_var_3 -> + happyIn22 + (Equ (reverse happy_var_1) happy_var_3 + )}} + +happyReduce_40 = happyReduce 4# 19# happyReduction_40 +happyReduction_40 (happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut17 happy_x_2 of { happy_var_2 -> + case happyOut25 happy_x_3 of { happy_var_3 -> + happyIn23 + (APC happy_var_2 (reverse happy_var_3) + ) `HappyStk` happyRest}} + +happyReduce_41 = happySpecReduce_1 19# happyReduction_41 +happyReduction_41 happy_x_1 + = case happyOut4 happy_x_1 of { happy_var_1 -> + happyIn23 + (APV happy_var_1 + )} + +happyReduce_42 = happySpecReduce_1 19# happyReduction_42 +happyReduction_42 happy_x_1 + = case happyOut5 happy_x_1 of { happy_var_1 -> + happyIn23 + (APS happy_var_1 + )} + +happyReduce_43 = happySpecReduce_1 19# happyReduction_43 +happyReduction_43 happy_x_1 + = case happyOut6 happy_x_1 of { happy_var_1 -> + happyIn23 + (API happy_var_1 + )} + +happyReduce_44 = happySpecReduce_1 19# happyReduction_44 +happyReduction_44 happy_x_1 + = happyIn23 + (APW + ) + +happyReduce_45 = happySpecReduce_0 20# happyReduction_45 +happyReduction_45 = happyIn24 + ([] + ) + +happyReduce_46 = happySpecReduce_1 20# happyReduction_46 +happyReduction_46 happy_x_1 + = case happyOut28 happy_x_1 of { happy_var_1 -> + happyIn24 + ((:[]) happy_var_1 + )} + +happyReduce_47 = happySpecReduce_3 20# happyReduction_47 +happyReduction_47 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut28 happy_x_1 of { happy_var_1 -> + case happyOut24 happy_x_3 of { happy_var_3 -> + happyIn24 + ((:) happy_var_1 happy_var_3 + )}} + +happyReduce_48 = happySpecReduce_0 21# happyReduction_48 +happyReduction_48 = happyIn25 + ([] + ) + +happyReduce_49 = happySpecReduce_2 21# happyReduction_49 +happyReduction_49 happy_x_2 + happy_x_1 + = case happyOut25 happy_x_1 of { happy_var_1 -> + case happyOut23 happy_x_2 of { happy_var_2 -> + happyIn25 + (flip (:) happy_var_1 happy_var_2 + )}} + +happyReduce_50 = happySpecReduce_0 22# happyReduction_50 +happyReduction_50 = happyIn26 + ([] + ) + +happyReduce_51 = happySpecReduce_3 22# happyReduction_51 +happyReduction_51 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut26 happy_x_1 of { happy_var_1 -> + case happyOut22 happy_x_2 of { happy_var_2 -> + happyIn26 + (flip (:) happy_var_1 happy_var_2 + )}} + +happyReduce_52 = happySpecReduce_1 23# happyReduction_52 +happyReduction_52 happy_x_1 + = case happyOut17 happy_x_1 of { happy_var_1 -> + happyIn27 + (AC happy_var_1 + )} + +happyReduce_53 = happySpecReduce_3 23# happyReduction_53 +happyReduction_53 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut17 happy_x_2 of { happy_var_2 -> + happyIn27 + (AD happy_var_2 + )} + +happyReduce_54 = happySpecReduce_2 23# happyReduction_54 +happyReduction_54 happy_x_2 + happy_x_1 + = case happyOut4 happy_x_2 of { happy_var_2 -> + happyIn27 + (AV happy_var_2 + )} + +happyReduce_55 = happySpecReduce_2 23# happyReduction_55 +happyReduction_55 happy_x_2 + happy_x_1 + = case happyOut6 happy_x_2 of { happy_var_2 -> + happyIn27 + (AM happy_var_2 + )} + +happyReduce_56 = happySpecReduce_1 23# happyReduction_56 +happyReduction_56 happy_x_1 + = case happyOut5 happy_x_1 of { happy_var_1 -> + happyIn27 + (AS happy_var_1 + )} + +happyReduce_57 = happySpecReduce_1 23# happyReduction_57 +happyReduction_57 happy_x_1 + = case happyOut6 happy_x_1 of { happy_var_1 -> + happyIn27 + (AI happy_var_1 + )} + +happyReduce_58 = happySpecReduce_1 23# happyReduction_58 +happyReduction_58 happy_x_1 + = case happyOut21 happy_x_1 of { happy_var_1 -> + happyIn27 + (AT happy_var_1 + )} + +happyReduce_59 = happySpecReduce_3 24# happyReduction_59 +happyReduction_59 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut4 happy_x_1 of { happy_var_1 -> + case happyOut19 happy_x_3 of { happy_var_3 -> + happyIn28 + (Decl happy_var_1 happy_var_3 + )}} + +happyReduce_60 = happySpecReduce_3 25# happyReduction_60 +happyReduction_60 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut49 happy_x_2 of { happy_var_2 -> + happyIn29 + (RecType happy_var_2 + )} + +happyReduce_61 = happyReduce 5# 25# happyReduction_61 +happyReduction_61 (happy_x_5 `HappyStk` + happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut29 happy_x_2 of { happy_var_2 -> + case happyOut29 happy_x_4 of { happy_var_4 -> + happyIn29 + (Table happy_var_2 happy_var_4 + ) `HappyStk` happyRest}} + +happyReduce_62 = happySpecReduce_1 25# happyReduction_62 +happyReduction_62 happy_x_1 + = case happyOut17 happy_x_1 of { happy_var_1 -> + happyIn29 + (Cn happy_var_1 + )} + +happyReduce_63 = happySpecReduce_1 25# happyReduction_63 +happyReduction_63 happy_x_1 + = happyIn29 + (TStr + ) + +happyReduce_64 = happySpecReduce_3 26# happyReduction_64 +happyReduction_64 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut38 happy_x_1 of { happy_var_1 -> + case happyOut29 happy_x_3 of { happy_var_3 -> + happyIn30 + (Lbg happy_var_1 happy_var_3 + )}} + +happyReduce_65 = happySpecReduce_1 27# happyReduction_65 +happyReduction_65 happy_x_1 + = case happyOut39 happy_x_1 of { happy_var_1 -> + happyIn31 + (Arg happy_var_1 + )} + +happyReduce_66 = happySpecReduce_1 27# happyReduction_66 +happyReduction_66 happy_x_1 + = case happyOut17 happy_x_1 of { happy_var_1 -> + happyIn31 + (I happy_var_1 + )} + +happyReduce_67 = happyReduce 4# 27# happyReduction_67 +happyReduction_67 (happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut17 happy_x_2 of { happy_var_2 -> + case happyOut51 happy_x_3 of { happy_var_3 -> + happyIn31 + (Con happy_var_2 (reverse happy_var_3) + ) `HappyStk` happyRest}} + +happyReduce_68 = happySpecReduce_2 27# happyReduction_68 +happyReduction_68 happy_x_2 + happy_x_1 + = case happyOut4 happy_x_2 of { happy_var_2 -> + happyIn31 + (LI happy_var_2 + )} + +happyReduce_69 = happySpecReduce_3 27# happyReduction_69 +happyReduction_69 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut47 happy_x_2 of { happy_var_2 -> + happyIn31 + (R happy_var_2 + )} + +happyReduce_70 = happySpecReduce_1 27# happyReduction_70 +happyReduction_70 happy_x_1 + = case happyOut34 happy_x_1 of { happy_var_1 -> + happyIn31 + (K happy_var_1 + )} + +happyReduce_71 = happySpecReduce_2 27# happyReduction_71 +happyReduction_71 happy_x_2 + happy_x_1 + = happyIn31 + (E + ) + +happyReduce_72 = happySpecReduce_3 27# happyReduction_72 +happyReduction_72 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut33 happy_x_2 of { happy_var_2 -> + happyIn31 + (happy_var_2 + )} + +happyReduce_73 = happySpecReduce_3 28# happyReduction_73 +happyReduction_73 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut31 happy_x_1 of { happy_var_1 -> + case happyOut38 happy_x_3 of { happy_var_3 -> + happyIn32 + (P happy_var_1 happy_var_3 + )}} + +happyReduce_74 = happyReduce 5# 28# happyReduction_74 +happyReduction_74 (happy_x_5 `HappyStk` + happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut29 happy_x_2 of { happy_var_2 -> + case happyOut50 happy_x_4 of { happy_var_4 -> + happyIn32 + (T happy_var_2 happy_var_4 + ) `HappyStk` happyRest}} + +happyReduce_75 = happySpecReduce_3 28# happyReduction_75 +happyReduction_75 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut32 happy_x_1 of { happy_var_1 -> + case happyOut31 happy_x_3 of { happy_var_3 -> + happyIn32 + (S happy_var_1 happy_var_3 + )}} + +happyReduce_76 = happyReduce 4# 28# happyReduction_76 +happyReduction_76 (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 -> + happyIn32 + (FV (reverse happy_var_3) + ) `HappyStk` happyRest} + +happyReduce_77 = happySpecReduce_1 28# happyReduction_77 +happyReduction_77 happy_x_1 + = case happyOut31 happy_x_1 of { happy_var_1 -> + happyIn32 + (happy_var_1 + )} + +happyReduce_78 = happySpecReduce_3 29# happyReduction_78 +happyReduction_78 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut33 happy_x_1 of { happy_var_1 -> + case happyOut32 happy_x_3 of { happy_var_3 -> + happyIn33 + (C happy_var_1 happy_var_3 + )}} + +happyReduce_79 = happySpecReduce_1 29# happyReduction_79 +happyReduction_79 happy_x_1 + = case happyOut32 happy_x_1 of { happy_var_1 -> + happyIn33 + (happy_var_1 + )} + +happyReduce_80 = happySpecReduce_1 30# happyReduction_80 +happyReduction_80 happy_x_1 + = case happyOut5 happy_x_1 of { happy_var_1 -> + happyIn34 + (KS happy_var_1 + )} + +happyReduce_81 = happyReduce 7# 30# happyReduction_81 +happyReduction_81 (happy_x_7 `HappyStk` + 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 happyOut52 happy_x_3 of { happy_var_3 -> + case happyOut53 happy_x_5 of { happy_var_5 -> + happyIn34 + (KP (reverse happy_var_3) happy_var_5 + ) `HappyStk` happyRest}} + +happyReduce_82 = happySpecReduce_3 31# happyReduction_82 +happyReduction_82 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut38 happy_x_1 of { happy_var_1 -> + case happyOut33 happy_x_3 of { happy_var_3 -> + happyIn35 + (Ass happy_var_1 happy_var_3 + )}} + +happyReduce_83 = happySpecReduce_3 32# happyReduction_83 +happyReduction_83 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut55 happy_x_1 of { happy_var_1 -> + case happyOut33 happy_x_3 of { happy_var_3 -> + happyIn36 + (Cas (reverse happy_var_1) happy_var_3 + )}} + +happyReduce_84 = happySpecReduce_3 33# happyReduction_84 +happyReduction_84 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut52 happy_x_1 of { happy_var_1 -> + case happyOut52 happy_x_3 of { happy_var_3 -> + happyIn37 + (Var (reverse happy_var_1) (reverse happy_var_3) + )}} + +happyReduce_85 = happySpecReduce_1 34# happyReduction_85 +happyReduction_85 happy_x_1 + = case happyOut4 happy_x_1 of { happy_var_1 -> + happyIn38 + (L happy_var_1 + )} + +happyReduce_86 = happySpecReduce_2 34# happyReduction_86 +happyReduction_86 happy_x_2 + happy_x_1 + = case happyOut6 happy_x_2 of { happy_var_2 -> + happyIn38 + (LV happy_var_2 + )} + +happyReduce_87 = happySpecReduce_3 35# happyReduction_87 +happyReduction_87 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut4 happy_x_1 of { happy_var_1 -> + case happyOut6 happy_x_3 of { happy_var_3 -> + happyIn39 + (A happy_var_1 happy_var_3 + )}} + +happyReduce_88 = happyReduce 5# 35# happyReduction_88 +happyReduction_88 (happy_x_5 `HappyStk` + happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut4 happy_x_1 of { happy_var_1 -> + case happyOut6 happy_x_3 of { happy_var_3 -> + case happyOut6 happy_x_5 of { happy_var_5 -> + happyIn39 + (AB happy_var_1 happy_var_3 happy_var_5 + ) `HappyStk` happyRest}}} + +happyReduce_89 = happyReduce 4# 36# happyReduction_89 +happyReduction_89 (happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut17 happy_x_2 of { happy_var_2 -> + case happyOut55 happy_x_3 of { happy_var_3 -> + happyIn40 + (PC happy_var_2 (reverse happy_var_3) + ) `HappyStk` happyRest}} + +happyReduce_90 = happySpecReduce_1 36# happyReduction_90 +happyReduction_90 happy_x_1 + = case happyOut4 happy_x_1 of { happy_var_1 -> + happyIn40 + (PV happy_var_1 + )} + +happyReduce_91 = happySpecReduce_1 36# happyReduction_91 +happyReduction_91 happy_x_1 + = happyIn40 + (PW + ) + +happyReduce_92 = happySpecReduce_3 36# happyReduction_92 +happyReduction_92 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut54 happy_x_2 of { happy_var_2 -> + happyIn40 + (PR happy_var_2 + )} + +happyReduce_93 = happySpecReduce_3 37# happyReduction_93 +happyReduction_93 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut38 happy_x_1 of { happy_var_1 -> + case happyOut40 happy_x_3 of { happy_var_3 -> + happyIn41 + (PAss happy_var_1 happy_var_3 + )}} + +happyReduce_94 = happySpecReduce_0 38# happyReduction_94 +happyReduction_94 = happyIn42 + ([] + ) + +happyReduce_95 = happySpecReduce_3 38# happyReduction_95 +happyReduction_95 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut42 happy_x_1 of { happy_var_1 -> + case happyOut13 happy_x_2 of { happy_var_2 -> + happyIn42 + (flip (:) happy_var_1 happy_var_2 + )}} + +happyReduce_96 = happySpecReduce_0 39# happyReduction_96 +happyReduction_96 = happyIn43 + ([] + ) + +happyReduce_97 = happySpecReduce_3 39# happyReduction_97 +happyReduction_97 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut43 happy_x_1 of { happy_var_1 -> + case happyOut14 happy_x_2 of { happy_var_2 -> + happyIn43 + (flip (:) happy_var_1 happy_var_2 + )}} + +happyReduce_98 = happySpecReduce_0 40# happyReduction_98 +happyReduction_98 = happyIn44 + ([] + ) + +happyReduce_99 = happySpecReduce_1 40# happyReduction_99 +happyReduction_99 happy_x_1 + = case happyOut15 happy_x_1 of { happy_var_1 -> + happyIn44 + ((:[]) happy_var_1 + )} + +happyReduce_100 = happySpecReduce_3 40# happyReduction_100 +happyReduction_100 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut15 happy_x_1 of { happy_var_1 -> + case happyOut44 happy_x_3 of { happy_var_3 -> + happyIn44 + ((:) happy_var_1 happy_var_3 + )}} + +happyReduce_101 = happySpecReduce_0 41# happyReduction_101 +happyReduction_101 = happyIn45 + ([] + ) + +happyReduce_102 = happySpecReduce_2 41# happyReduction_102 +happyReduction_102 happy_x_2 + happy_x_1 + = case happyOut45 happy_x_1 of { happy_var_1 -> + case happyOut29 happy_x_2 of { happy_var_2 -> + happyIn45 + (flip (:) happy_var_1 happy_var_2 + )}} + +happyReduce_103 = happySpecReduce_0 42# happyReduction_103 +happyReduction_103 = happyIn46 + ([] + ) + +happyReduce_104 = happySpecReduce_2 42# happyReduction_104 +happyReduction_104 happy_x_2 + happy_x_1 + = case happyOut46 happy_x_1 of { happy_var_1 -> + case happyOut17 happy_x_2 of { happy_var_2 -> + happyIn46 + (flip (:) happy_var_1 happy_var_2 + )}} + +happyReduce_105 = happySpecReduce_0 43# happyReduction_105 +happyReduction_105 = happyIn47 + ([] + ) + +happyReduce_106 = happySpecReduce_1 43# happyReduction_106 +happyReduction_106 happy_x_1 + = case happyOut35 happy_x_1 of { happy_var_1 -> + happyIn47 + ((:[]) happy_var_1 + )} + +happyReduce_107 = happySpecReduce_3 43# happyReduction_107 +happyReduction_107 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut35 happy_x_1 of { happy_var_1 -> + case happyOut47 happy_x_3 of { happy_var_3 -> + happyIn47 + ((:) happy_var_1 happy_var_3 + )}} + +happyReduce_108 = happySpecReduce_0 44# happyReduction_108 +happyReduction_108 = happyIn48 + ([] + ) + +happyReduce_109 = happySpecReduce_1 44# happyReduction_109 +happyReduction_109 happy_x_1 + = case happyOut39 happy_x_1 of { happy_var_1 -> + happyIn48 + ((:[]) happy_var_1 + )} + +happyReduce_110 = happySpecReduce_3 44# happyReduction_110 +happyReduction_110 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut39 happy_x_1 of { happy_var_1 -> + case happyOut48 happy_x_3 of { happy_var_3 -> + happyIn48 + ((:) happy_var_1 happy_var_3 + )}} + +happyReduce_111 = happySpecReduce_0 45# happyReduction_111 +happyReduction_111 = happyIn49 + ([] + ) + +happyReduce_112 = happySpecReduce_1 45# happyReduction_112 +happyReduction_112 happy_x_1 + = case happyOut30 happy_x_1 of { happy_var_1 -> + happyIn49 + ((:[]) happy_var_1 + )} + +happyReduce_113 = happySpecReduce_3 45# happyReduction_113 +happyReduction_113 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut30 happy_x_1 of { happy_var_1 -> + case happyOut49 happy_x_3 of { happy_var_3 -> + happyIn49 + ((:) happy_var_1 happy_var_3 + )}} + +happyReduce_114 = happySpecReduce_0 46# happyReduction_114 +happyReduction_114 = happyIn50 + ([] + ) + +happyReduce_115 = happySpecReduce_1 46# happyReduction_115 +happyReduction_115 happy_x_1 + = case happyOut36 happy_x_1 of { happy_var_1 -> + happyIn50 + ((:[]) happy_var_1 + )} + +happyReduce_116 = happySpecReduce_3 46# happyReduction_116 +happyReduction_116 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut36 happy_x_1 of { happy_var_1 -> + case happyOut50 happy_x_3 of { happy_var_3 -> + happyIn50 + ((:) happy_var_1 happy_var_3 + )}} + +happyReduce_117 = happySpecReduce_0 47# happyReduction_117 +happyReduction_117 = happyIn51 + ([] + ) + +happyReduce_118 = happySpecReduce_2 47# happyReduction_118 +happyReduction_118 happy_x_2 + happy_x_1 + = case happyOut51 happy_x_1 of { happy_var_1 -> + case happyOut31 happy_x_2 of { happy_var_2 -> + happyIn51 + (flip (:) happy_var_1 happy_var_2 + )}} + +happyReduce_119 = happySpecReduce_0 48# happyReduction_119 +happyReduction_119 = happyIn52 + ([] + ) + +happyReduce_120 = happySpecReduce_2 48# happyReduction_120 +happyReduction_120 happy_x_2 + happy_x_1 + = case happyOut52 happy_x_1 of { happy_var_1 -> + case happyOut5 happy_x_2 of { happy_var_2 -> + happyIn52 + (flip (:) happy_var_1 happy_var_2 + )}} + +happyReduce_121 = happySpecReduce_0 49# happyReduction_121 +happyReduction_121 = happyIn53 + ([] + ) + +happyReduce_122 = happySpecReduce_1 49# happyReduction_122 +happyReduction_122 happy_x_1 + = case happyOut37 happy_x_1 of { happy_var_1 -> + happyIn53 + ((:[]) happy_var_1 + )} + +happyReduce_123 = happySpecReduce_3 49# happyReduction_123 +happyReduction_123 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut37 happy_x_1 of { happy_var_1 -> + case happyOut53 happy_x_3 of { happy_var_3 -> + happyIn53 + ((:) happy_var_1 happy_var_3 + )}} + +happyReduce_124 = happySpecReduce_0 50# happyReduction_124 +happyReduction_124 = happyIn54 + ([] + ) + +happyReduce_125 = happySpecReduce_1 50# happyReduction_125 +happyReduction_125 happy_x_1 + = case happyOut41 happy_x_1 of { happy_var_1 -> + happyIn54 + ((:[]) happy_var_1 + )} + +happyReduce_126 = happySpecReduce_3 50# happyReduction_126 +happyReduction_126 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut41 happy_x_1 of { happy_var_1 -> + case happyOut54 happy_x_3 of { happy_var_3 -> + happyIn54 + ((:) happy_var_1 happy_var_3 + )}} + +happyReduce_127 = happySpecReduce_0 51# happyReduction_127 +happyReduction_127 = happyIn55 + ([] + ) + +happyReduce_128 = happySpecReduce_2 51# happyReduction_128 +happyReduction_128 happy_x_2 + happy_x_1 + = case happyOut55 happy_x_1 of { happy_var_1 -> + case happyOut40 happy_x_2 of { happy_var_2 -> + happyIn55 + (flip (:) happy_var_1 happy_var_2 + )}} + +happyReduce_129 = happySpecReduce_0 52# happyReduction_129 +happyReduction_129 = happyIn56 + ([] + ) + +happyReduce_130 = happySpecReduce_1 52# happyReduction_130 +happyReduction_130 happy_x_1 + = case happyOut4 happy_x_1 of { happy_var_1 -> + happyIn56 + ((:[]) happy_var_1 + )} + +happyReduce_131 = happySpecReduce_3 52# happyReduction_131 +happyReduction_131 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut4 happy_x_1 of { happy_var_1 -> + case happyOut56 happy_x_3 of { happy_var_3 -> + happyIn56 + ((:) happy_var_1 happy_var_3 + )}} + +happyNewToken action sts stk [] = + happyDoAction 51# (error "reading EOF!") action sts stk [] + +happyNewToken action sts stk (tk:tks) = + let cont i = happyDoAction i tk action sts stk tks in + case tk of { + PT _ (TS "=") -> cont 1#; + PT _ (TS "{") -> cont 2#; + PT _ (TS "}") -> cont 3#; + PT _ (TS ":") -> cont 4#; + PT _ (TS "->") -> cont 5#; + PT _ (TS "**") -> cont 6#; + PT _ (TS "[") -> cont 7#; + PT _ (TS "]") -> cont 8#; + PT _ (TS ";") -> cont 9#; + PT _ (TS "\\") -> cont 10#; + PT _ (TS ".") -> cont 11#; + 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 "Str") -> cont 27#; + PT _ (TS "Type") -> cont 28#; + PT _ (TS "abstract") -> cont 29#; + PT _ (TS "cat") -> cont 30#; + PT _ (TS "concrete") -> cont 31#; + PT _ (TS "data") -> cont 32#; + PT _ (TS "flags") -> cont 33#; + PT _ (TS "fun") -> cont 34#; + PT _ (TS "in") -> cont 35#; + PT _ (TS "lin") -> cont 36#; + PT _ (TS "lincat") -> cont 37#; + PT _ (TS "of") -> cont 38#; + PT _ (TS "open") -> cont 39#; + PT _ (TS "oper") -> cont 40#; + PT _ (TS "param") -> cont 41#; + PT _ (TS "pre") -> cont 42#; + PT _ (TS "resource") -> cont 43#; + PT _ (TS "table") -> cont 44#; + PT _ (TS "transfer") -> cont 45#; + PT _ (TS "variants") -> cont 46#; + PT _ (TV happy_dollar_dollar) -> cont 47#; + PT _ (TL happy_dollar_dollar) -> cont 48#; + PT _ (TI happy_dollar_dollar) -> cont 49#; + _ -> cont 50#; + } + +happyThen = (thenM) +happyReturn = (returnM) +happyThen1 m k tks = (thenM) m (\a -> k a tks) +happyReturn1 = \a tks -> (returnM) a + +pCanon tks = happyThen (happyParse 0# tks) (\x -> happyReturn (happyOut7 x)) + +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 +{-# LINE 1 "GenericTemplate.hs" #-} +{-# LINE 1 "GenericTemplate.hs" #-} +-- $Id: ParGFC.hs,v 1.1 2003/11/11 16:44:26 aarne Exp $ + + + + + + + + + + + + + +{-# LINE 27 "GenericTemplate.hs" #-} + + + +data Happy_IntList = HappyCons Int# Happy_IntList + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +infixr 9 `HappyStk` +data HappyStk a = HappyStk a (HappyStk a) + +----------------------------------------------------------------------------- +-- starting the parse + +happyParse start_state = happyNewToken start_state notHappyAtAll notHappyAtAll + +----------------------------------------------------------------------------- +-- Accepting the parse + +happyAccept j tk st sts (HappyStk ans _) = (happyTcHack j + (happyTcHack st)) + (happyReturn1 ans) + +----------------------------------------------------------------------------- +-- Arrays only: do the next action + + + +happyDoAction i tk st + = {- nothing -} + + + case action of + 0# -> {- nothing -} + happyFail i tk st + -1# -> {- nothing -} + happyAccept i tk st + n | (n <# (0# :: Int#)) -> {- nothing -} + + (happyReduceArr ! rule) i tk st + where rule = (I# ((negateInt# ((n +# (1# :: Int#)))))) + n -> {- nothing -} + + + happyShift new_state i tk st + where new_state = (n -# (1# :: Int#)) + where off = indexShortOffAddr happyActOffsets st + off_i = (off +# i) + check = if (off_i >=# (0# :: Int#)) + then (indexShortOffAddr happyCheck off_i ==# i) + else False + action | check = indexShortOffAddr happyTable off_i + | otherwise = indexShortOffAddr happyDefActions st + + + + + + + +indexShortOffAddr (A# arr) off = +#if __GLASGOW_HASKELL__ > 500 + narrow16Int# i +#elif __GLASGOW_HASKELL__ == 500 + intToInt16# i +#else + (i `iShiftL#` 16#) `iShiftRA#` 16# +#endif + where + i = word2Int# ((high `shiftL#` 8#) `or#` low) + high = int2Word# (ord# (indexCharOffAddr# arr (off' +# 1#))) + low = int2Word# (ord# (indexCharOffAddr# arr off')) + off' = off *# 2# + + + + + + +----------------------------------------------------------------------------- +-- HappyState data type (not arrays) + +{-# LINE 153 "GenericTemplate.hs" #-} + + +----------------------------------------------------------------------------- +-- Shifting a token + +happyShift new_state 0# tk st sts stk@(x `HappyStk` _) = + let i = (case unsafeCoerce# x of { (I# (i)) -> i }) in +-- trace "shifting the error token" $ + happyDoAction i tk new_state (HappyCons (st) (sts)) (stk) + +happyShift new_state i tk st sts stk = + happyNewToken new_state (HappyCons (st) (sts)) ((happyInTok (tk))`HappyStk`stk) + +-- happyReduce is specialised for the common cases. + +happySpecReduce_0 i fn 0# tk st sts stk + = happyFail 0# tk st sts stk +happySpecReduce_0 nt fn j tk st@((action)) sts stk + = happyGoto nt j tk st (HappyCons (st) (sts)) (fn `HappyStk` stk) + +happySpecReduce_1 i fn 0# tk st sts stk + = happyFail 0# tk st sts stk +happySpecReduce_1 nt fn j tk _ sts@((HappyCons (st@(action)) (_))) (v1`HappyStk`stk') + = happyGoto nt j tk st sts (fn v1 `HappyStk` stk') + +happySpecReduce_2 i fn 0# tk st sts stk + = happyFail 0# tk st sts stk +happySpecReduce_2 nt fn j tk _ (HappyCons (_) (sts@((HappyCons (st@(action)) (_))))) (v1`HappyStk`v2`HappyStk`stk') + = happyGoto nt j tk st sts (fn v1 v2 `HappyStk` stk') + +happySpecReduce_3 i fn 0# tk st sts stk + = happyFail 0# tk st sts stk +happySpecReduce_3 nt fn j tk _ (HappyCons (_) ((HappyCons (_) (sts@((HappyCons (st@(action)) (_))))))) (v1`HappyStk`v2`HappyStk`v3`HappyStk`stk') + = happyGoto nt j tk st sts (fn v1 v2 v3 `HappyStk` stk') + +happyReduce k i fn 0# tk st sts stk + = happyFail 0# tk st sts stk +happyReduce k nt fn j tk st sts stk = happyGoto nt j tk st1 sts1 (fn stk) + where sts1@((HappyCons (st1@(action)) (_))) = happyDrop k (HappyCons (st) (sts)) + +happyMonadReduce k nt fn 0# tk st sts stk + = happyFail 0# tk st sts stk +happyMonadReduce k nt fn j tk st sts stk = + happyThen1 (fn stk) (\r -> happyGoto nt j tk st1 sts1 (r `HappyStk` drop_stk)) + where sts1@((HappyCons (st1@(action)) (_))) = happyDrop k (HappyCons (st) (sts)) + drop_stk = happyDropStk k stk + +happyDrop 0# l = l +happyDrop n (HappyCons (_) (t)) = happyDrop (n -# (1# :: Int#)) t + +happyDropStk 0# l = l +happyDropStk n (x `HappyStk` xs) = happyDropStk (n -# (1#::Int#)) xs + +----------------------------------------------------------------------------- +-- Moving to a new state after a reduction + + +happyGoto nt j tk st = + {- nothing -} + happyDoAction j tk new_state + where off = indexShortOffAddr happyGotoOffsets st + off_i = (off +# nt) + new_state = indexShortOffAddr happyTable off_i + + + + +----------------------------------------------------------------------------- +-- Error recovery (0# is the error token) + +-- parse error if we are in recovery and we fail again +happyFail 0# tk old_st _ stk = +-- trace "failing" $ + happyError + + +{- 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 + for now --SDM + +-- discard a state +happyFail 0# tk old_st (HappyCons ((action)) (sts)) + (saved_tok `HappyStk` _ `HappyStk` stk) = +-- trace ("discarding state, depth " ++ show (length stk)) $ + happyDoAction 0# tk action sts ((saved_tok`HappyStk`stk)) +-} + +-- Enter error recovery: generate an error token, +-- save the old token and carry on. +happyFail i tk (action) sts stk = +-- trace "entering error recovery" $ + happyDoAction 0# tk action sts ( (unsafeCoerce# (I# (i))) `HappyStk` stk) + +-- Internal happy errors: + +notHappyAtAll = error "Internal Happy error\n" + +----------------------------------------------------------------------------- +-- Hack to get the typechecker to accept our action functions + + +happyTcHack :: Int# -> a -> a +happyTcHack x y = y +{-# INLINE happyTcHack #-} + + +----------------------------------------------------------------------------- +-- Don't inline any functions from the template. GHC has a nasty habit +-- of deciding to inline happyGoto everywhere, which increases the size of +-- the generated parser quite a bit. + + +{-# NOINLINE happyDoAction #-} +{-# NOINLINE happyTable #-} +{-# NOINLINE happyCheck #-} +{-# NOINLINE happyActOffsets #-} +{-# NOINLINE happyGotoOffsets #-} +{-# NOINLINE happyDefActions #-} + +{-# NOINLINE happyShift #-} +{-# NOINLINE happySpecReduce_0 #-} +{-# NOINLINE happySpecReduce_1 #-} +{-# NOINLINE happySpecReduce_2 #-} +{-# NOINLINE happySpecReduce_3 #-} +{-# NOINLINE happyReduce #-} +{-# NOINLINE happyMonadReduce #-} +{-# NOINLINE happyGoto #-} +{-# NOINLINE happyFail #-} + +-- end of Happy Template. diff --git a/src/GF/Compile/Compile.hs b/src/GF/Compile/Compile.hs index edd75ef6b..cc327be37 100644 --- a/src/GF/Compile/Compile.hs +++ b/src/GF/Compile/Compile.hs @@ -13,6 +13,7 @@ import MkResource -- the main compiler passes import GetGrammar +import Extend import Rebuild import Rename import Refresh @@ -93,7 +94,7 @@ reverseModules (MGrammar ms) = MGrammar $ reverse ms keepResModules :: Options -> SourceGrammar -> SourceGrammar keepResModules opts gr = if oElem retainOpers opts - then MGrammar $ reverse [(i,mi) | (i,mi) <- modules gr, isResourceModule mi] + then MGrammar $ reverse [(i,mi) | (i,mi@(ModMod m)) <- modules gr, isModRes m] else emptyMGrammar @@ -157,7 +158,8 @@ makeSourceModule opts env@(k,gr,can) mo@(i,mi) = case mi of where putp = putPointE opts -compileSourceModule :: Options -> CompileEnv -> SourceModule -> IOE (Int,SourceModule) +compileSourceModule :: Options -> CompileEnv -> + SourceModule -> IOE (Int,SourceModule) compileSourceModule opts env@(k,gr,can) mo@(i,mi) = do let putp = putPointE opts @@ -165,16 +167,25 @@ compileSourceModule opts env@(k,gr,can) mo@(i,mi) = do mo1 <- ioeErr $ rebuildModule mos mo - mo2:_ <- putp " renaming " $ ioeErr $ renameModule mos mo1 + mo1b <- ioeErr $ extendModule mos mo1 + ---- prDebug mo1b - (mo3:_,warnings) <- putp " type checking" $ ioeErr $ showCheckModule mos mo2 - putStrE warnings + case mo1b of + (_,ModMod n) | not (isCompleteModule n) -> return (k,mo1b) + _ -> do + mo2:_ <- putp " renaming " $ ioeErr $ renameModule mos mo1b - (k',mo3r:_) <- ioeErr $ refreshModule (k,mos) mo3 + (mo3:_,warnings) <- putp " type checking" $ ioeErr $ showCheckModule mos mo2 + putStrE warnings - mo4:_ <- putp " optimizing " $ ioeErr $ evalModule mos mo3r + (k',mo3r:_) <- ioeErr $ refreshModule (k,mos) mo3 + + mo4:_ <- putp " optimizing " $ ioeErr $ evalModule mos mo3r + + return (k',mo4) + where + prDebug mo = ioeIO $ putStrLn $ prGrammar $ MGrammar [mo] ---- debug - return (k',mo4) generateModuleCode :: Options -> InitPath -> SourceModule -> IOE GFC.CanonModule generateModuleCode opts path minfo@(name,info) = do @@ -186,7 +197,7 @@ generateModuleCode opts path minfo@(name,info) = do -- for resource, also emit gfr case info of - ModMod m | isResourceModule info && isCompilable info && emit && nomulti -> do + ModMod m | isModRes m && isCompilable info && emit && nomulti -> do let (file,out) = (gfrFile pname, prGrammar (MGrammar [minfo])) ioeIO $ writeFile file out >> putStr (" wrote file" +++ file) _ -> return () diff --git a/src/GF/Compile/Extend.hs b/src/GF/Compile/Extend.hs index c0c46f956..689c59553 100644 --- a/src/GF/Compile/Extend.hs +++ b/src/GF/Compile/Extend.hs @@ -10,27 +10,56 @@ import Operations import Monad --- AR 14/5/2003 +-- AR 14/5/2003 -- 11/11 --- The top-level function $extendModInfo$ +-- The top-level function $extendModule$ -- extends a module symbol table by indirections to the module it extends ---- this is not in use 5/11/2003 -extendModInfo :: Ident -> SourceModInfo -> SourceModInfo -> Err SourceModInfo -extendModInfo name old new = case (old,new) of - (ModMod m0, ModMod (Module mt st fs _ ops js)) -> do - testErr (mtype m0 == mt) ("illegal extension type at module" +++ show name) - js' <- extendMod name (jments m0) js - return $ ModMod (Module mt st fs Nothing ops js) +extendModule :: [SourceModule] -> SourceModule -> Err SourceModule +extendModule ms (name,mod) = case mod of + ModMod (Module mt st fs me ops js) -> do --- this is what happens when extending a module: new information is inserted, --- and the process is interrupted if unification fails +{- --- building the {s : Str} lincat from js0 + js <- case mt of + MTConcrete a -> do + ModMod ma <- lookupModule (MGrammar ms) a + let cats = [c | (c,AbsCat _ _) <- tree2list $ jments ma] + jscs = [(c,CncCat (yes defLinType) nope nope) | c <- cats] + return $ updatesTreeNondestr jscs js0 + _ -> return js0 +-} -extendMod :: Ident -> BinTree (Ident,Info) -> BinTree (Ident,Info) -> + case me of + -- if the module is an extension of another one... + Just n -> do + (m0,isCompl) <- do + m <- lookupModMod (MGrammar ms) n + + -- test that the module types match, and find out if the old is complete + testErr (sameMType (mtype m) mt) + ("illegal extension type to module" +++ prt name) + return (m,isCompleteModule m) + + -- build extension in a way depending on whether the old module is complete + js1 <- extendMod isCompl n (jments m0) js + + -- if incomplete, throw away extension information + let me' = if isCompl then me else Nothing + return $ (name,ModMod (Module mt st fs me' ops js1)) + + -- if the module is not an extension, just return it + _ -> return (name,mod) + +-- When extending a complete module: new information is inserted, +-- and the process is interrupted if unification fails. +-- If the extended module is incomplete, its judgements are just copied. + +extendMod :: Bool -> Ident -> BinTree (Ident,Info) -> BinTree (Ident,Info) -> Err (BinTree (Ident,Info)) -extendMod name old new = foldM try new $ tree2list old where +extendMod isCompl name old new = foldM try new $ tree2list old where try t i@(c,_) = errIn ("constant" +++ prt c) $ - tryInsert (extendAnyInfo name) (indirInfo name) t i + tryInsert (extendAnyInfo isCompl name) indirIf t i + indirIf = if isCompl then indirInfo name else id indirInfo :: Ident -> Info -> Info indirInfo n info = AnyInd b n' where @@ -41,46 +70,37 @@ indirInfo n info = AnyInd b n' where AnyInd b k -> (b,k) _ -> (False,n) ---- canonical in Abs -{- ---- -case info of - AbsFun pty ptr -> AbsFun (perhIndir n pty) (perhIndir n ptr) - ---- find a suitable indirection for cat info! - - ResOper pty ptr -> ResOper (perhIndir n pty) (perhIndir n ptr) - ResParam pp -> ResParam (perhIndir n pp) - _ -> info - - CncCat pty ptr ppr -> CncCat (perhIndir n pty) (perhIndir n ptr) (perhIndir n ppr) - CncFun m ptr ppr -> CncFun m (perhIndir n ptr) (perhIndir n ppr) --} - perhIndir :: Ident -> Perh a -> Perh a perhIndir n p = case p of Yes _ -> May n _ -> p -extendAnyInfo :: Ident -> Info -> Info -> Err Info -extendAnyInfo n i j = errIn ("building extension for" +++ prt n) $ case (i,j) of +extendAnyInfo :: Bool -> Ident -> Info -> Info -> Err Info +extendAnyInfo isc n i j = errIn ("building extension for" +++ prt n) $ case (i,j) of (AbsCat mc1 mf1, AbsCat mc2 mf2) -> - liftM2 AbsCat (updatePerhaps n mc1 mc2) (updatePerhaps n mf1 mf2) --- add cstrs + liftM2 AbsCat (updn mc1 mc2) (updn mf1 mf2) --- add cstrs (AbsFun mt1 md1, AbsFun mt2 md2) -> - liftM2 AbsFun (updatePerhaps n mt1 mt2) (updatePerhaps n md1 md2) --- add defs - - (ResParam mt1, ResParam mt2) -> liftM ResParam $ updatePerhaps n mt1 mt2 - (ResValue mt1, ResValue mt2) -> liftM ResValue $ updatePerhaps n mt1 mt2 - (ResOper mt1 m1, ResOper mt2 m2) -> extendResOper n mt1 m1 mt2 m2 - + liftM2 AbsFun (updn mt1 mt2) (updn md1 md2) --- add defs + (ResParam mt1, ResParam mt2) -> + liftM ResParam $ updn mt1 mt2 + (ResValue mt1, ResValue mt2) -> + liftM ResValue $ updn mt1 mt2 + (ResOper mt1 m1, ResOper mt2 m2) -> ---- extendResOper n mt1 m1 mt2 m2 + liftM2 ResOper (updn mt1 mt2) (updn m1 m2) (CncCat mc1 mf1 mp1, CncCat mc2 mf2 mp2) -> - liftM3 CncCat (updatePerhaps n mc1 mc2) - (updatePerhaps n mf1 mf2) (updatePerhaps n mp1 mp2) + liftM3 CncCat (updn mc1 mc2) (updn mf1 mf2) (updn mp1 mp2) (CncFun m mt1 md1, CncFun _ mt2 md2) -> - liftM2 (CncFun m) (updatePerhaps n mt1 mt2) (updatePerhaps n md1 md2) + liftM2 (CncFun m) (updn mt1 mt2) (updn md1 md2) - (AnyInd _ _, ResOper _ _) -> return j ---- +---- (AnyInd _ _, ResOper _ _) -> return j ---- _ -> Bad $ "cannot unify information in" ++++ show i ++++ "and" ++++ show j + where + updn = if isc then (updatePerhaps n) else (updatePerhapsHard n) + +{- ---- no more needed: this is done in Rebuild -- opers declared in an interface and defined in an instance are a special case extendResOper n mt1 m1 mt2 m2 = case (m1,m2) of @@ -93,3 +113,4 @@ extendResOper n mt1 m1 mt2 m2 = case (m1,m2) of Q _ c -> Vr c QC _ c -> Vr c _ -> composSafeOp strp t +-} diff --git a/src/GF/Compile/GrammarToCanon.hs b/src/GF/Compile/GrammarToCanon.hs index ab493f761..786eb5fa5 100644 --- a/src/GF/Compile/GrammarToCanon.hs +++ b/src/GF/Compile/GrammarToCanon.hs @@ -38,7 +38,8 @@ redModInfo (c,info) = do c' <- redIdent c info' <- case info of ModMod m -> do - (e,os) <- redExtOpen m + let isIncompl = mstatus m == MSIncomplete + (e,os) <- if isIncompl then return (Nothing,[]) else redExtOpen m ---- flags <- mapM redFlag $ flags m (a,mt) <- case mtype m of MTConcrete a -> do @@ -51,7 +52,7 @@ redModInfo (c,info) = do MTTransfer x y -> return (c',MTTransfer (om x) (om y)) --- c' not needed ---- this generates empty GFC. Better: none - let js = if mstatus m == MSIncomplete then NT else jments m + let js = if isIncompl then NT else jments m defss <- mapM (redInfo a) $ tree2list $ js defs <- return $ sorted2tree $ concat defss -- sorted, but reduced @@ -62,7 +63,9 @@ redModInfo (c,info) = do e' <- case extends m of Just e -> liftM Just $ redIdent e _ -> return Nothing - os' <- mapM (\ (OQualif q _ i) -> liftM (OSimple q) (redIdent i)) $ opens m + os' <- mapM (\o -> case o of + OQualif q _ i -> liftM (OSimple q) (redIdent i) + _ -> prtBad "cannot translate unqualified open in" c) $ opens m return (e',os') om = oSimple . openedModule --- normalizing away qualif diff --git a/src/GF/Compile/Rebuild.hs b/src/GF/Compile/Rebuild.hs index 5a551ea6c..d0e750e09 100644 --- a/src/GF/Compile/Rebuild.hs +++ b/src/GF/Compile/Rebuild.hs @@ -19,43 +19,38 @@ rebuildModule ms mo@(i,mi) = do let gr = MGrammar ms deps <- moduleDeps ms is <- openInterfaces deps i - mi' <- case mi of + mi' <- case mi of - -- add the interface type signatures into an instance module + -- add the information given in interface into an instance module ModMod m -> do testErr (null is || mstatus m == MSIncomplete) - ("module" +++ prt i +++ "must be declared incomplete") - mi' <- case mtype m of + ("module" +++ prt i +++ + "has open interfaces and must therefore be declared incomplete") + case mtype m of MTInstance i0 -> do - m0 <- lookupModule gr i0 - m' <- case m0 of - ModMod m1 | isResourceModule m0 -> do ---- mtype m1 == MTInterface -> do ----- checkCompleteInstance m1 m -- do this later, in CheckGrammar - js' <- extendMod i (jments m1) (jments m) - return $ replaceJudgements m js' - _ -> prtBad "interface expected instead of" i0 - return mi ----- + m1 <- lookupModMod gr i0 + testErr (isModRes m1) ("interface expected instead of" +++ prt i0) + m' <- do + js' <- extendMod False i0 (jments m1) (jments m) + return $ replaceJudgements m js' + return $ ModMod m' _ -> return mi - return mi' -- add the instance opens to an incomplete module "with" instances ModWith mt stat ext ops -> do - let insts = [(inf,inst) |OQualif _ inf inst <- ops] + let insts = [(inf,inst) | OQualif _ inf inst <- ops] let infs = map fst insts let stat' = ifNull MSComplete (const MSIncomplete) [i | i <- is, notElem i infs] testErr (stat' == MSComplete || stat == MSIncomplete) ("module" +++ prt i +++ "remains incomplete") - Module mt0 stat0 fs me ops0 js <- do - mi <- lookupModule gr ext - case mi of - ModMod m -> return m --- check compatibility of module type - _ -> prtBad "expected regular module in 'with' clause, not" ext + Module mt0 _ fs me ops0 js <- lookupModMod gr ext let ops1 = ops ++ [o | o <- ops0, notElem (openedModule o) infs] ++ [oQualif i i | i <- map snd insts] ---- + ++ [oSimple i | i <- map snd insts] ---- --- check if me is incomplete - return $ ModMod $ Module mt0 stat' fs me ops1 - (mapTree (qualifInstanceInfo insts) js) + return $ ModMod $ Module mt0 stat' fs me ops1 js + ---- (mapTree (qualifInstanceInfo insts) js) -- not needed _ -> return mi return (i,mi') @@ -72,6 +67,7 @@ checkCompleteInstance abs cnc = ifNull (return ()) (Bad . unlines) $ then id else (("Error: no definition given to" +++ prt f):) +{- ---- should not be needed qualifInstanceInfo :: [(Ident,Ident)] -> (Ident,Info) -> (Ident,Info) qualifInstanceInfo insts (c,i) = (c,qualInfo i) where @@ -95,5 +91,5 @@ qualifInstanceInfo insts (c,i) = (c,qualInfo i) where qualLin (Just (c,(co,t))) = (Just (c,([(x,qual t) | (x,t) <- co], qual t))) qualLin Nothing = Nothing - -- NB constructor patterns never appear in interfaces so we need not rename them +-} diff --git a/src/GF/Compile/Rename.hs b/src/GF/Compile/Rename.hs index 3a0bf5c52..20914ecc1 100644 --- a/src/GF/Compile/Rename.hs +++ b/src/GF/Compile/Rename.hs @@ -33,39 +33,13 @@ renameSourceTerm g m t = do renameModule :: [SourceModule] -> SourceModule -> Err [SourceModule] renameModule ms (name,mod) = errIn ("renaming module" +++ prt name) $ case mod of - ModMod (Module mt st fs me ops js) -> do - (_,mod1@(ModMod m)) <- extendModule ms (name,mod) + ModMod m@(Module mt st fs me ops js) -> do let js1 = jments m - status <- buildStatus (MGrammar ms) name mod1 + status <- buildStatus (MGrammar ms) name mod js2 <- mapMTree (renameInfo status) js1 let mod2 = ModMod $ Module mt st fs me (map forceQualif ops) js2 return $ (name,mod2) : ms -extendModule :: [SourceModule] -> SourceModule -> Err SourceModule -extendModule ms (name,mod) = case mod of - ModMod (Module mt st fs me ops js0) -> do - js <- case mt of -{- --- building the {s : Str} lincat - MTConcrete a -> do - ModMod ma <- lookupModule (MGrammar ms) a - let cats = [c | (c,AbsCat _ _) <- tree2list $ jments ma] - jscs = [(c,CncCat (yes defLinType) nope nope) | c <- cats] - return $ updatesTreeNondestr jscs js0 --} - _ -> return js0 - js1 <- case me of - Just n -> do - m0 <- case lookup n ms of - Just (ModMod m) -> do - testErr (sameMType (mtype m) mt) - ("illegal extension type to module" +++ prt name) - return m - _ -> Bad $ "cannot find extended module" +++ prt n - extendMod n (jments m0) js - _ -> return js - return $ (name,ModMod (Module mt st fs me ops js1)) - - type Status = (StatusTree, [(OpenSpec Ident, StatusTree)]) type StatusTree = BinTree (Ident,StatusInfo) diff --git a/src/GF/Infra/Modules.hs b/src/GF/Infra/Modules.hs index 4eba62283..d2bfae5c1 100644 --- a/src/GF/Infra/Modules.hs +++ b/src/GF/Infra/Modules.hs @@ -63,6 +63,10 @@ updateModule (Module mt ms fs me ops js) i t = replaceJudgements :: Module i f t -> BinTree (i,t) -> Module i f t replaceJudgements (Module mt ms fs me ops _) js = Module mt ms fs me ops js +addOpenQualif :: i -> i -> Module i f t -> Module i f t +addOpenQualif i j (Module mt ms fs me ops js) = + Module mt ms fs me (oQualif i j : ops) js + allFlags :: MGrammar i f a -> [f] allFlags gr = concat $ map flags $ reverse [m | (_, ModMod m) <- modules gr] @@ -191,13 +195,6 @@ data IdentM i = IdentM { typeOfModule mi = case mi of ModMod m -> mtype m -isResourceModule mi = case typeOfModule mi of - MTResource -> True - MTReuse _ -> True - MTInterface -> True --- - MTInstance _ -> True - _ -> False - abstractOfConcrete :: (Show i, Eq i) => MGrammar i f a -> i -> Err i abstractOfConcrete gr c = do m <- lookupModule gr c @@ -232,6 +229,13 @@ lookupModuleType gr m = do mi <- lookupModule gr m return $ typeOfModule mi +lookupModMod :: (Show i,Eq i) => MGrammar i f a -> i -> Err (Module i f a) +lookupModMod gr i = do + mo <- lookupModule gr i + case mo of + ModMod m -> return m + _ -> Bad $ "expected proper module, not" +++ show i + lookupInfo :: (Show i, Ord i) => Module i f a -> i -> Err a lookupInfo mo i = lookupTree show i (jments mo) @@ -241,6 +245,8 @@ isModAbs m = case mtype m of isModRes m = case mtype m of MTResource -> True + MTReuse _ -> True + MTInterface -> True --- MTInstance _ -> True _ -> False @@ -268,3 +274,7 @@ isCompilableModule m = case m of MTInterface -> False _ -> mstatus m == MSComplete _ -> False --- + +-- interface and "incomplete M" are not complete +isCompleteModule :: (Eq i) => Module i f a -> Bool +isCompleteModule m = mstatus m == MSComplete && mtype m /= MTInterface diff --git a/src/GF/Shell/Commands.hs b/src/GF/Shell/Commands.hs index e6f7e9b40..4fb3048ee 100644 --- a/src/GF/Shell/Commands.hs +++ b/src/GF/Shell/Commands.hs @@ -409,8 +409,9 @@ displaySStateIn env state = (tree',msg,menu) where linAll = map lin grs separ = singleton . map unlines . intersperse [replicate 72 '*'] -displaySStateJavaX :: CEnv -> SState -> String -displaySStateJavaX env state = unlines $ tagXML "gfedit" $ concat [ +---- the Boolean is a temporary hack to have two parallel GUIs +displaySStateJavaX :: Bool -> CEnv -> SState -> String +displaySStateJavaX isNew env state = unlines $ tagXML "gfedit" $ concat [ tagXML "linearizations" (concat [tagAttrXML "lin" ("lang", prLanguage lang) ss | (lang,ss) <- lins]), tagXML "tree" tree, @@ -431,7 +432,7 @@ displaySStateJavaX env state = unlines $ tagXML "gfedit" $ concat [ zipper = stateSState state linAll = map lin lgrs gr = firstStateGrammar env - mark = markOptXML -- markOptJava + mark = if isNew then markOptXML else markOptJava langAbstract = language "Abstract" langXML = language "XML" diff --git a/src/GF/Shell/JGF.hs b/src/GF/Shell/JGF.hs index 93c0868ac..309ee40c9 100644 --- a/src/GF/Shell/JGF.hs +++ b/src/GF/Shell/JGF.hs @@ -16,34 +16,34 @@ import UTF8 -- GF editing session controlled by e.g. a Java program. AR 16/11/2001 -sessionLineJ :: ShellState -> IO () -sessionLineJ env = do +---- the Boolean is a temporary hack to have two parallel GUIs +sessionLineJ :: Bool -> ShellState -> IO () +sessionLineJ isNew env = do putStrLnFlush $ initEditMsgJavaX env let env' = addGlobalOptions (options [sizeDisplay "short"]) env - editLoopJ env' (initSState) - -editLoopJ :: CEnv -> SState -> IO () -editLoopJ = editLoopJnewX + editLoopJnewX isNew env' (initSState) -- this is the real version, with XML -editLoopJnewX :: CEnv -> SState -> IO () -editLoopJnewX env state = do +---- the Boolean is a temporary hack to have two parallel GUIs +editLoopJnewX :: Bool -> CEnv -> SState -> IO () +editLoopJnewX isNew env state = do c <- getCommandUTF case c of CQuit -> return () c -> do (env',state') <- execCommand env c state + let inits = initAndEditMsgJavaX isNew env' state' let package = case c of - CCEnvImport _ -> initAndEditMsgJavaX env' state' - CCEnvEmptyAndImport _ -> initAndEditMsgJavaX env' state' - CCEnvOpenTerm _ -> initAndEditMsgJavaX env' state' - CCEnvOpenString _ -> initAndEditMsgJavaX env' state' + CCEnvImport _ -> inits + CCEnvEmptyAndImport _ -> inits + CCEnvOpenTerm _ -> inits + CCEnvOpenString _ -> inits CCEnvEmpty -> initEditMsgJavaX env' - _ -> displaySStateJavaX env' state' + _ -> displaySStateJavaX isNew env' state' putStrLnFlush package - editLoopJnewX env' state' + editLoopJnewX isNew env' state' welcome = "An experimental GF Editor for Java." ++ @@ -56,5 +56,5 @@ initEditMsgJavaX env = encodeUTF8 $ unlines $ tagXML "gfinit" $ concat [tagAttrXML "language" ("file",file) [prLanguage lang] | (file,lang) <- zip (allGrammarFileNames env) (allLanguages env)] -initAndEditMsgJavaX env state = - initEditMsgJavaX env ++++ displaySStateJavaX env state +initAndEditMsgJavaX isNew env state = + initEditMsgJavaX env ++++ displaySStateJavaX isNew env state diff --git a/src/GF/Source/ParGF.hs b/src/GF/Source/ParGF.hs new file mode 100644 index 000000000..377906fe3 --- /dev/null +++ b/src/GF/Source/ParGF.hs @@ -0,0 +1,3045 @@ +{-# OPTIONS -fglasgow-exts -cpp #-} +-- parser produced by Happy Version 1.13 + +module ParGF where +import AbsGF +import LexGF +import Ident --H +import ErrM +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) +happyIn7 x = unsafeCoerce# x +{-# INLINE happyIn7 #-} +happyOut7 :: (HappyAbsSyn t7 t8 t9 t10) -> t7 +happyOut7 x = unsafeCoerce# x +{-# INLINE happyOut7 #-} +happyIn8 :: t8 -> (HappyAbsSyn t7 t8 t9 t10) +happyIn8 x = unsafeCoerce# x +{-# INLINE happyIn8 #-} +happyOut8 :: (HappyAbsSyn t7 t8 t9 t10) -> t8 +happyOut8 x = unsafeCoerce# x +{-# INLINE happyOut8 #-} +happyIn9 :: t9 -> (HappyAbsSyn t7 t8 t9 t10) +happyIn9 x = unsafeCoerce# x +{-# INLINE happyIn9 #-} +happyOut9 :: (HappyAbsSyn t7 t8 t9 t10) -> t9 +happyOut9 x = unsafeCoerce# x +{-# INLINE happyOut9 #-} +happyIn10 :: t10 -> (HappyAbsSyn t7 t8 t9 t10) +happyIn10 x = unsafeCoerce# x +{-# INLINE happyIn10 #-} +happyOut10 :: (HappyAbsSyn t7 t8 t9 t10) -> t10 +happyOut10 x = unsafeCoerce# x +{-# INLINE happyOut10 #-} +happyIn11 :: (Grammar) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn11 x = unsafeCoerce# x +{-# INLINE happyIn11 #-} +happyOut11 :: (HappyAbsSyn t7 t8 t9 t10) -> (Grammar) +happyOut11 x = unsafeCoerce# x +{-# INLINE happyOut11 #-} +happyIn12 :: ([ModDef]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn12 x = unsafeCoerce# x +{-# INLINE happyIn12 #-} +happyOut12 :: (HappyAbsSyn t7 t8 t9 t10) -> ([ModDef]) +happyOut12 x = unsafeCoerce# x +{-# INLINE happyOut12 #-} +happyIn13 :: (ModDef) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn13 x = unsafeCoerce# x +{-# INLINE happyIn13 #-} +happyOut13 :: (HappyAbsSyn t7 t8 t9 t10) -> (ModDef) +happyOut13 x = unsafeCoerce# x +{-# INLINE happyOut13 #-} +happyIn14 :: (ConcSpec) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn14 x = unsafeCoerce# x +{-# INLINE happyIn14 #-} +happyOut14 :: (HappyAbsSyn t7 t8 t9 t10) -> (ConcSpec) +happyOut14 x = unsafeCoerce# x +{-# INLINE happyOut14 #-} +happyIn15 :: ([ConcSpec]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn15 x = unsafeCoerce# x +{-# INLINE happyIn15 #-} +happyOut15 :: (HappyAbsSyn t7 t8 t9 t10) -> ([ConcSpec]) +happyOut15 x = unsafeCoerce# x +{-# INLINE happyOut15 #-} +happyIn16 :: (ConcExp) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn16 x = unsafeCoerce# x +{-# INLINE happyIn16 #-} +happyOut16 :: (HappyAbsSyn t7 t8 t9 t10) -> (ConcExp) +happyOut16 x = unsafeCoerce# x +{-# INLINE happyOut16 #-} +happyIn17 :: ([Transfer]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn17 x = unsafeCoerce# x +{-# INLINE happyIn17 #-} +happyOut17 :: (HappyAbsSyn t7 t8 t9 t10) -> ([Transfer]) +happyOut17 x = unsafeCoerce# x +{-# INLINE happyOut17 #-} +happyIn18 :: (Transfer) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn18 x = unsafeCoerce# x +{-# INLINE happyIn18 #-} +happyOut18 :: (HappyAbsSyn t7 t8 t9 t10) -> (Transfer) +happyOut18 x = unsafeCoerce# x +{-# INLINE happyOut18 #-} +happyIn19 :: (ModType) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn19 x = unsafeCoerce# x +{-# INLINE happyIn19 #-} +happyOut19 :: (HappyAbsSyn t7 t8 t9 t10) -> (ModType) +happyOut19 x = unsafeCoerce# x +{-# INLINE happyOut19 #-} +happyIn20 :: (ModBody) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn20 x = unsafeCoerce# x +{-# INLINE happyIn20 #-} +happyOut20 :: (HappyAbsSyn t7 t8 t9 t10) -> (ModBody) +happyOut20 x = unsafeCoerce# x +{-# INLINE happyOut20 #-} +happyIn21 :: ([TopDef]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn21 x = unsafeCoerce# x +{-# INLINE happyIn21 #-} +happyOut21 :: (HappyAbsSyn t7 t8 t9 t10) -> ([TopDef]) +happyOut21 x = unsafeCoerce# x +{-# INLINE happyOut21 #-} +happyIn22 :: (Extend) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn22 x = unsafeCoerce# x +{-# INLINE happyIn22 #-} +happyOut22 :: (HappyAbsSyn t7 t8 t9 t10) -> (Extend) +happyOut22 x = unsafeCoerce# x +{-# INLINE happyOut22 #-} +happyIn23 :: ([Open]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn23 x = unsafeCoerce# x +{-# INLINE happyIn23 #-} +happyOut23 :: (HappyAbsSyn t7 t8 t9 t10) -> ([Open]) +happyOut23 x = unsafeCoerce# x +{-# INLINE happyOut23 #-} +happyIn24 :: (Opens) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn24 x = unsafeCoerce# x +{-# INLINE happyIn24 #-} +happyOut24 :: (HappyAbsSyn t7 t8 t9 t10) -> (Opens) +happyOut24 x = unsafeCoerce# x +{-# INLINE happyOut24 #-} +happyIn25 :: (Open) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn25 x = unsafeCoerce# x +{-# INLINE happyIn25 #-} +happyOut25 :: (HappyAbsSyn t7 t8 t9 t10) -> (Open) +happyOut25 x = unsafeCoerce# x +{-# INLINE happyOut25 #-} +happyIn26 :: (ComplMod) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn26 x = unsafeCoerce# x +{-# INLINE happyIn26 #-} +happyOut26 :: (HappyAbsSyn t7 t8 t9 t10) -> (ComplMod) +happyOut26 x = unsafeCoerce# x +{-# INLINE happyOut26 #-} +happyIn27 :: (QualOpen) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn27 x = unsafeCoerce# x +{-# INLINE happyIn27 #-} +happyOut27 :: (HappyAbsSyn t7 t8 t9 t10) -> (QualOpen) +happyOut27 x = unsafeCoerce# x +{-# INLINE happyOut27 #-} +happyIn28 :: (Def) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn28 x = unsafeCoerce# x +{-# INLINE happyIn28 #-} +happyOut28 :: (HappyAbsSyn t7 t8 t9 t10) -> (Def) +happyOut28 x = unsafeCoerce# x +{-# INLINE happyOut28 #-} +happyIn29 :: (TopDef) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn29 x = unsafeCoerce# x +{-# INLINE happyIn29 #-} +happyOut29 :: (HappyAbsSyn t7 t8 t9 t10) -> (TopDef) +happyOut29 x = unsafeCoerce# x +{-# INLINE happyOut29 #-} +happyIn30 :: (CatDef) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn30 x = unsafeCoerce# x +{-# INLINE happyIn30 #-} +happyOut30 :: (HappyAbsSyn t7 t8 t9 t10) -> (CatDef) +happyOut30 x = unsafeCoerce# x +{-# INLINE happyOut30 #-} +happyIn31 :: (FunDef) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn31 x = unsafeCoerce# x +{-# INLINE happyIn31 #-} +happyOut31 :: (HappyAbsSyn t7 t8 t9 t10) -> (FunDef) +happyOut31 x = unsafeCoerce# x +{-# INLINE happyOut31 #-} +happyIn32 :: (DataDef) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn32 x = unsafeCoerce# x +{-# INLINE happyIn32 #-} +happyOut32 :: (HappyAbsSyn t7 t8 t9 t10) -> (DataDef) +happyOut32 x = unsafeCoerce# x +{-# INLINE happyOut32 #-} +happyIn33 :: (DataConstr) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn33 x = unsafeCoerce# x +{-# INLINE happyIn33 #-} +happyOut33 :: (HappyAbsSyn t7 t8 t9 t10) -> (DataConstr) +happyOut33 x = unsafeCoerce# x +{-# INLINE happyOut33 #-} +happyIn34 :: ([DataConstr]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn34 x = unsafeCoerce# x +{-# INLINE happyIn34 #-} +happyOut34 :: (HappyAbsSyn t7 t8 t9 t10) -> ([DataConstr]) +happyOut34 x = unsafeCoerce# x +{-# INLINE happyOut34 #-} +happyIn35 :: (ParDef) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn35 x = unsafeCoerce# x +{-# INLINE happyIn35 #-} +happyOut35 :: (HappyAbsSyn t7 t8 t9 t10) -> (ParDef) +happyOut35 x = unsafeCoerce# x +{-# INLINE happyOut35 #-} +happyIn36 :: (ParConstr) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn36 x = unsafeCoerce# x +{-# INLINE happyIn36 #-} +happyOut36 :: (HappyAbsSyn t7 t8 t9 t10) -> (ParConstr) +happyOut36 x = unsafeCoerce# x +{-# INLINE happyOut36 #-} +happyIn37 :: (PrintDef) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn37 x = unsafeCoerce# x +{-# INLINE happyIn37 #-} +happyOut37 :: (HappyAbsSyn t7 t8 t9 t10) -> (PrintDef) +happyOut37 x = unsafeCoerce# x +{-# INLINE happyOut37 #-} +happyIn38 :: (FlagDef) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn38 x = unsafeCoerce# x +{-# INLINE happyIn38 #-} +happyOut38 :: (HappyAbsSyn t7 t8 t9 t10) -> (FlagDef) +happyOut38 x = unsafeCoerce# x +{-# INLINE happyOut38 #-} +happyIn39 :: ([Def]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn39 x = unsafeCoerce# x +{-# INLINE happyIn39 #-} +happyOut39 :: (HappyAbsSyn t7 t8 t9 t10) -> ([Def]) +happyOut39 x = unsafeCoerce# x +{-# INLINE happyOut39 #-} +happyIn40 :: ([CatDef]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn40 x = unsafeCoerce# x +{-# INLINE happyIn40 #-} +happyOut40 :: (HappyAbsSyn t7 t8 t9 t10) -> ([CatDef]) +happyOut40 x = unsafeCoerce# x +{-# INLINE happyOut40 #-} +happyIn41 :: ([FunDef]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn41 x = unsafeCoerce# x +{-# INLINE happyIn41 #-} +happyOut41 :: (HappyAbsSyn t7 t8 t9 t10) -> ([FunDef]) +happyOut41 x = unsafeCoerce# x +{-# INLINE happyOut41 #-} +happyIn42 :: ([DataDef]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn42 x = unsafeCoerce# x +{-# INLINE happyIn42 #-} +happyOut42 :: (HappyAbsSyn t7 t8 t9 t10) -> ([DataDef]) +happyOut42 x = unsafeCoerce# x +{-# INLINE happyOut42 #-} +happyIn43 :: ([ParDef]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn43 x = unsafeCoerce# x +{-# INLINE happyIn43 #-} +happyOut43 :: (HappyAbsSyn t7 t8 t9 t10) -> ([ParDef]) +happyOut43 x = unsafeCoerce# x +{-# INLINE happyOut43 #-} +happyIn44 :: ([PrintDef]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn44 x = unsafeCoerce# x +{-# INLINE happyIn44 #-} +happyOut44 :: (HappyAbsSyn t7 t8 t9 t10) -> ([PrintDef]) +happyOut44 x = unsafeCoerce# x +{-# INLINE happyOut44 #-} +happyIn45 :: ([FlagDef]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn45 x = unsafeCoerce# x +{-# INLINE happyIn45 #-} +happyOut45 :: (HappyAbsSyn t7 t8 t9 t10) -> ([FlagDef]) +happyOut45 x = unsafeCoerce# x +{-# INLINE happyOut45 #-} +happyIn46 :: ([ParConstr]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn46 x = unsafeCoerce# x +{-# INLINE happyIn46 #-} +happyOut46 :: (HappyAbsSyn t7 t8 t9 t10) -> ([ParConstr]) +happyOut46 x = unsafeCoerce# x +{-# INLINE happyOut46 #-} +happyIn47 :: ([Ident]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn47 x = unsafeCoerce# x +{-# INLINE happyIn47 #-} +happyOut47 :: (HappyAbsSyn t7 t8 t9 t10) -> ([Ident]) +happyOut47 x = unsafeCoerce# x +{-# INLINE happyOut47 #-} +happyIn48 :: (LocDef) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn48 x = unsafeCoerce# x +{-# INLINE happyIn48 #-} +happyOut48 :: (HappyAbsSyn t7 t8 t9 t10) -> (LocDef) +happyOut48 x = unsafeCoerce# x +{-# INLINE happyOut48 #-} +happyIn49 :: ([LocDef]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn49 x = unsafeCoerce# x +{-# INLINE happyIn49 #-} +happyOut49 :: (HappyAbsSyn t7 t8 t9 t10) -> ([LocDef]) +happyOut49 x = unsafeCoerce# x +{-# INLINE happyOut49 #-} +happyIn50 :: (Exp) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn50 x = unsafeCoerce# x +{-# INLINE happyIn50 #-} +happyOut50 :: (HappyAbsSyn t7 t8 t9 t10) -> (Exp) +happyOut50 x = unsafeCoerce# x +{-# INLINE happyOut50 #-} +happyIn51 :: (Exp) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn51 x = unsafeCoerce# x +{-# INLINE happyIn51 #-} +happyOut51 :: (HappyAbsSyn t7 t8 t9 t10) -> (Exp) +happyOut51 x = unsafeCoerce# x +{-# INLINE happyOut51 #-} +happyIn52 :: (Exp) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn52 x = unsafeCoerce# x +{-# INLINE happyIn52 #-} +happyOut52 :: (HappyAbsSyn t7 t8 t9 t10) -> (Exp) +happyOut52 x = unsafeCoerce# x +{-# INLINE happyOut52 #-} +happyIn53 :: (Exp) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn53 x = unsafeCoerce# x +{-# INLINE happyIn53 #-} +happyOut53 :: (HappyAbsSyn t7 t8 t9 t10) -> (Exp) +happyOut53 x = unsafeCoerce# x +{-# INLINE happyOut53 #-} +happyIn54 :: (Exp) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn54 x = unsafeCoerce# x +{-# INLINE happyIn54 #-} +happyOut54 :: (HappyAbsSyn t7 t8 t9 t10) -> (Exp) +happyOut54 x = unsafeCoerce# x +{-# INLINE happyOut54 #-} +happyIn55 :: ([Exp]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn55 x = unsafeCoerce# x +{-# INLINE happyIn55 #-} +happyOut55 :: (HappyAbsSyn t7 t8 t9 t10) -> ([Exp]) +happyOut55 x = unsafeCoerce# x +{-# INLINE happyOut55 #-} +happyIn56 :: (Patt) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn56 x = unsafeCoerce# x +{-# INLINE happyIn56 #-} +happyOut56 :: (HappyAbsSyn t7 t8 t9 t10) -> (Patt) +happyOut56 x = unsafeCoerce# x +{-# INLINE happyOut56 #-} +happyIn57 :: (Patt) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn57 x = unsafeCoerce# x +{-# INLINE happyIn57 #-} +happyOut57 :: (HappyAbsSyn t7 t8 t9 t10) -> (Patt) +happyOut57 x = unsafeCoerce# x +{-# INLINE happyOut57 #-} +happyIn58 :: (PattAss) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn58 x = unsafeCoerce# x +{-# INLINE happyIn58 #-} +happyOut58 :: (HappyAbsSyn t7 t8 t9 t10) -> (PattAss) +happyOut58 x = unsafeCoerce# x +{-# INLINE happyOut58 #-} +happyIn59 :: (Label) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn59 x = unsafeCoerce# x +{-# INLINE happyIn59 #-} +happyOut59 :: (HappyAbsSyn t7 t8 t9 t10) -> (Label) +happyOut59 x = unsafeCoerce# x +{-# INLINE happyOut59 #-} +happyIn60 :: (Sort) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn60 x = unsafeCoerce# x +{-# INLINE happyIn60 #-} +happyOut60 :: (HappyAbsSyn t7 t8 t9 t10) -> (Sort) +happyOut60 x = unsafeCoerce# x +{-# INLINE happyOut60 #-} +happyIn61 :: ([PattAss]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn61 x = unsafeCoerce# x +{-# INLINE happyIn61 #-} +happyOut61 :: (HappyAbsSyn t7 t8 t9 t10) -> ([PattAss]) +happyOut61 x = unsafeCoerce# x +{-# INLINE happyOut61 #-} +happyIn62 :: (PattAlt) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn62 x = unsafeCoerce# x +{-# INLINE happyIn62 #-} +happyOut62 :: (HappyAbsSyn t7 t8 t9 t10) -> (PattAlt) +happyOut62 x = unsafeCoerce# x +{-# INLINE happyOut62 #-} +happyIn63 :: ([Patt]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn63 x = unsafeCoerce# x +{-# INLINE happyIn63 #-} +happyOut63 :: (HappyAbsSyn t7 t8 t9 t10) -> ([Patt]) +happyOut63 x = unsafeCoerce# x +{-# INLINE happyOut63 #-} +happyIn64 :: ([PattAlt]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn64 x = unsafeCoerce# x +{-# INLINE happyIn64 #-} +happyOut64 :: (HappyAbsSyn t7 t8 t9 t10) -> ([PattAlt]) +happyOut64 x = unsafeCoerce# x +{-# INLINE happyOut64 #-} +happyIn65 :: (Bind) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn65 x = unsafeCoerce# x +{-# INLINE happyIn65 #-} +happyOut65 :: (HappyAbsSyn t7 t8 t9 t10) -> (Bind) +happyOut65 x = unsafeCoerce# x +{-# INLINE happyOut65 #-} +happyIn66 :: ([Bind]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn66 x = unsafeCoerce# x +{-# INLINE happyIn66 #-} +happyOut66 :: (HappyAbsSyn t7 t8 t9 t10) -> ([Bind]) +happyOut66 x = unsafeCoerce# x +{-# INLINE happyOut66 #-} +happyIn67 :: (Decl) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn67 x = unsafeCoerce# x +{-# INLINE happyIn67 #-} +happyOut67 :: (HappyAbsSyn t7 t8 t9 t10) -> (Decl) +happyOut67 x = unsafeCoerce# x +{-# INLINE happyOut67 #-} +happyIn68 :: (TupleComp) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn68 x = unsafeCoerce# x +{-# INLINE happyIn68 #-} +happyOut68 :: (HappyAbsSyn t7 t8 t9 t10) -> (TupleComp) +happyOut68 x = unsafeCoerce# x +{-# INLINE happyOut68 #-} +happyIn69 :: (PattTupleComp) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn69 x = unsafeCoerce# x +{-# INLINE happyIn69 #-} +happyOut69 :: (HappyAbsSyn t7 t8 t9 t10) -> (PattTupleComp) +happyOut69 x = unsafeCoerce# x +{-# INLINE happyOut69 #-} +happyIn70 :: ([TupleComp]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn70 x = unsafeCoerce# x +{-# INLINE happyIn70 #-} +happyOut70 :: (HappyAbsSyn t7 t8 t9 t10) -> ([TupleComp]) +happyOut70 x = unsafeCoerce# x +{-# INLINE happyOut70 #-} +happyIn71 :: ([PattTupleComp]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn71 x = unsafeCoerce# x +{-# INLINE happyIn71 #-} +happyOut71 :: (HappyAbsSyn t7 t8 t9 t10) -> ([PattTupleComp]) +happyOut71 x = unsafeCoerce# x +{-# INLINE happyOut71 #-} +happyIn72 :: (Case) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn72 x = unsafeCoerce# x +{-# INLINE happyIn72 #-} +happyOut72 :: (HappyAbsSyn t7 t8 t9 t10) -> (Case) +happyOut72 x = unsafeCoerce# x +{-# INLINE happyOut72 #-} +happyIn73 :: ([Case]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn73 x = unsafeCoerce# x +{-# INLINE happyIn73 #-} +happyOut73 :: (HappyAbsSyn t7 t8 t9 t10) -> ([Case]) +happyOut73 x = unsafeCoerce# x +{-# INLINE happyOut73 #-} +happyIn74 :: (Equation) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn74 x = unsafeCoerce# x +{-# INLINE happyIn74 #-} +happyOut74 :: (HappyAbsSyn t7 t8 t9 t10) -> (Equation) +happyOut74 x = unsafeCoerce# x +{-# INLINE happyOut74 #-} +happyIn75 :: ([Equation]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn75 x = unsafeCoerce# x +{-# INLINE happyIn75 #-} +happyOut75 :: (HappyAbsSyn t7 t8 t9 t10) -> ([Equation]) +happyOut75 x = unsafeCoerce# x +{-# INLINE happyOut75 #-} +happyIn76 :: (Altern) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn76 x = unsafeCoerce# x +{-# INLINE happyIn76 #-} +happyOut76 :: (HappyAbsSyn t7 t8 t9 t10) -> (Altern) +happyOut76 x = unsafeCoerce# x +{-# INLINE happyOut76 #-} +happyIn77 :: ([Altern]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn77 x = unsafeCoerce# x +{-# INLINE happyIn77 #-} +happyOut77 :: (HappyAbsSyn t7 t8 t9 t10) -> ([Altern]) +happyOut77 x = unsafeCoerce# x +{-# INLINE happyOut77 #-} +happyIn78 :: (DDecl) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn78 x = unsafeCoerce# x +{-# INLINE happyIn78 #-} +happyOut78 :: (HappyAbsSyn t7 t8 t9 t10) -> (DDecl) +happyOut78 x = unsafeCoerce# x +{-# INLINE happyOut78 #-} +happyIn79 :: ([DDecl]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn79 x = unsafeCoerce# x +{-# INLINE happyIn79 #-} +happyOut79 :: (HappyAbsSyn t7 t8 t9 t10) -> ([DDecl]) +happyOut79 x = unsafeCoerce# x +{-# INLINE happyOut79 #-} +happyIn80 :: (OldGrammar) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn80 x = unsafeCoerce# x +{-# INLINE happyIn80 #-} +happyOut80 :: (HappyAbsSyn t7 t8 t9 t10) -> (OldGrammar) +happyOut80 x = unsafeCoerce# x +{-# INLINE happyOut80 #-} +happyIn81 :: (Include) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn81 x = unsafeCoerce# x +{-# INLINE happyIn81 #-} +happyOut81 :: (HappyAbsSyn t7 t8 t9 t10) -> (Include) +happyOut81 x = unsafeCoerce# x +{-# INLINE happyOut81 #-} +happyIn82 :: (FileName) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn82 x = unsafeCoerce# x +{-# INLINE happyIn82 #-} +happyOut82 :: (HappyAbsSyn t7 t8 t9 t10) -> (FileName) +happyOut82 x = unsafeCoerce# x +{-# INLINE happyOut82 #-} +happyIn83 :: ([FileName]) -> (HappyAbsSyn t7 t8 t9 t10) +happyIn83 x = unsafeCoerce# x +{-# INLINE happyIn83 #-} +happyOut83 :: (HappyAbsSyn t7 t8 t9 t10) -> ([FileName]) +happyOut83 x = unsafeCoerce# x +{-# INLINE happyOut83 #-} +happyInTok :: Token -> (HappyAbsSyn t7 t8 t9 t10) +happyInTok x = unsafeCoerce# x +{-# INLINE happyInTok #-} +happyOutTok :: (HappyAbsSyn t7 t8 t9 t10) -> Token +happyOutTok x = unsafeCoerce# x +{-# INLINE happyOutTok #-} + +happyActOffsets :: HappyAddr +happyActOffsets = HappyA# "\x00\x00\xb1\x01\xa1\x04\x84\x00\x8a\x04\x00\x00\xc0\x04\x00\x00\x00\x00\x00\x00\x00\x00\xc8\x04\xd0\x00\xa3\x01\x84\x04\x00\x00\xc6\x04\x86\x04\x18\x00\x6b\x00\x00\x00\x84\x00\xfd\xff\x86\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x84\x00\xc9\x04\x10\x00\xc7\x04\xc5\x04\x06\x01\xc4\x04\x00\x00\x00\x00\x00\x00\x79\x04\x00\x00\x68\x00\x0c\x00\x6b\x04\x82\x04\x00\x00\x76\x04\x6c\x01\xbf\x04\xbd\x04\xb8\x04\x72\x04\x72\x04\x72\x04\x72\x04\x72\x04\x72\x04\x00\x00\x68\x00\x00\x00\xb6\x04\x00\x00\x68\x00\x68\x00\x68\x00\x88\x04\x84\x00\x00\x00\xb5\x04\x3c\x01\x4e\x00\x6b\x00\x84\x00\x84\x00\xac\x04\x99\x00\xb4\x04\x85\x04\x6d\x04\x3c\x01\x71\x04\x00\x00\x00\x00\xa2\x04\x9f\x04\xff\xff\x00\x00\x9e\x04\x98\x04\x93\x04\x15\x01\x92\x04\x00\x00\xbe\x01\x99\x04\x8e\x04\x56\x04\x47\x01\x96\x04\x84\x00\x9a\x00\x9a\x00\x9a\x00\x84\x00\x84\x00\x84\x00\x91\x04\x80\x04\x65\x00\xfd\x00\x00\x00\x52\x04\x00\x00\x00\x00\x0c\x04\x29\x04\x00\x00\x00\x00\x00\x00\xe6\x00\xe6\x00\xe6\x00\x00\x00\x00\x00\x00\x00\x29\x04\x29\x04\x51\x04\x84\x00\x00\x00\x00\x00\x22\x04\x00\x00\x00\x00\x84\x00\x84\x00\x42\x04\x84\x00\xff\xff\x4d\x04\x46\x04\x00\x00\x00\x00\x3c\x01\x45\x04\x32\x04\x30\x04\xe6\x03\x3c\x01\x3c\x01\x00\x00\x28\x04\x84\x00\xda\x03\x84\x00\x84\x00\x15\x04\x14\x04\x10\x04\x04\x04\x5f\x01\x00\x00\x00\x00\x05\x04\xfd\x03\x0e\x04\x00\x04\x3c\x01\xfc\x03\x00\x00\xbc\x03\xbc\x03\xbc\x03\xbc\x03\xbc\x03\xbc\x03\xbc\x03\xbc\x03\xbc\x03\xbc\x03\xbc\x03\xbc\x03\xf4\xff\xbc\x03\x00\x00\x00\x00\x00\x00\x68\x00\x00\x00\xfb\x03\x00\x00\x00\x00\xca\x03\xc8\x03\x00\x00\xd5\xff\xfa\x03\xce\x03\x2b\x00\x00\x00\xb3\x03\xa3\x03\xa3\x03\xa3\x03\x2e\x00\x00\x00\x77\x01\xe8\x03\x00\x00\x29\x00\xd3\x03\x00\x00\xdf\x03\x7a\x03\x7a\x03\x00\x00\xdd\x03\xd2\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xcf\x03\x00\x00\xcb\x03\xcd\x03\xcc\x03\x00\x00\x00\x00\xc0\x03\xbf\x03\x00\x00\x00\x00\xbe\x03\x00\x00\x00\x00\x69\x01\xba\x03\x00\x00\x3c\x01\x84\x00\x3c\x01\x00\x00\x76\x03\x00\x00\x84\x00\x84\x00\xb9\x03\x00\x00\x00\x00\x00\x00\x82\x03\x00\x00\x9f\x03\x97\x03\xa1\x03\x79\x02\x9d\x03\x9c\x03\x8e\x03\x00\x00\x3c\x01\x84\x00\x00\x00\x4a\x03\x3c\x01\x00\x00\x00\x00\x84\x00\x7f\x03\x00\x00\x00\x00\x7d\x03\x79\x03\x00\x00\x8b\x03\x00\x00\x8a\x03\x00\x00\xf8\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x7c\x03\x00\x00\x00\x00\x00\x00\x00\x00\x37\x03\x3c\x01\x00\x00\x00\x00\x00\x00\x3c\x01\x84\x00\x84\x00\x62\x03\x7b\x03\x77\x03\x00\x00\x3c\x01\x00\x00\x00\x00\x00\x00\x00\x00\x32\x03\x1f\x00\x32\x03\x32\x03\x32\x03\x32\x03\x84\x00\x32\x03\x32\x03\x2d\x00\x00\x00\x00\x00\x84\x00\x32\x03\x84\x00\x84\x00\x32\x03\x5b\x03\x00\x00\x53\x03\xe3\x00\x00\x00\x00\x00\x00\x00\x4b\x03\x1e\x00\x00\x00\x1e\x00\x4e\x03\x08\x03\x00\x00\x43\x03\x11\x03\x00\x00\x04\x03\x00\x00\x00\x00\x1e\x00\x84\x00\x00\x00\x3b\x03\x00\x00\x00\x00\x00\x00\x00\x00\x2b\x03\x00\x00\xfe\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x03\x0d\x03\x00\x00\x00\x00\x00\x00\x00\x00\x18\x00\x00\x00\x00\x00\x00\x00\x84\x00\x84\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x07\x03\xc6\x02\xc6\x02\xc6\x02\xc6\x02\x1f\x00\x84\x00\x00\x00\x00\x00\xf9\x00\xc5\x01\x00\x00\x1e\x00\x06\x03\xc2\x02\x00\x00\x00\x00\xc2\x02\x00\x00\x00\x00\x00\x00\xf6\x02\x00\x00\x00\x00\x84\x00\xef\x02\x00\x00\xe3\x02\xe1\x02\xd6\x02\xd5\x02\x00\x00\x84\x02\x84\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xc0\x02\x00\x00\x76\x02\xba\x00\x1e\x00\x1e\x00\xad\x02\x9b\x02\x00\x00\x00\x00\x00\x00"# + +happyGotoOffsets :: HappyAddr +happyGotoOffsets = HappyA# "\x64\x02\xaf\x00\xdf\x01\x2f\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xb5\x02\x00\x00\x00\x00\x00\x00\x00\x00\xfb\x02\x2b\x02\x24\x02\x00\x00\x04\x02\x4b\x00\x9e\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x1d\x04\x00\x00\xe2\x02\x00\x00\x00\x00\x39\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x87\x02\x03\x00\x00\x00\x83\x02\x72\x02\x00\x00\x00\x00\x64\x00\x00\x00\x00\x00\x00\x00\x6a\x02\x5f\x02\x4d\x02\x42\x02\x3f\x02\x3d\x02\x00\x00\x0b\x00\x00\x00\x00\x00\x00\x00\x09\x00\x07\x00\x05\x00\xe9\x01\x6d\x02\x00\x00\x00\x00\x8b\x01\x0b\x04\x15\x02\x5b\x02\xf9\x03\x00\x00\x00\x00\x00\x00\x00\x00\x9f\x02\x8c\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x47\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xf1\x01\x00\x00\x00\x00\xed\x03\x61\x02\x4f\x02\x09\x02\xdb\x03\xc9\x03\xb7\x03\x00\x00\x00\x00\x0f\x00\xf7\x02\x00\x00\x49\x01\x00\x00\x00\x00\xfb\x01\x01\x01\x00\x00\x00\x00\x00\x00\xb5\x02\xb5\x02\xb5\x02\x00\x00\x00\x00\x00\x00\x76\x00\xdc\x01\x00\x00\xab\x03\x00\x00\x00\x00\xd8\x01\x00\x00\x00\x00\xe3\x01\x99\x03\x00\x00\x87\x03\x0e\x00\x00\x00\x00\x00\x00\x00\x00\x00\x44\x04\x00\x00\x00\x00\x00\x00\xeb\x01\xf5\x01\xa9\x01\x00\x00\x00\x00\x75\x03\xd4\x00\x69\x03\x57\x03\x00\x00\x00\x00\x00\x00\x00\x00\x41\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xa0\x01\x00\x00\x00\x00\xd1\x03\x8d\x03\x83\x04\xc7\x00\x6a\x04\x81\x04\x62\x04\x7e\x04\x6f\x04\x68\x04\x49\x03\x65\x04\x61\x04\x4e\x04\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x11\x00\x00\x00\x00\x00\x00\x00\x00\x00\xba\x01\xc1\x01\xae\x01\x8e\x01\xd6\x00\x00\x00\x3b\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x53\x04\x4f\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x37\x01\x00\x00\x00\x00\x00\x00\xf2\x01\x00\x00\x00\x00\x9d\x01\x45\x03\x3a\x02\x00\x00\x7d\x01\x00\x00\x49\x02\x31\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\x7c\x00\x33\x03\x00\x00\x56\x01\x58\x01\x00\x00\x00\x00\x27\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\x48\x01\x36\x01\x00\x00\x00\x00\x00\x00\x95\x01\x15\x03\x03\x03\x00\x00\x00\x00\x00\x00\x00\x00\x92\x01\x00\x00\x00\x00\x00\x00\x00\x00\x40\x01\xf7\x00\x42\x01\x4c\x03\xab\x00\x35\x01\xf1\x02\x3e\x04\x80\x01\x88\x01\x00\x00\x00\x00\xe5\x02\xef\x01\xd3\x02\xc1\x02\x3f\x04\x00\x00\x00\x00\x00\x00\x0d\x01\x00\x00\x00\x00\x00\x00\x00\x00\xba\x02\x00\x00\xda\x00\x00\x00\x03\x01\x00\x00\x00\x00\x00\x00\xd7\x00\xd2\x00\x00\x00\x00\x00\xb1\x00\xaf\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x91\x00\x00\x00\x00\x00\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\x02\x00\x00\x00\x00\x00\x00\x0e\x01\xa3\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x1d\x02\xc9\x00\x7a\x00\x86\x01\xf7\x00\x91\x02\x00\x00\x00\x00\x00\x00\x72\x00\x00\x00\x8a\x00\x00\x00\x23\x04\x00\x00\x00\x00\x1a\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x7f\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xa0\x02\x21\x00\x00\x00\x00\x00\x06\x00\x00\x00\x00\x00\x59\x00\x00\x00\x00\x00\x00\x00\x17\x00\x14\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"# + +happyDefActions :: HappyAddr +happyDefActions = HappyA# "\xf6\xff\xd3\xff\x29\xff\x00\x00\x00\x00\xfb\xff\x93\xff\x8f\xff\x8e\xff\x85\xff\x81\xff\x78\xff\x73\xff\x68\xff\x00\x00\x90\xff\x00\x00\x96\xff\x46\xff\x00\x00\x8d\xff\x3f\xff\x46\xff\x00\x00\x54\xff\x52\xff\x51\xff\x53\xff\x55\xff\x00\x00\x00\x00\x96\xff\x00\x00\x00\x00\x00\x00\x00\x00\xfa\xff\xf9\xff\xf8\xff\x00\x00\xdf\xff\x00\x00\x00\x00\x00\x00\x00\x00\xd2\xff\x00\x00\xd3\xff\xf5\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xf4\xff\x26\xff\x27\xff\x00\x00\x28\xff\x00\x00\x00\x00\x00\x00\x2a\xff\x67\xff\x93\xff\x00\x00\x96\xff\x00\x00\x00\x00\x67\xff\x00\x00\x9b\xff\x00\x00\x95\xff\x00\x00\x96\xff\x35\xff\x00\x00\x77\xff\x48\xff\x45\xff\x00\x00\x46\xff\x47\xff\x41\xff\x3e\xff\x00\x00\x00\x00\x00\x00\x8c\xff\x93\xff\x00\x00\x00\x00\x00\x00\x9b\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\xff\x00\x00\x00\x00\x79\xff\x96\xff\x57\xff\x84\xff\x00\x00\x96\xff\x6d\xff\x6e\xff\x6f\xff\x75\xff\x76\xff\x74\xff\x70\xff\x8a\xff\x92\xff\x00\x00\x00\x00\x00\x00\x00\x00\x86\xff\x8b\xff\x00\x00\x91\xff\x89\xff\x3f\xff\x00\x00\x00\x00\x00\x00\x46\xff\x00\x00\x63\xff\x5f\xff\x60\xff\x4c\xff\x00\x00\x34\xff\x00\x00\x50\xff\x00\x00\x3c\xff\x64\xff\x00\x00\x00\x00\x96\xff\x00\x00\x00\x00\x00\x00\x66\xff\x00\x00\x00\x00\x9b\xff\x59\xff\x4d\xff\x4a\xff\x00\x00\x38\xff\x00\x00\x00\x00\x00\x00\xde\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\x23\xff\x25\xff\x24\xff\x21\xff\x22\xff\x00\x00\xe7\xff\xe6\xff\x00\x00\x00\x00\xe8\xff\xdc\xff\x00\x00\x00\x00\x00\x00\xf2\xff\xd8\xff\x00\x00\x00\x00\x00\x00\x00\x00\x20\xff\x9b\xff\x00\x00\xc6\xff\x00\x00\x00\x00\xbd\xff\x00\x00\x00\x00\x00\x00\xbb\xff\xb0\xff\x00\x00\xc5\xff\xc4\xff\xbc\xff\xc2\xff\xc3\xff\xc1\xff\x00\x00\xc9\xff\x00\x00\x00\x00\x00\x00\xbe\xff\xc8\xff\x00\x00\x00\x00\xc7\xff\x2c\xff\x00\x00\xca\xff\x7c\xff\x63\xff\x00\x00\x7f\xff\x00\x00\x00\x00\x00\x00\x5b\xff\x00\x00\x7a\xff\x67\xff\x31\xff\x99\xff\x98\xff\x94\xff\x6b\xff\x00\x00\x40\xff\x3b\xff\x00\x00\x00\x00\x9b\xff\x00\x00\x4f\xff\x00\x00\x69\xff\x35\xff\x00\x00\x4b\xff\x00\x00\x00\x00\x44\xff\x72\xff\x00\x00\x00\x00\x41\xff\x3d\xff\x00\x00\x00\x00\x88\xff\x00\x00\x9a\xff\x00\x00\x56\xff\x9b\xff\x6a\xff\x83\xff\x43\xff\x82\xff\x87\xff\x71\xff\x00\x00\x61\xff\x36\xff\x33\xff\x5e\xff\x50\xff\x00\x00\x62\xff\x5c\xff\x5d\xff\x3c\xff\x00\x00\x00\x00\x00\x00\x30\xff\x00\x00\x65\xff\x61\xff\x49\xff\x39\xff\x37\xff\x7e\xff\xaa\xff\xba\xff\xa6\xff\xb5\xff\xa0\xff\x00\x00\x00\x00\xa8\xff\xa4\xff\x9e\xff\xbf\xff\xc0\xff\x00\x00\xa2\xff\x00\x00\x00\x00\xac\xff\x00\x00\xd6\xff\x00\x00\xd1\xff\xe4\xff\xe5\xff\xe0\xff\x00\x00\xdb\xff\xdd\xff\xdb\xff\x00\x00\x00\x00\xe1\xff\xda\xff\x00\x00\xdf\xff\x00\x00\xd0\xff\xcf\xff\x00\x00\x00\x00\xab\xff\xce\xff\xcd\xff\xa1\xff\xae\xff\x2c\xff\x9d\xff\xb2\xff\x00\x00\xa3\xff\xa7\xff\xb9\xff\xad\xff\x9f\xff\xb7\xff\xb4\xff\xb8\xff\xa5\xff\x2d\xff\x2b\xff\x46\xff\xa9\xff\x5a\xff\x7b\xff\x31\xff\x00\x00\x97\xff\x6c\xff\x3a\xff\x58\xff\x4e\xff\x7d\xff\x32\xff\x2f\xff\x00\x00\xb5\xff\x00\x00\x00\x00\x9e\xff\xaf\xff\x00\x00\xcc\xff\xe3\xff\x00\x00\x00\x00\xd7\xff\xdb\xff\x00\x00\xf0\xff\xd9\xff\xe2\xff\x00\x00\xd5\xff\xcb\xff\x9c\xff\x00\x00\xb6\xff\xb3\xff\x00\x00\x00\x00\xb1\xff\x00\x00\x00\x00\xef\xff\x00\x00\xf3\xff\xf0\xff\x00\x00\xd4\xff\x2e\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\x00\x00\x01\x00\x00\x00\x01\x00\x00\x00\x01\x00\x00\x00\x01\x00\x00\x00\x01\x00\x00\x00\x01\x00\x01\x00\x00\x00\x00\x00\x0a\x00\x00\x00\x15\x00\x03\x00\x00\x00\x40\x00\x19\x00\x00\x00\x19\x00\x25\x00\x00\x00\x03\x00\x47\x00\x05\x00\x0d\x00\x2b\x00\x0f\x00\x00\x00\x03\x00\x05\x00\x05\x00\x0d\x00\x12\x00\x0f\x00\x10\x00\x12\x00\x09\x00\x02\x00\x0d\x00\x15\x00\x0f\x00\x10\x00\x07\x00\x19\x00\x05\x00\x05\x00\x09\x00\x1d\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x47\x00\x24\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x2a\x00\x34\x00\x47\x00\x2d\x00\x47\x00\x00\x00\x3a\x00\x3b\x00\x32\x00\x00\x00\x4b\x00\x4c\x00\x4b\x00\x4c\x00\x4b\x00\x03\x00\x4b\x00\x05\x00\x4b\x00\x3d\x00\x4b\x00\x47\x00\x4c\x00\x41\x00\x42\x00\x0d\x00\x44\x00\x0f\x00\x10\x00\x47\x00\x48\x00\x49\x00\x4a\x00\x15\x00\x0b\x00\x47\x00\x47\x00\x48\x00\x49\x00\x4a\x00\x06\x00\x1d\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x46\x00\x24\x00\x0b\x00\x47\x00\x47\x00\x00\x00\x13\x00\x2a\x00\x0e\x00\x00\x00\x2d\x00\x00\x00\x01\x00\x02\x00\x1a\x00\x32\x00\x3a\x00\x3b\x00\x1b\x00\x1c\x00\x3a\x00\x3b\x00\x03\x00\x16\x00\x05\x00\x00\x00\x3d\x00\x00\x00\x01\x00\x02\x00\x41\x00\x42\x00\x0d\x00\x44\x00\x0f\x00\x10\x00\x47\x00\x48\x00\x49\x00\x4a\x00\x15\x00\x10\x00\x02\x00\x12\x00\x03\x00\x28\x00\x05\x00\x07\x00\x1d\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x0d\x00\x24\x00\x0f\x00\x10\x00\x00\x00\x47\x00\x31\x00\x2a\x00\x47\x00\x48\x00\x00\x00\x47\x00\x48\x00\x38\x00\x06\x00\x32\x00\x1d\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x31\x00\x24\x00\x43\x00\x44\x00\x3d\x00\x13\x00\x12\x00\x38\x00\x41\x00\x42\x00\x00\x00\x44\x00\x00\x00\x1f\x00\x47\x00\x48\x00\x49\x00\x4a\x00\x43\x00\x44\x00\x26\x00\x00\x00\x03\x00\x00\x00\x05\x00\x00\x00\x3d\x00\x08\x00\x48\x00\x00\x00\x41\x00\x42\x00\x0d\x00\x44\x00\x0f\x00\x10\x00\x47\x00\x48\x00\x49\x00\x4a\x00\x0e\x00\x1f\x00\x2d\x00\x12\x00\x03\x00\x10\x00\x05\x00\x12\x00\x26\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x0d\x00\x3a\x00\x0f\x00\x10\x00\x00\x00\x01\x00\x02\x00\x03\x00\x02\x00\x28\x00\x29\x00\x2a\x00\x06\x00\x03\x00\x00\x00\x05\x00\x00\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x03\x00\x0d\x00\x05\x00\x0f\x00\x10\x00\x00\x00\x01\x00\x02\x00\x03\x00\x2f\x00\x0d\x00\x31\x00\x0f\x00\x10\x00\x47\x00\x48\x00\x49\x00\x4a\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x0b\x00\x14\x00\x2b\x00\x0e\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x28\x00\x29\x00\x2a\x00\x35\x00\x47\x00\x48\x00\x49\x00\x4a\x00\x00\x00\x01\x00\x02\x00\x03\x00\x00\x00\x00\x00\x01\x00\x02\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x47\x00\x03\x00\x00\x00\x05\x00\x00\x00\x35\x00\x47\x00\x48\x00\x49\x00\x4a\x00\x00\x00\x00\x00\x3c\x00\x04\x00\x10\x00\x47\x00\x48\x00\x49\x00\x4a\x00\x0a\x00\x0b\x00\x45\x00\x46\x00\x19\x00\x00\x00\x17\x00\x00\x00\x01\x00\x02\x00\x19\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x21\x00\x03\x00\x04\x00\x05\x00\x23\x00\x35\x00\x31\x00\x32\x00\x0a\x00\x0b\x00\x0c\x00\x03\x00\x3c\x00\x05\x00\x10\x00\x28\x00\x28\x00\x29\x00\x2a\x00\x0b\x00\x16\x00\x45\x00\x46\x00\x19\x00\x10\x00\x03\x00\x33\x00\x05\x00\x00\x00\x36\x00\x48\x00\x00\x00\x0a\x00\x19\x00\x47\x00\x48\x00\x49\x00\x00\x00\x10\x00\x00\x00\x31\x00\x32\x00\x00\x00\x01\x00\x02\x00\x00\x00\x37\x00\x19\x00\x39\x00\x00\x00\x01\x00\x02\x00\x00\x00\x01\x00\x02\x00\x2c\x00\x41\x00\x42\x00\x2f\x00\x1c\x00\x00\x00\x01\x00\x02\x00\x00\x00\x01\x00\x02\x00\x1d\x00\x24\x00\x1d\x00\x47\x00\x48\x00\x49\x00\x00\x00\x01\x00\x02\x00\x09\x00\x27\x00\x00\x00\x27\x00\x47\x00\x48\x00\x49\x00\x28\x00\x29\x00\x2a\x00\x13\x00\x14\x00\x4c\x00\x16\x00\x17\x00\x18\x00\x31\x00\x32\x00\x47\x00\x48\x00\x49\x00\x00\x00\x37\x00\x31\x00\x39\x00\x07\x00\x31\x00\x32\x00\x0a\x00\x04\x00\x38\x00\x11\x00\x41\x00\x42\x00\x31\x00\x32\x00\x12\x00\x31\x00\x32\x00\x3e\x00\x37\x00\x40\x00\x39\x00\x37\x00\x00\x00\x39\x00\x31\x00\x32\x00\x00\x00\x2c\x00\x41\x00\x42\x00\x2f\x00\x41\x00\x42\x00\x00\x00\x01\x00\x02\x00\x03\x00\x3e\x00\x45\x00\x40\x00\x25\x00\x00\x00\x27\x00\x28\x00\x29\x00\x00\x00\x2b\x00\x00\x00\x00\x00\x01\x00\x02\x00\x00\x00\x01\x00\x02\x00\x33\x00\x34\x00\x35\x00\x36\x00\x04\x00\x02\x00\x39\x00\x16\x00\x3b\x00\x3c\x00\x0a\x00\x3e\x00\x00\x00\x01\x00\x02\x00\x03\x00\x43\x00\x00\x00\x01\x00\x02\x00\x03\x00\x1e\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x28\x00\x25\x00\x00\x00\x01\x00\x28\x00\x35\x00\x00\x00\x01\x00\x02\x00\x03\x00\x00\x00\x33\x00\x3c\x00\x3d\x00\x36\x00\x3f\x00\x31\x00\x00\x00\x01\x00\x31\x00\x32\x00\x49\x00\x4a\x00\x38\x00\x00\x00\x01\x00\x02\x00\x03\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x2b\x00\x2c\x00\x2d\x00\x1a\x00\x1b\x00\x35\x00\x00\x00\x01\x00\x02\x00\x00\x00\x35\x00\x00\x00\x3c\x00\x3d\x00\x00\x00\x3f\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x00\x00\x01\x00\x02\x00\x03\x00\x00\x00\x35\x00\x00\x00\x01\x00\x02\x00\x03\x00\x3a\x00\x3b\x00\x3c\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x00\x00\x01\x00\x02\x00\x03\x00\x00\x00\x35\x00\x00\x00\x01\x00\x02\x00\x03\x00\x3a\x00\x3b\x00\x3c\x00\x04\x00\x05\x00\x00\x00\x31\x00\x32\x00\x00\x00\x01\x00\x02\x00\x03\x00\x37\x00\x00\x00\x39\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x2b\x00\x2c\x00\x2d\x00\x04\x00\x35\x00\x00\x00\x01\x00\x02\x00\x03\x00\x0a\x00\x35\x00\x3c\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x2b\x00\x2c\x00\x2d\x00\x0c\x00\x35\x00\x00\x00\x01\x00\x02\x00\x03\x00\x0e\x00\x35\x00\x3c\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x00\x00\x00\x00\x00\x00\x06\x00\x35\x00\x00\x00\x01\x00\x02\x00\x03\x00\x07\x00\x08\x00\x3c\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x00\x00\x01\x00\x02\x00\x03\x00\x06\x00\x35\x00\x00\x00\x01\x00\x02\x00\x03\x00\x43\x00\x00\x00\x3c\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x00\x00\x01\x00\x02\x00\x03\x00\x05\x00\x35\x00\x28\x00\x29\x00\x2a\x00\x10\x00\x47\x00\x12\x00\x3c\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x00\x00\x01\x00\x02\x00\x03\x00\x01\x00\x35\x00\x04\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x3c\x00\x2b\x00\x2c\x00\x00\x00\x02\x00\x35\x00\x00\x00\x01\x00\x02\x00\x03\x00\x06\x00\x35\x00\x3c\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x00\x00\x01\x00\x02\x00\x03\x00\x06\x00\x35\x00\x00\x00\x01\x00\x02\x00\x03\x00\x00\x00\x06\x00\x3c\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x00\x00\x01\x00\x02\x00\x03\x00\x01\x00\x35\x00\x47\x00\x28\x00\x29\x00\x2a\x00\x47\x00\x07\x00\x3c\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x00\x00\x01\x00\x02\x00\x03\x00\x0c\x00\x35\x00\x0b\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x3c\x00\x2b\x00\x28\x00\x29\x00\x2a\x00\x35\x00\x00\x00\x01\x00\x02\x00\x03\x00\x2d\x00\x35\x00\x3c\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x00\x00\x01\x00\x02\x00\x03\x00\x0c\x00\x35\x00\x00\x00\x01\x00\x02\x00\x03\x00\x02\x00\x2d\x00\x3c\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x00\x00\x01\x00\x02\x00\x03\x00\x00\x00\x35\x00\x47\x00\x00\x00\x0a\x00\x03\x00\x47\x00\x02\x00\x3c\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x00\x00\x01\x00\x02\x00\x03\x00\x08\x00\x35\x00\x02\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x3c\x00\x2b\x00\x1c\x00\x1a\x00\x1b\x00\x35\x00\x00\x00\x01\x00\x02\x00\x03\x00\x24\x00\x35\x00\x3c\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x00\x00\x01\x00\x02\x00\x03\x00\x47\x00\x35\x00\x04\x00\x01\x00\x1b\x00\x47\x00\x06\x00\x04\x00\x3c\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x00\x00\x01\x00\x02\x00\x03\x00\x0e\x00\x35\x00\x00\x00\x04\x00\x04\x00\x11\x00\x47\x00\x04\x00\x3c\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x00\x00\x01\x00\x02\x00\x03\x00\x01\x00\x35\x00\x02\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x3c\x00\x19\x00\x06\x00\x11\x00\x0a\x00\x35\x00\x00\x00\x01\x00\x02\x00\x03\x00\x2d\x00\x23\x00\x3c\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x00\x00\x01\x00\x02\x00\x03\x00\x02\x00\x35\x00\x47\x00\x04\x00\x01\x00\x01\x00\x47\x00\x02\x00\x3c\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x00\x00\x01\x00\x02\x00\x03\x00\x01\x00\x35\x00\x02\x00\x01\x00\x00\x00\x07\x00\x01\x00\x01\x00\x3c\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x00\x00\x01\x00\x02\x00\x03\x00\x02\x00\x35\x00\x02\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x3c\x00\x17\x00\x01\x00\x47\x00\x38\x00\x35\x00\x00\x00\x01\x00\x02\x00\x03\x00\x23\x00\x21\x00\x3c\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x00\x00\x01\x00\x02\x00\x03\x00\x03\x00\x35\x00\x37\x00\x04\x00\x37\x00\x07\x00\x47\x00\x04\x00\x3c\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x00\x00\x01\x00\x02\x00\x03\x00\x01\x00\x35\x00\x0c\x00\x0e\x00\x16\x00\x04\x00\x01\x00\x01\x00\x3c\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x00\x00\x01\x00\x02\x00\x03\x00\x47\x00\x35\x00\x00\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x3c\x00\x07\x00\x08\x00\x04\x00\x47\x00\x35\x00\x00\x00\x01\x00\x02\x00\x03\x00\x01\x00\x04\x00\x3c\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x00\x00\x01\x00\x02\x00\x00\x00\x00\x00\x35\x00\x00\x00\x01\x00\x02\x00\x00\x00\x01\x00\x02\x00\x3c\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x08\x00\x00\x00\x00\x00\x03\x00\x0b\x00\x35\x00\x00\x00\x15\x00\x49\x00\x18\x00\x06\x00\x16\x00\x3c\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x20\x00\x22\x00\x00\x00\x00\x00\x15\x00\x35\x00\x00\x00\x28\x00\x28\x00\x00\x00\x47\x00\x00\x00\x3c\x00\x31\x00\x1e\x00\x20\x00\x00\x00\x47\x00\x1e\x00\x31\x00\x38\x00\x25\x00\x31\x00\x28\x00\x28\x00\x25\x00\x38\x00\x15\x00\x28\x00\x38\x00\x15\x00\x00\x00\x1e\x00\x1e\x00\x00\x00\x18\x00\x00\x00\x15\x00\x20\x00\x25\x00\x25\x00\x20\x00\x28\x00\x28\x00\x0b\x00\x22\x00\x28\x00\x23\x00\x20\x00\x28\x00\x26\x00\x28\x00\x15\x00\x03\x00\x07\x00\x15\x00\x28\x00\x15\x00\x47\x00\x04\x00\x30\x00\x31\x00\x47\x00\x20\x00\x06\x00\x0e\x00\x20\x00\x0a\x00\x20\x00\x11\x00\x07\x00\x28\x00\x08\x00\x37\x00\x28\x00\x3f\x00\x28\x00\x0a\x00\x25\x00\x43\x00\x27\x00\x28\x00\x29\x00\x2d\x00\x2b\x00\x47\x00\x01\x00\x0a\x00\x01\x00\x03\x00\x47\x00\x02\x00\x33\x00\x34\x00\x35\x00\x36\x00\x02\x00\x01\x00\x39\x00\x4c\x00\x3b\x00\x3c\x00\x4c\x00\x3e\x00\x03\x00\x03\x00\x47\x00\x03\x00\x43\x00\x03\x00\x47\x00\x08\x00\x2e\x00\x4c\x00\x47\x00\x12\x00\x0b\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"# + +happyTable :: HappyAddr +happyTable = HappyA# "\x00\x00\x3a\x00\x3b\x00\x3a\x00\x3b\x00\x3a\x00\x3b\x00\x3a\x00\x3b\x00\x3a\x00\x3b\x00\x3a\x00\x3b\x00\x3a\x00\x52\x00\x70\x00\xa6\x01\xc6\x00\x56\x00\x4f\x00\x48\x01\xca\x00\x57\x00\x48\x01\x57\x00\xd6\x00\x9a\x01\x12\x00\x06\x00\x13\x00\xc7\x00\xd7\x00\xc8\x00\xa3\x01\x70\x00\x4b\x01\x72\x01\x14\x00\xac\x01\x15\x00\x16\x00\xad\x01\xa4\x01\x45\x01\x48\x00\x17\x00\x15\x00\x16\x00\x46\x01\x57\x00\x66\x01\x4b\x01\x51\x01\x18\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x06\x00\x1e\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x1f\x00\x71\x00\x06\x00\x61\x00\x06\x00\x52\x00\x53\x00\x0c\x01\x20\x00\x52\x00\x3c\x00\xcd\x00\x3c\x00\x3d\x00\xb8\x00\x12\x00\xb9\x00\x13\x00\xba\x00\x21\x00\xbc\x00\x06\x00\xff\xff\x22\x00\x23\x00\x14\x00\x24\x00\x15\x00\x16\x00\x06\x00\x25\x00\x26\x00\x27\x00\x17\x00\xa7\x01\x06\x00\x06\x00\x25\x00\x26\x00\x27\x00\x30\x00\x18\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x52\x01\x1e\x00\x3f\x00\x06\x00\x06\x00\x4a\x00\x2b\x00\x1f\x00\x5d\x00\x94\x01\x61\x00\x8c\x00\x8d\x00\x8e\x00\x73\x00\x20\x00\x53\x00\x88\x00\x40\x00\x41\x00\x53\x00\x54\x00\x12\x00\xa9\x00\x13\x00\x48\x01\x21\x00\x8c\x00\x8d\x00\x8e\x00\x22\x00\x23\x00\x14\x00\x24\x00\x15\x00\x16\x00\x06\x00\x25\x00\x26\x00\x27\x00\x17\x00\x8e\x01\x9b\x00\x55\x01\x12\x00\x16\x01\x47\x00\x9c\x00\x18\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x14\x00\x1e\x00\x15\x00\x16\x00\xe3\x00\x06\x00\x8f\x00\x1f\x00\x06\x00\x25\x00\x48\x01\x06\x00\x25\x00\x90\x00\x2a\x00\x20\x00\x18\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x8f\x00\x1e\x00\x91\x00\x23\x01\x21\x00\x2b\x00\x87\x01\x90\x00\x22\x00\x23\x00\xe3\x00\x24\x00\x95\x01\xe4\x00\x06\x00\x25\x00\x26\x00\x27\x00\x91\x00\x92\x00\x6a\x01\x88\x01\x12\x00\x4a\x00\x47\x00\x48\x01\x21\x00\x42\xff\x84\x01\x48\x01\x22\x00\x23\x00\x14\x00\x24\x00\x15\x00\x16\x00\x06\x00\x25\x00\x26\x00\x27\x00\x89\x01\xe4\x00\xab\x01\x49\x01\x12\x00\x54\x01\x47\x00\x55\x01\xe5\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x14\x00\xac\x01\x15\x00\x16\x00\x43\x00\x07\x00\x08\x00\x09\x00\x91\x01\x4b\x00\x4c\x00\xfb\x00\x92\x01\x70\x00\x4a\x00\x47\x00\x8c\x01\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x46\x00\x48\x00\x47\x00\x15\x00\x16\x00\x06\x00\x07\x00\x08\x00\x09\x00\x5a\x01\x48\x00\x5b\x01\x15\x00\x16\x00\x06\x00\x25\x00\x26\x00\x27\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x84\x00\x58\x01\x6f\x01\x85\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x4b\x00\x4c\x00\x17\x01\x0f\x00\x06\x00\x25\x00\x26\x00\x27\x00\x06\x00\x07\x00\x08\x00\x09\x00\x69\x01\xee\x00\x8d\x00\x8e\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x2d\x01\x70\x01\x94\x00\xea\x00\x95\x00\xe7\x00\x0f\x00\x06\x00\x25\x00\x26\x00\x27\x00\x4a\x00\x19\x01\x10\x00\x7d\x00\x96\x00\x06\x00\x25\x00\x26\x00\x27\x00\x7e\x00\x7f\x00\x2e\x01\x7e\x01\x97\x00\x21\x01\xeb\x00\xee\x00\x8d\x00\x8e\x00\xe8\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x2d\x01\x72\x01\x94\x00\x7d\x00\x95\x00\x6e\x01\x0f\x00\xa1\x00\x7a\x01\x7e\x00\xf6\x00\x63\xff\x94\x00\x10\x00\x95\x00\x96\x00\x03\x01\x4b\x00\x4c\x00\x62\x00\xf6\x00\x63\xff\x2e\x01\x2f\x01\x97\x00\x96\x00\x94\x00\x04\x01\x95\x00\x31\x01\x7b\x01\x37\x01\xd8\x00\x7e\x00\x97\x00\x06\x00\x25\x00\x26\x00\x62\x01\x96\x00\x62\x01\xa1\x00\xa2\x00\xa0\x00\x8d\x00\x8e\x00\x4b\x01\xa3\x00\x97\x00\xa4\x00\x8c\x00\x8d\x00\x8e\x00\xee\x00\x8d\x00\x8e\x00\x2d\x00\xa5\x00\x20\x01\x2e\x00\xd9\x00\xee\x00\x8d\x00\x8e\x00\xee\x00\x8d\x00\x8e\x00\x63\x01\x66\x01\x63\x01\x06\x00\x25\x00\x26\x00\xee\x00\x8d\x00\x8e\x00\x65\x00\x93\x01\x4c\x01\x64\x01\x06\x00\x25\x00\x26\x00\x4b\x00\x4c\x00\x62\x00\x66\x00\x67\x00\xf7\xff\x68\x00\x69\x00\x6a\x00\xa1\x00\xa2\x00\x06\x00\x25\x00\x26\x00\x4d\x01\xa3\x00\x8f\x00\xa4\x00\x48\xff\xa1\x00\xfe\x00\x48\xff\x90\x01\x73\x01\x4e\x01\xa5\x00\xa6\x00\xa1\x00\xa2\x00\x6e\x00\xa1\x00\xa2\x00\xff\x00\xa3\x00\x79\x01\xa4\x00\xa3\x00\x12\x01\xa4\x00\xa1\x00\xfe\x00\x15\x01\x2d\x00\xa5\x00\x34\x01\x2e\x00\xa5\x00\xef\x00\x06\x00\x07\x00\x08\x00\x09\x00\xff\x00\x6b\x00\x00\x01\xab\x00\x02\x01\xac\x00\xad\x00\xae\x00\x4a\x00\xaf\x00\x7f\x00\x8c\x00\x8d\x00\x8e\x00\xee\x00\x8d\x00\x8e\x00\xb0\x00\xb1\x00\xb2\x00\xb3\x00\x7d\x00\x18\x01\xb4\x00\xa9\x00\xb5\x00\xb6\x00\x7e\x00\xb7\x00\x06\x00\x07\x00\x08\x00\x09\x00\xb8\x00\x06\x00\x07\x00\x08\x00\x09\x00\xd2\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x10\x01\x03\x01\x60\x01\x9f\x00\x5b\x00\xd4\x00\x0f\x00\x5d\x00\x07\x00\x08\x00\x09\x00\x6b\x01\x04\x01\x10\x00\x58\x00\x05\x01\x11\x01\x8f\x00\x5a\x00\x5b\x00\xa1\x00\x01\x01\x27\x00\x28\x00\xf4\x00\x5d\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x57\x00\x0a\x00\x0b\x00\x77\x00\x6c\x01\x96\x01\x0f\x00\xee\x00\x8d\x00\x8e\x00\xbd\x00\x0f\x00\xbe\x00\x10\x00\x58\x00\xbf\x00\x59\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x5e\x00\x06\x00\x07\x00\x08\x00\x09\x00\xc0\x00\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x53\x00\x7f\x01\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x5e\x00\x06\x00\x07\x00\x08\x00\x09\x00\xc1\x00\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x53\x00\x5f\x00\x10\x00\x2e\x00\x2f\x00\xc2\x00\xa1\x00\xa2\x00\x06\x00\x07\x00\x08\x00\x09\x00\xa3\x00\x31\x00\x32\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x9d\x00\x30\x01\x0a\x00\x0b\x00\x78\x00\x28\x01\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x7e\x00\x0f\x00\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x9d\x00\x9e\x00\x0a\x00\x0b\x00\x79\x00\x32\x00\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x41\x00\x0f\x00\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x9d\x00\xa8\x00\x51\x00\x4a\x00\x9b\x01\xaf\x01\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x9c\x01\xa5\x01\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x98\x01\x06\x00\x07\x00\x08\x00\x09\x00\xb0\x01\x0f\x00\x43\x00\x07\x00\x08\x00\x09\x00\xaa\x01\x48\x01\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x92\x01\x06\x00\x07\x00\x08\x00\x09\x00\xa9\x01\x0f\x00\x4b\x00\x4c\x00\x97\x00\x56\x01\x06\x00\x55\x01\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x7d\x01\x06\x00\x07\x00\x08\x00\x09\x00\xa0\x01\x0f\x00\x9f\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x86\x01\x10\x00\x0a\x00\x6b\x00\x4a\x00\xa1\x01\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\xa2\x01\x0f\x00\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x5e\x01\x06\x00\x07\x00\x08\x00\x09\x00\xa3\x01\x0f\x00\x43\x00\x07\x00\x08\x00\x09\x00\x61\x00\x9a\x01\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x5f\x01\x06\x00\x07\x00\x08\x00\x09\x00\x8e\x01\x0f\x00\x06\x00\x4b\x00\x4c\x00\x4d\x00\x06\x00\x98\x01\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x61\x01\x06\x00\x07\x00\x08\x00\x09\x00\x81\x01\x0f\x00\x82\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x68\x01\x10\x00\x6e\x00\x4b\x00\x4c\x00\x62\x00\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x83\x01\x0f\x00\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x77\x01\x06\x00\x07\x00\x08\x00\x09\x00\x84\x01\x0f\x00\x43\x00\x07\x00\x08\x00\x09\x00\x86\x01\x8b\x01\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x78\x01\x06\x00\x07\x00\x08\x00\x09\x00\xd8\x00\x0f\x00\x06\x00\x6b\x01\x8c\x01\x58\x01\x06\x00\x54\x01\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x1f\x01\x06\x00\x07\x00\x08\x00\x09\x00\x5c\x01\x0f\x00\x5d\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x22\x01\x10\x00\x44\x00\xd9\x00\x6c\x01\x6d\x01\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\xda\x00\x0f\x00\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x33\x01\x06\x00\x07\x00\x08\x00\x09\x00\x06\x00\x0f\x00\x75\x01\x76\x01\x77\x01\x06\x00\x1d\x01\x7d\x01\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\xf9\x00\x06\x00\x07\x00\x08\x00\x09\x00\x1e\x01\x0f\x00\xe7\x00\x1b\x01\x1c\x01\x1f\x01\x06\x00\x25\x01\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\xfa\x00\x06\x00\x07\x00\x08\x00\x09\x00\x26\x01\x0f\x00\x27\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\xfc\x00\x10\x00\xe8\x00\x29\x01\x2a\x01\x2b\x01\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x2c\x01\xe9\x00\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x0d\x01\x06\x00\x07\x00\x08\x00\x09\x00\x2d\x01\x0f\x00\x06\x00\x36\x01\x37\x01\x39\x01\x06\x00\x3a\x01\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x0f\x01\x06\x00\x07\x00\x08\x00\x09\x00\x3b\x01\x0f\x00\x3c\x01\x3e\x01\xea\x00\x3d\x01\x3f\x01\x44\x01\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x13\x01\x06\x00\x07\x00\x08\x00\x09\x00\x40\x01\x0f\x00\x43\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x74\x00\x10\x00\xeb\x00\x47\x01\x06\x00\x50\x01\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x53\x01\xec\x00\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x75\x00\x06\x00\x07\x00\x08\x00\x09\x00\xc6\x00\x0f\x00\xcb\x00\xee\x00\xcc\x00\xcd\x00\x06\x00\xf1\x00\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x76\x00\x06\x00\x07\x00\x08\x00\x09\x00\xf2\x00\x0f\x00\xf4\x00\x85\x00\xf3\x00\xf7\x00\xf8\x00\xf9\x00\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x7a\x00\x06\x00\x07\x00\x08\x00\x09\x00\x06\x00\x0f\x00\x9b\x01\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x9c\x00\x10\x00\x9c\x01\x9d\x01\xfe\x00\x06\x00\x0f\x00\x06\x00\x07\x00\x08\x00\x09\x00\x08\x01\x07\x01\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x5e\x00\x8c\x00\x8d\x00\x8e\x00\x4a\x00\xce\x00\x0f\x00\x8c\x00\x8d\x00\x8e\x00\x8c\x00\x8d\x00\x8e\x00\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x50\x00\x09\x01\xce\x00\x4a\x00\x0c\x01\x0b\x01\x0f\x00\x4a\x00\xcf\x00\x26\x00\xe0\x00\x15\x01\x0f\x01\x10\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x0e\x00\x5d\x01\x67\x01\x4a\x00\x4a\x00\xcf\x00\x0f\x00\xce\x00\xe2\x00\xd1\x00\xce\x00\x06\x00\x4a\x00\x10\x00\x8f\x00\xd2\x00\xd0\x00\xce\x00\x06\x00\xd2\x00\x8f\x00\x47\x01\x40\x01\x8f\x00\xd1\x00\xd4\x00\x41\x01\xf4\x00\xcf\x00\xd4\x00\x09\x01\xcf\x00\xce\x00\xd2\x00\xd2\x00\xce\x00\xe0\x00\xce\x00\xcf\x00\xd7\x00\xd3\x00\xde\x00\xdb\x00\xd4\x00\xd4\x00\x6d\x00\xe1\x00\xd1\x00\x34\x00\xdc\x00\xd1\x00\x35\x00\xe2\x00\xcf\x00\x74\x00\x81\x00\xcf\x00\xd1\x00\xcf\x00\x06\x00\x7c\x00\x36\x00\x37\x00\x06\x00\xdd\x00\x82\x00\x83\x00\xdf\x00\x87\x00\xe6\x00\x86\x00\x88\x00\xd1\x00\x8a\x00\x8c\x00\xd1\x00\x38\x00\xd1\x00\x8b\x00\xab\x00\x39\x00\xac\x00\xad\x00\xae\x00\x99\x00\xaf\x00\x06\x00\x9a\x00\x7e\x00\xbc\x00\xa8\x00\x06\x00\xc4\x00\xb0\x00\xb1\x00\xb2\x00\xb3\x00\xc5\x00\x3a\x00\xb4\x00\xff\xff\xb5\x00\xb6\x00\xff\xff\xb7\x00\x43\x00\x49\x00\x06\x00\x4a\x00\xb8\x00\x50\x00\x06\x00\x64\x00\x2a\x00\xff\xff\x06\x00\x6e\x00\x6d\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\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, 223) [ + (4 , happyReduce_4), + (5 , happyReduce_5), + (6 , happyReduce_6), + (7 , happyReduce_7), + (8 , happyReduce_8), + (9 , happyReduce_9), + (10 , happyReduce_10), + (11 , happyReduce_11), + (12 , happyReduce_12), + (13 , happyReduce_13), + (14 , happyReduce_14), + (15 , happyReduce_15), + (16 , happyReduce_16), + (17 , happyReduce_17), + (18 , happyReduce_18), + (19 , happyReduce_19), + (20 , happyReduce_20), + (21 , happyReduce_21), + (22 , happyReduce_22), + (23 , happyReduce_23), + (24 , happyReduce_24), + (25 , happyReduce_25), + (26 , happyReduce_26), + (27 , happyReduce_27), + (28 , happyReduce_28), + (29 , happyReduce_29), + (30 , happyReduce_30), + (31 , happyReduce_31), + (32 , happyReduce_32), + (33 , happyReduce_33), + (34 , happyReduce_34), + (35 , happyReduce_35), + (36 , happyReduce_36), + (37 , happyReduce_37), + (38 , happyReduce_38), + (39 , happyReduce_39), + (40 , happyReduce_40), + (41 , happyReduce_41), + (42 , happyReduce_42), + (43 , happyReduce_43), + (44 , happyReduce_44), + (45 , happyReduce_45), + (46 , happyReduce_46), + (47 , happyReduce_47), + (48 , happyReduce_48), + (49 , happyReduce_49), + (50 , happyReduce_50), + (51 , happyReduce_51), + (52 , happyReduce_52), + (53 , happyReduce_53), + (54 , happyReduce_54), + (55 , happyReduce_55), + (56 , happyReduce_56), + (57 , happyReduce_57), + (58 , happyReduce_58), + (59 , happyReduce_59), + (60 , happyReduce_60), + (61 , happyReduce_61), + (62 , happyReduce_62), + (63 , happyReduce_63), + (64 , happyReduce_64), + (65 , happyReduce_65), + (66 , happyReduce_66), + (67 , happyReduce_67), + (68 , happyReduce_68), + (69 , happyReduce_69), + (70 , happyReduce_70), + (71 , happyReduce_71), + (72 , happyReduce_72), + (73 , happyReduce_73), + (74 , happyReduce_74), + (75 , happyReduce_75), + (76 , happyReduce_76), + (77 , happyReduce_77), + (78 , happyReduce_78), + (79 , happyReduce_79), + (80 , happyReduce_80), + (81 , happyReduce_81), + (82 , happyReduce_82), + (83 , happyReduce_83), + (84 , happyReduce_84), + (85 , happyReduce_85), + (86 , happyReduce_86), + (87 , happyReduce_87), + (88 , happyReduce_88), + (89 , happyReduce_89), + (90 , happyReduce_90), + (91 , happyReduce_91), + (92 , happyReduce_92), + (93 , happyReduce_93), + (94 , happyReduce_94), + (95 , happyReduce_95), + (96 , happyReduce_96), + (97 , happyReduce_97), + (98 , happyReduce_98), + (99 , happyReduce_99), + (100 , happyReduce_100), + (101 , happyReduce_101), + (102 , happyReduce_102), + (103 , happyReduce_103), + (104 , happyReduce_104), + (105 , happyReduce_105), + (106 , happyReduce_106), + (107 , happyReduce_107), + (108 , happyReduce_108), + (109 , happyReduce_109), + (110 , happyReduce_110), + (111 , happyReduce_111), + (112 , happyReduce_112), + (113 , happyReduce_113), + (114 , happyReduce_114), + (115 , happyReduce_115), + (116 , happyReduce_116), + (117 , happyReduce_117), + (118 , happyReduce_118), + (119 , happyReduce_119), + (120 , happyReduce_120), + (121 , happyReduce_121), + (122 , happyReduce_122), + (123 , happyReduce_123), + (124 , happyReduce_124), + (125 , happyReduce_125), + (126 , happyReduce_126), + (127 , happyReduce_127), + (128 , happyReduce_128), + (129 , happyReduce_129), + (130 , happyReduce_130), + (131 , happyReduce_131), + (132 , happyReduce_132), + (133 , happyReduce_133), + (134 , happyReduce_134), + (135 , happyReduce_135), + (136 , happyReduce_136), + (137 , happyReduce_137), + (138 , happyReduce_138), + (139 , happyReduce_139), + (140 , happyReduce_140), + (141 , happyReduce_141), + (142 , happyReduce_142), + (143 , happyReduce_143), + (144 , happyReduce_144), + (145 , happyReduce_145), + (146 , happyReduce_146), + (147 , happyReduce_147), + (148 , happyReduce_148), + (149 , happyReduce_149), + (150 , happyReduce_150), + (151 , happyReduce_151), + (152 , happyReduce_152), + (153 , happyReduce_153), + (154 , happyReduce_154), + (155 , happyReduce_155), + (156 , happyReduce_156), + (157 , happyReduce_157), + (158 , happyReduce_158), + (159 , happyReduce_159), + (160 , happyReduce_160), + (161 , happyReduce_161), + (162 , happyReduce_162), + (163 , happyReduce_163), + (164 , happyReduce_164), + (165 , happyReduce_165), + (166 , happyReduce_166), + (167 , happyReduce_167), + (168 , happyReduce_168), + (169 , happyReduce_169), + (170 , happyReduce_170), + (171 , happyReduce_171), + (172 , happyReduce_172), + (173 , happyReduce_173), + (174 , happyReduce_174), + (175 , happyReduce_175), + (176 , happyReduce_176), + (177 , happyReduce_177), + (178 , happyReduce_178), + (179 , happyReduce_179), + (180 , happyReduce_180), + (181 , happyReduce_181), + (182 , happyReduce_182), + (183 , happyReduce_183), + (184 , happyReduce_184), + (185 , happyReduce_185), + (186 , happyReduce_186), + (187 , happyReduce_187), + (188 , happyReduce_188), + (189 , happyReduce_189), + (190 , happyReduce_190), + (191 , happyReduce_191), + (192 , happyReduce_192), + (193 , happyReduce_193), + (194 , happyReduce_194), + (195 , happyReduce_195), + (196 , happyReduce_196), + (197 , happyReduce_197), + (198 , happyReduce_198), + (199 , happyReduce_199), + (200 , happyReduce_200), + (201 , happyReduce_201), + (202 , happyReduce_202), + (203 , happyReduce_203), + (204 , happyReduce_204), + (205 , happyReduce_205), + (206 , happyReduce_206), + (207 , happyReduce_207), + (208 , happyReduce_208), + (209 , happyReduce_209), + (210 , happyReduce_210), + (211 , happyReduce_211), + (212 , happyReduce_212), + (213 , happyReduce_213), + (214 , happyReduce_214), + (215 , happyReduce_215), + (216 , happyReduce_216), + (217 , happyReduce_217), + (218 , happyReduce_218), + (219 , happyReduce_219), + (220 , happyReduce_220), + (221 , happyReduce_221), + (222 , happyReduce_222), + (223 , happyReduce_223) + ] + +happy_n_terms = 77 :: Int +happy_n_nonterms = 77 :: 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 + )} + +happyReduce_5 = happySpecReduce_1 1# happyReduction_5 +happyReduction_5 happy_x_1 + = case happyOutTok happy_x_1 of { (PT _ (TL happy_var_1)) -> + happyIn8 + (happy_var_1 + )} + +happyReduce_6 = happySpecReduce_1 2# happyReduction_6 +happyReduction_6 happy_x_1 + = case happyOutTok happy_x_1 of { (PT _ (TI happy_var_1)) -> + happyIn9 + ((read happy_var_1) :: Integer + )} + +happyReduce_7 = happySpecReduce_1 3# happyReduction_7 +happyReduction_7 happy_x_1 + = case happyOutTok happy_x_1 of { (PT _ (T_LString happy_var_1)) -> + happyIn10 + (LString happy_var_1 + )} + +happyReduce_8 = happySpecReduce_1 4# happyReduction_8 +happyReduction_8 happy_x_1 + = case happyOut12 happy_x_1 of { happy_var_1 -> + happyIn11 + (Gr (reverse happy_var_1) + )} + +happyReduce_9 = happySpecReduce_0 5# happyReduction_9 +happyReduction_9 = happyIn12 + ([] + ) + +happyReduce_10 = happySpecReduce_2 5# happyReduction_10 +happyReduction_10 happy_x_2 + happy_x_1 + = case happyOut12 happy_x_1 of { happy_var_1 -> + case happyOut13 happy_x_2 of { happy_var_2 -> + happyIn12 + (flip (:) happy_var_1 happy_var_2 + )}} + +happyReduce_11 = happySpecReduce_2 6# happyReduction_11 +happyReduction_11 happy_x_2 + happy_x_1 + = case happyOut13 happy_x_1 of { happy_var_1 -> + happyIn13 + (happy_var_1 + )} + +happyReduce_12 = happyReduce 10# 6# happyReduction_12 +happyReduction_12 (happy_x_10 `HappyStk` + happy_x_9 `HappyStk` + happy_x_8 `HappyStk` + 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 happyOut7 happy_x_7 of { happy_var_7 -> + case happyOut15 happy_x_9 of { happy_var_9 -> + happyIn13 + (MMain happy_var_2 happy_var_7 happy_var_9 + ) `HappyStk` happyRest}}} + +happyReduce_13 = happyReduce 4# 6# happyReduction_13 +happyReduction_13 (happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut26 happy_x_1 of { happy_var_1 -> + case happyOut19 happy_x_2 of { happy_var_2 -> + case happyOut20 happy_x_4 of { happy_var_4 -> + happyIn13 + (MModule happy_var_1 happy_var_2 happy_var_4 + ) `HappyStk` happyRest}}} + +happyReduce_14 = happySpecReduce_3 7# happyReduction_14 +happyReduction_14 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut7 happy_x_1 of { happy_var_1 -> + case happyOut16 happy_x_3 of { happy_var_3 -> + happyIn14 + (ConcSpec happy_var_1 happy_var_3 + )}} + +happyReduce_15 = happySpecReduce_0 8# happyReduction_15 +happyReduction_15 = happyIn15 + ([] + ) + +happyReduce_16 = happySpecReduce_1 8# happyReduction_16 +happyReduction_16 happy_x_1 + = case happyOut14 happy_x_1 of { happy_var_1 -> + happyIn15 + ((:[]) happy_var_1 + )} + +happyReduce_17 = happySpecReduce_3 8# happyReduction_17 +happyReduction_17 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut14 happy_x_1 of { happy_var_1 -> + case happyOut15 happy_x_3 of { happy_var_3 -> + happyIn15 + ((:) happy_var_1 happy_var_3 + )}} + +happyReduce_18 = happySpecReduce_2 9# happyReduction_18 +happyReduction_18 happy_x_2 + happy_x_1 + = case happyOut7 happy_x_1 of { happy_var_1 -> + case happyOut17 happy_x_2 of { happy_var_2 -> + happyIn16 + (ConcExp happy_var_1 (reverse happy_var_2) + )}} + +happyReduce_19 = happySpecReduce_0 10# happyReduction_19 +happyReduction_19 = happyIn17 + ([] + ) + +happyReduce_20 = happySpecReduce_2 10# happyReduction_20 +happyReduction_20 happy_x_2 + happy_x_1 + = case happyOut17 happy_x_1 of { happy_var_1 -> + case happyOut18 happy_x_2 of { happy_var_2 -> + happyIn17 + (flip (:) happy_var_1 happy_var_2 + )}} + +happyReduce_21 = happyReduce 5# 11# happyReduction_21 +happyReduction_21 (happy_x_5 `HappyStk` + happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut25 happy_x_4 of { happy_var_4 -> + happyIn18 + (TransferIn happy_var_4 + ) `HappyStk` happyRest} + +happyReduce_22 = happyReduce 5# 11# happyReduction_22 +happyReduction_22 (happy_x_5 `HappyStk` + happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut25 happy_x_4 of { happy_var_4 -> + happyIn18 + (TransferOut happy_var_4 + ) `HappyStk` happyRest} + +happyReduce_23 = happySpecReduce_2 12# happyReduction_23 +happyReduction_23 happy_x_2 + happy_x_1 + = case happyOut7 happy_x_2 of { happy_var_2 -> + happyIn19 + (MTAbstract happy_var_2 + )} + +happyReduce_24 = happySpecReduce_2 12# happyReduction_24 +happyReduction_24 happy_x_2 + happy_x_1 + = case happyOut7 happy_x_2 of { happy_var_2 -> + happyIn19 + (MTResource happy_var_2 + )} + +happyReduce_25 = happySpecReduce_2 12# happyReduction_25 +happyReduction_25 happy_x_2 + happy_x_1 + = case happyOut7 happy_x_2 of { happy_var_2 -> + happyIn19 + (MTInterface happy_var_2 + )} + +happyReduce_26 = happyReduce 4# 12# happyReduction_26 +happyReduction_26 (happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut7 happy_x_2 of { happy_var_2 -> + case happyOut7 happy_x_4 of { happy_var_4 -> + happyIn19 + (MTConcrete happy_var_2 happy_var_4 + ) `HappyStk` happyRest}} + +happyReduce_27 = happyReduce 4# 12# happyReduction_27 +happyReduction_27 (happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut7 happy_x_2 of { happy_var_2 -> + case happyOut7 happy_x_4 of { happy_var_4 -> + happyIn19 + (MTInstance happy_var_2 happy_var_4 + ) `HappyStk` happyRest}} + +happyReduce_28 = happyReduce 6# 12# happyReduction_28 +happyReduction_28 (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 happyOut25 happy_x_4 of { happy_var_4 -> + case happyOut25 happy_x_6 of { happy_var_6 -> + happyIn19 + (MTTransfer happy_var_2 happy_var_4 happy_var_6 + ) `HappyStk` happyRest}}} + +happyReduce_29 = happyReduce 5# 13# happyReduction_29 +happyReduction_29 (happy_x_5 `HappyStk` + happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut22 happy_x_1 of { happy_var_1 -> + case happyOut24 happy_x_2 of { happy_var_2 -> + case happyOut21 happy_x_4 of { happy_var_4 -> + happyIn20 + (MBody happy_var_1 happy_var_2 (reverse happy_var_4) + ) `HappyStk` happyRest}}} + +happyReduce_30 = happySpecReduce_3 13# happyReduction_30 +happyReduction_30 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut7 happy_x_1 of { happy_var_1 -> + case happyOut23 happy_x_3 of { happy_var_3 -> + happyIn20 + (MWith happy_var_1 happy_var_3 + )}} + +happyReduce_31 = happySpecReduce_2 13# happyReduction_31 +happyReduction_31 happy_x_2 + happy_x_1 + = case happyOut7 happy_x_2 of { happy_var_2 -> + happyIn20 + (MReuse happy_var_2 + )} + +happyReduce_32 = happySpecReduce_0 14# happyReduction_32 +happyReduction_32 = happyIn21 + ([] + ) + +happyReduce_33 = happySpecReduce_2 14# happyReduction_33 +happyReduction_33 happy_x_2 + happy_x_1 + = case happyOut21 happy_x_1 of { happy_var_1 -> + case happyOut29 happy_x_2 of { happy_var_2 -> + happyIn21 + (flip (:) happy_var_1 happy_var_2 + )}} + +happyReduce_34 = happySpecReduce_2 15# happyReduction_34 +happyReduction_34 happy_x_2 + happy_x_1 + = case happyOut7 happy_x_1 of { happy_var_1 -> + happyIn22 + (Ext happy_var_1 + )} + +happyReduce_35 = happySpecReduce_0 15# happyReduction_35 +happyReduction_35 = happyIn22 + (NoExt + ) + +happyReduce_36 = happySpecReduce_0 16# happyReduction_36 +happyReduction_36 = happyIn23 + ([] + ) + +happyReduce_37 = happySpecReduce_1 16# happyReduction_37 +happyReduction_37 happy_x_1 + = case happyOut25 happy_x_1 of { happy_var_1 -> + happyIn23 + ((:[]) happy_var_1 + )} + +happyReduce_38 = happySpecReduce_3 16# happyReduction_38 +happyReduction_38 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut25 happy_x_1 of { happy_var_1 -> + case happyOut23 happy_x_3 of { happy_var_3 -> + happyIn23 + ((:) happy_var_1 happy_var_3 + )}} + +happyReduce_39 = happySpecReduce_0 17# happyReduction_39 +happyReduction_39 = happyIn24 + (NoOpens + ) + +happyReduce_40 = happySpecReduce_3 17# happyReduction_40 +happyReduction_40 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut23 happy_x_2 of { happy_var_2 -> + happyIn24 + (Opens happy_var_2 + )} + +happyReduce_41 = happySpecReduce_1 18# happyReduction_41 +happyReduction_41 happy_x_1 + = case happyOut7 happy_x_1 of { happy_var_1 -> + happyIn25 + (OName happy_var_1 + )} + +happyReduce_42 = happyReduce 4# 18# happyReduction_42 +happyReduction_42 (happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut27 happy_x_2 of { happy_var_2 -> + case happyOut7 happy_x_3 of { happy_var_3 -> + happyIn25 + (OQualQO happy_var_2 happy_var_3 + ) `HappyStk` happyRest}} + +happyReduce_43 = happyReduce 6# 18# happyReduction_43 +happyReduction_43 (happy_x_6 `HappyStk` + happy_x_5 `HappyStk` + happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut27 happy_x_2 of { happy_var_2 -> + case happyOut7 happy_x_3 of { happy_var_3 -> + case happyOut7 happy_x_5 of { happy_var_5 -> + happyIn25 + (OQual happy_var_2 happy_var_3 happy_var_5 + ) `HappyStk` happyRest}}} + +happyReduce_44 = happySpecReduce_0 19# happyReduction_44 +happyReduction_44 = happyIn26 + (CMCompl + ) + +happyReduce_45 = happySpecReduce_1 19# happyReduction_45 +happyReduction_45 happy_x_1 + = happyIn26 + (CMIncompl + ) + +happyReduce_46 = happySpecReduce_0 20# happyReduction_46 +happyReduction_46 = happyIn27 + (QOCompl + ) + +happyReduce_47 = happySpecReduce_1 20# happyReduction_47 +happyReduction_47 happy_x_1 + = happyIn27 + (QOIncompl + ) + +happyReduce_48 = happySpecReduce_1 20# happyReduction_48 +happyReduction_48 happy_x_1 + = happyIn27 + (QOInterface + ) + +happyReduce_49 = happySpecReduce_3 21# happyReduction_49 +happyReduction_49 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut47 happy_x_1 of { happy_var_1 -> + case happyOut54 happy_x_3 of { happy_var_3 -> + happyIn28 + (DDecl happy_var_1 happy_var_3 + )}} + +happyReduce_50 = happySpecReduce_3 21# happyReduction_50 +happyReduction_50 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut47 happy_x_1 of { happy_var_1 -> + case happyOut54 happy_x_3 of { happy_var_3 -> + happyIn28 + (DDef happy_var_1 happy_var_3 + )}} + +happyReduce_51 = happyReduce 4# 21# happyReduction_51 +happyReduction_51 (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 happyOut63 happy_x_2 of { happy_var_2 -> + case happyOut54 happy_x_4 of { happy_var_4 -> + happyIn28 + (DPatt happy_var_1 happy_var_2 happy_var_4 + ) `HappyStk` happyRest}}} + +happyReduce_52 = happyReduce 5# 21# happyReduction_52 +happyReduction_52 (happy_x_5 `HappyStk` + happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut47 happy_x_1 of { happy_var_1 -> + case happyOut54 happy_x_3 of { happy_var_3 -> + case happyOut54 happy_x_5 of { happy_var_5 -> + happyIn28 + (DFull happy_var_1 happy_var_3 happy_var_5 + ) `HappyStk` happyRest}}} + +happyReduce_53 = happySpecReduce_2 22# happyReduction_53 +happyReduction_53 happy_x_2 + happy_x_1 + = case happyOut40 happy_x_2 of { happy_var_2 -> + happyIn29 + (DefCat happy_var_2 + )} + +happyReduce_54 = happySpecReduce_2 22# happyReduction_54 +happyReduction_54 happy_x_2 + happy_x_1 + = case happyOut41 happy_x_2 of { happy_var_2 -> + happyIn29 + (DefFun happy_var_2 + )} + +happyReduce_55 = happySpecReduce_2 22# happyReduction_55 +happyReduction_55 happy_x_2 + happy_x_1 + = case happyOut39 happy_x_2 of { happy_var_2 -> + happyIn29 + (DefDef happy_var_2 + )} + +happyReduce_56 = happySpecReduce_2 22# happyReduction_56 +happyReduction_56 happy_x_2 + happy_x_1 + = case happyOut42 happy_x_2 of { happy_var_2 -> + happyIn29 + (DefData happy_var_2 + )} + +happyReduce_57 = happySpecReduce_2 22# happyReduction_57 +happyReduction_57 happy_x_2 + happy_x_1 + = case happyOut39 happy_x_2 of { happy_var_2 -> + happyIn29 + (DefTrans happy_var_2 + )} + +happyReduce_58 = happySpecReduce_2 22# happyReduction_58 +happyReduction_58 happy_x_2 + happy_x_1 + = case happyOut43 happy_x_2 of { happy_var_2 -> + happyIn29 + (DefPar happy_var_2 + )} + +happyReduce_59 = happySpecReduce_2 22# happyReduction_59 +happyReduction_59 happy_x_2 + happy_x_1 + = case happyOut39 happy_x_2 of { happy_var_2 -> + happyIn29 + (DefOper happy_var_2 + )} + +happyReduce_60 = happySpecReduce_2 22# happyReduction_60 +happyReduction_60 happy_x_2 + happy_x_1 + = case happyOut44 happy_x_2 of { happy_var_2 -> + happyIn29 + (DefLincat happy_var_2 + )} + +happyReduce_61 = happySpecReduce_2 22# happyReduction_61 +happyReduction_61 happy_x_2 + happy_x_1 + = case happyOut39 happy_x_2 of { happy_var_2 -> + happyIn29 + (DefLindef happy_var_2 + )} + +happyReduce_62 = happySpecReduce_2 22# happyReduction_62 +happyReduction_62 happy_x_2 + happy_x_1 + = case happyOut39 happy_x_2 of { happy_var_2 -> + happyIn29 + (DefLin happy_var_2 + )} + +happyReduce_63 = happySpecReduce_3 22# happyReduction_63 +happyReduction_63 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut44 happy_x_3 of { happy_var_3 -> + happyIn29 + (DefPrintCat happy_var_3 + )} + +happyReduce_64 = happySpecReduce_3 22# happyReduction_64 +happyReduction_64 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut44 happy_x_3 of { happy_var_3 -> + happyIn29 + (DefPrintFun happy_var_3 + )} + +happyReduce_65 = happySpecReduce_2 22# happyReduction_65 +happyReduction_65 happy_x_2 + happy_x_1 + = case happyOut45 happy_x_2 of { happy_var_2 -> + happyIn29 + (DefFlag happy_var_2 + )} + +happyReduce_66 = happySpecReduce_2 22# happyReduction_66 +happyReduction_66 happy_x_2 + happy_x_1 + = case happyOut44 happy_x_2 of { happy_var_2 -> + happyIn29 + (DefPrintOld happy_var_2 + )} + +happyReduce_67 = happySpecReduce_2 22# happyReduction_67 +happyReduction_67 happy_x_2 + happy_x_1 + = case happyOut39 happy_x_2 of { happy_var_2 -> + happyIn29 + (DefLintype happy_var_2 + )} + +happyReduce_68 = happySpecReduce_2 22# happyReduction_68 +happyReduction_68 happy_x_2 + happy_x_1 + = case happyOut39 happy_x_2 of { happy_var_2 -> + happyIn29 + (DefPattern happy_var_2 + )} + +happyReduce_69 = happySpecReduce_2 23# happyReduction_69 +happyReduction_69 happy_x_2 + happy_x_1 + = case happyOut7 happy_x_1 of { happy_var_1 -> + case happyOut79 happy_x_2 of { happy_var_2 -> + happyIn30 + (CatDef happy_var_1 (reverse happy_var_2) + )}} + +happyReduce_70 = happySpecReduce_3 24# happyReduction_70 +happyReduction_70 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut47 happy_x_1 of { happy_var_1 -> + case happyOut54 happy_x_3 of { happy_var_3 -> + happyIn31 + (FunDef happy_var_1 happy_var_3 + )}} + +happyReduce_71 = happySpecReduce_3 25# happyReduction_71 +happyReduction_71 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut7 happy_x_1 of { happy_var_1 -> + case happyOut34 happy_x_3 of { happy_var_3 -> + happyIn32 + (DataDef happy_var_1 happy_var_3 + )}} + +happyReduce_72 = happySpecReduce_1 26# happyReduction_72 +happyReduction_72 happy_x_1 + = case happyOut7 happy_x_1 of { happy_var_1 -> + happyIn33 + (DataId happy_var_1 + )} + +happyReduce_73 = happySpecReduce_3 26# happyReduction_73 +happyReduction_73 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 -> + happyIn33 + (DataQId happy_var_1 happy_var_3 + )}} + +happyReduce_74 = happySpecReduce_0 27# happyReduction_74 +happyReduction_74 = happyIn34 + ([] + ) + +happyReduce_75 = happySpecReduce_1 27# happyReduction_75 +happyReduction_75 happy_x_1 + = case happyOut33 happy_x_1 of { happy_var_1 -> + happyIn34 + ((:[]) happy_var_1 + )} + +happyReduce_76 = happySpecReduce_3 27# happyReduction_76 +happyReduction_76 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut33 happy_x_1 of { happy_var_1 -> + case happyOut34 happy_x_3 of { happy_var_3 -> + happyIn34 + ((:) happy_var_1 happy_var_3 + )}} + +happyReduce_77 = happySpecReduce_3 28# happyReduction_77 +happyReduction_77 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut7 happy_x_1 of { happy_var_1 -> + case happyOut46 happy_x_3 of { happy_var_3 -> + happyIn35 + (ParDef happy_var_1 happy_var_3 + )}} + +happyReduce_78 = happyReduce 6# 28# happyReduction_78 +happyReduction_78 (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_1 of { happy_var_1 -> + case happyOut7 happy_x_5 of { happy_var_5 -> + happyIn35 + (ParDefIndir happy_var_1 happy_var_5 + ) `HappyStk` happyRest}} + +happyReduce_79 = happySpecReduce_1 28# happyReduction_79 +happyReduction_79 happy_x_1 + = case happyOut7 happy_x_1 of { happy_var_1 -> + happyIn35 + (ParDefAbs happy_var_1 + )} + +happyReduce_80 = happySpecReduce_2 29# happyReduction_80 +happyReduction_80 happy_x_2 + happy_x_1 + = case happyOut7 happy_x_1 of { happy_var_1 -> + case happyOut79 happy_x_2 of { happy_var_2 -> + happyIn36 + (ParConstr happy_var_1 (reverse happy_var_2) + )}} + +happyReduce_81 = happySpecReduce_3 30# happyReduction_81 +happyReduction_81 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut47 happy_x_1 of { happy_var_1 -> + case happyOut54 happy_x_3 of { happy_var_3 -> + happyIn37 + (PrintDef happy_var_1 happy_var_3 + )}} + +happyReduce_82 = happySpecReduce_3 31# happyReduction_82 +happyReduction_82 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 -> + happyIn38 + (FlagDef happy_var_1 happy_var_3 + )}} + +happyReduce_83 = happySpecReduce_2 32# happyReduction_83 +happyReduction_83 happy_x_2 + happy_x_1 + = case happyOut28 happy_x_1 of { happy_var_1 -> + happyIn39 + ((:[]) happy_var_1 + )} + +happyReduce_84 = happySpecReduce_3 32# happyReduction_84 +happyReduction_84 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut28 happy_x_1 of { happy_var_1 -> + case happyOut39 happy_x_3 of { happy_var_3 -> + happyIn39 + ((:) happy_var_1 happy_var_3 + )}} + +happyReduce_85 = happySpecReduce_2 33# happyReduction_85 +happyReduction_85 happy_x_2 + happy_x_1 + = case happyOut30 happy_x_1 of { happy_var_1 -> + happyIn40 + ((:[]) happy_var_1 + )} + +happyReduce_86 = happySpecReduce_3 33# happyReduction_86 +happyReduction_86 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut30 happy_x_1 of { happy_var_1 -> + case happyOut40 happy_x_3 of { happy_var_3 -> + happyIn40 + ((:) happy_var_1 happy_var_3 + )}} + +happyReduce_87 = happySpecReduce_2 34# happyReduction_87 +happyReduction_87 happy_x_2 + happy_x_1 + = case happyOut31 happy_x_1 of { happy_var_1 -> + happyIn41 + ((:[]) happy_var_1 + )} + +happyReduce_88 = happySpecReduce_3 34# happyReduction_88 +happyReduction_88 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut31 happy_x_1 of { happy_var_1 -> + case happyOut41 happy_x_3 of { happy_var_3 -> + happyIn41 + ((:) happy_var_1 happy_var_3 + )}} + +happyReduce_89 = happySpecReduce_2 35# happyReduction_89 +happyReduction_89 happy_x_2 + happy_x_1 + = case happyOut32 happy_x_1 of { happy_var_1 -> + happyIn42 + ((:[]) happy_var_1 + )} + +happyReduce_90 = happySpecReduce_3 35# happyReduction_90 +happyReduction_90 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut32 happy_x_1 of { happy_var_1 -> + case happyOut42 happy_x_3 of { happy_var_3 -> + happyIn42 + ((:) happy_var_1 happy_var_3 + )}} + +happyReduce_91 = happySpecReduce_2 36# happyReduction_91 +happyReduction_91 happy_x_2 + happy_x_1 + = case happyOut35 happy_x_1 of { happy_var_1 -> + happyIn43 + ((:[]) happy_var_1 + )} + +happyReduce_92 = happySpecReduce_3 36# happyReduction_92 +happyReduction_92 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut35 happy_x_1 of { happy_var_1 -> + case happyOut43 happy_x_3 of { happy_var_3 -> + happyIn43 + ((:) happy_var_1 happy_var_3 + )}} + +happyReduce_93 = happySpecReduce_2 37# happyReduction_93 +happyReduction_93 happy_x_2 + happy_x_1 + = case happyOut37 happy_x_1 of { happy_var_1 -> + happyIn44 + ((:[]) happy_var_1 + )} + +happyReduce_94 = happySpecReduce_3 37# happyReduction_94 +happyReduction_94 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut37 happy_x_1 of { happy_var_1 -> + case happyOut44 happy_x_3 of { happy_var_3 -> + happyIn44 + ((:) happy_var_1 happy_var_3 + )}} + +happyReduce_95 = happySpecReduce_2 38# happyReduction_95 +happyReduction_95 happy_x_2 + happy_x_1 + = case happyOut38 happy_x_1 of { happy_var_1 -> + happyIn45 + ((:[]) happy_var_1 + )} + +happyReduce_96 = happySpecReduce_3 38# happyReduction_96 +happyReduction_96 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut38 happy_x_1 of { happy_var_1 -> + case happyOut45 happy_x_3 of { happy_var_3 -> + happyIn45 + ((:) happy_var_1 happy_var_3 + )}} + +happyReduce_97 = happySpecReduce_0 39# happyReduction_97 +happyReduction_97 = happyIn46 + ([] + ) + +happyReduce_98 = happySpecReduce_1 39# happyReduction_98 +happyReduction_98 happy_x_1 + = case happyOut36 happy_x_1 of { happy_var_1 -> + happyIn46 + ((:[]) happy_var_1 + )} + +happyReduce_99 = happySpecReduce_3 39# happyReduction_99 +happyReduction_99 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut36 happy_x_1 of { happy_var_1 -> + case happyOut46 happy_x_3 of { happy_var_3 -> + happyIn46 + ((:) happy_var_1 happy_var_3 + )}} + +happyReduce_100 = happySpecReduce_1 40# happyReduction_100 +happyReduction_100 happy_x_1 + = case happyOut7 happy_x_1 of { happy_var_1 -> + happyIn47 + ((:[]) happy_var_1 + )} + +happyReduce_101 = happySpecReduce_3 40# happyReduction_101 +happyReduction_101 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut7 happy_x_1 of { happy_var_1 -> + case happyOut47 happy_x_3 of { happy_var_3 -> + happyIn47 + ((:) happy_var_1 happy_var_3 + )}} + +happyReduce_102 = happySpecReduce_3 41# happyReduction_102 +happyReduction_102 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut47 happy_x_1 of { happy_var_1 -> + case happyOut54 happy_x_3 of { happy_var_3 -> + happyIn48 + (LDDecl happy_var_1 happy_var_3 + )}} + +happyReduce_103 = happySpecReduce_3 41# happyReduction_103 +happyReduction_103 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut47 happy_x_1 of { happy_var_1 -> + case happyOut54 happy_x_3 of { happy_var_3 -> + happyIn48 + (LDDef happy_var_1 happy_var_3 + )}} + +happyReduce_104 = happyReduce 5# 41# happyReduction_104 +happyReduction_104 (happy_x_5 `HappyStk` + happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut47 happy_x_1 of { happy_var_1 -> + case happyOut54 happy_x_3 of { happy_var_3 -> + case happyOut54 happy_x_5 of { happy_var_5 -> + happyIn48 + (LDFull happy_var_1 happy_var_3 happy_var_5 + ) `HappyStk` happyRest}}} + +happyReduce_105 = happySpecReduce_0 42# happyReduction_105 +happyReduction_105 = happyIn49 + ([] + ) + +happyReduce_106 = happySpecReduce_1 42# happyReduction_106 +happyReduction_106 happy_x_1 + = case happyOut48 happy_x_1 of { happy_var_1 -> + happyIn49 + ((:[]) happy_var_1 + )} + +happyReduce_107 = happySpecReduce_3 42# happyReduction_107 +happyReduction_107 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut48 happy_x_1 of { happy_var_1 -> + case happyOut49 happy_x_3 of { happy_var_3 -> + happyIn49 + ((:) happy_var_1 happy_var_3 + )}} + +happyReduce_108 = happySpecReduce_1 43# happyReduction_108 +happyReduction_108 happy_x_1 + = case happyOut7 happy_x_1 of { happy_var_1 -> + happyIn50 + (EIdent happy_var_1 + )} + +happyReduce_109 = happySpecReduce_3 43# happyReduction_109 +happyReduction_109 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut7 happy_x_2 of { happy_var_2 -> + happyIn50 + (EConstr happy_var_2 + )} + +happyReduce_110 = happySpecReduce_3 43# happyReduction_110 +happyReduction_110 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut7 happy_x_2 of { happy_var_2 -> + happyIn50 + (ECons happy_var_2 + )} + +happyReduce_111 = happySpecReduce_1 43# happyReduction_111 +happyReduction_111 happy_x_1 + = case happyOut60 happy_x_1 of { happy_var_1 -> + happyIn50 + (ESort happy_var_1 + )} + +happyReduce_112 = happySpecReduce_1 43# happyReduction_112 +happyReduction_112 happy_x_1 + = case happyOut8 happy_x_1 of { happy_var_1 -> + happyIn50 + (EString happy_var_1 + )} + +happyReduce_113 = happySpecReduce_1 43# happyReduction_113 +happyReduction_113 happy_x_1 + = case happyOut9 happy_x_1 of { happy_var_1 -> + happyIn50 + (EInt happy_var_1 + )} + +happyReduce_114 = happySpecReduce_1 43# happyReduction_114 +happyReduction_114 happy_x_1 + = happyIn50 + (EMeta + ) + +happyReduce_115 = happySpecReduce_2 43# happyReduction_115 +happyReduction_115 happy_x_2 + happy_x_1 + = happyIn50 + (EEmpty + ) + +happyReduce_116 = happySpecReduce_3 43# happyReduction_116 +happyReduction_116 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut8 happy_x_2 of { happy_var_2 -> + happyIn50 + (EStrings happy_var_2 + )} + +happyReduce_117 = happySpecReduce_3 43# happyReduction_117 +happyReduction_117 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut49 happy_x_2 of { happy_var_2 -> + happyIn50 + (ERecord happy_var_2 + )} + +happyReduce_118 = happySpecReduce_3 43# happyReduction_118 +happyReduction_118 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut70 happy_x_2 of { happy_var_2 -> + happyIn50 + (ETuple happy_var_2 + )} + +happyReduce_119 = happyReduce 4# 43# happyReduction_119 +happyReduction_119 (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 -> + happyIn50 + (EIndir happy_var_3 + ) `HappyStk` happyRest} + +happyReduce_120 = happyReduce 5# 43# happyReduction_120 +happyReduction_120 (happy_x_5 `HappyStk` + happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut54 happy_x_2 of { happy_var_2 -> + case happyOut54 happy_x_4 of { happy_var_4 -> + happyIn50 + (ETyped happy_var_2 happy_var_4 + ) `HappyStk` happyRest}} + +happyReduce_121 = happySpecReduce_3 43# happyReduction_121 +happyReduction_121 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut54 happy_x_2 of { happy_var_2 -> + happyIn50 + (happy_var_2 + )} + +happyReduce_122 = happySpecReduce_1 43# happyReduction_122 +happyReduction_122 happy_x_1 + = case happyOut10 happy_x_1 of { happy_var_1 -> + happyIn50 + (ELString happy_var_1 + )} + +happyReduce_123 = happySpecReduce_3 44# happyReduction_123 +happyReduction_123 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut51 happy_x_1 of { happy_var_1 -> + case happyOut59 happy_x_3 of { happy_var_3 -> + happyIn51 + (EProj happy_var_1 happy_var_3 + )}} + +happyReduce_124 = happyReduce 5# 44# happyReduction_124 +happyReduction_124 (happy_x_5 `HappyStk` + happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut7 happy_x_2 of { happy_var_2 -> + case happyOut7 happy_x_4 of { happy_var_4 -> + happyIn51 + (EQConstr happy_var_2 happy_var_4 + ) `HappyStk` happyRest}} + +happyReduce_125 = happyReduce 5# 44# happyReduction_125 +happyReduction_125 (happy_x_5 `HappyStk` + happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut7 happy_x_2 of { happy_var_2 -> + case happyOut7 happy_x_4 of { happy_var_4 -> + happyIn51 + (EQCons happy_var_2 happy_var_4 + ) `HappyStk` happyRest}} + +happyReduce_126 = happySpecReduce_1 44# happyReduction_126 +happyReduction_126 happy_x_1 + = case happyOut50 happy_x_1 of { happy_var_1 -> + happyIn51 + (happy_var_1 + )} + +happyReduce_127 = happySpecReduce_2 45# happyReduction_127 +happyReduction_127 happy_x_2 + happy_x_1 + = case happyOut52 happy_x_1 of { happy_var_1 -> + case happyOut51 happy_x_2 of { happy_var_2 -> + happyIn52 + (EApp happy_var_1 happy_var_2 + )}} + +happyReduce_128 = happyReduce 4# 45# happyReduction_128 +happyReduction_128 (happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut73 happy_x_3 of { happy_var_3 -> + happyIn52 + (ETable happy_var_3 + ) `HappyStk` happyRest} + +happyReduce_129 = happyReduce 5# 45# happyReduction_129 +happyReduction_129 (happy_x_5 `HappyStk` + happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut50 happy_x_2 of { happy_var_2 -> + case happyOut73 happy_x_4 of { happy_var_4 -> + happyIn52 + (ETTable happy_var_2 happy_var_4 + ) `HappyStk` happyRest}} + +happyReduce_130 = happyReduce 6# 45# happyReduction_130 +happyReduction_130 (happy_x_6 `HappyStk` + happy_x_5 `HappyStk` + happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut54 happy_x_2 of { happy_var_2 -> + case happyOut73 happy_x_5 of { happy_var_5 -> + happyIn52 + (ECase happy_var_2 happy_var_5 + ) `HappyStk` happyRest}} + +happyReduce_131 = happyReduce 4# 45# happyReduction_131 +happyReduction_131 (happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut55 happy_x_3 of { happy_var_3 -> + happyIn52 + (EVariants happy_var_3 + ) `HappyStk` happyRest} + +happyReduce_132 = happyReduce 6# 45# happyReduction_132 +happyReduction_132 (happy_x_6 `HappyStk` + happy_x_5 `HappyStk` + happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut54 happy_x_3 of { happy_var_3 -> + case happyOut77 happy_x_5 of { happy_var_5 -> + happyIn52 + (EPre happy_var_3 happy_var_5 + ) `HappyStk` happyRest}} + +happyReduce_133 = happyReduce 4# 45# happyReduction_133 +happyReduction_133 (happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut55 happy_x_3 of { happy_var_3 -> + happyIn52 + (EStrs happy_var_3 + ) `HappyStk` happyRest} + +happyReduce_134 = happySpecReduce_3 45# happyReduction_134 +happyReduction_134 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut7 happy_x_1 of { happy_var_1 -> + case happyOut50 happy_x_3 of { happy_var_3 -> + happyIn52 + (EConAt happy_var_1 happy_var_3 + )}} + +happyReduce_135 = happySpecReduce_1 45# happyReduction_135 +happyReduction_135 happy_x_1 + = case happyOut51 happy_x_1 of { happy_var_1 -> + happyIn52 + (happy_var_1 + )} + +happyReduce_136 = happySpecReduce_2 45# happyReduction_136 +happyReduction_136 happy_x_2 + happy_x_1 + = case happyOut7 happy_x_2 of { happy_var_2 -> + happyIn52 + (ELin happy_var_2 + )} + +happyReduce_137 = happySpecReduce_3 46# happyReduction_137 +happyReduction_137 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut53 happy_x_1 of { happy_var_1 -> + case happyOut52 happy_x_3 of { happy_var_3 -> + happyIn53 + (ESelect happy_var_1 happy_var_3 + )}} + +happyReduce_138 = happySpecReduce_3 46# happyReduction_138 +happyReduction_138 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut53 happy_x_1 of { happy_var_1 -> + case happyOut52 happy_x_3 of { happy_var_3 -> + happyIn53 + (ETupTyp happy_var_1 happy_var_3 + )}} + +happyReduce_139 = happySpecReduce_3 46# happyReduction_139 +happyReduction_139 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut53 happy_x_1 of { happy_var_1 -> + case happyOut52 happy_x_3 of { happy_var_3 -> + happyIn53 + (EExtend happy_var_1 happy_var_3 + )}} + +happyReduce_140 = happySpecReduce_1 46# happyReduction_140 +happyReduction_140 happy_x_1 + = case happyOut52 happy_x_1 of { happy_var_1 -> + happyIn53 + (happy_var_1 + )} + +happyReduce_141 = happyReduce 4# 47# happyReduction_141 +happyReduction_141 (happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut66 happy_x_2 of { happy_var_2 -> + case happyOut54 happy_x_4 of { happy_var_4 -> + happyIn54 + (EAbstr happy_var_2 happy_var_4 + ) `HappyStk` happyRest}} + +happyReduce_142 = happyReduce 5# 47# happyReduction_142 +happyReduction_142 (happy_x_5 `HappyStk` + happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut66 happy_x_3 of { happy_var_3 -> + case happyOut54 happy_x_5 of { happy_var_5 -> + happyIn54 + (ECTable happy_var_3 happy_var_5 + ) `HappyStk` happyRest}} + +happyReduce_143 = happySpecReduce_3 47# happyReduction_143 +happyReduction_143 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut67 happy_x_1 of { happy_var_1 -> + case happyOut54 happy_x_3 of { happy_var_3 -> + happyIn54 + (EProd happy_var_1 happy_var_3 + )}} + +happyReduce_144 = happySpecReduce_3 47# happyReduction_144 +happyReduction_144 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut53 happy_x_1 of { happy_var_1 -> + case happyOut54 happy_x_3 of { happy_var_3 -> + happyIn54 + (ETType happy_var_1 happy_var_3 + )}} + +happyReduce_145 = happySpecReduce_3 47# happyReduction_145 +happyReduction_145 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut53 happy_x_1 of { happy_var_1 -> + case happyOut54 happy_x_3 of { happy_var_3 -> + happyIn54 + (EConcat happy_var_1 happy_var_3 + )}} + +happyReduce_146 = happySpecReduce_3 47# happyReduction_146 +happyReduction_146 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut53 happy_x_1 of { happy_var_1 -> + case happyOut54 happy_x_3 of { happy_var_3 -> + happyIn54 + (EGlue happy_var_1 happy_var_3 + )}} + +happyReduce_147 = happyReduce 6# 47# happyReduction_147 +happyReduction_147 (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 happyOut49 happy_x_3 of { happy_var_3 -> + case happyOut54 happy_x_6 of { happy_var_6 -> + happyIn54 + (ELet happy_var_3 happy_var_6 + ) `HappyStk` happyRest}} + +happyReduce_148 = happyReduce 4# 47# happyReduction_148 +happyReduction_148 (happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut49 happy_x_2 of { happy_var_2 -> + case happyOut54 happy_x_4 of { happy_var_4 -> + happyIn54 + (ELetb happy_var_2 happy_var_4 + ) `HappyStk` happyRest}} + +happyReduce_149 = happyReduce 5# 47# 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 happyOut53 happy_x_1 of { happy_var_1 -> + case happyOut49 happy_x_4 of { happy_var_4 -> + happyIn54 + (EWhere happy_var_1 happy_var_4 + ) `HappyStk` happyRest}} + +happyReduce_150 = happyReduce 4# 47# happyReduction_150 +happyReduction_150 (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 + (EEqs happy_var_3 + ) `HappyStk` happyRest} + +happyReduce_151 = happySpecReduce_1 47# happyReduction_151 +happyReduction_151 happy_x_1 + = case happyOut53 happy_x_1 of { happy_var_1 -> + happyIn54 + (happy_var_1 + )} + +happyReduce_152 = happySpecReduce_0 48# happyReduction_152 +happyReduction_152 = happyIn55 + ([] + ) + +happyReduce_153 = happySpecReduce_1 48# happyReduction_153 +happyReduction_153 happy_x_1 + = case happyOut54 happy_x_1 of { happy_var_1 -> + happyIn55 + ((:[]) happy_var_1 + )} + +happyReduce_154 = happySpecReduce_3 48# happyReduction_154 +happyReduction_154 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut54 happy_x_1 of { happy_var_1 -> + case happyOut55 happy_x_3 of { happy_var_3 -> + happyIn55 + ((:) happy_var_1 happy_var_3 + )}} + +happyReduce_155 = happySpecReduce_1 49# happyReduction_155 +happyReduction_155 happy_x_1 + = happyIn56 + (PW + ) + +happyReduce_156 = happySpecReduce_1 49# happyReduction_156 +happyReduction_156 happy_x_1 + = case happyOut7 happy_x_1 of { happy_var_1 -> + happyIn56 + (PV happy_var_1 + )} + +happyReduce_157 = happySpecReduce_3 49# happyReduction_157 +happyReduction_157 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut7 happy_x_2 of { happy_var_2 -> + happyIn56 + (PCon happy_var_2 + )} + +happyReduce_158 = happySpecReduce_3 49# happyReduction_158 +happyReduction_158 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 -> + happyIn56 + (PQ happy_var_1 happy_var_3 + )}} + +happyReduce_159 = happySpecReduce_1 49# happyReduction_159 +happyReduction_159 happy_x_1 + = case happyOut9 happy_x_1 of { happy_var_1 -> + happyIn56 + (PInt happy_var_1 + )} + +happyReduce_160 = happySpecReduce_1 49# happyReduction_160 +happyReduction_160 happy_x_1 + = case happyOut8 happy_x_1 of { happy_var_1 -> + happyIn56 + (PStr happy_var_1 + )} + +happyReduce_161 = happySpecReduce_3 49# happyReduction_161 +happyReduction_161 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut61 happy_x_2 of { happy_var_2 -> + happyIn56 + (PR happy_var_2 + )} + +happyReduce_162 = happySpecReduce_3 49# happyReduction_162 +happyReduction_162 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut71 happy_x_2 of { happy_var_2 -> + happyIn56 + (PTup happy_var_2 + )} + +happyReduce_163 = happySpecReduce_3 49# happyReduction_163 +happyReduction_163 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut57 happy_x_2 of { happy_var_2 -> + happyIn56 + (happy_var_2 + )} + +happyReduce_164 = happySpecReduce_2 50# happyReduction_164 +happyReduction_164 happy_x_2 + happy_x_1 + = case happyOut7 happy_x_1 of { happy_var_1 -> + case happyOut63 happy_x_2 of { happy_var_2 -> + happyIn57 + (PC happy_var_1 happy_var_2 + )}} + +happyReduce_165 = happyReduce 4# 50# happyReduction_165 +happyReduction_165 (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 happyOut63 happy_x_4 of { happy_var_4 -> + happyIn57 + (PQC happy_var_1 happy_var_3 happy_var_4 + ) `HappyStk` happyRest}}} + +happyReduce_166 = happySpecReduce_1 50# happyReduction_166 +happyReduction_166 happy_x_1 + = case happyOut56 happy_x_1 of { happy_var_1 -> + happyIn57 + (happy_var_1 + )} + +happyReduce_167 = happySpecReduce_3 51# happyReduction_167 +happyReduction_167 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut47 happy_x_1 of { happy_var_1 -> + case happyOut57 happy_x_3 of { happy_var_3 -> + happyIn58 + (PA happy_var_1 happy_var_3 + )}} + +happyReduce_168 = happySpecReduce_1 52# happyReduction_168 +happyReduction_168 happy_x_1 + = case happyOut7 happy_x_1 of { happy_var_1 -> + happyIn59 + (LIdent happy_var_1 + )} + +happyReduce_169 = happySpecReduce_2 52# happyReduction_169 +happyReduction_169 happy_x_2 + happy_x_1 + = case happyOut9 happy_x_2 of { happy_var_2 -> + happyIn59 + (LVar happy_var_2 + )} + +happyReduce_170 = happySpecReduce_1 53# happyReduction_170 +happyReduction_170 happy_x_1 + = happyIn60 + (Sort_Type + ) + +happyReduce_171 = happySpecReduce_1 53# happyReduction_171 +happyReduction_171 happy_x_1 + = happyIn60 + (Sort_PType + ) + +happyReduce_172 = happySpecReduce_1 53# happyReduction_172 +happyReduction_172 happy_x_1 + = happyIn60 + (Sort_Tok + ) + +happyReduce_173 = happySpecReduce_1 53# happyReduction_173 +happyReduction_173 happy_x_1 + = happyIn60 + (Sort_Str + ) + +happyReduce_174 = happySpecReduce_1 53# happyReduction_174 +happyReduction_174 happy_x_1 + = happyIn60 + (Sort_Strs + ) + +happyReduce_175 = happySpecReduce_0 54# happyReduction_175 +happyReduction_175 = happyIn61 + ([] + ) + +happyReduce_176 = happySpecReduce_1 54# happyReduction_176 +happyReduction_176 happy_x_1 + = case happyOut58 happy_x_1 of { happy_var_1 -> + happyIn61 + ((:[]) happy_var_1 + )} + +happyReduce_177 = happySpecReduce_3 54# happyReduction_177 +happyReduction_177 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut58 happy_x_1 of { happy_var_1 -> + case happyOut61 happy_x_3 of { happy_var_3 -> + happyIn61 + ((:) happy_var_1 happy_var_3 + )}} + +happyReduce_178 = happySpecReduce_1 55# happyReduction_178 +happyReduction_178 happy_x_1 + = case happyOut57 happy_x_1 of { happy_var_1 -> + happyIn62 + (AltP happy_var_1 + )} + +happyReduce_179 = happySpecReduce_1 56# happyReduction_179 +happyReduction_179 happy_x_1 + = case happyOut56 happy_x_1 of { happy_var_1 -> + happyIn63 + ((:[]) happy_var_1 + )} + +happyReduce_180 = happySpecReduce_2 56# happyReduction_180 +happyReduction_180 happy_x_2 + happy_x_1 + = case happyOut56 happy_x_1 of { happy_var_1 -> + case happyOut63 happy_x_2 of { happy_var_2 -> + happyIn63 + ((:) happy_var_1 happy_var_2 + )}} + +happyReduce_181 = happySpecReduce_1 57# happyReduction_181 +happyReduction_181 happy_x_1 + = case happyOut62 happy_x_1 of { happy_var_1 -> + happyIn64 + ((:[]) happy_var_1 + )} + +happyReduce_182 = happySpecReduce_3 57# happyReduction_182 +happyReduction_182 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut62 happy_x_1 of { happy_var_1 -> + case happyOut64 happy_x_3 of { happy_var_3 -> + happyIn64 + ((:) happy_var_1 happy_var_3 + )}} + +happyReduce_183 = happySpecReduce_1 58# happyReduction_183 +happyReduction_183 happy_x_1 + = case happyOut7 happy_x_1 of { happy_var_1 -> + happyIn65 + (BIdent happy_var_1 + )} + +happyReduce_184 = happySpecReduce_1 58# happyReduction_184 +happyReduction_184 happy_x_1 + = happyIn65 + (BWild + ) + +happyReduce_185 = happySpecReduce_0 59# happyReduction_185 +happyReduction_185 = happyIn66 + ([] + ) + +happyReduce_186 = happySpecReduce_1 59# happyReduction_186 +happyReduction_186 happy_x_1 + = case happyOut65 happy_x_1 of { happy_var_1 -> + happyIn66 + ((:[]) happy_var_1 + )} + +happyReduce_187 = happySpecReduce_3 59# happyReduction_187 +happyReduction_187 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut65 happy_x_1 of { happy_var_1 -> + case happyOut66 happy_x_3 of { happy_var_3 -> + happyIn66 + ((:) happy_var_1 happy_var_3 + )}} + +happyReduce_188 = happyReduce 5# 60# happyReduction_188 +happyReduction_188 (happy_x_5 `HappyStk` + happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut66 happy_x_2 of { happy_var_2 -> + case happyOut54 happy_x_4 of { happy_var_4 -> + happyIn67 + (DDec happy_var_2 happy_var_4 + ) `HappyStk` happyRest}} + +happyReduce_189 = happySpecReduce_1 60# happyReduction_189 +happyReduction_189 happy_x_1 + = case happyOut52 happy_x_1 of { happy_var_1 -> + happyIn67 + (DExp happy_var_1 + )} + +happyReduce_190 = happySpecReduce_1 61# happyReduction_190 +happyReduction_190 happy_x_1 + = case happyOut54 happy_x_1 of { happy_var_1 -> + happyIn68 + (TComp happy_var_1 + )} + +happyReduce_191 = happySpecReduce_1 62# happyReduction_191 +happyReduction_191 happy_x_1 + = case happyOut57 happy_x_1 of { happy_var_1 -> + happyIn69 + (PTComp happy_var_1 + )} + +happyReduce_192 = happySpecReduce_0 63# happyReduction_192 +happyReduction_192 = happyIn70 + ([] + ) + +happyReduce_193 = happySpecReduce_1 63# happyReduction_193 +happyReduction_193 happy_x_1 + = case happyOut68 happy_x_1 of { happy_var_1 -> + happyIn70 + ((:[]) happy_var_1 + )} + +happyReduce_194 = happySpecReduce_3 63# happyReduction_194 +happyReduction_194 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut68 happy_x_1 of { happy_var_1 -> + case happyOut70 happy_x_3 of { happy_var_3 -> + happyIn70 + ((:) happy_var_1 happy_var_3 + )}} + +happyReduce_195 = happySpecReduce_0 64# happyReduction_195 +happyReduction_195 = happyIn71 + ([] + ) + +happyReduce_196 = happySpecReduce_1 64# happyReduction_196 +happyReduction_196 happy_x_1 + = case happyOut69 happy_x_1 of { happy_var_1 -> + happyIn71 + ((:[]) happy_var_1 + )} + +happyReduce_197 = happySpecReduce_3 64# happyReduction_197 +happyReduction_197 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut69 happy_x_1 of { happy_var_1 -> + case happyOut71 happy_x_3 of { happy_var_3 -> + happyIn71 + ((:) happy_var_1 happy_var_3 + )}} + +happyReduce_198 = happySpecReduce_3 65# happyReduction_198 +happyReduction_198 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut64 happy_x_1 of { happy_var_1 -> + case happyOut54 happy_x_3 of { happy_var_3 -> + happyIn72 + (Case happy_var_1 happy_var_3 + )}} + +happyReduce_199 = happySpecReduce_1 66# happyReduction_199 +happyReduction_199 happy_x_1 + = case happyOut72 happy_x_1 of { happy_var_1 -> + happyIn73 + ((:[]) happy_var_1 + )} + +happyReduce_200 = happySpecReduce_3 66# happyReduction_200 +happyReduction_200 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut72 happy_x_1 of { happy_var_1 -> + case happyOut73 happy_x_3 of { happy_var_3 -> + happyIn73 + ((:) happy_var_1 happy_var_3 + )}} + +happyReduce_201 = happySpecReduce_3 67# happyReduction_201 +happyReduction_201 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut63 happy_x_1 of { happy_var_1 -> + case happyOut54 happy_x_3 of { happy_var_3 -> + happyIn74 + (Equ happy_var_1 happy_var_3 + )}} + +happyReduce_202 = happySpecReduce_0 68# happyReduction_202 +happyReduction_202 = happyIn75 + ([] + ) + +happyReduce_203 = happySpecReduce_1 68# happyReduction_203 +happyReduction_203 happy_x_1 + = case happyOut74 happy_x_1 of { happy_var_1 -> + happyIn75 + ((:[]) happy_var_1 + )} + +happyReduce_204 = happySpecReduce_3 68# happyReduction_204 +happyReduction_204 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 + ((:) happy_var_1 happy_var_3 + )}} + +happyReduce_205 = happySpecReduce_3 69# happyReduction_205 +happyReduction_205 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut54 happy_x_1 of { happy_var_1 -> + case happyOut54 happy_x_3 of { happy_var_3 -> + happyIn76 + (Alt happy_var_1 happy_var_3 + )}} + +happyReduce_206 = happySpecReduce_0 70# happyReduction_206 +happyReduction_206 = happyIn77 + ([] + ) + +happyReduce_207 = happySpecReduce_1 70# happyReduction_207 +happyReduction_207 happy_x_1 + = case happyOut76 happy_x_1 of { happy_var_1 -> + happyIn77 + ((:[]) happy_var_1 + )} + +happyReduce_208 = happySpecReduce_3 70# happyReduction_208 +happyReduction_208 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 + ((:) happy_var_1 happy_var_3 + )}} + +happyReduce_209 = happyReduce 5# 71# happyReduction_209 +happyReduction_209 (happy_x_5 `HappyStk` + happy_x_4 `HappyStk` + happy_x_3 `HappyStk` + happy_x_2 `HappyStk` + happy_x_1 `HappyStk` + happyRest) + = case happyOut66 happy_x_2 of { happy_var_2 -> + case happyOut54 happy_x_4 of { happy_var_4 -> + happyIn78 + (DDDec happy_var_2 happy_var_4 + ) `HappyStk` happyRest}} + +happyReduce_210 = happySpecReduce_1 71# happyReduction_210 +happyReduction_210 happy_x_1 + = case happyOut50 happy_x_1 of { happy_var_1 -> + happyIn78 + (DDExp happy_var_1 + )} + +happyReduce_211 = happySpecReduce_0 72# happyReduction_211 +happyReduction_211 = happyIn79 + ([] + ) + +happyReduce_212 = happySpecReduce_2 72# happyReduction_212 +happyReduction_212 happy_x_2 + happy_x_1 + = case happyOut79 happy_x_1 of { happy_var_1 -> + case happyOut78 happy_x_2 of { happy_var_2 -> + happyIn79 + (flip (:) happy_var_1 happy_var_2 + )}} + +happyReduce_213 = happySpecReduce_2 73# happyReduction_213 +happyReduction_213 happy_x_2 + happy_x_1 + = case happyOut81 happy_x_1 of { happy_var_1 -> + case happyOut21 happy_x_2 of { happy_var_2 -> + happyIn80 + (OldGr happy_var_1 (reverse happy_var_2) + )}} + +happyReduce_214 = happySpecReduce_0 74# happyReduction_214 +happyReduction_214 = happyIn81 + (NoIncl + ) + +happyReduce_215 = happySpecReduce_2 74# happyReduction_215 +happyReduction_215 happy_x_2 + happy_x_1 + = case happyOut83 happy_x_2 of { happy_var_2 -> + happyIn81 + (Incl happy_var_2 + )} + +happyReduce_216 = happySpecReduce_1 75# happyReduction_216 +happyReduction_216 happy_x_1 + = case happyOut8 happy_x_1 of { happy_var_1 -> + happyIn82 + (FString happy_var_1 + )} + +happyReduce_217 = happySpecReduce_1 75# happyReduction_217 +happyReduction_217 happy_x_1 + = case happyOut7 happy_x_1 of { happy_var_1 -> + happyIn82 + (FIdent happy_var_1 + )} + +happyReduce_218 = happySpecReduce_2 75# happyReduction_218 +happyReduction_218 happy_x_2 + happy_x_1 + = case happyOut82 happy_x_2 of { happy_var_2 -> + happyIn82 + (FSlash happy_var_2 + )} + +happyReduce_219 = happySpecReduce_2 75# happyReduction_219 +happyReduction_219 happy_x_2 + happy_x_1 + = case happyOut82 happy_x_2 of { happy_var_2 -> + happyIn82 + (FDot happy_var_2 + )} + +happyReduce_220 = happySpecReduce_2 75# happyReduction_220 +happyReduction_220 happy_x_2 + happy_x_1 + = case happyOut82 happy_x_2 of { happy_var_2 -> + happyIn82 + (FMinus happy_var_2 + )} + +happyReduce_221 = happySpecReduce_2 75# happyReduction_221 +happyReduction_221 happy_x_2 + happy_x_1 + = case happyOut7 happy_x_1 of { happy_var_1 -> + case happyOut82 happy_x_2 of { happy_var_2 -> + happyIn82 + (FAddId happy_var_1 happy_var_2 + )}} + +happyReduce_222 = happySpecReduce_2 76# happyReduction_222 +happyReduction_222 happy_x_2 + happy_x_1 + = case happyOut82 happy_x_1 of { happy_var_1 -> + happyIn83 + ((:[]) happy_var_1 + )} + +happyReduce_223 = happySpecReduce_3 76# happyReduction_223 +happyReduction_223 happy_x_3 + happy_x_2 + happy_x_1 + = case happyOut82 happy_x_1 of { happy_var_1 -> + case happyOut83 happy_x_3 of { happy_var_3 -> + happyIn83 + ((:) happy_var_1 happy_var_3 + )}} + +happyNewToken action sts stk [] = + happyDoAction 76# (error "reading EOF!") action sts stk [] + +happyNewToken action sts stk (tk:tks) = + let cont i = happyDoAction i tk action sts stk tks in + case tk of { + PT _ (TS ";") -> cont 1#; + PT _ (TS "=") -> cont 2#; + PT _ (TS "{") -> cont 3#; + PT _ (TS "}") -> cont 4#; + PT _ (TS "(") -> cont 5#; + PT _ (TS ")") -> cont 6#; + PT _ (TS ":") -> cont 7#; + PT _ (TS "->") -> cont 8#; + PT _ (TS "**") -> cont 9#; + PT _ (TS ",") -> cont 10#; + PT _ (TS ".") -> cont 11#; + 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 "param") -> cont 59#; + PT _ (TS "pattern") -> cont 60#; + PT _ (TS "pre") -> cont 61#; + PT _ (TS "printname") -> cont 62#; + PT _ (TS "resource") -> cont 63#; + PT _ (TS "reuse") -> cont 64#; + PT _ (TS "strs") -> cont 65#; + PT _ (TS "table") -> cont 66#; + PT _ (TS "transfer") -> cont 67#; + PT _ (TS "variants") -> cont 68#; + PT _ (TS "where") -> cont 69#; + PT _ (TS "with") -> cont 70#; + PT _ (TV happy_dollar_dollar) -> cont 71#; + PT _ (TL happy_dollar_dollar) -> cont 72#; + PT _ (TI happy_dollar_dollar) -> cont 73#; + PT _ (T_LString happy_dollar_dollar) -> cont 74#; + _ -> cont 75#; + _ -> happyError tks + } + +happyThen :: Err a -> (a -> Err b) -> Err b +happyThen = (thenM) +happyReturn :: a -> Err a +happyReturn = (returnM) +happyThen1 m k tks = (thenM) m (\a -> k a tks) +happyReturn1 = \a tks -> (returnM) a + +pGrammar tks = happyThen (happyParse 0# tks) (\x -> happyReturn (happyOut11 x)) + +pModDef tks = happyThen (happyParse 1# tks) (\x -> happyReturn (happyOut13 x)) + +pOldGrammar tks = happyThen (happyParse 2# tks) (\x -> happyReturn (happyOut80 x)) + +pExp tks = happyThen (happyParse 3# tks) (\x -> happyReturn (happyOut54 x)) + +happySeq = happyDontSeq + +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 +{-# LINE 1 "GenericTemplate.hs" #-} +-- $Id: ParGF.hs,v 1.1 2003/11/11 16:44:26 aarne Exp $ + + + + + + + + + + + + + +{-# LINE 27 "GenericTemplate.hs" #-} + + + +data Happy_IntList = HappyCons Int# Happy_IntList + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +infixr 9 `HappyStk` +data HappyStk a = HappyStk a (HappyStk a) + +----------------------------------------------------------------------------- +-- starting the parse + +happyParse start_state = happyNewToken start_state notHappyAtAll notHappyAtAll + +----------------------------------------------------------------------------- +-- Accepting the parse + +happyAccept j tk st sts (HappyStk ans _) = (happyTcHack j + (happyTcHack st)) + (happyReturn1 ans) + +----------------------------------------------------------------------------- +-- Arrays only: do the next action + + + +happyDoAction i tk st + = {- nothing -} + + + case action of + 0# -> {- nothing -} + happyFail i tk st + -1# -> {- nothing -} + happyAccept i tk st + n | (n <# (0# :: Int#)) -> {- nothing -} + + (happyReduceArr ! rule) i tk st + where rule = (I# ((negateInt# ((n +# (1# :: Int#)))))) + n -> {- nothing -} + + + happyShift new_state i tk st + where new_state = (n -# (1# :: Int#)) + where off = indexShortOffAddr happyActOffsets st + off_i = (off +# i) + check = if (off_i >=# (0# :: Int#)) + then (indexShortOffAddr happyCheck off_i ==# i) + else False + action | check = indexShortOffAddr happyTable off_i + | otherwise = indexShortOffAddr happyDefActions st + + + + + + + + + + + +indexShortOffAddr (HappyA# 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# + + + + + +data HappyAddr = HappyA# Addr# + + + + +----------------------------------------------------------------------------- +-- HappyState data type (not arrays) + +{-# LINE 165 "GenericTemplate.hs" #-} + + +----------------------------------------------------------------------------- +-- Shifting a token + +happyShift new_state 0# tk st sts stk@(x `HappyStk` _) = + let i = (case unsafeCoerce# x of { (I# (i)) -> i }) in +-- trace "shifting the error token" $ + happyDoAction i tk new_state (HappyCons (st) (sts)) (stk) + +happyShift new_state i tk st sts stk = + happyNewToken new_state (HappyCons (st) (sts)) ((happyInTok (tk))`HappyStk`stk) + +-- happyReduce is specialised for the common cases. + +happySpecReduce_0 i fn 0# tk st sts stk + = happyFail 0# tk st sts stk +happySpecReduce_0 nt fn j tk st@((action)) sts stk + = happyGoto nt j tk st (HappyCons (st) (sts)) (fn `HappyStk` stk) + +happySpecReduce_1 i fn 0# tk st sts stk + = happyFail 0# tk st sts stk +happySpecReduce_1 nt fn j tk _ sts@((HappyCons (st@(action)) (_))) (v1`HappyStk`stk') + = let r = fn v1 in + happySeq r (happyGoto nt j tk st sts (r `HappyStk` stk')) + +happySpecReduce_2 i fn 0# tk st sts stk + = happyFail 0# tk st sts stk +happySpecReduce_2 nt fn j tk _ (HappyCons (_) (sts@((HappyCons (st@(action)) (_))))) (v1`HappyStk`v2`HappyStk`stk') + = let r = fn v1 v2 in + happySeq r (happyGoto nt j tk st sts (r `HappyStk` stk')) + +happySpecReduce_3 i fn 0# tk st sts stk + = happyFail 0# tk st sts stk +happySpecReduce_3 nt fn j tk _ (HappyCons (_) ((HappyCons (_) (sts@((HappyCons (st@(action)) (_))))))) (v1`HappyStk`v2`HappyStk`v3`HappyStk`stk') + = let r = fn v1 v2 v3 in + happySeq r (happyGoto nt j tk st sts (r `HappyStk` stk')) + +happyReduce k i fn 0# tk st sts stk + = happyFail 0# tk st sts stk +happyReduce k nt fn j tk st sts stk + = case happyDrop (k -# (1# :: Int#)) sts of + sts1@((HappyCons (st1@(action)) (_))) -> + let r = fn stk in -- it doesn't hurt to always seq here... + happyDoSeq r (happyGoto nt j tk st1 sts1 r) + +happyMonadReduce k nt fn 0# tk st sts stk + = happyFail 0# tk st sts stk +happyMonadReduce k nt fn j tk st sts stk = + happyThen1 (fn stk) (\r -> happyGoto nt j tk st1 sts1 (r `HappyStk` drop_stk)) + where sts1@((HappyCons (st1@(action)) (_))) = happyDrop k (HappyCons (st) (sts)) + drop_stk = happyDropStk k stk + +happyDrop 0# l = l +happyDrop n (HappyCons (_) (t)) = happyDrop (n -# (1# :: Int#)) t + +happyDropStk 0# l = l +happyDropStk n (x `HappyStk` xs) = happyDropStk (n -# (1#::Int#)) xs + +----------------------------------------------------------------------------- +-- Moving to a new state after a reduction + + +happyGoto nt j tk st = + {- nothing -} + happyDoAction j tk new_state + where off = indexShortOffAddr happyGotoOffsets st + off_i = (off +# nt) + new_state = indexShortOffAddr happyTable off_i + + + + +----------------------------------------------------------------------------- +-- Error recovery (0# is the error token) + +-- parse error if we are in recovery and we fail again +happyFail 0# tk old_st _ stk = +-- trace "failing" $ + happyError + + +{- 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 + for now --SDM + +-- discard a state +happyFail 0# tk old_st (HappyCons ((action)) (sts)) + (saved_tok `HappyStk` _ `HappyStk` stk) = +-- trace ("discarding state, depth " ++ show (length stk)) $ + happyDoAction 0# tk action sts ((saved_tok`HappyStk`stk)) +-} + +-- Enter error recovery: generate an error token, +-- save the old token and carry on. +happyFail i tk (action) sts stk = +-- trace "entering error recovery" $ + happyDoAction 0# tk action sts ( (unsafeCoerce# (I# (i))) `HappyStk` stk) + +-- Internal happy errors: + +notHappyAtAll = error "Internal Happy error\n" + +----------------------------------------------------------------------------- +-- Hack to get the typechecker to accept our action functions + + +happyTcHack :: Int# -> a -> a +happyTcHack x y = y +{-# INLINE happyTcHack #-} + + +----------------------------------------------------------------------------- +-- Seq-ing. If the --strict flag is given, then Happy emits +-- happySeq = happyDoSeq +-- otherwise it emits +-- happySeq = happyDontSeq + +happyDoSeq, happyDontSeq :: a -> b -> b +happyDoSeq a b = a `seq` b +happyDontSeq a b = b + +----------------------------------------------------------------------------- +-- Don't inline any functions from the template. GHC has a nasty habit +-- of deciding to inline happyGoto everywhere, which increases the size of +-- the generated parser quite a bit. + + +{-# NOINLINE happyDoAction #-} +{-# NOINLINE happyTable #-} +{-# NOINLINE happyCheck #-} +{-# NOINLINE happyActOffsets #-} +{-# NOINLINE happyGotoOffsets #-} +{-# NOINLINE happyDefActions #-} + +{-# NOINLINE happyShift #-} +{-# NOINLINE happySpecReduce_0 #-} +{-# NOINLINE happySpecReduce_1 #-} +{-# NOINLINE happySpecReduce_2 #-} +{-# NOINLINE happySpecReduce_3 #-} +{-# NOINLINE happyReduce #-} +{-# NOINLINE happyMonadReduce #-} +{-# NOINLINE happyGoto #-} +{-# NOINLINE happyFail #-} + +-- end of Happy Template. diff --git a/src/JavaGUI/GFEditor2.java b/src/JavaGUI/GFEditor2.java index a30d63c56..895781e50 100644 --- a/src/JavaGUI/GFEditor2.java +++ b/src/JavaGUI/GFEditor2.java @@ -1434,8 +1434,8 @@ public class GFEditor2 extends JFrame implements ActionListener, CaretListener, { position = jElement.position+"]"; System.out.println("SELECTEDTEXT: "+position+"\n"); - //treeChanged = true; - //send("mp "+position); + treeChanged = true; + send("mp "+position); } } else System.out.println("no position in vector of size: "+outputVector.size()); diff --git a/src/Makefile b/src/Makefile index c5816b2ab..a2e1ee8dd 100644 --- a/src/Makefile +++ b/src/Makefile @@ -1,9 +1,9 @@ GHMAKE=ghc GHCFLAGS=-package lang -package util -fglasgow-exts GHCFUDFLAG=-package Fudgets -GHCINCLUDE=-iapi -icompile -igrammar -iinfra -ishell -isource -icanonical -iuseGrammar -icf -ifor-ghc -iparsing -GHCINCLUDENOFUD=-iapi -icompile -igrammar -iinfra -ishell -isource -icanonical -iuseGrammar -icf -ifor-ghc-nofud -iparsing -WINDOWSINCLUDE=-ifor-windows -iapi -icompile -igrammar -iinfra -ishell -isource -icanonical -iuseGrammar -icf -iparsing +GHCINCLUDE=-iapi -icompile -igrammar -iinfra -ishell -isource -icanonical -iuseGrammar -icf -ifor-ghc -iparsing -iparsers +GHCINCLUDENOFUD=-iapi -icompile -igrammar -iinfra -ishell -isource -icanonical -iuseGrammar -icf -ifor-ghc-nofud -iparsing -iparsers +WINDOWSINCLUDE=-ifor-windows -iapi -icompile -igrammar -iinfra -ishell -isource -icanonical -iuseGrammar -icf -iparsing -iparsers all: make today ; make ghc diff --git a/src/Today.hs b/src/Today.hs index f6bda46c7..8f78c5d83 100644 --- a/src/Today.hs +++ b/src/Today.hs @@ -1 +1 @@ -module Today where today = "Mon Nov 10 17:40:41 CET 2003" +module Today where today = "Tue Nov 11 17:15:59 CET 2003"