summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorkrasimir <krasimir@chalmers.se>2009-03-17 08:49:06 +0000
committerkrasimir <krasimir@chalmers.se>2009-03-17 08:49:06 +0000
commit13a8fe8c9eb093a06e175a238869f55091599263 (patch)
tree831083eea4da1da4aba9ad869be7d16a9a26cc39
parent9cae779ac513b3bfda9a53a44b0740e7e1b50dde (diff)
add the compiled Haskell sources for Parser and Lexer
Diffstat
-rw-r--r--src/GF/Grammar/Lexer.hs478
-rw-r--r--src/GF/Grammar/Parser.hs3404
2 files changed, 3882 insertions, 0 deletions
diff --git a/src/GF/Grammar/Lexer.hs b/src/GF/Grammar/Lexer.hs
new file mode 100644
index 000000000..7cacb0588
--- /dev/null
+++ b/src/GF/Grammar/Lexer.hs
@@ -0,0 +1,478 @@
+{-# OPTIONS -fglasgow-exts -cpp #-}
+{-# LINE 3 "src\GF\Grammar\Lexer.x" #-}
+
+module GF.Grammar.Lexer
+ ( Token(..), Posn(..)
+ , P, runP, lexer, getPosn, failLoc
+ , isReservedWord
+ ) where
+
+import GF.Infra.Ident
+import GF.Data.Operations
+import qualified Data.ByteString.Char8 as BS
+import qualified Data.Map as Map
+
+
+#if __GLASGOW_HASKELL__ >= 603
+#include "ghcconfig.h"
+#elif defined(__GLASGOW_HASKELL__)
+#include "config.h"
+#endif
+#if __GLASGOW_HASKELL__ >= 503
+import Data.Array
+import Data.Char (ord)
+import Data.Array.Base (unsafeAt)
+#else
+import Array
+import Char (ord)
+#endif
+#if __GLASGOW_HASKELL__ >= 503
+import GHC.Exts
+#else
+import GlaExts
+#endif
+alex_base :: AlexAddr
+alex_base = AlexA# "\x01\x00\x00\x00\x15\x00\x00\x00\x39\x00\x00\x00\x3a\x00\x00\x00\x18\x00\x00\x00\x19\x00\x00\x00\x1a\x00\x00\x00\x00\x00\x00\x00\x44\x00\x00\x00\x45\x00\x00\x00\x1b\x00\x00\x00\x1c\x00\x00\x00\x1d\x00\x00\x00\x42\x00\x00\x00\x00\x00\x00\x00\x26\x00\x00\x00\x27\x00\x00\x00\xf5\xff\xff\xff\x16\x00\x00\x00\x9c\x00\x00\x00\x00\x00\x00\x00\x2c\x00\x00\x00\x2e\x00\x00\x00\x6c\x01\x00\x00\x3c\x02\x00\x00\x00\x00\x00\x00\x17\x01\x00\x00\xe7\x01\x00\x00\xd5\x00\x00\x00\x35\x00\x00\x00\xe7\x00\x00\x00\xf2\x00\x00\x00\x1d\x01\x00\x00\xc2\x01\x00\x00\xcc\x01\x00\x00"#
+
+alex_table :: AlexAddr
+alex_table = AlexA# "\x00\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x0d\x00\x0d\x00\x0d\x00\x0d\x00\x0d\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x0d\x00\x0e\x00\x1a\x00\x0e\x00\x0e\x00\x0e\x00\xff\xff\x15\x00\x0e\x00\x0e\x00\x0f\x00\x10\x00\x0e\x00\x05\x00\x0e\x00\x0e\x00\x1d\x00\x1d\x00\x1d\x00\x1d\x00\x1d\x00\x1d\x00\x1d\x00\x1d\x00\x1d\x00\x1d\x00\x0e\x00\x0e\x00\x0e\x00\x12\x00\x0e\x00\x0e\x00\x0e\x00\x04\x00\xff\xff\xff\xff\x02\x00\x02\x00\x09\x00\x09\x00\x09\x00\x0a\x00\x0d\x00\x0d\x00\x0d\x00\x0d\x00\x0d\x00\x0e\x00\x0e\x00\x0e\x00\x14\x00\x0e\x00\x14\x00\x00\x00\x0e\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0e\x00\x11\x00\x0e\x00\xff\xff\x13\x00\xff\xff\x0d\x00\x20\x00\x00\x00\x1d\x00\x1d\x00\x1d\x00\x1d\x00\x1d\x00\x1d\x00\x1d\x00\x1d\x00\x1d\x00\x1d\x00\x00\x00\x00\x00\x09\x00\x08\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0c\x00\x0e\x00\x0e\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x06\x00\x07\x00\x18\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x00\x00\x00\x00\xff\xff\x00\x00\x00\x00\x00\x00\x00\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x1b\x00\xff\xff\x00\x00\x00\x00\x18\x00\x1b\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x1e\x00\x1e\x00\x1e\x00\x1e\x00\x1e\x00\x1e\x00\x1e\x00\x1e\x00\x1e\x00\x1e\x00\xff\xff\x1f\x00\x1f\x00\x1f\x00\x1f\x00\x1f\x00\x1f\x00\x1f\x00\x1f\x00\x1f\x00\x1f\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x1b\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x19\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x1b\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x1b\x00\x00\x00\x00\x00\x21\x00\x1e\x00\x1e\x00\x1e\x00\x1e\x00\x1e\x00\x1e\x00\x1e\x00\x1e\x00\x1e\x00\x1e\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x1c\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x00\x00\x00\x00\x00\x00\x00\x00\x18\x00\x00\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x22\x00\x00\x00\xff\xff\x1f\x00\x1f\x00\x1f\x00\x1f\x00\x1f\x00\x1f\x00\x1f\x00\x1f\x00\x1f\x00\x1f\x00\x1f\x00\x1f\x00\x1f\x00\x1f\x00\x1f\x00\x1f\x00\x1f\x00\x1f\x00\x1f\x00\x1f\x00\x00\x00\x00\x00\x00\x00\x19\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x1c\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x00\x00\x00\x00\x00\x00\x00\x00\x18\x00\x00\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x00\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x00\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00\x18\x00"#
+
+alex_check :: AlexAddr
+alex_check = AlexA# "\xff\xff\x00\x00\x01\x00\x02\x00\x03\x00\x04\x00\x05\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x12\x00\x13\x00\x14\x00\x15\x00\x16\x00\x17\x00\x18\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x24\x00\x25\x00\x26\x00\x27\x00\x28\x00\x29\x00\x2a\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x39\x00\x3a\x00\x3b\x00\x3c\x00\x3d\x00\x3e\x00\x3f\x00\x40\x00\x2d\x00\x0a\x00\x0a\x00\x2d\x00\x2d\x00\x2d\x00\x2d\x00\x2d\x00\x2d\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x2a\x00\x5c\x00\x2b\x00\x27\x00\x3e\x00\x27\x00\xff\xff\x3e\x00\xff\xff\xff\xff\xff\xff\xff\xff\x5b\x00\x5c\x00\x5d\x00\x5e\x00\x5f\x00\x60\x00\x20\x00\x2e\x00\xff\xff\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x39\x00\xff\xff\xff\xff\x2d\x00\x2d\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x7b\x00\x7c\x00\x7d\x00\x7e\x00\x7f\x00\x80\x00\x81\x00\x82\x00\x83\x00\x84\x00\x85\x00\x86\x00\x87\x00\x88\x00\x89\x00\x8a\x00\x8b\x00\x8c\x00\x8d\x00\x8e\x00\x8f\x00\x90\x00\x91\x00\x92\x00\x93\x00\x94\x00\x95\x00\x96\x00\x97\x00\x98\x00\x99\x00\x9a\x00\x9b\x00\x9c\x00\x9d\x00\x9e\x00\x9f\x00\xa0\x00\xa1\x00\xa2\x00\xa3\x00\xa4\x00\xa5\x00\xa6\x00\xa7\x00\xa8\x00\xa9\x00\xaa\x00\xab\x00\xac\x00\xad\x00\xae\x00\xaf\x00\xb0\x00\xb1\x00\xb2\x00\xb3\x00\xb4\x00\xb5\x00\xb6\x00\xb7\x00\xb8\x00\xb9\x00\xba\x00\xbb\x00\xbc\x00\xbd\x00\xbe\x00\xbf\x00\x7d\x00\x7d\x00\x27\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x39\x00\xff\xff\xff\xff\xd7\x00\xff\xff\xff\xff\xff\xff\xff\xff\x41\x00\x42\x00\x43\x00\x44\x00\x45\x00\x46\x00\x47\x00\x48\x00\x49\x00\x4a\x00\x4b\x00\x4c\x00\x4d\x00\x4e\x00\x4f\x00\x50\x00\x51\x00\x52\x00\x53\x00\x54\x00\x55\x00\x56\x00\x57\x00\x58\x00\x59\x00\x5a\x00\x22\x00\xf7\x00\xff\xff\xff\xff\x5f\x00\x27\x00\x61\x00\x62\x00\x63\x00\x64\x00\x65\x00\x66\x00\x67\x00\x68\x00\x69\x00\x6a\x00\x6b\x00\x6c\x00\x6d\x00\x6e\x00\x6f\x00\x70\x00\x71\x00\x72\x00\x73\x00\x74\x00\x75\x00\x76\x00\x77\x00\x78\x00\x79\x00\x7a\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x39\x00\x0a\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x39\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x5c\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x22\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x6e\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x74\x00\xff\xff\xff\xff\x65\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x39\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xc0\x00\xc1\x00\xc2\x00\xc3\x00\xc4\x00\xc5\x00\xc6\x00\xc7\x00\xc8\x00\xc9\x00\xca\x00\xcb\x00\xcc\x00\xcd\x00\xce\x00\xcf\x00\xd0\x00\xd1\x00\xd2\x00\xd3\x00\xd4\x00\xd5\x00\xd6\x00\x5c\x00\xd8\x00\xd9\x00\xda\x00\xdb\x00\xdc\x00\xdd\x00\xde\x00\xdf\x00\xe0\x00\xe1\x00\xe2\x00\xe3\x00\xe4\x00\xe5\x00\xe6\x00\xe7\x00\xe8\x00\xe9\x00\xea\x00\xeb\x00\xec\x00\xed\x00\xee\x00\xef\x00\xf0\x00\xf1\x00\xf2\x00\xf3\x00\xf4\x00\xf5\x00\xf6\x00\x27\x00\xf8\x00\xf9\x00\xfa\x00\xfb\x00\xfc\x00\xfd\x00\xfe\x00\xff\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x39\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x41\x00\x42\x00\x43\x00\x44\x00\x45\x00\x46\x00\x47\x00\x48\x00\x49\x00\x4a\x00\x4b\x00\x4c\x00\x4d\x00\x4e\x00\x4f\x00\x50\x00\x51\x00\x52\x00\x53\x00\x54\x00\x55\x00\x56\x00\x57\x00\x58\x00\x59\x00\x5a\x00\xff\xff\xff\xff\xff\xff\xff\xff\x5f\x00\xff\xff\x61\x00\x62\x00\x63\x00\x64\x00\x65\x00\x66\x00\x67\x00\x68\x00\x69\x00\x6a\x00\x6b\x00\x6c\x00\x6d\x00\x6e\x00\x6f\x00\x70\x00\x71\x00\x72\x00\x73\x00\x74\x00\x75\x00\x76\x00\x77\x00\x78\x00\x79\x00\x7a\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x2d\x00\xff\xff\x0a\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x39\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x39\x00\xff\xff\xff\xff\xff\xff\x22\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xc0\x00\xc1\x00\xc2\x00\xc3\x00\xc4\x00\xc5\x00\xc6\x00\xc7\x00\xc8\x00\xc9\x00\xca\x00\xcb\x00\xcc\x00\xcd\x00\xce\x00\xcf\x00\xd0\x00\xd1\x00\xd2\x00\xd3\x00\xd4\x00\xd5\x00\xd6\x00\x5c\x00\xd8\x00\xd9\x00\xda\x00\xdb\x00\xdc\x00\xdd\x00\xde\x00\xdf\x00\xe0\x00\xe1\x00\xe2\x00\xe3\x00\xe4\x00\xe5\x00\xe6\x00\xe7\x00\xe8\x00\xe9\x00\xea\x00\xeb\x00\xec\x00\xed\x00\xee\x00\xef\x00\xf0\x00\xf1\x00\xf2\x00\xf3\x00\xf4\x00\xf5\x00\xf6\x00\x27\x00\xf8\x00\xf9\x00\xfa\x00\xfb\x00\xfc\x00\xfd\x00\xfe\x00\xff\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x39\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x41\x00\x42\x00\x43\x00\x44\x00\x45\x00\x46\x00\x47\x00\x48\x00\x49\x00\x4a\x00\x4b\x00\x4c\x00\x4d\x00\x4e\x00\x4f\x00\x50\x00\x51\x00\x52\x00\x53\x00\x54\x00\x55\x00\x56\x00\x57\x00\x58\x00\x59\x00\x5a\x00\xff\xff\xff\xff\xff\xff\xff\xff\x5f\x00\xff\xff\x61\x00\x62\x00\x63\x00\x64\x00\x65\x00\x66\x00\x67\x00\x68\x00\x69\x00\x6a\x00\x6b\x00\x6c\x00\x6d\x00\x6e\x00\x6f\x00\x70\x00\x71\x00\x72\x00\x73\x00\x74\x00\x75\x00\x76\x00\x77\x00\x78\x00\x79\x00\x7a\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xc0\x00\xc1\x00\xc2\x00\xc3\x00\xc4\x00\xc5\x00\xc6\x00\xc7\x00\xc8\x00\xc9\x00\xca\x00\xcb\x00\xcc\x00\xcd\x00\xce\x00\xcf\x00\xd0\x00\xd1\x00\xd2\x00\xd3\x00\xd4\x00\xd5\x00\xd6\x00\xff\xff\xd8\x00\xd9\x00\xda\x00\xdb\x00\xdc\x00\xdd\x00\xde\x00\xdf\x00\xe0\x00\xe1\x00\xe2\x00\xe3\x00\xe4\x00\xe5\x00\xe6\x00\xe7\x00\xe8\x00\xe9\x00\xea\x00\xeb\x00\xec\x00\xed\x00\xee\x00\xef\x00\xf0\x00\xf1\x00\xf2\x00\xf3\x00\xf4\x00\xf5\x00\xf6\x00\xff\xff\xf8\x00\xf9\x00\xfa\x00\xfb\x00\xfc\x00\xfd\x00\xfe\x00\xff\x00"#
+
+alex_deflt :: AlexAddr
+alex_deflt = AlexA# "\x17\x00\xff\xff\x03\x00\x03\x00\xff\xff\xff\xff\x0b\x00\xff\xff\x0b\x00\x0b\x00\x0b\x00\x0b\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x16\x00\x16\x00\xff\xff\xff\xff\xff\xff\x1b\x00\x1b\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff"#
+
+alex_accept = listArray (0::Int,34) [[],[],[(AlexAccSkip)],[(AlexAccSkip)],[],[(AlexAcc (alex_action_3))],[(AlexAccSkip)],[(AlexAccSkip)],[],[],[],[],[(AlexAcc (alex_action_3))],[(AlexAccSkip)],[(AlexAcc (alex_action_3))],[(AlexAcc (alex_action_3))],[(AlexAcc (alex_action_3))],[(AlexAcc (alex_action_3))],[(AlexAcc (alex_action_3))],[(AlexAcc (alex_action_3))],[(AlexAcc (alex_action_4))],[],[],[(AlexAcc (alex_action_5))],[(AlexAcc (alex_action_5))],[(AlexAcc (alex_action_6))],[],[],[],[(AlexAcc (alex_action_7))],[(AlexAcc (alex_action_8))],[(AlexAcc (alex_action_8))],[],[],[]]
+{-# LINE 42 "src\GF\Grammar\Lexer.x" #-}
+
+
+tok f p s = f s
+
+data Token
+ = T_exclmark
+ | T_patt
+ | T_int_label
+ | T_oparen
+ | T_cparen
+ | T_star
+ | T_starstar
+ | T_plus
+ | T_plusplus
+ | T_comma
+ | T_minus
+ | T_rarrow
+ | T_dot
+ | T_alt
+ | T_colon
+ | T_semicolon
+ | T_less
+ | T_equal
+ | T_big_rarrow
+ | T_great
+ | T_questmark
+ | T_obrack
+ | T_lam
+ | T_lamlam
+ | T_cbrack
+ | T_ocurly
+ | T_bar
+ | T_ccurly
+ | T_underscore
+ | T_at
+ | T_PType
+ | T_Str
+ | T_Strs
+ | T_Tok
+ | T_Type
+ | T_abstract
+ | T_case
+ | T_cat
+ | T_concrete
+ | T_data
+ | T_def
+ | T_flags
+ | T_fn
+ | T_fun
+ | T_in
+ | T_incomplete
+ | T_instance
+ | T_interface
+ | T_let
+ | T_lin
+ | T_lincat
+ | T_lindef
+ | T_of
+ | T_open
+ | T_oper
+ | T_param
+ | T_pattern
+ | T_pre
+ | T_printname
+ | T_resource
+ | T_strs
+ | T_table
+ | T_transfer
+ | T_variants
+ | T_where
+ | T_with
+ | T_String String -- string literals
+ | T_Integer Integer -- integer literals
+ | T_Double Double -- double precision float literals
+ | T_LString String
+ | T_Ident Ident
+ | T_EOF
+
+eitherResIdent :: (BS.ByteString -> Token) -> BS.ByteString -> Token
+eitherResIdent tv s =
+ case Map.lookup s resWords of
+ Just t -> t
+ Nothing -> tv s
+
+isReservedWord :: BS.ByteString -> Bool
+isReservedWord s = Map.member s resWords
+
+resWords = Map.fromList
+ [ b "!" T_exclmark
+ , b "#" T_patt
+ , b "$" T_int_label
+ , b "(" T_oparen
+ , b ")" T_cparen
+ , b "*" T_star
+ , b "**" T_starstar
+ , b "+" T_plus
+ , b "++" T_plusplus
+ , b "," T_comma
+ , b "-" T_minus
+ , b "->" T_rarrow
+ , b "." T_dot
+ , b "/" T_alt
+ , b ":" T_colon
+ , b ";" T_semicolon
+ , b "<" T_less
+ , b "=" T_equal
+ , b "=>" T_big_rarrow
+ , b ">" T_great
+ , b "?" T_questmark
+ , b "[" T_obrack
+ , b "]" T_cbrack
+ , b "\\" T_lam
+ , b "\\\\" T_lamlam
+ , b "{" T_ocurly
+ , b "}" T_ccurly
+ , b "|" T_bar
+ , b "_" T_underscore
+ , b "@" T_at
+ , b "PType" T_PType
+ , b "Str" T_Str
+ , b "Strs" T_Strs
+ , b "Tok" T_Tok
+ , b "Type" T_Type
+ , b "abstract" T_abstract
+ , b "case" T_case
+ , b "cat" T_cat
+ , b "concrete" T_concrete
+ , b "data" T_data
+ , b "def" T_def
+ , b "flags" T_flags
+ , b "fn" T_fn
+ , b "fun" T_fun
+ , b "in" T_in
+ , b "incomplete" T_incomplete
+ , b "instance" T_instance
+ , b "interface" T_interface
+ , b "let" T_let
+ , b "lin" T_lin
+ , b "lincat" T_lincat
+ , b "lindef" T_lindef
+ , b "of" T_of
+ , b "open" T_open
+ , b "oper" T_oper
+ , b "param" T_param
+ , b "pattern" T_pattern
+ , b "pre" T_pre
+ , b "printname" T_printname
+ , b "resource" T_resource
+ , b "strs" T_strs
+ , b "table" T_table
+ , b "transfer" T_transfer
+ , b "variants" T_variants
+ , b "where" T_where
+ , b "with" T_with
+ ]
+ where b s t = (BS.pack s, t)
+
+unescapeInitTail :: String -> String
+unescapeInitTail = unesc . tail where
+ unesc s = case s of
+ '\\':c:cs | elem c ['\"', '\\', '\''] -> c : unesc cs
+ '\\':'n':cs -> '\n' : unesc cs
+ '\\':'t':cs -> '\t' : unesc cs
+ '"':[] -> []
+ c:cs -> c : unesc cs
+ _ -> []
+
+-------------------------------------------------------------------
+-- Alex wrapper code.
+-- A modified "posn" wrapper.
+-------------------------------------------------------------------
+
+data Posn = Pn {-# UNPACK #-} !Int
+ {-# UNPACK #-} !Int
+
+alexMove :: Posn -> Char -> Posn
+alexMove (Pn l c) '\n' = Pn (l+1) 1
+alexMove (Pn l c) _ = Pn l (c+1)
+
+alexGetChar :: AlexInput -> Maybe (Char,AlexInput)
+alexGetChar (AI p _ s) =
+ case BS.uncons s of
+ Nothing -> Nothing
+ Just (c,s) ->
+ let p' = alexMove p c
+ in p' `seq` Just (c, (AI p' c s))
+
+alexInputPrevChar :: AlexInput -> Char
+alexInputPrevChar (AI p c s) = c
+
+data AlexInput = AI {-# UNPACK #-} !Posn -- current position,
+ {-# UNPACK #-} !Char -- previous char
+ {-# UNPACK #-} !BS.ByteString -- current input string
+
+data ParseResult a
+ = POk AlexInput a
+ | PFailed Posn -- The position of the error
+ String -- The error message
+
+newtype P a = P { unP :: AlexInput -> ParseResult a }
+
+instance Monad P where
+ return a = a `seq` (P $ \s -> POk s a)
+ (P m) >>= k = P $ \ s -> case m s of
+ POk s1 a -> unP (k a) s1
+ PFailed posn err -> PFailed posn err
+ fail msg = P $ \(AI posn _ _) -> PFailed posn msg
+
+runP :: P a -> BS.ByteString -> Either (Posn,String) a
+runP (P f) txt =
+ case f (AI (Pn 1 0) ' ' txt) of
+ POk _ x -> Right x
+ PFailed pos msg -> Left (pos,msg)
+
+failLoc :: Posn -> String -> P a
+failLoc pos msg = P $ \_ -> PFailed pos msg
+
+lexer :: (Token -> P a) -> P a
+lexer cont = P go
+ where
+ go inp@(AI pos _ str) =
+ case alexScan inp 0 of
+ AlexEOF -> unP (cont T_EOF) inp
+ AlexError (AI pos _ _) -> PFailed pos "lexical error"
+ AlexSkip inp' len -> go inp'
+ AlexToken inp' len act -> unP (cont (act pos (BS.take len str))) inp'
+
+getPosn :: P Posn
+getPosn = P $ \inp@(AI pos _ _) -> POk inp pos
+
+
+alex_action_3 = tok (eitherResIdent (T_Ident . identC))
+alex_action_4 = tok (eitherResIdent (T_LString . BS.unpack))
+alex_action_5 = tok (eitherResIdent (T_Ident . identC))
+alex_action_6 = tok (T_String . unescapeInitTail . BS.unpack)
+alex_action_7 = tok (T_Integer . read . BS.unpack)
+alex_action_8 = tok (T_Double . read . BS.unpack)
+{-# LINE 1 "templates/GenericTemplate.hs" #-}
+{-# LINE 1 "templates/GenericTemplate.hs" #-}
+{-# LINE 1 "<built-in>" #-}
+{-# LINE 1 "<command line>" #-}
+{-# LINE 1 "templates/GenericTemplate.hs" #-}
+-- -----------------------------------------------------------------------------
+-- ALEX TEMPLATE
+--
+-- This code is in the PUBLIC DOMAIN; you may copy it freely and use
+-- it for any purpose whatsoever.
+
+-- -----------------------------------------------------------------------------
+-- INTERNALS and main scanner engine
+
+{-# LINE 35 "templates/GenericTemplate.hs" #-}
+
+{-# LINE 45 "templates/GenericTemplate.hs" #-}
+
+
+data AlexAddr = AlexA# Addr#
+
+#if __GLASGOW_HASKELL__ < 503
+uncheckedShiftL# = shiftL#
+#endif
+
+{-# INLINE alexIndexInt16OffAddr #-}
+alexIndexInt16OffAddr (AlexA# arr) off =
+#ifdef WORDS_BIGENDIAN
+ narrow16Int# i
+ where
+ i = word2Int# ((high `uncheckedShiftL#` 8#) `or#` low)
+ high = int2Word# (ord# (indexCharOffAddr# arr (off' +# 1#)))
+ low = int2Word# (ord# (indexCharOffAddr# arr off'))
+ off' = off *# 2#
+#else
+ indexInt16OffAddr# arr off
+#endif
+
+
+
+
+
+{-# INLINE alexIndexInt32OffAddr #-}
+alexIndexInt32OffAddr (AlexA# arr) off =
+#ifdef WORDS_BIGENDIAN
+ narrow32Int# i
+ where
+ i = word2Int# ((b3 `uncheckedShiftL#` 24#) `or#`
+ (b2 `uncheckedShiftL#` 16#) `or#`
+ (b1 `uncheckedShiftL#` 8#) `or#` b0)
+ b3 = int2Word# (ord# (indexCharOffAddr# arr (off' +# 3#)))
+ b2 = int2Word# (ord# (indexCharOffAddr# arr (off' +# 2#)))
+ b1 = int2Word# (ord# (indexCharOffAddr# arr (off' +# 1#)))
+ b0 = int2Word# (ord# (indexCharOffAddr# arr off'))
+ off' = off *# 4#
+#else
+ indexInt32OffAddr# arr off
+#endif
+
+
+
+
+
+#if __GLASGOW_HASKELL__ < 503
+quickIndex arr i = arr ! i
+#else
+-- GHC >= 503, unsafeAt is available from Data.Array.Base.
+quickIndex = unsafeAt
+#endif
+
+
+
+
+-- -----------------------------------------------------------------------------
+-- Main lexing routines
+
+data AlexReturn a
+ = AlexEOF
+ | AlexError !AlexInput
+ | AlexSkip !AlexInput !Int
+ | AlexToken !AlexInput !Int a
+
+-- alexScan :: AlexInput -> StartCode -> AlexReturn a
+alexScan input (I# (sc))
+ = alexScanUser undefined input (I# (sc))
+
+alexScanUser user input (I# (sc))
+ = case alex_scan_tkn user input 0# input sc AlexNone of
+ (AlexNone, input') ->
+ case alexGetChar input of
+ Nothing ->
+
+
+
+ AlexEOF
+ Just _ ->
+
+
+
+ AlexError input'
+
+ (AlexLastSkip input len, _) ->
+
+
+
+ AlexSkip input len
+
+ (AlexLastAcc k input len, _) ->
+
+
+
+ AlexToken input len k
+
+
+-- Push the input through the DFA, remembering the most recent accepting
+-- state it encountered.
+
+alex_scan_tkn user orig_input len input s last_acc =
+ input `seq` -- strict in the input
+ let
+ new_acc = check_accs (alex_accept `quickIndex` (I# (s)))
+ in
+ new_acc `seq`
+ case alexGetChar input of
+ Nothing -> (new_acc, input)
+ Just (c, new_input) ->
+
+
+
+ let
+ base = alexIndexInt32OffAddr alex_base s
+ (I# (ord_c)) = ord c
+ offset = (base +# ord_c)
+ check = alexIndexInt16OffAddr alex_check offset
+
+ new_s = if (offset >=# 0#) && (check ==# ord_c)
+ then alexIndexInt16OffAddr alex_table offset
+ else alexIndexInt16OffAddr alex_deflt s
+ in
+ case new_s of
+ -1# -> (new_acc, input)
+ -- on an error, we want to keep the input *before* the
+ -- character that failed, not after.
+ _ -> alex_scan_tkn user orig_input (len +# 1#)
+ new_input new_s new_acc
+
+ where
+ check_accs [] = last_acc
+ check_accs (AlexAcc a : _) = AlexLastAcc a input (I# (len))
+ check_accs (AlexAccSkip : _) = AlexLastSkip input (I# (len))
+ check_accs (AlexAccPred a pred : rest)
+ | pred user orig_input (I# (len)) input
+ = AlexLastAcc a input (I# (len))
+ check_accs (AlexAccSkipPred pred : rest)
+ | pred user orig_input (I# (len)) input
+ = AlexLastSkip input (I# (len))
+ check_accs (_ : rest) = check_accs rest
+
+data AlexLastAcc a
+ = AlexNone
+ | AlexLastAcc a !AlexInput !Int
+ | AlexLastSkip !AlexInput !Int
+
+data AlexAcc a user
+ = AlexAcc a
+ | AlexAccSkip
+ | AlexAccPred a (AlexAccPred user)
+ | AlexAccSkipPred (AlexAccPred user)
+
+type AlexAccPred user = user -> AlexInput -> Int -> AlexInput -> Bool
+
+-- -----------------------------------------------------------------------------
+-- Predicates on a rule
+
+alexAndPred p1 p2 user in1 len in2
+ = p1 user in1 len in2 && p2 user in1 len in2
+
+--alexPrevCharIsPred :: Char -> AlexAccPred _
+alexPrevCharIs c _ input _ _ = c == alexInputPrevChar input
+
+--alexPrevCharIsOneOfPred :: Array Char Bool -> AlexAccPred _
+alexPrevCharIsOneOf arr _ input _ _ = arr ! alexInputPrevChar input
+
+--alexRightContext :: Int -> AlexAccPred _
+alexRightContext (I# (sc)) user _ _ input =
+ case alex_scan_tkn user input 0# input sc AlexNone of
+ (AlexNone, _) -> False
+ _ -> True
+ -- TODO: there's no need to find the longest
+ -- match when checking the right context, just
+ -- the first match will do.
+
+-- used by wrappers
+iUnbox (I# (i)) = i
diff --git a/src/GF/Grammar/Parser.hs b/src/GF/Grammar/Parser.hs
new file mode 100644
index 000000000..41c839686
--- /dev/null
+++ b/src/GF/Grammar/Parser.hs
@@ -0,0 +1,3404 @@
+{-# OPTIONS -fglasgow-exts -cpp #-}
+{-# OPTIONS -fno-warn-overlapping-patterns #-}
+module GF.Grammar.Parser
+ ( P, runP
+ , pModDef
+ , pModHeader
+ , pExp
+ ) where
+
+import GF.Infra.Ident
+import GF.Infra.Modules
+import GF.Infra.Option
+import GF.Data.Operations
+import GF.Grammar.Predef
+import GF.Grammar.Grammar
+import GF.Grammar.Macros
+import GF.Grammar.Lexer
+import qualified Data.ByteString.Char8 as BS
+import GF.Compile.Update (buildAnyTree)
+#if __GLASGOW_HASKELL__ >= 503
+import Data.Array
+#else
+import Array
+#endif
+#if __GLASGOW_HASKELL__ >= 503
+import GHC.Exts
+#else
+import GlaExts
+#endif
+
+-- parser produced by Happy Version 1.17
+
+newtype HappyAbsSyn = HappyAbsSyn HappyAny
+#if __GLASGOW_HASKELL__ >= 607
+type HappyAny = GHC.Exts.Any
+#else
+type HappyAny = forall a . a
+#endif
+happyIn6 :: (SourceModule) -> (HappyAbsSyn )
+happyIn6 x = unsafeCoerce# x
+{-# INLINE happyIn6 #-}
+happyOut6 :: (HappyAbsSyn ) -> (SourceModule)
+happyOut6 x = unsafeCoerce# x
+{-# INLINE happyOut6 #-}
+happyIn7 :: (SourceModule) -> (HappyAbsSyn )
+happyIn7 x = unsafeCoerce# x
+{-# INLINE happyIn7 #-}
+happyOut7 :: (HappyAbsSyn ) -> (SourceModule)
+happyOut7 x = unsafeCoerce# x
+{-# INLINE happyOut7 #-}
+happyIn8 :: (ModuleStatus) -> (HappyAbsSyn )
+happyIn8 x = unsafeCoerce# x
+{-# INLINE happyIn8 #-}
+happyOut8 :: (HappyAbsSyn ) -> (ModuleStatus)
+happyOut8 x = unsafeCoerce# x
+{-# INLINE happyOut8 #-}
+happyIn9 :: ((ModuleType Ident,Ident)) -> (HappyAbsSyn )
+happyIn9 x = unsafeCoerce# x
+{-# INLINE happyIn9 #-}
+happyOut9 :: (HappyAbsSyn ) -> ((ModuleType Ident,Ident))
+happyOut9 x = unsafeCoerce# x
+{-# INLINE happyOut9 #-}
+happyIn10 :: (( [(Ident,MInclude Ident)]
+ , Maybe (Ident,MInclude Ident,[(Ident,Ident)])
+ , [OpenSpec Ident]
+ )) -> (HappyAbsSyn )
+happyIn10 x = unsafeCoerce# x
+{-# INLINE happyIn10 #-}
+happyOut10 :: (HappyAbsSyn ) -> (( [(Ident,MInclude Ident)]
+ , Maybe (Ident,MInclude Ident,[(Ident,Ident)])
+ , [OpenSpec Ident]
+ ))
+happyOut10 x = unsafeCoerce# x
+{-# INLINE happyOut10 #-}
+happyIn11 :: ([OpenSpec Ident]) -> (HappyAbsSyn )
+happyIn11 x = unsafeCoerce# x
+{-# INLINE happyIn11 #-}
+happyOut11 :: (HappyAbsSyn ) -> ([OpenSpec Ident])
+happyOut11 x = unsafeCoerce# x
+{-# INLINE happyOut11 #-}
+happyIn12 :: (( [(Ident,MInclude Ident)]
+ , Maybe (Ident,MInclude Ident,[(Ident,Ident)])
+ , Maybe ([OpenSpec Ident],[(Ident,SrcSpan,Info)],Options)
+ )) -> (HappyAbsSyn )
+happyIn12 x = unsafeCoerce# x
+{-# INLINE happyIn12 #-}
+happyOut12 :: (HappyAbsSyn ) -> (( [(Ident,MInclude Ident)]
+ , Maybe (Ident,MInclude Ident,[(Ident,Ident)])
+ , Maybe ([OpenSpec Ident],[(Ident,SrcSpan,Info)],Options)
+ ))
+happyOut12 x = unsafeCoerce# x
+{-# INLINE happyOut12 #-}
+happyIn13 :: (([OpenSpec Ident],[(Ident,SrcSpan,Info)],Options)) -> (HappyAbsSyn )
+happyIn13 x = unsafeCoerce# x
+{-# INLINE happyIn13 #-}
+happyOut13 :: (HappyAbsSyn ) -> (([OpenSpec Ident],[(Ident,SrcSpan,Info)],Options))
+happyOut13 x = unsafeCoerce# x
+{-# INLINE happyOut13 #-}
+happyIn14 :: ([Either [(Ident,SrcSpan,Info)] Options]) -> (HappyAbsSyn )
+happyIn14 x = unsafeCoerce# x
+{-# INLINE happyIn14 #-}
+happyOut14 :: (HappyAbsSyn ) -> ([Either [(Ident,SrcSpan,Info)] Options])
+happyOut14 x = unsafeCoerce# x
+{-# INLINE happyOut14 #-}
+happyIn15 :: ([OpenSpec Ident]) -> (HappyAbsSyn )
+happyIn15 x = unsafeCoerce# x
+{-# INLINE happyIn15 #-}
+happyOut15 :: (HappyAbsSyn ) -> ([OpenSpec Ident])
+happyOut15 x = unsafeCoerce# x
+{-# INLINE happyOut15 #-}
+happyIn16 :: (OpenSpec Ident) -> (HappyAbsSyn )
+happyIn16 x = unsafeCoerce# x
+{-# INLINE happyIn16 #-}
+happyOut16 :: (HappyAbsSyn ) -> (OpenSpec Ident)
+happyOut16 x = unsafeCoerce# x
+{-# INLINE happyOut16 #-}
+happyIn17 :: ([(Ident,Ident)]) -> (HappyAbsSyn )
+happyIn17 x = unsafeCoerce# x
+{-# INLINE happyIn17 #-}
+happyOut17 :: (HappyAbsSyn ) -> ([(Ident,Ident)])
+happyOut17 x = unsafeCoerce# x
+{-# INLINE happyOut17 #-}
+happyIn18 :: ((Ident,Ident)) -> (HappyAbsSyn )
+happyIn18 x = unsafeCoerce# x
+{-# INLINE happyIn18 #-}
+happyOut18 :: (HappyAbsSyn ) -> ((Ident,Ident))
+happyOut18 x = unsafeCoerce# x
+{-# INLINE happyOut18 #-}
+happyIn19 :: ([(Ident,MInclude Ident)]) -> (HappyAbsSyn )
+happyIn19 x = unsafeCoerce# x
+{-# INLINE happyIn19 #-}
+happyOut19 :: (HappyAbsSyn ) -> ([(Ident,MInclude Ident)])
+happyOut19 x = unsafeCoerce# x
+{-# INLINE happyOut19 #-}
+happyIn20 :: ((Ident,MInclude Ident)) -> (HappyAbsSyn )
+happyIn20 x = unsafeCoerce# x
+{-# INLINE happyIn20 #-}
+happyOut20 :: (HappyAbsSyn ) -> ((Ident,MInclude Ident))
+happyOut20 x = unsafeCoerce# x
+{-# INLINE happyOut20 #-}
+happyIn21 :: (Either [(Ident,SrcSpan,Info)] Options) -> (HappyAbsSyn )
+happyIn21 x = unsafeCoerce# x
+{-# INLINE happyIn21 #-}
+happyOut21 :: (HappyAbsSyn ) -> (Either [(Ident,SrcSpan,Info)] Options)
+happyOut21 x = unsafeCoerce# x
+{-# INLINE happyOut21 #-}
+happyIn22 :: ([(Ident,SrcSpan,Info)]) -> (HappyAbsSyn )
+happyIn22 x = unsafeCoerce# x
+{-# INLINE happyIn22 #-}
+happyOut22 :: (HappyAbsSyn ) -> ([(Ident,SrcSpan,Info)])
+happyOut22 x = unsafeCoerce# x
+{-# INLINE happyOut22 #-}
+happyIn23 :: ([(Ident,SrcSpan,Info)]) -> (HappyAbsSyn )
+happyIn23 x = unsafeCoerce# x
+{-# INLINE happyIn23 #-}
+happyOut23 :: (HappyAbsSyn ) -> ([(Ident,SrcSpan,Info)])
+happyOut23 x = unsafeCoerce# x
+{-# INLINE happyOut23 #-}
+happyIn24 :: ([(Ident,SrcSpan,Info)]) -> (HappyAbsSyn )
+happyIn24 x = unsafeCoerce# x
+{-# INLINE happyIn24 #-}
+happyOut24 :: (HappyAbsSyn ) -> ([(Ident,SrcSpan,Info)])
+happyOut24 x = unsafeCoerce# x
+{-# INLINE happyOut24 #-}
+happyIn25 :: ([(Ident,SrcSpan,Info)]) -> (HappyAbsSyn )
+happyIn25 x = unsafeCoerce# x
+{-# INLINE happyIn25 #-}
+happyOut25 :: (HappyAbsSyn ) -> ([(Ident,SrcSpan,Info)])
+happyOut25 x = unsafeCoerce# x
+{-# INLINE happyOut25 #-}
+happyIn26 :: ([(Ident,SrcSpan,Info)]) -> (HappyAbsSyn )
+happyIn26 x = unsafeCoerce# x
+{-# INLINE happyIn26 #-}
+happyOut26 :: (HappyAbsSyn ) -> ([(Ident,SrcSpan,Info)])
+happyOut26 x = unsafeCoerce# x
+{-# INLINE happyOut26 #-}
+happyIn27 :: ([(Ident,SrcSpan,Info)]) -> (HappyAbsSyn )
+happyIn27 x = unsafeCoerce# x
+{-# INLINE happyIn27 #-}
+happyOut27 :: (HappyAbsSyn ) -> ([(Ident,SrcSpan,Info)])
+happyOut27 x = unsafeCoerce# x
+{-# INLINE happyOut27 #-}
+happyIn28 :: ([(Ident,SrcSpan,Info)]) -> (HappyAbsSyn )
+happyIn28 x = unsafeCoerce# x
+{-# INLINE happyIn28 #-}
+happyOut28 :: (HappyAbsSyn ) -> ([(Ident,SrcSpan,Info)])
+happyOut28 x = unsafeCoerce# x
+{-# INLINE happyOut28 #-}
+happyIn29 :: ([(Ident,SrcSpan,Term)]) -> (HappyAbsSyn )
+happyIn29 x = unsafeCoerce# x
+{-# INLINE happyIn29 #-}
+happyOut29 :: (HappyAbsSyn ) -> ([(Ident,SrcSpan,Term)])
+happyOut29 x = unsafeCoerce# x
+{-# INLINE happyOut29 #-}
+happyIn30 :: (Options) -> (HappyAbsSyn )
+happyIn30 x = unsafeCoerce# x
+{-# INLINE happyIn30 #-}
+happyOut30 :: (HappyAbsSyn ) -> (Options)
+happyOut30 x = unsafeCoerce# x
+{-# INLINE happyOut30 #-}
+happyIn31 :: ([Ident]) -> (HappyAbsSyn )
+happyIn31 x = unsafeCoerce# x
+{-# INLINE happyIn31 #-}
+happyOut31 :: (HappyAbsSyn ) -> ([Ident])
+happyOut31 x = unsafeCoerce# x
+{-# INLINE happyOut31 #-}
+happyIn32 :: (Param) -> (HappyAbsSyn )
+happyIn32 x = unsafeCoerce# x
+{-# INLINE happyIn32 #-}
+happyOut32 :: (HappyAbsSyn ) -> (Param)
+happyOut32 x = unsafeCoerce# x
+{-# INLINE happyOut32 #-}
+happyIn33 :: ([(Ident,SrcSpan,Info)]) -> (HappyAbsSyn )
+happyIn33 x = unsafeCoerce# x
+{-# INLINE happyIn33 #-}
+happyOut33 :: (HappyAbsSyn ) -> ([(Ident,SrcSpan,Info)])
+happyOut33 x = unsafeCoerce# x
+{-# INLINE happyOut33 #-}
+happyIn34 :: ([(Ident,SrcSpan,Info)]) -> (HappyAbsSyn )
+happyIn34 x = unsafeCoerce# x
+{-# INLINE happyIn34 #-}
+happyOut34 :: (HappyAbsSyn ) -> ([(Ident,SrcSpan,Info)])
+happyOut34 x = unsafeCoerce# x
+{-# INLINE happyOut34 #-}
+happyIn35 :: ([(Ident,SrcSpan,Info)]) -> (HappyAbsSyn )
+happyIn35 x = unsafeCoerce# x
+{-# INLINE happyIn35 #-}
+happyOut35 :: (HappyAbsSyn ) -> ([(Ident,SrcSpan,Info)])
+happyOut35 x = unsafeCoerce# x
+{-# INLINE happyOut35 #-}
+happyIn36 :: ([(Ident,SrcSpan,Info)]) -> (HappyAbsSyn )
+happyIn36 x = unsafeCoerce# x
+{-# INLINE happyIn36 #-}
+happyOut36 :: (HappyAbsSyn ) -> ([(Ident,SrcSpan,Info)])
+happyOut36 x = unsafeCoerce# x
+{-# INLINE happyOut36 #-}
+happyIn37 :: ([(Ident,SrcSpan,Info)]) -> (HappyAbsSyn )
+happyIn37 x = unsafeCoerce# x
+{-# INLINE happyIn37 #-}
+happyOut37 :: (HappyAbsSyn ) -> ([(Ident,SrcSpan,Info)])
+happyOut37 x = unsafeCoerce# x
+{-# INLINE happyOut37 #-}
+happyIn38 :: ([(Ident,SrcSpan,Info)]) -> (HappyAbsSyn )
+happyIn38 x = unsafeCoerce# x
+{-# INLINE happyIn38 #-}
+happyOut38 :: (HappyAbsSyn ) -> ([(Ident,SrcSpan,Info)])
+happyOut38 x = unsafeCoerce# x
+{-# INLINE happyOut38 #-}
+happyIn39 :: ([(Ident,SrcSpan,Info)]) -> (HappyAbsSyn )
+happyIn39 x = unsafeCoerce# x
+{-# INLINE happyIn39 #-}
+happyOut39 :: (HappyAbsSyn ) -> ([(Ident,SrcSpan,Info)])
+happyOut39 x = unsafeCoerce# x
+{-# INLINE happyOut39 #-}
+happyIn40 :: ([(Ident,SrcSpan,Term)]) -> (HappyAbsSyn )
+happyIn40 x = unsafeCoerce# x
+{-# INLINE happyIn40 #-}
+happyOut40 :: (HappyAbsSyn ) -> ([(Ident,SrcSpan,Term)])
+happyOut40 x = unsafeCoerce# x
+{-# INLINE happyOut40 #-}
+happyIn41 :: (Options) -> (HappyAbsSyn )
+happyIn41 x = unsafeCoerce# x
+{-# INLINE happyIn41 #-}
+happyOut41 :: (HappyAbsSyn ) -> (Options)
+happyOut41 x = unsafeCoerce# x
+{-# INLINE happyOut41 #-}
+happyIn42 :: ([Param]) -> (HappyAbsSyn )
+happyIn42 x = unsafeCoerce# x
+{-# INLINE happyIn42 #-}
+happyOut42 :: (HappyAbsSyn ) -> ([Param])
+happyOut42 x = unsafeCoerce# x
+{-# INLINE happyOut42 #-}
+happyIn43 :: ([Ident]) -> (HappyAbsSyn )
+happyIn43 x = unsafeCoerce# x
+{-# INLINE happyIn43 #-}
+happyOut43 :: (HappyAbsSyn ) -> ([Ident])
+happyOut43 x = unsafeCoerce# x
+{-# INLINE happyOut43 #-}
+happyIn44 :: (Ident) -> (HappyAbsSyn )
+happyIn44 x = unsafeCoerce# x
+{-# INLINE happyIn44 #-}
+happyOut44 :: (HappyAbsSyn ) -> (Ident)
+happyOut44 x = unsafeCoerce# x
+{-# INLINE happyOut44 #-}
+happyIn45 :: ([Ident]) -> (HappyAbsSyn )
+happyIn45 x = unsafeCoerce# x
+{-# INLINE happyIn45 #-}
+happyOut45 :: (HappyAbsSyn ) -> ([Ident])
+happyOut45 x = unsafeCoerce# x
+{-# INLINE happyOut45 #-}
+happyIn46 :: ([(Ident, Maybe Type, Maybe Term)]) -> (HappyAbsSyn )
+happyIn46 x = unsafeCoerce# x
+{-# INLINE happyIn46 #-}
+happyOut46 :: (HappyAbsSyn ) -> ([(Ident, Maybe Type, Maybe Term)])
+happyOut46 x = unsafeCoerce# x
+{-# INLINE happyOut46 #-}
+happyIn47 :: ([(Ident, Maybe Type, Maybe Term)]) -> (HappyAbsSyn )
+happyIn47 x = unsafeCoerce# x
+{-# INLINE happyIn47 #-}
+happyOut47 :: (HappyAbsSyn ) -> ([(Ident, Maybe Type, Maybe Term)])
+happyOut47 x = unsafeCoerce# x
+{-# INLINE happyOut47 #-}
+happyIn48 :: (Term) -> (HappyAbsSyn )
+happyIn48 x = unsafeCoerce# x
+{-# INLINE happyIn48 #-}
+happyOut48 :: (HappyAbsSyn ) -> (Term)
+happyOut48 x = unsafeCoerce# x
+{-# INLINE happyOut48 #-}
+happyIn49 :: (Term) -> (HappyAbsSyn )
+happyIn49 x = unsafeCoerce# x
+{-# INLINE happyIn49 #-}
+happyOut49 :: (HappyAbsSyn ) -> (Term)
+happyOut49 x = unsafeCoerce# x
+{-# INLINE happyOut49 #-}
+happyIn50 :: (Term) -> (HappyAbsSyn )
+happyIn50 x = unsafeCoerce# x
+{-# INLINE happyIn50 #-}
+happyOut50 :: (HappyAbsSyn ) -> (Term)
+happyOut50 x = unsafeCoerce# x
+{-# INLINE happyOut50 #-}
+happyIn51 :: (Term) -> (HappyAbsSyn )
+happyIn51 x = unsafeCoerce# x
+{-# INLINE happyIn51 #-}
+happyOut51 :: (HappyAbsSyn ) -> (Term)
+happyOut51 x = unsafeCoerce# x
+{-# INLINE happyOut51 #-}
+happyIn52 :: (Term) -> (HappyAbsSyn )
+happyIn52 x = unsafeCoerce# x
+{-# INLINE happyIn52 #-}
+happyOut52 :: (HappyAbsSyn ) -> (Term)
+happyOut52 x = unsafeCoerce# x
+{-# INLINE happyOut52 #-}
+happyIn53 :: (Term) -> (HappyAbsSyn )
+happyIn53 x = unsafeCoerce# x
+{-# INLINE happyIn53 #-}
+happyOut53 :: (HappyAbsSyn ) -> (Term)
+happyOut53 x = unsafeCoerce# x
+{-# INLINE happyOut53 #-}
+happyIn54 :: (Term) -> (HappyAbsSyn )
+happyIn54 x = unsafeCoerce# x
+{-# INLINE happyIn54 #-}
+happyOut54 :: (HappyAbsSyn ) -> (Term)
+happyOut54 x = unsafeCoerce# x
+{-# INLINE happyOut54 #-}
+happyIn55 :: ([Term]) -> (HappyAbsSyn )
+happyIn55 x = unsafeCoerce# x
+{-# INLINE happyIn55 #-}
+happyOut55 :: (HappyAbsSyn ) -> ([Term])
+happyOut55 x = unsafeCoerce# x
+{-# INLINE happyOut55 #-}
+happyIn56 :: ([Term]) -> (HappyAbsSyn )
+happyIn56 x = unsafeCoerce# x
+{-# INLINE happyIn56 #-}
+happyOut56 :: (HappyAbsSyn ) -> ([Term])
+happyOut56 x = unsafeCoerce# x
+{-# INLINE happyOut56 #-}
+happyIn57 :: (Patt) -> (HappyAbsSyn )
+happyIn57 x = unsafeCoerce# x
+{-# INLINE happyIn57 #-}
+happyOut57 :: (HappyAbsSyn ) -> (Patt)
+happyOut57 x = unsafeCoerce# x
+{-# INLINE happyOut57 #-}
+happyIn58 :: (Patt) -> (HappyAbsSyn )
+happyIn58 x = unsafeCoerce# x
+{-# INLINE happyIn58 #-}
+happyOut58 :: (HappyAbsSyn ) -> (Patt)
+happyOut58 x = unsafeCoerce# x
+{-# INLINE happyOut58 #-}
+happyIn59 :: (Patt) -> (HappyAbsSyn )
+happyIn59 x = unsafeCoerce# x
+{-# INLINE happyIn59 #-}
+happyOut59 :: (HappyAbsSyn ) -> (Patt)
+happyOut59 x = unsafeCoerce# x
+{-# INLINE happyOut59 #-}
+happyIn60 :: (Ident) -> (HappyAbsSyn )
+happyIn60 x = unsafeCoerce# x
+{-# INLINE happyIn60 #-}
+happyOut60 :: (HappyAbsSyn ) -> (Ident)
+happyOut60 x = unsafeCoerce# x
+{-# INLINE happyOut60 #-}
+happyIn61 :: ([(Label,Patt)]) -> (HappyAbsSyn )
+happyIn61 x = unsafeCoerce# x
+{-# INLINE happyIn61 #-}
+happyOut61 :: (HappyAbsSyn ) -> ([(Label,Patt)])
+happyOut61 x = unsafeCoerce# x
+{-# INLINE happyOut61 #-}
+happyIn62 :: (Label) -> (HappyAbsSyn )
+happyIn62 x = unsafeCoerce# x
+{-# INLINE happyIn62 #-}
+happyOut62 :: (HappyAbsSyn ) -> (Label)
+happyOut62 x = unsafeCoerce# x
+{-# INLINE happyOut62 #-}
+happyIn63 :: (Ident) -> (HappyAbsSyn )
+happyIn63 x = unsafeCoerce# x
+{-# INLINE happyIn63 #-}
+happyOut63 :: (HappyAbsSyn ) -> (Ident)
+happyOut63 x = unsafeCoerce# x
+{-# INLINE happyOut63 #-}
+happyIn64 :: ([(Label,Patt)]) -> (HappyAbsSyn )
+happyIn64 x = unsafeCoerce# x
+{-# INLINE happyIn64 #-}
+happyOut64 :: (HappyAbsSyn ) -> ([(Label,Patt)])
+happyOut64 x = unsafeCoerce# x
+{-# INLINE happyOut64 #-}
+happyIn65 :: ([Patt]) -> (HappyAbsSyn )
+happyIn65 x = unsafeCoerce# x
+{-# INLINE happyIn65 #-}
+happyOut65 :: (HappyAbsSyn ) -> ([Patt])
+happyOut65 x = unsafeCoerce# x
+{-# INLINE happyOut65 #-}
+happyIn66 :: ([Ident]) -> (HappyAbsSyn )
+happyIn66 x = unsafeCoerce# x
+{-# INLINE happyIn66 #-}
+happyOut66 :: (HappyAbsSyn ) -> ([Ident])
+happyOut66 x = unsafeCoerce# x
+{-# INLINE happyOut66 #-}
+happyIn67 :: (Ident) -> (HappyAbsSyn )
+happyIn67 x = unsafeCoerce# x
+{-# INLINE happyIn67 #-}
+happyOut67 :: (HappyAbsSyn ) -> (Ident)
+happyOut67 x = unsafeCoerce# x
+{-# INLINE happyOut67 #-}
+happyIn68 :: ([Ident]) -> (HappyAbsSyn )
+happyIn68 x = unsafeCoerce# x
+{-# INLINE happyIn68 #-}
+happyOut68 :: (HappyAbsSyn ) -> ([Ident])
+happyOut68 x = unsafeCoerce# x
+{-# INLINE happyOut68 #-}
+happyIn69 :: ([Decl]) -> (HappyAbsSyn )
+happyIn69 x = unsafeCoerce# x
+{-# INLINE happyIn69 #-}
+happyOut69 :: (HappyAbsSyn ) -> ([Decl])
+happyOut69 x = unsafeCoerce# x
+{-# INLINE happyOut69 #-}
+happyIn70 :: ([Term]) -> (HappyAbsSyn )
+happyIn70 x = unsafeCoerce# x
+{-# INLINE happyIn70 #-}
+happyOut70 :: (HappyAbsSyn ) -> ([Term])
+happyOut70 x = unsafeCoerce# x
+{-# INLINE happyOut70 #-}
+happyIn71 :: ([Patt]) -> (HappyAbsSyn )
+happyIn71 x = unsafeCoerce# x
+{-# INLINE happyIn71 #-}
+happyOut71 :: (HappyAbsSyn ) -> ([Patt])
+happyOut71 x = unsafeCoerce# x
+{-# INLINE happyOut71 #-}
+happyIn72 :: (Case) -> (HappyAbsSyn )
+happyIn72 x = unsafeCoerce# x
+{-# INLINE happyIn72 #-}
+happyOut72 :: (HappyAbsSyn ) -> (Case)
+happyOut72 x = unsafeCoerce# x
+{-# INLINE happyOut72 #-}
+happyIn73 :: ([Case]) -> (HappyAbsSyn )
+happyIn73 x = unsafeCoerce# x
+{-# INLINE happyIn73 #-}
+happyOut73 :: (HappyAbsSyn ) -> ([Case])
+happyOut73 x = unsafeCoerce# x
+{-# INLINE happyOut73 #-}
+happyIn74 :: (Equation) -> (HappyAbsSyn )
+happyIn74 x = unsafeCoerce# x
+{-# INLINE happyIn74 #-}
+happyOut74 :: (HappyAbsSyn ) -> (Equation)
+happyOut74 x = unsafeCoerce# x
+{-# INLINE happyOut74 #-}
+happyIn75 :: ([Equation]) -> (HappyAbsSyn )
+happyIn75 x = unsafeCoerce# x
+{-# INLINE happyIn75 #-}
+happyOut75 :: (HappyAbsSyn ) -> ([Equation])
+happyOut75 x = unsafeCoerce# x
+{-# INLINE happyOut75 #-}
+happyIn76 :: ((Term,Term)) -> (HappyAbsSyn )
+happyIn76 x = unsafeCoerce# x
+{-# INLINE happyIn76 #-}
+happyOut76 :: (HappyAbsSyn ) -> ((Term,Term))
+happyOut76 x = unsafeCoerce# x
+{-# INLINE happyOut76 #-}
+happyIn77 :: ([(Term,Term)]) -> (HappyAbsSyn )
+happyIn77 x = unsafeCoerce# x
+{-# INLINE happyIn77 #-}
+happyOut77 :: (HappyAbsSyn ) -> ([(Term,Term)])
+happyOut77 x = unsafeCoerce# x
+{-# INLINE happyOut77 #-}
+happyIn78 :: ([Decl]) -> (HappyAbsSyn )
+happyIn78 x = unsafeCoerce# x
+{-# INLINE happyIn78 #-}
+happyOut78 :: (HappyAbsSyn ) -> ([Decl])
+happyOut78 x = unsafeCoerce# x
+{-# INLINE happyOut78 #-}
+happyIn79 :: ([Decl]) -> (HappyAbsSyn )
+happyIn79 x = unsafeCoerce# x
+{-# INLINE happyIn79 #-}
+happyOut79 :: (HappyAbsSyn ) -> ([Decl])
+happyOut79 x = unsafeCoerce# x
+{-# INLINE happyOut79 #-}
+happyIn80 :: (Posn) -> (HappyAbsSyn )
+happyIn80 x = unsafeCoerce# x
+{-# INLINE happyIn80 #-}
+happyOut80 :: (HappyAbsSyn ) -> (Posn)
+happyOut80 x = unsafeCoerce# x
+{-# INLINE happyOut80 #-}
+happyInTok :: Token -> (HappyAbsSyn )
+happyInTok x = unsafeCoerce# x
+{-# INLINE happyInTok #-}
+happyOutTok :: (HappyAbsSyn ) -> Token
+happyOutTok x = unsafeCoerce# x
+{-# INLINE happyOutTok #-}
+
+
+happyActOffsets :: HappyAddr
+happyActOffsets = HappyA# "\xa1\x04\xa1\x04\x3c\x00\xa1\x04\x03\x01\x00\x00\x83\x04\xaf\x04\xb2\x04\x06\x00\x53\x01\xad\x04\x00\x00\x00\x00\xa7\x04\x4c\x01\xff\xff\x3c\x00\x00\x00\x8c\x00\x6d\x04\xa7\x00\xa7\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x3c\x00\x00\x00\xa0\x04\xdb\x01\xe6\x00\xdb\x01\x9f\x04\x9e\x04\xc7\x01\x99\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x9b\x04\x03\x01\x66\x04\x8a\x04\x6a\x04\x69\x04\x57\x04\x56\x04\x53\x04\x50\x04\x3c\x00\x87\x01\x3c\x00\x3c\x01\x3c\x00\x3c\x00\x89\x04\xba\x01\x84\x04\x68\x04\x4c\x04\x87\x04\x25\x00\x4c\x01\x4b\x04\x77\x04\x6c\x04\x00\x00\x00\x00\x72\x04\x63\x04\x00\x00\x62\x04\x9e\x01\x45\x01\x65\x04\x73\x04\x67\x04\xf8\x00\x00\x00\x2d\x04\x17\x01\x17\x01\x00\x00\x32\x04\x1d\x04\x00\x00\x00\x00\x00\x00\x00\x00\x55\x04\x3c\x00\x01\x00\x54\x04\xb6\x00\xb6\x00\xb6\x00\x79\x00\x3c\x00\x4a\x04\x79\x00\x3c\x00\x4e\x04\xd8\x00\x00\x00\x00\x00\xd3\x01\x9e\x01\x15\x04\x00\x00\x00\x00\x9e\x01\x9e\x01\x9e\x01\x00\x00\x1a\x04\x00\x00\x00\x00\x14\x04\x48\x04\x49\x04\x3d\x04\x1b\x01\x2f\x04\x68\x00\x00\x00\x40\x04\x31\x04\x4c\x01\xf3\x00\x87\x00\x37\x04\x3c\x00\x00\x00\x00\x00\x3c\x00\x3c\x00\x9e\x01\x2b\x04\x00\x00\x00\x00\x3c\x00\x3c\x00\xa7\x00\x27\x04\x4c\x01\x33\x04\x2e\x04\x23\x04\x00\x00\xf5\x03\x20\x04\x3c\x00\xe3\x03\x3c\x00\x3c\x00\x19\x04\x18\x04\x0d\x04\x1e\x01\x13\x04\x0c\x04\xd0\x00\x3c\x00\x17\x01\x08\x04\xfc\x03\x00\x00\x00\x00\xea\x03\xe8\x03\x00\x00\x5f\x00\x00\x00\x00\x00\x03\x04\x24\x00\x02\x00\x80\x00\xda\x03\xd9\x03\x02\x00\x00\x00\xf3\x03\xf1\x03\x00\x00\xc5\x03\x4c\x01\x00\x00\x17\x01\x17\x01\x3c\x00\x17\x01\x00\x00\x3c\x00\x3c\x00\x00\x00\xf4\x03\x00\x00\x00\x00\xd8\x03\x00\x00\x00\x00\x4c\x01\x3c\x00\x00\x00\x17\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xf0\x03\xf9\x03\x00\x00\xfd\x03\xb9\x03\x00\x00\x00\x00\x00\x00\x00\x00\x17\x01\x00\x00\x00\x00\x00\x00\xa8\x03\x17\x01\x00\x00\x00\x00\xd6\x03\xde\x03\x00\x00\xe6\x03\xf8\xff\xcd\x01\x02\x00\xbf\x03\xdf\x03\xa1\x03\x00\x00\xcd\x03\xcd\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x96\x01\x9f\x03\xce\x03\xd8\x00\x00\x00\x00\x00\x89\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xcb\x03\x00\x00\x00\x00\x3c\x00\x3c\x00\xd5\x03\xc3\x03\xb7\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x4c\x01\x00\x00\x00\x00\xc4\x03\x00\x00\x00\x00\xb8\x03\x84\x03\x00\x00\xc6\x03\x5f\x00\x00\x00\x8a\x03\xc2\x03\xbe\x03\x6f\x03\xae\x03\x6e\x03\x02\x00\x00\x00\x00\x00\x3c\x00\x3c\x00\x00\x00\x00\x00\x00\x00\x00\x00\x72\x03\xac\x03\x00\x00\xa5\x03\x00\x00\x00\x00\x9e\x03\x00\x00\x6b\x03\x9d\x03\x00\x00\xab\x00\x9b\x03\x00\x00\xab\x00\x00\x00\x99\x03\x00\x00\xab\x00\x89\x03\x00\x00\x65\x03\x88\x03\x00\x00\x50\x03\x86\x03\x00\x00\xab\x00\x85\x03\x00\x00\x4b\x03\x81\x03\x00\x00\x6e\x00\x00\x00\x00\x00\x7e\x03\x02\x00\x75\x03\xcd\x01\x00\x00\x48\x03\x45\x03\x8a\x01\x4d\x02\x6c\x03\x05\x00\x35\x03\x01\x01\x68\x03\x32\x03\x00\x00\x39\x02\x62\x03\x31\x03\x64\x03\x2e\x03\x08\x00\x60\x03\x25\x02\x67\x03\x5d\x03\x11\x02\x08\x00\x9f\x01\xfd\x01\x4d\x03\x17\x03\x00\x00\x00\x00\x53\x00\x59\x03\x00\x00\x00\x00\x00\x00\x44\x03\x00\x00\x47\x03\x53\x03\x25\x03\x52\x03\x4e\x03\x00\x00\x00\x00\x0d\x03\x00\x00\x4c\x03\x00\x00\x00\x00\x00\x00\xfa\x02\x00\x00\x3c\x00\x3c\x00\x56\x00\x2d\x03\xee\xff\x00\x00\x00\x00\x00\x00\x3c\x00\x00\x00\x3c\x00\x2c\x03\x00\x00\x3c\x00\x00\x00\xf9\x02\x00\x00\x23\x03\x3c\x00\x2b\x03\x00\x00\xf3\x02\x3c\x00\x00\x00\x00\x00\x8a\x01\x00\x00\xff\xff\x8a\x01\x34\x03\x1e\x03\x00\x00\x00\x00\x1f\x03\x18\x03\x00\x00\x00\x00\x00\x00\x00\x00\xf7\x02\x3c\x00\x00\x00\x00\x00\x00\x00\x00\x00\x3c\x00\x00\x00\x00\x00\x00\x00\x3c\x00\x00\x00\x00\x00\x13\x03\xf5\x02\x00\x00\x8a\x01\x53\x00\xdc\x02\xc7\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xaf\x02\x00\x00\x3c\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xab\x02\x00\x00\x00\x00\x3c\x00\xc6\x02\x00\x00\x72\x02\xa9\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xb2\x02\x00\x00\x00\x00\x00\x00"#
+
+happyGotoOffsets :: HappyAddr
+happyGotoOffsets = HappyA# "\x56\x01\x29\x03\xd4\x04\xa0\x02\x9c\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x2b\x02\x00\x00\x00\x00\x00\x00\x00\x00\x62\x02\xc1\x02\xa3\x02\x00\x00\x00\x00\x41\x02\xf8\x02\xe6\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xcd\x04\x00\x00\x00\x00\x17\x02\x2d\x02\x03\x02\x00\x00\x00\x00\xf0\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x9a\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x19\x03\x00\x00\xb7\x04\x5e\x02\x03\x03\xb0\x04\x00\x00\x00\x00\x00\x00\x00\x00\x19\x02\x00\x00\x00\x00\xd4\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x3f\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x47\x02\x73\x01\x00\x00\x00\x00\xea\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x9a\x04\x4a\x02\x00\x00\xdb\x02\xa7\x02\x89\x02\xe4\x01\x93\x04\x00\x00\x84\x02\x7d\x04\x00\x00\xee\x02\x00\x00\x00\x00\x00\x00\xeb\x01\x05\x02\x00\x00\x00\x00\xeb\x01\xeb\x01\xeb\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\x5b\x02\x7b\x01\x00\x00\x00\x00\x76\x04\x00\x00\x00\x00\x9b\x02\x60\x04\xd8\xff\x00\x00\x00\x00\x00\x00\x59\x04\x43\x04\xe4\x02\x00\x00\x50\x01\x00\x00\x00\x00\x00\x00\x00\x00\x53\x02\x00\x00\x3c\x04\x86\x00\x26\x04\x1f\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x32\x01\xed\x02\x61\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x1b\x03\x00\x00\x00\x00\x00\x00\x00\x00\x08\x03\x00\x00\x00\x00\x00\x00\x68\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x29\x02\x00\x00\x90\x01\xda\x02\x09\x04\xd8\x02\x00\x00\xd7\x02\x7d\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x06\x01\x02\x04\x00\x00\x85\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\x49\x01\x00\x00\x00\x00\x00\x00\xc7\x00\xa2\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xfe\x00\xd4\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xdc\x00\x18\x00\x5e\x00\x1b\x00\xf9\x00\x0c\x00\x59\x00\xae\x00\xaa\x00\x3d\x00\x7f\x00\x00\x00\xcb\x02\xb5\x02\xbc\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xec\x03\xe5\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x2b\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x43\x02\x00\x00\xb3\x02\x44\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x2f\x02\x40\x02\x00\x00\x00\x00\x5f\x02\xcf\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x99\x00\x92\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x94\x02\x00\x00\x00\x00\x75\x02\x00\x00\x00\x00\x00\x00\x73\x02\x00\x00\x00\x00\x1b\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x57\x02\x00\x00\x00\x00\x07\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x65\x02\x00\x00\xa2\x00\x00\x00\x00\x00\x00\x00\x5c\x01\x16\x00\x00\x00\x00\x00\x58\x00\x93\x00\x00\x00\x00\x00\x00\x00\xf7\xff\x00\x00\x7c\x00\x00\x00\x04\x00\xe7\x00\x00\x00\x3e\x00\x00\x00\x00\x00\x4c\x00\x14\x00\x00\x00\x1e\x00\xec\x01\x63\x00\x00\x00\x00\x00\x15\x02\x0a\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xe2\x01\x23\x02\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x15\x01\x00\x00\xc8\x03\xb2\x03\xf3\xff\x00\x00\xe0\x01\x00\x00\x00\x00\x00\x00\xab\x03\x00\x00\x95\x03\x00\x00\x00\x00\x8e\x03\x00\x00\x00\x00\x00\x00\x00\x00\x78\x03\x00\x00\x00\x00\x69\x01\x71\x03\x00\x00\x00\x00\x54\x01\xb8\x01\xba\x02\x40\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xae\x01\xa7\x01\x00\x00\x5b\x03\xa1\x01\x00\x00\x93\x01\x80\x01\x54\x03\x71\x01\x4a\x01\x00\x00\x3e\x03\x00\x00\x48\x01\x30\x01\x00\x00\x21\x01\x3e\x01\x5b\x01\x00\x00\x38\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xc6\x00\x00\x00\x37\x03\x00\x00\x02\x01\x00\x00\x00\x00\xe1\x00\x00\x00\x00\x00\x00\x00\x62\x00\xcf\x00\x00\x00\x00\x00\x21\x03\x43\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xe7\xff\x00\x00\x00\x00\x00\x00\x00\x00\xc1\xff\x00\x00\x00\x00"#
+
+happyDefActions :: HappyAddr
+happyDefActions = HappyA# "\xfa\xff\xfa\xff\x00\x00\x00\x00\x00\x00\xf9\xff\x00\x00\x86\xff\x84\xff\x82\xff\x7b\xff\x73\xff\x71\xff\x6f\xff\x00\x00\x00\x00\x00\x00\x2e\xff\x6b\xff\x00\x00\x93\xff\x00\x00\x00\x00\x3f\xff\x3d\xff\x3c\xff\x3e\xff\x40\xff\x00\x00\x69\xff\x00\x00\x00\x00\x93\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x6d\xff\x6c\xff\x6e\xff\x63\xff\x70\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x61\xff\x00\x00\x00\x00\x93\xff\x61\xff\x00\x00\x74\xff\x00\x00\x92\xff\x00\x00\x93\xff\x9c\xff\x00\x00\x00\x00\x00\x00\x32\xff\x00\x00\x33\xff\x34\xff\x00\x00\x00\x00\x6a\xff\x00\x00\x5e\xff\x2d\xff\x00\x00\x00\x00\x00\x00\x70\xff\x75\xff\x00\x00\x00\x00\x2b\xff\x53\xff\x00\x00\x3b\xff\x4f\xff\x4b\xff\x4a\xff\x49\xff\x4e\xff\x00\x00\x00\x00\x7a\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x90\xff\x85\xff\x82\xff\x7b\xff\x93\xff\x8c\xff\x83\xff\x7c\xff\x7d\xff\x81\xff\x72\xff\x00\x00\x42\xff\x8d\xff\x00\x00\x00\x00\x3a\xff\x00\x00\x9c\xff\x00\x00\x2a\xff\x5a\xff\x54\xff\x00\x00\x00\x00\x4e\xff\x00\x00\x51\xff\x00\x00\x62\xff\x65\xff\x2e\xff\x00\x00\x5e\xff\x00\x00\x67\xff\x66\xff\x00\x00\x00\x00\x00\x00\x00\x00\x38\xff\x00\x00\x24\xff\x00\x00\x87\xff\x00\x00\x00\x00\x00\x00\x93\xff\x00\x00\x00\x00\x00\x00\x60\xff\x00\x00\x00\x00\x27\xff\x00\x00\x4e\xff\x61\xff\x00\x00\x00\x00\x00\x00\xf7\xff\xf6\xff\x00\x00\x00\x00\xf8\xff\xeb\xff\xfb\xff\xec\xff\xef\xff\xd6\xff\x00\x00\xd4\xff\x00\x00\x00\x00\x00\x00\x78\xff\x00\x00\x00\x00\x59\xff\x00\x00\x00\x00\x80\xff\x00\x00\x00\x00\x00\x00\x00\x00\x76\xff\x61\xff\x00\x00\x95\xff\x96\xff\x91\xff\x8a\xff\x00\x00\x9b\xff\x88\xff\x00\x00\x00\x00\x37\xff\x00\x00\x31\xff\x8e\xff\x8f\xff\x68\xff\x5d\xff\x00\x00\x2d\xff\x2c\xff\x00\x00\x00\x00\x46\xff\x55\xff\x47\xff\x57\xff\x2b\xff\x52\xff\x4d\xff\x48\xff\x3b\xff\x00\x00\x4c\xff\x41\xff\x00\x00\xfc\xff\xe3\xff\xe6\xff\xd6\xff\xdf\xff\x00\x00\x00\x00\xdd\xff\x00\x00\xdb\xff\x00\x00\xdf\xff\x1b\xff\x1b\xff\x1b\xff\x1b\xff\x1b\xff\x1b\xff\x1b\xff\x1b\xff\x1b\xff\x1b\xff\x00\x00\x00\x00\x00\x00\x00\x00\xe2\xff\x89\xff\x43\xff\x39\xff\x29\xff\x50\xff\x30\xff\x64\xff\x00\x00\x25\xff\x23\xff\x00\x00\x00\x00\x00\x00\x21\xff\x00\x00\x5f\xff\x5c\xff\x28\xff\x5b\xff\x26\xff\x56\xff\x4c\xff\x7e\xff\x7f\xff\x00\x00\xf4\xff\xf5\xff\x00\x00\x00\x00\xea\xff\x00\x00\xeb\xff\xf0\xff\x00\x00\xed\xff\xd9\xff\x00\x00\x00\x00\x00\x00\x00\x00\x58\xff\x77\xff\x00\x00\x00\x00\x94\xff\x8b\xff\x79\xff\xe7\xff\x00\x00\xe4\xff\xd5\xff\xd6\xff\x1b\xff\x1b\xff\x00\x00\xcd\xff\x00\x00\x00\x00\xcc\xff\x00\x00\x00\x00\xca\xff\x00\x00\xcb\xff\x00\x00\xc9\xff\x00\x00\x00\x00\xd0\xff\x00\x00\x00\x00\xc6\xff\x00\x00\x00\x00\xcf\xff\x00\x00\x00\x00\xce\xff\x00\x00\x00\x00\xd1\xff\x00\x00\xde\xff\xe1\xff\x00\x00\x00\x00\x00\x00\xdf\xff\xdc\xff\x00\x00\x00\x00\x1d\xff\x1b\xff\x00\x00\x9c\xff\xa6\xff\x98\xff\x00\x00\x00\x00\x9a\xff\x1b\xff\x00\x00\xa0\xff\x00\x00\xa8\xff\x98\xff\x00\x00\x1b\xff\x98\xff\x00\x00\x1b\xff\x98\xff\x00\x00\x1b\xff\x1b\xff\xa4\xff\xc7\xff\xc8\xff\x00\x00\x00\x00\x22\xff\x20\xff\xf3\xff\x00\x00\xd3\xff\x00\x00\x00\x00\xeb\xff\x00\x00\xf1\xff\xee\xff\xd8\xff\x00\x00\xd2\xff\xe8\xff\xe5\xff\xa3\xff\xbc\xff\x00\x00\xab\xff\x00\x00\x00\x00\x36\xff\x00\x00\x00\x00\x45\xff\x44\xff\xa1\xff\x00\x00\xaf\xff\x00\x00\x00\x00\xa7\xff\x00\x00\x9f\xff\x00\x00\xad\xff\x00\x00\x00\x00\x00\x00\xa5\xff\x00\x00\x00\x00\xa9\xff\x1e\xff\x1d\xff\x1b\xff\x00\x00\x1d\xff\x00\x00\x00\x00\xe0\xff\xda\xff\x00\x00\x00\x00\xc5\xff\x1c\xff\x1b\xff\x1b\xff\xb3\xff\x00\x00\x1b\xff\x99\xff\x1b\xff\x1b\xff\x00\x00\x1b\xff\x1b\xff\x97\xff\x00\x00\x35\xff\x1b\xff\x1b\xff\x9e\xff\x1b\xff\x1d\xff\x00\x00\x00\x00\xeb\xff\xf2\xff\xd7\xff\xe9\xff\xb1\xff\xbd\xff\x00\x00\xbb\xff\x00\x00\xba\xff\x1b\xff\xb5\xff\xb7\xff\x1b\xff\xc2\xff\xb4\xff\xc1\xff\x1b\xff\x00\x00\xbf\xff\xbe\xff\x00\x00\x1b\xff\xc4\xff\x00\x00\x00\x00\xb2\xff\xc0\xff\xb6\xff\xb9\xff\x1b\xff\x9d\xff\xb8\xff\x1f\xff\x00\x00\x1b\xff\xc3\xff"#
+
+happyCheck :: HappyAddr
+happyCheck = HappyA# "\xff\xff\x02\x00\x0a\x00\x04\x00\x03\x00\x17\x00\x04\x00\x01\x00\x30\x00\x12\x00\x32\x00\x4a\x00\x06\x00\x07\x00\x08\x00\x0a\x00\x11\x00\x39\x00\x0a\x00\x1c\x00\x15\x00\x11\x00\x17\x00\x12\x00\x19\x00\x13\x00\x1b\x00\x1c\x00\x1d\x00\x11\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x1f\x00\x25\x00\x1d\x00\x10\x00\x28\x00\x10\x00\x36\x00\x2b\x00\x1f\x00\x2d\x00\x12\x00\x0a\x00\x3c\x00\x31\x00\x4a\x00\x0d\x00\x15\x00\x1e\x00\x47\x00\x1e\x00\x1c\x00\x39\x00\x3a\x00\x42\x00\x1d\x00\x3d\x00\x3e\x00\x02\x00\x40\x00\x04\x00\x4a\x00\x43\x00\x44\x00\x45\x00\x46\x00\x47\x00\x41\x00\x47\x00\x47\x00\x36\x00\x0b\x00\x0c\x00\x11\x00\x4a\x00\x47\x00\x3c\x00\x15\x00\x15\x00\x17\x00\x16\x00\x19\x00\x4a\x00\x1b\x00\x1c\x00\x1b\x00\x1d\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x4a\x00\x25\x00\x4a\x00\x17\x00\x28\x00\x4a\x00\x42\x00\x2b\x00\x4a\x00\x2d\x00\x45\x00\x13\x00\x19\x00\x31\x00\x22\x00\x16\x00\x08\x00\x13\x00\x0a\x00\x1d\x00\x1b\x00\x39\x00\x3a\x00\x14\x00\x20\x00\x3d\x00\x3e\x00\x02\x00\x40\x00\x04\x00\x20\x00\x43\x00\x44\x00\x45\x00\x46\x00\x47\x00\x21\x00\x17\x00\x1e\x00\x4a\x00\x4a\x00\x36\x00\x11\x00\x0b\x00\x05\x00\x4a\x00\x15\x00\x08\x00\x17\x00\x08\x00\x19\x00\x14\x00\x18\x00\x36\x00\x4a\x00\x17\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x47\x00\x25\x00\x23\x00\x21\x00\x28\x00\x4a\x00\x4a\x00\x18\x00\x1e\x00\x47\x00\x1e\x00\x4a\x00\x17\x00\x08\x00\x25\x00\x4a\x00\x4a\x00\x28\x00\x29\x00\x17\x00\x0f\x00\x39\x00\x3a\x00\x22\x00\x47\x00\x3d\x00\x3e\x00\x02\x00\x40\x00\x04\x00\x22\x00\x43\x00\x44\x00\x45\x00\x46\x00\x47\x00\x17\x00\x17\x00\x07\x00\x1d\x00\x17\x00\x4a\x00\x11\x00\x35\x00\x4a\x00\x0e\x00\x15\x00\x22\x00\x17\x00\x3b\x00\x19\x00\x22\x00\x45\x00\x02\x00\x47\x00\x04\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x0a\x00\x25\x00\x4a\x00\x0d\x00\x28\x00\x0f\x00\x1a\x00\x11\x00\x12\x00\x4a\x00\x08\x00\x15\x00\x16\x00\x17\x00\x19\x00\x19\x00\x24\x00\x0f\x00\x25\x00\x1d\x00\x47\x00\x39\x00\x3a\x00\x19\x00\x47\x00\x3d\x00\x4a\x00\x02\x00\x40\x00\x04\x00\x4a\x00\x43\x00\x44\x00\x45\x00\x46\x00\x47\x00\x37\x00\x19\x00\x0d\x00\x3a\x00\x0a\x00\x02\x00\x11\x00\x04\x00\x08\x00\x0f\x00\x15\x00\x16\x00\x17\x00\x0a\x00\x19\x00\x0f\x00\x36\x00\x25\x00\x1d\x00\x18\x00\x11\x00\x43\x00\x44\x00\x45\x00\x15\x00\x47\x00\x17\x00\x02\x00\x19\x00\x04\x00\x23\x00\x36\x00\x1d\x00\x47\x00\x30\x00\x37\x00\x0b\x00\x3c\x00\x3a\x00\x0a\x00\x08\x00\x24\x00\x11\x00\x39\x00\x27\x00\x4a\x00\x15\x00\x47\x00\x17\x00\x1a\x00\x19\x00\x13\x00\x2f\x00\x30\x00\x1d\x00\x1a\x00\x43\x00\x44\x00\x45\x00\x24\x00\x47\x00\x35\x00\x1e\x00\x05\x00\x02\x00\x3c\x00\x04\x00\x3b\x00\x3f\x00\x4a\x00\x43\x00\x44\x00\x45\x00\x0b\x00\x47\x00\x05\x00\x44\x00\x45\x00\x4a\x00\x11\x00\x02\x00\x0a\x00\x04\x00\x15\x00\x0e\x00\x17\x00\x0f\x00\x19\x00\x00\x00\x04\x00\x02\x00\x1d\x00\x43\x00\x44\x00\x45\x00\x11\x00\x47\x00\x0c\x00\x35\x00\x15\x00\x07\x00\x17\x00\x11\x00\x19\x00\x3b\x00\x35\x00\x15\x00\x1d\x00\x17\x00\x4a\x00\x19\x00\x3b\x00\x30\x00\x30\x00\x30\x00\x32\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x39\x00\x39\x00\x39\x00\x4a\x00\x28\x00\x33\x00\x34\x00\x35\x00\x43\x00\x44\x00\x45\x00\x19\x00\x47\x00\x30\x00\x35\x00\x48\x00\x49\x00\x48\x00\x49\x00\x41\x00\x3b\x00\x30\x00\x39\x00\x04\x00\x43\x00\x44\x00\x45\x00\x4a\x00\x47\x00\x4a\x00\x39\x00\x43\x00\x44\x00\x45\x00\x46\x00\x47\x00\x11\x00\x48\x00\x49\x00\x17\x00\x15\x00\x19\x00\x17\x00\x04\x00\x19\x00\x48\x00\x49\x00\x33\x00\x34\x00\x35\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x0f\x00\x11\x00\x35\x00\x12\x00\x28\x00\x15\x00\x41\x00\x17\x00\x3b\x00\x19\x00\x33\x00\x34\x00\x35\x00\x4a\x00\x26\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x2c\x00\x33\x00\x34\x00\x35\x00\x28\x00\x42\x00\x43\x00\x0f\x00\x4a\x00\x04\x00\x12\x00\x43\x00\x44\x00\x45\x00\x46\x00\x47\x00\x42\x00\x43\x00\x01\x00\x33\x00\x34\x00\x35\x00\x11\x00\x06\x00\x07\x00\x08\x00\x15\x00\x4a\x00\x17\x00\x04\x00\x19\x00\x43\x00\x44\x00\x45\x00\x46\x00\x47\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x4a\x00\x11\x00\x0b\x00\x0c\x00\x28\x00\x15\x00\x4a\x00\x17\x00\x26\x00\x19\x00\x28\x00\x29\x00\x2a\x00\x4a\x00\x2c\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x32\x00\x33\x00\x34\x00\x4a\x00\x28\x00\x37\x00\x38\x00\x26\x00\x27\x00\x3b\x00\x35\x00\x43\x00\x44\x00\x45\x00\x46\x00\x47\x00\x3b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x0b\x00\x0c\x00\x1a\x00\x44\x00\x45\x00\x2f\x00\x30\x00\x07\x00\x39\x00\x43\x00\x44\x00\x45\x00\x46\x00\x47\x00\x26\x00\x39\x00\x28\x00\x29\x00\x2a\x00\x05\x00\x2c\x00\x25\x00\x1a\x00\x25\x00\x28\x00\x29\x00\x32\x00\x33\x00\x34\x00\x2f\x00\x30\x00\x37\x00\x38\x00\x4a\x00\x26\x00\x3b\x00\x28\x00\x29\x00\x2a\x00\x39\x00\x2c\x00\x25\x00\x1a\x00\x25\x00\x28\x00\x29\x00\x32\x00\x33\x00\x34\x00\x2f\x00\x30\x00\x37\x00\x38\x00\x0a\x00\x26\x00\x3b\x00\x28\x00\x29\x00\x2a\x00\x39\x00\x2c\x00\x25\x00\x1a\x00\x25\x00\x28\x00\x29\x00\x32\x00\x33\x00\x34\x00\x2f\x00\x30\x00\x37\x00\x38\x00\x35\x00\x26\x00\x3b\x00\x28\x00\x29\x00\x2a\x00\x39\x00\x2c\x00\x25\x00\x1a\x00\x25\x00\x28\x00\x29\x00\x32\x00\x33\x00\x34\x00\x09\x00\x0a\x00\x37\x00\x38\x00\x0a\x00\x26\x00\x3b\x00\x28\x00\x29\x00\x2a\x00\x25\x00\x2c\x00\x33\x00\x34\x00\x35\x00\x26\x00\x27\x00\x32\x00\x33\x00\x34\x00\x38\x00\x25\x00\x37\x00\x38\x00\x28\x00\x29\x00\x3b\x00\x2a\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x35\x00\x33\x00\x34\x00\x35\x00\x33\x00\x34\x00\x35\x00\x35\x00\x39\x00\x26\x00\x27\x00\x26\x00\x27\x00\x03\x00\x3f\x00\x03\x00\x42\x00\x43\x00\x02\x00\x42\x00\x43\x00\x46\x00\x47\x00\x2a\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x05\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x43\x00\x39\x00\x2e\x00\x2f\x00\x30\x00\x26\x00\x27\x00\x3f\x00\x39\x00\x0b\x00\x0c\x00\x0b\x00\x0c\x00\x39\x00\x46\x00\x47\x00\x2a\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x1a\x00\x2a\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x39\x00\x2e\x00\x2f\x00\x30\x00\x0d\x00\x0e\x00\x3f\x00\x40\x00\x39\x00\x09\x00\x0a\x00\x19\x00\x39\x00\x05\x00\x3f\x00\x40\x00\x2a\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x2a\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x47\x00\x39\x00\x06\x00\x07\x00\x47\x00\x3d\x00\x3e\x00\x3f\x00\x39\x00\x0d\x00\x0e\x00\x36\x00\x3d\x00\x3e\x00\x3f\x00\x2a\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x2e\x00\x2f\x00\x30\x00\x34\x00\x35\x00\x34\x00\x35\x00\x39\x00\x09\x00\x0a\x00\x1e\x00\x39\x00\x1e\x00\x3f\x00\x2a\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x04\x00\x05\x00\x3d\x00\x3e\x00\x3d\x00\x3e\x00\x12\x00\x39\x00\x0f\x00\x0d\x00\x0e\x00\x01\x00\x02\x00\x3f\x00\x2a\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x3d\x00\x3e\x00\x18\x00\x1a\x00\x05\x00\x47\x00\x18\x00\x39\x00\x12\x00\x12\x00\x12\x00\x47\x00\x47\x00\x3f\x00\x2a\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x31\x00\x2a\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x39\x00\x07\x00\x47\x00\x07\x00\x04\x00\x04\x00\x3f\x00\x12\x00\x39\x00\x36\x00\x18\x00\x04\x00\x47\x00\x12\x00\x3f\x00\x2a\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x2a\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x12\x00\x39\x00\x0a\x00\x12\x00\x0f\x00\x12\x00\x47\x00\x3f\x00\x39\x00\x47\x00\x47\x00\x12\x00\x0f\x00\x47\x00\x3f\x00\x2a\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x2a\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x47\x00\x39\x00\x19\x00\x47\x00\x12\x00\x10\x00\x47\x00\x3f\x00\x39\x00\x10\x00\x10\x00\x47\x00\x10\x00\x10\x00\x3f\x00\x2a\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x2a\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x10\x00\x39\x00\x10\x00\x47\x00\x10\x00\x10\x00\x0a\x00\x3f\x00\x39\x00\x47\x00\x07\x00\x42\x00\x47\x00\x47\x00\x3f\x00\x2a\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x2a\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x18\x00\x39\x00\x0a\x00\x07\x00\x04\x00\x47\x00\x42\x00\x3f\x00\x39\x00\x17\x00\x0c\x00\x1a\x00\x04\x00\x10\x00\x3f\x00\x2a\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x2a\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x0e\x00\x39\x00\x1a\x00\x47\x00\x1a\x00\x47\x00\x0a\x00\x3f\x00\x39\x00\x2d\x00\x07\x00\x10\x00\x47\x00\x1a\x00\x3f\x00\x2a\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x2a\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x47\x00\x39\x00\x05\x00\x0a\x00\x14\x00\x2d\x00\x12\x00\x3f\x00\x39\x00\x18\x00\x07\x00\x0f\x00\x47\x00\x1a\x00\x3f\x00\x2a\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x2a\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x35\x00\x39\x00\x35\x00\x47\x00\x47\x00\x1a\x00\x10\x00\x3f\x00\x39\x00\x1a\x00\x1a\x00\x10\x00\x10\x00\x47\x00\x3f\x00\x2a\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x2a\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x1a\x00\x39\x00\x47\x00\x1a\x00\x10\x00\x0c\x00\x19\x00\x3f\x00\x39\x00\x18\x00\x0d\x00\x14\x00\x06\x00\x18\x00\x3f\x00\x2a\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x2a\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x1a\x00\x39\x00\x10\x00\x12\x00\x47\x00\x47\x00\x43\x00\x3f\x00\x39\x00\x12\x00\x0d\x00\x0d\x00\x19\x00\x47\x00\x3f\x00\x2a\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x2a\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x47\x00\x39\x00\x0f\x00\x45\x00\x05\x00\x14\x00\x18\x00\x3f\x00\x39\x00\x1a\x00\x0c\x00\x13\x00\x35\x00\x0a\x00\x3f\x00\x2a\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x2a\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x0a\x00\x39\x00\x47\x00\x10\x00\x2d\x00\x0d\x00\x47\x00\x3f\x00\x39\x00\x47\x00\x00\x00\x12\x00\x47\x00\x47\x00\x3f\x00\x2a\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x2a\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x48\x00\x39\x00\x47\x00\x47\x00\x19\x00\x0c\x00\x47\x00\x3f\x00\x39\x00\x19\x00\x19\x00\x19\x00\x0d\x00\x09\x00\x3f\x00\x2a\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x2a\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x48\x00\x39\x00\x1e\x00\xff\xff\x2e\x00\xff\xff\xff\xff\x3f\x00\x39\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x3f\x00\x2a\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x2a\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\xff\xff\x39\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x3f\x00\x39\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x3f\x00\x2a\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\x2a\x00\x2b\x00\x2c\x00\x2d\x00\x2e\x00\x2f\x00\x30\x00\xff\xff\x39\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x3f\x00\x39\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x3f\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff"#
+
+happyTable :: HappyAddr
+happyTable = HappyA# "\x00\x00\x10\x00\x01\x01\x11\x00\x77\x00\x67\x01\xf2\x00\x62\x00\x8c\x00\x4d\x01\xd6\x00\xee\x01\x63\x00\x64\x00\x65\x00\x9a\x00\x12\x00\x0d\x00\x95\x01\xa0\x01\x13\x00\x47\x01\x14\x00\xa6\x01\x15\x00\x66\x00\x16\x00\x17\x00\x47\x00\x47\x01\x18\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x9c\x01\x1d\x00\x96\x01\x53\x01\x1e\x00\x53\x01\x92\x01\x1f\x00\x48\x01\x20\x00\x4d\x01\x01\x01\xc2\x01\x21\x00\xea\x01\x60\x00\x3d\x01\xa7\x01\x68\x01\x54\x01\x4e\x01\x22\x00\x23\x00\x02\x01\x8f\x01\x24\x00\x25\x00\x10\x00\x26\x00\x11\x00\x4f\x01\x27\x00\x28\x00\x29\x00\x2a\x00\x52\x00\x67\x00\x78\x00\xf3\x00\x92\x01\x85\x01\x27\x01\x12\x00\x49\x01\x97\x01\x93\x01\x13\x00\x3d\x01\x14\x00\x44\x01\x15\x00\x49\x01\x16\x00\x17\x00\x99\x01\x3e\x01\x18\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x55\x01\x1d\x00\x55\x01\x40\x01\x1e\x00\x4f\x01\x23\x01\x1f\x00\x3f\x01\x20\x00\x99\x00\x50\x01\xee\x00\x21\x00\x97\x01\x44\x01\xc2\x00\x50\x01\xe1\x00\x96\x01\x45\x01\x22\x00\x23\x00\x3a\x01\xa4\x01\x24\x00\x25\x00\x10\x00\x26\x00\x38\x00\x51\x01\x27\x00\x28\x00\x29\x00\x2a\x00\x2b\x00\x8c\x01\x5f\x01\xc4\x00\x3f\x01\x46\x01\xef\x00\x12\x00\x20\x01\xdd\x00\xe1\x01\x13\x00\xc2\x00\x14\x00\xc2\x00\x15\x00\x3a\x01\x4a\x01\xb5\x00\x42\x01\x21\x01\x18\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x97\x01\x1d\x00\x9e\x01\x3b\x01\x1e\x00\x52\x01\x46\x01\x4b\x00\xc4\x00\xb6\x00\xc4\x00\x52\x01\x40\x01\xae\x01\x3c\x00\xe5\x01\x3c\x01\x3d\x00\xc9\x00\x40\x01\xf4\x00\x22\x00\x23\x00\x78\x01\x60\x01\x24\x00\x25\x00\x10\x00\x26\x00\x38\x00\x79\x01\x27\x00\x28\x00\x29\x00\x2a\x00\x2b\x00\x40\x01\x67\x01\x33\x01\x47\x00\x40\x01\x4c\x01\x12\x00\x94\x00\x3c\x01\x34\x01\x13\x00\x41\x01\x14\x00\xa3\x01\x15\x00\x43\x01\x4c\x00\x54\x00\x4d\x00\x55\x00\x18\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x9a\x00\x1d\x00\x42\x01\xbe\x00\x1e\x00\x9c\xff\xc5\x01\x56\x00\x9c\xff\x42\x01\x56\x01\x57\x00\xbf\x00\x58\x00\xe4\x01\x59\x00\xe9\x01\xf4\x00\x7a\x00\x5a\x00\x48\x00\x22\x00\x23\x00\xee\x00\x68\x01\x24\x00\x42\x01\x54\x00\x26\x00\x55\x00\x42\x01\x27\x00\x28\x00\x29\x00\x2a\x00\x2b\x00\x7b\x00\x40\x00\xbe\x00\x06\x01\x34\xff\x54\x00\x56\x00\x55\x00\xf3\x00\x34\xff\x57\x00\xbf\x00\x58\x00\x95\x01\x59\x00\xf4\x00\xef\x00\x7a\x00\x5a\x00\x4a\x01\x56\x00\x5b\x00\x5c\x00\x5d\x00\x57\x00\x5e\x00\x58\x00\x54\x00\x59\x00\x55\x00\x4b\x01\x92\x01\x5a\x00\xb6\x00\x36\x00\x7b\x00\x84\x00\x9b\x01\x7c\x00\x9a\x00\xc2\x00\x30\x00\x56\x00\x0d\x00\x31\x00\xe6\x01\x57\x00\x41\x00\x58\x00\xc5\x01\x59\x00\xc3\x00\x32\x00\x33\x00\x5a\x00\xe3\x00\x5b\x00\x5c\x00\x5d\x00\xc6\x01\x5e\x00\x94\x00\xc4\x00\xcb\x01\x54\x00\x34\x00\x55\x00\x95\x00\x35\x00\x4c\x01\x5b\x00\x5c\x00\x5d\x00\x84\x00\x5e\x00\x24\x01\x96\x00\x0d\x01\xe7\x01\x56\x00\x54\x00\x8b\x00\x55\x00\x57\x00\x25\x01\x58\x00\x8c\x00\x59\x00\x2d\x00\x38\x00\x04\x00\x5a\x00\x5b\x00\x5c\x00\x5d\x00\x56\x00\x85\x00\x2f\xff\x94\x00\x57\x00\xcd\x01\x58\x00\x12\x00\x59\x00\x2c\x01\x94\x00\x13\x00\x5a\x00\x14\x00\xcf\x01\x15\x00\xbc\x00\xa8\x01\x8c\x00\xa8\x01\x8d\x00\x18\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x0d\x00\x0d\x00\x0d\x00\xd1\x01\x1e\x00\x7f\x00\x80\x00\x81\x00\x5b\x00\x5c\x00\x5d\x00\xb6\x01\xa6\x00\xa8\x01\x94\x00\xa9\x01\xce\x01\xa9\x01\xb1\x01\x07\x01\xd0\x00\xa8\x01\x0d\x00\xac\x01\x5b\x00\x5c\x00\x5d\x00\xd3\x01\x5e\x00\xd5\x01\x0d\x00\x27\x00\x28\x00\x29\x00\x2a\x00\x2b\x00\x12\x00\xa9\x01\xb4\x01\xa7\x00\x13\x00\xa8\x00\x14\x00\x38\x00\x15\x00\xa9\x01\xaa\x01\x7f\x00\x80\x00\x81\x00\x18\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x91\x01\x12\x00\x94\x00\x92\x01\x1e\x00\x13\x00\x82\x00\x14\x00\xbc\x00\x15\x00\xa2\x00\x80\x00\x81\x00\xd6\x01\x39\x01\x18\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x3a\x01\xa2\x00\x80\x00\x81\x00\x1e\x00\xa3\x00\x0b\x01\x9e\x00\xd8\x01\x38\x00\x9f\x00\x27\x00\x28\x00\x29\x00\x2a\x00\x2b\x00\xa3\x00\x17\x01\x62\x00\x05\x01\x80\x00\x81\x00\x12\x00\x63\x00\x64\x00\x65\x00\x13\x00\xd9\x01\x14\x00\x38\x00\x39\x00\x27\x00\x28\x00\x29\x00\x2a\x00\x2b\x00\x18\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\xda\x01\x12\x00\x87\x01\x27\x01\x1e\x00\x13\x00\xdd\x01\x14\x00\xf6\x00\x15\x00\xf7\x00\xf8\x00\xf9\x00\xde\x01\xfa\x00\x18\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\xfb\x00\xfc\x00\xfd\x00\xb3\x01\x1e\x00\xfe\x00\xff\x00\x70\x01\xc0\x01\x00\x01\x94\x00\x27\x00\x28\x00\x29\x00\x2a\x00\x2b\x00\x95\x00\x71\x00\x6d\x00\x6e\x00\x0b\x00\x0c\x00\x8a\x01\x27\x01\xac\xff\x96\x00\x97\x00\x60\x00\x0c\x00\x8b\x01\x0d\x00\x27\x00\x28\x00\x29\x00\x2a\x00\x2b\x00\xac\xff\x0d\x00\xac\xff\xac\xff\xac\xff\x86\x01\xac\xff\x3c\x00\xa2\xff\x61\x01\x3d\x00\xe8\x00\xac\xff\xac\xff\xac\xff\x3b\x00\x0c\x00\xac\xff\xac\xff\x8d\x01\xa2\xff\xac\xff\xa2\xff\xa2\xff\xa2\xff\x0d\x00\xa2\xff\x3c\x00\xb0\xff\x6b\x01\x3d\x00\x9a\x00\xa2\xff\xa2\xff\xa2\xff\x41\x00\x0c\x00\xa2\xff\xa2\xff\x7e\x01\xb0\xff\xa2\xff\xb0\xff\xb0\xff\xb0\xff\x0d\x00\xb0\xff\x3c\x00\xae\xff\x7f\x01\x3d\x00\x3e\x00\xb0\xff\xb0\xff\xb0\xff\x60\x00\x0c\x00\xb0\xff\xb0\xff\x18\x01\xae\xff\xb0\xff\xae\xff\xae\xff\xae\xff\x0d\x00\xae\xff\x3c\x00\xaa\xff\x29\x01\x3d\x00\x49\x00\xae\xff\xae\xff\xae\xff\x5c\x01\xf0\x00\xae\xff\xae\xff\x1c\x01\xaa\xff\xae\xff\xaa\xff\xaa\xff\xaa\xff\xcc\x00\xaa\xff\x85\x00\x80\x00\x81\x00\x64\x01\x65\x01\xaa\xff\xaa\xff\xaa\xff\x75\x00\x3c\x00\xaa\xff\xaa\xff\x3d\x00\x49\x00\xaa\xff\x10\x01\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\xdd\x00\xa2\x00\x80\x00\x81\x00\xa2\x00\x80\x00\x81\x00\x52\x00\x0d\x00\x6d\x01\x6e\x01\x70\x01\x71\x01\x2e\x00\x0e\x00\x69\x00\xa3\x00\xa4\x00\x04\x00\xa3\x00\xba\x00\x11\x01\x7d\x01\x10\x01\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\xec\x01\x6c\x00\x08\x00\x6d\x00\x6e\x00\x0b\x00\x0c\x00\xed\x01\x0d\x00\x72\x00\x0b\x00\x0c\x00\x73\x01\x74\x01\x0e\x00\x0d\x00\x26\x01\x27\x01\x35\x01\x27\x01\x0d\x00\x11\x01\x12\x01\xd8\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\xee\x01\x4d\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\x73\x00\x0b\x00\x0c\x00\x36\x01\x37\x01\x0e\x00\xd9\x00\x0d\x00\xef\x00\xf0\x00\xe3\x01\x0d\x00\xcd\x01\x0e\x00\x4e\x00\x4f\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\x4f\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\xb8\x01\x0d\x00\xe9\x00\xea\x00\xc8\x01\x44\x00\xb2\x01\x0e\x00\x0d\x00\xeb\x00\xec\x00\xb5\x00\x44\x00\x50\x00\x0e\x00\xa0\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\x13\x01\x74\x00\x0b\x00\x0c\x00\x14\x01\x81\x00\x16\x01\x81\x00\x0d\x00\x21\x01\xf0\x00\xd1\x01\x0d\x00\xdd\x01\x0e\x00\xa0\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\xbb\x00\xb0\x00\xb1\x00\x44\x00\xd2\x00\x44\x00\x45\x00\xd3\x01\x0d\x00\xe0\x01\xb2\x00\xb3\x00\x2b\x00\x2c\x00\x0e\x00\xa0\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\xa1\x00\x44\x00\x48\x00\xe1\x01\xb0\x01\xb1\x01\xb8\x01\xbb\x01\x0d\x00\xb9\x01\xbe\x01\xc2\x01\xbc\x01\xc8\x01\x0e\x00\xa0\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\xa8\x00\xe3\x01\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\x0d\x00\xc9\x01\xca\x01\xcb\x01\x29\x01\x29\x01\x0e\x00\x89\x01\x0d\x00\xb5\x00\x8a\x01\x29\x01\x1b\xff\x8f\x01\x0e\x00\xe8\x01\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\xd4\x01\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\x99\x01\x0d\x00\x95\x01\x9b\x01\x9e\x01\xa0\x01\x1b\xff\x0e\x00\x0d\x00\x1b\xff\xa2\x01\xa3\x01\xa7\x01\x1b\xff\x0e\x00\xd7\x01\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\xdb\x01\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\xad\x01\x0d\x00\x5c\x01\xae\x01\x5e\x01\x61\x01\x63\x01\x0e\x00\x0d\x00\x64\x01\x69\x01\x6a\x01\x6b\x01\x6d\x01\x0e\x00\xb5\x01\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\xb9\x01\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\x70\x01\x0d\x00\x73\x01\x41\x00\x76\x01\x78\x01\x01\x01\x0e\x00\x0d\x00\x77\x01\x7b\x01\x7c\x01\x41\x00\x82\x01\x0e\x00\xbc\x01\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\xbe\x01\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\x81\x01\x0d\x00\x83\x01\x84\x01\x29\x01\x41\x00\x85\x01\x0e\x00\x0d\x00\x2b\x01\x2c\x01\x2e\x01\x29\x01\x2f\x01\x0e\x00\xbf\x01\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\xc3\x01\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\x30\x01\x0d\x00\x33\x01\xb6\x00\x58\x01\x59\x01\x5a\x01\x0e\x00\x0d\x00\x5b\x01\x03\x01\x04\x01\x41\x00\x05\x01\x0e\x00\xc4\x01\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\x7c\x01\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\x09\x01\x0d\x00\x0a\x01\x8b\x00\x0b\x01\x0f\x01\x10\x01\x0e\x00\x0d\x00\x1b\x01\x24\x01\xb9\x00\x1a\x01\x1c\x01\x0e\x00\x30\x01\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\x31\x01\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\xb7\x00\x0d\x00\xb8\x00\x1e\x01\x1f\x01\xba\x00\xc1\x00\x0e\x00\x0d\x00\xc0\x00\xc5\x00\xc6\x00\xc7\x00\x41\x00\x0e\x00\x0c\x01\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\x15\x01\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\xcc\x00\x0d\x00\x41\x00\xce\x00\xcf\x00\xd0\x00\xd2\x00\x0e\x00\x0d\x00\xd6\x00\xdc\x00\xdf\x00\xe0\x00\xe2\x00\x0e\x00\xc7\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\xc8\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\xe4\x00\x0d\x00\xe5\x00\xe6\x00\xe7\x00\x41\x00\xe8\x00\x0e\x00\x0d\x00\x6b\x00\x60\x00\x7a\x00\x70\x00\x7e\x00\x0e\x00\xca\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\xd3\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\x87\x00\x0d\x00\x88\x00\x7f\x00\x89\x00\x8a\x00\x8f\x00\x0e\x00\x0d\x00\x90\x00\x91\x00\x92\x00\x94\x00\x93\x00\x0e\x00\xd4\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\xd7\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\x9a\x00\x0d\x00\x41\x00\x9d\x00\x9c\x00\x60\x00\xaa\x00\x0e\x00\x0d\x00\xab\x00\xff\xff\xb0\x00\xac\x00\xad\x00\x0e\x00\xda\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\x6b\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\xff\xff\x0d\x00\xae\x00\xaf\x00\x36\x00\x5f\x00\x41\x00\x0e\x00\x0d\x00\x3a\x00\x3b\x00\x43\x00\x60\x00\x68\x00\x0e\x00\x70\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\x78\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\xff\xff\x0d\x00\x69\x00\x00\x00\x06\x00\x00\x00\x00\x00\x0e\x00\x0d\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0e\x00\x9f\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\x4f\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\x00\x00\x0d\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0e\x00\x0d\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0e\x00\x43\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\x06\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x0b\x00\x0c\x00\x00\x00\x0d\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0e\x00\x0d\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0e\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"#
+
+happyReduceArr = array (3, 228) [
+ (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),
+ (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),
+ (224 , happyReduce_224),
+ (225 , happyReduce_225),
+ (226 , happyReduce_226),
+ (227 , happyReduce_227),
+ (228 , happyReduce_228)
+ ]
+
+happy_n_terms = 73 :: Int
+happy_n_nonterms = 75 :: Int
+
+happyReduce_3 = happyMonadReduce 4# 0# happyReduction_3
+happyReduction_3 (happy_x_4 `HappyStk`
+ happy_x_3 `HappyStk`
+ happy_x_2 `HappyStk`
+ happy_x_1 `HappyStk`
+ happyRest) tk
+ = happyThen (case happyOut8 happy_x_1 of { happy_var_1 ->
+ case happyOut9 happy_x_2 of { happy_var_2 ->
+ case happyOut12 happy_x_4 of { happy_var_4 ->
+ (
+ do let mstat = happy_var_1
+ (mtype,id) = happy_var_2
+ (extends,with,content) = happy_var_4
+ (opens,jments,opts) = case content of { Just c -> c; Nothing -> ([],[],noOptions) }
+ mapM_ (checkInfoType mtype) jments
+ defs <- case buildAnyTree id [(i,d) | (i,_,d) <- jments] of
+ Ok x -> return x
+ Bad msg -> fail msg
+ let poss = buildTree [(i,(fname,mkSrcSpan p)) | (i,p,_) <- jments]
+ fname = prIdent id ++ ".gf"
+
+ mkSrcSpan :: (Posn, Posn) -> (Int,Int)
+ mkSrcSpan (Pn l1 _, Pn l2 _) = (l1,l2)
+
+ return (id, ModInfo mtype mstat opts extends with opens [] defs poss))}}}
+ ) (\r -> happyReturn (happyIn6 r))
+
+happyReduce_4 = happyReduce 4# 1# happyReduction_4
+happyReduction_4 (happy_x_4 `HappyStk`
+ happy_x_3 `HappyStk`
+ happy_x_2 `HappyStk`
+ happy_x_1 `HappyStk`
+ happyRest)
+ = case happyOut8 happy_x_1 of { happy_var_1 ->
+ case happyOut9 happy_x_2 of { happy_var_2 ->
+ case happyOut10 happy_x_4 of { happy_var_4 ->
+ happyIn7
+ (let { mstat = happy_var_1 ;
+ (mtype,id) = happy_var_2 ;
+ (extends,with,opens) = happy_var_4 }
+ in (id, ModInfo mtype mstat noOptions extends with opens [] emptyBinTree emptyBinTree)
+ ) `HappyStk` happyRest}}}
+
+happyReduce_5 = happySpecReduce_0 2# happyReduction_5
+happyReduction_5 = happyIn8
+ (MSComplete
+ )
+
+happyReduce_6 = happySpecReduce_1 2# happyReduction_6
+happyReduction_6 happy_x_1
+ = happyIn8
+ (MSIncomplete
+ )
+
+happyReduce_7 = happySpecReduce_2 3# happyReduction_7
+happyReduction_7 happy_x_2
+ happy_x_1
+ = case happyOutTok happy_x_2 of { ((T_Ident happy_var_2)) ->
+ happyIn9
+ ((MTAbstract, happy_var_2)
+ )}
+
+happyReduce_8 = happySpecReduce_2 3# happyReduction_8
+happyReduction_8 happy_x_2
+ happy_x_1
+ = case happyOutTok happy_x_2 of { ((T_Ident happy_var_2)) ->
+ happyIn9
+ ((MTResource, happy_var_2)
+ )}
+
+happyReduce_9 = happySpecReduce_2 3# happyReduction_9
+happyReduction_9 happy_x_2
+ happy_x_1
+ = case happyOutTok happy_x_2 of { ((T_Ident happy_var_2)) ->
+ happyIn9
+ ((MTInterface, happy_var_2)
+ )}
+
+happyReduce_10 = happyReduce 4# 3# happyReduction_10
+happyReduction_10 (happy_x_4 `HappyStk`
+ happy_x_3 `HappyStk`
+ happy_x_2 `HappyStk`
+ happy_x_1 `HappyStk`
+ happyRest)
+ = case happyOutTok happy_x_2 of { ((T_Ident happy_var_2)) ->
+ case happyOutTok happy_x_4 of { ((T_Ident happy_var_4)) ->
+ happyIn9
+ ((MTConcrete happy_var_4, happy_var_2)
+ ) `HappyStk` happyRest}}
+
+happyReduce_11 = happyReduce 4# 3# happyReduction_11
+happyReduction_11 (happy_x_4 `HappyStk`
+ happy_x_3 `HappyStk`
+ happy_x_2 `HappyStk`
+ happy_x_1 `HappyStk`
+ happyRest)
+ = case happyOutTok happy_x_2 of { ((T_Ident happy_var_2)) ->
+ case happyOutTok happy_x_4 of { ((T_Ident happy_var_4)) ->
+ happyIn9
+ ((MTInstance happy_var_4, happy_var_2)
+ ) `HappyStk` happyRest}}
+
+happyReduce_12 = happyReduce 6# 3# happyReduction_12
+happyReduction_12 (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 happyOutTok happy_x_2 of { ((T_Ident happy_var_2)) ->
+ case happyOut16 happy_x_4 of { happy_var_4 ->
+ case happyOut16 happy_x_6 of { happy_var_6 ->
+ happyIn9
+ ((MTTransfer happy_var_4 happy_var_6,happy_var_2)
+ ) `HappyStk` happyRest}}}
+
+happyReduce_13 = happyReduce 7# 4# happyReduction_13
+happyReduction_13 (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 happyOut19 happy_x_1 of { happy_var_1 ->
+ case happyOut20 happy_x_3 of { happy_var_3 ->
+ case happyOut17 happy_x_5 of { happy_var_5 ->
+ case happyOut11 happy_x_7 of { happy_var_7 ->
+ happyIn10
+ ((happy_var_1, Just (fst happy_var_3,snd happy_var_3,happy_var_5), happy_var_7)
+ ) `HappyStk` happyRest}}}}
+
+happyReduce_14 = happyReduce 5# 4# happyReduction_14
+happyReduction_14 (happy_x_5 `HappyStk`
+ happy_x_4 `HappyStk`
+ happy_x_3 `HappyStk`
+ happy_x_2 `HappyStk`
+ happy_x_1 `HappyStk`
+ happyRest)
+ = case happyOut19 happy_x_1 of { happy_var_1 ->
+ case happyOut20 happy_x_3 of { happy_var_3 ->
+ case happyOut17 happy_x_5 of { happy_var_5 ->
+ happyIn10
+ ((happy_var_1, Just (fst happy_var_3,snd happy_var_3,happy_var_5), [])
+ ) `HappyStk` happyRest}}}
+
+happyReduce_15 = happySpecReduce_3 4# happyReduction_15
+happyReduction_15 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOut19 happy_x_1 of { happy_var_1 ->
+ case happyOut11 happy_x_3 of { happy_var_3 ->
+ happyIn10
+ ((happy_var_1, Nothing, happy_var_3)
+ )}}
+
+happyReduce_16 = happySpecReduce_1 4# happyReduction_16
+happyReduction_16 happy_x_1
+ = case happyOut19 happy_x_1 of { happy_var_1 ->
+ happyIn10
+ ((happy_var_1, Nothing, [])
+ )}
+
+happyReduce_17 = happyReduce 5# 4# happyReduction_17
+happyReduction_17 (happy_x_5 `HappyStk`
+ happy_x_4 `HappyStk`
+ happy_x_3 `HappyStk`
+ happy_x_2 `HappyStk`
+ happy_x_1 `HappyStk`
+ happyRest)
+ = case happyOut20 happy_x_1 of { happy_var_1 ->
+ case happyOut17 happy_x_3 of { happy_var_3 ->
+ case happyOut11 happy_x_5 of { happy_var_5 ->
+ happyIn10
+ (([], Just (fst happy_var_1,snd happy_var_1,happy_var_3), happy_var_5)
+ ) `HappyStk` happyRest}}}
+
+happyReduce_18 = happySpecReduce_3 4# happyReduction_18
+happyReduction_18 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOut20 happy_x_1 of { happy_var_1 ->
+ case happyOut17 happy_x_3 of { happy_var_3 ->
+ happyIn10
+ (([], Just (fst happy_var_1,snd happy_var_1,happy_var_3), [])
+ )}}
+
+happyReduce_19 = happySpecReduce_1 4# happyReduction_19
+happyReduction_19 happy_x_1
+ = case happyOut11 happy_x_1 of { happy_var_1 ->
+ happyIn10
+ (([], Nothing, happy_var_1)
+ )}
+
+happyReduce_20 = happySpecReduce_0 5# happyReduction_20
+happyReduction_20 = happyIn11
+ ([]
+ )
+
+happyReduce_21 = happySpecReduce_2 5# happyReduction_21
+happyReduction_21 happy_x_2
+ happy_x_1
+ = case happyOut15 happy_x_2 of { happy_var_2 ->
+ happyIn11
+ (happy_var_2
+ )}
+
+happyReduce_22 = happyReduce 7# 6# happyReduction_22
+happyReduction_22 (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 happyOut19 happy_x_1 of { happy_var_1 ->
+ case happyOut20 happy_x_3 of { happy_var_3 ->
+ case happyOut17 happy_x_5 of { happy_var_5 ->
+ case happyOut13 happy_x_7 of { happy_var_7 ->
+ happyIn12
+ ((happy_var_1, Just (fst happy_var_3,snd happy_var_3,happy_var_5), Just happy_var_7)
+ ) `HappyStk` happyRest}}}}
+
+happyReduce_23 = happyReduce 5# 6# happyReduction_23
+happyReduction_23 (happy_x_5 `HappyStk`
+ happy_x_4 `HappyStk`
+ happy_x_3 `HappyStk`
+ happy_x_2 `HappyStk`
+ happy_x_1 `HappyStk`
+ happyRest)
+ = case happyOut19 happy_x_1 of { happy_var_1 ->
+ case happyOut20 happy_x_3 of { happy_var_3 ->
+ case happyOut17 happy_x_5 of { happy_var_5 ->
+ happyIn12
+ ((happy_var_1, Just (fst happy_var_3,snd happy_var_3,happy_var_5), Nothing)
+ ) `HappyStk` happyRest}}}
+
+happyReduce_24 = happySpecReduce_3 6# happyReduction_24
+happyReduction_24 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOut19 happy_x_1 of { happy_var_1 ->
+ case happyOut13 happy_x_3 of { happy_var_3 ->
+ happyIn12
+ ((happy_var_1, Nothing, Just happy_var_3)
+ )}}
+
+happyReduce_25 = happySpecReduce_1 6# happyReduction_25
+happyReduction_25 happy_x_1
+ = case happyOut19 happy_x_1 of { happy_var_1 ->
+ happyIn12
+ ((happy_var_1, Nothing, Nothing)
+ )}
+
+happyReduce_26 = happyReduce 5# 6# happyReduction_26
+happyReduction_26 (happy_x_5 `HappyStk`
+ happy_x_4 `HappyStk`
+ happy_x_3 `HappyStk`
+ happy_x_2 `HappyStk`
+ happy_x_1 `HappyStk`
+ happyRest)
+ = case happyOut20 happy_x_1 of { happy_var_1 ->
+ case happyOut17 happy_x_3 of { happy_var_3 ->
+ case happyOut13 happy_x_5 of { happy_var_5 ->
+ happyIn12
+ (([], Just (fst happy_var_1,snd happy_var_1,happy_var_3), Just happy_var_5)
+ ) `HappyStk` happyRest}}}
+
+happyReduce_27 = happySpecReduce_3 6# happyReduction_27
+happyReduction_27 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOut20 happy_x_1 of { happy_var_1 ->
+ case happyOut17 happy_x_3 of { happy_var_3 ->
+ happyIn12
+ (([], Just (fst happy_var_1,snd happy_var_1,happy_var_3), Nothing)
+ )}}
+
+happyReduce_28 = happySpecReduce_1 6# happyReduction_28
+happyReduction_28 happy_x_1
+ = case happyOut13 happy_x_1 of { happy_var_1 ->
+ happyIn12
+ (([], Nothing, Just happy_var_1)
+ )}
+
+happyReduce_29 = happySpecReduce_2 6# happyReduction_29
+happyReduction_29 happy_x_2
+ happy_x_1
+ = case happyOut12 happy_x_1 of { happy_var_1 ->
+ happyIn12
+ (happy_var_1
+ )}
+
+happyReduce_30 = happySpecReduce_3 7# happyReduction_30
+happyReduction_30 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOut14 happy_x_2 of { happy_var_2 ->
+ happyIn13
+ (([],[d | Left ds <- happy_var_2, d <- ds],concatOptions [o | Right o <- happy_var_2])
+ )}
+
+happyReduce_31 = happyReduce 6# 7# happyReduction_31
+happyReduction_31 (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 happyOut15 happy_x_2 of { happy_var_2 ->
+ case happyOut14 happy_x_5 of { happy_var_5 ->
+ happyIn13
+ ((happy_var_2,[d | Left ds <- happy_var_5, d <- ds],concatOptions [o | Right o <- happy_var_5])
+ ) `HappyStk` happyRest}}
+
+happyReduce_32 = happySpecReduce_0 8# happyReduction_32
+happyReduction_32 = happyIn14
+ ([]
+ )
+
+happyReduce_33 = happySpecReduce_2 8# happyReduction_33
+happyReduction_33 happy_x_2
+ happy_x_1
+ = case happyOut21 happy_x_1 of { happy_var_1 ->
+ case happyOut14 happy_x_2 of { happy_var_2 ->
+ happyIn14
+ (happy_var_1 : happy_var_2
+ )}}
+
+happyReduce_34 = happySpecReduce_1 9# happyReduction_34
+happyReduction_34 happy_x_1
+ = case happyOut16 happy_x_1 of { happy_var_1 ->
+ happyIn15
+ ([happy_var_1]
+ )}
+
+happyReduce_35 = happySpecReduce_3 9# happyReduction_35
+happyReduction_35 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOut16 happy_x_1 of { happy_var_1 ->
+ case happyOut15 happy_x_3 of { happy_var_3 ->
+ happyIn15
+ (happy_var_1 : happy_var_3
+ )}}
+
+happyReduce_36 = happySpecReduce_1 10# happyReduction_36
+happyReduction_36 happy_x_1
+ = case happyOutTok happy_x_1 of { ((T_Ident happy_var_1)) ->
+ happyIn16
+ (OSimple happy_var_1
+ )}
+
+happyReduce_37 = happyReduce 5# 10# happyReduction_37
+happyReduction_37 (happy_x_5 `HappyStk`
+ happy_x_4 `HappyStk`
+ happy_x_3 `HappyStk`
+ happy_x_2 `HappyStk`
+ happy_x_1 `HappyStk`
+ happyRest)
+ = case happyOutTok happy_x_2 of { ((T_Ident happy_var_2)) ->
+ case happyOutTok happy_x_4 of { ((T_Ident happy_var_4)) ->
+ happyIn16
+ (OQualif happy_var_2 happy_var_4
+ ) `HappyStk` happyRest}}
+
+happyReduce_38 = happySpecReduce_1 11# happyReduction_38
+happyReduction_38 happy_x_1
+ = case happyOut18 happy_x_1 of { happy_var_1 ->
+ happyIn17
+ ([happy_var_1]
+ )}
+
+happyReduce_39 = happySpecReduce_3 11# happyReduction_39
+happyReduction_39 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOut18 happy_x_1 of { happy_var_1 ->
+ case happyOut17 happy_x_3 of { happy_var_3 ->
+ happyIn17
+ (happy_var_1 : happy_var_3
+ )}}
+
+happyReduce_40 = happyReduce 5# 12# happyReduction_40
+happyReduction_40 (happy_x_5 `HappyStk`
+ happy_x_4 `HappyStk`
+ happy_x_3 `HappyStk`
+ happy_x_2 `HappyStk`
+ happy_x_1 `HappyStk`
+ happyRest)
+ = case happyOutTok happy_x_2 of { ((T_Ident happy_var_2)) ->
+ case happyOutTok happy_x_4 of { ((T_Ident happy_var_4)) ->
+ happyIn18
+ ((happy_var_2,happy_var_4)
+ ) `HappyStk` happyRest}}
+
+happyReduce_41 = happySpecReduce_1 13# happyReduction_41
+happyReduction_41 happy_x_1
+ = case happyOut20 happy_x_1 of { happy_var_1 ->
+ happyIn19
+ ([happy_var_1]
+ )}
+
+happyReduce_42 = happySpecReduce_3 13# happyReduction_42
+happyReduction_42 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOut20 happy_x_1 of { happy_var_1 ->
+ case happyOut19 happy_x_3 of { happy_var_3 ->
+ happyIn19
+ (happy_var_1 : happy_var_3
+ )}}
+
+happyReduce_43 = happySpecReduce_1 14# happyReduction_43
+happyReduction_43 happy_x_1
+ = case happyOutTok happy_x_1 of { ((T_Ident happy_var_1)) ->
+ happyIn20
+ ((happy_var_1,MIAll )
+ )}
+
+happyReduce_44 = happyReduce 4# 14# happyReduction_44
+happyReduction_44 (happy_x_4 `HappyStk`
+ happy_x_3 `HappyStk`
+ happy_x_2 `HappyStk`
+ happy_x_1 `HappyStk`
+ happyRest)
+ = case happyOutTok happy_x_1 of { ((T_Ident happy_var_1)) ->
+ case happyOut43 happy_x_3 of { happy_var_3 ->
+ happyIn20
+ ((happy_var_1,MIOnly happy_var_3)
+ ) `HappyStk` happyRest}}
+
+happyReduce_45 = happyReduce 5# 14# happyReduction_45
+happyReduction_45 (happy_x_5 `HappyStk`
+ happy_x_4 `HappyStk`
+ happy_x_3 `HappyStk`
+ happy_x_2 `HappyStk`
+ happy_x_1 `HappyStk`
+ happyRest)
+ = case happyOutTok happy_x_1 of { ((T_Ident happy_var_1)) ->
+ case happyOut43 happy_x_4 of { happy_var_4 ->
+ happyIn20
+ ((happy_var_1,MIExcept happy_var_4)
+ ) `HappyStk` happyRest}}
+
+happyReduce_46 = happySpecReduce_2 15# happyReduction_46
+happyReduction_46 happy_x_2
+ happy_x_1
+ = case happyOut36 happy_x_2 of { happy_var_2 ->
+ happyIn21
+ (Left happy_var_2
+ )}
+
+happyReduce_47 = happySpecReduce_2 15# happyReduction_47
+happyReduction_47 happy_x_2
+ happy_x_1
+ = case happyOut37 happy_x_2 of { happy_var_2 ->
+ happyIn21
+ (Left happy_var_2
+ )}
+
+happyReduce_48 = happySpecReduce_2 15# happyReduction_48
+happyReduction_48 happy_x_2
+ happy_x_1
+ = case happyOut34 happy_x_2 of { happy_var_2 ->
+ happyIn21
+ (Left happy_var_2
+ )}
+
+happyReduce_49 = happySpecReduce_2 15# happyReduction_49
+happyReduction_49 happy_x_2
+ happy_x_1
+ = case happyOut38 happy_x_2 of { happy_var_2 ->
+ happyIn21
+ (Left happy_var_2
+ )}
+
+happyReduce_50 = happySpecReduce_2 15# happyReduction_50
+happyReduction_50 happy_x_2
+ happy_x_1
+ = case happyOut39 happy_x_2 of { happy_var_2 ->
+ happyIn21
+ (Left happy_var_2
+ )}
+
+happyReduce_51 = happySpecReduce_2 15# happyReduction_51
+happyReduction_51 happy_x_2
+ happy_x_1
+ = case happyOut35 happy_x_2 of { happy_var_2 ->
+ happyIn21
+ (Left happy_var_2
+ )}
+
+happyReduce_52 = happySpecReduce_2 15# happyReduction_52
+happyReduction_52 happy_x_2
+ happy_x_1
+ = case happyOut40 happy_x_2 of { happy_var_2 ->
+ happyIn21
+ (Left [(f, pos, CncCat (Just e) Nothing Nothing ) | (f,pos,e) <- happy_var_2]
+ )}
+
+happyReduce_53 = happySpecReduce_2 15# happyReduction_53
+happyReduction_53 happy_x_2
+ happy_x_1
+ = case happyOut40 happy_x_2 of { happy_var_2 ->
+ happyIn21
+ (Left [(f, pos, CncCat Nothing (Just e) Nothing ) | (f,pos,e) <- happy_var_2]
+ )}
+
+happyReduce_54 = happySpecReduce_2 15# happyReduction_54
+happyReduction_54 happy_x_2
+ happy_x_1
+ = case happyOut33 happy_x_2 of { happy_var_2 ->
+ happyIn21
+ (Left happy_var_2
+ )}
+
+happyReduce_55 = happySpecReduce_3 15# happyReduction_55
+happyReduction_55 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOut40 happy_x_3 of { happy_var_3 ->
+ happyIn21
+ (Left [(f, pos, CncCat Nothing Nothing (Just e)) | (f,pos,e) <- happy_var_3]
+ )}
+
+happyReduce_56 = happySpecReduce_3 15# happyReduction_56
+happyReduction_56 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOut40 happy_x_3 of { happy_var_3 ->
+ happyIn21
+ (Left [(f, pos, CncFun Nothing Nothing (Just e)) | (f,pos,e) <- happy_var_3]
+ )}
+
+happyReduce_57 = happySpecReduce_2 15# happyReduction_57
+happyReduction_57 happy_x_2
+ happy_x_1
+ = case happyOut41 happy_x_2 of { happy_var_2 ->
+ happyIn21
+ (Right happy_var_2
+ )}
+
+happyReduce_58 = happyReduce 4# 16# happyReduction_58
+happyReduction_58 (happy_x_4 `HappyStk`
+ happy_x_3 `HappyStk`
+ happy_x_2 `HappyStk`
+ happy_x_1 `HappyStk`
+ happyRest)
+ = case happyOut80 happy_x_1 of { happy_var_1 ->
+ case happyOutTok happy_x_2 of { ((T_Ident happy_var_2)) ->
+ case happyOut79 happy_x_3 of { happy_var_3 ->
+ case happyOut80 happy_x_4 of { happy_var_4 ->
+ happyIn22
+ ([(happy_var_2, (happy_var_1,happy_var_4), AbsCat (Just happy_var_3) Nothing)]
+ ) `HappyStk` happyRest}}}}
+
+happyReduce_59 = happyReduce 6# 16# happyReduction_59
+happyReduction_59 (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 happyOut80 happy_x_1 of { happy_var_1 ->
+ case happyOutTok happy_x_3 of { ((T_Ident happy_var_3)) ->
+ case happyOut79 happy_x_4 of { happy_var_4 ->
+ case happyOut80 happy_x_6 of { happy_var_6 ->
+ happyIn22
+ (listCatDef happy_var_3 (happy_var_1,happy_var_6) happy_var_4 0
+ ) `HappyStk` happyRest}}}}
+
+happyReduce_60 = happyReduce 9# 16# happyReduction_60
+happyReduction_60 (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 happyOut80 happy_x_1 of { happy_var_1 ->
+ case happyOutTok happy_x_3 of { ((T_Ident happy_var_3)) ->
+ case happyOut79 happy_x_4 of { happy_var_4 ->
+ case happyOutTok happy_x_7 of { ((T_Integer happy_var_7)) ->
+ case happyOut80 happy_x_9 of { happy_var_9 ->
+ happyIn22
+ (listCatDef happy_var_3 (happy_var_1,happy_var_9) happy_var_4 (fromIntegral happy_var_7)
+ ) `HappyStk` happyRest}}}}}
+
+happyReduce_61 = happyReduce 5# 17# 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 happyOut80 happy_x_1 of { happy_var_1 ->
+ case happyOut43 happy_x_2 of { happy_var_2 ->
+ case happyOut48 happy_x_4 of { happy_var_4 ->
+ case happyOut80 happy_x_5 of { happy_var_5 ->
+ happyIn23
+ ([(fun, (happy_var_1,happy_var_5), AbsFun (Just happy_var_4) Nothing) | fun <- happy_var_2]
+ ) `HappyStk` happyRest}}}}
+
+happyReduce_62 = happyReduce 5# 18# happyReduction_62
+happyReduction_62 (happy_x_5 `HappyStk`
+ happy_x_4 `HappyStk`
+ happy_x_3 `HappyStk`
+ happy_x_2 `HappyStk`
+ happy_x_1 `HappyStk`
+ happyRest)
+ = case happyOut80 happy_x_1 of { happy_var_1 ->
+ case happyOut45 happy_x_2 of { happy_var_2 ->
+ case happyOut48 happy_x_4 of { happy_var_4 ->
+ case happyOut80 happy_x_5 of { happy_var_5 ->
+ happyIn24
+ ([(f, (happy_var_1,happy_var_5),AbsFun Nothing (Just happy_var_4)) | f <- happy_var_2]
+ ) `HappyStk` happyRest}}}}
+
+happyReduce_63 = happyReduce 6# 18# happyReduction_63
+happyReduction_63 (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 happyOut80 happy_x_1 of { happy_var_1 ->
+ case happyOut44 happy_x_2 of { happy_var_2 ->
+ case happyOut65 happy_x_3 of { happy_var_3 ->
+ case happyOut48 happy_x_5 of { happy_var_5 ->
+ case happyOut80 happy_x_6 of { happy_var_6 ->
+ happyIn24
+ ([(happy_var_2,(happy_var_1,happy_var_6),AbsFun Nothing (Just (Eqs [(happy_var_3,happy_var_5)])))]
+ ) `HappyStk` happyRest}}}}}
+
+happyReduce_64 = happyReduce 5# 19# happyReduction_64
+happyReduction_64 (happy_x_5 `HappyStk`
+ happy_x_4 `HappyStk`
+ happy_x_3 `HappyStk`
+ happy_x_2 `HappyStk`
+ happy_x_1 `HappyStk`
+ happyRest)
+ = case happyOut80 happy_x_1 of { happy_var_1 ->
+ case happyOutTok happy_x_2 of { ((T_Ident happy_var_2)) ->
+ case happyOut31 happy_x_4 of { happy_var_4 ->
+ case happyOut80 happy_x_5 of { happy_var_5 ->
+ happyIn25
+ ((happy_var_2, (happy_var_1,happy_var_5), AbsCat Nothing (Just (map Cn happy_var_4))) :
+ [(fun, (happy_var_1,happy_var_5), AbsFun Nothing (Just EData)) | fun <- happy_var_4]
+ ) `HappyStk` happyRest}}}}
+
+happyReduce_65 = happyReduce 5# 19# happyReduction_65
+happyReduction_65 (happy_x_5 `HappyStk`
+ happy_x_4 `HappyStk`
+ happy_x_3 `HappyStk`
+ happy_x_2 `HappyStk`
+ happy_x_1 `HappyStk`
+ happyRest)
+ = case happyOut80 happy_x_1 of { happy_var_1 ->
+ case happyOut43 happy_x_2 of { happy_var_2 ->
+ case happyOut48 happy_x_4 of { happy_var_4 ->
+ case happyOut80 happy_x_5 of { happy_var_5 ->
+ happyIn25
+ ([(cat, (happy_var_1,happy_var_5), AbsCat Nothing (Just (map Cn happy_var_2))) | Ok (_,cat) <- [valCat happy_var_4]] ++
+ [(fun, (happy_var_1,happy_var_5), AbsFun (Just happy_var_4) (Just EData)) | fun <- happy_var_2]
+ ) `HappyStk` happyRest}}}}
+
+happyReduce_66 = happyReduce 5# 20# happyReduction_66
+happyReduction_66 (happy_x_5 `HappyStk`
+ happy_x_4 `HappyStk`
+ happy_x_3 `HappyStk`
+ happy_x_2 `HappyStk`
+ happy_x_1 `HappyStk`
+ happyRest)
+ = case happyOut80 happy_x_1 of { happy_var_1 ->
+ case happyOutTok happy_x_2 of { ((T_Ident happy_var_2)) ->
+ case happyOut42 happy_x_4 of { happy_var_4 ->
+ case happyOut80 happy_x_5 of { happy_var_5 ->
+ happyIn26
+ ((happy_var_2, (happy_var_1,happy_var_5), ResParam (Just (happy_var_4,Nothing))) :
+ [(f, (happy_var_1,happy_var_5), ResValue (Just (mkProdSimple co (Cn happy_var_2),Nothing))) | (f,co) <- happy_var_4]
+ ) `HappyStk` happyRest}}}}
+
+happyReduce_67 = happySpecReduce_3 20# happyReduction_67
+happyReduction_67 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOut80 happy_x_1 of { happy_var_1 ->
+ case happyOutTok happy_x_2 of { ((T_Ident happy_var_2)) ->
+ case happyOut80 happy_x_3 of { happy_var_3 ->
+ happyIn26
+ ([(happy_var_2, (happy_var_1,happy_var_3), ResParam Nothing)]
+ )}}}
+
+happyReduce_68 = happyReduce 5# 21# happyReduction_68
+happyReduction_68 (happy_x_5 `HappyStk`
+ happy_x_4 `HappyStk`
+ happy_x_3 `HappyStk`
+ happy_x_2 `HappyStk`
+ happy_x_1 `HappyStk`
+ happyRest)
+ = case happyOut80 happy_x_1 of { happy_var_1 ->
+ case happyOut45 happy_x_2 of { happy_var_2 ->
+ case happyOut48 happy_x_4 of { happy_var_4 ->
+ case happyOut80 happy_x_5 of { happy_var_5 ->
+ happyIn27
+ ([(i, (happy_var_1,happy_var_5), info) | i <- happy_var_2, info <- mkOverload (Just happy_var_4) Nothing ]
+ ) `HappyStk` happyRest}}}}
+
+happyReduce_69 = happyReduce 5# 21# happyReduction_69
+happyReduction_69 (happy_x_5 `HappyStk`
+ happy_x_4 `HappyStk`
+ happy_x_3 `HappyStk`
+ happy_x_2 `HappyStk`
+ happy_x_1 `HappyStk`
+ happyRest)
+ = case happyOut80 happy_x_1 of { happy_var_1 ->
+ case happyOut45 happy_x_2 of { happy_var_2 ->
+ case happyOut48 happy_x_4 of { happy_var_4 ->
+ case happyOut80 happy_x_5 of { happy_var_5 ->
+ happyIn27
+ ([(i, (happy_var_1,happy_var_5), info) | i <- happy_var_2, info <- mkOverload Nothing (Just happy_var_4)]
+ ) `HappyStk` happyRest}}}}
+
+happyReduce_70 = happyReduce 6# 21# happyReduction_70
+happyReduction_70 (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 happyOut80 happy_x_1 of { happy_var_1 ->
+ case happyOut44 happy_x_2 of { happy_var_2 ->
+ case happyOut66 happy_x_3 of { happy_var_3 ->
+ case happyOut48 happy_x_5 of { happy_var_5 ->
+ case happyOut80 happy_x_6 of { happy_var_6 ->
+ happyIn27
+ ([(i, (happy_var_1,happy_var_6), info) | i <- [happy_var_2], info <- mkOverload Nothing (Just (mkAbs happy_var_3 happy_var_5))]
+ ) `HappyStk` happyRest}}}}}
+
+happyReduce_71 = happyReduce 7# 21# happyReduction_71
+happyReduction_71 (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 happyOut80 happy_x_1 of { happy_var_1 ->
+ case happyOut45 happy_x_2 of { happy_var_2 ->
+ case happyOut48 happy_x_4 of { happy_var_4 ->
+ case happyOut48 happy_x_6 of { happy_var_6 ->
+ case happyOut80 happy_x_7 of { happy_var_7 ->
+ happyIn27
+ ([(i, (happy_var_1,happy_var_7), info) | i <- happy_var_2, info <- mkOverload (Just happy_var_4) (Just happy_var_6)]
+ ) `HappyStk` happyRest}}}}}
+
+happyReduce_72 = happyReduce 5# 22# happyReduction_72
+happyReduction_72 (happy_x_5 `HappyStk`
+ happy_x_4 `HappyStk`
+ happy_x_3 `HappyStk`
+ happy_x_2 `HappyStk`
+ happy_x_1 `HappyStk`
+ happyRest)
+ = case happyOut80 happy_x_1 of { happy_var_1 ->
+ case happyOut45 happy_x_2 of { happy_var_2 ->
+ case happyOut48 happy_x_4 of { happy_var_4 ->
+ case happyOut80 happy_x_5 of { happy_var_5 ->
+ happyIn28
+ ([(f, (happy_var_1,happy_var_5), CncFun Nothing (Just happy_var_4) Nothing) | f <- happy_var_2]
+ ) `HappyStk` happyRest}}}}
+
+happyReduce_73 = happyReduce 6# 22# happyReduction_73
+happyReduction_73 (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 happyOut80 happy_x_1 of { happy_var_1 ->
+ case happyOut44 happy_x_2 of { happy_var_2 ->
+ case happyOut66 happy_x_3 of { happy_var_3 ->
+ case happyOut48 happy_x_5 of { happy_var_5 ->
+ case happyOut80 happy_x_6 of { happy_var_6 ->
+ happyIn28
+ ([(happy_var_2, (happy_var_1,happy_var_6), CncFun Nothing (Just (mkAbs happy_var_3 happy_var_5)) Nothing)]
+ ) `HappyStk` happyRest}}}}}
+
+happyReduce_74 = happyReduce 5# 23# 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 happyOut80 happy_x_1 of { happy_var_1 ->
+ case happyOut45 happy_x_2 of { happy_var_2 ->
+ case happyOut48 happy_x_4 of { happy_var_4 ->
+ case happyOut80 happy_x_5 of { happy_var_5 ->
+ happyIn29
+ ([(i,(happy_var_1,happy_var_5),happy_var_4) | i <- happy_var_2]
+ ) `HappyStk` happyRest}}}}
+
+happyReduce_75 = happyMonadReduce 5# 24# happyReduction_75
+happyReduction_75 (happy_x_5 `HappyStk`
+ happy_x_4 `HappyStk`
+ happy_x_3 `HappyStk`
+ happy_x_2 `HappyStk`
+ happy_x_1 `HappyStk`
+ happyRest) tk
+ = happyThen (case happyOut80 happy_x_1 of { happy_var_1 ->
+ case happyOutTok happy_x_2 of { ((T_Ident happy_var_2)) ->
+ case happyOutTok happy_x_4 of { ((T_Ident happy_var_4)) ->
+ ( case parseModuleOptions ["--" ++ prIdent happy_var_2 ++ "=" ++ prIdent happy_var_4] of
+ Ok x -> return x
+ Bad msg -> failLoc happy_var_1 msg)}}}
+ ) (\r -> happyReturn (happyIn30 r))
+
+happyReduce_76 = happySpecReduce_1 25# happyReduction_76
+happyReduction_76 happy_x_1
+ = case happyOutTok happy_x_1 of { ((T_Ident happy_var_1)) ->
+ happyIn31
+ ([happy_var_1]
+ )}
+
+happyReduce_77 = happySpecReduce_3 25# happyReduction_77
+happyReduction_77 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOutTok happy_x_1 of { ((T_Ident happy_var_1)) ->
+ case happyOut31 happy_x_3 of { happy_var_3 ->
+ happyIn31
+ (happy_var_1 : happy_var_3
+ )}}
+
+happyReduce_78 = happySpecReduce_2 26# happyReduction_78
+happyReduction_78 happy_x_2
+ happy_x_1
+ = case happyOutTok happy_x_1 of { ((T_Ident happy_var_1)) ->
+ case happyOut79 happy_x_2 of { happy_var_2 ->
+ happyIn32
+ ((happy_var_1,happy_var_2)
+ )}}
+
+happyReduce_79 = happySpecReduce_2 27# happyReduction_79
+happyReduction_79 happy_x_2
+ happy_x_1
+ = case happyOut28 happy_x_1 of { happy_var_1 ->
+ happyIn33
+ (happy_var_1
+ )}
+
+happyReduce_80 = happySpecReduce_3 27# happyReduction_80
+happyReduction_80 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOut28 happy_x_1 of { happy_var_1 ->
+ case happyOut33 happy_x_3 of { happy_var_3 ->
+ happyIn33
+ (happy_var_1 ++ happy_var_3
+ )}}
+
+happyReduce_81 = happySpecReduce_2 28# happyReduction_81
+happyReduction_81 happy_x_2
+ happy_x_1
+ = case happyOut24 happy_x_1 of { happy_var_1 ->
+ happyIn34
+ (happy_var_1
+ )}
+
+happyReduce_82 = happySpecReduce_3 28# happyReduction_82
+happyReduction_82 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOut24 happy_x_1 of { happy_var_1 ->
+ case happyOut34 happy_x_3 of { happy_var_3 ->
+ happyIn34
+ (happy_var_1 ++ happy_var_3
+ )}}
+
+happyReduce_83 = happySpecReduce_2 29# happyReduction_83
+happyReduction_83 happy_x_2
+ happy_x_1
+ = case happyOut27 happy_x_1 of { happy_var_1 ->
+ happyIn35
+ (happy_var_1
+ )}
+
+happyReduce_84 = happySpecReduce_3 29# happyReduction_84
+happyReduction_84 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOut27 happy_x_1 of { happy_var_1 ->
+ case happyOut35 happy_x_3 of { happy_var_3 ->
+ happyIn35
+ (happy_var_1 ++ happy_var_3
+ )}}
+
+happyReduce_85 = happySpecReduce_2 30# happyReduction_85
+happyReduction_85 happy_x_2
+ happy_x_1
+ = case happyOut22 happy_x_1 of { happy_var_1 ->
+ happyIn36
+ (happy_var_1
+ )}
+
+happyReduce_86 = happySpecReduce_3 30# happyReduction_86
+happyReduction_86 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOut22 happy_x_1 of { happy_var_1 ->
+ case happyOut36 happy_x_3 of { happy_var_3 ->
+ happyIn36
+ (happy_var_1 ++ happy_var_3
+ )}}
+
+happyReduce_87 = happySpecReduce_2 31# happyReduction_87
+happyReduction_87 happy_x_2
+ happy_x_1
+ = case happyOut23 happy_x_1 of { happy_var_1 ->
+ happyIn37
+ (happy_var_1
+ )}
+
+happyReduce_88 = happySpecReduce_3 31# happyReduction_88
+happyReduction_88 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOut23 happy_x_1 of { happy_var_1 ->
+ case happyOut37 happy_x_3 of { happy_var_3 ->
+ happyIn37
+ (happy_var_1 ++ happy_var_3
+ )}}
+
+happyReduce_89 = happySpecReduce_2 32# happyReduction_89
+happyReduction_89 happy_x_2
+ happy_x_1
+ = case happyOut25 happy_x_1 of { happy_var_1 ->
+ happyIn38
+ (happy_var_1
+ )}
+
+happyReduce_90 = happySpecReduce_3 32# happyReduction_90
+happyReduction_90 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOut25 happy_x_1 of { happy_var_1 ->
+ case happyOut38 happy_x_3 of { happy_var_3 ->
+ happyIn38
+ (happy_var_1 ++ happy_var_3
+ )}}
+
+happyReduce_91 = happySpecReduce_2 33# happyReduction_91
+happyReduction_91 happy_x_2
+ happy_x_1
+ = case happyOut26 happy_x_1 of { happy_var_1 ->
+ happyIn39
+ (happy_var_1
+ )}
+
+happyReduce_92 = happySpecReduce_3 33# happyReduction_92
+happyReduction_92 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOut26 happy_x_1 of { happy_var_1 ->
+ case happyOut39 happy_x_3 of { happy_var_3 ->
+ happyIn39
+ (happy_var_1 ++ happy_var_3
+ )}}
+
+happyReduce_93 = happySpecReduce_2 34# happyReduction_93
+happyReduction_93 happy_x_2
+ happy_x_1
+ = case happyOut29 happy_x_1 of { happy_var_1 ->
+ happyIn40
+ (happy_var_1
+ )}
+
+happyReduce_94 = happySpecReduce_3 34# happyReduction_94
+happyReduction_94 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOut29 happy_x_1 of { happy_var_1 ->
+ case happyOut40 happy_x_3 of { happy_var_3 ->
+ happyIn40
+ (happy_var_1 ++ happy_var_3
+ )}}
+
+happyReduce_95 = happySpecReduce_2 35# happyReduction_95
+happyReduction_95 happy_x_2
+ happy_x_1
+ = case happyOut30 happy_x_1 of { happy_var_1 ->
+ happyIn41
+ (happy_var_1
+ )}
+
+happyReduce_96 = happySpecReduce_3 35# happyReduction_96
+happyReduction_96 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOut30 happy_x_1 of { happy_var_1 ->
+ case happyOut41 happy_x_3 of { happy_var_3 ->
+ happyIn41
+ (addOptions happy_var_1 happy_var_3
+ )}}
+
+happyReduce_97 = happySpecReduce_1 36# happyReduction_97
+happyReduction_97 happy_x_1
+ = case happyOut32 happy_x_1 of { happy_var_1 ->
+ happyIn42
+ ([happy_var_1]
+ )}
+
+happyReduce_98 = happySpecReduce_3 36# happyReduction_98
+happyReduction_98 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_99 = happySpecReduce_1 37# happyReduction_99
+happyReduction_99 happy_x_1
+ = case happyOutTok happy_x_1 of { ((T_Ident happy_var_1)) ->
+ happyIn43
+ ([happy_var_1]
+ )}
+
+happyReduce_100 = happySpecReduce_3 37# happyReduction_100
+happyReduction_100 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOutTok happy_x_1 of { ((T_Ident happy_var_1)) ->
+ case happyOut43 happy_x_3 of { happy_var_3 ->
+ happyIn43
+ (happy_var_1 : happy_var_3
+ )}}
+
+happyReduce_101 = happySpecReduce_1 38# happyReduction_101
+happyReduction_101 happy_x_1
+ = case happyOutTok happy_x_1 of { ((T_Ident happy_var_1)) ->
+ happyIn44
+ (happy_var_1
+ )}
+
+happyReduce_102 = happySpecReduce_3 38# happyReduction_102
+happyReduction_102 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOutTok happy_x_2 of { ((T_Ident happy_var_2)) ->
+ happyIn44
+ (mkListId happy_var_2
+ )}
+
+happyReduce_103 = happySpecReduce_1 39# happyReduction_103
+happyReduction_103 happy_x_1
+ = case happyOut44 happy_x_1 of { happy_var_1 ->
+ happyIn45
+ ([happy_var_1]
+ )}
+
+happyReduce_104 = happySpecReduce_3 39# happyReduction_104
+happyReduction_104 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOut44 happy_x_1 of { happy_var_1 ->
+ case happyOut45 happy_x_3 of { happy_var_3 ->
+ happyIn45
+ (happy_var_1 : happy_var_3
+ )}}
+
+happyReduce_105 = happySpecReduce_3 40# happyReduction_105
+happyReduction_105 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOut43 happy_x_1 of { happy_var_1 ->
+ case happyOut48 happy_x_3 of { happy_var_3 ->
+ happyIn46
+ ([(lab,Just happy_var_3,Nothing) | lab <- happy_var_1]
+ )}}
+
+happyReduce_106 = happySpecReduce_3 40# happyReduction_106
+happyReduction_106 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOut43 happy_x_1 of { happy_var_1 ->
+ case happyOut48 happy_x_3 of { happy_var_3 ->
+ happyIn46
+ ([(lab,Nothing,Just happy_var_3) | lab <- happy_var_1]
+ )}}
+
+happyReduce_107 = happyReduce 5# 40# happyReduction_107
+happyReduction_107 (happy_x_5 `HappyStk`
+ happy_x_4 `HappyStk`
+ happy_x_3 `HappyStk`
+ happy_x_2 `HappyStk`
+ happy_x_1 `HappyStk`
+ happyRest)
+ = case happyOut43 happy_x_1 of { happy_var_1 ->
+ case happyOut48 happy_x_3 of { happy_var_3 ->
+ case happyOut48 happy_x_5 of { happy_var_5 ->
+ happyIn46
+ ([(lab,Just happy_var_3,Just happy_var_5) | lab <- happy_var_1]
+ ) `HappyStk` happyRest}}}
+
+happyReduce_108 = happySpecReduce_0 41# happyReduction_108
+happyReduction_108 = happyIn47
+ ([]
+ )
+
+happyReduce_109 = happySpecReduce_1 41# happyReduction_109
+happyReduction_109 happy_x_1
+ = case happyOut46 happy_x_1 of { happy_var_1 ->
+ happyIn47
+ (happy_var_1
+ )}
+
+happyReduce_110 = happySpecReduce_3 41# happyReduction_110
+happyReduction_110 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOut46 happy_x_1 of { happy_var_1 ->
+ case happyOut47 happy_x_3 of { happy_var_3 ->
+ happyIn47
+ (happy_var_1 ++ happy_var_3
+ )}}
+
+happyReduce_111 = happySpecReduce_3 42# happyReduction_111
+happyReduction_111 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOut49 happy_x_1 of { happy_var_1 ->
+ case happyOut48 happy_x_3 of { happy_var_3 ->
+ happyIn48
+ (FV [happy_var_1,happy_var_3]
+ )}}
+
+happyReduce_112 = happyReduce 4# 42# happyReduction_112
+happyReduction_112 (happy_x_4 `HappyStk`
+ happy_x_3 `HappyStk`
+ happy_x_2 `HappyStk`
+ happy_x_1 `HappyStk`
+ happyRest)
+ = case happyOut68 happy_x_2 of { happy_var_2 ->
+ case happyOut48 happy_x_4 of { happy_var_4 ->
+ happyIn48
+ (mkAbs happy_var_2 happy_var_4
+ ) `HappyStk` happyRest}}
+
+happyReduce_113 = happyReduce 4# 42# happyReduction_113
+happyReduction_113 (happy_x_4 `HappyStk`
+ happy_x_3 `HappyStk`
+ happy_x_2 `HappyStk`
+ happy_x_1 `HappyStk`
+ happyRest)
+ = case happyOut68 happy_x_2 of { happy_var_2 ->
+ case happyOut48 happy_x_4 of { happy_var_4 ->
+ happyIn48
+ (mkCTable happy_var_2 happy_var_4
+ ) `HappyStk` happyRest}}
+
+happyReduce_114 = happySpecReduce_3 42# happyReduction_114
+happyReduction_114 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOut69 happy_x_1 of { happy_var_1 ->
+ case happyOut48 happy_x_3 of { happy_var_3 ->
+ happyIn48
+ (mkProdSimple happy_var_1 happy_var_3
+ )}}
+
+happyReduce_115 = happySpecReduce_3 42# happyReduction_115
+happyReduction_115 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOut51 happy_x_1 of { happy_var_1 ->
+ case happyOut48 happy_x_3 of { happy_var_3 ->
+ happyIn48
+ (Table happy_var_1 happy_var_3
+ )}}
+
+happyReduce_116 = happyMonadReduce 6# 42# happyReduction_116
+happyReduction_116 (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) tk
+ = happyThen (case happyOut47 happy_x_3 of { happy_var_3 ->
+ case happyOut48 happy_x_6 of { happy_var_6 ->
+ (
+ do defs <- mapM tryLoc happy_var_3
+ return $ mkLet defs happy_var_6)}}
+ ) (\r -> happyReturn (happyIn48 r))
+
+happyReduce_117 = happyMonadReduce 4# 42# happyReduction_117
+happyReduction_117 (happy_x_4 `HappyStk`
+ happy_x_3 `HappyStk`
+ happy_x_2 `HappyStk`
+ happy_x_1 `HappyStk`
+ happyRest) tk
+ = happyThen (case happyOut47 happy_x_2 of { happy_var_2 ->
+ case happyOut48 happy_x_4 of { happy_var_4 ->
+ (
+ do defs <- mapM tryLoc happy_var_2
+ return $ mkLet defs happy_var_4)}}
+ ) (\r -> happyReturn (happyIn48 r))
+
+happyReduce_118 = happyMonadReduce 5# 42# happyReduction_118
+happyReduction_118 (happy_x_5 `HappyStk`
+ happy_x_4 `HappyStk`
+ happy_x_3 `HappyStk`
+ happy_x_2 `HappyStk`
+ happy_x_1 `HappyStk`
+ happyRest) tk
+ = happyThen (case happyOut51 happy_x_1 of { happy_var_1 ->
+ case happyOut47 happy_x_4 of { happy_var_4 ->
+ (
+ do defs <- mapM tryLoc happy_var_4
+ return $ mkLet defs happy_var_1)}}
+ ) (\r -> happyReturn (happyIn48 r))
+
+happyReduce_119 = happyReduce 4# 42# happyReduction_119
+happyReduction_119 (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 ->
+ happyIn48
+ (Eqs happy_var_3
+ ) `HappyStk` happyRest}
+
+happyReduce_120 = happySpecReduce_3 42# happyReduction_120
+happyReduction_120 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOut53 happy_x_2 of { happy_var_2 ->
+ case happyOutTok happy_x_3 of { ((T_String happy_var_3)) ->
+ happyIn48
+ (Example happy_var_2 happy_var_3
+ )}}
+
+happyReduce_121 = happySpecReduce_1 42# happyReduction_121
+happyReduction_121 happy_x_1
+ = case happyOut49 happy_x_1 of { happy_var_1 ->
+ happyIn48
+ (happy_var_1
+ )}
+
+happyReduce_122 = happySpecReduce_3 43# happyReduction_122
+happyReduction_122 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOut50 happy_x_1 of { happy_var_1 ->
+ case happyOut49 happy_x_3 of { happy_var_3 ->
+ happyIn49
+ (C happy_var_1 happy_var_3
+ )}}
+
+happyReduce_123 = happySpecReduce_1 43# happyReduction_123
+happyReduction_123 happy_x_1
+ = case happyOut50 happy_x_1 of { happy_var_1 ->
+ happyIn49
+ (happy_var_1
+ )}
+
+happyReduce_124 = happySpecReduce_3 44# happyReduction_124
+happyReduction_124 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOut51 happy_x_1 of { happy_var_1 ->
+ case happyOut50 happy_x_3 of { happy_var_3 ->
+ happyIn50
+ (Glue happy_var_1 happy_var_3
+ )}}
+
+happyReduce_125 = happySpecReduce_1 44# happyReduction_125
+happyReduction_125 happy_x_1
+ = case happyOut51 happy_x_1 of { happy_var_1 ->
+ happyIn50
+ (happy_var_1
+ )}
+
+happyReduce_126 = happySpecReduce_3 45# happyReduction_126
+happyReduction_126 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOut51 happy_x_1 of { happy_var_1 ->
+ case happyOut52 happy_x_3 of { happy_var_3 ->
+ happyIn51
+ (S happy_var_1 happy_var_3
+ )}}
+
+happyReduce_127 = happyReduce 4# 45# happyReduction_127
+happyReduction_127 (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 ->
+ happyIn51
+ (T TRaw happy_var_3
+ ) `HappyStk` happyRest}
+
+happyReduce_128 = happyReduce 5# 45# happyReduction_128
+happyReduction_128 (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_4 of { happy_var_4 ->
+ happyIn51
+ (T (TTyped happy_var_2) happy_var_4
+ ) `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 happyOut54 happy_x_2 of { happy_var_2 ->
+ case happyOut55 happy_x_4 of { happy_var_4 ->
+ happyIn51
+ (V happy_var_2 happy_var_4
+ ) `HappyStk` happyRest}}
+
+happyReduce_130 = happySpecReduce_3 45# happyReduction_130
+happyReduction_130 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOut51 happy_x_1 of { happy_var_1 ->
+ case happyOut52 happy_x_3 of { happy_var_3 ->
+ happyIn51
+ (case happy_var_1 of
+ RecType xs -> RecType (xs ++ [(tupleLabel (length xs+1),happy_var_3)])
+ t -> RecType [(tupleLabel 1,happy_var_1), (tupleLabel 2,happy_var_3)]
+ )}}
+
+happyReduce_131 = happySpecReduce_3 45# happyReduction_131
+happyReduction_131 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOut51 happy_x_1 of { happy_var_1 ->
+ case happyOut52 happy_x_3 of { happy_var_3 ->
+ happyIn51
+ (ExtR happy_var_1 happy_var_3
+ )}}
+
+happyReduce_132 = happySpecReduce_1 45# happyReduction_132
+happyReduction_132 happy_x_1
+ = case happyOut52 happy_x_1 of { happy_var_1 ->
+ happyIn51
+ (happy_var_1
+ )}
+
+happyReduce_133 = happySpecReduce_2 46# happyReduction_133
+happyReduction_133 happy_x_2
+ happy_x_1
+ = case happyOut52 happy_x_1 of { happy_var_1 ->
+ case happyOut53 happy_x_2 of { happy_var_2 ->
+ happyIn52
+ (App happy_var_1 happy_var_2
+ )}}
+
+happyReduce_134 = happyReduce 6# 46# happyReduction_134
+happyReduction_134 (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 happyOut48 happy_x_2 of { happy_var_2 ->
+ case happyOut73 happy_x_5 of { happy_var_5 ->
+ happyIn52
+ (let annot = case happy_var_2 of
+ Typed _ t -> TTyped t
+ _ -> TRaw
+ in S (T annot happy_var_5) happy_var_2
+ ) `HappyStk` happyRest}}
+
+happyReduce_135 = happyReduce 4# 46# happyReduction_135
+happyReduction_135 (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
+ (FV happy_var_3
+ ) `HappyStk` happyRest}
+
+happyReduce_136 = happyReduce 6# 46# happyReduction_136
+happyReduction_136 (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 happyOut48 happy_x_3 of { happy_var_3 ->
+ case happyOut77 happy_x_5 of { happy_var_5 ->
+ happyIn52
+ (Alts (happy_var_3, happy_var_5)
+ ) `HappyStk` happyRest}}
+
+happyReduce_137 = happyReduce 4# 46# happyReduction_137
+happyReduction_137 (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
+ (Strs happy_var_3
+ ) `HappyStk` happyRest}
+
+happyReduce_138 = happySpecReduce_2 46# happyReduction_138
+happyReduction_138 happy_x_2
+ happy_x_1
+ = case happyOut59 happy_x_2 of { happy_var_2 ->
+ happyIn52
+ (EPatt happy_var_2
+ )}
+
+happyReduce_139 = happySpecReduce_2 46# happyReduction_139
+happyReduction_139 happy_x_2
+ happy_x_1
+ = case happyOut53 happy_x_2 of { happy_var_2 ->
+ happyIn52
+ (EPattType happy_var_2
+ )}
+
+happyReduce_140 = happySpecReduce_1 46# happyReduction_140
+happyReduction_140 happy_x_1
+ = case happyOut53 happy_x_1 of { happy_var_1 ->
+ happyIn52
+ (happy_var_1
+ )}
+
+happyReduce_141 = happySpecReduce_3 47# happyReduction_141
+happyReduction_141 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOut53 happy_x_1 of { happy_var_1 ->
+ case happyOut62 happy_x_3 of { happy_var_3 ->
+ happyIn53
+ (P happy_var_1 happy_var_3
+ )}}
+
+happyReduce_142 = happySpecReduce_1 47# happyReduction_142
+happyReduction_142 happy_x_1
+ = case happyOut54 happy_x_1 of { happy_var_1 ->
+ happyIn53
+ (happy_var_1
+ )}
+
+happyReduce_143 = happySpecReduce_1 48# happyReduction_143
+happyReduction_143 happy_x_1
+ = case happyOutTok happy_x_1 of { ((T_Ident happy_var_1)) ->
+ happyIn54
+ (Vr happy_var_1
+ )}
+
+happyReduce_144 = happySpecReduce_1 48# happyReduction_144
+happyReduction_144 happy_x_1
+ = case happyOut63 happy_x_1 of { happy_var_1 ->
+ happyIn54
+ (Sort happy_var_1
+ )}
+
+happyReduce_145 = happySpecReduce_1 48# happyReduction_145
+happyReduction_145 happy_x_1
+ = case happyOutTok happy_x_1 of { ((T_String happy_var_1)) ->
+ happyIn54
+ (K happy_var_1
+ )}
+
+happyReduce_146 = happySpecReduce_1 48# happyReduction_146
+happyReduction_146 happy_x_1
+ = case happyOutTok happy_x_1 of { ((T_Integer happy_var_1)) ->
+ happyIn54
+ (EInt happy_var_1
+ )}
+
+happyReduce_147 = happySpecReduce_1 48# happyReduction_147
+happyReduction_147 happy_x_1
+ = case happyOutTok happy_x_1 of { ((T_Double happy_var_1)) ->
+ happyIn54
+ (EFloat happy_var_1
+ )}
+
+happyReduce_148 = happySpecReduce_1 48# happyReduction_148
+happyReduction_148 happy_x_1
+ = happyIn54
+ (Meta (int2meta 0)
+ )
+
+happyReduce_149 = happySpecReduce_2 48# happyReduction_149
+happyReduction_149 happy_x_2
+ happy_x_1
+ = happyIn54
+ (Empty
+ )
+
+happyReduce_150 = happySpecReduce_1 48# happyReduction_150
+happyReduction_150 happy_x_1
+ = happyIn54
+ (EData
+ )
+
+happyReduce_151 = happyReduce 4# 48# happyReduction_151
+happyReduction_151 (happy_x_4 `HappyStk`
+ happy_x_3 `HappyStk`
+ happy_x_2 `HappyStk`
+ happy_x_1 `HappyStk`
+ happyRest)
+ = case happyOutTok happy_x_2 of { ((T_Ident happy_var_2)) ->
+ case happyOut56 happy_x_3 of { happy_var_3 ->
+ happyIn54
+ (foldl App (Vr (mkListId happy_var_2)) happy_var_3
+ ) `HappyStk` happyRest}}
+
+happyReduce_152 = happySpecReduce_3 48# happyReduction_152
+happyReduction_152 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOutTok happy_x_2 of { ((T_String happy_var_2)) ->
+ happyIn54
+ (case happy_var_2 of
+ [] -> Empty
+ str -> foldr1 C (map K (words str))
+ )}
+
+happyReduce_153 = happyMonadReduce 3# 48# happyReduction_153
+happyReduction_153 (happy_x_3 `HappyStk`
+ happy_x_2 `HappyStk`
+ happy_x_1 `HappyStk`
+ happyRest) tk
+ = happyThen (case happyOut47 happy_x_2 of { happy_var_2 ->
+ ( mkR happy_var_2)}
+ ) (\r -> happyReturn (happyIn54 r))
+
+happyReduce_154 = happySpecReduce_3 48# happyReduction_154
+happyReduction_154 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOut70 happy_x_2 of { happy_var_2 ->
+ happyIn54
+ (R (tuple2record happy_var_2)
+ )}
+
+happyReduce_155 = happyReduce 5# 48# happyReduction_155
+happyReduction_155 (happy_x_5 `HappyStk`
+ happy_x_4 `HappyStk`
+ happy_x_3 `HappyStk`
+ happy_x_2 `HappyStk`
+ happy_x_1 `HappyStk`
+ happyRest)
+ = case happyOut48 happy_x_2 of { happy_var_2 ->
+ case happyOut48 happy_x_4 of { happy_var_4 ->
+ happyIn54
+ (Typed happy_var_2 happy_var_4
+ ) `HappyStk` happyRest}}
+
+happyReduce_156 = happySpecReduce_1 48# happyReduction_156
+happyReduction_156 happy_x_1
+ = case happyOutTok happy_x_1 of { ((T_LString happy_var_1)) ->
+ happyIn54
+ (K happy_var_1
+ )}
+
+happyReduce_157 = happySpecReduce_3 48# happyReduction_157
+happyReduction_157 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOut48 happy_x_2 of { happy_var_2 ->
+ happyIn54
+ (happy_var_2
+ )}
+
+happyReduce_158 = happySpecReduce_0 49# happyReduction_158
+happyReduction_158 = happyIn55
+ ([]
+ )
+
+happyReduce_159 = happySpecReduce_1 49# happyReduction_159
+happyReduction_159 happy_x_1
+ = case happyOut48 happy_x_1 of { happy_var_1 ->
+ happyIn55
+ ([happy_var_1]
+ )}
+
+happyReduce_160 = happySpecReduce_3 49# happyReduction_160
+happyReduction_160 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOut48 happy_x_1 of { happy_var_1 ->
+ case happyOut55 happy_x_3 of { happy_var_3 ->
+ happyIn55
+ (happy_var_1 : happy_var_3
+ )}}
+
+happyReduce_161 = happySpecReduce_0 50# happyReduction_161
+happyReduction_161 = happyIn56
+ ([]
+ )
+
+happyReduce_162 = happySpecReduce_2 50# happyReduction_162
+happyReduction_162 happy_x_2
+ happy_x_1
+ = case happyOut54 happy_x_1 of { happy_var_1 ->
+ case happyOut56 happy_x_2 of { happy_var_2 ->
+ happyIn56
+ (happy_var_1 : happy_var_2
+ )}}
+
+happyReduce_163 = happySpecReduce_3 51# happyReduction_163
+happyReduction_163 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOut57 happy_x_1 of { happy_var_1 ->
+ case happyOut58 happy_x_3 of { happy_var_3 ->
+ happyIn57
+ (PAlt happy_var_1 happy_var_3
+ )}}
+
+happyReduce_164 = happySpecReduce_3 51# happyReduction_164
+happyReduction_164 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOut57 happy_x_1 of { happy_var_1 ->
+ case happyOut58 happy_x_3 of { happy_var_3 ->
+ happyIn57
+ (PSeq happy_var_1 happy_var_3
+ )}}
+
+happyReduce_165 = happySpecReduce_1 51# happyReduction_165
+happyReduction_165 happy_x_1
+ = case happyOut58 happy_x_1 of { happy_var_1 ->
+ happyIn57
+ (happy_var_1
+ )}
+
+happyReduce_166 = happySpecReduce_2 52# happyReduction_166
+happyReduction_166 happy_x_2
+ happy_x_1
+ = case happyOutTok happy_x_1 of { ((T_Ident happy_var_1)) ->
+ case happyOut65 happy_x_2 of { happy_var_2 ->
+ happyIn58
+ (PC happy_var_1 happy_var_2
+ )}}
+
+happyReduce_167 = happyReduce 4# 52# happyReduction_167
+happyReduction_167 (happy_x_4 `HappyStk`
+ happy_x_3 `HappyStk`
+ happy_x_2 `HappyStk`
+ happy_x_1 `HappyStk`
+ happyRest)
+ = case happyOutTok happy_x_1 of { ((T_Ident happy_var_1)) ->
+ case happyOutTok happy_x_3 of { ((T_Ident happy_var_3)) ->
+ case happyOut65 happy_x_4 of { happy_var_4 ->
+ happyIn58
+ (PP happy_var_1 happy_var_3 happy_var_4
+ ) `HappyStk` happyRest}}}
+
+happyReduce_168 = happySpecReduce_2 52# happyReduction_168
+happyReduction_168 happy_x_2
+ happy_x_1
+ = case happyOut59 happy_x_1 of { happy_var_1 ->
+ happyIn58
+ (PRep happy_var_1
+ )}
+
+happyReduce_169 = happySpecReduce_3 52# happyReduction_169
+happyReduction_169 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOutTok happy_x_1 of { ((T_Ident happy_var_1)) ->
+ case happyOut59 happy_x_3 of { happy_var_3 ->
+ happyIn58
+ (PAs happy_var_1 happy_var_3
+ )}}
+
+happyReduce_170 = happySpecReduce_2 52# happyReduction_170
+happyReduction_170 happy_x_2
+ happy_x_1
+ = case happyOut59 happy_x_2 of { happy_var_2 ->
+ happyIn58
+ (PNeg happy_var_2
+ )}
+
+happyReduce_171 = happySpecReduce_1 52# happyReduction_171
+happyReduction_171 happy_x_1
+ = case happyOut59 happy_x_1 of { happy_var_1 ->
+ happyIn58
+ (happy_var_1
+ )}
+
+happyReduce_172 = happySpecReduce_1 53# happyReduction_172
+happyReduction_172 happy_x_1
+ = happyIn59
+ (PChar
+ )
+
+happyReduce_173 = happySpecReduce_3 53# happyReduction_173
+happyReduction_173 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOutTok happy_x_2 of { ((T_String happy_var_2)) ->
+ happyIn59
+ (PChars happy_var_2
+ )}
+
+happyReduce_174 = happySpecReduce_2 53# happyReduction_174
+happyReduction_174 happy_x_2
+ happy_x_1
+ = case happyOutTok happy_x_2 of { ((T_Ident happy_var_2)) ->
+ happyIn59
+ (PMacro happy_var_2
+ )}
+
+happyReduce_175 = happyReduce 4# 53# happyReduction_175
+happyReduction_175 (happy_x_4 `HappyStk`
+ happy_x_3 `HappyStk`
+ happy_x_2 `HappyStk`
+ happy_x_1 `HappyStk`
+ happyRest)
+ = case happyOutTok happy_x_2 of { ((T_Ident happy_var_2)) ->
+ case happyOutTok happy_x_4 of { ((T_Ident happy_var_4)) ->
+ happyIn59
+ (PM happy_var_2 happy_var_4
+ ) `HappyStk` happyRest}}
+
+happyReduce_176 = happySpecReduce_1 53# happyReduction_176
+happyReduction_176 happy_x_1
+ = happyIn59
+ (wildPatt
+ )
+
+happyReduce_177 = happySpecReduce_1 53# happyReduction_177
+happyReduction_177 happy_x_1
+ = case happyOutTok happy_x_1 of { ((T_Ident happy_var_1)) ->
+ happyIn59
+ (PV happy_var_1
+ )}
+
+happyReduce_178 = happySpecReduce_3 53# happyReduction_178
+happyReduction_178 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOutTok happy_x_2 of { ((T_Ident happy_var_2)) ->
+ happyIn59
+ (PC happy_var_2 []
+ )}
+
+happyReduce_179 = happySpecReduce_3 53# happyReduction_179
+happyReduction_179 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOutTok happy_x_1 of { ((T_Ident happy_var_1)) ->
+ case happyOutTok happy_x_3 of { ((T_Ident happy_var_3)) ->
+ happyIn59
+ (PP happy_var_1 happy_var_3 []
+ )}}
+
+happyReduce_180 = happySpecReduce_1 53# happyReduction_180
+happyReduction_180 happy_x_1
+ = case happyOutTok happy_x_1 of { ((T_Integer happy_var_1)) ->
+ happyIn59
+ (PInt happy_var_1
+ )}
+
+happyReduce_181 = happySpecReduce_1 53# happyReduction_181
+happyReduction_181 happy_x_1
+ = case happyOutTok happy_x_1 of { ((T_Double happy_var_1)) ->
+ happyIn59
+ (PFloat happy_var_1
+ )}
+
+happyReduce_182 = happySpecReduce_1 53# happyReduction_182
+happyReduction_182 happy_x_1
+ = case happyOutTok happy_x_1 of { ((T_String happy_var_1)) ->
+ happyIn59
+ (PString happy_var_1
+ )}
+
+happyReduce_183 = happySpecReduce_3 53# happyReduction_183
+happyReduction_183 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOut64 happy_x_2 of { happy_var_2 ->
+ happyIn59
+ (PR happy_var_2
+ )}
+
+happyReduce_184 = happySpecReduce_3 53# happyReduction_184
+happyReduction_184 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOut71 happy_x_2 of { happy_var_2 ->
+ happyIn59
+ ((PR . tuple2recordPatt) happy_var_2
+ )}
+
+happyReduce_185 = happySpecReduce_3 53# happyReduction_185
+happyReduction_185 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOut57 happy_x_2 of { happy_var_2 ->
+ happyIn59
+ (happy_var_2
+ )}
+
+happyReduce_186 = happySpecReduce_1 54# happyReduction_186
+happyReduction_186 happy_x_1
+ = happyIn60
+ (identW
+ )
+
+happyReduce_187 = happySpecReduce_1 54# happyReduction_187
+happyReduction_187 happy_x_1
+ = case happyOutTok happy_x_1 of { ((T_Ident happy_var_1)) ->
+ happyIn60
+ (happy_var_1
+ )}
+
+happyReduce_188 = happySpecReduce_3 55# happyReduction_188
+happyReduction_188 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOut43 happy_x_1 of { happy_var_1 ->
+ case happyOut57 happy_x_3 of { happy_var_3 ->
+ happyIn61
+ ([(LIdent (ident2bs i),happy_var_3) | i <- happy_var_1]
+ )}}
+
+happyReduce_189 = happySpecReduce_1 56# happyReduction_189
+happyReduction_189 happy_x_1
+ = case happyOutTok happy_x_1 of { ((T_Ident happy_var_1)) ->
+ happyIn62
+ (LIdent (ident2bs happy_var_1)
+ )}
+
+happyReduce_190 = happySpecReduce_2 56# happyReduction_190
+happyReduction_190 happy_x_2
+ happy_x_1
+ = case happyOutTok happy_x_2 of { ((T_Integer happy_var_2)) ->
+ happyIn62
+ (LVar (fromIntegral happy_var_2)
+ )}
+
+happyReduce_191 = happySpecReduce_1 57# happyReduction_191
+happyReduction_191 happy_x_1
+ = happyIn63
+ (cType
+ )
+
+happyReduce_192 = happySpecReduce_1 57# happyReduction_192
+happyReduction_192 happy_x_1
+ = happyIn63
+ (cPType
+ )
+
+happyReduce_193 = happySpecReduce_1 57# happyReduction_193
+happyReduction_193 happy_x_1
+ = happyIn63
+ (cTok
+ )
+
+happyReduce_194 = happySpecReduce_1 57# happyReduction_194
+happyReduction_194 happy_x_1
+ = happyIn63
+ (cStr
+ )
+
+happyReduce_195 = happySpecReduce_1 57# happyReduction_195
+happyReduction_195 happy_x_1
+ = happyIn63
+ (cStrs
+ )
+
+happyReduce_196 = happySpecReduce_0 58# happyReduction_196
+happyReduction_196 = happyIn64
+ ([]
+ )
+
+happyReduce_197 = happySpecReduce_1 58# happyReduction_197
+happyReduction_197 happy_x_1
+ = case happyOut61 happy_x_1 of { happy_var_1 ->
+ happyIn64
+ (happy_var_1
+ )}
+
+happyReduce_198 = happySpecReduce_3 58# happyReduction_198
+happyReduction_198 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOut61 happy_x_1 of { happy_var_1 ->
+ case happyOut64 happy_x_3 of { happy_var_3 ->
+ happyIn64
+ (happy_var_1 ++ happy_var_3
+ )}}
+
+happyReduce_199 = happySpecReduce_1 59# happyReduction_199
+happyReduction_199 happy_x_1
+ = case happyOut59 happy_x_1 of { happy_var_1 ->
+ happyIn65
+ ([happy_var_1]
+ )}
+
+happyReduce_200 = happySpecReduce_2 59# happyReduction_200
+happyReduction_200 happy_x_2
+ happy_x_1
+ = case happyOut59 happy_x_1 of { happy_var_1 ->
+ case happyOut65 happy_x_2 of { happy_var_2 ->
+ happyIn65
+ (happy_var_1 : happy_var_2
+ )}}
+
+happyReduce_201 = happySpecReduce_1 60# happyReduction_201
+happyReduction_201 happy_x_1
+ = case happyOut60 happy_x_1 of { happy_var_1 ->
+ happyIn66
+ ([happy_var_1]
+ )}
+
+happyReduce_202 = happySpecReduce_2 60# happyReduction_202
+happyReduction_202 happy_x_2
+ happy_x_1
+ = case happyOut60 happy_x_1 of { happy_var_1 ->
+ case happyOut66 happy_x_2 of { happy_var_2 ->
+ happyIn66
+ (happy_var_1 : happy_var_2
+ )}}
+
+happyReduce_203 = happySpecReduce_1 61# happyReduction_203
+happyReduction_203 happy_x_1
+ = case happyOutTok happy_x_1 of { ((T_Ident happy_var_1)) ->
+ happyIn67
+ (happy_var_1
+ )}
+
+happyReduce_204 = happySpecReduce_1 61# happyReduction_204
+happyReduction_204 happy_x_1
+ = happyIn67
+ (identW
+ )
+
+happyReduce_205 = happySpecReduce_1 62# happyReduction_205
+happyReduction_205 happy_x_1
+ = case happyOut67 happy_x_1 of { happy_var_1 ->
+ happyIn68
+ ([happy_var_1]
+ )}
+
+happyReduce_206 = happySpecReduce_3 62# happyReduction_206
+happyReduction_206 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOut67 happy_x_1 of { happy_var_1 ->
+ case happyOut68 happy_x_3 of { happy_var_3 ->
+ happyIn68
+ (happy_var_1 : happy_var_3
+ )}}
+
+happyReduce_207 = happyReduce 5# 63# happyReduction_207
+happyReduction_207 (happy_x_5 `HappyStk`
+ happy_x_4 `HappyStk`
+ happy_x_3 `HappyStk`
+ happy_x_2 `HappyStk`
+ happy_x_1 `HappyStk`
+ happyRest)
+ = case happyOut68 happy_x_2 of { happy_var_2 ->
+ case happyOut48 happy_x_4 of { happy_var_4 ->
+ happyIn69
+ ([(x,happy_var_4) | x <- happy_var_2]
+ ) `HappyStk` happyRest}}
+
+happyReduce_208 = happySpecReduce_1 63# happyReduction_208
+happyReduction_208 happy_x_1
+ = case happyOut52 happy_x_1 of { happy_var_1 ->
+ happyIn69
+ ([mkDecl happy_var_1]
+ )}
+
+happyReduce_209 = happySpecReduce_0 64# happyReduction_209
+happyReduction_209 = happyIn70
+ ([]
+ )
+
+happyReduce_210 = happySpecReduce_1 64# happyReduction_210
+happyReduction_210 happy_x_1
+ = case happyOut48 happy_x_1 of { happy_var_1 ->
+ happyIn70
+ ([happy_var_1]
+ )}
+
+happyReduce_211 = happySpecReduce_3 64# happyReduction_211
+happyReduction_211 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOut48 happy_x_1 of { happy_var_1 ->
+ case happyOut70 happy_x_3 of { happy_var_3 ->
+ happyIn70
+ (happy_var_1 : happy_var_3
+ )}}
+
+happyReduce_212 = happySpecReduce_0 65# happyReduction_212
+happyReduction_212 = happyIn71
+ ([]
+ )
+
+happyReduce_213 = happySpecReduce_1 65# happyReduction_213
+happyReduction_213 happy_x_1
+ = case happyOut57 happy_x_1 of { happy_var_1 ->
+ happyIn71
+ ([happy_var_1]
+ )}
+
+happyReduce_214 = happySpecReduce_3 65# happyReduction_214
+happyReduction_214 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOut57 happy_x_1 of { happy_var_1 ->
+ case happyOut71 happy_x_3 of { happy_var_3 ->
+ happyIn71
+ (happy_var_1 : happy_var_3
+ )}}
+
+happyReduce_215 = happySpecReduce_3 66# happyReduction_215
+happyReduction_215 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOut57 happy_x_1 of { happy_var_1 ->
+ case happyOut48 happy_x_3 of { happy_var_3 ->
+ happyIn72
+ ((happy_var_1,happy_var_3)
+ )}}
+
+happyReduce_216 = happySpecReduce_1 67# happyReduction_216
+happyReduction_216 happy_x_1
+ = case happyOut72 happy_x_1 of { happy_var_1 ->
+ happyIn73
+ ([happy_var_1]
+ )}
+
+happyReduce_217 = happySpecReduce_3 67# happyReduction_217
+happyReduction_217 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_218 = happySpecReduce_3 68# happyReduction_218
+happyReduction_218 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOut65 happy_x_1 of { happy_var_1 ->
+ case happyOut48 happy_x_3 of { happy_var_3 ->
+ happyIn74
+ ((happy_var_1,happy_var_3)
+ )}}
+
+happyReduce_219 = happySpecReduce_1 69# happyReduction_219
+happyReduction_219 happy_x_1
+ = case happyOut74 happy_x_1 of { happy_var_1 ->
+ happyIn75
+ ((:[]) happy_var_1
+ )}
+
+happyReduce_220 = happySpecReduce_3 69# happyReduction_220
+happyReduction_220 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_221 = happySpecReduce_3 70# happyReduction_221
+happyReduction_221 happy_x_3
+ happy_x_2
+ happy_x_1
+ = case happyOut48 happy_x_1 of { happy_var_1 ->
+ case happyOut48 happy_x_3 of { happy_var_3 ->
+ happyIn76
+ ((happy_var_1,happy_var_3)
+ )}}
+
+happyReduce_222 = happySpecReduce_1 71# happyReduction_222
+happyReduction_222 happy_x_1
+ = case happyOut76 happy_x_1 of { happy_var_1 ->
+ happyIn77
+ ([happy_var_1]
+ )}
+
+happyReduce_223 = happySpecReduce_3 71# happyReduction_223
+happyReduction_223 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_224 = happyReduce 5# 72# happyReduction_224
+happyReduction_224 (happy_x_5 `HappyStk`
+ happy_x_4 `HappyStk`
+ happy_x_3 `HappyStk`
+ happy_x_2 `HappyStk`
+ happy_x_1 `HappyStk`
+ happyRest)
+ = case happyOut68 happy_x_2 of { happy_var_2 ->
+ case happyOut48 happy_x_4 of { happy_var_4 ->
+ happyIn78
+ ([(x,happy_var_4) | x <- happy_var_2]
+ ) `HappyStk` happyRest}}
+
+happyReduce_225 = happySpecReduce_1 72# happyReduction_225
+happyReduction_225 happy_x_1
+ = case happyOut54 happy_x_1 of { happy_var_1 ->
+ happyIn78
+ ([mkDecl happy_var_1]
+ )}
+
+happyReduce_226 = happySpecReduce_0 73# happyReduction_226
+happyReduction_226 = happyIn79
+ ([]
+ )
+
+happyReduce_227 = happySpecReduce_2 73# happyReduction_227
+happyReduction_227 happy_x_2
+ happy_x_1
+ = case happyOut78 happy_x_1 of { happy_var_1 ->
+ case happyOut79 happy_x_2 of { happy_var_2 ->
+ happyIn79
+ (happy_var_1 ++ happy_var_2
+ )}}
+
+happyReduce_228 = happyMonadReduce 0# 74# happyReduction_228
+happyReduction_228 (happyRest) tk
+ = happyThen (( getPosn)
+ ) (\r -> happyReturn (happyIn80 r))
+
+happyNewToken action sts stk
+ = lexer(\tk ->
+ let cont i = happyDoAction i tk action sts stk in
+ case tk of {
+ T_EOF -> happyDoAction 72# tk action sts stk;
+ T_exclmark -> cont 1#;
+ T_patt -> cont 2#;
+ T_int_label -> cont 3#;
+ T_oparen -> cont 4#;
+ T_cparen -> cont 5#;
+ T_star -> cont 6#;
+ T_starstar -> cont 7#;
+ T_plus -> cont 8#;
+ T_plusplus -> cont 9#;
+ T_comma -> cont 10#;
+ T_minus -> cont 11#;
+ T_rarrow -> cont 12#;
+ T_dot -> cont 13#;
+ T_alt -> cont 14#;
+ T_colon -> cont 15#;
+ T_semicolon -> cont 16#;
+ T_less -> cont 17#;
+ T_equal -> cont 18#;
+ T_big_rarrow -> cont 19#;
+ T_great -> cont 20#;
+ T_questmark -> cont 21#;
+ T_at -> cont 22#;
+ T_obrack -> cont 23#;
+ T_cbrack -> cont 24#;
+ T_ocurly -> cont 25#;
+ T_ccurly -> cont 26#;
+ T_lam -> cont 27#;
+ T_lamlam -> cont 28#;
+ T_underscore -> cont 29#;
+ T_bar -> cont 30#;
+ T_PType -> cont 31#;
+ T_Str -> cont 32#;
+ T_Strs -> cont 33#;
+ T_Tok -> cont 34#;
+ T_Type -> cont 35#;
+ T_abstract -> cont 36#;
+ T_case -> cont 37#;
+ T_cat -> cont 38#;
+ T_concrete -> cont 39#;
+ T_data -> cont 40#;
+ T_def -> cont 41#;
+ T_flags -> cont 42#;
+ T_fn -> cont 43#;
+ T_fun -> cont 44#;
+ T_in -> cont 45#;
+ T_incomplete -> cont 46#;
+ T_instance -> cont 47#;
+ T_interface -> cont 48#;
+ T_let -> cont 49#;
+ T_lin -> cont 50#;
+ T_lincat -> cont 51#;
+ T_lindef -> cont 52#;
+ T_of -> cont 53#;
+ T_open -> cont 54#;
+ T_oper -> cont 55#;
+ T_param -> cont 56#;
+ T_pattern -> cont 57#;
+ T_pre -> cont 58#;
+ T_printname -> cont 59#;
+ T_resource -> cont 60#;
+ T_strs -> cont 61#;
+ T_table -> cont 62#;
+ T_transfer -> cont 63#;
+ T_variants -> cont 64#;
+ T_where -> cont 65#;
+ T_with -> cont 66#;
+ (T_Integer happy_dollar_dollar) -> cont 67#;
+ (T_Double happy_dollar_dollar) -> cont 68#;
+ (T_String happy_dollar_dollar) -> cont 69#;
+ (T_LString happy_dollar_dollar) -> cont 70#;
+ (T_Ident happy_dollar_dollar) -> cont 71#;
+ _ -> happyError' tk
+ })
+
+happyError_ tk = happyError' tk
+
+happyThen :: () => P a -> (a -> P b) -> P b
+happyThen = (>>=)
+happyReturn :: () => a -> P a
+happyReturn = (return)
+happyThen1 = happyThen
+happyReturn1 :: () => a -> P a
+happyReturn1 = happyReturn
+happyError' :: () => Token -> P a
+happyError' tk = (\token -> happyError) tk
+
+pModDef = happySomeParser where
+ happySomeParser = happyThen (happyParse 0#) (\x -> happyReturn (happyOut6 x))
+
+pModHeader = happySomeParser where
+ happySomeParser = happyThen (happyParse 1#) (\x -> happyReturn (happyOut7 x))
+
+pExp = happySomeParser where
+ happySomeParser = happyThen (happyParse 2#) (\x -> happyReturn (happyOut48 x))
+
+happySeq = happyDontSeq
+
+
+happyError :: P a
+happyError = fail "parse error"
+
+mkListId,mkConsId,mkBaseId :: Ident -> Ident
+mkListId = prefixId (BS.pack "List")
+mkConsId = prefixId (BS.pack "Cons")
+mkBaseId = prefixId (BS.pack "Base")
+
+prefixId :: BS.ByteString -> Ident -> Ident
+prefixId pref id = identC (BS.append pref (ident2bs id))
+
+listCatDef id pos cont size = [catd,nilfund,consfund]
+ where
+ listId = mkListId id
+ baseId = mkBaseId id
+ consId = mkConsId id
+
+ catd = (listId, pos, AbsCat (Just cont') (Just [Cn baseId,Cn consId]))
+ nilfund = (baseId, pos, AbsFun (Just niltyp) (Just EData))
+ consfund = (consId, pos, AbsFun (Just constyp) (Just EData))
+
+ cont' = [(mkId x i,ty) | (i,(x,ty)) <- zip [0..] cont]
+ xs = map (Vr . fst) cont'
+ cd = mkDecl (mkApp (Vr id) xs)
+ lc = mkApp (Vr listId) xs
+
+ niltyp = mkProdSimple (cont' ++ replicate size cd) lc
+ constyp = mkProdSimple (cont' ++ [cd, mkDecl lc]) lc
+
+ mkId x i = if isWildIdent x then (varX i) else x
+
+tryLoc (c,mty,Just e) = return (c,(mty,e))
+tryLoc (c,_ ,_ ) = fail ("local definition of" +++ prIdent c +++ "without value")
+
+mkR [] = return $ RecType [] --- empty record always interpreted as record type
+mkR fs@(f:_) =
+ case f of
+ (lab,Just ty,Nothing) -> mapM tryRT fs >>= return . RecType
+ _ -> mapM tryR fs >>= return . R
+ where
+ tryRT (lab,Just ty,Nothing) = return (ident2label lab,ty)
+ tryRT (lab,_ ,_ ) = fail $ "illegal record type field" +++ prIdent lab --- manifest fields ?!
+
+ tryR (lab,mty,Just t) = return (ident2label lab,(mty,t))
+ tryR (lab,_ ,_ ) = fail $ "illegal record field" +++ prIdent lab
+
+mkOverload pdt pdf@(Just df) =
+ case appForm df of
+ (keyw, ts@(_:_)) | isOverloading keyw ->
+ case last ts of
+ R fs -> [ResOverload [m | Vr m <- ts] [(ty,fu) | (_,(Just ty,fu)) <- fs]]
+ _ -> [ResOper pdt pdf]
+ _ -> [ResOper pdt pdf]
+
+ -- to enable separare type signature --- not type-checked
+mkOverload pdt@(Just df) pdf =
+ case appForm df of
+ (keyw, ts@(_:_)) | isOverloading keyw ->
+ case last ts of
+ RecType _ -> []
+ _ -> [ResOper pdt pdf]
+ _ -> [ResOper pdt pdf]
+mkOverload pdt pdf = [ResOper pdt pdf]
+
+isOverloading t =
+ case t of
+ Vr keyw | prIdent keyw == "overload" -> True -- overload is a "soft keyword"
+ _ -> False
+
+
+type SrcSpan = (Posn,Posn)
+
+
+checkInfoType MTAbstract (id,pos,info) =
+ case info of
+ AbsCat _ _ -> return ()
+ AbsFun _ _ -> return ()
+ _ -> failLoc (fst pos) "illegal definition in abstract module"
+checkInfoType MTResource (id,pos,info) =
+ case info of
+ ResParam _ -> return ()
+ ResValue _ -> return ()
+ ResOper _ _ -> return ()
+ ResOverload _ _ -> return ()
+ _ -> failLoc (fst pos) "illegal definition in resource module"
+checkInfoType MTInterface (id,pos,info) =
+ case info of
+ ResParam _ -> return ()
+ ResValue _ -> return ()
+ ResOper _ _ -> return ()
+ ResOverload _ _ -> return ()
+ _ -> failLoc (fst pos) "illegal definition in interface module"
+checkInfoType (MTConcrete _) (id,pos,info) =
+ case info of
+ CncCat _ _ _ -> return ()
+ CncFun _ _ _ -> return ()
+ ResParam _ -> return ()
+ ResValue _ -> return ()
+ ResOper _ _ -> return ()
+ ResOverload _ _ -> return ()
+ _ -> failLoc (fst pos) "illegal definition in concrete module"
+checkInfoType (MTInstance _) (id,pos,info) =
+ case info of
+ ResParam _ -> return ()
+ ResValue _ -> return ()
+ ResOper _ _ -> return ()
+ _ -> failLoc (fst pos) "illegal definition in instance module"
+checkInfoType (MTTransfer _ _) (id,pos,info) =
+ case info of
+ AbsCat _ _ -> return ()
+ AbsFun _ _ -> return ()
+ _ -> failLoc (fst pos) "illegal definition in transfer module"
+{-# LINE 1 "templates/GenericTemplate.hs" #-}
+{-# LINE 1 "templates/GenericTemplate.hs" #-}
+{-# LINE 1 "<built-in>" #-}
+{-# LINE 1 "<command line>" #-}
+{-# LINE 1 "templates/GenericTemplate.hs" #-}
+-- Id: GenericTemplate.hs,v 1.26 2005/01/14 14:47:22 simonmar Exp
+
+{-# LINE 28 "templates/GenericTemplate.hs" #-}
+
+
+data Happy_IntList = HappyCons Int# Happy_IntList
+
+
+
+
+
+{-# LINE 49 "templates/GenericTemplate.hs" #-}
+
+{-# LINE 59 "templates/GenericTemplate.hs" #-}
+
+{-# LINE 68 "templates/GenericTemplate.hs" #-}
+
+infixr 9 `HappyStk`
+data HappyStk a = HappyStk a (HappyStk a)
+
+-----------------------------------------------------------------------------
+-- starting the parse
+
+happyParse start_state = happyNewToken start_state notHappyAtAll notHappyAtAll
+
+-----------------------------------------------------------------------------
+-- Accepting the parse
+
+-- If the current token is 0#, it means we've just accepted a partial
+-- parse (a %partial parser). We must ignore the saved token on the top of
+-- the stack in this case.
+happyAccept 0# tk st sts (_ `HappyStk` ans `HappyStk` _) =
+ happyReturn1 ans
+happyAccept j tk st sts (HappyStk ans _) =
+ (happyTcHack j (happyTcHack st)) (happyReturn1 ans)
+
+-----------------------------------------------------------------------------
+-- Arrays only: do the next action
+
+
+
+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
+
+{-# LINE 127 "templates/GenericTemplate.hs" #-}
+
+
+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 170 "templates/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 tk) (\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
+
+happyMonad2Reduce k nt fn 0# tk st sts stk
+ = happyFail 0# tk st sts stk
+happyMonad2Reduce k nt fn j tk st sts stk =
+ happyThen1 (fn stk tk) (\r -> happyNewToken new_state sts1 (r `HappyStk` drop_stk))
+ where sts1@((HappyCons (st1@(action)) (_))) = happyDrop k (HappyCons (st) (sts))
+ drop_stk = happyDropStk k stk
+
+ off = indexShortOffAddr happyGotoOffsets st1
+ off_i = (off +# nt)
+ new_state = indexShortOffAddr happyTable off_i
+
+
+
+
+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_ tk
+
+{- We don't need state discarding for our restricted implementation of
+ "error". In fact, it can cause some bogus parses, so I've disabled it
+ 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.
generated by cgit v1.2.3 (git 2.39.1) at 2026-05-20 05:46:34 +0000