cryptol 2.4.0 → 2.5.0

raw patch · 75 files changed

+12642/−7981 lines, 75 filesdep +mtldep +timedep −aesondep −aeson-prettydep −optparse-applicativedep ~basedep ~base-compatdep ~containersnew-uploaderPVP ok

version bump matches the API change (PVP)

Dependencies added: mtl, time

Dependencies removed: aeson, aeson-pretty, optparse-applicative, unix, unordered-containers, zeromq4-haskell

Dependency ranges changed: base, base-compat, containers, directory, monad-control, sbv, simple-smt, text, transformers

API changes (from Hackage documentation)

Files

• bench/Main.hs +55/−30
• bench/data/AES.cry +10/−2
• bench/data/PreludeWithExtras.cry +506/−0
• bench/data/SHA512.cry +3/−0
• cryptol-server/Cryptol/Aeson.hs +0/−179
• cryptol-server/Main.hs +0/−386
• cryptol.cabal +61/−46
• cryptol/Main.hs +62/−19
• cryptol/REPL/Haskeline.hs +87/−52
• cryptol/REPL/Logo.hs +1/−1
• dist/build/Cryptol/Parser.hs +3571/−3206
• dist/build/Cryptol/Parser/Lexer.hs +396/−51
• lib/Cryptol.cry +141/−15
• lib/Cryptol/Extras.cry +7/−8
• lib/CryptolTC.z3 +293/−0
• src/Cryptol/Eval.hs +445/−152
• src/Cryptol/Eval/Env.hs +41/−19
• src/Cryptol/Eval/Error.hs +0/−69
• src/Cryptol/Eval/Monad.hs +210/−0
• src/Cryptol/Eval/Reference.lhs +1090/−0
• src/Cryptol/Eval/Type.hs +67/−9
• src/Cryptol/Eval/Value.hs +455/−178
• src/Cryptol/ModuleSystem/Base.hs +25/−16
• src/Cryptol/ModuleSystem/Env.hs +5/−3
• src/Cryptol/ModuleSystem/Monad.hs +16/−9
• src/Cryptol/ModuleSystem/NamingEnv.hs +5/−3
• src/Cryptol/ModuleSystem/Renamer.hs +65/−6
• src/Cryptol/Parser.y +6/−3
• src/Cryptol/Parser/Lexer.x +2/−2
• src/Cryptol/Parser/LexerUtils.hs +18/−24
• src/Cryptol/Parser/ParserUtils.hs +1/−1
• src/Cryptol/Parser/Position.hs +1/−1
• src/Cryptol/Parser/Utils.hs +2/−1
• src/Cryptol/Prelude.hs +32/−4
• src/Cryptol/Prims/Eval.hs +1291/−703
• src/Cryptol/REPL/Command.hs +81/−26
• src/Cryptol/REPL/Monad.hs +14/−3
• src/Cryptol/Symbolic.hs +100/−256
• src/Cryptol/Symbolic/Prims.hs +406/−510
• src/Cryptol/Symbolic/Value.hs +88/−29
• src/Cryptol/Testing/Concrete.hs +22/−15
• src/Cryptol/Testing/Random.hs +18/−14
• src/Cryptol/Transform/MonoValues.hs +2/−3
• src/Cryptol/Transform/Specialize.hs +2/−4
• src/Cryptol/TypeCheck/AST.hs +15/−641
• src/Cryptol/TypeCheck/Infer.hs +54/−57
• src/Cryptol/TypeCheck/InferTypes.hs +61/−37
• src/Cryptol/TypeCheck/Instantiate.hs +1/−5
• src/Cryptol/TypeCheck/Kind.hs +15/−8
• src/Cryptol/TypeCheck/Monad.hs +61/−9
• src/Cryptol/TypeCheck/Sanity.hs +35/−22
• src/Cryptol/TypeCheck/SimpType.hs +304/−0
• src/Cryptol/TypeCheck/SimpleSolver.hs +50/−0
• src/Cryptol/TypeCheck/Solve.hs +248/−263
• src/Cryptol/TypeCheck/Solver/Class.hs +34/−28
• src/Cryptol/TypeCheck/Solver/CrySAT.hs +34/−6
• src/Cryptol/TypeCheck/Solver/Improve.hs +217/−0
• src/Cryptol/TypeCheck/Solver/InfNat.hs +0/−14
• src/Cryptol/TypeCheck/Solver/Numeric.hs +295/−0
• src/Cryptol/TypeCheck/Solver/Numeric/Fin.hs +38/−33
• src/Cryptol/TypeCheck/Solver/Numeric/ImportExport.hs +17/−16
• src/Cryptol/TypeCheck/Solver/Numeric/Interval.hs +21/−5
• src/Cryptol/TypeCheck/Solver/Numeric/Simplify.hs +1/−1
• src/Cryptol/TypeCheck/Solver/Numeric/Simplify1.hs +0/−511
• src/Cryptol/TypeCheck/Solver/SMT.hs +171/−0
• src/Cryptol/TypeCheck/Solver/Selector.hs +18/−22
• src/Cryptol/TypeCheck/Solver/Simplify.hs +0/−164
• src/Cryptol/TypeCheck/Solver/Types.hs +39/−0
• src/Cryptol/TypeCheck/Solver/Utils.hs +6/−5
• src/Cryptol/TypeCheck/Subst.hs +84/−70
• src/Cryptol/TypeCheck/Type.hs +802/−0
• src/Cryptol/TypeCheck/TypeOf.hs +7/−6
• src/Cryptol/TypeCheck/TypePat.hs +172/−0
• src/Cryptol/Utils/Ident.hs +3/−0
• src/Cryptol/Utils/Patterns.hs +136/−0

@@ -7,11 +7,18 @@ -- Portability :  portable  {-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE ScopedTypeVariables #-} module Main where  import qualified Data.Text.Lazy     as T import qualified Data.Text.Lazy.IO  as T+import           System.FilePath ((</>))+import qualified System.Directory   as Dir +import qualified Cryptol.Eval as E+import qualified Cryptol.Eval.Monad as E+import qualified Cryptol.Eval.Value as E+ import qualified Cryptol.ModuleSystem.Base      as M import qualified Cryptol.ModuleSystem.Env       as M import qualified Cryptol.ModuleSystem.Monad     as M@@ -22,41 +29,50 @@ import qualified Cryptol.Parser.NoInclude as P  import qualified Cryptol.Symbolic as S+import qualified Cryptol.Symbolic.Value as S  import qualified Cryptol.TypeCheck     as T import qualified Cryptol.TypeCheck.AST as T  import qualified Cryptol.Utils.Ident as I +import qualified Data.SBV.Dynamic as SBV+ import Criterion.Main  main :: IO ()-main = defaultMain [+main = do+  cd <- Dir.getCurrentDirectory+  defaultMain [     bgroup "parser" [         parser "Prelude" "lib/Cryptol.cry"+      , parser "Extras"  "lib/Cryptol/Extras.cry"+      , parser "PreludeWithExtras" "bench/data/PreludeWithExtras.cry"       , parser "BigSequence" "bench/data/BigSequence.cry"       , parser "BigSequenceHex" "bench/data/BigSequenceHex.cry"       , parser "AES" "bench/data/AES.cry"       , parser "SHA512" "bench/data/SHA512.cry"       ]-  , bgroup "typechecker" [-        tc "Prelude" "lib/Cryptol.cry"-      , tc "BigSequence" "bench/data/BigSequence.cry"-      , tc "BigSequenceHex" "bench/data/BigSequenceHex.cry"-      , tc "AES" "bench/data/AES.cry"-      , tc "SHA512" "bench/data/SHA512.cry"+   , bgroup "typechecker" [+        tc cd "Prelude" "lib/Cryptol.cry"+      , tc cd "Extras"  "lib/Cryptol/Extras.cry"+      , tc cd "PreludeWithExtras" "bench/data/PreludeWithExtras.cry"+      , tc cd "BigSequence" "bench/data/BigSequence.cry"+      , tc cd "BigSequenceHex" "bench/data/BigSequenceHex.cry"+      , tc cd "AES" "bench/data/AES.cry"+      , tc cd "SHA512" "bench/data/SHA512.cry"       ]-  , bgroup "conc_eval" [-        ceval "AES" "bench/data/AES.cry" "bench bench_data"-      , ceval "SHA512" "bench/data/SHA512.cry" "testVector1 ()"+   , bgroup "conc_eval" [+        ceval cd "AES" "bench/data/AES.cry" "bench_correct"+      , ceval cd "ZUC" "bench/data/ZUC.cry" "ZUC_TestVectors"+      , ceval cd "SHA512" "bench/data/SHA512.cry" "testVector1 ()"       ]-  , bgroup "sym_eval" [-        seval "AES" "bench/data/AES.cry" "aesEncrypt (zero, zero)"-      , seval "ZUC" "bench/data/ZUC.cry"-          "ZUC_isResistantToCollisionAttack"-      , seval "SHA512" "bench/data/SHA512.cry" "testVector1 ()"+   , bgroup "sym_eval" [+        seval cd "AES" "bench/data/AES.cry" "bench_correct"+      , seval cd "ZUC" "bench/data/ZUC.cry" "ZUC_TestVectors"+      , seval cd "SHA512" "bench/data/SHA512.cry" "testVector1 ()"       ]-  ]+   ]  -- | Make a benchmark for parsing a Cryptol module parser :: String -> FilePath -> Benchmark@@ -73,8 +89,9 @@  -- | Make a benchmark for typechecking a Cryptol module. Does parsing -- in the setup phase in order to isolate typechecking-tc :: String -> FilePath -> Benchmark-tc name path =+tc :: String -> String -> FilePath -> Benchmark+tc cd name path =+  let withLib = M.withPrependedSearchPath [cd </> "lib"] in   let setup = do         bytes <- T.readFile path         let cfg = P.defaultConfig@@ -83,7 +100,7 @@                 }             Right pm = P.parseModule cfg bytes         menv <- M.initialModuleEnv-        (Right ((prims, scm, tcEnv), menv'), _) <- M.runModuleM menv $ do+        (Right ((prims, scm, tcEnv), menv'), _) <- M.runModuleM menv $ withLib $ do           -- code from `loadModule` and `checkModule` in           -- `Cryptol.ModuleSystem.Base`           let pm' = M.addPrelude pm@@ -97,18 +114,19 @@           return (prims, scm, tcEnv)         return (prims, scm, tcEnv, menv')   in env setup $ \ ~(prims, scm, tcEnv, menv) ->-    bench name $ nfIO $ M.runModuleM menv $ do+    bench name $ nfIO $ M.runModuleM menv $ withLib $ do       let act = M.TCAction { M.tcAction = T.tcModule                            , M.tcLinter = M.moduleLinter (P.thing (P.mName scm))                            , M.tcPrims  = prims                            }       M.typecheck act scm tcEnv -ceval :: String -> FilePath -> T.Text -> Benchmark-ceval name path expr =+ceval :: String -> String -> FilePath -> T.Text -> Benchmark+ceval cd name path expr =+  let withLib = M.withPrependedSearchPath [cd </> "lib"] in   let setup = do         menv <- M.initialModuleEnv-        (Right (texpr, menv'), _) <- M.runModuleM menv $ do+        (Right (texpr, menv'), _) <- M.runModuleM menv $ withLib $ do           m <- M.loadModuleByPath path           M.setFocusedModule (T.mName m)           let Right pexpr = P.parseExpr expr@@ -116,13 +134,18 @@           return texpr         return (texpr, menv')   in env setup $ \ ~(texpr, menv) ->-    bench name $ nfIO $ M.runModuleM menv $ M.evalExpr texpr+    bench name $ nfIO $ E.runEval $ do+      env' <- E.evalDecls (S.allDeclGroups menv) mempty+      (e :: E.Value) <- E.evalExpr env' texpr+      E.forceValue e -seval :: String -> FilePath -> T.Text -> Benchmark-seval name path expr =++seval :: String -> String -> FilePath -> T.Text -> Benchmark+seval cd name path expr =+  let withLib = M.withPrependedSearchPath [cd </> "lib"] in   let setup = do         menv <- M.initialModuleEnv-        (Right (texpr, menv'), _) <- M.runModuleM menv $ do+        (Right (texpr, menv'), _) <- M.runModuleM menv $ withLib $ do           m <- M.loadModuleByPath path           M.setFocusedModule (T.mName m)           let Right pexpr = P.parseExpr expr@@ -130,6 +153,8 @@           return texpr         return (texpr, menv')   in env setup $ \ ~(texpr, menv) ->-    bench name $ flip nf texpr $ \texpr' ->-      let senv = S.evalDecls mempty (S.allDeclGroups menv)-      in S.evalExpr senv texpr'+    bench name $ nfIO $ E.runEval $ do+      env' <- E.evalDecls (S.allDeclGroups menv) mempty+      (e :: S.Value) <- E.evalExpr env' texpr+      E.io $ SBV.generateSMTBenchmark False $+         return (S.fromVBit e)

@@ -242,9 +242,17 @@  type nblocks = 128 -bench_data : [128 * nblocks]-bench_data = random 0+property bench_correct = bench bench_data == bench_result  bench : [128 * nblocks] -> [128 * nblocks] bench data = join [ aesEncrypt (block, key) | block <- split data ]   where key = 0x3243f6a8885a308d313198a2e0370734++bench_data : [128 * nblocks]+bench_data = //random 0+  0xcddf97f18ad18da94ae27558e975608f673c896a718cffbc90c746160a003d540e353ea1a32cf650c25298cf353b36849f68360e07ad40a9e6c0e4dd2351dce8c06dd82c27642a5e9ce3804780d531af41768b4697b45383d58dfd98c9f2e6d5788e671229529d239b40fc9a52436c437e716cef3c5503d567eff3c2f35d806ae4431455ec096526b1b584cb4a80efde3174361e912a46bf8b7b8d3ca4cebacea935ccd766976614885f5330441ca4acee37c9728fb53708042d9952d8ef3ca544c870a7ee689f8b6d78764368e849274946d0e8bdc69f4a4004cbbce034f1d0a6f8447a756a5f9c217e377909d0c4bde859732e7263c03013c623cb1f2478b77f7838b3d3581e0aba9da951dd18466a131bca89252fc17b9bbe475530d425ac7a79cbc26a941dcc16ded680dddada735c76fa469ebeadf1c8fc33a2c7dc00b865eaec95f1448583425302a9023d39c3bb794685a5e30f196f7c0bdc2b8790d35f8bb9c4359e17ca53e8450da4db030bb67fb4cab68ef4a5edfbe120f1c9824b4faa0cc767bb7304238a798534f065cc1cc8fe310d76c2b440b64348a8e16873eddb5931313573c2cb43a47c2ff0f9c8ec264a0a6ec6474c1056fc7f376c01e5d3b6fea382b5086c7c80bb4c5505f2d4f18dc01cff4baa71eac658ca78e5acbde546dbe85dd71708fb46c8ec00ef75b9b577f93a3c550781a642d5bc4fa2da325656f737d272875b9185fe86a0e0e3eefaf51294d0f06340db93715c99df443e286c0d1e2ae869a7e0d705d6369362a220617ac4803fd205de679ea6ed82881cc2315d73c9cc8f4512ee61afaf127eac098d1d31b075c16aa902024594337c6b2a290cedcbd44190105d20de7ef16fb310400ccbc9ca6a1f4de0a9b1f82b780ee3eda52af664b883c32dd70c860905c0f9e83ee0ae5fc016b81c4c4ca70c05703035637e4988a827bf6e230ba30dc78b8c5663e14273827fb6c4aa700b95a04f1456ce15d18740ee79b7aeb85feffac9f5bd54c9a9bd494a9fc8fab4280316ac8f6552849a798e2b5d7326bb2208fdf2cf6b372311edcd87bb2b1805afd1b6e085fad1a28bc4578e1abea57227f49c141d7d08893d8083249e32cc9645748684cc5d4d492abbdaf5f8373b5e2e4bd91c15346e1d455415395bc0342185665ebeb94fda5fdf7e601961bf1f1109373e935a077a0088980844ce1c87f347380f3c805b01407cf9154f5818db41a6f5d87994df790421a9dbf7d56c11a5e723ec853f32bcf7dc0eef03bbf164564167c6212c35ddd9d6112eb43e4826d1da8f065b804fd48b5ff863b4f4246ba6ebaef90396843e084168d6826abf5f6b0e82c7a7a96707e650e86f82862c5910e0c4d6a48182656e0e76be4017c739feb2da56bb69db4b0885c772180607ce880b15064b5b9878cd1c3d4ae9657c5fdf5ca5d7755807d74e2a57aed4e9fe90c49ed4f01ae3cb812ada6b15c7009d98930d8a41cf23e8f5a962e93c8cecef6044cfcc8843d1f6b5dfb868de036fa5d992c861f056f504f54e8d077028143a2807676c02faf35435ee43cb1ece1a82c7f142be774c824b7e8e3fcad737f58f4818994842ab40a211f9569ad476beef0f2f97be0fb515cf0754641748b2af38d58937c3428a147647911734d54bf06be7f3fcab19b874ff52893af6a45c44adf11c17bf177fc0e90539327373e6594e249aca3a386272d1405455e7e8b463029c0460a31b59b9dc1a15d18cdf1997df250721735651c5e7de7059cb755aa4a0c99962e6485b2ccb02ffecb022fc867e36a63ef77ee8740af2e6f25b0d497d3bcc213a939a47a64057caf107e79661d15f469f8e32b2175bed98af21776a9a2cde4e4982ecd695b4dcef8822806cf74ac73aa5b9d8e6dc0a6d2b97b75d11553a9478296631b7a3c340113247f32bf7a7c42e85b9e517b4f9a09ab453de795f156f09d2704bfa56f5ade38e0eae826796bd54165967332985ecdd4991b8e2bb4016e0d2da173690feace03245c2ef868b44ea7892c0ce15d818a32e5bf57d53a1d86cbb3074221083cfa570c17104da26c063b3a349ce35facd3b7bf267383235a5620217d58201c74105302f3445e024313338fe93dd6f617088b41c836083ceae512782e458c4f5c74bd1987ccb098d1d89fe63a5e5881e56b0c5aba87ef2c5e8d6333d91e9dcbdc45a3c16d67b32c4e51e95231aa7e0b9342c599ebdc6ebb6e4dce1fcd98add42d6ab08707a6f5a38154ad5a3674e8a05105c5ecec180f9661122da31a94e9ad7d337ff5ab4a28a5c5cba9a393f484ed5e5f37bbb4b7caecbf9cbb432cae0b2f6bd5ce6068104f012d6428a9b172847e18f12708de6248cdf0401c865292645fb30114f4f4b53d4473b6ffc53ae0870e85c24f631f52c04d227ea9bc0a59828b6f9eafd95cac13ccfb1cdbae3550b0cd99e1812346d5d01b5a782d1d50fbedf858a4a044fd9384e3a6c10cb4227e276c7399b897b9dcbd2a5cb4e14d8341dd32029938f444fa3dcf2d23198f6bf042439cf96a534f3041774a6c3d5b6bb5bfcd8d7af57402431c7dd758da93ccef39495977cece58087ecc80b278d3e9966b7bd8b183f0379f28aa3c9a885065b8a090f3af15a15acb553b36a73d25a581e7f54f5e1f6f49c4f638ce40ba67629e910a04444d5f6b66c4548b611f851feb08d64fa4d99b83ad218d182d0e86e7f87d4923599a547effed6b9c86e853aef9e60767bff33de916bd799eaf3922ae80abadcc91c95f47e702e2fbd2631d0b77ef85f092204141250c4162b0369be64c1d6bdc2d58c02981cc1de13ae3efba34fbfb3dd0ef3ac4c502a1b87c6ee6bc1a9131b098a85d31560c60c599398d0bd80b37bf4d20df81522b2acc749178fb785+++bench_result : [128 * nblocks]+bench_result =+  0x9b00ae426bcc2cd6150a0af62b8be77fbb389c5b061a893588d1918f50f1f31ea1183bd81fd7faae77b4f6321a17130f46e21a2653b1f7dc520bf13305c5e7141cee9d8809d58b9b8ec2aa225120ea6ecec21fba09678bbbeda0b483ad299a8adb7b306599531cf717fd67a1c25e2adeeb48521619991e122b053c3a842936b14b6eea74734a6fc2abea6c1fc4780b2df8059ce9715299eeff7b6577409ebae71285929379cd065df0c249f9696e1b28da476ae52d55d0b1f676c619271d37d4211906d402e4eaf4df3031be5bc00962b7747e7b880bf55bee2882e5008e1c1fed70beb7e54be0545100a2e122b94536b888aaea25dde9e0715dfc892dee2b4fb8e94c6b15a2e77adad1f98e50ffef837309998fcdfd9bcb3d16dcd2a162a3b66c2533474981ba72321aaa9a611c670015fa6cbf9f7d7f26b3da415eccf01872cc3a686f659c0cc0d1d08a1d41470b0ceab527bd6499433a2f2df865982b3f616c246fe49f3a15b676983f7f853f6355bc2f4cdc39e5a29347f7031ab7d2659d0ddfb259fbdfe37eaee2e4dcbdfe0ac584038c5a98d85182ca2424f0e75b7f84d512828ed20bbd05065ed4ba0b850b51c31ecb231f2c879993038d7c9487e0fa46a84a02d4f5408faabd9f41edbbef5d6183dd880ea5b7272a2c46900e02357550c036f4b84168a3e891cd8fe33c2d521ce060a2863bb735e97614d0f5bf40068bfacb02297351db4a5bd80d8140a7e0734550967b2445d4236411e04f83e7f15f5148c9d758994cb8427238cea307ddde786dd74e5565b1dd905d085ebb5a7c725d72164adeeafd7387636c31eee2e729bd0fdf95686f957befdb190101cc23cc9b8e39c652e937bd1e21adad99b86d3b2ed0e4ed4ea4bd9d9ed2ad2b99adf40577fba6b25364cd6d96f79cb0f24ae551021904b57c1d469cfac780ea8469c530ab9d2fe6e98c270c5e1babed259878f48ab5824ebf327d8d18fd2e460334cc0ca9f3b0208c0b322a074185830c460cf58c45cef2234aa5ceb6ac294325bd4d4f9e569531165b9e731c84ffc92f453ce92464658592396f83555284a5f69288e3263d7bd083fa3257b0a11a9d8e4702ed06ebd172eacb7f559527637e0259573b1723c079465d593d5e89163e187ae7ac629ed75e398274daf9c420cac2d3b8f0de82dc9d50cd85d93460213416e3e5c0960c563d26fdb56e1e0dc79b251e95364389f6acbd78edd2664be1edc789b2c7a45b2101c69b3cdb8f9f6a2d7316d2cdca02fb5119d76c9bc93f7bc4e075eee1d453fa4668f368919d14035a7ba293d9787744f44e734443e9abc79a8d7aea71918f0a925026809cf43ae2fd1f6ea00fae2f87d4e7d83e4e86c81695d77e48d5f7080d61d878bde080cec46f4ed19d78f2b0c14db0bb6c871e6506064aa1c7b23c7d2baa9b5db5be3fc94923e09fddc13cd8322d05d990b3a9c5ce418c542eb80b1839a23ed7bc0b588ec957db3df1e1389ff0d541ec2f5331ab92fa7f85efa5ae9ec1c513365df179bb29d4f1914940c68468bd12e9fce04c8d08b6d3f1a4e2d632303ca99656bb248efbb6becad7ac6535678d6534aec746fbca6ec3dec85e4db505872e88bde65214b92eba09b91aff63c5db7e440a1f0ef0bca38759f9aaa35c0b8c565ec4307cc07a3226c992163aaa968ab9b9e507fa4b1910d1c24442615ffea299a8d7fcaf7aa2db3fac83d9f3b8a90bd9ae9100167944e01a07c011d0115870f5079d991d3dccd71fdd23b383b69409a1ba519c22194de6d1048e1195a4c716e0b27055aef816218d94972177732b0abd9df432d8f09293d8b22cc83e05522f7fa46742cd29b63357096601137130dc772717f8f4d02b5651fae2d74f72b25e9266090b95bf3ecb6ddda78edfa47346cf336e79548f9ea09eebe95da8903c86af35cb0abdaa4b78f05b2ef66342072b229a7f030e5b2f8e2ead7a8f5ea2a512cf0f02a4b0fc23e5aef4518f1c40674f5552a040cddf2daf47eec38103e6703720bdf40d68f8de4a9c9a39b1a21a2ea15337772526128abb3234bdce85dd7187a827f7aed625b862887f4ef41f656cc76c5311e34e654e0babe2230d3c1f7554106bab1dcdf18361e5579cf794af967421a1f06f80cfc254a9fa0a5b2a7bebd6dc8bbbf178f9647e356a4fd61e41301386784ba90dfaf5823a0007e50e61a0c3720b9b54edb800ba805e3817cddc7015febed997de87030f3341fad7249ce4530d55f5e0b3aac5a9de0d72c6c5672bc29440354d3a7d88873abdd090f41fa1db8740736583f74c7bfe526b283274f4bc08dea4884ccd75d34df9d8410f7e488b541f467331c5e7da352faa1019c394535472aa0f1ed1512928591e0b4335271df7a7d2d9d7fa1f7f4522be394b39bf15a7bc7a97ad21e171a638eb27d44efd57921938ed70335e3f3a8922553392db8a07e02cd4dc1184edbfbadaf09f97c50268d25dd5e7064968fde486d68b1051cef118d80c7a2c911a8cad22b26fd94f559cc12972b655ce014914cd3c20542815a0ff98ee166611eb2edc147bf2989d4fa1d72d88f7d211d05fe8e312b441edb3627982da6606d0cfa1c696979af5ff371e293c0a749f172343ab5f87ccd8a9d1c364f032e763a939f0696989a5316b48df43763d42170f598326579acba84e16508b5d4ffac1723c9bb98f7736e961c67caf3243b07760b3be602be9995a1a6b8c5360357e9fefab445229ccddd6214476a2c3af0eeadcd067db77ecaf7c84d605b99c89ab583edac68c3c8d951cce207c2df274709fe2d25477f14a8e50bc05f82b2cf49d9b56d97182b90a9395d90f23b9ee734d70d9312c9f6278f0ecd5f90c82f67693a589a94a6555f3abd8eac5408259879603acdc67b6fb

@@ -0,0 +1,506 @@+/*+ * Copyright (c) 2013-2016 Galois, Inc.+ * Distributed under the terms of the BSD3 license (see LICENSE file)+ */++module Cryptol where++/**+ * The value corresponding to a numeric type.+ */+primitive demote : {val, bits} (fin val, fin bits, bits >= width val) => [bits]++infixr 10 ||+infixr 20 &&+infix  30 ==, ===, !=, !==+infix  40 >, >=, <, <=+infixl 50 ^+infixr 60 #+infixl 70 <<, <<<, >>, >>>+infixl 80 +, -+infixl 90 *, /, %+infixr 95 ^^+infixl 100 @, @@, !, !!++/**+ * Add two values.+ *  * For words, addition uses modulo arithmetic.+ *  * Structured values are added element-wise.+ */+primitive (+) : {a} (Arith a) => a -> a -> a++/**+ * For words, subtraction uses modulo arithmetic.+ * Structured values are subtracted element-wise. Defined as:+ * a - b = a + negate b+ * See also: `negate'.+ */+primitive (-) : {a} (Arith a) => a -> a -> a++/**+ * For words, multiplies two words, modulus 2^^a.+ * Structured values are multiplied element-wise.+ */+primitive (*) : {a} (Arith a) => a -> a -> a++/**+ * For words, divides two words, modulus 2^^a.+ * Structured values are divided element-wise.+ */+primitive (/) : {a} (Arith a) => a -> a -> a++/**+ * For words, takes the modulus of two words, modulus 2^^a.+ * Over structured values, operates element-wise.+ * Be careful, as this will often give unexpected results due to interaction of+ * the two moduli.+ */+primitive (%) : {a} (Arith a) => a -> a -> a++/**+ * For words, takes the exponent of two words, modulus 2^^a.+ * Over structured values, operates element-wise.+ * Be careful, due to its fast-growing nature, exponentiation is prone to+ * interacting poorly with defaulting.+ */+primitive (^^) : {a} (Arith a) => a -> a -> a++/**+ * Log base two.+ *+ * For words, computes the ceiling of log, base 2, of a number.+ * Over structured values, operates element-wise.+ */+primitive lg2 : {a} (Arith a) => a -> a+++type Bool = Bit++/**+ * The constant True. Corresponds to the bit value 1.+ */+primitive True  : Bit++/**+ * The constant False. Corresponds to the bit value 0.+ */+primitive False : Bit++/**+ * Returns the twos complement of its argument.+ * Over structured values, operates element-wise.+ * negate a = ~a + 1+ */+primitive negate : {a} (Arith a) => a -> a++/**+ * Binary complement.+ */+primitive complement : {a} a -> a++/**+ * Operator form of binary complement.+ */+(~) : {a} a -> a+(~) = complement++/**+ * Less-than. Only works on comparable arguments.+ */+primitive (<) : {a} (Cmp a) => a -> a -> Bit++/**+ * Greater-than of two comparable arguments.+ */+primitive (>) : {a} (Cmp a) => a -> a -> Bit++/**+ * Less-than or equal of two comparable arguments.+ */+primitive (<=) : {a} (Cmp a) => a -> a -> Bit++/**+ * Greater-than or equal of two comparable arguments.+ */+primitive (>=) : {a} (Cmp a) => a -> a -> Bit++/**+ * Compares any two values of the same type for equality.+ */+primitive (==) : {a} (Cmp a) => a -> a -> Bit++/**+ * Compares any two values of the same type for inequality.+ */+primitive (!=) : {a} (Cmp a) => a -> a -> Bit++/**+ * Compare the outputs of two functions for equality+ */+(===) : {a,b} (Cmp b) => (a -> b) -> (a -> b) -> (a -> Bit)+f === g = \ x -> f x == g x++/**+ * Compare the outputs of two functions for inequality+ */+(!==) : {a,b} (Cmp b) => (a -> b) -> (a -> b) -> (a -> Bit)+f !== g = \x -> f x != g x++/**+ * Returns the smaller of two comparable arguments.+ */+min : {a} (Cmp a) => a -> a -> a+min x y = if x < y then x else y++/**+ * Returns the greater of two comparable arguments.+ */+max : {a} (Cmp a) => a -> a -> a+max x y = if x > y then x else y++/**+ * Logical `and' over bits. Extends element-wise over sequences, tuples.+ */+primitive (&&) : {a} a -> a -> a++/**+ * Logical `or' over bits. Extends element-wise over sequences, tuples.+ */+primitive (||) : {a} a -> a -> a++/**+ * Logical `exclusive or' over bits. Extends element-wise over sequences, tuples.+ */+primitive (^) : {a} a -> a -> a++/**+ * Gives an arbitrary shaped value whose bits are all False.+ * ~zero likewise gives an arbitrary shaped value whose bits are all True.+ */+primitive zero : {a} a++/**+ * Left shift.  The first argument is the sequence to shift, the second is the+ * number of positions to shift by.+*/+primitive (<<) : {a, b, c} (fin b) => [a]c -> [b] -> [a]c++/**+ * Right shift.  The first argument is the sequence to shift, the second is the+ * number of positions to shift by.+ */+primitive (>>) : {a, b, c} (fin b) => [a]c -> [b] -> [a]c++/**+ * Left rotate.  The first argument is the sequence to rotate, the second is the+ * number of positions to rotate by.+ */+primitive (<<<) : {a, b, c} (fin a, fin b) => [a]c -> [b] -> [a]c++/**+ * Right rotate.  The first argument is the sequence to rotate, the second is+ * the number of positions to rotate by.+ */+primitive (>>>) : {a, b, c} (fin a, fin b) => [a]c -> [b] -> [a]c++primitive (#) : {front, back, a} (fin front) => [front]a -> [back]a+                                             -> [front + back] a+++/**+ * Split a sequence into a tuple of sequences.+ */+primitive splitAt : {front, back, a} (fin front) => [front + back]a+                                                 -> ([front]a, [back]a)+/**+ * Joins sequences.+ */+primitive join : {parts, each, a} (fin each) => [parts][each]a+                                             -> [parts * each]a++/**+ * Splits a sequence into 'parts' groups with 'each' elements.+ */+primitive split : {parts, each, a} (fin each) => [parts * each]a+                                              -> [parts][each]a++/**+ * Reverses the elements in a sequence.+ */+primitive reverse : {a, b} (fin a) => [a]b -> [a]b++/**+ * Transposes an [a][b] matrix into a [b][a] matrix.+ */+primitive transpose : {a, b, c} [a][b]c -> [b][a]c++/**+ * Index operator.  The first argument is a sequence.  The second argument is+ * the zero-based index of the element to select from the sequence.+ */+primitive (@) : {a, b, c} (fin c) => [a]b -> [c] -> b++/**+ * Bulk index operator.  The first argument is a sequence.  The second argument+ * is a sequence of the zero-based indices of the elements to select.+ */+primitive (@@) : {a, b, c, d} (fin d) => [a]b -> [c][d] -> [c]b++/**+ * Reverse index operator.  The first argument is a finite sequence.  The second+ * argument is the zero-based index of the element to select, starting from the+ * end of the sequence.+ */+primitive (!) : {a, b, c} (fin a, fin c) => [a]b -> [c] -> b++/**+ * Bulk reverse index operator.  The first argument is a finite sequence.  The+ * second argument is a sequence of the zero-based indices of the elements to+ z select, starting from the end of the sequence.+ */+primitive (!!) : {a, b, c, d} (fin a, fin d) => [a]b -> [c][d] -> [c]b++primitive fromThen : {first, next, bits, len}+                     ( fin first, fin next, fin bits+                     , bits >= width first, bits >= width next+                     , lengthFromThen first next bits == len) => [len][bits]++primitive fromTo : {first, last, bits} (fin last, fin bits, last >= first,+                              bits >= width last) => [1 + (last - first)][bits]++primitive fromThenTo : {first, next, last, bits, len} (fin first, fin next,+                        fin last, fin bits, bits >= width first,+                        bits >= width next, bits >= width last,+                        lengthFromThenTo first next last == len) => [len][bits]++primitive infFrom : {bits} (fin bits) => [bits] -> [inf][bits]++primitive infFromThen : {bits} (fin bits) => [bits] -> [bits] -> [inf][bits]++primitive error : {at, len} (fin len) => [len][8] -> at+++/**+ * Performs multiplication of polynomials over GF(2).+ */+primitive pmult : {a, b} (fin a, fin b) => [a] -> [b] -> [max 1 (a + b) - 1]++/**+ * Performs division of polynomials over GF(2).+ */+primitive pdiv : {a, b} (fin a, fin b) => [a] -> [b] -> [a]++/**+ * Performs modulus of polynomials over GF(2).+ */+primitive pmod : {a, b} (fin a, fin b) => [a] -> [1 + b] -> [b]++/**+ * Generates random values from a seed.  When called with a function, currently+ * generates a function that always returns zero.+ */+primitive random : {a} [256] -> a++type String n = [n][8]+type Word n = [n]+type Char   = [8]++take : {front,back,elem} (fin front) => [front + back] elem -> [front] elem+take (x # _) = x++drop : {front,back,elem} (fin front) => [front + back] elem -> [back] elem+drop ((_ : [front] _) # y) = y++tail : {a, b} [1 + a]b -> [a]b+tail xs = drop`{1} xs++width : {bits,len,elem} (fin len, fin bits, bits >= width len) => [len] elem -> [bits]+width _ = `len++undefined : {a} a+undefined = error "undefined"++groupBy : {each,parts,elem} (fin each) =>+  [parts * each] elem -> [parts][each]elem+groupBy = split`{parts=parts}++/**+ * Define the base 2 logarithm function in terms of width+ */+type lg2 n = width (max n 1 - 1)++/**+ * Debugging function for tracing.  The first argument is a string,+ * which is prepended to the printed value of the second argument.+ * This combined string is then printed when the trace function is+ * evaluated.  The return value is equal to the third argument.+ *+ * The exact timing and number of times the trace message is printed+ * depend on the internal details of the Cryptol evaluation order,+ * which are unspecified.  Thus, the output produced by this+ * operation may be difficult to predict.+ */+primitive trace : {n, a, b} [n][8] -> a -> b -> b++/**+ * Debugging function for tracing values.  The first argument is a string,+ * which is prepended to the printed value of the second argument.+ * This combined string is then printed when the trace function is+ * evaluated.  The return value is equal to the second argument.+ *+ * The exact timing and number of times the trace message is printed+ * depend on the internal details of the Cryptol evaluation order,+ * which are unspecified.  Thus, the output produced by this+ * operation may be difficult to predict.+ */+traceVal : {n, a} [n][8] -> a -> a+traceVal msg x = trace msg x x++/*+ * Copyright (c) 2016 Galois, Inc.+ * Distributed under the terms of the BSD3 license (see LICENSE file)+ *+ * This module contains definitions that we wish to eventually promote+ * into the Prelude, but which currently cause typechecking of the+ * Prelude to take too long (see #299)+ */++infixr 5 ==>++/**+ * Logical implication+ */+(==>) : Bit -> Bit -> Bit+a ==> b = if a then b else True++/**+ * Logical negation+ */+not : {a} a -> a+not a = ~ a++/**+ * Conjunction+ */+and : {n} (fin n) => [n]Bit -> Bit+and xs = ~zero == xs++/**+ * Disjunction+ */+or : {n} (fin n) => [n]Bit -> Bit+or xs = zero != xs++/**+ * Conjunction after applying a predicate to all elements.+ */+all : {a,n} (fin n) => (a -> Bit) -> [n]a -> Bit+all f xs = and (map f xs)++/**+ * Disjunction after applying a predicate to all elements.+ */+any : {a,n} (fin n) => (a -> Bit) -> [n]a -> Bit+any f xs = or (map f xs)++/**+ * Map a function over an array.+ */+map : {a, b, n} (a -> b) -> [n]a -> [n]b+map f xs = [f x | x <- xs]++/**+ * Functional left fold.+ *+ * foldl (+) 0 [1,2,3] = ((0 + 1) + 2) + 3+ */+foldl : {a, b, n} (fin n) => (a -> b -> a) -> a -> [n]b -> a+foldl f acc xs = ys ! 0+ where ys = [acc] # [f a x | a <- ys | x <- xs]++/**+ * Functional right fold.+ *+ * foldr (-) 0 [1,2,3] = 0 - (1 - (2 - 3))+ */+foldr : {a,b,n} (fin n) => (a -> b -> b) -> b -> [n]a -> b+foldr f acc xs = ys ! 0+ where ys = [acc] # [f x a | a <- ys | x <- reverse xs]++/**+ * Compute the sum of the words in the array.+ */+sum : {a,n} (fin n, Arith a) => [n]a -> a+sum xs = foldl (+) zero xs++/**+ * Scan left is like a fold that emits the intermediate values.+ */+scanl : {b, a, n}  (b -> a -> b) -> b -> [n]a -> [n+1]b+scanl f acc xs = ys+ where+  ys = [acc] # [f a x | a <- ys | x <- xs]++/**+ * Scan right+ */+scanr : {a,b,n} (fin n) => (a -> b -> b) -> b -> [n]a -> [n+1]b+scanr f acc xs = reverse ys+    where+     ys = [acc] # [f x a | a <- ys | x <- reverse xs]++/**+ * Zero extension+ */+extend : {total,n} (fin total, fin n, total >= n) => [n]Bit -> [total]Bit+extend n = zero # n++/**+ * Signed extension. `extendSigned 0bwxyz : [8] == 0bwwwwwxyz`.+ */+extendSigned : {total,n} (fin total, fin n, n >= 1, total >= n+1) => [n]Bit -> [total]Bit+extendSigned  xs = repeat (xs @ 0) # xs++/**+ * Repeat a value.+ */+repeat : {n, a} a -> [n]a+repeat x = [ x | _ <- zero ]++/**+ * `elem x xs` Returns true if x is equal to a value in xs.+ */+elem : {n,a} (fin n, Cmp a) => a -> [n]a -> Bit+elem a xs = any (\x -> x == a) xs++/**+ * Create a list of tuples from two lists.+ */+zip : {a,b,n} [n]a -> [n]b -> [n](a,b)+zip xs ys = [(x,y) | x <- xs | y <- ys]++/**+ * Create a list by applying the function to each pair of elements in the input.+ * lists+ */+zipWith : {a,b,c,n} (a -> b -> c) -> [n]a -> [n]b -> [n]c+zipWith f xs ys = [f x y | x <- xs | y <- ys]++/**+ * Transform a function into uncurried form.+ */+uncurry : {a,b,c} (a -> b -> c) -> (a,b) -> c+uncurry f = \(a,b) -> f a b++/**+ * Transform a function into curried form.+ */+curry : {a,b,c} ((a, b) -> c) -> a -> b -> c+curry f = \a b -> f (a,b)++/**+ * Map a function iteratively over a seed value, producing an infinite+ * list of successive function applications.+ */+iterate : { a } (a -> a) -> a -> [inf]a+iterate f x = [x] # [ f v | v <- iterate f x ]

@@ -2,11 +2,14 @@  module SHA512 where +/* sha512 : {b, a} (a*1024 == 128 + b + 1 + 1024 - (b+129) % 1024,                  a*1024 % 1024 == 0,                  a * 1024 - b >= 129,                  2^^128 - 1 >= b,                  fin (a + 1)) => [b] -> [512]++                 */ sha512 M = result   where     M' = (pad M)

@@ -1,179 +0,0 @@--- |--- Module      :  $Header$--- Copyright   :  (c) 2015-2016 Galois, Inc.--- License     :  BSD3--- Maintainer  :  cryptol@galois.com--- Stability   :  provisional--- Portability :  portable------ Orphan 'FromJSON' and 'ToJSON' instances for certain Cryptol--- types. Since these are meant to be consumed over a wire, they are--- mostly focused on base values and interfaces rather than a full--- serialization of internal ASTs and such.--{-# LANGUAGE ExtendedDefaultRules #-}-{-# LANGUAGE TemplateHaskell #-}-{-# LANGUAGE LambdaCase #-}-{-# LANGUAGE FlexibleInstances #-}-{-# LANGUAGE RecordWildCards #-}-{-# OPTIONS_GHC -Wall -fno-warn-orphans -fno-warn-type-defaults #-}-module Cryptol.Aeson where--import Control.Applicative-import Control.Exception-import Data.Aeson-import Data.Aeson.TH-import qualified Data.Map as M-import qualified Data.Text as T--import qualified Cryptol.Eval.Error as E-import qualified Cryptol.Eval.Value as E-import qualified Cryptol.ModuleSystem as M-import qualified Cryptol.ModuleSystem.Monad as M-import qualified Cryptol.ModuleSystem.Renamer as M-import Cryptol.ModuleSystem.Interface-import Cryptol.ModuleSystem.Name-import qualified Cryptol.Parser as P-import qualified Cryptol.Parser.AST as P-import qualified Cryptol.Parser.Lexer as P-import qualified Cryptol.Parser.NoInclude as P-import qualified Cryptol.Parser.NoPat as NoPat-import qualified Cryptol.Parser.Position as P-import Cryptol.REPL.Monad-import qualified Cryptol.Testing.Concrete as Test-import qualified Cryptol.TypeCheck.AST as T-import qualified Cryptol.TypeCheck.InferTypes as T-import Cryptol.Utils.Ident-import Cryptol.Utils.PP hiding (empty)--instance ToJSON Doc where-  toJSON = String . T.pack . render--instance ToJSON E.Value where-  toJSON = \case-    E.VRecord fs -> object-      [ "record" .= fs ]-    E.VTuple vs -> object-      [ "tuple" .= vs ]-    E.VBit b -> object-      [ "bit" .= b ]-    E.VSeq isWord xs -> object-      [ "sequence" .= object [ "isWord" .= isWord, "elements" .= xs ] ]-    E.VWord w -> object-      [ "word" .= w ]-    E.VStream _ -> object-      [ "stream" .= object [ "@note" .= "streams not supported" ] ]-    E.VFun _ -> object-      [ "function" .= object [ "@note" .= "functions not supported" ] ]-    E.VPoly _ -> object-      [ "poly" .= object [ "@note" .= "polymorphic values not supported" ] ]--instance FromJSON E.Value where-  parseJSON = withObject "Value" $ \o ->-        E.VRecord <$> o .: "record"-    <|> E.VTuple <$> o .: "tuple"-    <|> E.VBit <$> o .: "bit"-    <|> do s <- o .: "sequence"-           E.VSeq <$> s .: "isWord" <*> s .: "elements"-    <|> E.VWord <$> o .: "word"-    <|> error ("unexpected JSON value: " ++ show o)--instance ToJSON P.Token where-  toJSON = toJSON . pp--instance ToJSON REPLException where-  toJSON = \case-    ParseError pe -> object-      [ "ParseError" .= pe ]-    FileNotFound fp -> object-      [ "FileNotFound" .= fp ]-    DirectoryNotFound fp -> object-      [ "DirectoryNotFound" .= fp ]-    NoPatError npe -> object-      [ "NoPatError" .= npe ]-    NoIncludeError nie -> object-      [ "NoIncludeError" .= nie ]-    EvalError ee -> object-      [ "EvalError" .= ee ]-    ModuleSystemError _nameDisp me -> object-      [ "ModuleSystemError" .= me ]-    EvalPolyError sch -> object-      [ "EvalPolyError" .= sch ]-    TypeNotTestable ty -> object-      [ "TypeNotTestable" .= ty ]--instance ToJSON IOException where-  toJSON exn = object-    [ "IOException" .= show exn ]--instance ToJSON M.RenamerError where-  toJSON err = object-    [ "renamerError" .= pp err ]--instance ToJSON T.Error where-  toJSON err = object-    [ "inferError" .= pp err ]--instance ToJSON E.BV where-  toJSON = \case-    E.BV w v -> object-      [ "bitvector" .= object [ "width" .= w, "value" .= v ] ]--instance FromJSON E.BV where-  parseJSON = withObject "BV" $ \o -> do-    bv <- o .: "bitvector"-    E.BV <$> bv .: "width" <*> bv .: "value"--instance ToJSON Test.TestResult where-  toJSON = \case-    Test.Pass -> object [ "Pass" .= Null ]-    Test.FailFalse args -> object [ "FailFalse" .= args ]-    Test.FailError err args -> object-      [ "FailError" .= show (pp err), "args" .= args ]--instance (ToJSON v) => ToJSON (M.Map Name v) where-    toJSON = toJSON . M.mapKeys (unpackIdent . nameIdent)-    {-# INLINE toJSON #-}--$(deriveJSON defaultOptions { sumEncoding = ObjectWithSingleField } ''NameInfo)-$(deriveToJSON defaultOptions { sumEncoding = ObjectWithSingleField } ''E.EvalError)-$(deriveToJSON defaultOptions { sumEncoding = ObjectWithSingleField } ''P.ParseError)-$(deriveJSON defaultOptions { sumEncoding = ObjectWithSingleField } ''P.Position)-$(deriveToJSON defaultOptions { sumEncoding = ObjectWithSingleField } ''P.Located)-$(deriveToJSON defaultOptions { sumEncoding = ObjectWithSingleField } ''P.IncludeError)-$(deriveToJSON defaultOptions { sumEncoding = ObjectWithSingleField } ''P.Schema)-$(deriveToJSON defaultOptions { sumEncoding = ObjectWithSingleField } ''P.Type)-$(deriveToJSON defaultOptions { sumEncoding = ObjectWithSingleField } ''P.TParam)-$(deriveToJSON defaultOptions { sumEncoding = ObjectWithSingleField } ''P.Prop)-$(deriveToJSON defaultOptions { sumEncoding = ObjectWithSingleField } ''P.Named)-$(deriveToJSON defaultOptions { sumEncoding = ObjectWithSingleField } ''P.Kind)-$(deriveToJSON defaultOptions { sumEncoding = ObjectWithSingleField } ''NoPat.Error)-$(deriveToJSON defaultOptions { sumEncoding = ObjectWithSingleField } ''M.ModuleError)-$(deriveToJSON defaultOptions { sumEncoding = ObjectWithSingleField } ''M.ImportSource)-$(deriveToJSON defaultOptions { sumEncoding = ObjectWithSingleField } ''T.Import)-$(deriveToJSON defaultOptions { sumEncoding = ObjectWithSingleField } ''T.ImportSpec)-$(deriveToJSON defaultOptions { sumEncoding = ObjectWithSingleField } ''T.Type)-$(deriveToJSON defaultOptions { sumEncoding = ObjectWithSingleField } ''T.TParam)-$(deriveToJSON defaultOptions { sumEncoding = ObjectWithSingleField } ''T.Kind)-$(deriveToJSON defaultOptions { sumEncoding = ObjectWithSingleField } ''T.TVar)-$(deriveToJSON defaultOptions { sumEncoding = ObjectWithSingleField } ''T.TCon)-$(deriveToJSON defaultOptions { sumEncoding = ObjectWithSingleField } ''T.PC)-$(deriveToJSON defaultOptions { sumEncoding = ObjectWithSingleField } ''T.TC)-$(deriveToJSON defaultOptions { sumEncoding = ObjectWithSingleField } ''T.UserTC)-$(deriveToJSON defaultOptions { sumEncoding = ObjectWithSingleField } ''T.Schema)-$(deriveToJSON defaultOptions { sumEncoding = ObjectWithSingleField } ''T.TFun)-$(deriveToJSON defaultOptions { sumEncoding = ObjectWithSingleField } ''T.Selector)-$(deriveToJSON defaultOptions { sumEncoding = ObjectWithSingleField } { fieldLabelModifier = drop 1 } ''T.Fixity)-$(deriveToJSON defaultOptions { sumEncoding = ObjectWithSingleField } ''T.Pragma)-$(deriveToJSON defaultOptions { sumEncoding = ObjectWithSingleField } ''Assoc)-$(deriveToJSON defaultOptions { sumEncoding = ObjectWithSingleField } ''Name)-$(deriveToJSON defaultOptions { sumEncoding = ObjectWithSingleField } ''IfaceDecl)-$(deriveToJSON defaultOptions { sumEncoding = ObjectWithSingleField } ''T.Newtype)-$(deriveToJSON defaultOptions { sumEncoding = ObjectWithSingleField } ''T.TySyn)-$(deriveToJSON defaultOptions { sumEncoding = ObjectWithSingleField } ''IfaceDecls)-$(deriveToJSON defaultOptions { sumEncoding = ObjectWithSingleField } ''Iface)-$(deriveJSON defaultOptions { sumEncoding = ObjectWithSingleField } ''P.Ident)-$(deriveJSON defaultOptions { sumEncoding = ObjectWithSingleField } ''P.Range)-$(deriveToJSON defaultOptions { sumEncoding = ObjectWithSingleField } ''P.PName)-$(deriveToJSON defaultOptions { sumEncoding = ObjectWithSingleField } ''P.Pass)-$(deriveToJSON defaultOptions { sumEncoding = ObjectWithSingleField } ''Test.TestReport)

@@ -1,386 +0,0 @@--- |--- Module      :  $Header$--- Copyright   :  (c) 2015-2016 Galois, Inc.--- License     :  BSD3--- Maintainer  :  cryptol@galois.com--- Stability   :  provisional--- Portability :  portable------ Alpha version of a Cryptol server that communicates via JSON over--- ZeroMQ. This API is highly unstable and extremely likely to change--- in the near future.--{-# LANGUAGE CPP #-}-{-# LANGUAGE ExtendedDefaultRules #-}-{-# LANGUAGE GeneralizedNewtypeDeriving #-}-{-# LANGUAGE LambdaCase #-}-{-# LANGUAGE RecordWildCards #-}-{-# OPTIONS_GHC -Wall -fno-warn-type-defaults #-}-module Main where--import Control.Concurrent-import Control.Monad-import Control.Monad.IO.Class-import Control.Monad.Trans.Control-import qualified Control.Exception as X-import Data.Aeson-import Data.Aeson.Encode.Pretty-import qualified Data.ByteString.Char8 as BS-import qualified Data.ByteString.Lazy.Char8 as BSL-import Data.Char-import Data.IORef-import Data.Map (Map)-import qualified Data.Map as Map-import Data.Text (Text)-import qualified Data.Text as T-import Data.Word-import Options.Applicative-import System.Environment-import System.Exit-import System.FilePath-import System.Posix.Signals-import System.ZMQ4-import Text.Read--import qualified Cryptol.Eval.Value as E-import Cryptol.REPL.Command-import Cryptol.REPL.Monad-import Cryptol.Symbolic (ProverResult(..))-import qualified Cryptol.Testing.Concrete as Test-import qualified Cryptol.TypeCheck.AST as T-import qualified Cryptol.ModuleSystem as M-import Cryptol.Utils.PP hiding ((<>))--import Cryptol.Aeson ()--import Prelude ()-import Prelude.Compat--data RCommand-  = RCEvalExpr Text-  | RCApplyFun FunHandle E.Value-  | RCTypeOf Text-  | RCSetOpt Text Text-  | RCCheck Text-  | RCExhaust Text-  | RCProve Text-  | RCSat Text-  | RCLoadPrelude-  | RCLoadModule FilePath-  | RCDecls-  | RCUnknownCmd Text-  | RCExit--instance FromJSON RCommand where-  parseJSON = withObject "RCommand" $ \o -> do-    tag <- o .: "tag"-    flip (withText "tag") tag $ \case-      "evalExpr"    -> RCEvalExpr              <$> o .: "expr"-      "applyFun"    -> RCApplyFun              <$> o .: "handle" <*> o .: "arg"-      "typeOf"      -> RCTypeOf                <$> o .: "expr"-      "setOpt"      -> RCSetOpt                <$> o .: "key" <*> o .: "value"-      "check"       -> RCCheck                 <$> o .: "expr"-      "exhaust"     -> RCExhaust               <$> o .: "expr"-      "prove"       -> RCProve                 <$> o .: "expr"-      "sat"         -> RCSat                   <$> o .: "expr"-      "loadPrelude" -> return RCLoadPrelude-      "loadModule"  -> RCLoadModule . T.unpack <$> o .: "filePath"-      "browse"      -> return RCDecls-      "exit"        -> return RCExit-      unknown       -> return (RCUnknownCmd unknown)--newtype FunHandle = FH Int-  deriving (Eq, Ord, Enum, Bounded, Show)--instance ToJSON FunHandle where-  toJSON (FH i) = toJSON i--instance FromJSON FunHandle where-  parseJSON v = FH <$> parseJSON v--data RResult-  = RRValue E.Value-  | RRFunValue FunHandle T.Type-  | RRType T.Schema String -- pretty-printed type-  | RRDecls M.IfaceDecls-  | RRCheck [Test.TestReport]-  | RRExhaust [Test.TestReport]-  | RRSat [[E.Value]]-    -- ^ A list of satisfying assignments. Empty list means unsat, max-    -- length determined by @satNum@ interpreter option-  | RRProve (Maybe [E.Value])-    -- ^ Counterexample if invalid or 'Nothing' if valid-  | RRProverError String-  | RRInteractiveError REPLException String -- pretty-printed exception-  | RRUnknownCmd Text-  | RRBadMessage BS.ByteString String-  | RROk-  | RRInterrupted--instance ToJSON RResult where-  toJSON = \case-    RRValue v -> object-      [ "tag" .= "value", "value" .= v ]-    RRFunValue fh t -> object-      [ "tag" .= "funValue", "handle" .= fh, "type" .= t ]-    RRType s pps -> object-      [ "tag" .= "type", "value" .= s, "pp" .= pps ]-    RRDecls ifds -> object-      [ "tag" .= "decls", "decls" .= ifds ]-    RRCheck out -> object-      [ "tag" .= "check", "testReport" .= out ]-    RRExhaust out -> object-      [ "tag" .= "exhaust", "testReport" .= out ]-    RRSat out -> object-      [ "tag" .= "sat", "assignments" .= out ]-    RRProve out -> object-      [ "tag" .= "prove", "counterexample" .= out ]-    RRProverError msg -> object-      [ "tag" .= "proverError", "message" .= msg ]-    RRInteractiveError err pps -> object-      [ "tag" .= "interactiveError", "error" .= err, "pp" .= pps ]-    RRUnknownCmd txt -> object-      [ "tag" .= "unknownCommand", "command" .= txt ]-    RRBadMessage msg err -> object-      [ "tag" .= "badMessage", "message" .= BS.unpack msg, "error" .= err ]-    RROk -> object-      [ "tag" .= "ok" ]-    RRInterrupted -> object-      [ "tag" .= "interrupted" ]--data ControlMsg-  = CMConnect-    -- ^ Request a new Cryptol context and connection-  | CMInterrupt Word16-    -- ^ Request an interrupt of all current Cryptol contexts-  | CMExit-    -- ^ Request that the entire server shut down-  | CMUnknown Text-    -- ^ Unknown message--instance FromJSON ControlMsg where-  parseJSON = withObject "ControlMsg" $ \o -> do-    tag <- o .: "tag"-    flip (withText "tag") tag $ \case-      "connect" -> return CMConnect-      "interrupt" -> CMInterrupt <$> o .: "port"-      "exit" -> return CMExit-      other -> return $ CMUnknown other--data ControlReply-  = CRConnect Word16-    -- ^ Return the port for a new connection-  | CRInterrupted-    -- ^ Acknowledge receipt of an interrupt command-  | CRExiting-    -- ^ Acknowledge receipt of an exit command-  | CRBadMessage BS.ByteString String-    -- ^ Acknowledge receipt of an ill-formed control message--instance ToJSON ControlReply where-  toJSON = \case-    CRConnect port -> object-      [ "tag" .= "connect", "port" .= port ]-    CRInterrupted -> object-      [ "tag" .= "interrupted" ]-    CRExiting -> object-      [ "tag" .= "exiting" ]-    CRBadMessage msg err -> object-      [ "tag" .= "badMessage", "message" .= BS.unpack msg, "error" .= err ]--server :: Word16 -> IO ()-server port =-  withContext $ \ctx ->-  withSocket ctx Rep $ \rep -> do-  let addr = "tcp://127.0.0.1:" ++ show port-  putStrLn ("[cryptol-server] coming online at " ++ addr)-  bind rep addr-  workers <- newIORef Map.empty-  let loop = do-        msg <- receive rep-        putStrLn "[cryptol-server] received message:"-        case decodeStrict msg of-          Nothing -> BS.putStrLn msg-          Just js -> BSL.putStrLn (encodePretty (js :: Value))-        case eitherDecodeStrict msg of-          Left err -> reply rep $ CRBadMessage msg err-          Right CMConnect -> do-            putStrLn "[cryptol-server] handling new incoming connection"-            newRep <- socket ctx Rep-            bind newRep "tcp://127.0.0.1:*"-            newAddr <- lastEndpoint newRep-            let portStr = reverse . takeWhile isDigit . reverse $ newAddr-                workerPort = read portStr-            putStrLn ("[cryptol-server] starting worker on interface " ++ newAddr)-            tid <- forkFinally (runRepl newRep) (removeWorker workers port)-            addNewWorker workers workerPort tid-            reply rep $ CRConnect workerPort-          Right (CMInterrupt port') -> do-            s <- readIORef workers-            case Map.lookup port' s of-              Nothing -> reply rep $ CRBadMessage msg "invalid worker port"-              Just tid -> do-                throwTo tid X.UserInterrupt-                reply rep $ CRInterrupted-          Right CMExit -> do-            putStrLn "[cryptol-server] shutting down"-            reply rep $ CRExiting-            exitSuccess-          Right (CMUnknown cmd) -> do-            putStrLn ("[cryptol-server] unknown control command: " ++ T.unpack cmd)-            reply rep $ CRBadMessage msg "unknown control command"-        loop-  loop--reply :: (ToJSON a, MonadIO m) => Socket Rep -> a -> m ()-reply rep msg = liftIO $ do-  let bmsg = BS.concat . BSL.toChunks . encodePretty $ msg-  putStrLn "[cryptol-server] sending response:"-  BS.putStrLn bmsg-  send rep [] bmsg--addNewWorker :: IORef (Map Word16 ThreadId) -> Word16 -> ThreadId -> IO ()-addNewWorker workers port tid =-  atomicModifyIORef workers $ \s -> (Map.insert port tid s, ())--removeWorker :: IORef (Map Word16 ThreadId) -> Word16 -> a -> IO ()-removeWorker workers port _result =-  atomicModifyIORef workers $ \s -> (Map.delete port s, ())--runRepl :: Socket Rep -> IO ()-runRepl rep = runREPL False $ do -- TODO: batch mode?-  mCryptolPath <- io $ lookupEnv "CRYPTOLPATH"-  case mCryptolPath of-    Nothing -> return ()-    Just path -> prependSearchPath path'-#if defined(mingw32_HOST_OS) || defined(__MINGW32__)-      -- Windows paths search from end to beginning-      where path' = reverse (splitSearchPath path)-#else-      where path' = splitSearchPath path-#endif-  funHandles <- io $ newIORef (Map.empty, minBound :: FunHandle)-  let handle err = reply rep (RRInteractiveError err (show (pp err)))-      handleAsync :: X.AsyncException -> IO ()-      handleAsync _int = reply rep RRInterrupted-      loop = liftBaseWith $ \run -> X.handle handleAsync $ run $ do-        msg <- io $ receive rep-        io $ putStrLn "[cryptol-worker] received message:"-        case decodeStrict msg of-          Nothing -> io $ BS.putStrLn msg-          Just js -> io $ BSL.putStrLn (encodePretty (js :: Value))-        flip catch handle $ case eitherDecodeStrict msg of-          Left cmdErr -> reply rep (RRBadMessage msg cmdErr)-          Right rc -> case rc of-            RCEvalExpr txt -> do-              expr <- replParseExpr (T.unpack txt)-              (val, ty) <- replEvalExpr expr-              case val of-                E.VFun f -> do-                  fh <- io $ atomicModifyIORef' funHandles $ \(m, fh) ->-                    let m' = Map.insert fh f m-                        fh' = succ fh-                    in ((m', fh'), fh)-                  reply rep (RRFunValue fh ty)-                _ -> reply rep (RRValue val)-            RCApplyFun fh arg -> do-              (m, _) <- io $ readIORef funHandles-              case Map.lookup fh m of-                Nothing -> reply rep (RRBadMessage "invalid function handle" (show fh))-                Just f -> do-                  case f arg of-                    E.VFun g -> do-                      gh <- io $ atomicModifyIORef' funHandles $ \(m', gh) ->-                        let m'' = Map.insert gh g m'-                            gh' = succ gh-                        in ((m'', gh'), gh)-                      -- TODO: bookkeeping to track the type of this value-                      reply rep (RRFunValue gh T.tZero)-                    val -> reply rep (RRValue val)-            RCTypeOf txt -> do-              expr <- replParseExpr (T.unpack txt)-              (_expr, _def, sch) <- replCheckExpr expr-              reply rep (RRType sch (show (pp sch)))-            RCSetOpt key val -> do-              setOptionCmd (T.unpack key ++ "=" ++ T.unpack val)-              reply rep RROk-            RCCheck expr -> do-              reports <- qcCmd QCRandom (T.unpack expr)-              reply rep (RRCheck reports)-            RCExhaust expr -> do-              reports <- qcCmd QCExhaust (T.unpack expr)-              reply rep (RRExhaust reports)-            RCProve expr -> do-              result <- onlineProveSat False (T.unpack expr) Nothing-              case result of-                AllSatResult [cex] ->-                  reply rep (RRProve (Just (map (\(_,_,v) -> v) cex)))-                ThmResult _ ->-                  reply rep (RRProve Nothing)-                ProverError err ->-                  reply rep (RRProverError err)-                _ ->-                  reply rep (RRProverError "unexpected prover result")-            RCSat expr ->  do-              result <- onlineProveSat True (T.unpack expr) Nothing-              case result of-                AllSatResult sas ->-                  reply rep (RRSat (map (map (\(_,_,v) -> v)) sas))-                ThmResult _ ->-                  reply rep (RRSat [])-                ProverError err ->-                  reply rep (RRProverError err)-                _ ->-                  reply rep (RRProverError "unexpected prover result")-            RCLoadPrelude -> do-              loadPrelude-              reply rep RROk-            RCLoadModule fp -> do-              loadCmd fp-              reply rep RROk-            RCDecls -> do-              (decls, _namingEnv, _nameDisp) <- getFocusedEnv-              reply rep (RRDecls decls)-            RCUnknownCmd cmd -> reply rep (RRUnknownCmd cmd)-            RCExit -> do-              reply rep RROk-              io $ close rep-              io $ putStrLn "[cryptol-worker] shutting down"-  void $ forever loop--withCapturedOutput :: REPL a -> REPL (a, String)-withCapturedOutput m = do-  old <- getPutStr-  buf <- io $ newIORef ""-  setPutStr $ \s -> modifyIORef' buf (++ s)-  x <- m-  s <- io $ readIORef buf-  setPutStr old-  return (x, s)--data Server = Server { serverPort :: Word16-                     , serverMaskSIGINT :: Bool }-  deriving Show--main :: IO ()-main = execParser opts >>= mainWith-  where-    opts =-      info (helper <*> serverOpts)-           ( fullDesc-          <> progDesc "Run Cryptol as a server via ZeroMQ and JSON"-          <> header "cryptol-server" )-    serverOpts =-      Server-      <$> option auto-         ( long "port"-        <> short 'p'-        <> metavar "PORT"-        <> value 5555-        <> help "TCP port to bind" )-      <*> switch-         ( long "mask-interrupts"-        <> help "Suppress interrupt signals" )-    mainWith Server {..} = do-      when serverMaskSIGINT $ void $ installHandler sigINT Ignore Nothing-      server serverPort

@@ -1,5 +1,5 @@ Name:                cryptol-Version:             2.4.0+Version:             2.5.0 Synopsis:            Cryptol: The Language of Cryptography Description: Cryptol is a domain-specific language for specifying cryptographic algorithms. A Cryptol implementation of an algorithm resembles its mathematical specification more closely than an implementation in a general purpose language. For more, see <http://www.cryptol.net/>. License:             BSD3@@ -8,13 +8,13 @@ Maintainer:          cryptol@galois.com Homepage:            http://www.cryptol.net/ Bug-reports:         https://github.com/GaloisInc/cryptol/issues-Copyright:           2013-2016 Galois Inc.+Copyright:           2013-2017 Galois Inc. Category:            Language Build-type:          Simple Cabal-version:       >= 1.18 extra-source-files:  bench/data/*.cry -data-files:          *.cry Cryptol/*.cry+data-files:          *.cry Cryptol/*.cry *.z3 data-dir:            lib  source-repository head@@ -24,7 +24,7 @@ source-repository this   type:     git   location: https://github.com/GaloisInc/cryptol.git-  tag:      2.4.0+  tag:      2.5.0  flag static   default: False@@ -34,9 +34,10 @@   default: True   description: Don't use the Cabal-provided data directory for looking up Cryptol libraries. This is useful when the data directory can't be known ahead of time, like for a relocatable distribution. -flag server-  default: False-  description: Build with the ZeroMQ/JSON cryptol-server executable+-- Note: the Cryptol server needs to be updated to some new APIs.+--flag server+--  default: False+--  description: Build with the ZeroMQ/JSON cryptol-server executable  library   Default-language:@@ -61,16 +62,18 @@                        process           >= 1.2,                        QuickCheck        >= 2.7,                        random            >= 1.0.1,-                       sbv               >= 5.12,+                       sbv               >= 7.0,                        smtLib            >= 1.0.7,-                       simple-smt        >= 0.6.0,+                       simple-smt        >= 0.7.0,                        syb               >= 0.4,                        text              >= 1.1,                        template-haskell,                        tf-random         >= 0.5,                        transformers      >= 0.3,                        transformers-base >= 0.4,-                       utf8-string       >= 0.3+                       utf8-string       >= 0.3,+                       mtl               >= 2.2.1,+                       time >= 1.6.0.1    Build-tools:         alex, happy   hs-source-dirs:      src@@ -94,6 +97,7 @@                        Cryptol.Utils.Panic,                        Cryptol.Utils.Debug,                        Cryptol.Utils.Misc,+                       Cryptol.Utils.Patterns,                        Cryptol.Version,                         Cryptol.ModuleSystem,@@ -106,6 +110,9 @@                        Cryptol.ModuleSystem.Renamer,                         Cryptol.TypeCheck,+                       Cryptol.TypeCheck.Type,+                       Cryptol.TypeCheck.TypePat,+                       Cryptol.TypeCheck.SimpType,                        Cryptol.TypeCheck.AST,                        Cryptol.TypeCheck.Monad,                        Cryptol.TypeCheck.Infer,@@ -117,16 +124,20 @@                        Cryptol.TypeCheck.Depends,                        Cryptol.TypeCheck.PP,                        Cryptol.TypeCheck.Solve,+                       Cryptol.TypeCheck.SimpleSolver,                        Cryptol.TypeCheck.TypeMap,                        Cryptol.TypeCheck.TypeOf,                        Cryptol.TypeCheck.Sanity, +                       Cryptol.TypeCheck.Solver.Types,+                       Cryptol.TypeCheck.Solver.SMT,                        Cryptol.TypeCheck.Solver.InfNat,                        Cryptol.TypeCheck.Solver.Class,                        Cryptol.TypeCheck.Solver.Selector,                        Cryptol.TypeCheck.Solver.Utils,-                       Cryptol.TypeCheck.Solver.Simplify, +                       Cryptol.TypeCheck.Solver.Numeric,+                       Cryptol.TypeCheck.Solver.Improve,                        Cryptol.TypeCheck.Solver.CrySAT,                        Cryptol.TypeCheck.Solver.Numeric.AST,                        Cryptol.TypeCheck.Solver.Numeric.ImportExport,@@ -134,7 +145,6 @@                        Cryptol.TypeCheck.Solver.Numeric.Fin,                        Cryptol.TypeCheck.Solver.Numeric.Interval,                        Cryptol.TypeCheck.Solver.Numeric.Simplify,-                       Cryptol.TypeCheck.Solver.Numeric.Simplify1,                        Cryptol.TypeCheck.Solver.Numeric.SimplifyExpr,                        Cryptol.TypeCheck.Solver.Numeric.NonLin,                        Cryptol.TypeCheck.Solver.Numeric.SMT,@@ -145,7 +155,8 @@                        Cryptol.Eval,                        Cryptol.Eval.Arch,                        Cryptol.Eval.Env,-                       Cryptol.Eval.Error,+                       Cryptol.Eval.Monad,+                       Cryptol.Eval.Reference,                        Cryptol.Eval.Type,                        Cryptol.Eval.Value, @@ -196,10 +207,10 @@                      , monad-control                      , process                      , random-                     , sbv+                     , sbv >= 7.0                      , tf-random                      , transformers-  GHC-options:         -Wall -O2 -threaded -rtsopts -with-rtsopts=-N1+  GHC-options:         -Wall -O2 -threaded -rtsopts "-with-rtsopts=-N1 -A64m"   if impl(ghc >= 8.0.1)      ghc-options: -Wno-redundant-constraints   ghc-prof-options:    -auto-all -rtsopts@@ -207,43 +218,44 @@   if os(linux) && flag(static)       ld-options:      -static -pthread -executable cryptol-server-  main-is:             Main.hs-  hs-source-dirs:      cryptol-server-  other-modules:       Cryptol.Aeson-  default-language:    Haskell2010-  default-extensions:  OverloadedStrings-  GHC-options:         -Wall -O2 -threaded -rtsopts -with-rtsopts=-N1-  if impl(ghc >= 8.0.1)-     ghc-options: -Wno-redundant-constraints-  ghc-prof-options:    -auto-all -rtsopts-  if os(linux) && flag(static)-      ld-options:      -static -pthread-  if flag(server)-     build-depends: aeson >= 0.10-                  , aeson-pretty >= 0.7-                  , base-                  , base-compat-                  , bytestring >= 0.10-                  , containers-                  , cryptol-                  , filepath-                  , monad-control-                  , optparse-applicative >= 0.12-                  , text-                  , transformers-                  , unix-                  , unordered-containers >= 0.2-                  , zeromq4-haskell >= 0.6-  else-      buildable: False+-- Note: the Cryptol server needs to be updated to some new APIs.+--executable cryptol-server+--  main-is:             Main.hs+--  hs-source-dirs:      cryptol-server+--  other-modules:       Cryptol.Aeson+--  default-language:    Haskell2010+--  default-extensions:  OverloadedStrings+--  GHC-options:         -Wall -O2 -threaded -rtsopts "-with-rtsopts=-N1 -A64m"+--  if impl(ghc >= 8.0.1)+--     ghc-options: -Wno-redundant-constraints+--  ghc-prof-options:    -auto-all -rtsopts+--  if os(linux) && flag(static)+--      ld-options:      -static -pthread+--  if flag(server)+--     build-depends: aeson >= 0.10+--                  , aeson-pretty >= 0.7+--                  , base+--                  , base-compat+--                  , bytestring >= 0.10+--                  , containers+--                  , cryptol+--                  , filepath+--                  , monad-control+--                  , optparse-applicative >= 0.12+--                  , text+--                  , transformers+--                  , unix+--                  , unordered-containers >= 0.2+--                  , zeromq4-haskell >= 0.6+--  else+--      buildable: False  benchmark cryptol-bench   type:                exitcode-stdio-1.0   main-is:             Main.hs   hs-source-dirs:      bench   default-language:    Haskell2010-  GHC-options:         -Wall -O2 -threaded -rtsopts -with-rtsopts=-N+  GHC-options:         -Wall -O2 -threaded -rtsopts "-with-rtsopts=-N1 -A64m"   if impl(ghc >= 8.0.1)      ghc-options: -Wno-redundant-constraints   ghc-prof-options:    -auto-all -rtsopts@@ -253,4 +265,7 @@                      , criterion                      , cryptol                      , deepseq+                     , directory+                     , filepath+                     , sbv >= 7.0                      , text

@@ -13,7 +13,7 @@  import OptParser -import Cryptol.REPL.Command (loadCmd,loadPrelude)+import Cryptol.REPL.Command (loadCmd,loadPrelude,CommandExitCode(..)) import Cryptol.REPL.Monad (REPL,updateREPLTitle,setUpdateREPLTitle,                    io,prependSearchPath,setSearchPath) import qualified Cryptol.REPL.Monad as REPL@@ -33,7 +33,7 @@     (OptDescr(..),ArgOrder(..),ArgDescr(..),getOpt,usageInfo) import System.Directory (getTemporaryDirectory, removeFile) import System.Environment (getArgs, getProgName, lookupEnv)-import System.Exit (exitFailure)+import System.Exit (exitFailure,exitSuccess) import System.FilePath (searchPathSeparator, splitSearchPath, takeDirectory) import System.IO (hClose, hPutStr, openTempFile) @@ -41,14 +41,19 @@ import Prelude () import Prelude.Compat +data ColorMode = AutoColor | NoColor | AlwaysColor+  deriving (Show, Eq)+ data Options = Options   { optLoad            :: [FilePath]   , optVersion         :: Bool   , optHelp            :: Bool   , optBatch           :: Maybe FilePath   , optCommands        :: [String]+  , optColorMode       :: ColorMode   , optCryptolrc       :: Cryptolrc   , optCryptolPathOnly :: Bool+  , optStopOnError     :: Bool   } deriving (Show)  defaultOptions :: Options@@ -58,8 +63,10 @@   , optHelp            = False   , optBatch           = Nothing   , optCommands        = []+  , optColorMode       = AutoColor   , optCryptolrc       = CryrcDefault   , optCryptolPathOnly = False+  , optStopOnError     = False   }  options :: [OptDescr (OptParser Options)]@@ -67,12 +74,20 @@   [ Option "b" ["batch"] (ReqArg setBatchScript "FILE")     "run the script provided and exit" +  , Option "e" ["stop-on-error"] (NoArg setStopOnError)+    "stop script execution as soon as an error occurs."+   , Option "c" ["command"] (ReqArg addCommand "COMMAND")     (concat [ "run the given command and then exit; if multiple --command "             , "arguments are given, run them in the order they appear "             , "on the command line (overrides --batch)"             ]) +  , Option "" ["color"] (ReqArg setColorMode "MODE")+    (concat [ "control the color output for the terminal, which may be "+            , "'auto', 'none' or 'always' (default: 'auto')"+            ])+   , Option "v" ["version"] (NoArg setVersion)     "display version number" @@ -99,10 +114,21 @@ addCommand cmd =   modify $ \ opts -> opts { optCommands = cmd : optCommands opts } +-- | Stop script (batch mode) execution on first error.+setStopOnError :: OptParser Options+setStopOnError = modify $ \opts -> opts { optStopOnError = True }+ -- | Set a batch script to be run. setBatchScript :: String -> OptParser Options setBatchScript path = modify $ \ opts -> opts { optBatch = Just path } +-- | Set the color mode of the terminal output.+setColorMode :: String -> OptParser Options+setColorMode "auto"   = modify $ \ opts -> opts { optColorMode = AutoColor }+setColorMode "none"   = modify $ \ opts -> opts { optColorMode = NoColor }+setColorMode "always" = modify $ \ opts -> opts { optColorMode = AlwaysColor }+setColorMode x        = OptFailure ["invalid color mode: " ++ x ++ "\n"]+ -- | Signal that version should be displayed. setVersion :: OptParser Options setVersion  = modify $ \ opts -> opts { optVersion = True }@@ -180,13 +206,18 @@       | optVersion opts -> displayVersion       | otherwise       -> do           (opts', mCleanup) <- setupCmdScript opts-          repl (optCryptolrc opts')-               (optBatch opts')-               (setupREPL opts')+          status <- repl (optCryptolrc opts')+                         (optBatch opts')+                         (optStopOnError opts')+                         (setupREPL opts')           case mCleanup of             Nothing -> return ()             Just cmdFile -> removeFile cmdFile +          case status of+            CommandError -> exitFailure+            CommandOk    -> exitSuccess+ setupCmdScript :: Options -> IO (Options, Maybe FilePath) setupCmdScript opts =   case optCommands opts of@@ -202,16 +233,6 @@  setupREPL :: Options -> REPL () setupREPL opts = do-  smoke <- REPL.smokeTest-  case smoke of-    [] -> return ()-    _  -> io $ do-      print (hang "Errors encountered on startup; exiting:"-                4 (vcat (map pp smoke)))-      exitFailure-  displayLogo True-  setUpdateREPLTitle setREPLTitle-  updateREPLTitle   mCryptolPath <- io $ lookupEnv "CRYPTOLPATH"   case mCryptolPath of     Nothing -> return ()@@ -223,6 +244,22 @@ #else       where path' = splitSearchPath path #endif+  smoke <- REPL.smokeTest+  case smoke of+    [] -> return ()+    _  -> io $ do+      print (hang "Errors encountered on startup; exiting:"+                4 (vcat (map pp smoke)))+      exitFailure++  color <- case optColorMode opts of+    AlwaysColor -> return True+    NoColor     -> return False+    AutoColor   -> canDisplayColor+  displayLogo color++  setUpdateREPLTitle (shouldSetREPLTitle >>= \b -> when b setREPLTitle)+  updateREPLTitle   case optBatch opts of     Nothing -> return ()     -- add the directory containing the batch file to the module search path@@ -230,8 +267,14 @@   case optLoad opts of     []  -> loadPrelude `REPL.catch` \x -> io $ print $ pp x     [l] -> loadCmd l `REPL.catch` \x -> do-           io $ print $ pp x-           -- If the requested file fails to load, load the prelude instead-           loadPrelude `REPL.catch` \y -> do-           io $ print $ pp y+             io $ print $ pp x+             -- If the requested file fails to load, load the prelude instead...+             loadPrelude `REPL.catch` \y -> do+               io $ print $ pp y+             -- ... but make sure the loaded module is set to the file+             -- we tried, instead of the Prelude+             REPL.setLoadedMod REPL.LoadedModule+               { REPL.lName = Nothing+               , REPL.lPath = l+               }     _   -> io $ putStrLn "Only one file may be loaded at the command line."

@@ -18,13 +18,15 @@ import           Cryptol.Utils.PP  import qualified Control.Exception as X-import           Control.Monad (guard, join, when)+import           Control.Monad (guard, join) import qualified Control.Monad.Trans.Class as MTL import           Control.Monad.Trans.Control import           Data.Char (isAlphaNum, isSpace)+import           Data.Maybe(isJust) import           Data.Function (on) import           Data.List (isPrefixOf,nub,sortBy,sort)-import           System.Console.ANSI (setTitle)+import           System.IO (stdout)+import           System.Console.ANSI (setTitle, hSupportsANSI) import           System.Console.Haskeline import           System.Directory ( doesFileExist                                   , getHomeDirectory@@ -34,72 +36,89 @@ import           Prelude () import           Prelude.Compat --- | Haskeline-specific repl implementation.-repl :: Cryptolrc -> Maybe FilePath -> REPL () -> IO ()-repl cryrc mbBatch begin =-  do settings <- setHistoryFile (replSettings isBatch)-     runREPL isBatch (runInputTBehavior behavior settings body)-  where-  body = withInterrupt $ do-    MTL.lift evalCryptolrc-    MTL.lift begin-    loop +-- | One REPL invocation, either form a file or from the terminal.+crySession :: Maybe FilePath -> Bool -> REPL CommandExitCode+crySession mbBatch stopOnError =+  do settings <- io (setHistoryFile (replSettings isBatch))+     let act = runInputTBehavior behavior settings (withInterrupt loop)+     if isBatch then asBatch act else act+  where   (isBatch,behavior) = case mbBatch of     Nothing   -> (False,defaultBehavior)     Just path -> (True,useFile path) -  loop = do-    prompt <- MTL.lift getPrompt-    mb     <- handleInterrupt (return (Just "")) (getInputLines prompt [])-    case mb of+  loop :: InputT REPL CommandExitCode+  loop =+    do ln <- getInputLines =<< MTL.lift getPrompt+       case ln of+         NoMoreLines -> return CommandOk+         Interrupted+           | isBatch && stopOnError -> return CommandError+           | otherwise -> loop+         NextLine line+           | all isSpace line -> loop+           | otherwise        -> doCommand line -      Just line-        | Just cmd <- parseCommand findCommandExact line -> do-          continue <- MTL.lift $ do-            handleInterrupt handleCtrlC (runCommand cmd)-            shouldContinue-          when continue loop+  doCommand txt =+    case parseCommand findCommandExact txt of+      Nothing | isBatch && stopOnError  -> return CommandError+              | otherwise -> loop -- say somtething?+      Just cmd -> join $ MTL.lift $+        do status <- handleInterrupt (handleCtrlC CommandError) (runCommand cmd)+           case status of+             CommandError | isBatch && stopOnError -> return (return status)+             _ -> do goOn <- shouldContinue+                     return (if goOn then loop else return status) -        | otherwise -> loop -      Nothing -> return ()+data NextLine = NextLine String | NoMoreLines | Interrupted -  getInputLines prompt ls =+getInputLines :: String -> InputT REPL NextLine+getInputLines = handleInterrupt (MTL.lift (handleCtrlC Interrupted)) . loop []+  where+  loop ls prompt =     do mb <- getInputLine prompt        let newPropmpt = map (\_ -> ' ') prompt        case mb of-          Nothing -> return Nothing-          Just l | not (null l) && last l == '\\' ->-                                      getInputLines newPropmpt (init l : ls)-                 | otherwise -> return $ Just $ unlines $ reverse $ l : ls+         Nothing -> return NoMoreLines+         Just l+           | not (null l) && last l == '\\' -> loop (init l : ls) newPropmpt+           | otherwise -> return $ NextLine $ unlines $ reverse $ l : ls -  evalCryptolrc =-    case cryrc of-      CryrcDefault -> do-        here <- io $ getCurrentDirectory-        home <- io $ getHomeDirectory-        let dcHere = here </> ".cryptolrc"-            dcHome = home </> ".cryptolrc"-        isHere <- io $ doesFileExist dcHere-        isHome <- io $ doesFileExist dcHome-        if | isHere    -> slurp dcHere-           | isHome    -> slurp dcHome-           | otherwise -> whenDebug $ io $ putStrLn "no .cryptolrc found"-      CryrcFiles paths -> mapM_ slurp paths-      CryrcDisabled -> return ()+loadCryRC :: Cryptolrc -> REPL CommandExitCode+loadCryRC cryrc =+  case cryrc of+    CryrcDisabled   -> return CommandOk+    CryrcDefault    -> check [ getCurrentDirectory, getHomeDirectory ]+    CryrcFiles opts -> loadMany opts+  where+  check [] = return CommandOk+  check (place : others) =+    do dir <- io place+       let file = dir </> ".cryptolrc"+       present <- io (doesFileExist file)+       if present+         then crySession (Just file) True+         else check others -  -- | Actually read the contents of a file, but don't save the-  -- history-  ---  -- XXX: friendlier error message would be nice if the file can't be-  -- found, but since these will be specified on the command line it-  -- should be obvious what's going wrong-  slurp path = do-    let settings' = defaultSettings { autoAddHistory = False }-    runInputTBehavior (useFile path) settings' (withInterrupt loop)+  loadMany []       = return CommandOk+  loadMany (f : fs) = do status <- crySession (Just f) True+                         case status of+                           CommandOk -> loadMany fs+                           _         -> return status +-- | Haskeline-specific repl implementation.+repl :: Cryptolrc -> Maybe FilePath -> Bool -> REPL () -> IO CommandExitCode+repl cryrc mbBatch stopOnError begin =+  runREPL (isJust mbBatch) $+  do status <- loadCryRC cryrc+     case status of+       CommandOk -> begin >> crySession mbBatch stopOnError+       _         -> return status ++ -- | Try to set the history file. setHistoryFile :: Settings REPL -> IO (Settings REPL) setHistoryFile ss =@@ -150,6 +169,22 @@ setREPLTitle = do   lm <- getLoadedMod   io (setTitle (mkTitle lm))++-- | In certain environments like Emacs, we shouldn't set the terminal+-- title. Note: this does not imply we can't use color output. We can+-- use ANSI color sequences in places like Emacs, but not terminal+-- codes.+--+-- This checks that @'stdout'@ is a proper terminal handle, and that the+-- terminal mode is not @dumb@, which is set by Emacs and others.+shouldSetREPLTitle :: REPL Bool+shouldSetREPLTitle = io (hSupportsANSI stdout)++-- | Whether we can display color titles. This checks that @'stdout'@+-- is a proper terminal handle, and that the terminal mode is not+-- @dumb@, which is set by Emacs and others.+canDisplayColor :: REPL Bool+canDisplayColor = io (hSupportsANSI stdout)  -- Completion ------------------------------------------------------------------ 

@@ -49,4 +49,4 @@   lineLen   = length (head ls)  displayLogo :: Bool -> REPL ()-displayLogo useColor =unlessBatch (io (mapM_ putStrLn (logo useColor)))+displayLogo useColor = unlessBatch (io (mapM_ putStrLn (logo useColor)))

@@ -48,3212 +48,3577 @@  -- parser produced by Happy Version 1.19.5 -newtype HappyAbsSyn t69 = HappyAbsSyn HappyAny-#if __GLASGOW_HASKELL__ >= 607-type HappyAny = Happy_GHC_Exts.Any-#else-type HappyAny = forall a . a-#endif-happyIn15 :: (Module PName) -> (HappyAbsSyn t69)-happyIn15 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn15 #-}-happyOut15 :: (HappyAbsSyn t69) -> (Module PName)-happyOut15 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut15 #-}-happyIn16 :: (([Located Import], [TopDecl PName])) -> (HappyAbsSyn t69)-happyIn16 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn16 #-}-happyOut16 :: (HappyAbsSyn t69) -> (([Located Import], [TopDecl PName]))-happyOut16 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut16 #-}-happyIn17 :: ([Located Import]) -> (HappyAbsSyn t69)-happyIn17 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn17 #-}-happyOut17 :: (HappyAbsSyn t69) -> ([Located Import])-happyOut17 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut17 #-}-happyIn18 :: (Located Import) -> (HappyAbsSyn t69)-happyIn18 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn18 #-}-happyOut18 :: (HappyAbsSyn t69) -> (Located Import)-happyOut18 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut18 #-}-happyIn19 :: (Maybe (Located ModName)) -> (HappyAbsSyn t69)-happyIn19 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn19 #-}-happyOut19 :: (HappyAbsSyn t69) -> (Maybe (Located ModName))-happyOut19 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut19 #-}-happyIn20 :: (Maybe (Located ImportSpec)) -> (HappyAbsSyn t69)-happyIn20 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn20 #-}-happyOut20 :: (HappyAbsSyn t69) -> (Maybe (Located ImportSpec))-happyOut20 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut20 #-}-happyIn21 :: ([LIdent]) -> (HappyAbsSyn t69)-happyIn21 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn21 #-}-happyOut21 :: (HappyAbsSyn t69) -> ([LIdent])-happyOut21 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut21 #-}-happyIn22 :: ([Ident] -> ImportSpec) -> (HappyAbsSyn t69)-happyIn22 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn22 #-}-happyOut22 :: (HappyAbsSyn t69) -> ([Ident] -> ImportSpec)-happyOut22 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut22 #-}-happyIn23 :: (Program PName) -> (HappyAbsSyn t69)-happyIn23 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn23 #-}-happyOut23 :: (HappyAbsSyn t69) -> (Program PName)-happyOut23 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut23 #-}-happyIn24 :: (Program PName) -> (HappyAbsSyn t69)-happyIn24 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn24 #-}-happyOut24 :: (HappyAbsSyn t69) -> (Program PName)-happyOut24 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut24 #-}-happyIn25 :: ([TopDecl PName]) -> (HappyAbsSyn t69)-happyIn25 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn25 #-}-happyOut25 :: (HappyAbsSyn t69) -> ([TopDecl PName])-happyOut25 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut25 #-}-happyIn26 :: ([TopDecl PName]) -> (HappyAbsSyn t69)-happyIn26 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn26 #-}-happyOut26 :: (HappyAbsSyn t69) -> ([TopDecl PName])-happyOut26 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut26 #-}-happyIn27 :: ([TopDecl PName]) -> (HappyAbsSyn t69)-happyIn27 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn27 #-}-happyOut27 :: (HappyAbsSyn t69) -> ([TopDecl PName])-happyOut27 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut27 #-}-happyIn28 :: ([TopDecl PName]) -> (HappyAbsSyn t69)-happyIn28 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn28 #-}-happyOut28 :: (HappyAbsSyn t69) -> ([TopDecl PName])-happyOut28 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut28 #-}-happyIn29 :: ([TopDecl PName]) -> (HappyAbsSyn t69)-happyIn29 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn29 #-}-happyOut29 :: (HappyAbsSyn t69) -> ([TopDecl PName])-happyOut29 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut29 #-}-happyIn30 :: ([TopDecl PName]) -> (HappyAbsSyn t69)-happyIn30 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn30 #-}-happyOut30 :: (HappyAbsSyn t69) -> ([TopDecl PName])-happyOut30 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut30 #-}-happyIn31 :: (Located String) -> (HappyAbsSyn t69)-happyIn31 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn31 #-}-happyOut31 :: (HappyAbsSyn t69) -> (Located String)-happyOut31 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut31 #-}-happyIn32 :: (Maybe (Located String)) -> (HappyAbsSyn t69)-happyIn32 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn32 #-}-happyOut32 :: (HappyAbsSyn t69) -> (Maybe (Located String))-happyOut32 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut32 #-}-happyIn33 :: (Decl PName) -> (HappyAbsSyn t69)-happyIn33 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn33 #-}-happyOut33 :: (HappyAbsSyn t69) -> (Decl PName)-happyOut33 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut33 #-}-happyIn34 :: (Decl PName) -> (HappyAbsSyn t69)-happyIn34 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn34 #-}-happyOut34 :: (HappyAbsSyn t69) -> (Decl PName)-happyOut34 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut34 #-}-happyIn35 :: (Newtype PName) -> (HappyAbsSyn t69)-happyIn35 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn35 #-}-happyOut35 :: (HappyAbsSyn t69) -> (Newtype PName)-happyOut35 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut35 #-}-happyIn36 :: ([Named (Type PName)]) -> (HappyAbsSyn t69)-happyIn36 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn36 #-}-happyOut36 :: (HappyAbsSyn t69) -> ([Named (Type PName)])-happyOut36 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut36 #-}-happyIn37 :: ([ LPName ]) -> (HappyAbsSyn t69)-happyIn37 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn37 #-}-happyOut37 :: (HappyAbsSyn t69) -> ([ LPName ])-happyOut37 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut37 #-}-happyIn38 :: (LPName) -> (HappyAbsSyn t69)-happyIn38 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn38 #-}-happyOut38 :: (HappyAbsSyn t69) -> (LPName)-happyOut38 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut38 #-}-happyIn39 :: ([Pattern PName]) -> (HappyAbsSyn t69)-happyIn39 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn39 #-}-happyOut39 :: (HappyAbsSyn t69) -> ([Pattern PName])-happyOut39 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut39 #-}-happyIn40 :: ([Pattern PName]) -> (HappyAbsSyn t69)-happyIn40 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn40 #-}-happyOut40 :: (HappyAbsSyn t69) -> ([Pattern PName])-happyOut40 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut40 #-}-happyIn41 :: ([Decl PName]) -> (HappyAbsSyn t69)-happyIn41 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn41 #-}-happyOut41 :: (HappyAbsSyn t69) -> ([Decl PName])-happyOut41 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut41 #-}-happyIn42 :: ([Decl PName]) -> (HappyAbsSyn t69)-happyIn42 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn42 #-}-happyOut42 :: (HappyAbsSyn t69) -> ([Decl PName])-happyOut42 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut42 #-}-happyIn43 :: ([Decl PName]) -> (HappyAbsSyn t69)-happyIn43 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn43 #-}-happyOut43 :: (HappyAbsSyn t69) -> ([Decl PName])-happyOut43 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut43 #-}-happyIn44 :: (ReplInput PName) -> (HappyAbsSyn t69)-happyIn44 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn44 #-}-happyOut44 :: (HappyAbsSyn t69) -> (ReplInput PName)-happyOut44 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut44 #-}-happyIn45 :: (Expr PName) -> (HappyAbsSyn t69)-happyIn45 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn45 #-}-happyOut45 :: (HappyAbsSyn t69) -> (Expr PName)-happyOut45 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut45 #-}-happyIn46 :: ([(Expr PName, Expr PName)]) -> (HappyAbsSyn t69)-happyIn46 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn46 #-}-happyOut46 :: (HappyAbsSyn t69) -> ([(Expr PName, Expr PName)])-happyOut46 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut46 #-}-happyIn47 :: ((Expr PName, Expr PName)) -> (HappyAbsSyn t69)-happyIn47 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn47 #-}-happyOut47 :: (HappyAbsSyn t69) -> ((Expr PName, Expr PName))-happyOut47 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut47 #-}-happyIn48 :: (Expr PName) -> (HappyAbsSyn t69)-happyIn48 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn48 #-}-happyOut48 :: (HappyAbsSyn t69) -> (Expr PName)-happyOut48 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut48 #-}-happyIn49 :: (Expr PName) -> (HappyAbsSyn t69)-happyIn49 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn49 #-}-happyOut49 :: (HappyAbsSyn t69) -> (Expr PName)-happyOut49 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut49 #-}-happyIn50 :: (Expr PName) -> (HappyAbsSyn t69)-happyIn50 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn50 #-}-happyOut50 :: (HappyAbsSyn t69) -> (Expr PName)-happyOut50 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut50 #-}-happyIn51 :: (Expr PName) -> (HappyAbsSyn t69)-happyIn51 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn51 #-}-happyOut51 :: (HappyAbsSyn t69) -> (Expr PName)-happyOut51 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut51 #-}-happyIn52 :: (LPName) -> (HappyAbsSyn t69)-happyIn52 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn52 #-}-happyOut52 :: (HappyAbsSyn t69) -> (LPName)-happyOut52 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut52 #-}-happyIn53 :: (LPName) -> (HappyAbsSyn t69)-happyIn53 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn53 #-}-happyOut53 :: (HappyAbsSyn t69) -> (LPName)-happyOut53 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut53 #-}-happyIn54 :: (LPName) -> (HappyAbsSyn t69)-happyIn54 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn54 #-}-happyOut54 :: (HappyAbsSyn t69) -> (LPName)-happyOut54 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut54 #-}-happyIn55 :: ([LPName]) -> (HappyAbsSyn t69)-happyIn55 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn55 #-}-happyOut55 :: (HappyAbsSyn t69) -> ([LPName])-happyOut55 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut55 #-}-happyIn56 :: ([Expr PName]) -> (HappyAbsSyn t69)-happyIn56 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn56 #-}-happyOut56 :: (HappyAbsSyn t69) -> ([Expr PName])-happyOut56 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut56 #-}-happyIn57 :: (Expr PName) -> (HappyAbsSyn t69)-happyIn57 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn57 #-}-happyOut57 :: (HappyAbsSyn t69) -> (Expr PName)-happyOut57 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut57 #-}-happyIn58 :: ([(Bool, Integer)]) -> (HappyAbsSyn t69)-happyIn58 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn58 #-}-happyOut58 :: (HappyAbsSyn t69) -> ([(Bool, Integer)])-happyOut58 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut58 #-}-happyIn59 :: ((Bool, Integer)) -> (HappyAbsSyn t69)-happyIn59 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn59 #-}-happyOut59 :: (HappyAbsSyn t69) -> ((Bool, Integer))-happyOut59 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut59 #-}-happyIn60 :: (Located Selector) -> (HappyAbsSyn t69)-happyIn60 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn60 #-}-happyOut60 :: (HappyAbsSyn t69) -> (Located Selector)-happyOut60 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut60 #-}-happyIn61 :: ([Expr PName]) -> (HappyAbsSyn t69)-happyIn61 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn61 #-}-happyOut61 :: (HappyAbsSyn t69) -> ([Expr PName])-happyOut61 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut61 #-}-happyIn62 :: (Named (Expr PName)) -> (HappyAbsSyn t69)-happyIn62 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn62 #-}-happyOut62 :: (HappyAbsSyn t69) -> (Named (Expr PName))-happyOut62 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut62 #-}-happyIn63 :: ([Named (Expr PName)]) -> (HappyAbsSyn t69)-happyIn63 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn63 #-}-happyOut63 :: (HappyAbsSyn t69) -> ([Named (Expr PName)])-happyOut63 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut63 #-}-happyIn64 :: (Expr PName) -> (HappyAbsSyn t69)-happyIn64 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn64 #-}-happyOut64 :: (HappyAbsSyn t69) -> (Expr PName)-happyOut64 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut64 #-}-happyIn65 :: ([[Match PName]]) -> (HappyAbsSyn t69)-happyIn65 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn65 #-}-happyOut65 :: (HappyAbsSyn t69) -> ([[Match PName]])-happyOut65 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut65 #-}-happyIn66 :: ([Match PName]) -> (HappyAbsSyn t69)-happyIn66 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn66 #-}-happyOut66 :: (HappyAbsSyn t69) -> ([Match PName])-happyOut66 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut66 #-}-happyIn67 :: (Match PName) -> (HappyAbsSyn t69)-happyIn67 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn67 #-}-happyOut67 :: (HappyAbsSyn t69) -> (Match PName)-happyOut67 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut67 #-}-happyIn68 :: (Pattern PName) -> (HappyAbsSyn t69)-happyIn68 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn68 #-}-happyOut68 :: (HappyAbsSyn t69) -> (Pattern PName)-happyOut68 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut68 #-}-happyIn69 :: t69 -> (HappyAbsSyn t69)-happyIn69 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn69 #-}-happyOut69 :: (HappyAbsSyn t69) -> t69-happyOut69 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut69 #-}-happyIn70 :: (Pattern PName) -> (HappyAbsSyn t69)-happyIn70 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn70 #-}-happyOut70 :: (HappyAbsSyn t69) -> (Pattern PName)-happyOut70 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut70 #-}-happyIn71 :: ([Pattern PName]) -> (HappyAbsSyn t69)-happyIn71 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn71 #-}-happyOut71 :: (HappyAbsSyn t69) -> ([Pattern PName])-happyOut71 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut71 #-}-happyIn72 :: (Named (Pattern PName)) -> (HappyAbsSyn t69)-happyIn72 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn72 #-}-happyOut72 :: (HappyAbsSyn t69) -> (Named (Pattern PName))-happyOut72 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut72 #-}-happyIn73 :: ([Named (Pattern PName)]) -> (HappyAbsSyn t69)-happyIn73 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn73 #-}-happyOut73 :: (HappyAbsSyn t69) -> ([Named (Pattern PName)])-happyOut73 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut73 #-}-happyIn74 :: (Schema PName) -> (HappyAbsSyn t69)-happyIn74 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn74 #-}-happyOut74 :: (HappyAbsSyn t69) -> (Schema PName)-happyOut74 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut74 #-}-happyIn75 :: (Located [TParam PName]) -> (HappyAbsSyn t69)-happyIn75 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn75 #-}-happyOut75 :: (HappyAbsSyn t69) -> (Located [TParam PName])-happyOut75 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut75 #-}-happyIn76 :: (Located [Prop PName]) -> (HappyAbsSyn t69)-happyIn76 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn76 #-}-happyOut76 :: (HappyAbsSyn t69) -> (Located [Prop PName])-happyOut76 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut76 #-}-happyIn77 :: (Located Kind) -> (HappyAbsSyn t69)-happyIn77 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn77 #-}-happyOut77 :: (HappyAbsSyn t69) -> (Located Kind)-happyOut77 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut77 #-}-happyIn78 :: (TParam PName) -> (HappyAbsSyn t69)-happyIn78 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn78 #-}-happyOut78 :: (HappyAbsSyn t69) -> (TParam PName)-happyOut78 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut78 #-}-happyIn79 :: ([TParam PName]) -> (HappyAbsSyn t69)-happyIn79 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn79 #-}-happyOut79 :: (HappyAbsSyn t69) -> ([TParam PName])-happyOut79 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut79 #-}-happyIn80 :: (TParam PName) -> (HappyAbsSyn t69)-happyIn80 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn80 #-}-happyOut80 :: (HappyAbsSyn t69) -> (TParam PName)-happyOut80 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut80 #-}-happyIn81 :: ([TParam PName]) -> (HappyAbsSyn t69)-happyIn81 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn81 #-}-happyOut81 :: (HappyAbsSyn t69) -> ([TParam PName])-happyOut81 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut81 #-}-happyIn82 :: (Type PName) -> (HappyAbsSyn t69)-happyIn82 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn82 #-}-happyOut82 :: (HappyAbsSyn t69) -> (Type PName)-happyOut82 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut82 #-}-happyIn83 :: (Type PName) -> (HappyAbsSyn t69)-happyIn83 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn83 #-}-happyOut83 :: (HappyAbsSyn t69) -> (Type PName)-happyOut83 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut83 #-}-happyIn84 :: (Type PName) -> (HappyAbsSyn t69)-happyIn84 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn84 #-}-happyOut84 :: (HappyAbsSyn t69) -> (Type PName)-happyOut84 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut84 #-}-happyIn85 :: ([ Type PName ]) -> (HappyAbsSyn t69)-happyIn85 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn85 #-}-happyOut85 :: (HappyAbsSyn t69) -> ([ Type PName ])-happyOut85 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut85 #-}-happyIn86 :: (Located [Type PName]) -> (HappyAbsSyn t69)-happyIn86 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn86 #-}-happyOut86 :: (HappyAbsSyn t69) -> (Located [Type PName])-happyOut86 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut86 #-}-happyIn87 :: ([Type PName]) -> (HappyAbsSyn t69)-happyIn87 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn87 #-}-happyOut87 :: (HappyAbsSyn t69) -> ([Type PName])-happyOut87 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut87 #-}-happyIn88 :: (Named (Type PName)) -> (HappyAbsSyn t69)-happyIn88 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn88 #-}-happyOut88 :: (HappyAbsSyn t69) -> (Named (Type PName))-happyOut88 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut88 #-}-happyIn89 :: ([Named (Type PName)]) -> (HappyAbsSyn t69)-happyIn89 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn89 #-}-happyOut89 :: (HappyAbsSyn t69) -> ([Named (Type PName)])-happyOut89 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut89 #-}-happyIn90 :: (Located Ident) -> (HappyAbsSyn t69)-happyIn90 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn90 #-}-happyOut90 :: (HappyAbsSyn t69) -> (Located Ident)-happyOut90 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut90 #-}-happyIn91 :: (LPName) -> (HappyAbsSyn t69)-happyIn91 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn91 #-}-happyOut91 :: (HappyAbsSyn t69) -> (LPName)-happyOut91 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut91 #-}-happyIn92 :: (Located ModName) -> (HappyAbsSyn t69)-happyIn92 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn92 #-}-happyOut92 :: (HappyAbsSyn t69) -> (Located ModName)-happyOut92 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut92 #-}-happyIn93 :: (Located PName) -> (HappyAbsSyn t69)-happyIn93 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn93 #-}-happyOut93 :: (HappyAbsSyn t69) -> (Located PName)-happyOut93 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut93 #-}-happyIn94 :: (Located PName) -> (HappyAbsSyn t69)-happyIn94 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn94 #-}-happyOut94 :: (HappyAbsSyn t69) -> (Located PName)-happyOut94 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut94 #-}-happyIn95 :: (Type PName) -> (HappyAbsSyn t69)-happyIn95 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn95 #-}-happyOut95 :: (HappyAbsSyn t69) -> (Type PName)-happyOut95 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut95 #-}-happyIn96 :: (Named (Type PName)) -> (HappyAbsSyn t69)-happyIn96 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn96 #-}-happyOut96 :: (HappyAbsSyn t69) -> (Named (Type PName))-happyOut96 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut96 #-}-happyIn97 :: ([Named (Type PName)]) -> (HappyAbsSyn t69)-happyIn97 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyIn97 #-}-happyOut97 :: (HappyAbsSyn t69) -> ([Named (Type PName)])-happyOut97 x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOut97 #-}-happyInTok :: (Located Token) -> (HappyAbsSyn t69)-happyInTok x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyInTok #-}-happyOutTok :: (HappyAbsSyn t69) -> (Located Token)-happyOutTok x = Happy_GHC_Exts.unsafeCoerce# x-{-# INLINE happyOutTok #-}---happyActOffsets :: HappyAddr-happyActOffsets = HappyA# "\xf9\xff\xc9\x01\xe1\x03\xd1\x02\xa8\x06\xa8\x06\xdf\x03\xf6\x03\xa2\x02\x00\x06\x36\x08\x0d\x03\xf7\x03\x36\x08\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xcc\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x09\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xcc\x03\x00\x00\xcc\x03\xde\x05\xde\x05\x49\x08\xd8\x03\x00\x00\xd2\x05\xb0\x05\x00\x00\x00\x00\xa4\x05\xec\x04\x77\x07\x00\x00\x00\x00\xcb\x03\xf0\x03\x00\x00\x00\x00\x3b\x08\x00\x00\x28\x07\xde\x03\x00\x00\x00\x00\x00\x00\x00\x00\xf8\x06\xd1\x02\x73\x02\x7f\x01\xc6\x06\x05\x00\x6e\x07\xf8\x06\xea\x02\xea\x02\xc5\x03\xc5\x03\x3a\x06\xd9\x03\x89\x00\xf8\x06\xdd\x01\x65\x01\xbd\x03\x46\x01\xf9\x03\xed\x03\xec\x03\x38\x05\x10\x03\x19\x03\x29\x06\x00\x00\xad\x03\x09\x00\xad\x03\x2c\x02\xad\x03\xb5\x01\xbf\x03\x00\x00\x00\x00\xc8\x03\x00\x00\xdc\x03\x00\x00\xa2\x03\xf1\x01\xab\x03\x4e\x01\x00\x00\x0f\x01\x00\x00\x00\x00\x00\x00\x94\x06\x50\x01\x00\x00\x36\x08\x9e\x03\x00\x00\x9a\x07\x00\x00\xa0\x03\x71\x02\x00\x00\x6e\x00\x00\x00\x7a\x02\x8d\x03\x00\x00\x7c\x03\xb7\x03\xf6\xff\x00\x00\xb5\x03\x00\x00\xe4\x06\x00\x00\xfc\x01\x31\x00\x00\x00\x56\x07\x18\x09\x18\x09\x18\x09\xf8\x06\xd1\x02\xf8\x06\x85\x03\x6d\x03\xf8\x06\xda\x01\x97\x07\x82\x05\x00\x00\x00\x00\xfe\x01\x00\x00\x00\x00\x00\x00\x64\x03\x00\x00\x00\x00\x00\x00\x76\x05\xc5\x04\xe7\xff\x00\x00\x00\x00\x53\x03\x00\x00\x00\x00\x6f\x02\xd0\x06\x00\x00\x07\x02\x65\x03\xb3\x03\x00\x00\xea\x02\xea\x02\xbe\x01\x60\x03\x58\x03\x00\x00\xff\x00\x27\x00\x00\x00\x35\x00\xf8\x06\x32\x03\x54\x03\xea\x02\x76\x05\x00\x00\x63\x02\x00\x00\x44\x02\x43\x03\x95\x07\xa3\x07\xa7\x03\x00\x00\xa5\x01\x75\x07\x00\x00\x54\x05\x00\x00\x48\x05\x00\x00\x48\x05\x48\x05\x48\x05\x00\x00\x18\x09\x48\x05\x49\x08\x41\x03\x57\x03\x2d\x03\x00\x00\x18\x09\x00\x00\x18\x09\x62\x07\x54\x07\x00\x00\x03\x07\x0b\x03\x00\x00\x00\x00\x48\x05\x00\x00\x48\x05\x67\x02\x38\x05\x00\x00\x38\x05\x00\x00\x18\x09\x00\x00\x00\x00\x00\x00\x00\x00\x37\x03\xd1\x02\xd1\x02\xd1\x02\xd1\x02\x00\x00\xd1\x02\xd1\x02\x00\x00\xf8\x06\xd1\x02\x00\x00\x00\x00\x00\x00\xd1\x02\x22\x03\xd1\x02\x38\x05\x00\x00\x47\x03\x00\x00\x75\x00\xc6\x07\x30\x02\x0f\x03\x00\x00\x52\x01\x00\x00\xae\x07\xd1\x02\x80\x06\x00\x00\x80\x06\x00\x00\x00\x00\x00\x00\x18\x09\xdd\xff\xd1\x02\x00\x00\xfa\x02\x13\x03\x03\x03\x00\x00\xfd\x02\xfd\x02\xfd\x02\x00\x00\x4c\x07\x00\x00\x38\x05\x48\x05\x00\x00\xf8\x06\x00\x00\xf8\x06\x00\x00\x48\x05\x00\x00\xe4\x02\xf8\x06\x38\x05\x00\x00\x6c\x06\x1d\x06\x40\x02\x00\x00\x40\x02\x00\x00\xe5\x02\x18\x09\x40\x02\x00\x03\x00\x00\xc8\x02\x38\x05\xec\x07\x00\x00\xcc\x02\x05\x02\x05\x02\x00\x00\x00\x00\x36\x00\x00\x00\x36\x00\x40\x02\x3c\x07\xbc\x06\x00\x00\x81\x00\xab\x07\xf5\x01\xe0\x02\x26\x05\x00\x00\x00\x00\x02\x01\x00\x00\x4e\x06\x00\x00\x00\x00\x00\x00\xd1\x02\x18\x09\x00\x00\x00\x00\x18\x09\xce\x02\x00\x00\x1a\x05\x18\x09\xd1\x02\xae\x02\x94\x02\x00\x00\x00\x00\x00\x00\x00\x00\x38\x05\x00\x00\x1a\x05\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xa0\x02\xd1\x02\xa0\x02\x25\x02\x7f\x02\x70\x02\x00\x00\x5e\x02\x5b\x02\x5b\x02\x5b\x02\x00\x00\x00\x00\x5b\x02\xd1\x02\x00\x00\x2e\x02\x00\x00\x00\x00\x18\x09\x00\x00\x00\x00\x18\x09\x18\x09\x1a\x05\x00\x00\x03\x07\xf1\x01\x22\x02\xcd\x00\x1b\x02\xd1\x02\xf8\x06\xf8\x06\xd1\x02\x00\x00\x1b\x02\x18\x09\x1f\x02\x00\x00\x00\x00\xe1\x01\x00\x00\x18\x09\xcd\x00\xe1\x01\x00\x00\x00\x00\x00\x00\x00\x02\x00\x00\x00\x00\x00\x00\xcf\x01\x00\x00\xbc\x01\xd1\x02\xda\x02\xa7\x01\xcb\x00\x00\x00\x00\x00\x86\x01\xa7\x01\xae\x01\xd1\x02\x38\x05\xf8\x04\x9a\x01\x9e\x01\x89\x01\x00\x00\x6a\x01\x00\x00\x00\x00\x00\x00\x9a\x03\x00\x00\x6a\x01\x00\x00\xa4\x00\x00\x00\x00\x00\x00\x00\x38\x05\x00\x00\x00\x00"#--happyGotoOffsets :: HappyAddr-happyGotoOffsets = HappyA# "\x6f\x01\x63\x00\x39\x01\x9a\x04\x5b\x01\x11\x01\x0a\x01\x26\x01\xec\x00\xeb\x07\xdb\x02\x1a\x00\x00\x00\x7c\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xa9\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\xf3\x08\x87\x03\x00\x00\x00\x00\x4f\x03\xbf\x02\x00\x00\x00\x00\xe7\x08\x3f\x08\x83\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x84\x03\x00\x00\x0c\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xbb\x01\x5a\x03\x42\x03\x34\x03\x1f\x00\x78\x03\x49\x01\xe1\x00\xe9\x04\xac\x04\x00\x00\x00\x00\x07\x01\x00\x00\x00\x00\xb7\x00\x55\x01\x00\x00\xda\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x03\x70\x06\x60\x00\x6b\x00\x00\x00\x00\x00\x00\x00\x00\x00\xa9\x00\x00\x00\xc7\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x13\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x2f\x01\xd4\x00\x00\x00\x4b\x02\x00\x00\x00\x00\xe2\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x16\x01\x00\x00\x00\x00\x00\x00\x00\x00\x1c\x02\x7a\x03\x4e\x03\xb9\x02\xe3\x00\x8d\x04\x4f\x01\x00\x00\x00\x00\x9e\x00\x00\x00\xf0\xff\xde\x07\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xdb\x08\x18\x08\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xab\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x65\x02\x37\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x76\x00\xdc\xff\x00\x00\x08\x02\xcf\x08\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xf5\x02\x00\x00\x00\x00\x64\x02\xf5\x02\x00\x00\xb1\x02\x00\x00\xc3\x08\x00\x00\xb7\x08\xab\x08\x23\x03\x00\x00\xf5\x02\x9f\x08\xf5\x02\x00\x00\x00\x00\x00\x00\x00\x00\xf5\x02\x00\x00\xf5\x02\xf5\x02\xf5\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x93\x08\x00\x00\x87\x08\x0c\x08\x36\x02\x00\x00\x71\x00\x00\x00\xf5\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x74\x04\xec\x05\x68\x03\x67\x04\x00\x00\x5a\x04\x41\x04\x00\x00\x88\x07\x34\x04\x00\x00\x00\x00\x00\x00\x27\x04\x00\x00\x0e\x04\xeb\xff\x00\x00\x00\x00\x00\x00\xcc\x00\xf5\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xf5\x02\x9b\x02\x2d\x01\x00\x00\x1e\x01\x00\x00\x00\x00\x00\x00\xb6\x02\x00\x00\x01\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0e\x01\x00\x00\x42\x00\x7b\x08\x00\x00\xc0\x06\x00\x00\xbb\x06\x00\x00\x6f\x08\x00\x00\x00\x00\xba\x00\xd2\xff\x00\x00\x05\x01\x2c\x00\xd5\x00\x00\x00\xbc\x00\x00\x00\x00\x00\xaa\x02\x90\x00\xd6\x00\x00\x00\x00\x00\xd7\x01\x6c\x02\x00\x00\x00\x00\x45\x00\x23\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x72\x00\xfb\x01\x48\x00\x00\x00\x39\x02\x57\x01\x00\x00\x00\x00\xd1\x07\x00\x00\x00\x00\x00\x00\x00\x00\x13\x01\x00\x00\x00\x00\x00\x00\xf4\x03\x4c\x02\x00\x00\x00\x00\x4c\x02\x00\x00\x00\x00\x63\x08\x3c\x02\xdb\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x3a\x00\x00\x00\x57\x08\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xce\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xc1\x03\x00\x00\x00\x00\x00\x00\x00\x00\xf4\x01\x00\x00\x00\x00\xf4\x01\xf4\x01\x4b\x08\x00\x00\x00\x00\x01\x00\x00\x00\x93\x00\x00\x00\xa8\x03\x49\x06\x92\x01\x9b\x03\x00\x00\x00\x00\xf4\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xf4\x01\x33\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x8e\x03\x0e\x01\x4f\x00\x00\x00\x00\x00\x00\x00\x2b\x01\x1b\x00\x00\x00\x75\x03\xfb\xff\xc4\x07\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xe0\xff\x00\x00\x00\x00"#--happyDefActions :: HappyAddr-happyDefActions = HappyA# "\x00\x00\xc5\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\xff\x91\xff\x8f\xff\x16\xff\x13\xff\x11\xff\x00\x00\x1b\xff\x12\xff\x18\xff\x17\xff\x19\xff\x1a\xff\x00\x00\x8d\xff\x8e\xff\x8a\xff\x8c\xff\x8b\xff\x89\xff\x88\xff\x90\xff\x15\xff\x00\x00\x14\xff\x00\x00\x00\x00\x00\x00\x45\xff\x32\xff\x2f\xff\x00\x00\x2e\xff\x2d\xff\x2c\xff\x00\x00\x00\x00\x00\x00\x25\xff\xa4\xff\x00\x00\xa5\xff\xa3\xff\x9b\xff\x98\xff\x96\xff\x94\xff\x85\xff\x83\xff\x82\xff\x81\xff\x80\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xb4\xff\x00\x00\x00\x00\x55\xff\xb2\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x53\xff\x00\x00\x00\x00\x00\x00\xc5\xff\x00\x00\xc5\xff\x00\x00\xcc\xff\xc6\xff\x00\x00\xce\xff\x00\x00\xc7\xff\x00\x00\xc5\xff\x00\x00\xef\xff\xea\xff\xee\xff\xd9\xff\xcf\xff\xd0\xff\xc6\xff\x00\x00\xd6\xff\x00\x00\x19\xff\xcd\xff\x00\x00\xdb\xff\x00\x00\x00\x00\xdc\xff\x00\x00\x47\xff\x00\x00\x00\x00\x4c\xff\x00\x00\x00\x00\x57\xff\x55\xff\x00\x00\x54\xff\x00\x00\x52\xff\x00\x00\x00\x00\x4f\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xae\xff\x00\x00\x00\x00\xac\xff\xaa\xff\x00\x00\xa6\xff\x92\xff\x93\xff\x00\x00\x0e\xff\x78\xff\x0d\xff\x00\x00\x00\x00\x00\x00\x73\xff\x71\xff\x70\xff\x75\xff\x68\xff\x00\x00\x00\x00\x7c\xff\x00\x00\x00\x00\x00\x00\x7d\xff\x8c\xff\x8b\xff\x65\xff\x64\xff\x00\x00\x7a\xff\x00\x00\x00\x00\x9e\xff\x00\x00\x54\xff\x00\x00\x84\xff\x00\x00\x00\x00\x3a\xff\x00\x00\x1d\xff\x00\x00\x3c\xff\x41\xff\x00\x00\x00\x00\x29\xff\x00\x00\x00\x00\x24\xff\x30\xff\x2e\xff\x00\x00\x31\xff\x00\x00\x00\x00\x00\x00\x3f\xff\x43\xff\x00\x00\x44\xff\x00\x00\x00\x00\x00\x00\x0f\xff\x42\xff\x33\xff\x34\xff\x00\x00\x00\x00\x23\xff\x22\xff\x00\x00\x27\xff\x28\xff\x00\x00\x2a\xff\x00\x00\x00\x00\x00\x00\x26\xff\x00\x00\x40\xff\x97\xff\x95\xff\x77\xff\x6e\xff\x6d\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x79\xff\x00\x00\x63\xff\x5f\xff\x00\x00\x00\x00\x7e\xff\x76\xff\x7f\xff\x00\x00\x00\x00\x00\x00\x00\x00\x7b\xff\x00\x00\x74\xff\x00\x00\x00\x00\x00\x00\x16\xff\x06\xff\x00\x00\x0b\xff\x00\x00\x00\x00\x00\x00\xa7\xff\x00\x00\xc4\xff\xb3\xff\xb2\xff\x00\x00\xad\xff\x00\x00\xab\xff\x56\xff\xc3\xff\x00\x00\x87\xff\xbb\xff\xbd\xff\xbc\xff\x36\xff\x00\x00\x38\xff\x00\x00\x00\x00\x4d\xff\x00\x00\x4e\xff\x00\x00\x50\xff\x00\x00\x51\xff\xb1\xff\x00\x00\x00\x00\x4b\xff\x00\x00\x00\x00\xc5\xff\xdd\xff\xc5\xff\xda\xff\x00\x00\x00\x00\xc5\xff\xe7\xff\xd1\xff\x00\x00\x00\x00\x00\x00\xd5\xff\x19\xff\xc5\xff\xc5\xff\xf2\xff\xec\xff\xf1\xff\xeb\xff\xf0\xff\xc5\xff\x00\x00\x00\x00\xd4\xff\xe0\xff\x00\x00\x00\x00\x00\x00\x00\x00\xd8\xff\xd7\xff\x00\x00\xa0\xff\x00\x00\xa2\xff\x46\xff\x48\xff\x00\x00\x58\xff\x4a\xff\x49\xff\xbf\xff\x00\x00\x35\xff\x00\x00\x00\x00\x00\x00\xc1\xff\x00\x00\xa9\xff\xa8\xff\x99\xff\x0c\xff\x00\x00\x0a\xff\x00\x00\x08\xff\x09\xff\x72\xff\x6f\xff\x67\xff\x6a\xff\x00\x00\x6c\xff\x6c\xff\x66\xff\x5d\xff\x5b\xff\x00\x00\x62\xff\x6b\xff\x9c\xff\x9d\xff\x9a\xff\xba\xff\x00\x00\x39\xff\x3c\xff\x1c\xff\x3b\xff\x1e\xff\x3d\xff\x3e\xff\x20\xff\x1f\xff\x00\x00\x2b\xff\x21\xff\xc5\xff\x00\x00\x00\x00\xb9\xff\x00\x00\x00\x00\x00\x00\x61\xff\x5e\xff\x69\xff\x07\xff\x00\x00\x05\xff\xb1\xff\xc0\xff\x86\xff\xbe\xff\x00\x00\xc2\xff\xa1\xff\x9f\xff\xc9\xff\x00\x00\xcb\xff\xe8\xff\xe9\xff\x00\x00\xe1\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xca\xff\xb8\xff\x00\x00\x00\x00\xd2\xff\x00\x00\xe2\xff\x00\x00\x00\x00\x60\xff\x5c\xff\x5a\xff\x59\xff\xf3\xff\x37\xff\xc8\xff\x00\x00\xe3\xff\xd3\xff\xb7\xff\x00\x00\xb6\xff\xb5\xff\xe6\xff\x00\x00\xe4\xff"#--happyCheck :: HappyAddr-happyCheck = HappyA# "\xff\xff\x06\x00\x01\x00\x02\x00\x03\x00\x28\x00\x01\x00\x17\x00\x2b\x00\x2d\x00\x11\x00\x39\x00\x0b\x00\x0c\x00\x27\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x12\x00\x01\x00\x02\x00\x03\x00\x16\x00\x17\x00\x32\x00\x2f\x00\x12\x00\x17\x00\x4b\x00\x0b\x00\x0c\x00\x2a\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x12\x00\x03\x00\x4b\x00\x2f\x00\x16\x00\x17\x00\x4b\x00\x27\x00\x37\x00\x0b\x00\x0c\x00\x15\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x12\x00\x4b\x00\x36\x00\x37\x00\x16\x00\x17\x00\x4b\x00\x4c\x00\x16\x00\x12\x00\x25\x00\x26\x00\x27\x00\x16\x00\x17\x00\x3b\x00\x1e\x00\x4b\x00\x1b\x00\x03\x00\x36\x00\x37\x00\x1a\x00\x4b\x00\x4c\x00\x2f\x00\x30\x00\x0b\x00\x0c\x00\x21\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x12\x00\x22\x00\x36\x00\x37\x00\x16\x00\x17\x00\x28\x00\x4b\x00\x4c\x00\x18\x00\x19\x00\x36\x00\x37\x00\x15\x00\x4b\x00\x4c\x00\x31\x00\x4e\x00\x4f\x00\x4b\x00\x08\x00\x37\x00\x0a\x00\x4b\x00\x4c\x00\x0d\x00\x3e\x00\x0f\x00\x10\x00\x11\x00\x12\x00\x01\x00\x4b\x00\x4c\x00\x16\x00\x17\x00\x36\x00\x37\x00\x0b\x00\x0c\x00\x37\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x12\x00\x4b\x00\x26\x00\x27\x00\x16\x00\x17\x00\x09\x00\x51\x00\x17\x00\x4b\x00\x18\x00\x19\x00\x4b\x00\x4c\x00\x24\x00\x4b\x00\x4c\x00\x35\x00\x36\x00\x37\x00\x38\x00\x36\x00\x37\x00\x0b\x00\x0c\x00\x2f\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x12\x00\x22\x00\x39\x00\x3a\x00\x16\x00\x17\x00\x36\x00\x37\x00\x21\x00\x4b\x00\x4c\x00\x37\x00\x4b\x00\x4c\x00\x3f\x00\x30\x00\x31\x00\x2a\x00\x0b\x00\x0c\x00\x4b\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x12\x00\x4b\x00\x4b\x00\x4c\x00\x16\x00\x17\x00\x4b\x00\x4c\x00\x18\x00\x19\x00\x21\x00\x36\x00\x37\x00\x0c\x00\x25\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x12\x00\x18\x00\x19\x00\x3e\x00\x16\x00\x17\x00\x0d\x00\x37\x00\x0f\x00\x10\x00\x11\x00\x12\x00\x04\x00\x4b\x00\x4c\x00\x16\x00\x17\x00\x36\x00\x37\x00\x0c\x00\x37\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x12\x00\x14\x00\x4b\x00\x4c\x00\x16\x00\x17\x00\x22\x00\x37\x00\x35\x00\x36\x00\x37\x00\x36\x00\x37\x00\x4b\x00\x4c\x00\x4b\x00\x4c\x00\x2c\x00\x18\x00\x19\x00\x30\x00\x31\x00\x36\x00\x37\x00\x13\x00\x33\x00\x27\x00\x4b\x00\x4c\x00\x37\x00\x4b\x00\x4c\x00\x4b\x00\x4c\x00\x1d\x00\x1e\x00\x36\x00\x37\x00\x21\x00\x22\x00\x23\x00\x24\x00\x12\x00\x4b\x00\x4c\x00\x15\x00\x29\x00\x2a\x00\x12\x00\x37\x00\x12\x00\x37\x00\x16\x00\x17\x00\x16\x00\x17\x00\x1a\x00\x4b\x00\x4c\x00\x1b\x00\x12\x00\x22\x00\x12\x00\x1c\x00\x16\x00\x17\x00\x16\x00\x17\x00\x1a\x00\x4b\x00\x4c\x00\x4b\x00\x4c\x00\x12\x00\x22\x00\x30\x00\x31\x00\x16\x00\x17\x00\x2a\x00\x4b\x00\x4c\x00\x13\x00\x4e\x00\x36\x00\x37\x00\x36\x00\x37\x00\x12\x00\x31\x00\x12\x00\x09\x00\x16\x00\x17\x00\x16\x00\x17\x00\x36\x00\x37\x00\x36\x00\x37\x00\x35\x00\x36\x00\x37\x00\x38\x00\x41\x00\x4b\x00\x4c\x00\x4b\x00\x4c\x00\x36\x00\x37\x00\x06\x00\x4b\x00\x4c\x00\x4b\x00\x4e\x00\x0b\x00\x4b\x00\x4c\x00\x4b\x00\x4c\x00\x10\x00\x4b\x00\x4c\x00\x36\x00\x37\x00\x36\x00\x37\x00\x12\x00\x18\x00\x4b\x00\x4c\x00\x16\x00\x17\x00\x12\x00\x28\x00\x00\x00\x22\x00\x16\x00\x17\x00\x21\x00\x49\x00\x4a\x00\x4b\x00\x25\x00\x4b\x00\x4c\x00\x4b\x00\x4c\x00\x12\x00\x37\x00\x38\x00\x31\x00\x01\x00\x02\x00\x03\x00\x04\x00\x05\x00\x36\x00\x37\x00\x08\x00\x09\x00\x0a\x00\x04\x00\x36\x00\x37\x00\x28\x00\x08\x00\x09\x00\x0a\x00\x36\x00\x37\x00\x14\x00\x4b\x00\x4c\x00\x17\x00\x4e\x00\x19\x00\x50\x00\x4b\x00\x4c\x00\x37\x00\x17\x00\x1f\x00\x20\x00\x4b\x00\x4c\x00\x4b\x00\x24\x00\x4d\x00\x26\x00\x4b\x00\x4c\x00\x29\x00\x04\x00\x21\x00\x25\x00\x2d\x00\x08\x00\x09\x00\x0a\x00\x12\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x39\x00\x04\x00\x20\x00\x06\x00\x17\x00\x08\x00\x09\x00\x0a\x00\x12\x00\x0c\x00\x0d\x00\x0e\x00\x0f\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x25\x00\x24\x00\x17\x00\x04\x00\x19\x00\x06\x00\x12\x00\x08\x00\x09\x00\x0a\x00\x1f\x00\x0c\x00\x0d\x00\x0e\x00\x0f\x00\x24\x00\x1c\x00\x1d\x00\x1e\x00\x4b\x00\x4c\x00\x21\x00\x17\x00\x04\x00\x19\x00\x2e\x00\x28\x00\x08\x00\x09\x00\x0a\x00\x1f\x00\x0c\x00\x0d\x00\x0e\x00\x0f\x00\x24\x00\x1f\x00\x3a\x00\x3b\x00\x36\x00\x37\x00\x12\x00\x17\x00\x04\x00\x19\x00\x2e\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x1f\x00\x0c\x00\x0d\x00\x0e\x00\x0f\x00\x24\x00\x28\x00\x3a\x00\x3b\x00\x2b\x00\x4b\x00\x4c\x00\x17\x00\x04\x00\x19\x00\x2e\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x1f\x00\x0c\x00\x0d\x00\x0e\x00\x0f\x00\x24\x00\x1a\x00\x22\x00\x3b\x00\x12\x00\x26\x00\x27\x00\x17\x00\x21\x00\x19\x00\x2e\x00\x22\x00\x30\x00\x4b\x00\x4c\x00\x1f\x00\x30\x00\x31\x00\x20\x00\x21\x00\x24\x00\x2a\x00\x3a\x00\x24\x00\x12\x00\x30\x00\x31\x00\x04\x00\x29\x00\x2a\x00\x2e\x00\x08\x00\x09\x00\x0a\x00\x12\x00\x0c\x00\x0d\x00\x0e\x00\x0f\x00\x41\x00\x42\x00\x05\x00\x3a\x00\x07\x00\x1c\x00\x1d\x00\x17\x00\x04\x00\x19\x00\x4b\x00\x28\x00\x08\x00\x09\x00\x0a\x00\x1f\x00\x0c\x00\x0d\x00\x0e\x00\x0f\x00\x24\x00\x21\x00\x30\x00\x4b\x00\x4c\x00\x25\x00\x4e\x00\x17\x00\x2a\x00\x19\x00\x2e\x00\x24\x00\x30\x00\x41\x00\x42\x00\x1f\x00\x29\x00\x2a\x00\x26\x00\x27\x00\x24\x00\x21\x00\x3a\x00\x4b\x00\x01\x00\x25\x00\x03\x00\x04\x00\x05\x00\x12\x00\x2e\x00\x08\x00\x09\x00\x0a\x00\x26\x00\x27\x00\x01\x00\x02\x00\x03\x00\x04\x00\x05\x00\x1b\x00\x3a\x00\x08\x00\x09\x00\x0a\x00\x17\x00\x49\x00\x19\x00\x4b\x00\x4b\x00\x4c\x00\x21\x00\x4e\x00\x1f\x00\x14\x00\x25\x00\x24\x00\x17\x00\x24\x00\x19\x00\x1a\x00\x29\x00\x2a\x00\x21\x00\x21\x00\x1f\x00\x22\x00\x25\x00\x2e\x00\x4b\x00\x24\x00\x4d\x00\x26\x00\x33\x00\x21\x00\x29\x00\x1e\x00\x37\x00\x25\x00\x2d\x00\x30\x00\x31\x00\x01\x00\x02\x00\x03\x00\x04\x00\x05\x00\x35\x00\x36\x00\x08\x00\x09\x00\x0a\x00\x49\x00\x4a\x00\x4b\x00\x4b\x00\x4c\x00\x12\x00\x4e\x00\x20\x00\x13\x00\x14\x00\x4b\x00\x4c\x00\x17\x00\x4e\x00\x19\x00\x21\x00\x22\x00\x23\x00\x24\x00\x12\x00\x1f\x00\x3f\x00\x40\x00\x29\x00\x2a\x00\x24\x00\x4b\x00\x26\x00\x4d\x00\x02\x00\x29\x00\x49\x00\x4a\x00\x4b\x00\x2d\x00\x26\x00\x27\x00\x01\x00\x02\x00\x03\x00\x04\x00\x05\x00\x35\x00\x36\x00\x08\x00\x09\x00\x0a\x00\x26\x00\x27\x00\x04\x00\x26\x00\x27\x00\x28\x00\x08\x00\x09\x00\x0a\x00\x14\x00\x4b\x00\x4c\x00\x17\x00\x4e\x00\x19\x00\x01\x00\x02\x00\x03\x00\x04\x00\x05\x00\x1f\x00\x17\x00\x08\x00\x09\x00\x0a\x00\x24\x00\x45\x00\x26\x00\x2a\x00\x1f\x00\x29\x00\x2f\x00\x4b\x00\x4c\x00\x2d\x00\x4e\x00\x20\x00\x17\x00\x28\x00\x19\x00\x45\x00\x46\x00\x35\x00\x36\x00\x08\x00\x1f\x00\x4b\x00\x4c\x00\x28\x00\x4e\x00\x24\x00\x2a\x00\x26\x00\x04\x00\x05\x00\x29\x00\x04\x00\x08\x00\x09\x00\x0a\x00\x08\x00\x09\x00\x0a\x00\x26\x00\x27\x00\x04\x00\x21\x00\x35\x00\x36\x00\x08\x00\x09\x00\x0a\x00\x17\x00\x12\x00\x4b\x00\x17\x00\x4d\x00\x19\x00\x1a\x00\x28\x00\x1f\x00\x4b\x00\x4c\x00\x1f\x00\x17\x00\x37\x00\x19\x00\x01\x00\x24\x00\x2a\x00\x04\x00\x28\x00\x1f\x00\x20\x00\x08\x00\x09\x00\x0a\x00\x24\x00\x2e\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x39\x00\x2e\x00\x01\x00\x17\x00\x28\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x1e\x00\x4b\x00\x4c\x00\x21\x00\x22\x00\x23\x00\x24\x00\x25\x00\x26\x00\x27\x00\x2f\x00\x29\x00\x2a\x00\x28\x00\x1e\x00\x20\x00\x2e\x00\x21\x00\x22\x00\x23\x00\x24\x00\x44\x00\x45\x00\x12\x00\x47\x00\x29\x00\x2a\x00\x2a\x00\x4b\x00\x4c\x00\x2e\x00\x4e\x00\x1a\x00\x31\x00\x26\x00\x27\x00\x28\x00\x23\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x24\x00\x4b\x00\x4c\x00\x21\x00\x4e\x00\x29\x00\x2a\x00\x20\x00\x1e\x00\x34\x00\x20\x00\x21\x00\x22\x00\x23\x00\x24\x00\x4b\x00\x4c\x00\x2b\x00\x4e\x00\x29\x00\x2a\x00\x1e\x00\x45\x00\x28\x00\x21\x00\x22\x00\x23\x00\x24\x00\x4b\x00\x4c\x00\x20\x00\x4e\x00\x29\x00\x2a\x00\x26\x00\x27\x00\x28\x00\x2b\x00\x2c\x00\x4b\x00\x4c\x00\x22\x00\x4e\x00\x25\x00\x26\x00\x27\x00\x1e\x00\x26\x00\x27\x00\x21\x00\x22\x00\x23\x00\x24\x00\x4b\x00\x4c\x00\x28\x00\x4e\x00\x29\x00\x2a\x00\x1e\x00\x20\x00\x21\x00\x21\x00\x22\x00\x23\x00\x24\x00\x4b\x00\x4c\x00\x22\x00\x4e\x00\x29\x00\x2a\x00\x1e\x00\x20\x00\x21\x00\x21\x00\x22\x00\x23\x00\x24\x00\x2f\x00\x25\x00\x26\x00\x27\x00\x29\x00\x2a\x00\x20\x00\x21\x00\x20\x00\x21\x00\x20\x00\x21\x00\x4b\x00\x4c\x00\x30\x00\x4e\x00\x3b\x00\x02\x00\x1e\x00\x18\x00\x22\x00\x21\x00\x22\x00\x23\x00\x24\x00\x4b\x00\x4c\x00\x3b\x00\x4e\x00\x29\x00\x2a\x00\x1e\x00\x01\x00\x01\x00\x21\x00\x22\x00\x23\x00\x24\x00\x4b\x00\x4c\x00\x38\x00\x4e\x00\x29\x00\x2a\x00\x1e\x00\x01\x00\x22\x00\x21\x00\x22\x00\x23\x00\x24\x00\x3b\x00\x23\x00\x12\x00\x2b\x00\x29\x00\x2a\x00\x3b\x00\x3b\x00\x11\x00\x13\x00\xff\xff\xff\xff\x4b\x00\x4c\x00\x2f\x00\x4e\x00\x2f\x00\xff\xff\x1e\x00\xff\xff\xff\xff\x21\x00\x22\x00\x23\x00\x24\x00\x4b\x00\x4c\x00\xff\xff\x4e\x00\x29\x00\x2a\x00\x1e\x00\xff\xff\xff\xff\x21\x00\x22\x00\x23\x00\x24\x00\x4b\x00\x4c\x00\xff\xff\x4e\x00\x29\x00\x2a\x00\x1e\x00\xff\xff\xff\xff\x21\x00\x22\x00\x23\x00\x24\x00\xff\xff\xff\xff\xff\xff\xff\xff\x29\x00\x2a\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x4b\x00\x4c\x00\xff\xff\x4e\x00\xff\xff\xff\xff\x1e\x00\xff\xff\xff\xff\x21\x00\x22\x00\x23\x00\x24\x00\x4b\x00\x4c\x00\xff\xff\x4e\x00\x29\x00\x2a\x00\x1e\x00\xff\xff\xff\xff\x21\x00\x22\x00\x23\x00\x24\x00\x4b\x00\x4c\x00\xff\xff\x4e\x00\x29\x00\x2a\x00\x1e\x00\xff\xff\xff\xff\x21\x00\x22\x00\x23\x00\x24\x00\xff\xff\xff\xff\xff\xff\xff\xff\x29\x00\x2a\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x4b\x00\x4c\x00\xff\xff\x4e\x00\xff\xff\xff\xff\x1e\x00\xff\xff\xff\xff\x21\x00\x22\x00\x23\x00\x24\x00\x4b\x00\x4c\x00\xff\xff\x4e\x00\x29\x00\x2a\x00\x1e\x00\xff\xff\xff\xff\x21\x00\x22\x00\x23\x00\x24\x00\x4b\x00\x4c\x00\xff\xff\x4e\x00\x29\x00\x2a\x00\x1e\x00\xff\xff\xff\xff\x21\x00\x22\x00\x23\x00\x24\x00\xff\xff\xff\xff\xff\xff\xff\xff\x29\x00\x2a\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x4b\x00\x4c\x00\xff\xff\x4e\x00\xff\xff\xff\xff\x1e\x00\xff\xff\xff\xff\x21\x00\x22\x00\x23\x00\x24\x00\x4b\x00\x4c\x00\xff\xff\x4e\x00\x29\x00\x2a\x00\x1e\x00\xff\xff\xff\xff\x21\x00\x22\x00\x23\x00\x24\x00\x4b\x00\x4c\x00\xff\xff\x4e\x00\x29\x00\x2a\x00\xff\xff\x01\x00\xff\xff\x03\x00\x04\x00\x05\x00\xff\xff\xff\xff\x08\x00\x09\x00\x0a\x00\x24\x00\xff\xff\xff\xff\xff\xff\xff\xff\x29\x00\x2a\x00\xff\xff\x4b\x00\x4c\x00\xff\xff\x4e\x00\x17\x00\xff\xff\x19\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x1f\x00\x4b\x00\x4c\x00\xff\xff\x4e\x00\x24\x00\x25\x00\xff\xff\xff\xff\x01\x00\xff\xff\x03\x00\x04\x00\x05\x00\xff\xff\x2e\x00\x08\x00\x09\x00\x0a\x00\x4b\x00\x4c\x00\x01\x00\x4e\x00\x03\x00\x04\x00\x05\x00\xff\xff\xff\xff\x08\x00\x09\x00\x0a\x00\x17\x00\xff\xff\x19\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x1f\x00\x20\x00\x24\x00\xff\xff\x17\x00\x24\x00\x19\x00\x29\x00\x2a\x00\xff\xff\xff\xff\xff\xff\x1f\x00\xff\xff\xff\xff\x2e\x00\x01\x00\x24\x00\x03\x00\x04\x00\x05\x00\xff\xff\xff\xff\x08\x00\x09\x00\x0a\x00\xff\xff\x2e\x00\x01\x00\xff\xff\x03\x00\x04\x00\x05\x00\xff\xff\xff\xff\x08\x00\x09\x00\x0a\x00\x17\x00\xff\xff\x19\x00\x4b\x00\x4c\x00\xff\xff\x4e\x00\xff\xff\x1f\x00\xff\xff\xff\xff\x04\x00\x17\x00\x24\x00\x19\x00\x08\x00\x09\x00\x0a\x00\xff\xff\xff\xff\x1f\x00\xff\xff\xff\xff\x2e\x00\x01\x00\x24\x00\x03\x00\x04\x00\x05\x00\xff\xff\x17\x00\x08\x00\x09\x00\x0a\x00\xff\xff\x2e\x00\x01\x00\xff\xff\x03\x00\x04\x00\x05\x00\xff\xff\xff\xff\x08\x00\x09\x00\x0a\x00\x17\x00\xff\xff\x19\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x1f\x00\xff\xff\xff\xff\xff\xff\x17\x00\x24\x00\x19\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x1f\x00\xff\xff\xff\xff\x2e\x00\x01\x00\x24\x00\x03\x00\x04\x00\x05\x00\xff\xff\xff\xff\x08\x00\x09\x00\x0a\x00\xff\xff\x2e\x00\x01\x00\xff\xff\x03\x00\x04\x00\x05\x00\xff\xff\xff\xff\x08\x00\x09\x00\x0a\x00\x17\x00\xff\xff\x19\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x1f\x00\xff\xff\xff\xff\xff\xff\x17\x00\x24\x00\x19\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x1f\x00\xff\xff\xff\xff\x2e\x00\x01\x00\x24\x00\x03\x00\x04\x00\x05\x00\xff\xff\xff\xff\x08\x00\x09\x00\x0a\x00\xff\xff\x2e\x00\x01\x00\xff\xff\x03\x00\x04\x00\x05\x00\xff\xff\xff\xff\x08\x00\x09\x00\x0a\x00\x17\x00\xff\xff\x19\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x1f\x00\xff\xff\xff\xff\xff\xff\x17\x00\x24\x00\x19\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x1f\x00\xff\xff\xff\xff\x2e\x00\x01\x00\x24\x00\x03\x00\x04\x00\x05\x00\xff\xff\xff\xff\x08\x00\x09\x00\x0a\x00\xff\xff\x2e\x00\x01\x00\xff\xff\x03\x00\x04\x00\x05\x00\xff\xff\xff\xff\x08\x00\x09\x00\x0a\x00\x17\x00\xff\xff\x19\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x1f\x00\xff\xff\xff\xff\xff\xff\x17\x00\x24\x00\x19\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x1f\x00\xff\xff\xff\xff\x2e\x00\x01\x00\x24\x00\x03\x00\x04\x00\x05\x00\xff\xff\xff\xff\x08\x00\x09\x00\x0a\x00\xff\xff\x2e\x00\x21\x00\x22\x00\x23\x00\x24\x00\xff\xff\xff\xff\xff\xff\xff\xff\x29\x00\x2a\x00\x17\x00\xff\xff\x19\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x1f\x00\xff\xff\x04\x00\xff\xff\xff\xff\x24\x00\x08\x00\x09\x00\x0a\x00\xff\xff\x0c\x00\x0d\x00\x0e\x00\x0f\x00\x04\x00\x2e\x00\xff\xff\xff\xff\x08\x00\x09\x00\x0a\x00\x17\x00\xff\xff\x19\x00\x4b\x00\x4c\x00\xff\xff\x4e\x00\xff\xff\x1f\x00\xff\xff\x04\x00\xff\xff\x17\x00\x24\x00\x08\x00\x09\x00\x0a\x00\xff\xff\x0c\x00\x0d\x00\x0e\x00\x0f\x00\xff\xff\x2e\x00\xff\xff\x30\x00\x25\x00\xff\xff\xff\xff\x17\x00\x04\x00\x19\x00\xff\xff\xff\xff\x08\x00\x09\x00\x0a\x00\x1f\x00\x0c\x00\x0d\x00\x0e\x00\x0f\x00\x24\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x17\x00\xff\xff\x19\x00\x2e\x00\xff\xff\x30\x00\xff\xff\xff\xff\x1f\x00\xff\xff\xff\xff\x04\x00\xff\xff\x24\x00\x25\x00\x08\x00\x09\x00\x0a\x00\xff\xff\x0c\x00\x0d\x00\x0e\x00\x0f\x00\x2e\x00\x34\x00\x35\x00\x36\x00\x37\x00\xff\xff\xff\xff\x17\x00\x04\x00\x19\x00\xff\xff\xff\xff\x08\x00\x09\x00\x0a\x00\x1f\x00\x0c\x00\x0d\x00\x0e\x00\x0f\x00\x24\x00\x25\x00\xff\xff\xff\xff\x4b\x00\x4c\x00\xff\xff\x17\x00\x04\x00\x19\x00\x2e\x00\xff\xff\x08\x00\x09\x00\x0a\x00\x1f\x00\x0c\x00\x0d\x00\x0e\x00\x0f\x00\x24\x00\x35\x00\x36\x00\x37\x00\x38\x00\xff\xff\xff\xff\x17\x00\x04\x00\x19\x00\x2e\x00\xff\xff\x08\x00\x09\x00\x0a\x00\x1f\x00\x0c\x00\x0d\x00\x0e\x00\x0f\x00\x24\x00\xff\xff\xff\xff\x4b\x00\x4c\x00\xff\xff\xff\xff\x17\x00\x04\x00\x19\x00\x2e\x00\xff\xff\x08\x00\x09\x00\x0a\x00\x1f\x00\xff\xff\xff\xff\x04\x00\xff\xff\x24\x00\xff\xff\x08\x00\x09\x00\x0a\x00\xff\xff\xff\xff\x17\x00\x04\x00\x19\x00\x2e\x00\xff\xff\x08\x00\x09\x00\x0a\x00\x1f\x00\xff\xff\x17\x00\xff\xff\xff\xff\x24\x00\xff\xff\xff\xff\xff\xff\x28\x00\xff\xff\xff\xff\x17\x00\x04\x00\x19\x00\x2e\x00\x25\x00\x08\x00\x09\x00\x0a\x00\x1f\x00\x35\x00\x36\x00\x37\x00\xff\xff\x24\x00\x35\x00\x36\x00\x37\x00\x28\x00\xff\xff\xff\xff\x17\x00\x04\x00\x19\x00\x2e\x00\xff\xff\x08\x00\x09\x00\x0a\x00\x1f\x00\x20\x00\xff\xff\x4b\x00\x4c\x00\x24\x00\xff\xff\xff\xff\x4b\x00\x4c\x00\xff\xff\xff\xff\x17\x00\xff\xff\x19\x00\x2e\x00\xff\xff\xff\xff\x12\x00\xff\xff\x1f\x00\x15\x00\x16\x00\xff\xff\xff\xff\x24\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\xff\xff\x20\x00\x21\x00\x22\x00\x2e\x00\xff\xff\x25\x00\x01\x00\x02\x00\x03\x00\x04\x00\x05\x00\x2b\x00\x2c\x00\x08\x00\x09\x00\x0a\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\xff\xff\xff\xff\x3b\x00\x17\x00\x04\x00\x19\x00\xff\xff\xff\xff\x08\x00\x09\x00\x0a\x00\x1f\x00\xff\xff\xff\xff\xff\xff\xff\xff\x24\x00\xff\xff\x26\x00\xff\xff\x04\x00\x29\x00\xff\xff\x17\x00\x08\x00\x09\x00\x0a\x00\xff\xff\xff\xff\xff\xff\x04\x00\x1f\x00\xff\xff\xff\xff\x08\x00\x09\x00\x0a\x00\xff\xff\xff\xff\x17\x00\x28\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x1f\x00\xff\xff\x17\x00\x1a\x00\x01\x00\xff\xff\xff\xff\x04\x00\x05\x00\x28\x00\x1f\x00\x08\x00\x09\x00\x0a\x00\xff\xff\xff\xff\x04\x00\x1a\x00\xff\xff\x28\x00\x08\x00\x09\x00\x0a\x00\xff\xff\xff\xff\xff\xff\x17\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x1f\x00\x17\x00\x1a\x00\xff\xff\xff\xff\x24\x00\xff\xff\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x04\x00\x25\x00\xff\xff\x04\x00\x08\x00\x09\x00\x0a\x00\x08\x00\x09\x00\x0a\x00\xff\xff\xff\xff\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x17\x00\x04\x00\x05\x00\x17\x00\xff\xff\x08\x00\x09\x00\x0a\x00\x1f\x00\x22\x00\xff\xff\x1f\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x2b\x00\x2c\x00\x17\x00\x20\x00\x21\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x20\x00\xff\xff\x3b\x00\xff\xff\xff\xff\x4b\x00\x4c\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\xff\xff\xff\xff\xff\xff\xff\xff\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x21\x00\xff\xff\xff\xff\xff\xff\x25\x00\xff\xff\xff\xff\xff\xff\xff\xff\x04\x00\x05\x00\xff\xff\xff\xff\x08\x00\x09\x00\x0a\x00\xff\xff\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x3b\x00\x3c\x00\x3d\x00\xff\xff\x17\x00\xff\xff\xff\xff\xff\xff\x43\x00\x44\x00\x45\x00\xff\xff\x47\x00\x3b\x00\x3c\x00\x3d\x00\x4b\x00\x4c\x00\xff\xff\x4e\x00\xff\xff\x43\x00\x44\x00\x45\x00\xff\xff\x47\x00\x3b\x00\x3c\x00\x3d\x00\x4b\x00\x4c\x00\xff\xff\x4e\x00\xff\xff\x43\x00\x44\x00\x45\x00\xff\xff\x47\x00\x3b\x00\x3c\x00\x3d\x00\x4b\x00\x4c\x00\xff\xff\x4e\x00\xff\xff\x43\x00\x44\x00\x45\x00\xff\xff\x47\x00\xff\xff\xff\xff\xff\xff\x4b\x00\x4c\x00\xff\xff\x4e\x00\x04\x00\x05\x00\xff\xff\x3d\x00\x08\x00\x09\x00\x0a\x00\xff\xff\xff\xff\x43\x00\x44\x00\x45\x00\xff\xff\x47\x00\xff\xff\xff\xff\x3e\x00\x4b\x00\x4c\x00\x17\x00\x4e\x00\x43\x00\x44\x00\x45\x00\xff\xff\x47\x00\xff\xff\xff\xff\xff\xff\x4b\x00\x4c\x00\xff\xff\x4e\x00\x43\x00\x44\x00\x45\x00\xff\xff\x47\x00\x48\x00\xff\xff\xff\xff\x4b\x00\x4c\x00\x2a\x00\x4e\x00\xff\xff\xff\xff\x51\x00\x52\x00\xff\xff\xff\xff\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x39\x00\x2c\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x43\x00\x44\x00\x45\x00\xff\xff\x47\x00\x48\x00\xff\xff\xff\xff\x4b\x00\x4c\x00\xff\xff\x4e\x00\x43\x00\x44\x00\x45\x00\xff\xff\x47\x00\xff\xff\xff\xff\xff\xff\x4b\x00\x4c\x00\xff\xff\x4e\x00\x43\x00\x44\x00\x45\x00\xff\xff\x47\x00\xff\xff\xff\xff\xff\xff\x4b\x00\x4c\x00\xff\xff\x4e\x00\x43\x00\x44\x00\x45\x00\xff\xff\x47\x00\xff\xff\xff\xff\xff\xff\x4b\x00\x4c\x00\xff\xff\x4e\x00\x43\x00\x44\x00\x45\x00\xff\xff\x47\x00\xff\xff\xff\xff\xff\xff\x4b\x00\x4c\x00\xff\xff\x4e\x00\x43\x00\x44\x00\x45\x00\xff\xff\x47\x00\xff\xff\xff\xff\xff\xff\x4b\x00\x4c\x00\xff\xff\x4e\x00\x43\x00\x44\x00\x45\x00\xff\xff\x47\x00\xff\xff\xff\xff\xff\xff\x4b\x00\x4c\x00\xff\xff\x4e\x00\x43\x00\x44\x00\x45\x00\xff\xff\x47\x00\xff\xff\xff\xff\xff\xff\x4b\x00\x4c\x00\xff\xff\x4e\x00\x43\x00\x44\x00\x45\x00\xff\xff\x47\x00\xff\xff\xff\xff\xff\xff\x4b\x00\x4c\x00\xff\xff\x4e\x00\x43\x00\x44\x00\x45\x00\xff\xff\x47\x00\xff\xff\xff\xff\xff\xff\x4b\x00\x4c\x00\xff\xff\x4e\x00\x43\x00\x44\x00\x45\x00\xff\xff\x47\x00\xff\xff\xff\xff\xff\xff\x4b\x00\x4c\x00\xff\xff\x4e\x00\x43\x00\x44\x00\x45\x00\xff\xff\x47\x00\xff\xff\xff\xff\xff\xff\x4b\x00\x4c\x00\xff\xff\x4e\x00\x43\x00\x44\x00\x45\x00\xff\xff\x47\x00\xff\xff\xff\xff\xff\xff\x4b\x00\x4c\x00\xff\xff\x4e\x00\x43\x00\x44\x00\x45\x00\xff\xff\x47\x00\xff\xff\xff\xff\xff\xff\x4b\x00\x4c\x00\xff\xff\x4e\x00\x43\x00\x44\x00\x45\x00\xff\xff\x47\x00\xff\xff\xff\xff\xff\xff\x4b\x00\x4c\x00\xff\xff\x4e\x00\x43\x00\x44\x00\x45\x00\xff\xff\x47\x00\xff\xff\xff\xff\xff\xff\x4b\x00\x4c\x00\xff\xff\x4e\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x39\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\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"#--happyTable :: HappyAddr-happyTable = HappyA# "\x00\x00\xc1\x01\x91\x01\x6e\x00\x6f\x00\xaf\xff\xab\x00\x18\x01\xaf\xff\xf3\x00\x0e\x00\x5b\x01\x70\x00\x71\x00\x0b\x01\x72\x00\x73\x00\x74\x00\x75\x00\x76\x00\x6d\x00\x6e\x00\x6f\x00\x50\x00\x51\x00\x0c\x01\x74\x01\x80\x00\xac\x00\x82\x00\x70\x00\x71\x00\x30\x01\x72\x00\x73\x00\x74\x00\x75\x00\x76\x00\x48\x01\xf4\x00\x6d\x00\x50\x00\x51\x00\xca\x01\xad\x00\x96\x00\x49\x01\x71\x00\xc4\x01\x72\x00\x73\x00\x74\x00\x75\x00\x76\x00\xaf\x00\x53\x00\x54\x00\x50\x00\x51\x00\x11\x00\x19\x01\xf9\x00\x9d\x00\x0e\x00\x0f\x00\x10\x00\x50\x00\x51\x00\xff\xff\xfa\x00\xc2\x01\x57\x01\x4a\x01\x53\x00\x54\x00\x2b\x01\x11\x00\x55\x00\xad\x00\xae\x00\x4b\x01\x71\x00\x2c\x01\x72\x00\x73\x00\x74\x00\x75\x00\x76\x00\x38\x01\x53\x00\x54\x00\x50\x00\x51\x00\xf8\x00\x11\x00\x55\x00\xac\x01\x98\x00\x53\x00\x54\x00\xb2\x01\x11\x00\x12\x00\x3a\x01\x13\x00\x14\x00\xaf\x00\x62\x00\x96\x00\x63\x00\x11\x00\x55\x00\x64\x00\xb9\x01\x65\x00\x66\x00\x67\x00\x68\x00\xab\x00\x11\x00\x55\x00\x50\x00\x51\x00\x53\x00\x54\x00\xb0\x01\x71\x00\x99\x00\x72\x00\x73\x00\x74\x00\x75\x00\x76\x00\x9b\x01\x84\x00\x10\x00\x50\x00\x51\x00\xac\x01\x9c\x01\xac\x00\x62\x01\xf6\x00\x98\x00\x11\x00\x55\x00\x36\x01\x11\x00\x89\x00\x85\x00\x86\x00\x87\x00\x88\x00\x53\x00\x54\x00\x52\x01\x71\x00\x37\x01\x72\x00\x73\x00\x74\x00\x75\x00\x76\x00\xe5\xff\x80\x00\x81\x00\x50\x00\x51\x00\x53\x00\x54\x00\x9b\x00\x11\x00\x89\x00\x99\x00\x11\x00\x55\x00\x84\x01\xe5\xff\xe5\xff\x9c\x00\x7d\x00\x71\x00\x82\x00\x72\x00\x73\x00\x74\x00\x75\x00\x76\x00\x85\x01\x11\x00\x55\x00\x50\x00\x51\x00\x11\x00\x89\x00\x05\x01\x98\x00\xee\x00\x53\x00\x54\x00\x55\x01\xc8\x01\x72\x00\x73\x00\x74\x00\x75\x00\x76\x00\x97\x00\x98\x00\x87\x01\x50\x00\x51\x00\x7c\x00\x1b\x01\x65\x00\x66\x00\x67\x00\x68\x00\x50\x01\x11\x00\x55\x00\x50\x00\x51\x00\x53\x00\x54\x00\x56\x01\x99\x00\x72\x00\x73\x00\x74\x00\x75\x00\x76\x00\x3f\x01\x11\x00\x89\x00\x50\x00\x51\x00\x38\x01\x99\x00\x5c\x01\x86\x00\x87\x00\x53\x00\x54\x00\x11\x00\x55\x00\x11\x00\x89\x00\x72\x01\xa2\x00\x98\x00\xb2\x01\x3a\x01\x53\x00\x54\x00\x35\x00\x8a\x01\x93\x00\x11\x00\x89\x00\x8b\x01\x11\x00\x89\x00\x11\x00\x55\x00\x36\x00\x37\x00\x53\x00\x54\x00\x38\x00\x39\x00\x3a\x00\x3b\x00\x80\x00\x11\x00\x55\x00\xfb\x00\x3c\x00\x3d\x00\x4f\x00\x99\x00\x9d\x00\x20\x01\x50\x00\x51\x00\x50\x00\x51\x00\x59\x01\x11\x00\x55\x00\x9e\x00\x4f\x00\x15\x01\x96\x00\x4d\x00\x50\x00\x51\x00\x50\x00\x51\x00\x52\x00\x11\x00\x89\x00\x11\x00\x89\x00\x69\x01\x38\x01\xa5\x01\x17\x01\x50\x00\x51\x00\xc1\x00\x11\x00\x12\x00\x4c\x00\x3e\x00\x53\x00\x54\x00\x53\x00\x54\x00\x6a\x01\x3a\x01\x43\x01\x60\x00\x50\x00\x51\x00\x50\x00\x51\x00\x53\x00\x54\x00\x53\x00\x54\x00\x85\x00\x86\x00\x87\x00\x88\x00\x63\x01\x11\x00\x55\x00\x11\x00\x55\x00\x53\x00\x54\x00\x41\x01\x11\x00\x12\x00\x27\x01\x3e\x00\x42\x01\x11\x00\x55\x00\x11\x00\x55\x00\x43\x01\x11\x00\x89\x00\x53\x00\x54\x00\x53\x00\x54\x00\x96\x00\x7b\x00\x11\x00\x55\x00\x50\x00\x51\x00\x5e\x00\x54\xff\x6b\x00\x46\x01\x50\x00\x51\x00\x6e\x01\xc6\x00\xc5\x01\xe6\x00\x6f\x01\x11\x00\x55\x00\x11\x00\x55\x00\x80\x00\x54\xff\x54\xff\x47\x01\x40\x00\x41\x00\x42\x00\x16\x00\x17\x00\x1e\x01\x87\x00\x18\x00\x19\x00\x1a\x00\x16\x00\x53\x00\x54\x00\x95\x00\x18\x00\x19\x00\x1a\x00\x53\x00\x54\x00\x44\x00\x11\x00\x12\x00\x1b\x00\xa3\x00\x45\x00\xa4\x00\x11\x00\x89\x00\x96\x00\x1b\x00\x46\x00\xb5\x00\x11\x00\x55\x00\x24\x00\x47\x00\xa8\x01\x48\x00\x11\x00\x55\x00\x49\x00\x16\x00\x96\x01\xc7\x01\x4a\x00\x18\x00\x19\x00\x1a\x00\x80\x00\x1d\x00\x1e\x00\x1f\x00\xb6\x00\xb7\x00\x22\x00\x23\x00\x24\x00\x16\x00\xc0\x01\x6a\x00\x1b\x00\x18\x00\x19\x00\x1a\x00\x80\x00\x57\x00\x58\x00\x59\x00\x5a\x00\xbb\x01\x7b\x01\x7c\x01\x86\x00\x87\x00\xe8\x00\xb4\x01\x1b\x00\x16\x00\x5b\x00\x6a\x00\x80\x00\x18\x00\x19\x00\x1a\x00\x5c\x00\x57\x00\x58\x00\x59\x00\x5a\x00\x5d\x00\xfe\x00\xff\x00\x00\x01\x11\x00\x89\x00\x01\x01\x1b\x00\x16\x00\x5b\x00\x5e\x00\xb7\x01\x18\x00\x19\x00\x1a\x00\x5c\x00\x57\x00\x58\x00\x59\x00\x5a\x00\x5d\x00\xb8\x01\x6b\x00\xdf\xff\xbe\x00\x87\x00\x80\x00\x1b\x00\x16\x00\x5b\x00\x5e\x00\x78\x00\x18\x00\x19\x00\x79\x00\x5c\x00\x57\x00\x58\x00\x59\x00\x5a\x00\x5d\x00\xb0\xff\x6b\x00\xde\xff\xb0\xff\x11\x00\xbf\x00\x1b\x00\x16\x00\x5b\x00\x5e\x00\x78\x00\x18\x00\x19\x00\x79\x00\x5c\x00\x57\x00\x58\x00\x59\x00\x5a\x00\x5d\x00\x2d\x01\x38\x01\xff\xff\x80\x00\xd6\x00\x10\x00\x1b\x00\x2e\x01\x5b\x00\x5e\x00\x15\x01\xed\xff\x11\x00\x4e\x01\x5c\x00\xa8\x01\x3a\x01\x04\x01\x05\x01\x5d\x00\xb9\x01\x6b\x00\xf2\x00\x80\x00\x16\x01\x17\x01\x16\x00\x3c\x00\x3d\x00\x5e\x00\x18\x00\x19\x00\x79\x00\x80\x00\x57\x00\x58\x00\x59\x00\x5a\x00\x25\x01\xae\x01\xa9\x01\x6b\x00\xaa\x01\x98\x01\x99\x01\x1b\x00\x16\x00\x5b\x00\x27\x01\x70\x01\x18\x00\x19\x00\x79\x00\x5c\x00\x57\x00\x58\x00\x59\x00\x5a\x00\x5d\x00\xea\x00\xbf\x01\x11\x00\x12\x00\x71\x01\x3e\x00\x1b\x00\x93\x01\x5b\x00\x5e\x00\xa0\x00\x7f\x00\x25\x01\x26\x01\x5c\x00\x3c\x00\x3d\x00\x9f\x01\x10\x00\x5d\x00\xee\x00\x6b\x00\x27\x01\x30\x00\xef\x00\x31\x00\x16\x00\x17\x00\x80\x00\x5e\x00\x18\x00\x19\x00\x1a\x00\xd6\x00\x10\x00\x40\x00\x41\x00\x42\x00\x16\x00\x17\x00\x95\x01\x6b\x00\x18\x00\x19\x00\x1a\x00\x1b\x00\x86\x01\x32\x00\xe6\x00\x11\x00\x12\x00\xf0\x00\x3e\x00\x33\x00\x44\x00\xf1\x00\xa1\x00\x1b\x00\xce\x00\x45\x00\xbb\x00\x3c\x00\x3d\x00\x08\x01\x96\x01\x46\x00\x38\x01\x09\x01\x35\x00\x24\x00\x47\x00\x3e\x01\x48\x00\x8a\x01\x34\x01\x49\x00\x97\x01\x8b\x01\x35\x01\x4a\x00\x39\x01\x3a\x01\x40\x00\x41\x00\x42\x00\x16\x00\x17\x00\x4b\x00\x4c\x00\x18\x00\x19\x00\x1a\x00\xc6\x00\xc7\x00\xe6\x00\x11\x00\x12\x00\x80\x00\x3e\x00\x9e\x01\x43\x00\x44\x00\x11\x00\x12\x00\x1b\x00\x4d\x01\x45\x00\x6b\x01\x39\x00\x3a\x00\x3b\x00\x80\x00\x46\x00\xc4\x00\xc5\x00\x3c\x00\x3d\x00\x47\x00\x24\x00\x48\x00\xdc\x00\x50\x01\x49\x00\xc6\x00\xc7\x00\xc8\x00\x4a\x00\x53\x01\x10\x00\x40\x00\x41\x00\x42\x00\x16\x00\x17\x00\x4b\x00\x4c\x00\x18\x00\x19\x00\x1a\x00\x68\x01\x10\x00\x16\x00\x21\x01\x10\x00\x22\x01\x18\x00\x19\x00\x1a\x00\x44\x00\x11\x00\x12\x00\x1b\x00\x3e\x00\x45\x00\x40\x00\x41\x00\x42\x00\x16\x00\x17\x00\x46\x00\x1b\x00\x18\x00\x19\x00\x1a\x00\x47\x00\xe4\x00\x48\x00\xa2\x01\x29\x01\x49\x00\x4d\x01\x11\x00\x12\x00\x4a\x00\xd1\x00\xa7\x01\x1b\x00\xb5\x01\x45\x00\xcf\x00\xd0\x00\x4b\x00\x4c\x00\x52\x01\x46\x00\x11\x00\x12\x00\x5e\x01\xd1\x00\x47\x00\x55\x01\x48\x00\x16\x00\x17\x00\x49\x00\x16\x00\x18\x00\x19\x00\x1a\x00\x18\x00\x19\x00\x1a\x00\xd6\x00\x10\x00\x16\x00\x66\x01\x4b\x00\x4c\x00\x18\x00\x19\x00\x1a\x00\x1b\x00\x80\x00\x24\x00\x1b\x00\x25\x00\x5b\x00\x8f\x00\x67\x01\x1c\x00\x11\x00\x3b\x01\x8b\x00\x1b\x00\x96\x00\x5b\x00\xf6\x00\x5d\x00\x8e\x01\x16\x00\x70\x01\x8b\x00\x8c\x00\x18\x00\x19\x00\x1a\x00\x5d\x00\x5e\x00\x1d\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x24\x00\x5e\x00\x74\x01\x1b\x00\x77\x01\x1d\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\xb1\x00\x11\x00\x8f\x00\x38\x00\x39\x00\x3a\x00\x3b\x00\xb2\x00\x0f\x00\x10\x00\x91\x01\x3c\x00\x3d\x00\x84\x01\xb7\x00\xdf\x00\xb3\x00\x38\x00\x39\x00\x3a\x00\x3b\x00\xe0\x00\x2c\x00\xde\x00\x2d\x00\x3c\x00\x3d\x00\xed\x00\x11\x00\x12\x00\xb8\x00\x2e\x00\xfc\x00\xb9\x00\x21\x01\x10\x00\x23\x01\xc1\x00\xbb\x00\xbc\x00\xbd\x00\x38\x00\x39\x00\x3a\x00\x3b\x00\x11\x00\x12\x00\xfd\x00\x3e\x00\x3c\x00\x3d\x00\x03\x01\xbb\x00\x0a\x01\x80\x01\x38\x00\x39\x00\x3a\x00\x3b\x00\x11\x00\x12\x00\x14\x01\x3e\x00\x3c\x00\x3d\x00\xc3\x01\xd3\x00\x1d\x01\x38\x00\x39\x00\x3a\x00\x3b\x00\x11\x00\x12\x00\x32\x01\xd1\x00\x3c\x00\x3d\x00\x21\x01\x10\x00\x24\x01\xa8\x00\xa9\x00\x11\x00\x12\x00\x1e\x01\x3e\x00\xc2\x00\x0f\x00\x10\x00\xb5\x01\xd6\x00\x10\x00\x38\x00\x39\x00\x3a\x00\x3b\x00\x11\x00\x12\x00\x33\x01\x3e\x00\x3c\x00\x3d\x00\xba\x01\xc9\x01\xca\x01\x38\x00\x39\x00\x3a\x00\x3b\x00\x11\x00\x12\x00\x3b\x01\x3e\x00\x3c\x00\x3d\x00\xbd\x01\xe9\x00\xea\x00\x38\x00\x39\x00\x3a\x00\x3b\x00\x3e\x01\xdb\x00\x0f\x00\x10\x00\x3c\x00\x3d\x00\x02\x01\xfd\x00\x2f\x01\x2c\x01\x31\x01\x2e\x01\x11\x00\x12\x00\x48\x01\x3e\x00\xff\xff\x7a\x00\x93\x01\x7b\x00\x7c\x00\x38\x00\x39\x00\x3a\x00\x3b\x00\x11\x00\x12\x00\xff\xff\x3e\x00\x3c\x00\x3d\x00\x99\x01\x91\x00\x92\x00\x38\x00\x39\x00\x3a\x00\x3b\x00\x11\x00\x12\x00\x23\x00\x3e\x00\x3c\x00\x3d\x00\x9e\x01\x93\x00\x9d\x00\x38\x00\x39\x00\x3a\x00\x3b\x00\xff\xff\xc1\x00\x80\x00\xd6\x00\x3c\x00\x3d\x00\xff\xff\xff\xff\x0e\x00\x43\x00\x00\x00\x00\x00\x11\x00\x12\x00\x4f\x00\x3e\x00\x62\x00\x00\x00\xa2\x01\x00\x00\x00\x00\x38\x00\x39\x00\x3a\x00\x3b\x00\x11\x00\x12\x00\x00\x00\x3e\x00\x3c\x00\x3d\x00\x67\x01\x00\x00\x00\x00\x38\x00\x39\x00\x3a\x00\x3b\x00\x11\x00\x12\x00\x00\x00\x3e\x00\x3c\x00\x3d\x00\x75\x01\x00\x00\x00\x00\x38\x00\x39\x00\x3a\x00\x3b\x00\x00\x00\x00\x00\x00\x00\x00\x00\x3c\x00\x3d\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x11\x00\x12\x00\x00\x00\x3e\x00\x00\x00\x00\x00\x77\x01\x00\x00\x00\x00\x38\x00\x39\x00\x3a\x00\x3b\x00\x11\x00\x12\x00\x00\x00\x3e\x00\x3c\x00\x3d\x00\x78\x01\x00\x00\x00\x00\x38\x00\x39\x00\x3a\x00\x3b\x00\x11\x00\x12\x00\x00\x00\x3e\x00\x3c\x00\x3d\x00\x7d\x01\x00\x00\x00\x00\x38\x00\x39\x00\x3a\x00\x3b\x00\x00\x00\x00\x00\x00\x00\x00\x00\x3c\x00\x3d\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x11\x00\x12\x00\x00\x00\x3e\x00\x00\x00\x00\x00\x7e\x01\x00\x00\x00\x00\x38\x00\x39\x00\x3a\x00\x3b\x00\x11\x00\x12\x00\x00\x00\x3e\x00\x3c\x00\x3d\x00\x7f\x01\x00\x00\x00\x00\x38\x00\x39\x00\x3a\x00\x3b\x00\x11\x00\x12\x00\x00\x00\x3e\x00\x3c\x00\x3d\x00\x82\x01\x00\x00\x00\x00\x38\x00\x39\x00\x3a\x00\x3b\x00\x00\x00\x00\x00\x00\x00\x00\x00\x3c\x00\x3d\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x11\x00\x12\x00\x00\x00\x3e\x00\x00\x00\x00\x00\x1f\x01\x00\x00\x00\x00\x38\x00\x39\x00\x3a\x00\x3b\x00\x11\x00\x12\x00\x00\x00\x3e\x00\x3c\x00\x3d\x00\x5f\x00\x00\x00\x00\x00\x38\x00\x39\x00\x3a\x00\x3b\x00\x11\x00\x12\x00\x00\x00\x3e\x00\x3c\x00\x3d\x00\x00\x00\x30\x00\x00\x00\x31\x00\x16\x00\x17\x00\x00\x00\x00\x00\x18\x00\x19\x00\x1a\x00\xa0\x00\x00\x00\x00\x00\x00\x00\x00\x00\x3c\x00\x3d\x00\x00\x00\x11\x00\x12\x00\x00\x00\x3e\x00\x1b\x00\x00\x00\x32\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x33\x00\x11\x00\x12\x00\x00\x00\x3e\x00\xce\x00\x12\x01\x00\x00\x00\x00\x30\x00\x00\x00\x31\x00\x16\x00\x17\x00\x00\x00\x35\x00\x18\x00\x19\x00\x1a\x00\x11\x00\x12\x00\x30\x00\x3e\x00\x31\x00\x16\x00\x17\x00\x00\x00\x00\x00\x18\x00\x19\x00\x1a\x00\x1b\x00\x00\x00\x32\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x33\x00\xcd\x00\xa1\x00\x00\x00\x1b\x00\xce\x00\x32\x00\x3c\x00\x3d\x00\x00\x00\x00\x00\x00\x00\x33\x00\x00\x00\x00\x00\x35\x00\x30\x00\x34\x00\x31\x00\x16\x00\x17\x00\x00\x00\x00\x00\x18\x00\x19\x00\x1a\x00\x00\x00\x35\x00\x30\x00\x00\x00\x31\x00\x16\x00\x17\x00\x00\x00\x00\x00\x18\x00\x19\x00\x1a\x00\x1b\x00\x00\x00\x32\x00\x11\x00\x12\x00\x00\x00\x3e\x00\x00\x00\x33\x00\x00\x00\x00\x00\x16\x00\x1b\x00\xce\x00\x32\x00\x18\x00\x19\x00\x1a\x00\x00\x00\x00\x00\x33\x00\x00\x00\x00\x00\x35\x00\x30\x00\x34\x00\x31\x00\x16\x00\x17\x00\x00\x00\x1b\x00\x18\x00\x19\x00\x1a\x00\x00\x00\x35\x00\x30\x00\x00\x00\x31\x00\x16\x00\x17\x00\x00\x00\x00\x00\x18\x00\x19\x00\x1a\x00\x1b\x00\x00\x00\x32\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x33\x00\x00\x00\x00\x00\x00\x00\x1b\x00\xce\x00\xd3\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x33\x00\x00\x00\x00\x00\x35\x00\x30\x00\xce\x00\x31\x00\x16\x00\x17\x00\x00\x00\x00\x00\x18\x00\x19\x00\x1a\x00\x00\x00\x35\x00\x30\x00\x00\x00\x31\x00\x16\x00\x17\x00\x00\x00\x00\x00\x18\x00\x19\x00\x1a\x00\x1b\x00\x00\x00\x32\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x33\x00\x00\x00\x00\x00\x00\x00\x1b\x00\xce\x00\x32\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x33\x00\x00\x00\x00\x00\x35\x00\x30\x00\x34\x00\x31\x00\x16\x00\x17\x00\x00\x00\x00\x00\x18\x00\x19\x00\x1a\x00\x00\x00\x35\x00\x30\x00\x00\x00\x31\x00\x16\x00\x17\x00\x00\x00\x00\x00\x18\x00\x19\x00\x1a\x00\x1b\x00\x00\x00\x32\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x33\x00\x00\x00\x00\x00\x00\x00\x1b\x00\xce\x00\xd3\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x33\x00\x00\x00\x00\x00\x35\x00\x30\x00\xce\x00\x31\x00\x16\x00\x17\x00\x00\x00\x00\x00\x18\x00\x19\x00\x1a\x00\x00\x00\x35\x00\x30\x00\x00\x00\x31\x00\x16\x00\x17\x00\x00\x00\x00\x00\x18\x00\x19\x00\x1a\x00\x1b\x00\x00\x00\xd5\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x33\x00\x00\x00\x00\x00\x00\x00\x1b\x00\xce\x00\x32\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x33\x00\x00\x00\x00\x00\x35\x00\x30\x00\xce\x00\x31\x00\x16\x00\x17\x00\x00\x00\x00\x00\x18\x00\x19\x00\x1a\x00\x00\x00\x35\x00\x81\x01\x39\x00\x3a\x00\x3b\x00\x00\x00\x00\x00\x00\x00\x00\x00\x3c\x00\x3d\x00\x1b\x00\x00\x00\x32\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x33\x00\x00\x00\x16\x00\x00\x00\x00\x00\x34\x00\x18\x00\x19\x00\x1a\x00\x00\x00\x57\x00\x58\x00\x59\x00\x5a\x00\x16\x00\x35\x00\x00\x00\x00\x00\x18\x00\x19\x00\x1a\x00\x1b\x00\x00\x00\x5b\x00\x11\x00\x12\x00\x00\x00\x3e\x00\x00\x00\x5c\x00\x00\x00\x16\x00\x00\x00\x1b\x00\x5d\x00\x18\x00\x19\x00\x1a\x00\x00\x00\x57\x00\x58\x00\x59\x00\x5a\x00\x00\x00\x5e\x00\x00\x00\x59\x01\x84\x00\x00\x00\x00\x00\x1b\x00\x16\x00\x5b\x00\x00\x00\x00\x00\x18\x00\x19\x00\x1a\x00\x5c\x00\x57\x00\x58\x00\x59\x00\x5a\x00\x5d\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x1b\x00\x00\x00\x5b\x00\x5e\x00\x00\x00\xa0\x00\x00\x00\x00\x00\x5c\x00\x00\x00\x00\x00\x16\x00\x00\x00\x5d\x00\xa4\x01\x18\x00\x19\x00\x1a\x00\x00\x00\x57\x00\x58\x00\x59\x00\x5a\x00\x5e\x00\xbc\x01\x7c\x01\x86\x00\x87\x00\x00\x00\x00\x00\x1b\x00\x16\x00\x5b\x00\x00\x00\x00\x00\x18\x00\x19\x00\x1a\x00\x5c\x00\x57\x00\x58\x00\x59\x00\x5a\x00\x5d\x00\x5b\x01\x00\x00\x00\x00\x11\x00\x89\x00\x00\x00\x1b\x00\x16\x00\x5b\x00\x5e\x00\x00\x00\x18\x00\x19\x00\x45\x01\x5c\x00\x57\x00\x58\x00\x59\x00\x5a\x00\x5d\x00\x8c\x00\x86\x00\x87\x00\x8d\x00\x00\x00\x00\x00\x1b\x00\x16\x00\x5b\x00\x5e\x00\x00\x00\x18\x00\x19\x00\x1a\x00\x5c\x00\x57\x00\x58\x00\x59\x00\x5a\x00\x5d\x00\x00\x00\x00\x00\x11\x00\x89\x00\x00\x00\x00\x00\x1b\x00\x16\x00\x5b\x00\x5e\x00\x00\x00\x18\x00\x19\x00\x1a\x00\x5c\x00\x00\x00\x00\x00\x16\x00\x00\x00\x5d\x00\x00\x00\x18\x00\x19\x00\x1a\x00\x00\x00\x00\x00\x1b\x00\x16\x00\x5b\x00\x5e\x00\x00\x00\x18\x00\x19\x00\x1a\x00\x8b\x00\x00\x00\x1b\x00\x00\x00\x00\x00\x5d\x00\x00\x00\x00\x00\x00\x00\xae\x01\x00\x00\x00\x00\x1b\x00\x16\x00\x5b\x00\x5e\x00\xb1\x00\x18\x00\x19\x00\x1a\x00\x8b\x00\x5f\x01\x86\x00\x87\x00\x00\x00\x5d\x00\x60\x01\x86\x00\x87\x00\x07\x01\x00\x00\x00\x00\x1b\x00\x16\x00\x5b\x00\x5e\x00\x00\x00\x18\x00\x19\x00\x1a\x00\x8b\x00\x8c\x00\x00\x00\x11\x00\x89\x00\x5d\x00\x00\x00\x00\x00\x11\x00\x89\x00\x00\x00\x00\x00\x1b\x00\x00\x00\x5b\x00\x5e\x00\x00\x00\x00\x00\x2b\xff\x00\x00\x8b\x00\x2b\xff\x2b\xff\x00\x00\x00\x00\x5d\x00\x2b\xff\x2b\xff\x2b\xff\x2b\xff\x2b\xff\x00\x00\x2b\xff\x2b\xff\x2b\xff\x5e\x00\x00\x00\x2b\xff\x40\x00\x41\x00\x42\x00\x16\x00\x17\x00\x2b\xff\x2b\xff\x18\x00\x19\x00\x1a\x00\x2b\xff\x2b\xff\x2b\xff\x2b\xff\x2b\xff\x2b\xff\x2b\xff\x2b\xff\x2b\xff\x00\x00\x00\x00\x2b\xff\x1b\x00\x16\x00\x45\x00\x00\x00\x00\x00\x18\x00\x19\x00\x1a\x00\x46\x00\x00\x00\x00\x00\x00\x00\x00\x00\x47\x00\x00\x00\x48\x00\x00\x00\x16\x00\x49\x00\x00\x00\x1b\x00\x18\x00\x19\x00\x1a\x00\x00\x00\x00\x00\x00\x00\x16\x00\x29\x01\x00\x00\x00\x00\x18\x00\x19\x00\x1a\x00\x00\x00\x00\x00\x1b\x00\xb0\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x29\x01\x00\x00\x1b\x00\x8f\x01\xa6\x00\x00\x00\x00\x00\x16\x00\x17\x00\x65\x01\x29\x01\x18\x00\x19\x00\x1a\x00\x00\x00\x00\x00\x16\x00\x90\x01\x00\x00\x2a\x01\x18\x00\x19\x00\x1a\x00\x00\x00\x00\x00\x00\x00\x1b\x00\x1d\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\xa7\x00\x1b\x00\xe6\x00\x00\x00\x00\x00\xa8\x00\x00\x00\x1d\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x16\x00\xca\x00\x00\x00\x16\x00\x18\x00\x19\x00\x1a\x00\x18\x00\x19\x00\x1a\x00\x00\x00\x00\x00\x1d\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x1b\x00\x16\x00\x27\x00\x1b\x00\x00\x00\x18\x00\x19\x00\x1a\x00\x1b\x01\x27\xff\x00\x00\x3d\x01\x79\x01\x7a\x01\x7b\x01\x7c\x01\x86\x00\x87\x00\x27\xff\x27\xff\x1b\x00\xeb\x00\xec\x00\x27\xff\x27\xff\x27\xff\x27\xff\x27\xff\x27\xff\x27\xff\x27\xff\x27\xff\x6d\x01\x00\x00\x27\xff\x00\x00\x00\x00\x11\x00\x89\x00\x1d\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x00\x00\x00\x00\x00\x00\x00\x00\x1d\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\xec\x00\x00\x00\x00\x00\x00\x00\x72\x01\x00\x00\x00\x00\x00\x00\x00\x00\x16\x00\x17\x00\x00\x00\x00\x00\x18\x00\x19\x00\x1a\x00\x00\x00\x1d\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\xc0\x01\x28\x00\x29\x00\x00\x00\x1b\x00\x00\x00\x00\x00\x00\x00\x2a\x00\x2b\x00\x2c\x00\x00\x00\x2d\x00\xa5\x01\x28\x00\x29\x00\x11\x00\x12\x00\x00\x00\x2e\x00\x00\x00\x2a\x00\x2b\x00\x2c\x00\x00\x00\x2d\x00\x17\x01\x28\x00\x29\x00\x11\x00\x12\x00\x00\x00\x2e\x00\x00\x00\x2a\x00\x2b\x00\x2c\x00\x00\x00\x2d\x00\x27\x00\x28\x00\x29\x00\x11\x00\x12\x00\x00\x00\x2e\x00\x00\x00\x2a\x00\x2b\x00\x2c\x00\x00\x00\x2d\x00\x00\x00\x00\x00\x00\x00\x11\x00\x12\x00\x00\x00\x2e\x00\x16\x00\x27\x00\x00\x00\xd9\x00\x18\x00\x19\x00\x1a\x00\x00\x00\x00\x00\xda\x00\x2b\x00\x2c\x00\x00\x00\x2d\x00\x00\x00\x00\x00\x87\x01\x11\x00\x12\x00\x1b\x00\x2e\x00\x88\x01\x2b\x00\x2c\x00\x00\x00\x2d\x00\x00\x00\x00\x00\x00\x00\x11\x00\x12\x00\x00\x00\x2e\x00\x0c\x01\x2b\x00\x2c\x00\x00\x00\x2d\x00\x0d\x01\x00\x00\x00\x00\x0e\x01\x12\x00\xc4\x00\x2e\x00\x00\x00\x00\x00\x0f\x01\x10\x01\x00\x00\x00\x00\x1d\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x24\x00\xd8\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x1d\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\xca\x00\x2b\x00\x2c\x00\x00\x00\x2d\x00\xcb\x00\x00\x00\x00\x00\x11\x00\x12\x00\x00\x00\x2e\x00\x88\x01\x2b\x00\x2c\x00\x00\x00\x2d\x00\x00\x00\x00\x00\x00\x00\x11\x00\x12\x00\x00\x00\x2e\x00\x9a\x01\x2b\x00\x2c\x00\x00\x00\x2d\x00\x00\x00\x00\x00\x00\x00\x11\x00\x12\x00\x00\x00\x2e\x00\xa0\x01\x2b\x00\x2c\x00\x00\x00\x2d\x00\x00\x00\x00\x00\x00\x00\x11\x00\x12\x00\x00\x00\x2e\x00\x5e\x01\x2b\x00\x2c\x00\x00\x00\x2d\x00\x00\x00\x00\x00\x00\x00\x11\x00\x12\x00\x00\x00\x2e\x00\x61\x01\x2b\x00\x2c\x00\x00\x00\x2d\x00\x00\x00\x00\x00\x00\x00\x11\x00\x12\x00\x00\x00\x2e\x00\x8b\x01\x2b\x00\x2c\x00\x00\x00\x2d\x00\x00\x00\x00\x00\x00\x00\x11\x00\x12\x00\x00\x00\x2e\x00\x8c\x01\x2b\x00\x2c\x00\x00\x00\x2d\x00\x00\x00\x00\x00\x00\x00\x11\x00\x12\x00\x00\x00\x2e\x00\xdf\x00\x2b\x00\x2c\x00\x00\x00\x2d\x00\x00\x00\x00\x00\x00\x00\x11\x00\x12\x00\x00\x00\x2e\x00\xe1\x00\x2b\x00\x2c\x00\x00\x00\x2d\x00\x00\x00\x00\x00\x00\x00\x11\x00\x12\x00\x00\x00\x2e\x00\xe2\x00\x2b\x00\x2c\x00\x00\x00\x2d\x00\x00\x00\x00\x00\x00\x00\x11\x00\x12\x00\x00\x00\x2e\x00\xe3\x00\x2b\x00\x2c\x00\x00\x00\x2d\x00\x00\x00\x00\x00\x00\x00\x11\x00\x12\x00\x00\x00\x2e\x00\xf1\x00\x2b\x00\x2c\x00\x00\x00\x2d\x00\x00\x00\x00\x00\x00\x00\x11\x00\x12\x00\x00\x00\x2e\x00\x12\x01\x2b\x00\x2c\x00\x00\x00\x2d\x00\x00\x00\x00\x00\x00\x00\x11\x00\x12\x00\x00\x00\x2e\x00\xce\x00\x2b\x00\x2c\x00\x00\x00\x2d\x00\x00\x00\x00\x00\x00\x00\x11\x00\x12\x00\x00\x00\x2e\x00\xd8\x00\x2b\x00\x2c\x00\x00\x00\x2d\x00\x00\x00\x00\x00\x00\x00\x11\x00\x12\x00\x00\x00\x2e\x00\x1d\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x24\x00\x1d\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\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 = Happy_Data_Array.array (12, 250) [-	(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),-	(229 , happyReduce_229),-	(230 , happyReduce_230),-	(231 , happyReduce_231),-	(232 , happyReduce_232),-	(233 , happyReduce_233),-	(234 , happyReduce_234),-	(235 , happyReduce_235),-	(236 , happyReduce_236),-	(237 , happyReduce_237),-	(238 , happyReduce_238),-	(239 , happyReduce_239),-	(240 , happyReduce_240),-	(241 , happyReduce_241),-	(242 , happyReduce_242),-	(243 , happyReduce_243),-	(244 , happyReduce_244),-	(245 , happyReduce_245),-	(246 , happyReduce_246),-	(247 , happyReduce_247),-	(248 , happyReduce_248),-	(249 , happyReduce_249),-	(250 , happyReduce_250)-	]--happy_n_terms = 60 :: Int-happy_n_nonterms = 83 :: Int--happyReduce_12 = happyReduce 6# 0# 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 happyOut92 happy_x_2 of { happy_var_2 -> -	case happyOut16 happy_x_5 of { happy_var_5 -> -	happyIn15-		 (let (is,ts) = happy_var_5 in Module happy_var_2 is ts-	) `HappyStk` happyRest}}--happyReduce_13 = happySpecReduce_3  0# happyReduction_13-happyReduction_13 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOut16 happy_x_2 of { happy_var_2 -> -	happyIn15-		 (let { (is,ts) = happy_var_2-            -- XXX make a location from is and ts-          ; modName = Located { srcRange = emptyRange-                              , thing    = mkModName ["Main"]-                              }-          } in Module modName is ts-	)}--happyReduce_14 = happySpecReduce_3  1# happyReduction_14-happyReduction_14 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOut17 happy_x_1 of { happy_var_1 -> -	case happyOut26 happy_x_3 of { happy_var_3 -> -	happyIn16-		 ((reverse happy_var_1, reverse happy_var_3)-	)}}--happyReduce_15 = happySpecReduce_3  1# happyReduction_15-happyReduction_15 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOut17 happy_x_1 of { happy_var_1 -> -	case happyOut26 happy_x_3 of { happy_var_3 -> -	happyIn16-		 ((reverse happy_var_1, reverse happy_var_3)-	)}}--happyReduce_16 = happySpecReduce_1  1# happyReduction_16-happyReduction_16 happy_x_1-	 =  case happyOut17 happy_x_1 of { happy_var_1 -> -	happyIn16-		 ((reverse happy_var_1, [])-	)}--happyReduce_17 = happySpecReduce_1  1# happyReduction_17-happyReduction_17 happy_x_1-	 =  case happyOut26 happy_x_1 of { happy_var_1 -> -	happyIn16-		 (([], reverse happy_var_1)-	)}--happyReduce_18 = happySpecReduce_0  1# happyReduction_18-happyReduction_18  =  happyIn16-		 (([], [])-	)--happyReduce_19 = happySpecReduce_3  2# happyReduction_19-happyReduction_19 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOut17 happy_x_1 of { happy_var_1 -> -	case happyOut18 happy_x_3 of { happy_var_3 -> -	happyIn17-		 (happy_var_3 : happy_var_1-	)}}--happyReduce_20 = happySpecReduce_3  2# happyReduction_20-happyReduction_20 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOut17 happy_x_1 of { happy_var_1 -> -	case happyOut18 happy_x_3 of { happy_var_3 -> -	happyIn17-		 (happy_var_3 : happy_var_1-	)}}--happyReduce_21 = happySpecReduce_1  2# happyReduction_21-happyReduction_21 happy_x_1-	 =  case happyOut18 happy_x_1 of { happy_var_1 -> -	happyIn17-		 ([happy_var_1]-	)}--happyReduce_22 = happyReduce 4# 3# happyReduction_22-happyReduction_22 (happy_x_4 `HappyStk`-	happy_x_3 `HappyStk`-	happy_x_2 `HappyStk`-	happy_x_1 `HappyStk`-	happyRest)-	 = case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (KW KW_import)    _)) -> -	case happyOut92 happy_x_2 of { happy_var_2 -> -	case happyOut19 happy_x_3 of { happy_var_3 -> -	case happyOut20 happy_x_4 of { happy_var_4 -> -	happyIn18-		 (Located { srcRange = rComb happy_var_1-                                                   $ fromMaybe (srcRange happy_var_2)-                                                   $ msum [ fmap srcRange happy_var_4-                                                          , fmap srcRange happy_var_3-                                                          ]-                                        , thing    = Import-                                          { iModule    = thing happy_var_2-                                          , iAs        = fmap thing happy_var_3-                                          , iSpec      = fmap thing happy_var_4-                                          }-                                        }-	) `HappyStk` happyRest}}}}--happyReduce_23 = happySpecReduce_2  4# happyReduction_23-happyReduction_23 happy_x_2-	happy_x_1-	 =  case happyOut92 happy_x_2 of { happy_var_2 -> -	happyIn19-		 (Just happy_var_2-	)}--happyReduce_24 = happySpecReduce_0  4# happyReduction_24-happyReduction_24  =  happyIn19-		 (Nothing-	)--happyReduce_25 = happyReduce 4# 5# happyReduction_25-happyReduction_25 (happy_x_4 `HappyStk`-	happy_x_3 `HappyStk`-	happy_x_2 `HappyStk`-	happy_x_1 `HappyStk`-	happyRest)-	 = case happyOut22 happy_x_1 of { happy_var_1 -> -	case happyOut21 happy_x_3 of { happy_var_3 -> -	happyIn20-		 (Just Located-                                  { srcRange = case happy_var_3 of-                                      { [] -> emptyRange-                                      ; xs -> rCombs (map srcRange xs) }-                                  , thing    = happy_var_1 (reverse (map thing happy_var_3))-                                  }-	) `HappyStk` happyRest}}--happyReduce_26 = happySpecReduce_0  5# happyReduction_26-happyReduction_26  =  happyIn20-		 (Nothing-	)--happyReduce_27 = happySpecReduce_3  6# happyReduction_27-happyReduction_27 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOut21 happy_x_1 of { happy_var_1 -> -	case happyOut90 happy_x_3 of { happy_var_3 -> -	happyIn21-		 (happy_var_3 : happy_var_1-	)}}--happyReduce_28 = happySpecReduce_1  6# happyReduction_28-happyReduction_28 happy_x_1-	 =  case happyOut90 happy_x_1 of { happy_var_1 -> -	happyIn21-		 ([happy_var_1]-	)}--happyReduce_29 = happySpecReduce_0  6# happyReduction_29-happyReduction_29  =  happyIn21-		 ([]-	)--happyReduce_30 = happySpecReduce_1  7# happyReduction_30-happyReduction_30 happy_x_1-	 =  happyIn22-		 (Hiding-	)--happyReduce_31 = happySpecReduce_0  7# happyReduction_31-happyReduction_31  =  happyIn22-		 (Only-	)--happyReduce_32 = happySpecReduce_1  8# happyReduction_32-happyReduction_32 happy_x_1-	 =  case happyOut25 happy_x_1 of { happy_var_1 -> -	happyIn23-		 (Program (reverse happy_var_1)-	)}--happyReduce_33 = happySpecReduce_0  8# happyReduction_33-happyReduction_33  =  happyIn23-		 (Program []-	)--happyReduce_34 = happySpecReduce_3  9# happyReduction_34-happyReduction_34 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOut26 happy_x_2 of { happy_var_2 -> -	happyIn24-		 (Program (reverse happy_var_2)-	)}--happyReduce_35 = happySpecReduce_2  9# happyReduction_35-happyReduction_35 happy_x_2-	happy_x_1-	 =  happyIn24-		 (Program []-	)--happyReduce_36 = happySpecReduce_2  10# happyReduction_36-happyReduction_36 happy_x_2-	happy_x_1-	 =  case happyOut28 happy_x_1 of { happy_var_1 -> -	happyIn25-		 (happy_var_1-	)}--happyReduce_37 = happySpecReduce_3  10# happyReduction_37-happyReduction_37 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOut25 happy_x_1 of { happy_var_1 -> -	case happyOut28 happy_x_2 of { happy_var_2 -> -	happyIn25-		 (happy_var_2 ++ happy_var_1-	)}}--happyReduce_38 = happySpecReduce_1  11# happyReduction_38-happyReduction_38 happy_x_1-	 =  case happyOut27 happy_x_1 of { happy_var_1 -> -	happyIn26-		 (happy_var_1-	)}--happyReduce_39 = happySpecReduce_3  11# happyReduction_39-happyReduction_39 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOut26 happy_x_1 of { happy_var_1 -> -	case happyOut27 happy_x_3 of { happy_var_3 -> -	happyIn26-		 (happy_var_3 ++ happy_var_1-	)}}--happyReduce_40 = happySpecReduce_3  11# happyReduction_40-happyReduction_40 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOut26 happy_x_1 of { happy_var_1 -> -	case happyOut27 happy_x_3 of { happy_var_3 -> -	happyIn26-		 (happy_var_3 ++ happy_var_1-	)}}--happyReduce_41 = happySpecReduce_1  12# happyReduction_41-happyReduction_41 happy_x_1-	 =  case happyOut33 happy_x_1 of { happy_var_1 -> -	happyIn27-		 ([exportDecl Nothing   Public happy_var_1]-	)}--happyReduce_42 = happySpecReduce_2  12# happyReduction_42-happyReduction_42 happy_x_2-	happy_x_1-	 =  case happyOut31 happy_x_1 of { happy_var_1 -> -	case happyOut33 happy_x_2 of { happy_var_2 -> -	happyIn27-		 ([exportDecl (Just happy_var_1) Public happy_var_2]-	)}}--happyReduce_43 = happyMonadReduce 3# 12# happyReduction_43-happyReduction_43 (happy_x_3 `HappyStk`-	happy_x_2 `HappyStk`-	happy_x_1 `HappyStk`-	happyRest) tk-	 = happyThen (case happyOutTok happy_x_3 of { (happy_var_3@(Located _ (Token (StrLit {}) _))) -> -	( (return . Include) `fmap` fromStrLit happy_var_3)}-	) (\r -> happyReturn (happyIn27 r))--happyReduce_44 = happyReduce 6# 12# happyReduction_44-happyReduction_44 (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 happyOut32 happy_x_1 of { happy_var_1 -> -	case happyOut91 happy_x_3 of { happy_var_3 -> -	case happyOut39 happy_x_4 of { happy_var_4 -> -	case happyOut45 happy_x_6 of { happy_var_6 -> -	happyIn27-		 ([exportDecl happy_var_1 Public (mkProperty happy_var_3 happy_var_4 happy_var_6)]-	) `HappyStk` happyRest}}}}--happyReduce_45 = happyReduce 5# 12# 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 happyOut32 happy_x_1 of { happy_var_1 -> -	case happyOut91 happy_x_3 of { happy_var_3 -> -	case happyOut45 happy_x_5 of { happy_var_5 -> -	happyIn27-		 ([exportDecl happy_var_1 Public (mkProperty happy_var_3 [] happy_var_5)]-	) `HappyStk` happyRest}}}--happyReduce_46 = happySpecReduce_2  12# happyReduction_46-happyReduction_46 happy_x_2-	happy_x_1-	 =  case happyOut35 happy_x_2 of { happy_var_2 -> -	happyIn27-		 ([exportNewtype Public happy_var_2]-	)}--happyReduce_47 = happySpecReduce_1  12# happyReduction_47-happyReduction_47 happy_x_1-	 =  case happyOut30 happy_x_1 of { happy_var_1 -> -	happyIn27-		 (happy_var_1-	)}--happyReduce_48 = happySpecReduce_1  12# happyReduction_48-happyReduction_48 happy_x_1-	 =  case happyOut29 happy_x_1 of { happy_var_1 -> -	happyIn27-		 (happy_var_1-	)}--happyReduce_49 = happySpecReduce_1  13# happyReduction_49-happyReduction_49 happy_x_1-	 =  case happyOut33 happy_x_1 of { happy_var_1 -> -	happyIn28-		 ([Decl (TopLevel {tlExport = Public, tlValue = happy_var_1 })]-	)}--happyReduce_50 = happyMonadReduce 2# 13# happyReduction_50-happyReduction_50 (happy_x_2 `HappyStk`-	happy_x_1 `HappyStk`-	happyRest) tk-	 = happyThen (case happyOutTok happy_x_2 of { (happy_var_2@(Located _ (Token (StrLit {}) _))) -> -	( (return . Include) `fmap` fromStrLit happy_var_2)}-	) (\r -> happyReturn (happyIn28 r))--happyReduce_51 = happySpecReduce_1  13# happyReduction_51-happyReduction_51 happy_x_1-	 =  case happyOut30 happy_x_1 of { happy_var_1 -> -	happyIn28-		 (happy_var_1-	)}--happyReduce_52 = happyReduce 4# 14# happyReduction_52-happyReduction_52 (happy_x_4 `HappyStk`-	happy_x_3 `HappyStk`-	happy_x_2 `HappyStk`-	happy_x_1 `HappyStk`-	happyRest)-	 = case happyOut26 happy_x_3 of { happy_var_3 -> -	happyIn29-		 (changeExport Private (reverse happy_var_3)-	) `HappyStk` happyRest}--happyReduce_53 = happyReduce 5# 14# happyReduction_53-happyReduction_53 (happy_x_5 `HappyStk`-	happy_x_4 `HappyStk`-	happy_x_3 `HappyStk`-	happy_x_2 `HappyStk`-	happy_x_1 `HappyStk`-	happyRest)-	 = case happyOut26 happy_x_4 of { happy_var_4 -> -	happyIn29-		 (changeExport Private (reverse happy_var_4)-	) `HappyStk` happyRest}--happyReduce_54 = happyReduce 5# 15# happyReduction_54-happyReduction_54 (happy_x_5 `HappyStk`-	happy_x_4 `HappyStk`-	happy_x_3 `HappyStk`-	happy_x_2 `HappyStk`-	happy_x_1 `HappyStk`-	happyRest)-	 = case happyOut32 happy_x_1 of { happy_var_1 -> -	case happyOut91 happy_x_3 of { happy_var_3 -> -	case happyOut74 happy_x_5 of { happy_var_5 -> -	happyIn30-		 (mkPrimDecl happy_var_1 happy_var_3 happy_var_5-	) `HappyStk` happyRest}}}--happyReduce_55 = happyReduce 7# 15# happyReduction_55-happyReduction_55 (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 happyOut32 happy_x_1 of { happy_var_1 -> -	case happyOut53 happy_x_4 of { happy_var_4 -> -	case happyOut74 happy_x_7 of { happy_var_7 -> -	happyIn30-		 (mkPrimDecl happy_var_1 happy_var_4 happy_var_7-	) `HappyStk` happyRest}}}--happyReduce_56 = happySpecReduce_1  16# happyReduction_56-happyReduction_56 happy_x_1-	 =  case happyOutTok happy_x_1 of { (happy_var_1@(Located _ (Token (White DocStr) _))) -> -	happyIn31-		 (mkDoc (fmap tokenText happy_var_1)-	)}--happyReduce_57 = happySpecReduce_1  17# happyReduction_57-happyReduction_57 happy_x_1-	 =  case happyOut31 happy_x_1 of { happy_var_1 -> -	happyIn32-		 (Just happy_var_1-	)}--happyReduce_58 = happySpecReduce_0  17# happyReduction_58-happyReduction_58  =  happyIn32-		 (Nothing-	)--happyReduce_59 = happySpecReduce_3  18# happyReduction_59-happyReduction_59 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOut37 happy_x_1 of { happy_var_1 -> -	case happyOut74 happy_x_3 of { happy_var_3 -> -	happyIn33-		 (at (head happy_var_1,happy_var_3) $ DSignature (reverse happy_var_1) happy_var_3-	)}}--happyReduce_60 = happySpecReduce_3  18# happyReduction_60-happyReduction_60 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOut69 happy_x_1 of { happy_var_1 -> -	case happyOut45 happy_x_3 of { happy_var_3 -> -	happyIn33-		 (at (happy_var_1,happy_var_3) $ DPatBind happy_var_1 happy_var_3-	)}}--happyReduce_61 = happyReduce 5# 18# 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 happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym ParenL  ) _)) -> -	case happyOut53 happy_x_2 of { happy_var_2 -> -	case happyOut45 happy_x_5 of { happy_var_5 -> -	happyIn33-		 (at (happy_var_1,happy_var_5) $ DPatBind (PVar happy_var_2) happy_var_5-	) `HappyStk` happyRest}}}--happyReduce_62 = happyReduce 4# 18# happyReduction_62-happyReduction_62 (happy_x_4 `HappyStk`-	happy_x_3 `HappyStk`-	happy_x_2 `HappyStk`-	happy_x_1 `HappyStk`-	happyRest)-	 = case happyOut38 happy_x_1 of { happy_var_1 -> -	case happyOut39 happy_x_2 of { happy_var_2 -> -	case happyOut45 happy_x_4 of { happy_var_4 -> -	happyIn33-		 (at (happy_var_1,happy_var_4) $-                             DBind $ Bind { bName      = happy_var_1-                                          , bParams    = reverse happy_var_2-                                          , bDef       = at happy_var_4 (Located emptyRange (DExpr happy_var_4))-                                          , bSignature = Nothing-                                          , bPragmas   = []-                                          , bMono      = False-                                          , bInfix     = False-                                          , bFixity    = Nothing-                                          , bDoc       = Nothing-                                          }-	) `HappyStk` happyRest}}}--happyReduce_63 = happyReduce 5# 18# happyReduction_63-happyReduction_63 (happy_x_5 `HappyStk`-	happy_x_4 `HappyStk`-	happy_x_3 `HappyStk`-	happy_x_2 `HappyStk`-	happy_x_1 `HappyStk`-	happyRest)-	 = case happyOut70 happy_x_1 of { happy_var_1 -> -	case happyOut54 happy_x_2 of { happy_var_2 -> -	case happyOut70 happy_x_3 of { happy_var_3 -> -	case happyOut45 happy_x_5 of { happy_var_5 -> -	happyIn33-		 (at (happy_var_1,happy_var_5) $-                             DBind $ Bind { bName      = happy_var_2-                                          , bParams    = [happy_var_1,happy_var_3]-                                          , bDef       = at happy_var_5 (Located emptyRange (DExpr happy_var_5))-                                          , bSignature = Nothing-                                          , bPragmas   = []-                                          , bMono      = False-                                          , bInfix     = True-                                          , bFixity    = Nothing-                                          , bDoc       = Nothing-                                          }-	) `HappyStk` happyRest}}}}--happyReduce_64 = happyMonadReduce 4# 18# happyReduction_64-happyReduction_64 (happy_x_4 `HappyStk`-	happy_x_3 `HappyStk`-	happy_x_2 `HappyStk`-	happy_x_1 `HappyStk`-	happyRest) tk-	 = happyThen (case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (KW KW_type   ) _)) -> -	case happyOut91 happy_x_2 of { happy_var_2 -> -	case happyOut82 happy_x_4 of { happy_var_4 -> -	( at (happy_var_1,happy_var_4) `fmap` mkTySyn happy_var_2 [] happy_var_4)}}}-	) (\r -> happyReturn (happyIn33 r))--happyReduce_65 = happyMonadReduce 5# 18# 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) tk-	 = happyThen (case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (KW KW_type   ) _)) -> -	case happyOut91 happy_x_2 of { happy_var_2 -> -	case happyOut81 happy_x_3 of { happy_var_3 -> -	case happyOut82 happy_x_5 of { happy_var_5 -> -	( at (happy_var_1,happy_var_5) `fmap` mkTySyn happy_var_2 (reverse happy_var_3) happy_var_5)}}}}-	) (\r -> happyReturn (happyIn33 r))--happyReduce_66 = happyMonadReduce 3# 18# happyReduction_66-happyReduction_66 (happy_x_3 `HappyStk`-	happy_x_2 `HappyStk`-	happy_x_1 `HappyStk`-	happyRest) tk-	 = happyThen (case happyOutTok happy_x_2 of { (happy_var_2@(Located _ (Token (Num   {}) _))) -> -	case happyOut55 happy_x_3 of { happy_var_3 -> -	( mkFixity LeftAssoc  happy_var_2 (reverse happy_var_3))}}-	) (\r -> happyReturn (happyIn33 r))--happyReduce_67 = happyMonadReduce 3# 18# happyReduction_67-happyReduction_67 (happy_x_3 `HappyStk`-	happy_x_2 `HappyStk`-	happy_x_1 `HappyStk`-	happyRest) tk-	 = happyThen (case happyOutTok happy_x_2 of { (happy_var_2@(Located _ (Token (Num   {}) _))) -> -	case happyOut55 happy_x_3 of { happy_var_3 -> -	( mkFixity RightAssoc happy_var_2 (reverse happy_var_3))}}-	) (\r -> happyReturn (happyIn33 r))--happyReduce_68 = happyMonadReduce 3# 18# happyReduction_68-happyReduction_68 (happy_x_3 `HappyStk`-	happy_x_2 `HappyStk`-	happy_x_1 `HappyStk`-	happyRest) tk-	 = happyThen (case happyOutTok happy_x_2 of { (happy_var_2@(Located _ (Token (Num   {}) _))) -> -	case happyOut55 happy_x_3 of { happy_var_3 -> -	( mkFixity NonAssoc   happy_var_2 (reverse happy_var_3))}}-	) (\r -> happyReturn (happyIn33 r))--happyReduce_69 = happyReduce 4# 19# happyReduction_69-happyReduction_69 (happy_x_4 `HappyStk`-	happy_x_3 `HappyStk`-	happy_x_2 `HappyStk`-	happy_x_1 `HappyStk`-	happyRest)-	 = case happyOut69 happy_x_2 of { happy_var_2 -> -	case happyOut45 happy_x_4 of { happy_var_4 -> -	happyIn34-		 (at (happy_var_2,happy_var_4) $ DPatBind happy_var_2 happy_var_4-	) `HappyStk` happyRest}}--happyReduce_70 = happyReduce 5# 19# happyReduction_70-happyReduction_70 (happy_x_5 `HappyStk`-	happy_x_4 `HappyStk`-	happy_x_3 `HappyStk`-	happy_x_2 `HappyStk`-	happy_x_1 `HappyStk`-	happyRest)-	 = case happyOut91 happy_x_2 of { happy_var_2 -> -	case happyOut39 happy_x_3 of { happy_var_3 -> -	case happyOut45 happy_x_5 of { happy_var_5 -> -	happyIn34-		 (at (happy_var_2,happy_var_5) $-                                   DBind $ Bind { bName      = happy_var_2-                                                , bParams    = reverse happy_var_3-                                                , bDef       = at happy_var_5 (Located emptyRange (DExpr happy_var_5))-                                                , bSignature = Nothing-                                                , bPragmas   = []-                                                , bMono      = False-                                                , bInfix     = False-                                                , bFixity    = Nothing-                                                , bDoc       = Nothing-                                                }-	) `HappyStk` happyRest}}}--happyReduce_71 = happyReduce 4# 20# happyReduction_71-happyReduction_71 (happy_x_4 `HappyStk`-	happy_x_3 `HappyStk`-	happy_x_2 `HappyStk`-	happy_x_1 `HappyStk`-	happyRest)-	 = case happyOut93 happy_x_2 of { happy_var_2 -> -	case happyOut36 happy_x_4 of { happy_var_4 -> -	happyIn35-		 (Newtype { nName = happy_var_2, nParams = [], nBody = happy_var_4 }-	) `HappyStk` happyRest}}--happyReduce_72 = happyReduce 5# 20# 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 happyOut93 happy_x_2 of { happy_var_2 -> -	case happyOut81 happy_x_3 of { happy_var_3 -> -	case happyOut36 happy_x_5 of { happy_var_5 -> -	happyIn35-		 (Newtype { nName = happy_var_2, nParams = happy_var_3, nBody = happy_var_5 }-	) `HappyStk` happyRest}}}--happyReduce_73 = happySpecReduce_2  21# happyReduction_73-happyReduction_73 happy_x_2-	happy_x_1-	 =  happyIn36-		 ([]-	)--happyReduce_74 = happySpecReduce_3  21# happyReduction_74-happyReduction_74 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOut89 happy_x_2 of { happy_var_2 -> -	happyIn36-		 (happy_var_2-	)}--happyReduce_75 = happySpecReduce_1  22# happyReduction_75-happyReduction_75 happy_x_1-	 =  case happyOut38 happy_x_1 of { happy_var_1 -> -	happyIn37-		 ([ happy_var_1]-	)}--happyReduce_76 = happySpecReduce_3  22# happyReduction_76-happyReduction_76 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOut37 happy_x_1 of { happy_var_1 -> -	case happyOut38 happy_x_3 of { happy_var_3 -> -	happyIn37-		 (happy_var_3 : happy_var_1-	)}}--happyReduce_77 = happySpecReduce_1  23# happyReduction_77-happyReduction_77 happy_x_1-	 =  case happyOut91 happy_x_1 of { happy_var_1 -> -	happyIn38-		 (happy_var_1-	)}--happyReduce_78 = happySpecReduce_3  23# happyReduction_78-happyReduction_78 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOut53 happy_x_2 of { happy_var_2 -> -	happyIn38-		 (happy_var_2-	)}--happyReduce_79 = happySpecReduce_1  24# happyReduction_79-happyReduction_79 happy_x_1-	 =  case happyOut70 happy_x_1 of { happy_var_1 -> -	happyIn39-		 ([happy_var_1]-	)}--happyReduce_80 = happySpecReduce_2  24# happyReduction_80-happyReduction_80 happy_x_2-	happy_x_1-	 =  case happyOut40 happy_x_1 of { happy_var_1 -> -	case happyOut70 happy_x_2 of { happy_var_2 -> -	happyIn39-		 (happy_var_2 : happy_var_1-	)}}--happyReduce_81 = happySpecReduce_1  25# happyReduction_81-happyReduction_81 happy_x_1-	 =  case happyOut70 happy_x_1 of { happy_var_1 -> -	happyIn40-		 ([happy_var_1]-	)}--happyReduce_82 = happySpecReduce_2  25# happyReduction_82-happyReduction_82 happy_x_2-	happy_x_1-	 =  case happyOut40 happy_x_1 of { happy_var_1 -> -	case happyOut70 happy_x_2 of { happy_var_2 -> -	happyIn40-		 (happy_var_2 : happy_var_1-	)}}--happyReduce_83 = happySpecReduce_2  26# happyReduction_83-happyReduction_83 happy_x_2-	happy_x_1-	 =  case happyOut33 happy_x_1 of { happy_var_1 -> -	happyIn41-		 ([happy_var_1]-	)}--happyReduce_84 = happySpecReduce_3  26# happyReduction_84-happyReduction_84 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOut41 happy_x_1 of { happy_var_1 -> -	case happyOut33 happy_x_2 of { happy_var_2 -> -	happyIn41-		 (happy_var_2 : happy_var_1-	)}}--happyReduce_85 = happySpecReduce_1  27# happyReduction_85-happyReduction_85 happy_x_1-	 =  case happyOut33 happy_x_1 of { happy_var_1 -> -	happyIn42-		 ([happy_var_1]-	)}--happyReduce_86 = happySpecReduce_3  27# happyReduction_86-happyReduction_86 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOut42 happy_x_1 of { happy_var_1 -> -	case happyOut33 happy_x_3 of { happy_var_3 -> -	happyIn42-		 (happy_var_3 : happy_var_1-	)}}--happyReduce_87 = happySpecReduce_3  27# happyReduction_87-happyReduction_87 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOut42 happy_x_1 of { happy_var_1 -> -	case happyOut33 happy_x_3 of { happy_var_3 -> -	happyIn42-		 (happy_var_3 : happy_var_1-	)}}--happyReduce_88 = happySpecReduce_3  28# happyReduction_88-happyReduction_88 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOut42 happy_x_2 of { happy_var_2 -> -	happyIn43-		 (happy_var_2-	)}--happyReduce_89 = happySpecReduce_2  28# happyReduction_89-happyReduction_89 happy_x_2-	happy_x_1-	 =  happyIn43-		 ([]-	)--happyReduce_90 = happySpecReduce_1  29# happyReduction_90-happyReduction_90 happy_x_1-	 =  case happyOut45 happy_x_1 of { happy_var_1 -> -	happyIn44-		 (ExprInput happy_var_1-	)}--happyReduce_91 = happySpecReduce_1  29# happyReduction_91-happyReduction_91 happy_x_1-	 =  case happyOut34 happy_x_1 of { happy_var_1 -> -	happyIn44-		 (LetInput happy_var_1-	)}--happyReduce_92 = happySpecReduce_1  30# happyReduction_92-happyReduction_92 happy_x_1-	 =  case happyOut48 happy_x_1 of { happy_var_1 -> -	happyIn45-		 (happy_var_1-	)}--happyReduce_93 = happyReduce 4# 30# happyReduction_93-happyReduction_93 (happy_x_4 `HappyStk`-	happy_x_3 `HappyStk`-	happy_x_2 `HappyStk`-	happy_x_1 `HappyStk`-	happyRest)-	 = case happyOut45 happy_x_1 of { happy_var_1 -> -	case happyOutTok happy_x_4 of { (Located happy_var_4 (Token (Sym CurlyR  ) _)) -> -	happyIn45-		 (at (happy_var_1,happy_var_4) $ EWhere happy_var_1 []-	) `HappyStk` happyRest}}--happyReduce_94 = happyReduce 5# 30# happyReduction_94-happyReduction_94 (happy_x_5 `HappyStk`-	happy_x_4 `HappyStk`-	happy_x_3 `HappyStk`-	happy_x_2 `HappyStk`-	happy_x_1 `HappyStk`-	happyRest)-	 = case happyOut45 happy_x_1 of { happy_var_1 -> -	case happyOut41 happy_x_4 of { happy_var_4 -> -	case happyOutTok happy_x_5 of { (Located happy_var_5 (Token (Sym CurlyR  ) _)) -> -	happyIn45-		 (at (happy_var_1,happy_var_5) $ EWhere happy_var_1 (reverse happy_var_4)-	) `HappyStk` happyRest}}}--happyReduce_95 = happyReduce 4# 30# happyReduction_95-happyReduction_95 (happy_x_4 `HappyStk`-	happy_x_3 `HappyStk`-	happy_x_2 `HappyStk`-	happy_x_1 `HappyStk`-	happyRest)-	 = case happyOut45 happy_x_1 of { happy_var_1 -> -	case happyOutTok happy_x_2 of { (Located happy_var_2 (Token (KW KW_where  ) _)) -> -	happyIn45-		 (at (happy_var_1,happy_var_2) $ EWhere happy_var_1 []-	) `HappyStk` happyRest}}--happyReduce_96 = happyReduce 5# 30# happyReduction_96-happyReduction_96 (happy_x_5 `HappyStk`-	happy_x_4 `HappyStk`-	happy_x_3 `HappyStk`-	happy_x_2 `HappyStk`-	happy_x_1 `HappyStk`-	happyRest)-	 = case happyOut45 happy_x_1 of { happy_var_1 -> -	case happyOut42 happy_x_4 of { happy_var_4 -> -	happyIn45-		 (at (happy_var_1,happy_var_4) $ EWhere happy_var_1 (reverse happy_var_4)-	) `HappyStk` happyRest}}--happyReduce_97 = happySpecReduce_1  31# happyReduction_97-happyReduction_97 happy_x_1-	 =  case happyOut47 happy_x_1 of { happy_var_1 -> -	happyIn46-		 ([happy_var_1]-	)}--happyReduce_98 = happySpecReduce_3  31# happyReduction_98-happyReduction_98 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 -> -	happyIn46-		 (happy_var_3 : happy_var_1-	)}}--happyReduce_99 = happySpecReduce_3  32# happyReduction_99-happyReduction_99 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOut45 happy_x_1 of { happy_var_1 -> -	case happyOut45 happy_x_3 of { happy_var_3 -> -	happyIn47-		 ((happy_var_1, happy_var_3)-	)}}--happyReduce_100 = happySpecReduce_1  33# happyReduction_100-happyReduction_100 happy_x_1-	 =  case happyOut49 happy_x_1 of { happy_var_1 -> -	happyIn48-		 (happy_var_1-	)}--happyReduce_101 = happyReduce 4# 33# happyReduction_101-happyReduction_101 (happy_x_4 `HappyStk`-	happy_x_3 `HappyStk`-	happy_x_2 `HappyStk`-	happy_x_1 `HappyStk`-	happyRest)-	 = case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (KW KW_if     ) _)) -> -	case happyOut46 happy_x_2 of { happy_var_2 -> -	case happyOut48 happy_x_4 of { happy_var_4 -> -	happyIn48-		 (at (happy_var_1,happy_var_4) $ mkIf (reverse happy_var_2) happy_var_4-	) `HappyStk` happyRest}}}--happyReduce_102 = happyReduce 4# 33# happyReduction_102-happyReduction_102 (happy_x_4 `HappyStk`-	happy_x_3 `HappyStk`-	happy_x_2 `HappyStk`-	happy_x_1 `HappyStk`-	happyRest)-	 = case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym Lambda  ) _)) -> -	case happyOut39 happy_x_2 of { happy_var_2 -> -	case happyOut48 happy_x_4 of { happy_var_4 -> -	happyIn48-		 (at (happy_var_1,happy_var_4) $ EFun (reverse happy_var_2) happy_var_4-	) `HappyStk` happyRest}}}--happyReduce_103 = happySpecReduce_1  34# happyReduction_103-happyReduction_103 happy_x_1-	 =  case happyOut50 happy_x_1 of { happy_var_1 -> -	happyIn49-		 (happy_var_1-	)}--happyReduce_104 = happySpecReduce_3  34# happyReduction_104-happyReduction_104 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOut50 happy_x_1 of { happy_var_1 -> -	case happyOut82 happy_x_3 of { happy_var_3 -> -	happyIn49-		 (at (happy_var_1,happy_var_3) $ ETyped happy_var_1 happy_var_3-	)}}--happyReduce_105 = happySpecReduce_1  35# happyReduction_105-happyReduction_105 happy_x_1-	 =  case happyOut51 happy_x_1 of { happy_var_1 -> -	happyIn50-		 (happy_var_1-	)}--happyReduce_106 = happySpecReduce_3  35# happyReduction_106-happyReduction_106 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOut50 happy_x_1 of { happy_var_1 -> -	case happyOut52 happy_x_2 of { happy_var_2 -> -	case happyOut51 happy_x_3 of { happy_var_3 -> -	happyIn50-		 (binOp happy_var_1 happy_var_2 happy_var_3-	)}}}--happyReduce_107 = happySpecReduce_1  36# happyReduction_107-happyReduction_107 happy_x_1-	 =  case happyOut56 happy_x_1 of { happy_var_1 -> -	happyIn51-		 (mkEApp happy_var_1-	)}--happyReduce_108 = happySpecReduce_2  36# happyReduction_108-happyReduction_108 happy_x_2-	happy_x_1-	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Op Minus) _)) -> -	case happyOut51 happy_x_2 of { happy_var_2 -> -	happyIn51-		 (at (happy_var_1,happy_var_2) $ EApp (at happy_var_1 (EVar (mkUnqual "negate"))) happy_var_2-	)}}--happyReduce_109 = happySpecReduce_2  36# happyReduction_109-happyReduction_109 happy_x_2-	happy_x_1-	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Op Complement) _)) -> -	case happyOut51 happy_x_2 of { happy_var_2 -> -	happyIn51-		 (at (happy_var_1,happy_var_2) $ EApp (at happy_var_1 (EVar (mkUnqual "complement"))) happy_var_2-	)}}--happyReduce_110 = happySpecReduce_1  37# happyReduction_110-happyReduction_110 happy_x_1-	 =  case happyOut53 happy_x_1 of { happy_var_1 -> -	happyIn52-		 (happy_var_1-	)}--happyReduce_111 = happySpecReduce_1  37# happyReduction_111-happyReduction_111 happy_x_1-	 =  case happyOutTok happy_x_1 of { (happy_var_1@(Located _ (Token (Op  Other{}   )  _))) -> -	happyIn52-		 (let Token (Op (Other ns i)) _ = thing happy_var_1-                                       in mkQual (mkModName ns) (mkInfix (T.toStrict i)) A.<$ happy_var_1-	)}--happyReduce_112 = happySpecReduce_1  38# happyReduction_112-happyReduction_112 happy_x_1-	 =  case happyOut54 happy_x_1 of { happy_var_1 -> -	happyIn53-		 (happy_var_1-	)}--happyReduce_113 = happySpecReduce_1  38# happyReduction_113-happyReduction_113 happy_x_1-	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Op Mul)   _)) -> -	happyIn53-		 (Located happy_var_1 $ mkUnqual $ mkInfix "*"-	)}--happyReduce_114 = happySpecReduce_1  38# happyReduction_114-happyReduction_114 happy_x_1-	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Op Plus)  _)) -> -	happyIn53-		 (Located happy_var_1 $ mkUnqual $ mkInfix "+"-	)}--happyReduce_115 = happySpecReduce_1  38# happyReduction_115-happyReduction_115 happy_x_1-	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Op Minus) _)) -> -	happyIn53-		 (Located happy_var_1 $ mkUnqual $ mkInfix "-"-	)}--happyReduce_116 = happySpecReduce_1  38# happyReduction_116-happyReduction_116 happy_x_1-	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Op Complement) _)) -> -	happyIn53-		 (Located happy_var_1 $ mkUnqual $ mkInfix "~"-	)}--happyReduce_117 = happySpecReduce_1  38# happyReduction_117-happyReduction_117 happy_x_1-	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Op Exp)   _)) -> -	happyIn53-		 (Located happy_var_1 $ mkUnqual $ mkInfix "^^"-	)}--happyReduce_118 = happySpecReduce_1  38# happyReduction_118-happyReduction_118 happy_x_1-	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Op Hash) _)) -> -	happyIn53-		 (Located happy_var_1 $ mkUnqual $ mkInfix "#"-	)}--happyReduce_119 = happySpecReduce_1  39# happyReduction_119-happyReduction_119 happy_x_1-	 =  case happyOutTok happy_x_1 of { (happy_var_1@(Located _ (Token (Op (Other [] _)) _))) -> -	happyIn54-		 (let Token (Op (Other [] str)) _ = thing happy_var_1-                                       in mkUnqual (mkInfix (T.toStrict str)) A.<$ happy_var_1-	)}--happyReduce_120 = happySpecReduce_1  40# happyReduction_120-happyReduction_120 happy_x_1-	 =  case happyOut53 happy_x_1 of { happy_var_1 -> -	happyIn55-		 ([happy_var_1]-	)}--happyReduce_121 = happySpecReduce_3  40# happyReduction_121-happyReduction_121 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOut55 happy_x_1 of { happy_var_1 -> -	case happyOut53 happy_x_3 of { happy_var_3 -> -	happyIn55-		 (happy_var_3 : happy_var_1-	)}}--happyReduce_122 = happySpecReduce_1  41# happyReduction_122-happyReduction_122 happy_x_1-	 =  case happyOut57 happy_x_1 of { happy_var_1 -> -	happyIn56-		 ([happy_var_1]-	)}--happyReduce_123 = happySpecReduce_2  41# happyReduction_123-happyReduction_123 happy_x_2-	happy_x_1-	 =  case happyOut56 happy_x_1 of { happy_var_1 -> -	case happyOut57 happy_x_2 of { happy_var_2 -> -	happyIn56-		 (happy_var_2 : happy_var_1-	)}}--happyReduce_124 = happySpecReduce_1  42# happyReduction_124-happyReduction_124 happy_x_1-	 =  case happyOut93 happy_x_1 of { happy_var_1 -> -	happyIn57-		 (at happy_var_1 $ EVar (thing happy_var_1)-	)}--happyReduce_125 = happySpecReduce_1  42# happyReduction_125-happyReduction_125 happy_x_1-	 =  case happyOutTok happy_x_1 of { (happy_var_1@(Located _ (Token (Num   {}) _))) -> -	happyIn57-		 (at happy_var_1 $ numLit (tokenType (thing happy_var_1))-	)}--happyReduce_126 = happySpecReduce_1  42# happyReduction_126-happyReduction_126 happy_x_1-	 =  case happyOutTok happy_x_1 of { (happy_var_1@(Located _ (Token (StrLit {}) _))) -> -	happyIn57-		 (at happy_var_1 $ ELit $ ECString $ getStr happy_var_1-	)}--happyReduce_127 = happySpecReduce_1  42# happyReduction_127-happyReduction_127 happy_x_1-	 =  case happyOutTok happy_x_1 of { (happy_var_1@(Located _ (Token (ChrLit {}) _))) -> -	happyIn57-		 (at happy_var_1 $ ELit $ ECNum (getNum happy_var_1) CharLit-	)}--happyReduce_128 = happySpecReduce_3  42# happyReduction_128-happyReduction_128 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym ParenL  ) _)) -> -	case happyOut45 happy_x_2 of { happy_var_2 -> -	case happyOutTok happy_x_3 of { (Located happy_var_3 (Token (Sym ParenR  ) _)) -> -	happyIn57-		 (at (happy_var_1,happy_var_3) $ EParens happy_var_2-	)}}}--happyReduce_129 = happySpecReduce_3  42# happyReduction_129-happyReduction_129 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym ParenL  ) _)) -> -	case happyOut61 happy_x_2 of { happy_var_2 -> -	case happyOutTok happy_x_3 of { (Located happy_var_3 (Token (Sym ParenR  ) _)) -> -	happyIn57-		 (at (happy_var_1,happy_var_3) $ ETuple (reverse happy_var_2)-	)}}}--happyReduce_130 = happySpecReduce_2  42# happyReduction_130-happyReduction_130 happy_x_2-	happy_x_1-	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym ParenL  ) _)) -> -	case happyOutTok happy_x_2 of { (Located happy_var_2 (Token (Sym ParenR  ) _)) -> -	happyIn57-		 (at (happy_var_1,happy_var_2) $ ETuple []-	)}}--happyReduce_131 = happySpecReduce_2  42# happyReduction_131-happyReduction_131 happy_x_2-	happy_x_1-	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym CurlyL  ) _)) -> -	case happyOutTok happy_x_2 of { (Located happy_var_2 (Token (Sym CurlyR  ) _)) -> -	happyIn57-		 (at (happy_var_1,happy_var_2) $ ERecord []-	)}}--happyReduce_132 = happySpecReduce_3  42# happyReduction_132-happyReduction_132 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym CurlyL  ) _)) -> -	case happyOut63 happy_x_2 of { happy_var_2 -> -	case happyOutTok happy_x_3 of { (Located happy_var_3 (Token (Sym CurlyR  ) _)) -> -	happyIn57-		 (at (happy_var_1,happy_var_3) $ ERecord (reverse happy_var_2)-	)}}}--happyReduce_133 = happySpecReduce_2  42# happyReduction_133-happyReduction_133 happy_x_2-	happy_x_1-	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym BracketL) _)) -> -	case happyOutTok happy_x_2 of { (Located happy_var_2 (Token (Sym BracketR) _)) -> -	happyIn57-		 (at (happy_var_1,happy_var_2) $ EList []-	)}}--happyReduce_134 = happySpecReduce_3  42# happyReduction_134-happyReduction_134 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym BracketL) _)) -> -	case happyOut64 happy_x_2 of { happy_var_2 -> -	case happyOutTok happy_x_3 of { (Located happy_var_3 (Token (Sym BracketR) _)) -> -	happyIn57-		 (at (happy_var_1,happy_var_3) happy_var_2-	)}}}--happyReduce_135 = happySpecReduce_2  42# happyReduction_135-happyReduction_135 happy_x_2-	happy_x_1-	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym BackTick) _)) -> -	case happyOut95 happy_x_2 of { happy_var_2 -> -	happyIn57-		 (at (happy_var_1,happy_var_2) $ ETypeVal happy_var_2-	)}}--happyReduce_136 = happySpecReduce_3  42# happyReduction_136-happyReduction_136 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOut57 happy_x_1 of { happy_var_1 -> -	case happyOut60 happy_x_3 of { happy_var_3 -> -	happyIn57-		 (at (happy_var_1,happy_var_3) $ ESel happy_var_1 (thing happy_var_3)-	)}}--happyReduce_137 = happySpecReduce_3  42# happyReduction_137-happyReduction_137 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym ParenL  ) _)) -> -	case happyOut52 happy_x_2 of { happy_var_2 -> -	case happyOutTok happy_x_3 of { (Located happy_var_3 (Token (Sym ParenR  ) _)) -> -	happyIn57-		 (at (happy_var_1,happy_var_3) $ EVar $ thing happy_var_2-	)}}}--happyReduce_138 = happyMonadReduce 2# 42# happyReduction_138-happyReduction_138 (happy_x_2 `HappyStk`-	happy_x_1 `HappyStk`-	happyRest) tk-	 = happyThen (case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym TriL    ) _)) -> -	case happyOutTok happy_x_2 of { (Located happy_var_2 (Token (Sym TriR    ) _)) -> -	( mkPoly (rComb happy_var_1 happy_var_2) [])}}-	) (\r -> happyReturn (happyIn57 r))--happyReduce_139 = happyMonadReduce 3# 42# happyReduction_139-happyReduction_139 (happy_x_3 `HappyStk`-	happy_x_2 `HappyStk`-	happy_x_1 `HappyStk`-	happyRest) tk-	 = happyThen (case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym TriL    ) _)) -> -	case happyOut58 happy_x_2 of { happy_var_2 -> -	case happyOutTok happy_x_3 of { (Located happy_var_3 (Token (Sym TriR    ) _)) -> -	( mkPoly (rComb happy_var_1 happy_var_3) happy_var_2)}}}-	) (\r -> happyReturn (happyIn57 r))--happyReduce_140 = happySpecReduce_1  43# happyReduction_140-happyReduction_140 happy_x_1-	 =  case happyOut59 happy_x_1 of { happy_var_1 -> -	happyIn58-		 ([happy_var_1]-	)}--happyReduce_141 = happySpecReduce_3  43# happyReduction_141-happyReduction_141 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOut58 happy_x_1 of { happy_var_1 -> -	case happyOut59 happy_x_3 of { happy_var_3 -> -	happyIn58-		 (happy_var_3 : happy_var_1-	)}}--happyReduce_142 = happyMonadReduce 1# 44# happyReduction_142-happyReduction_142 (happy_x_1 `HappyStk`-	happyRest) tk-	 = happyThen (case happyOutTok happy_x_1 of { (happy_var_1@(Located _ (Token (Num   {}) _))) -> -	( polyTerm (srcRange happy_var_1) (getNum happy_var_1) 0)}-	) (\r -> happyReturn (happyIn59 r))--happyReduce_143 = happyMonadReduce 1# 44# happyReduction_143-happyReduction_143 (happy_x_1 `HappyStk`-	happyRest) tk-	 = happyThen (case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (KW KW_x)       _)) -> -	( polyTerm happy_var_1 1 1)}-	) (\r -> happyReturn (happyIn59 r))--happyReduce_144 = happyMonadReduce 3# 44# happyReduction_144-happyReduction_144 (happy_x_3 `HappyStk`-	happy_x_2 `HappyStk`-	happy_x_1 `HappyStk`-	happyRest) tk-	 = happyThen (case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (KW KW_x)       _)) -> -	case happyOutTok happy_x_3 of { (happy_var_3@(Located _ (Token (Num   {}) _))) -> -	( polyTerm (rComb happy_var_1 (srcRange happy_var_3))-                                                            1 (getNum happy_var_3))}}-	) (\r -> happyReturn (happyIn59 r))--happyReduce_145 = happySpecReduce_1  45# happyReduction_145-happyReduction_145 happy_x_1-	 =  case happyOut90 happy_x_1 of { happy_var_1 -> -	happyIn60-		 (fmap (`RecordSel` Nothing) happy_var_1-	)}--happyReduce_146 = happyMonadReduce 1# 45# happyReduction_146-happyReduction_146 (happy_x_1 `HappyStk`-	happyRest) tk-	 = happyThen (case happyOutTok happy_x_1 of { (happy_var_1@(Located _ (Token (Num   {}) _))) -> -	( mkTupleSel (srcRange happy_var_1) (getNum happy_var_1))}-	) (\r -> happyReturn (happyIn60 r))--happyReduce_147 = happySpecReduce_3  46# happyReduction_147-happyReduction_147 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOut45 happy_x_1 of { happy_var_1 -> -	case happyOut45 happy_x_3 of { happy_var_3 -> -	happyIn61-		 ([ happy_var_3, happy_var_1]-	)}}--happyReduce_148 = happySpecReduce_3  46# happyReduction_148-happyReduction_148 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOut61 happy_x_1 of { happy_var_1 -> -	case happyOut45 happy_x_3 of { happy_var_3 -> -	happyIn61-		 (happy_var_3 : happy_var_1-	)}}--happyReduce_149 = happySpecReduce_3  47# happyReduction_149-happyReduction_149 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOut90 happy_x_1 of { happy_var_1 -> -	case happyOut45 happy_x_3 of { happy_var_3 -> -	happyIn62-		 (Named { name = happy_var_1, value = happy_var_3 }-	)}}--happyReduce_150 = happyReduce 4# 47# happyReduction_150-happyReduction_150 (happy_x_4 `HappyStk`-	happy_x_3 `HappyStk`-	happy_x_2 `HappyStk`-	happy_x_1 `HappyStk`-	happyRest)-	 = case happyOut90 happy_x_1 of { happy_var_1 -> -	case happyOut39 happy_x_2 of { happy_var_2 -> -	case happyOut45 happy_x_4 of { happy_var_4 -> -	happyIn62-		 (Named { name = happy_var_1, value = EFun (reverse happy_var_2) happy_var_4 }-	) `HappyStk` happyRest}}}--happyReduce_151 = happySpecReduce_1  48# happyReduction_151-happyReduction_151 happy_x_1-	 =  case happyOut62 happy_x_1 of { happy_var_1 -> -	happyIn63-		 ([happy_var_1]-	)}--happyReduce_152 = happySpecReduce_3  48# happyReduction_152-happyReduction_152 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOut63 happy_x_1 of { happy_var_1 -> -	case happyOut62 happy_x_3 of { happy_var_3 -> -	happyIn63-		 (happy_var_3 : happy_var_1-	)}}--happyReduce_153 = happySpecReduce_3  49# happyReduction_153-happyReduction_153 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOut45 happy_x_1 of { happy_var_1 -> -	case happyOut65 happy_x_3 of { happy_var_3 -> -	happyIn64-		 (EComp happy_var_1 (reverse happy_var_3)-	)}}--happyReduce_154 = happySpecReduce_1  49# happyReduction_154-happyReduction_154 happy_x_1-	 =  case happyOut45 happy_x_1 of { happy_var_1 -> -	happyIn64-		 (EList [happy_var_1]-	)}--happyReduce_155 = happySpecReduce_1  49# happyReduction_155-happyReduction_155 happy_x_1-	 =  case happyOut61 happy_x_1 of { happy_var_1 -> -	happyIn64-		 (EList (reverse happy_var_1)-	)}--happyReduce_156 = happyMonadReduce 2# 49# happyReduction_156-happyReduction_156 (happy_x_2 `HappyStk`-	happy_x_1 `HappyStk`-	happyRest) tk-	 = happyThen (case happyOut45 happy_x_1 of { happy_var_1 -> -	case happyOutTok happy_x_2 of { (Located happy_var_2 (Token (Sym DotDot  ) _)) -> -	( eFromTo happy_var_2 happy_var_1 Nothing   Nothing)}}-	) (\r -> happyReturn (happyIn64 r))--happyReduce_157 = happyMonadReduce 3# 49# happyReduction_157-happyReduction_157 (happy_x_3 `HappyStk`-	happy_x_2 `HappyStk`-	happy_x_1 `HappyStk`-	happyRest) tk-	 = happyThen (case happyOut45 happy_x_1 of { happy_var_1 -> -	case happyOutTok happy_x_2 of { (Located happy_var_2 (Token (Sym DotDot  ) _)) -> -	case happyOut45 happy_x_3 of { happy_var_3 -> -	( eFromTo happy_var_2 happy_var_1 Nothing   (Just happy_var_3))}}}-	) (\r -> happyReturn (happyIn64 r))--happyReduce_158 = happyMonadReduce 4# 49# happyReduction_158-happyReduction_158 (happy_x_4 `HappyStk`-	happy_x_3 `HappyStk`-	happy_x_2 `HappyStk`-	happy_x_1 `HappyStk`-	happyRest) tk-	 = happyThen (case happyOut45 happy_x_1 of { happy_var_1 -> -	case happyOut45 happy_x_3 of { happy_var_3 -> -	case happyOutTok happy_x_4 of { (Located happy_var_4 (Token (Sym DotDot  ) _)) -> -	( eFromTo happy_var_4 happy_var_1 (Just happy_var_3) Nothing)}}}-	) (\r -> happyReturn (happyIn64 r))--happyReduce_159 = happyMonadReduce 5# 49# happyReduction_159-happyReduction_159 (happy_x_5 `HappyStk`-	happy_x_4 `HappyStk`-	happy_x_3 `HappyStk`-	happy_x_2 `HappyStk`-	happy_x_1 `HappyStk`-	happyRest) tk-	 = happyThen (case happyOut45 happy_x_1 of { happy_var_1 -> -	case happyOut45 happy_x_3 of { happy_var_3 -> -	case happyOutTok happy_x_4 of { (Located happy_var_4 (Token (Sym DotDot  ) _)) -> -	case happyOut45 happy_x_5 of { happy_var_5 -> -	( eFromTo happy_var_4 happy_var_1 (Just happy_var_3) (Just happy_var_5))}}}}-	) (\r -> happyReturn (happyIn64 r))--happyReduce_160 = happySpecReduce_2  49# happyReduction_160-happyReduction_160 happy_x_2-	happy_x_1-	 =  case happyOut45 happy_x_1 of { happy_var_1 -> -	happyIn64-		 (EInfFrom happy_var_1 Nothing-	)}--happyReduce_161 = happyReduce 4# 49# happyReduction_161-happyReduction_161 (happy_x_4 `HappyStk`-	happy_x_3 `HappyStk`-	happy_x_2 `HappyStk`-	happy_x_1 `HappyStk`-	happyRest)-	 = case happyOut45 happy_x_1 of { happy_var_1 -> -	case happyOut45 happy_x_3 of { happy_var_3 -> -	happyIn64-		 (EInfFrom happy_var_1 (Just happy_var_3)-	) `HappyStk` happyRest}}--happyReduce_162 = happySpecReduce_1  50# happyReduction_162-happyReduction_162 happy_x_1-	 =  case happyOut66 happy_x_1 of { happy_var_1 -> -	happyIn65-		 ([ reverse happy_var_1 ]-	)}--happyReduce_163 = happySpecReduce_3  50# happyReduction_163-happyReduction_163 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOut65 happy_x_1 of { happy_var_1 -> -	case happyOut66 happy_x_3 of { happy_var_3 -> -	happyIn65-		 (reverse happy_var_3 : happy_var_1-	)}}--happyReduce_164 = happySpecReduce_1  51# happyReduction_164-happyReduction_164 happy_x_1-	 =  case happyOut67 happy_x_1 of { happy_var_1 -> -	happyIn66-		 ([happy_var_1]-	)}--happyReduce_165 = happySpecReduce_3  51# happyReduction_165-happyReduction_165 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOut66 happy_x_1 of { happy_var_1 -> -	case happyOut67 happy_x_3 of { happy_var_3 -> -	happyIn66-		 (happy_var_3 : happy_var_1-	)}}--happyReduce_166 = happySpecReduce_3  52# happyReduction_166-happyReduction_166 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOut68 happy_x_1 of { happy_var_1 -> -	case happyOut45 happy_x_3 of { happy_var_3 -> -	happyIn67-		 (Match happy_var_1 happy_var_3-	)}}--happyReduce_167 = happySpecReduce_3  53# happyReduction_167-happyReduction_167 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOut69 happy_x_1 of { happy_var_1 -> -	case happyOut82 happy_x_3 of { happy_var_3 -> -	happyIn68-		 (at (happy_var_1,happy_var_3) $ PTyped happy_var_1 happy_var_3-	)}}--happyReduce_168 = happySpecReduce_1  53# happyReduction_168-happyReduction_168 happy_x_1-	 =  case happyOut69 happy_x_1 of { happy_var_1 -> -	happyIn68-		 (happy_var_1-	)}--happyReduce_169 = happySpecReduce_3  54# happyReduction_169-happyReduction_169 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOut69 happy_x_1 of { happy_var_1 -> -	case happyOut69 happy_x_3 of { happy_var_3 -> -	happyIn69-		 (at (happy_var_1,happy_var_3) $ PSplit happy_var_1 happy_var_3-	)}}--happyReduce_170 = happySpecReduce_1  54# happyReduction_170-happyReduction_170 happy_x_1-	 =  case happyOut70 happy_x_1 of { happy_var_1 -> -	happyIn69-		 (happy_var_1-	)}--happyReduce_171 = happySpecReduce_1  55# happyReduction_171-happyReduction_171 happy_x_1-	 =  case happyOut91 happy_x_1 of { happy_var_1 -> -	happyIn70-		 (PVar happy_var_1-	)}--happyReduce_172 = happySpecReduce_1  55# happyReduction_172-happyReduction_172 happy_x_1-	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym Underscore ) _)) -> -	happyIn70-		 (at happy_var_1       $ PWild-	)}--happyReduce_173 = happySpecReduce_2  55# happyReduction_173-happyReduction_173 happy_x_2-	happy_x_1-	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym ParenL  ) _)) -> -	case happyOutTok happy_x_2 of { (Located happy_var_2 (Token (Sym ParenR  ) _)) -> -	happyIn70-		 (at (happy_var_1,happy_var_2) $ PTuple []-	)}}--happyReduce_174 = happySpecReduce_3  55# happyReduction_174-happyReduction_174 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym ParenL  ) _)) -> -	case happyOut68 happy_x_2 of { happy_var_2 -> -	case happyOutTok happy_x_3 of { (Located happy_var_3 (Token (Sym ParenR  ) _)) -> -	happyIn70-		 (at (happy_var_1,happy_var_3)   happy_var_2-	)}}}--happyReduce_175 = happySpecReduce_3  55# happyReduction_175-happyReduction_175 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym ParenL  ) _)) -> -	case happyOut71 happy_x_2 of { happy_var_2 -> -	case happyOutTok happy_x_3 of { (Located happy_var_3 (Token (Sym ParenR  ) _)) -> -	happyIn70-		 (at (happy_var_1,happy_var_3) $ PTuple (reverse happy_var_2)-	)}}}--happyReduce_176 = happySpecReduce_2  55# happyReduction_176-happyReduction_176 happy_x_2-	happy_x_1-	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym BracketL) _)) -> -	case happyOutTok happy_x_2 of { (Located happy_var_2 (Token (Sym BracketR) _)) -> -	happyIn70-		 (at (happy_var_1,happy_var_2) $ PList []-	)}}--happyReduce_177 = happySpecReduce_3  55# happyReduction_177-happyReduction_177 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym BracketL) _)) -> -	case happyOut68 happy_x_2 of { happy_var_2 -> -	case happyOutTok happy_x_3 of { (Located happy_var_3 (Token (Sym BracketR) _)) -> -	happyIn70-		 (at (happy_var_1,happy_var_3) $ PList [happy_var_2]-	)}}}--happyReduce_178 = happySpecReduce_3  55# happyReduction_178-happyReduction_178 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym BracketL) _)) -> -	case happyOut71 happy_x_2 of { happy_var_2 -> -	case happyOutTok happy_x_3 of { (Located happy_var_3 (Token (Sym BracketR) _)) -> -	happyIn70-		 (at (happy_var_1,happy_var_3) $ PList (reverse happy_var_2)-	)}}}--happyReduce_179 = happySpecReduce_2  55# happyReduction_179-happyReduction_179 happy_x_2-	happy_x_1-	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym CurlyL  ) _)) -> -	case happyOutTok happy_x_2 of { (Located happy_var_2 (Token (Sym CurlyR  ) _)) -> -	happyIn70-		 (at (happy_var_1,happy_var_2) $ PRecord []-	)}}--happyReduce_180 = happySpecReduce_3  55# happyReduction_180-happyReduction_180 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym CurlyL  ) _)) -> -	case happyOut73 happy_x_2 of { happy_var_2 -> -	case happyOutTok happy_x_3 of { (Located happy_var_3 (Token (Sym CurlyR  ) _)) -> -	happyIn70-		 (at (happy_var_1,happy_var_3) $ PRecord (reverse happy_var_2)-	)}}}--happyReduce_181 = happySpecReduce_3  56# happyReduction_181-happyReduction_181 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOut68 happy_x_1 of { happy_var_1 -> -	case happyOut68 happy_x_3 of { happy_var_3 -> -	happyIn71-		 ([happy_var_3, happy_var_1]-	)}}--happyReduce_182 = happySpecReduce_3  56# happyReduction_182-happyReduction_182 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOut71 happy_x_1 of { happy_var_1 -> -	case happyOut68 happy_x_3 of { happy_var_3 -> -	happyIn71-		 (happy_var_3 : happy_var_1-	)}}--happyReduce_183 = happySpecReduce_3  57# happyReduction_183-happyReduction_183 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOut90 happy_x_1 of { happy_var_1 -> -	case happyOut68 happy_x_3 of { happy_var_3 -> -	happyIn72-		 (Named { name = happy_var_1, value = happy_var_3 }-	)}}--happyReduce_184 = happySpecReduce_1  58# happyReduction_184-happyReduction_184 happy_x_1-	 =  case happyOut72 happy_x_1 of { happy_var_1 -> -	happyIn73-		 ([happy_var_1]-	)}--happyReduce_185 = happySpecReduce_3  58# happyReduction_185-happyReduction_185 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOut73 happy_x_1 of { happy_var_1 -> -	case happyOut72 happy_x_3 of { happy_var_3 -> -	happyIn73-		 (happy_var_3 : happy_var_1-	)}}--happyReduce_186 = happySpecReduce_1  59# happyReduction_186-happyReduction_186 happy_x_1-	 =  case happyOut82 happy_x_1 of { happy_var_1 -> -	happyIn74-		 (at happy_var_1 $ mkSchema [] [] happy_var_1-	)}--happyReduce_187 = happySpecReduce_2  59# happyReduction_187-happyReduction_187 happy_x_2-	happy_x_1-	 =  case happyOut75 happy_x_1 of { happy_var_1 -> -	case happyOut82 happy_x_2 of { happy_var_2 -> -	happyIn74-		 (at (happy_var_1,happy_var_2) $ mkSchema (thing happy_var_1) [] happy_var_2-	)}}--happyReduce_188 = happySpecReduce_2  59# happyReduction_188-happyReduction_188 happy_x_2-	happy_x_1-	 =  case happyOut76 happy_x_1 of { happy_var_1 -> -	case happyOut82 happy_x_2 of { happy_var_2 -> -	happyIn74-		 (at (happy_var_1,happy_var_2) $ mkSchema [] (thing happy_var_1) happy_var_2-	)}}--happyReduce_189 = happySpecReduce_3  59# happyReduction_189-happyReduction_189 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOut75 happy_x_1 of { happy_var_1 -> -	case happyOut76 happy_x_2 of { happy_var_2 -> -	case happyOut82 happy_x_3 of { happy_var_3 -> -	happyIn74-		 (at (happy_var_1,happy_var_3) $ mkSchema (thing happy_var_1)-                                                          (thing happy_var_2) happy_var_3-	)}}}--happyReduce_190 = happySpecReduce_2  60# happyReduction_190-happyReduction_190 happy_x_2-	happy_x_1-	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym CurlyL  ) _)) -> -	case happyOutTok happy_x_2 of { (Located happy_var_2 (Token (Sym CurlyR  ) _)) -> -	happyIn75-		 (Located (rComb happy_var_1 happy_var_2) []-	)}}--happyReduce_191 = happySpecReduce_3  60# happyReduction_191-happyReduction_191 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym CurlyL  ) _)) -> -	case happyOut79 happy_x_2 of { happy_var_2 -> -	case happyOutTok happy_x_3 of { (Located happy_var_3 (Token (Sym CurlyR  ) _)) -> -	happyIn75-		 (Located (rComb happy_var_1 happy_var_3) (reverse happy_var_2)-	)}}}--happyReduce_192 = happyMonadReduce 2# 61# happyReduction_192-happyReduction_192 (happy_x_2 `HappyStk`-	happy_x_1 `HappyStk`-	happyRest) tk-	 = happyThen (case happyOut82 happy_x_1 of { happy_var_1 -> -	case happyOutTok happy_x_2 of { (Located happy_var_2 (Token (Sym FatArrR ) _)) -> -	( fmap (\x -> at (x,happy_var_2) x) (mkProp happy_var_1))}}-	) (\r -> happyReturn (happyIn76 r))--happyReduce_193 = happySpecReduce_1  62# happyReduction_193-happyReduction_193 happy_x_1-	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Op Hash) _)) -> -	happyIn77-		 (Located happy_var_1 KNum-	)}--happyReduce_194 = happySpecReduce_1  62# happyReduction_194-happyReduction_194 happy_x_1-	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Op Mul)   _)) -> -	happyIn77-		 (Located happy_var_1 KType-	)}--happyReduce_195 = happyMonadReduce 1# 63# happyReduction_195-happyReduction_195 (happy_x_1 `HappyStk`-	happyRest) tk-	 = happyThen (case happyOut90 happy_x_1 of { happy_var_1 -> -	( mkTParam happy_var_1 Nothing)}-	) (\r -> happyReturn (happyIn78 r))--happyReduce_196 = happyMonadReduce 3# 63# happyReduction_196-happyReduction_196 (happy_x_3 `HappyStk`-	happy_x_2 `HappyStk`-	happy_x_1 `HappyStk`-	happyRest) tk-	 = happyThen (case happyOut90 happy_x_1 of { happy_var_1 -> -	case happyOut77 happy_x_3 of { happy_var_3 -> -	( mkTParam (at (happy_var_1,happy_var_3) happy_var_1) (Just (thing happy_var_3)))}}-	) (\r -> happyReturn (happyIn78 r))--happyReduce_197 = happySpecReduce_1  64# happyReduction_197-happyReduction_197 happy_x_1-	 =  case happyOut78 happy_x_1 of { happy_var_1 -> -	happyIn79-		 ([happy_var_1]-	)}--happyReduce_198 = happySpecReduce_3  64# happyReduction_198-happyReduction_198 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOut79 happy_x_1 of { happy_var_1 -> -	case happyOut78 happy_x_3 of { happy_var_3 -> -	happyIn79-		 (happy_var_3 : happy_var_1-	)}}--happyReduce_199 = happyMonadReduce 1# 65# happyReduction_199-happyReduction_199 (happy_x_1 `HappyStk`-	happyRest) tk-	 = happyThen (case happyOut90 happy_x_1 of { happy_var_1 -> -	( mkTParam happy_var_1 Nothing)}-	) (\r -> happyReturn (happyIn80 r))--happyReduce_200 = happyMonadReduce 5# 65# happyReduction_200-happyReduction_200 (happy_x_5 `HappyStk`-	happy_x_4 `HappyStk`-	happy_x_3 `HappyStk`-	happy_x_2 `HappyStk`-	happy_x_1 `HappyStk`-	happyRest) tk-	 = happyThen (case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym ParenL  ) _)) -> -	case happyOut90 happy_x_2 of { happy_var_2 -> -	case happyOut77 happy_x_4 of { happy_var_4 -> -	case happyOutTok happy_x_5 of { (Located happy_var_5 (Token (Sym ParenR  ) _)) -> -	( mkTParam (at (happy_var_1,happy_var_5) happy_var_2) (Just (thing happy_var_4)))}}}}-	) (\r -> happyReturn (happyIn80 r))--happyReduce_201 = happySpecReduce_1  66# happyReduction_201-happyReduction_201 happy_x_1-	 =  case happyOut80 happy_x_1 of { happy_var_1 -> -	happyIn81-		 ([happy_var_1]-	)}--happyReduce_202 = happySpecReduce_2  66# happyReduction_202-happyReduction_202 happy_x_2-	happy_x_1-	 =  case happyOut81 happy_x_1 of { happy_var_1 -> -	case happyOut80 happy_x_2 of { happy_var_2 -> -	happyIn81-		 (happy_var_2 : happy_var_1-	)}}--happyReduce_203 = happySpecReduce_3  67# happyReduction_203-happyReduction_203 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOut83 happy_x_1 of { happy_var_1 -> -	case happyOut82 happy_x_3 of { happy_var_3 -> -	happyIn82-		 (at (happy_var_1,happy_var_3) $ TFun happy_var_1 happy_var_3-	)}}--happyReduce_204 = happySpecReduce_3  67# happyReduction_204-happyReduction_204 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOut82 happy_x_1 of { happy_var_1 -> -	case happyOut53 happy_x_2 of { happy_var_2 -> -	case happyOut83 happy_x_3 of { happy_var_3 -> -	happyIn82-		 (at (happy_var_1,happy_var_3) $ TInfix happy_var_1 happy_var_2 defaultFixity happy_var_3-	)}}}--happyReduce_205 = happySpecReduce_1  67# happyReduction_205-happyReduction_205 happy_x_1-	 =  case happyOut83 happy_x_1 of { happy_var_1 -> -	happyIn82-		 (happy_var_1-	)}--happyReduce_206 = happySpecReduce_2  68# happyReduction_206-happyReduction_206 happy_x_2-	happy_x_1-	 =  case happyOut86 happy_x_1 of { happy_var_1 -> -	case happyOut84 happy_x_2 of { happy_var_2 -> -	happyIn83-		 (at (happy_var_1,happy_var_2) $ foldr TSeq happy_var_2 (reverse (thing happy_var_1))-	)}}--happyReduce_207 = happySpecReduce_2  68# happyReduction_207-happyReduction_207 happy_x_2-	happy_x_1-	 =  case happyOut93 happy_x_1 of { happy_var_1 -> -	case happyOut85 happy_x_2 of { happy_var_2 -> -	happyIn83-		 (at (happy_var_1,head happy_var_2)-                                     $ TUser (thing happy_var_1) (reverse happy_var_2)-	)}}--happyReduce_208 = happySpecReduce_1  68# happyReduction_208-happyReduction_208 happy_x_1-	 =  case happyOut84 happy_x_1 of { happy_var_1 -> -	happyIn83-		 (happy_var_1-	)}--happyReduce_209 = happySpecReduce_1  69# happyReduction_209-happyReduction_209 happy_x_1-	 =  case happyOut93 happy_x_1 of { happy_var_1 -> -	happyIn84-		 (at happy_var_1 $ TUser (thing happy_var_1) []-	)}--happyReduce_210 = happySpecReduce_1  69# happyReduction_210-happyReduction_210 happy_x_1-	 =  case happyOutTok happy_x_1 of { (happy_var_1@(Located _ (Token (Num   {}) _))) -> -	happyIn84-		 (at happy_var_1 $ TNum  (getNum happy_var_1)-	)}--happyReduce_211 = happySpecReduce_1  69# happyReduction_211-happyReduction_211 happy_x_1-	 =  case happyOutTok happy_x_1 of { (happy_var_1@(Located _ (Token (ChrLit {}) _))) -> -	happyIn84-		 (at happy_var_1 $ TChar (toEnum $ fromInteger-                                                          $ getNum happy_var_1)-	)}--happyReduce_212 = happySpecReduce_3  69# happyReduction_212-happyReduction_212 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym BracketL) _)) -> -	case happyOut82 happy_x_2 of { happy_var_2 -> -	case happyOutTok happy_x_3 of { (Located happy_var_3 (Token (Sym BracketR) _)) -> -	happyIn84-		 (at (happy_var_1,happy_var_3) $ TSeq happy_var_2 TBit-	)}}}--happyReduce_213 = happySpecReduce_3  69# happyReduction_213-happyReduction_213 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym ParenL  ) _)) -> -	case happyOut82 happy_x_2 of { happy_var_2 -> -	case happyOutTok happy_x_3 of { (Located happy_var_3 (Token (Sym ParenR  ) _)) -> -	happyIn84-		 (at (happy_var_1,happy_var_3) $ TParens happy_var_2-	)}}}--happyReduce_214 = happySpecReduce_2  69# happyReduction_214-happyReduction_214 happy_x_2-	happy_x_1-	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym ParenL  ) _)) -> -	case happyOutTok happy_x_2 of { (Located happy_var_2 (Token (Sym ParenR  ) _)) -> -	happyIn84-		 (at (happy_var_1,happy_var_2) $ TTuple []-	)}}--happyReduce_215 = happySpecReduce_3  69# happyReduction_215-happyReduction_215 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym ParenL  ) _)) -> -	case happyOut87 happy_x_2 of { happy_var_2 -> -	case happyOutTok happy_x_3 of { (Located happy_var_3 (Token (Sym ParenR  ) _)) -> -	happyIn84-		 (at (happy_var_1,happy_var_3) $ TTuple  (reverse happy_var_2)-	)}}}--happyReduce_216 = happySpecReduce_2  69# happyReduction_216-happyReduction_216 happy_x_2-	happy_x_1-	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym CurlyL  ) _)) -> -	case happyOutTok happy_x_2 of { (Located happy_var_2 (Token (Sym CurlyR  ) _)) -> -	happyIn84-		 (at (happy_var_1,happy_var_2) $ TRecord []-	)}}--happyReduce_217 = happySpecReduce_3  69# happyReduction_217-happyReduction_217 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym CurlyL  ) _)) -> -	case happyOut89 happy_x_2 of { happy_var_2 -> -	case happyOutTok happy_x_3 of { (Located happy_var_3 (Token (Sym CurlyR  ) _)) -> -	happyIn84-		 (at (happy_var_1,happy_var_3) $ TRecord (reverse happy_var_2)-	)}}}--happyReduce_218 = happySpecReduce_1  69# happyReduction_218-happyReduction_218 happy_x_1-	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym Underscore ) _)) -> -	happyIn84-		 (at happy_var_1 TWild-	)}--happyReduce_219 = happySpecReduce_1  70# happyReduction_219-happyReduction_219 happy_x_1-	 =  case happyOut84 happy_x_1 of { happy_var_1 -> -	happyIn85-		 ([ happy_var_1 ]-	)}--happyReduce_220 = happySpecReduce_2  70# happyReduction_220-happyReduction_220 happy_x_2-	happy_x_1-	 =  case happyOut85 happy_x_1 of { happy_var_1 -> -	case happyOut84 happy_x_2 of { happy_var_2 -> -	happyIn85-		 (happy_var_2 : happy_var_1-	)}}--happyReduce_221 = happySpecReduce_3  71# happyReduction_221-happyReduction_221 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym BracketL) _)) -> -	case happyOut82 happy_x_2 of { happy_var_2 -> -	case happyOutTok happy_x_3 of { (Located happy_var_3 (Token (Sym BracketR) _)) -> -	happyIn86-		 (Located (rComb happy_var_1 happy_var_3) [ happy_var_2 ]-	)}}}--happyReduce_222 = happyReduce 4# 71# happyReduction_222-happyReduction_222 (happy_x_4 `HappyStk`-	happy_x_3 `HappyStk`-	happy_x_2 `HappyStk`-	happy_x_1 `HappyStk`-	happyRest)-	 = case happyOut86 happy_x_1 of { happy_var_1 -> -	case happyOut82 happy_x_3 of { happy_var_3 -> -	case happyOutTok happy_x_4 of { (Located happy_var_4 (Token (Sym BracketR) _)) -> -	happyIn86-		 (at (happy_var_1,happy_var_4) (fmap (happy_var_3 :) happy_var_1)-	) `HappyStk` happyRest}}}--happyReduce_223 = happySpecReduce_3  72# happyReduction_223-happyReduction_223 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOut82 happy_x_1 of { happy_var_1 -> -	case happyOut82 happy_x_3 of { happy_var_3 -> -	happyIn87-		 ([ happy_var_3, happy_var_1]-	)}}--happyReduce_224 = happySpecReduce_3  72# happyReduction_224-happyReduction_224 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOut87 happy_x_1 of { happy_var_1 -> -	case happyOut82 happy_x_3 of { happy_var_3 -> -	happyIn87-		 (happy_var_3 : happy_var_1-	)}}--happyReduce_225 = happySpecReduce_3  73# happyReduction_225-happyReduction_225 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOut90 happy_x_1 of { happy_var_1 -> -	case happyOut82 happy_x_3 of { happy_var_3 -> -	happyIn88-		 (Named { name = happy_var_1, value = happy_var_3 }-	)}}--happyReduce_226 = happySpecReduce_1  74# happyReduction_226-happyReduction_226 happy_x_1-	 =  case happyOut88 happy_x_1 of { happy_var_1 -> -	happyIn89-		 ([happy_var_1]-	)}--happyReduce_227 = happySpecReduce_3  74# happyReduction_227-happyReduction_227 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOut89 happy_x_1 of { happy_var_1 -> -	case happyOut88 happy_x_3 of { happy_var_3 -> -	happyIn89-		 (happy_var_3 : happy_var_1-	)}}--happyReduce_228 = happySpecReduce_1  75# happyReduction_228-happyReduction_228 happy_x_1-	 =  case happyOutTok happy_x_1 of { (happy_var_1@(Located _ (Token (Ident [] _) _))) -> -	happyIn90-		 (let Token (Ident _ str) _ = thing happy_var_1-                         in happy_var_1 { thing = mkIdent (T.toStrict str) }-	)}--happyReduce_229 = happySpecReduce_1  75# happyReduction_229-happyReduction_229 happy_x_1-	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (KW KW_x)       _)) -> -	happyIn90-		 (Located { srcRange = happy_var_1, thing = mkIdent "x" }-	)}--happyReduce_230 = happySpecReduce_1  75# happyReduction_230-happyReduction_230 happy_x_1-	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (KW KW_private)   _)) -> -	happyIn90-		 (Located { srcRange = happy_var_1, thing = mkIdent "private" }-	)}--happyReduce_231 = happySpecReduce_1  75# happyReduction_231-happyReduction_231 happy_x_1-	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (KW KW_as)        _)) -> -	happyIn90-		 (Located { srcRange = happy_var_1, thing = mkIdent "as" }-	)}--happyReduce_232 = happySpecReduce_1  75# happyReduction_232-happyReduction_232 happy_x_1-	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (KW KW_hiding)    _)) -> -	happyIn90-		 (Located { srcRange = happy_var_1, thing = mkIdent "hiding" }-	)}--happyReduce_233 = happySpecReduce_1  76# happyReduction_233-happyReduction_233 happy_x_1-	 =  case happyOut90 happy_x_1 of { happy_var_1 -> -	happyIn91-		 (fmap mkUnqual happy_var_1-	)}--happyReduce_234 = happySpecReduce_1  77# happyReduction_234-happyReduction_234 happy_x_1-	 =  case happyOut90 happy_x_1 of { happy_var_1 -> -	happyIn92-		 (fmap identText happy_var_1-	)}--happyReduce_235 = happySpecReduce_1  77# happyReduction_235-happyReduction_235 happy_x_1-	 =  case happyOutTok happy_x_1 of { (happy_var_1@(Located _ (Token  Ident{}     _))) -> -	happyIn92-		 (let Token (Ident ns i) _ = thing happy_var_1-                                     in mkModName (ns ++ [i]) A.<$ happy_var_1-	)}--happyReduce_236 = happySpecReduce_1  78# happyReduction_236-happyReduction_236 happy_x_1-	 =  case happyOut91 happy_x_1 of { happy_var_1 -> -	happyIn93-		 (happy_var_1-	)}--happyReduce_237 = happySpecReduce_1  78# happyReduction_237-happyReduction_237 happy_x_1-	 =  case happyOutTok happy_x_1 of { (happy_var_1@(Located _ (Token  Ident{}     _))) -> -	happyIn93-		 (let Token (Ident ns i) _ = thing happy_var_1-                                     in mkQual (mkModName ns) (mkIdent (T.toStrict i)) A.<$ happy_var_1-	)}--happyReduce_238 = happySpecReduce_1  79# happyReduction_238-happyReduction_238 happy_x_1-	 =  case happyOut93 happy_x_1 of { happy_var_1 -> -	happyIn94-		 (happy_var_1-	)}--happyReduce_239 = happySpecReduce_1  79# happyReduction_239-happyReduction_239 happy_x_1-	 =  case happyOut52 happy_x_1 of { happy_var_1 -> -	happyIn94-		 (happy_var_1-	)}--happyReduce_240 = happySpecReduce_3  79# happyReduction_240-happyReduction_240 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOut52 happy_x_2 of { happy_var_2 -> -	happyIn94-		 (happy_var_2-	)}--happyReduce_241 = happySpecReduce_1  80# happyReduction_241-happyReduction_241 happy_x_1-	 =  case happyOut93 happy_x_1 of { happy_var_1 -> -	happyIn95-		 (at happy_var_1 $ TUser (thing happy_var_1) []-	)}--happyReduce_242 = happySpecReduce_1  80# happyReduction_242-happyReduction_242 happy_x_1-	 =  case happyOutTok happy_x_1 of { (happy_var_1@(Located _ (Token (Num   {}) _))) -> -	happyIn95-		 (at happy_var_1 $ TNum  (getNum happy_var_1)-	)}--happyReduce_243 = happyMonadReduce 3# 80# happyReduction_243-happyReduction_243 (happy_x_3 `HappyStk`-	happy_x_2 `HappyStk`-	happy_x_1 `HappyStk`-	happyRest) tk-	 = happyThen (case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym ParenL  ) _)) -> -	case happyOut82 happy_x_2 of { happy_var_2 -> -	case happyOutTok happy_x_3 of { (Located happy_var_3 (Token (Sym ParenR  ) _)) -> -	( validDemotedType (rComb happy_var_1 happy_var_3) happy_var_2)}}}-	) (\r -> happyReturn (happyIn95 r))--happyReduce_244 = happySpecReduce_2  80# happyReduction_244-happyReduction_244 happy_x_2-	happy_x_1-	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym CurlyL  ) _)) -> -	case happyOutTok happy_x_2 of { (Located happy_var_2 (Token (Sym CurlyR  ) _)) -> -	happyIn95-		 (at (happy_var_1,happy_var_2) (TRecord [])-	)}}--happyReduce_245 = happySpecReduce_3  80# happyReduction_245-happyReduction_245 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym CurlyL  ) _)) -> -	case happyOut97 happy_x_2 of { happy_var_2 -> -	case happyOutTok happy_x_3 of { (Located happy_var_3 (Token (Sym CurlyR  ) _)) -> -	happyIn95-		 (at (happy_var_1,happy_var_3) (TRecord (reverse happy_var_2))-	)}}}--happyReduce_246 = happySpecReduce_3  80# happyReduction_246-happyReduction_246 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym CurlyL  ) _)) -> -	case happyOut82 happy_x_2 of { happy_var_2 -> -	case happyOutTok happy_x_3 of { (Located happy_var_3 (Token (Sym CurlyR  ) _)) -> -	happyIn95-		 (anonRecord (getLoc (happy_var_1,happy_var_3)) [happy_var_2]-	)}}}--happyReduce_247 = happySpecReduce_3  80# happyReduction_247-happyReduction_247 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym CurlyL  ) _)) -> -	case happyOut87 happy_x_2 of { happy_var_2 -> -	case happyOutTok happy_x_3 of { (Located happy_var_3 (Token (Sym CurlyR  ) _)) -> -	happyIn95-		 (anonRecord (getLoc (happy_var_1,happy_var_3)) (reverse happy_var_2)-	)}}}--happyReduce_248 = happySpecReduce_3  81# happyReduction_248-happyReduction_248 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOut90 happy_x_1 of { happy_var_1 -> -	case happyOut82 happy_x_3 of { happy_var_3 -> -	happyIn96-		 (Named { name = happy_var_1, value = happy_var_3 }-	)}}--happyReduce_249 = happySpecReduce_1  82# happyReduction_249-happyReduction_249 happy_x_1-	 =  case happyOut96 happy_x_1 of { happy_var_1 -> -	happyIn97-		 ([happy_var_1]-	)}--happyReduce_250 = happySpecReduce_3  82# happyReduction_250-happyReduction_250 happy_x_3-	happy_x_2-	happy_x_1-	 =  case happyOut97 happy_x_1 of { happy_var_1 -> -	case happyOut96 happy_x_3 of { happy_var_3 -> -	happyIn97-		 (happy_var_3 : happy_var_1-	)}}--happyNewToken action sts stk-	= lexerP(\tk -> -	let cont i = happyDoAction i tk action sts stk in-	case tk of {-	Located _ (Token EOF _) -> happyDoAction 59# tk action sts stk;-	happy_dollar_dollar@(Located _ (Token (Num   {}) _)) -> cont 1#;-	happy_dollar_dollar@(Located _ (Token (StrLit {}) _)) -> cont 2#;-	happy_dollar_dollar@(Located _ (Token (ChrLit {}) _)) -> cont 3#;-	happy_dollar_dollar@(Located _ (Token (Ident [] _) _)) -> cont 4#;-	happy_dollar_dollar@(Located _ (Token  Ident{}     _)) -> cont 5#;-	Located happy_dollar_dollar (Token (KW KW_include)   _) -> cont 6#;-	Located happy_dollar_dollar (Token (KW KW_import)    _) -> cont 7#;-	Located happy_dollar_dollar (Token (KW KW_as)        _) -> cont 8#;-	Located happy_dollar_dollar (Token (KW KW_hiding)    _) -> cont 9#;-	Located happy_dollar_dollar (Token (KW KW_private)   _) -> cont 10#;-	Located happy_dollar_dollar (Token (KW KW_property)  _) -> cont 11#;-	Located happy_dollar_dollar (Token (KW KW_infix)     _) -> cont 12#;-	Located happy_dollar_dollar (Token (KW KW_infixl)    _) -> cont 13#;-	Located happy_dollar_dollar (Token (KW KW_infixr)    _) -> cont 14#;-	Located happy_dollar_dollar (Token (KW KW_type   ) _) -> cont 15#;-	Located happy_dollar_dollar (Token (KW KW_newtype) _) -> cont 16#;-	Located happy_dollar_dollar (Token (KW KW_module ) _) -> cont 17#;-	Located happy_dollar_dollar (Token (KW KW_where  ) _) -> cont 18#;-	Located happy_dollar_dollar (Token (KW KW_let    ) _) -> cont 19#;-	Located happy_dollar_dollar (Token (KW KW_if     ) _) -> cont 20#;-	Located happy_dollar_dollar (Token (KW KW_then   ) _) -> cont 21#;-	Located happy_dollar_dollar (Token (KW KW_else   ) _) -> cont 22#;-	Located happy_dollar_dollar (Token (KW KW_x)       _) -> cont 23#;-	Located happy_dollar_dollar (Token (KW KW_primitive) _) -> cont 24#;-	Located happy_dollar_dollar (Token (Sym BracketL) _) -> cont 25#;-	Located happy_dollar_dollar (Token (Sym BracketR) _) -> cont 26#;-	Located happy_dollar_dollar (Token (Sym ArrL    ) _) -> cont 27#;-	Located happy_dollar_dollar (Token (Sym DotDot  ) _) -> cont 28#;-	Located happy_dollar_dollar (Token (Sym DotDotDot) _) -> cont 29#;-	Located happy_dollar_dollar (Token (Sym Bar     ) _) -> cont 30#;-	Located happy_dollar_dollar (Token (Sym ParenL  ) _) -> cont 31#;-	Located happy_dollar_dollar (Token (Sym ParenR  ) _) -> cont 32#;-	Located happy_dollar_dollar (Token (Sym Comma   ) _) -> cont 33#;-	Located happy_dollar_dollar (Token (Sym Semi    ) _) -> cont 34#;-	Located happy_dollar_dollar (Token (Sym Dot     ) _) -> cont 35#;-	Located happy_dollar_dollar (Token (Sym CurlyL  ) _) -> cont 36#;-	Located happy_dollar_dollar (Token (Sym CurlyR  ) _) -> cont 37#;-	Located happy_dollar_dollar (Token (Sym TriL    ) _) -> cont 38#;-	Located happy_dollar_dollar (Token (Sym TriR    ) _) -> cont 39#;-	Located happy_dollar_dollar (Token (Sym EqDef   ) _) -> cont 40#;-	Located happy_dollar_dollar (Token (Sym BackTick) _) -> cont 41#;-	Located happy_dollar_dollar (Token (Sym Colon   ) _) -> cont 42#;-	Located happy_dollar_dollar (Token (Sym ArrR    ) _) -> cont 43#;-	Located happy_dollar_dollar (Token (Sym FatArrR ) _) -> cont 44#;-	Located happy_dollar_dollar (Token (Sym Lambda  ) _) -> cont 45#;-	Located happy_dollar_dollar (Token (Sym Underscore ) _) -> cont 46#;-	Located happy_dollar_dollar (Token (Virt VCurlyL)  _) -> cont 47#;-	Located happy_dollar_dollar (Token (Virt VCurlyR)  _) -> cont 48#;-	Located happy_dollar_dollar (Token (Virt VSemi)    _) -> cont 49#;-	Located happy_dollar_dollar (Token (Op Plus)  _) -> cont 50#;-	Located happy_dollar_dollar (Token (Op Mul)   _) -> cont 51#;-	Located happy_dollar_dollar (Token (Op Exp)   _) -> cont 52#;-	Located happy_dollar_dollar (Token (Op Minus) _) -> cont 53#;-	Located happy_dollar_dollar (Token (Op Complement) _) -> cont 54#;-	Located happy_dollar_dollar (Token (Op Hash) _) -> cont 55#;-	happy_dollar_dollar@(Located _ (Token (Op (Other [] _)) _)) -> cont 56#;-	happy_dollar_dollar@(Located _ (Token (Op  Other{}   )  _)) -> cont 57#;-	happy_dollar_dollar@(Located _ (Token (White DocStr) _)) -> cont 58#;-	_ -> happyError' tk-	})--happyError_ 59# tk = happyError' tk-happyError_ _ tk = happyError' tk--happyThen :: () => ParseM a -> (a -> ParseM b) -> ParseM b-happyThen = (>>=)-happyReturn :: () => a -> ParseM a-happyReturn = (return)-happyThen1 = happyThen-happyReturn1 :: () => a -> ParseM a-happyReturn1 = happyReturn-happyError' :: () => (Located Token) -> ParseM a-happyError' tk = (\token -> happyError) tk--vmodule = happySomeParser where-  happySomeParser = happyThen (happyParse 0#) (\x -> happyReturn (happyOut15 x))--program = happySomeParser where-  happySomeParser = happyThen (happyParse 1#) (\x -> happyReturn (happyOut23 x))--programLayout = happySomeParser where-  happySomeParser = happyThen (happyParse 2#) (\x -> happyReturn (happyOut24 x))--expr = happySomeParser where-  happySomeParser = happyThen (happyParse 3#) (\x -> happyReturn (happyOut45 x))--decl = happySomeParser where-  happySomeParser = happyThen (happyParse 4#) (\x -> happyReturn (happyOut33 x))--decls = happySomeParser where-  happySomeParser = happyThen (happyParse 5#) (\x -> happyReturn (happyOut41 x))--declsLayout = happySomeParser where-  happySomeParser = happyThen (happyParse 6#) (\x -> happyReturn (happyOut43 x))--letDecl = happySomeParser where-  happySomeParser = happyThen (happyParse 7#) (\x -> happyReturn (happyOut34 x))--repl = happySomeParser where-  happySomeParser = happyThen (happyParse 8#) (\x -> happyReturn (happyOut44 x))--schema = happySomeParser where-  happySomeParser = happyThen (happyParse 9#) (\x -> happyReturn (happyOut74 x))--modName = happySomeParser where-  happySomeParser = happyThen (happyParse 10#) (\x -> happyReturn (happyOut92 x))--helpName = happySomeParser where-  happySomeParser = happyThen (happyParse 11#) (\x -> happyReturn (happyOut94 x))--happySeq = happyDontSeq---parseModName :: String -> Maybe ModName-parseModName txt =-  case parseString defaultConfig { cfgModuleScope = False } modName txt of-    Right a -> Just (thing a)-    Left _  -> Nothing--parseHelpName :: String -> Maybe PName-parseHelpName txt =-  case parseString defaultConfig { cfgModuleScope = False } helpName txt of-    Right a -> Just (thing a)-    Left _  -> Nothing--addImplicitIncludes :: Config -> Program PName -> Program PName-addImplicitIncludes cfg (Program ds) =-  Program $ map path (cfgAutoInclude cfg) ++ ds-  where path p = Include Located { srcRange = rng, thing = p }-        rng    = Range { source = cfgSource cfg, from = start, to = start }---parseProgramWith :: Config -> Text -> Either ParseError (Program PName)-parseProgramWith cfg s = case res s of-                          Left err -> Left err-                          Right a  -> Right (addImplicitIncludes cfg a)-  where-  res = parse cfg $ case cfgLayout cfg of-                      Layout   -> programLayout-                      NoLayout -> program--parseModule :: Config -> Text -> Either ParseError (Module PName)-parseModule cfg = parse cfg { cfgModuleScope = True } vmodule--parseProgram :: Layout -> Text -> Either ParseError (Program PName)-parseProgram l = parseProgramWith defaultConfig { cfgLayout = l }--parseExprWith :: Config -> Text -> Either ParseError (Expr PName)-parseExprWith cfg = parse cfg { cfgModuleScope = False } expr--parseExpr :: Text -> Either ParseError (Expr PName)-parseExpr = parseExprWith defaultConfig--parseDeclWith :: Config -> Text -> Either ParseError (Decl PName)-parseDeclWith cfg = parse cfg { cfgModuleScope = False } decl--parseDecl :: Text -> Either ParseError (Decl PName)-parseDecl = parseDeclWith defaultConfig--parseDeclsWith :: Config -> Text -> Either ParseError [Decl PName]-parseDeclsWith cfg = parse cfg { cfgModuleScope = ms } decls'-  where (ms, decls') = case cfgLayout cfg of-                         Layout   -> (True, declsLayout)-                         NoLayout -> (False, decls)--parseDecls :: Text -> Either ParseError [Decl PName]-parseDecls = parseDeclsWith defaultConfig--parseLetDeclWith :: Config -> Text -> Either ParseError (Decl PName)-parseLetDeclWith cfg = parse cfg { cfgModuleScope = False } letDecl--parseLetDecl :: Text -> Either ParseError (Decl PName)-parseLetDecl = parseLetDeclWith defaultConfig--parseReplWith :: Config -> Text -> Either ParseError (ReplInput PName)-parseReplWith cfg = parse cfg { cfgModuleScope = False } repl--parseRepl :: Text -> Either ParseError (ReplInput PName)-parseRepl = parseReplWith defaultConfig--parseSchemaWith :: Config -> Text -> Either ParseError (Schema PName)-parseSchemaWith cfg = parse cfg { cfgModuleScope = False } schema--parseSchema :: Text -> Either ParseError (Schema PName)-parseSchema = parseSchemaWith defaultConfig---- vim: ft=haskell-{-# LINE 1 "templates/GenericTemplate.hs" #-}-{-# LINE 1 "templates/GenericTemplate.hs" #-}-{-# LINE 1 "<built-in>" #-}-{-# LINE 19 "<built-in>" #-}-{-# LINE 1 "/usr/local/Cellar/ghc/7.10.3b/lib/ghc-7.10.3/include/ghcversion.h" #-}-------------------{-# LINE 20 "<built-in>" #-}+newtype HappyAbsSyn t70 = HappyAbsSyn HappyAny+#if __GLASGOW_HASKELL__ >= 607+type HappyAny = Happy_GHC_Exts.Any+#else+type HappyAny = forall a . a+#endif+happyIn15 :: (Module PName) -> (HappyAbsSyn t70)+happyIn15 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn15 #-}+happyOut15 :: (HappyAbsSyn t70) -> (Module PName)+happyOut15 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut15 #-}+happyIn16 :: (([Located Import], [TopDecl PName])) -> (HappyAbsSyn t70)+happyIn16 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn16 #-}+happyOut16 :: (HappyAbsSyn t70) -> (([Located Import], [TopDecl PName]))+happyOut16 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut16 #-}+happyIn17 :: ([Located Import]) -> (HappyAbsSyn t70)+happyIn17 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn17 #-}+happyOut17 :: (HappyAbsSyn t70) -> ([Located Import])+happyOut17 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut17 #-}+happyIn18 :: (Located Import) -> (HappyAbsSyn t70)+happyIn18 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn18 #-}+happyOut18 :: (HappyAbsSyn t70) -> (Located Import)+happyOut18 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut18 #-}+happyIn19 :: (Maybe (Located ModName)) -> (HappyAbsSyn t70)+happyIn19 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn19 #-}+happyOut19 :: (HappyAbsSyn t70) -> (Maybe (Located ModName))+happyOut19 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut19 #-}+happyIn20 :: (Maybe (Located ImportSpec)) -> (HappyAbsSyn t70)+happyIn20 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn20 #-}+happyOut20 :: (HappyAbsSyn t70) -> (Maybe (Located ImportSpec))+happyOut20 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut20 #-}+happyIn21 :: ([LIdent]) -> (HappyAbsSyn t70)+happyIn21 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn21 #-}+happyOut21 :: (HappyAbsSyn t70) -> ([LIdent])+happyOut21 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut21 #-}+happyIn22 :: ([Ident] -> ImportSpec) -> (HappyAbsSyn t70)+happyIn22 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn22 #-}+happyOut22 :: (HappyAbsSyn t70) -> ([Ident] -> ImportSpec)+happyOut22 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut22 #-}+happyIn23 :: (Program PName) -> (HappyAbsSyn t70)+happyIn23 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn23 #-}+happyOut23 :: (HappyAbsSyn t70) -> (Program PName)+happyOut23 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut23 #-}+happyIn24 :: (Program PName) -> (HappyAbsSyn t70)+happyIn24 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn24 #-}+happyOut24 :: (HappyAbsSyn t70) -> (Program PName)+happyOut24 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut24 #-}+happyIn25 :: ([TopDecl PName]) -> (HappyAbsSyn t70)+happyIn25 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn25 #-}+happyOut25 :: (HappyAbsSyn t70) -> ([TopDecl PName])+happyOut25 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut25 #-}+happyIn26 :: ([TopDecl PName]) -> (HappyAbsSyn t70)+happyIn26 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn26 #-}+happyOut26 :: (HappyAbsSyn t70) -> ([TopDecl PName])+happyOut26 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut26 #-}+happyIn27 :: ([TopDecl PName]) -> (HappyAbsSyn t70)+happyIn27 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn27 #-}+happyOut27 :: (HappyAbsSyn t70) -> ([TopDecl PName])+happyOut27 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut27 #-}+happyIn28 :: ([TopDecl PName]) -> (HappyAbsSyn t70)+happyIn28 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn28 #-}+happyOut28 :: (HappyAbsSyn t70) -> ([TopDecl PName])+happyOut28 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut28 #-}+happyIn29 :: ([TopDecl PName]) -> (HappyAbsSyn t70)+happyIn29 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn29 #-}+happyOut29 :: (HappyAbsSyn t70) -> ([TopDecl PName])+happyOut29 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut29 #-}+happyIn30 :: ([TopDecl PName]) -> (HappyAbsSyn t70)+happyIn30 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn30 #-}+happyOut30 :: (HappyAbsSyn t70) -> ([TopDecl PName])+happyOut30 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut30 #-}+happyIn31 :: (Located String) -> (HappyAbsSyn t70)+happyIn31 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn31 #-}+happyOut31 :: (HappyAbsSyn t70) -> (Located String)+happyOut31 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut31 #-}+happyIn32 :: (Maybe (Located String)) -> (HappyAbsSyn t70)+happyIn32 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn32 #-}+happyOut32 :: (HappyAbsSyn t70) -> (Maybe (Located String))+happyOut32 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut32 #-}+happyIn33 :: (Decl PName) -> (HappyAbsSyn t70)+happyIn33 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn33 #-}+happyOut33 :: (HappyAbsSyn t70) -> (Decl PName)+happyOut33 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut33 #-}+happyIn34 :: (Decl PName) -> (HappyAbsSyn t70)+happyIn34 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn34 #-}+happyOut34 :: (HappyAbsSyn t70) -> (Decl PName)+happyOut34 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut34 #-}+happyIn35 :: (Newtype PName) -> (HappyAbsSyn t70)+happyIn35 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn35 #-}+happyOut35 :: (HappyAbsSyn t70) -> (Newtype PName)+happyOut35 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut35 #-}+happyIn36 :: ([Named (Type PName)]) -> (HappyAbsSyn t70)+happyIn36 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn36 #-}+happyOut36 :: (HappyAbsSyn t70) -> ([Named (Type PName)])+happyOut36 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut36 #-}+happyIn37 :: ([ LPName ]) -> (HappyAbsSyn t70)+happyIn37 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn37 #-}+happyOut37 :: (HappyAbsSyn t70) -> ([ LPName ])+happyOut37 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut37 #-}+happyIn38 :: (LPName) -> (HappyAbsSyn t70)+happyIn38 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn38 #-}+happyOut38 :: (HappyAbsSyn t70) -> (LPName)+happyOut38 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut38 #-}+happyIn39 :: ([Pattern PName]) -> (HappyAbsSyn t70)+happyIn39 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn39 #-}+happyOut39 :: (HappyAbsSyn t70) -> ([Pattern PName])+happyOut39 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut39 #-}+happyIn40 :: ([Pattern PName]) -> (HappyAbsSyn t70)+happyIn40 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn40 #-}+happyOut40 :: (HappyAbsSyn t70) -> ([Pattern PName])+happyOut40 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut40 #-}+happyIn41 :: ([Decl PName]) -> (HappyAbsSyn t70)+happyIn41 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn41 #-}+happyOut41 :: (HappyAbsSyn t70) -> ([Decl PName])+happyOut41 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut41 #-}+happyIn42 :: ([Decl PName]) -> (HappyAbsSyn t70)+happyIn42 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn42 #-}+happyOut42 :: (HappyAbsSyn t70) -> ([Decl PName])+happyOut42 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut42 #-}+happyIn43 :: ([Decl PName]) -> (HappyAbsSyn t70)+happyIn43 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn43 #-}+happyOut43 :: (HappyAbsSyn t70) -> ([Decl PName])+happyOut43 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut43 #-}+happyIn44 :: (ReplInput PName) -> (HappyAbsSyn t70)+happyIn44 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn44 #-}+happyOut44 :: (HappyAbsSyn t70) -> (ReplInput PName)+happyOut44 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut44 #-}+happyIn45 :: (Expr PName) -> (HappyAbsSyn t70)+happyIn45 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn45 #-}+happyOut45 :: (HappyAbsSyn t70) -> (Expr PName)+happyOut45 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut45 #-}+happyIn46 :: ([(Expr PName, Expr PName)]) -> (HappyAbsSyn t70)+happyIn46 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn46 #-}+happyOut46 :: (HappyAbsSyn t70) -> ([(Expr PName, Expr PName)])+happyOut46 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut46 #-}+happyIn47 :: ((Expr PName, Expr PName)) -> (HappyAbsSyn t70)+happyIn47 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn47 #-}+happyOut47 :: (HappyAbsSyn t70) -> ((Expr PName, Expr PName))+happyOut47 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut47 #-}+happyIn48 :: (Expr PName) -> (HappyAbsSyn t70)+happyIn48 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn48 #-}+happyOut48 :: (HappyAbsSyn t70) -> (Expr PName)+happyOut48 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut48 #-}+happyIn49 :: (Expr PName) -> (HappyAbsSyn t70)+happyIn49 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn49 #-}+happyOut49 :: (HappyAbsSyn t70) -> (Expr PName)+happyOut49 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut49 #-}+happyIn50 :: (Expr PName) -> (HappyAbsSyn t70)+happyIn50 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn50 #-}+happyOut50 :: (HappyAbsSyn t70) -> (Expr PName)+happyOut50 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut50 #-}+happyIn51 :: (Expr PName) -> (HappyAbsSyn t70)+happyIn51 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn51 #-}+happyOut51 :: (HappyAbsSyn t70) -> (Expr PName)+happyOut51 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut51 #-}+happyIn52 :: (LPName) -> (HappyAbsSyn t70)+happyIn52 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn52 #-}+happyOut52 :: (HappyAbsSyn t70) -> (LPName)+happyOut52 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut52 #-}+happyIn53 :: (LPName) -> (HappyAbsSyn t70)+happyIn53 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn53 #-}+happyOut53 :: (HappyAbsSyn t70) -> (LPName)+happyOut53 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut53 #-}+happyIn54 :: (LPName) -> (HappyAbsSyn t70)+happyIn54 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn54 #-}+happyOut54 :: (HappyAbsSyn t70) -> (LPName)+happyOut54 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut54 #-}+happyIn55 :: (LPName) -> (HappyAbsSyn t70)+happyIn55 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn55 #-}+happyOut55 :: (HappyAbsSyn t70) -> (LPName)+happyOut55 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut55 #-}+happyIn56 :: ([LPName]) -> (HappyAbsSyn t70)+happyIn56 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn56 #-}+happyOut56 :: (HappyAbsSyn t70) -> ([LPName])+happyOut56 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut56 #-}+happyIn57 :: ([Expr PName]) -> (HappyAbsSyn t70)+happyIn57 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn57 #-}+happyOut57 :: (HappyAbsSyn t70) -> ([Expr PName])+happyOut57 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut57 #-}+happyIn58 :: (Expr PName) -> (HappyAbsSyn t70)+happyIn58 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn58 #-}+happyOut58 :: (HappyAbsSyn t70) -> (Expr PName)+happyOut58 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut58 #-}+happyIn59 :: ([(Bool, Integer)]) -> (HappyAbsSyn t70)+happyIn59 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn59 #-}+happyOut59 :: (HappyAbsSyn t70) -> ([(Bool, Integer)])+happyOut59 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut59 #-}+happyIn60 :: ((Bool, Integer)) -> (HappyAbsSyn t70)+happyIn60 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn60 #-}+happyOut60 :: (HappyAbsSyn t70) -> ((Bool, Integer))+happyOut60 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut60 #-}+happyIn61 :: (Located Selector) -> (HappyAbsSyn t70)+happyIn61 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn61 #-}+happyOut61 :: (HappyAbsSyn t70) -> (Located Selector)+happyOut61 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut61 #-}+happyIn62 :: ([Expr PName]) -> (HappyAbsSyn t70)+happyIn62 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn62 #-}+happyOut62 :: (HappyAbsSyn t70) -> ([Expr PName])+happyOut62 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut62 #-}+happyIn63 :: (Named (Expr PName)) -> (HappyAbsSyn t70)+happyIn63 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn63 #-}+happyOut63 :: (HappyAbsSyn t70) -> (Named (Expr PName))+happyOut63 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut63 #-}+happyIn64 :: ([Named (Expr PName)]) -> (HappyAbsSyn t70)+happyIn64 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn64 #-}+happyOut64 :: (HappyAbsSyn t70) -> ([Named (Expr PName)])+happyOut64 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut64 #-}+happyIn65 :: (Expr PName) -> (HappyAbsSyn t70)+happyIn65 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn65 #-}+happyOut65 :: (HappyAbsSyn t70) -> (Expr PName)+happyOut65 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut65 #-}+happyIn66 :: ([[Match PName]]) -> (HappyAbsSyn t70)+happyIn66 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn66 #-}+happyOut66 :: (HappyAbsSyn t70) -> ([[Match PName]])+happyOut66 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut66 #-}+happyIn67 :: ([Match PName]) -> (HappyAbsSyn t70)+happyIn67 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn67 #-}+happyOut67 :: (HappyAbsSyn t70) -> ([Match PName])+happyOut67 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut67 #-}+happyIn68 :: (Match PName) -> (HappyAbsSyn t70)+happyIn68 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn68 #-}+happyOut68 :: (HappyAbsSyn t70) -> (Match PName)+happyOut68 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut68 #-}+happyIn69 :: (Pattern PName) -> (HappyAbsSyn t70)+happyIn69 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn69 #-}+happyOut69 :: (HappyAbsSyn t70) -> (Pattern PName)+happyOut69 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut69 #-}+happyIn70 :: t70 -> (HappyAbsSyn t70)+happyIn70 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn70 #-}+happyOut70 :: (HappyAbsSyn t70) -> t70+happyOut70 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut70 #-}+happyIn71 :: (Pattern PName) -> (HappyAbsSyn t70)+happyIn71 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn71 #-}+happyOut71 :: (HappyAbsSyn t70) -> (Pattern PName)+happyOut71 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut71 #-}+happyIn72 :: ([Pattern PName]) -> (HappyAbsSyn t70)+happyIn72 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn72 #-}+happyOut72 :: (HappyAbsSyn t70) -> ([Pattern PName])+happyOut72 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut72 #-}+happyIn73 :: (Named (Pattern PName)) -> (HappyAbsSyn t70)+happyIn73 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn73 #-}+happyOut73 :: (HappyAbsSyn t70) -> (Named (Pattern PName))+happyOut73 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut73 #-}+happyIn74 :: ([Named (Pattern PName)]) -> (HappyAbsSyn t70)+happyIn74 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn74 #-}+happyOut74 :: (HappyAbsSyn t70) -> ([Named (Pattern PName)])+happyOut74 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut74 #-}+happyIn75 :: (Schema PName) -> (HappyAbsSyn t70)+happyIn75 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn75 #-}+happyOut75 :: (HappyAbsSyn t70) -> (Schema PName)+happyOut75 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut75 #-}+happyIn76 :: (Located [TParam PName]) -> (HappyAbsSyn t70)+happyIn76 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn76 #-}+happyOut76 :: (HappyAbsSyn t70) -> (Located [TParam PName])+happyOut76 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut76 #-}+happyIn77 :: (Located [Prop PName]) -> (HappyAbsSyn t70)+happyIn77 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn77 #-}+happyOut77 :: (HappyAbsSyn t70) -> (Located [Prop PName])+happyOut77 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut77 #-}+happyIn78 :: (Located Kind) -> (HappyAbsSyn t70)+happyIn78 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn78 #-}+happyOut78 :: (HappyAbsSyn t70) -> (Located Kind)+happyOut78 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut78 #-}+happyIn79 :: (TParam PName) -> (HappyAbsSyn t70)+happyIn79 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn79 #-}+happyOut79 :: (HappyAbsSyn t70) -> (TParam PName)+happyOut79 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut79 #-}+happyIn80 :: ([TParam PName]) -> (HappyAbsSyn t70)+happyIn80 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn80 #-}+happyOut80 :: (HappyAbsSyn t70) -> ([TParam PName])+happyOut80 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut80 #-}+happyIn81 :: (TParam PName) -> (HappyAbsSyn t70)+happyIn81 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn81 #-}+happyOut81 :: (HappyAbsSyn t70) -> (TParam PName)+happyOut81 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut81 #-}+happyIn82 :: ([TParam PName]) -> (HappyAbsSyn t70)+happyIn82 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn82 #-}+happyOut82 :: (HappyAbsSyn t70) -> ([TParam PName])+happyOut82 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut82 #-}+happyIn83 :: (Type PName) -> (HappyAbsSyn t70)+happyIn83 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn83 #-}+happyOut83 :: (HappyAbsSyn t70) -> (Type PName)+happyOut83 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut83 #-}+happyIn84 :: (Type PName) -> (HappyAbsSyn t70)+happyIn84 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn84 #-}+happyOut84 :: (HappyAbsSyn t70) -> (Type PName)+happyOut84 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut84 #-}+happyIn85 :: (Type PName) -> (HappyAbsSyn t70)+happyIn85 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn85 #-}+happyOut85 :: (HappyAbsSyn t70) -> (Type PName)+happyOut85 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut85 #-}+happyIn86 :: ([ Type PName ]) -> (HappyAbsSyn t70)+happyIn86 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn86 #-}+happyOut86 :: (HappyAbsSyn t70) -> ([ Type PName ])+happyOut86 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut86 #-}+happyIn87 :: (Located [Type PName]) -> (HappyAbsSyn t70)+happyIn87 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn87 #-}+happyOut87 :: (HappyAbsSyn t70) -> (Located [Type PName])+happyOut87 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut87 #-}+happyIn88 :: ([Type PName]) -> (HappyAbsSyn t70)+happyIn88 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn88 #-}+happyOut88 :: (HappyAbsSyn t70) -> ([Type PName])+happyOut88 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut88 #-}+happyIn89 :: (Named (Type PName)) -> (HappyAbsSyn t70)+happyIn89 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn89 #-}+happyOut89 :: (HappyAbsSyn t70) -> (Named (Type PName))+happyOut89 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut89 #-}+happyIn90 :: ([Named (Type PName)]) -> (HappyAbsSyn t70)+happyIn90 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn90 #-}+happyOut90 :: (HappyAbsSyn t70) -> ([Named (Type PName)])+happyOut90 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut90 #-}+happyIn91 :: (Located Ident) -> (HappyAbsSyn t70)+happyIn91 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn91 #-}+happyOut91 :: (HappyAbsSyn t70) -> (Located Ident)+happyOut91 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut91 #-}+happyIn92 :: (LPName) -> (HappyAbsSyn t70)+happyIn92 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn92 #-}+happyOut92 :: (HappyAbsSyn t70) -> (LPName)+happyOut92 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut92 #-}+happyIn93 :: (Located ModName) -> (HappyAbsSyn t70)+happyIn93 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn93 #-}+happyOut93 :: (HappyAbsSyn t70) -> (Located ModName)+happyOut93 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut93 #-}+happyIn94 :: (Located PName) -> (HappyAbsSyn t70)+happyIn94 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn94 #-}+happyOut94 :: (HappyAbsSyn t70) -> (Located PName)+happyOut94 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut94 #-}+happyIn95 :: (Located PName) -> (HappyAbsSyn t70)+happyIn95 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn95 #-}+happyOut95 :: (HappyAbsSyn t70) -> (Located PName)+happyOut95 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut95 #-}+happyIn96 :: (Type PName) -> (HappyAbsSyn t70)+happyIn96 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn96 #-}+happyOut96 :: (HappyAbsSyn t70) -> (Type PName)+happyOut96 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut96 #-}+happyIn97 :: (Named (Type PName)) -> (HappyAbsSyn t70)+happyIn97 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn97 #-}+happyOut97 :: (HappyAbsSyn t70) -> (Named (Type PName))+happyOut97 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut97 #-}+happyIn98 :: ([Named (Type PName)]) -> (HappyAbsSyn t70)+happyIn98 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyIn98 #-}+happyOut98 :: (HappyAbsSyn t70) -> ([Named (Type PName)])+happyOut98 x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOut98 #-}+happyInTok :: (Located Token) -> (HappyAbsSyn t70)+happyInTok x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyInTok #-}+happyOutTok :: (HappyAbsSyn t70) -> (Located Token)+happyOutTok x = Happy_GHC_Exts.unsafeCoerce# x+{-# INLINE happyOutTok #-}+++happyActOffsets :: HappyAddr+happyActOffsets = HappyA# "\x08\x00\xad\x01\x7f\x03\xb5\x02\x83\x06\x83\x06\x7a\x03\x93\x03\x86\x02\xee\x05\xbf\x07\xf1\x02\x90\x03\xbf\x07\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x65\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x8c\x08\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x65\x03\x00\x00\x65\x03\xd5\x05\xd5\x05\xc5\x07\x70\x03\x00\x00\xbc\x05\xa3\x05\x00\x00\x00\x00\x8a\x05\xc2\x04\x33\x07\x00\x00\x00\x00\x5d\x03\x72\x03\x00\x00\x00\x00\xb7\x07\x00\x00\x03\x07\x5f\x03\x00\x00\x00\x00\x00\x00\x00\x00\xd3\x06\xb5\x02\x57\x02\x63\x01\x1c\x07\x43\x00\x30\x07\xd3\x06\xce\x02\xce\x02\x40\x03\x40\x03\x16\x06\x53\x03\x22\x00\xd3\x06\xc1\x01\x2a\x01\x1d\x05\xb0\x07\x71\x03\x6b\x03\x69\x03\xc2\x07\xf4\x02\xfd\x02\xa1\x06\x00\x00\x2b\x03\xf3\xff\x2b\x03\x10\x02\x2b\x03\x99\x01\x41\x03\x00\x00\x00\x00\x43\x03\x00\x00\x58\x03\x00\x00\x1d\x03\xd5\x01\x23\x03\x19\x01\x00\x00\x05\x01\x00\x00\x00\x00\x00\x00\x6f\x06\x70\x01\x00\x00\xbf\x07\x20\x03\x00\x00\x93\x05\x00\x00\x22\x03\x35\x02\x00\x00\x70\x00\x00\x00\x2c\x02\x10\x03\x00\x00\x21\x03\xdf\x02\x3f\x00\x00\x00\xc0\x02\x00\x00\xbf\x06\x00\x00\xed\x01\x2e\x00\x00\x00\x2f\x05\x94\x08\x94\x08\x94\x08\xd3\x06\xb5\x02\xd3\x06\xf7\x02\x0f\x03\xd3\x06\x41\x02\x7a\x05\x71\x05\x00\x00\x00\x00\x14\x02\x00\x00\x00\x00\x00\x00\x01\x03\x00\x00\x00\x00\x00\x00\x58\x05\xa9\x04\x1f\x00\x00\x00\x00\x00\xfa\x02\x00\x00\x00\x00\x01\x02\xab\x06\x00\x00\x04\x02\xf2\x02\x94\x02\x00\x00\xce\x02\xce\x02\xf4\x01\xf6\x02\xfb\x02\x00\x00\xc0\x01\x4d\x00\x00\x00\xb8\x00\xd3\x06\xf6\x00\xee\x02\xce\x02\x58\x05\x00\x00\xdc\x01\x00\x00\xc5\x01\xe5\x02\x2a\x07\x43\x07\x90\x02\x00\x00\x80\x04\x32\x05\x00\x00\x3f\x05\x00\x00\x26\x05\x00\x00\x26\x05\x26\x05\x26\x05\x00\x00\x94\x08\x26\x05\xc5\x07\xec\x02\xf8\x02\xda\x02\x00\x00\x94\x08\x00\x00\x94\x08\x9e\x04\x8e\x02\x00\x00\xde\x06\xd8\x02\x00\x00\x00\x00\x26\x05\x00\x00\x26\x05\x4b\x02\xc2\x07\x00\x00\xc2\x07\x00\x00\x94\x08\x00\x00\x00\x00\x00\x00\x00\x00\xcb\x02\xb5\x02\xb5\x02\xb5\x02\xb5\x02\x00\x00\xb5\x02\xb5\x02\x00\x00\xd3\x06\xb5\x02\x00\x00\x00\x00\x00\x00\xb5\x02\xc8\x02\xb5\x02\xc2\x07\x00\x00\xeb\x02\x00\x00\x41\x00\x4f\x07\x7f\x01\xb2\x02\x00\x00\x6e\x01\x00\x00\x37\x07\xb5\x02\x5b\x06\x00\x00\x5b\x06\x00\x00\x00\x00\x00\x00\x94\x08\x59\x01\xb5\x02\x00\x00\x9e\x02\x9c\x02\xa5\x02\x00\x00\x8c\x02\x8c\x02\x8c\x02\x00\x00\x16\x05\x00\x00\xc2\x07\x26\x05\x00\x00\xd3\x06\x00\x00\xd3\x06\x00\x00\x26\x05\x00\x00\x83\x02\xd3\x06\xc2\x07\x00\x00\x47\x06\x02\x06\x24\x02\x00\x00\x24\x02\x00\x00\x7f\x02\x94\x08\x24\x02\x93\x02\x00\x00\x96\x02\xc2\x07\xac\x05\x00\x00\x64\x02\xe9\x01\xe9\x01\x00\x00\x00\x00\x23\x00\x00\x00\x23\x00\x24\x02\xfd\x04\x97\x06\x00\x00\x86\x00\x16\x03\x08\x02\x74\x02\x0d\x05\x00\x00\x00\x00\xa6\x01\x00\x00\x33\x06\x00\x00\x00\x00\x00\x00\xb5\x02\x94\x08\x00\x00\x00\x00\x94\x08\x5c\x02\x00\x00\xf4\x04\x94\x08\xb5\x02\x6a\x02\x4d\x02\x00\x00\x00\x00\x00\x00\x00\x00\xc2\x07\x00\x00\xf4\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x51\x02\xb5\x02\x51\x02\x25\x02\x3f\x02\x1e\x02\x00\x00\x3b\x02\x19\x02\x19\x02\x19\x02\x00\x00\x00\x00\x19\x02\xb5\x02\x00\x00\x0b\x02\x00\x00\x00\x00\x94\x08\x00\x00\x00\x00\x94\x08\x94\x08\xf4\x04\x00\x00\xde\x06\xd5\x01\xe3\x01\x74\x00\x09\x02\xb5\x02\xd3\x06\xd3\x06\xb5\x02\x00\x00\x09\x02\x94\x08\xe1\x01\x00\x00\x00\x00\xa2\x01\x00\x00\x94\x08\x74\x00\xa2\x01\x00\x00\x00\x00\x00\x00\x85\x01\x00\x00\x00\x00\x00\x00\x8a\x01\x00\x00\x6c\x01\xb5\x02\xe4\x04\x7a\x01\x23\x01\x00\x00\x00\x00\x8d\x02\x7a\x01\x3a\x01\xb5\x02\xc2\x07\xdb\x04\x31\x01\x27\x01\x01\x01\x00\x00\xff\x00\x00\x00\x00\x00\x00\x00\x47\x02\x00\x00\xff\x00\x00\x00\xef\x00\x00\x00\x00\x00\x00\x00\xc2\x07\x00\x00\x00\x00"#++happyGotoOffsets :: HappyAddr+happyGotoOffsets = HappyA# "\x04\x01\x6d\x00\xed\x00\x44\x04\x39\x01\x0f\x01\xd5\x00\xd9\x00\xe8\x00\x73\x07\x50\x02\x7b\x02\x00\x00\x37\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x2b\x07\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x03\x6e\x08\x18\x07\x00\x00\x00\x00\x71\x06\xa2\x02\x00\x00\x00\x00\x62\x08\xba\x07\x27\x07\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xa6\x06\x00\x00\x06\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0b\x01\x3e\x03\x27\x03\x18\x03\x8c\x00\xd2\x01\xfa\x01\x5a\x02\x6e\x04\x6a\x04\x00\x00\x00\x00\xe6\x00\x00\x00\x00\x00\x72\x01\x32\x01\x00\x00\x99\x00\x00\x00\x00\x00\x00\x00\x00\x00\x74\x01\xdf\x05\xf7\x06\x34\x00\x00\x00\x00\x00\x00\x00\x00\x00\x9e\x00\x00\x00\xbb\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x13\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x28\x01\xd0\x00\x00\x00\x33\x02\x00\x00\x00\x00\x92\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xc7\x05\x00\x00\x00\x00\x00\x00\x00\x00\xb8\x01\x6e\x06\x5a\x06\x01\x06\x45\x01\x36\x04\xe2\x00\x00\x00\x00\x00\xe4\x00\x00\x00\xf0\xff\x66\x07\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x56\x08\x9c\x06\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x41\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x68\x03\x76\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x83\x00\xda\xff\x00\x00\x2c\x00\x4a\x08\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x18\x07\x00\x00\x00\x00\x44\x03\xaa\x06\x00\x00\x34\x03\x00\x00\x3e\x08\x00\x00\x32\x08\x26\x08\x97\x02\x00\x00\xaa\x06\x1a\x08\xaa\x06\x00\x00\x00\x00\x00\x00\x00\x00\xaa\x06\x00\x00\xaa\x06\xaa\x06\xaa\x06\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0e\x08\x00\x00\x02\x08\x8f\x07\xf0\x01\x00\x00\xdc\xff\x00\x00\xaa\x06\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x2b\x04\x5c\x04\x4d\x03\x1d\x04\x00\x00\x0f\x04\x04\x04\x00\x00\x95\x05\xf6\x03\x00\x00\x00\x00\x00\x00\xe8\x03\x00\x00\xdd\x03\xfd\xff\x00\x00\x00\x00\x00\x00\x9c\x00\xaa\x06\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xaa\x06\x51\x04\x26\x01\x00\x00\x16\x01\x00\x00\x00\x00\x00\x00\x21\x06\x00\x00\xcf\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x82\x00\x00\x00\x3b\x00\xf6\x07\x00\x00\x23\x06\x00\x00\x55\x04\x00\x00\xea\x07\x00\x00\x00\x00\xd4\x01\xcf\xff\x00\x00\xf4\xff\xde\x00\xd7\x00\x00\x00\xcb\x00\x00\x00\x00\x00\xa8\x05\x87\x00\xaf\x00\x00\x00\x00\x00\x35\x00\x28\x02\x00\x00\x00\x00\x56\x00\x24\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x7a\x00\x2c\x01\x26\x00\x00\x00\x73\x02\x9d\x01\x00\x00\x00\x00\x59\x07\x00\x00\x00\x00\x00\x00\x00\x00\x09\x01\x00\x00\x00\x00\x00\x00\xc1\x03\x59\x05\x00\x00\x00\x00\x59\x05\x00\x00\x00\x00\xde\x07\xc3\x04\xb6\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xce\xff\x00\x00\xd2\x07\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xa8\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x9a\x03\x00\x00\x00\x00\x00\x00\x00\x00\x74\x04\x00\x00\x00\x00\x74\x04\x74\x04\xc6\x07\x00\x00\x00\x00\x01\x00\x00\x00\x79\x00\x00\x00\x8f\x03\x76\x01\xaf\x05\x81\x03\x00\x00\x00\x00\x74\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x74\x04\x67\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x73\x03\x82\x00\x5f\x00\x00\x00\x00\x00\x00\x00\x3d\x03\x48\x00\x00\x00\x5b\x03\xfb\xff\x4c\x07\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xd1\xff\x00\x00\x00\x00"#++happyDefActions :: HappyAddr+happyDefActions = HappyA# "\x00\x00\xc5\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0f\xff\x91\xff\x8f\xff\x8d\xff\x15\xff\x12\xff\x10\xff\x00\x00\x1a\xff\x11\xff\x17\xff\x16\xff\x18\xff\x19\xff\x00\x00\x8b\xff\x8c\xff\x88\xff\x8a\xff\x89\xff\x8e\xff\x87\xff\x90\xff\x14\xff\x00\x00\x13\xff\x00\x00\x00\x00\x00\x00\x44\xff\x31\xff\x2e\xff\x00\x00\x2d\xff\x2c\xff\x2b\xff\x00\x00\x00\x00\x00\x00\x24\xff\xa4\xff\x00\x00\xa5\xff\xa3\xff\x9b\xff\x98\xff\x96\xff\x94\xff\x84\xff\x82\xff\x81\xff\x80\xff\x7f\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xb4\xff\x00\x00\x00\x00\x54\xff\xb2\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x52\xff\x00\x00\x00\x00\x00\x00\xc5\xff\x00\x00\xc5\xff\x00\x00\xcc\xff\xc6\xff\x00\x00\xce\xff\x00\x00\xc7\xff\x00\x00\xc5\xff\x00\x00\xef\xff\xea\xff\xee\xff\xd9\xff\xcf\xff\xd0\xff\xc6\xff\x00\x00\xd6\xff\x00\x00\x18\xff\xcd\xff\x00\x00\xdb\xff\x00\x00\x00\x00\xdc\xff\x00\x00\x46\xff\x00\x00\x00\x00\x4b\xff\x00\x00\x00\x00\x56\xff\x54\xff\x00\x00\x53\xff\x00\x00\x51\xff\x00\x00\x00\x00\x4e\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xae\xff\x00\x00\x00\x00\xac\xff\xaa\xff\x00\x00\xa6\xff\x92\xff\x93\xff\x00\x00\x0d\xff\x77\xff\x0c\xff\x00\x00\x00\x00\x00\x00\x72\xff\x70\xff\x6f\xff\x74\xff\x67\xff\x00\x00\x00\x00\x7b\xff\x00\x00\x00\x00\x00\x00\x7c\xff\x8a\xff\x89\xff\x64\xff\x63\xff\x00\x00\x79\xff\x00\x00\x00\x00\x9e\xff\x00\x00\x53\xff\x00\x00\x83\xff\x00\x00\x00\x00\x39\xff\x00\x00\x1c\xff\x00\x00\x3b\xff\x40\xff\x00\x00\x00\x00\x28\xff\x00\x00\x00\x00\x23\xff\x2f\xff\x2d\xff\x00\x00\x30\xff\x00\x00\x00\x00\x00\x00\x3e\xff\x42\xff\x00\x00\x43\xff\x00\x00\x00\x00\x00\x00\x0e\xff\x41\xff\x32\xff\x33\xff\x00\x00\x00\x00\x22\xff\x21\xff\x00\x00\x26\xff\x27\xff\x00\x00\x29\xff\x00\x00\x00\x00\x00\x00\x25\xff\x00\x00\x3f\xff\x97\xff\x95\xff\x76\xff\x6d\xff\x6c\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x78\xff\x00\x00\x62\xff\x5e\xff\x00\x00\x00\x00\x7d\xff\x75\xff\x7e\xff\x00\x00\x00\x00\x00\x00\x00\x00\x7a\xff\x00\x00\x73\xff\x00\x00\x00\x00\x00\x00\x15\xff\x05\xff\x00\x00\x0a\xff\x00\x00\x00\x00\x00\x00\xa7\xff\x00\x00\xc4\xff\xb3\xff\xb2\xff\x00\x00\xad\xff\x00\x00\xab\xff\x55\xff\xc3\xff\x00\x00\x86\xff\xbb\xff\xbd\xff\xbc\xff\x35\xff\x00\x00\x37\xff\x00\x00\x00\x00\x4c\xff\x00\x00\x4d\xff\x00\x00\x4f\xff\x00\x00\x50\xff\xb1\xff\x00\x00\x00\x00\x4a\xff\x00\x00\x00\x00\xc5\xff\xdd\xff\xc5\xff\xda\xff\x00\x00\x00\x00\xc5\xff\xe7\xff\xd1\xff\x00\x00\x00\x00\x00\x00\xd5\xff\x18\xff\xc5\xff\xc5\xff\xf2\xff\xec\xff\xf1\xff\xeb\xff\xf0\xff\xc5\xff\x00\x00\x00\x00\xd4\xff\xe0\xff\x00\x00\x00\x00\x00\x00\x00\x00\xd8\xff\xd7\xff\x00\x00\xa0\xff\x00\x00\xa2\xff\x45\xff\x47\xff\x00\x00\x57\xff\x49\xff\x48\xff\xbf\xff\x00\x00\x34\xff\x00\x00\x00\x00\x00\x00\xc1\xff\x00\x00\xa9\xff\xa8\xff\x99\xff\x0b\xff\x00\x00\x09\xff\x00\x00\x07\xff\x08\xff\x71\xff\x6e\xff\x66\xff\x69\xff\x00\x00\x6b\xff\x6b\xff\x65\xff\x5c\xff\x5a\xff\x00\x00\x61\xff\x6a\xff\x9c\xff\x9d\xff\x9a\xff\xba\xff\x00\x00\x38\xff\x3b\xff\x1b\xff\x3a\xff\x1d\xff\x3c\xff\x3d\xff\x1f\xff\x1e\xff\x00\x00\x2a\xff\x20\xff\xc5\xff\x00\x00\x00\x00\xb9\xff\x00\x00\x00\x00\x00\x00\x60\xff\x5d\xff\x68\xff\x06\xff\x00\x00\x04\xff\xb1\xff\xc0\xff\x85\xff\xbe\xff\x00\x00\xc2\xff\xa1\xff\x9f\xff\xc9\xff\x00\x00\xcb\xff\xe8\xff\xe9\xff\x00\x00\xe1\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xca\xff\xb8\xff\x00\x00\x00\x00\xd2\xff\x00\x00\xe2\xff\x00\x00\x00\x00\x5f\xff\x5b\xff\x59\xff\x58\xff\xf3\xff\x36\xff\xc8\xff\x00\x00\xe3\xff\xd3\xff\xb7\xff\x00\x00\xb6\xff\xb5\xff\xe6\xff\x00\x00\xe4\xff"#++happyCheck :: HappyAddr+happyCheck = HappyA# "\xff\xff\x06\x00\x01\x00\x02\x00\x03\x00\x12\x00\x12\x00\x17\x00\x2e\x00\x3a\x00\x16\x00\x17\x00\x0b\x00\x0c\x00\x1a\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x12\x00\x01\x00\x02\x00\x03\x00\x16\x00\x17\x00\x11\x00\x4c\x00\x4c\x00\x40\x00\x4c\x00\x0b\x00\x0c\x00\x52\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x12\x00\x4c\x00\x03\x00\x4c\x00\x16\x00\x17\x00\x37\x00\x38\x00\x30\x00\x3b\x00\x0b\x00\x0c\x00\x2b\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x12\x00\x2f\x00\x37\x00\x38\x00\x16\x00\x17\x00\x4c\x00\x4d\x00\x18\x00\x19\x00\x4c\x00\x4d\x00\x01\x00\x21\x00\x01\x00\x22\x00\x27\x00\x4c\x00\x1a\x00\x4c\x00\x37\x00\x38\x00\x2a\x00\x4c\x00\x4d\x00\x21\x00\x24\x00\x32\x00\x4c\x00\x4d\x00\x31\x00\x4f\x00\x2a\x00\x2b\x00\x17\x00\x03\x00\x17\x00\x37\x00\x38\x00\x15\x00\x38\x00\x4c\x00\x4d\x00\x0b\x00\x0c\x00\x16\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x12\x00\x2a\x00\x27\x00\x1e\x00\x16\x00\x17\x00\x3a\x00\x3b\x00\x4c\x00\x4d\x00\x4c\x00\x4d\x00\x15\x00\x08\x00\x37\x00\x0a\x00\x4c\x00\x4d\x00\x0d\x00\x4f\x00\x0f\x00\x10\x00\x11\x00\x12\x00\x4c\x00\x4c\x00\x4d\x00\x16\x00\x17\x00\x0b\x00\x0c\x00\x4c\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x12\x00\x37\x00\x38\x00\x09\x00\x16\x00\x17\x00\x0b\x00\x0c\x00\x24\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x12\x00\x24\x00\x18\x00\x19\x00\x16\x00\x17\x00\x2f\x00\x2a\x00\x2b\x00\x4c\x00\x4d\x00\x37\x00\x38\x00\x3f\x00\x33\x00\x22\x00\x0b\x00\x0c\x00\x37\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x12\x00\x37\x00\x38\x00\x04\x00\x16\x00\x17\x00\x30\x00\x31\x00\x3f\x00\x4c\x00\x4d\x00\x38\x00\x30\x00\x31\x00\x37\x00\x38\x00\x27\x00\x28\x00\x4c\x00\x4d\x00\x42\x00\x4f\x00\x4c\x00\x4d\x00\x0d\x00\x2d\x00\x0f\x00\x10\x00\x11\x00\x12\x00\x4c\x00\x4c\x00\x4d\x00\x16\x00\x17\x00\x4c\x00\x4d\x00\x37\x00\x38\x00\x0c\x00\x4c\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x12\x00\x4c\x00\x4d\x00\x28\x00\x16\x00\x17\x00\x0c\x00\x14\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x12\x00\x4c\x00\x4d\x00\x13\x00\x16\x00\x17\x00\x37\x00\x12\x00\x1c\x00\x37\x00\x38\x00\x16\x00\x17\x00\x09\x00\x01\x00\x12\x00\x1b\x00\x04\x00\x13\x00\x16\x00\x17\x00\x08\x00\x09\x00\x0a\x00\x1b\x00\x37\x00\x38\x00\x00\x00\x1d\x00\x1e\x00\x4c\x00\x4d\x00\x21\x00\x22\x00\x23\x00\x24\x00\x17\x00\x37\x00\x38\x00\x21\x00\x12\x00\x2a\x00\x2b\x00\x25\x00\x37\x00\x38\x00\x4c\x00\x4d\x00\x37\x00\x38\x00\x12\x00\x38\x00\x37\x00\x38\x00\x16\x00\x17\x00\x12\x00\x21\x00\x4c\x00\x4d\x00\x16\x00\x17\x00\x22\x00\x12\x00\x1a\x00\x4c\x00\x4d\x00\x16\x00\x17\x00\x4c\x00\x4d\x00\x4c\x00\x4d\x00\x4c\x00\x4d\x00\x4c\x00\x4d\x00\x31\x00\x4f\x00\x12\x00\x12\x00\x12\x00\x22\x00\x16\x00\x17\x00\x16\x00\x17\x00\x37\x00\x38\x00\x37\x00\x38\x00\x12\x00\x22\x00\x37\x00\x38\x00\x16\x00\x17\x00\x31\x00\x12\x00\x12\x00\x37\x00\x38\x00\x16\x00\x17\x00\x20\x00\x28\x00\x30\x00\x31\x00\x4c\x00\x4d\x00\x4c\x00\x4d\x00\x18\x00\x19\x00\x4c\x00\x4d\x00\x37\x00\x38\x00\x37\x00\x38\x00\x37\x00\x4c\x00\x4d\x00\x01\x00\x02\x00\x03\x00\x04\x00\x05\x00\x37\x00\x38\x00\x08\x00\x09\x00\x0a\x00\x42\x00\x43\x00\x37\x00\x38\x00\x4c\x00\x4d\x00\x4c\x00\x4d\x00\x06\x00\x14\x00\x4c\x00\x38\x00\x17\x00\x0b\x00\x19\x00\x38\x00\x4c\x00\x4d\x00\x10\x00\x28\x00\x1f\x00\x20\x00\x2b\x00\x4c\x00\x4d\x00\x24\x00\x18\x00\x26\x00\x18\x00\x19\x00\x29\x00\x4c\x00\x4d\x00\x21\x00\x2d\x00\x4c\x00\x4d\x00\x25\x00\x28\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x39\x00\x04\x00\x24\x00\x06\x00\x21\x00\x08\x00\x09\x00\x0a\x00\x25\x00\x0c\x00\x0d\x00\x0e\x00\x0f\x00\x1f\x00\x38\x00\x35\x00\x36\x00\x37\x00\x38\x00\x2a\x00\x17\x00\x04\x00\x19\x00\x06\x00\x12\x00\x08\x00\x09\x00\x0a\x00\x1f\x00\x0c\x00\x0d\x00\x0e\x00\x0f\x00\x24\x00\x4c\x00\x4d\x00\x4c\x00\x4d\x00\x4c\x00\x4d\x00\x17\x00\x04\x00\x19\x00\x2e\x00\x22\x00\x08\x00\x09\x00\x0a\x00\x1f\x00\x0c\x00\x0d\x00\x0e\x00\x0f\x00\x24\x00\x12\x00\x3a\x00\x3b\x00\x15\x00\x30\x00\x31\x00\x17\x00\x04\x00\x19\x00\x2e\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x1f\x00\x0c\x00\x0d\x00\x0e\x00\x0f\x00\x24\x00\x21\x00\x3a\x00\x3b\x00\x4c\x00\x25\x00\x4e\x00\x17\x00\x04\x00\x19\x00\x2e\x00\x07\x00\x08\x00\x09\x00\x0a\x00\x1f\x00\x0c\x00\x0d\x00\x0e\x00\x0f\x00\x24\x00\x42\x00\x43\x00\x3b\x00\x21\x00\x2c\x00\x2d\x00\x17\x00\x25\x00\x19\x00\x2e\x00\x4c\x00\x30\x00\x12\x00\x1a\x00\x1f\x00\x28\x00\x36\x00\x37\x00\x38\x00\x24\x00\x21\x00\x3a\x00\x1c\x00\x1d\x00\x1e\x00\x30\x00\x04\x00\x21\x00\x12\x00\x2e\x00\x08\x00\x09\x00\x0a\x00\x12\x00\x0c\x00\x0d\x00\x0e\x00\x0f\x00\x4c\x00\x4d\x00\x21\x00\x3a\x00\x20\x00\x21\x00\x25\x00\x17\x00\x04\x00\x19\x00\x22\x00\x12\x00\x08\x00\x09\x00\x0a\x00\x1f\x00\x0c\x00\x0d\x00\x0e\x00\x0f\x00\x24\x00\x2a\x00\x22\x00\x12\x00\x30\x00\x31\x00\x4a\x00\x17\x00\x4c\x00\x19\x00\x2e\x00\x21\x00\x30\x00\x1c\x00\x1d\x00\x1f\x00\x30\x00\x31\x00\x4c\x00\x4d\x00\x24\x00\x4f\x00\x3a\x00\x51\x00\x01\x00\x21\x00\x03\x00\x04\x00\x05\x00\x25\x00\x2e\x00\x08\x00\x09\x00\x0a\x00\x1b\x00\x22\x00\x01\x00\x02\x00\x03\x00\x04\x00\x05\x00\x1e\x00\x3a\x00\x08\x00\x09\x00\x0a\x00\x17\x00\x12\x00\x19\x00\x30\x00\x31\x00\x20\x00\x21\x00\x28\x00\x1f\x00\x14\x00\x2b\x00\x20\x00\x17\x00\x24\x00\x19\x00\x1a\x00\x18\x00\x19\x00\x4c\x00\x4d\x00\x1f\x00\x4f\x00\x05\x00\x2e\x00\x07\x00\x24\x00\x12\x00\x26\x00\x33\x00\x4c\x00\x29\x00\x4e\x00\x37\x00\x4c\x00\x2d\x00\x4e\x00\x2a\x00\x01\x00\x02\x00\x03\x00\x04\x00\x05\x00\x35\x00\x36\x00\x08\x00\x09\x00\x0a\x00\x04\x00\x38\x00\x2f\x00\x20\x00\x08\x00\x09\x00\x0a\x00\x02\x00\x13\x00\x14\x00\x08\x00\x4c\x00\x17\x00\x4e\x00\x19\x00\x25\x00\x26\x00\x27\x00\x28\x00\x17\x00\x1f\x00\x4c\x00\x4d\x00\x1a\x00\x2a\x00\x24\x00\x28\x00\x26\x00\x21\x00\x12\x00\x29\x00\x20\x00\x21\x00\x25\x00\x2d\x00\x20\x00\x21\x00\x01\x00\x02\x00\x03\x00\x04\x00\x05\x00\x35\x00\x36\x00\x08\x00\x09\x00\x0a\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x4c\x00\x4d\x00\x14\x00\x4f\x00\x50\x00\x17\x00\x28\x00\x19\x00\x01\x00\x02\x00\x03\x00\x04\x00\x05\x00\x1f\x00\x37\x00\x08\x00\x09\x00\x0a\x00\x24\x00\x28\x00\x26\x00\x45\x00\x46\x00\x29\x00\x48\x00\x20\x00\x21\x00\x2d\x00\x4c\x00\x4d\x00\x17\x00\x4f\x00\x19\x00\x46\x00\x47\x00\x35\x00\x36\x00\x01\x00\x1f\x00\x4c\x00\x4d\x00\x28\x00\x4f\x00\x24\x00\x28\x00\x26\x00\x04\x00\x05\x00\x29\x00\x04\x00\x08\x00\x09\x00\x0a\x00\x08\x00\x09\x00\x0a\x00\x20\x00\x21\x00\x04\x00\x2a\x00\x35\x00\x36\x00\x08\x00\x09\x00\x0a\x00\x17\x00\x2f\x00\x12\x00\x17\x00\x20\x00\x19\x00\x1a\x00\x2a\x00\x1f\x00\x23\x00\x20\x00\x1f\x00\x17\x00\x1a\x00\x19\x00\x21\x00\x24\x00\x22\x00\x04\x00\x05\x00\x1f\x00\x20\x00\x08\x00\x09\x00\x0a\x00\x24\x00\x2e\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x39\x00\x2e\x00\x2b\x00\x17\x00\x34\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x1e\x00\x28\x00\x28\x00\x21\x00\x22\x00\x23\x00\x24\x00\x25\x00\x26\x00\x27\x00\x28\x00\x20\x00\x2a\x00\x2b\x00\x22\x00\x1e\x00\x3e\x00\x2f\x00\x21\x00\x22\x00\x23\x00\x24\x00\x44\x00\x45\x00\x46\x00\x2f\x00\x48\x00\x2a\x00\x2b\x00\x30\x00\x4c\x00\x4d\x00\x2f\x00\x4f\x00\x3b\x00\x32\x00\x02\x00\x18\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x24\x00\x22\x00\x4c\x00\x4d\x00\x3b\x00\x4f\x00\x2a\x00\x2b\x00\x01\x00\x1e\x00\x01\x00\x20\x00\x21\x00\x22\x00\x23\x00\x24\x00\x01\x00\x4c\x00\x4d\x00\x22\x00\x4f\x00\x2a\x00\x2b\x00\x1e\x00\x46\x00\x3b\x00\x21\x00\x22\x00\x23\x00\x24\x00\x4c\x00\x4d\x00\x23\x00\x4f\x00\x12\x00\x2a\x00\x2b\x00\x4a\x00\x4b\x00\x4c\x00\x4c\x00\x4d\x00\x24\x00\x4f\x00\x4a\x00\x4b\x00\x4c\x00\x1e\x00\x2a\x00\x2b\x00\x21\x00\x22\x00\x23\x00\x24\x00\x3b\x00\x4c\x00\x4d\x00\x2b\x00\x4f\x00\x2a\x00\x2b\x00\x1e\x00\x3b\x00\x11\x00\x21\x00\x22\x00\x23\x00\x24\x00\x13\x00\x4c\x00\x4d\x00\x2f\x00\x4f\x00\x2a\x00\x2b\x00\x1e\x00\x2f\x00\xff\xff\x21\x00\x22\x00\x23\x00\x24\x00\x4c\x00\x4d\x00\xff\xff\x4f\x00\x1e\x00\x2a\x00\x2b\x00\x21\x00\x22\x00\x23\x00\x24\x00\x4c\x00\x4d\x00\xff\xff\x4f\x00\xff\xff\x2a\x00\x2b\x00\x1e\x00\xff\xff\xff\xff\x21\x00\x22\x00\x23\x00\x24\x00\x4c\x00\x4d\x00\xff\xff\x4f\x00\xff\xff\x2a\x00\x2b\x00\x1e\x00\xff\xff\xff\xff\x21\x00\x22\x00\x23\x00\x24\x00\x4c\x00\x4d\x00\xff\xff\x4f\x00\x1e\x00\x2a\x00\x2b\x00\x21\x00\x22\x00\x23\x00\x24\x00\x4c\x00\x4d\x00\xff\xff\x4f\x00\xff\xff\x2a\x00\x2b\x00\x1e\x00\xff\xff\xff\xff\x21\x00\x22\x00\x23\x00\x24\x00\x4c\x00\x4d\x00\xff\xff\x4f\x00\xff\xff\x2a\x00\x2b\x00\x1e\x00\xff\xff\xff\xff\x21\x00\x22\x00\x23\x00\x24\x00\x4c\x00\x4d\x00\xff\xff\x4f\x00\x1e\x00\x2a\x00\x2b\x00\x21\x00\x22\x00\x23\x00\x24\x00\x4c\x00\x4d\x00\xff\xff\x4f\x00\xff\xff\x2a\x00\x2b\x00\x1e\x00\xff\xff\xff\xff\x21\x00\x22\x00\x23\x00\x24\x00\x4c\x00\x4d\x00\xff\xff\x4f\x00\xff\xff\x2a\x00\x2b\x00\x1e\x00\xff\xff\xff\xff\x21\x00\x22\x00\x23\x00\x24\x00\x4c\x00\x4d\x00\xff\xff\x4f\x00\x1e\x00\x2a\x00\x2b\x00\x21\x00\x22\x00\x23\x00\x24\x00\x4c\x00\x4d\x00\xff\xff\x4f\x00\xff\xff\x2a\x00\x2b\x00\x1e\x00\xff\xff\xff\xff\x21\x00\x22\x00\x23\x00\x24\x00\x4c\x00\x4d\x00\xff\xff\x4f\x00\xff\xff\x2a\x00\x2b\x00\x1e\x00\xff\xff\xff\xff\x21\x00\x22\x00\x23\x00\x24\x00\x4c\x00\x4d\x00\xff\xff\x4f\x00\x1e\x00\x2a\x00\x2b\x00\x21\x00\x22\x00\x23\x00\x24\x00\x4c\x00\x4d\x00\xff\xff\x4f\x00\xff\xff\x2a\x00\x2b\x00\x1e\x00\xff\xff\xff\xff\x21\x00\x22\x00\x23\x00\x24\x00\x4c\x00\x4d\x00\xff\xff\x4f\x00\xff\xff\x2a\x00\x2b\x00\xff\xff\xff\xff\x21\x00\x22\x00\x23\x00\x24\x00\xff\xff\x4c\x00\x4d\x00\xff\xff\x4f\x00\x2a\x00\x2b\x00\x21\x00\x22\x00\x23\x00\x24\x00\xff\xff\x4c\x00\x4d\x00\x04\x00\x4f\x00\x2a\x00\x2b\x00\x08\x00\x09\x00\x0a\x00\x36\x00\x37\x00\x38\x00\x24\x00\xff\xff\x4c\x00\x4d\x00\x24\x00\x4f\x00\x2a\x00\x2b\x00\xff\xff\x17\x00\x2a\x00\x2b\x00\x26\x00\x27\x00\x28\x00\x4c\x00\x4d\x00\xff\xff\x4f\x00\x4c\x00\x4d\x00\xff\xff\xff\xff\x25\x00\xff\xff\xff\xff\x4c\x00\x4d\x00\x01\x00\x4f\x00\x03\x00\x04\x00\x05\x00\xff\xff\xff\xff\x08\x00\x09\x00\x0a\x00\xff\xff\xff\xff\x4c\x00\x4d\x00\x1a\x00\x4f\x00\x4c\x00\x4d\x00\xff\xff\x4f\x00\xff\xff\xff\xff\x17\x00\xff\xff\x19\x00\x01\x00\xff\xff\x03\x00\x04\x00\x05\x00\x1f\x00\xff\xff\x08\x00\x09\x00\x0a\x00\x24\x00\x25\x00\xff\xff\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x2e\x00\xff\xff\x17\x00\xff\xff\x19\x00\x01\x00\xff\xff\x03\x00\x04\x00\x05\x00\x1f\x00\x20\x00\x08\x00\x09\x00\x0a\x00\x24\x00\xff\xff\x04\x00\x26\x00\x27\x00\x28\x00\x08\x00\x09\x00\x0a\x00\xff\xff\x2e\x00\xff\xff\x17\x00\xff\xff\x19\x00\x01\x00\xff\xff\x03\x00\x04\x00\x05\x00\x1f\x00\x17\x00\x08\x00\x09\x00\x0a\x00\x24\x00\xff\xff\x04\x00\xff\xff\x1f\x00\xff\xff\x08\x00\x09\x00\x0a\x00\xff\xff\x2e\x00\xff\xff\x17\x00\x28\x00\x19\x00\x01\x00\xff\xff\x03\x00\x04\x00\x05\x00\x1f\x00\x17\x00\x08\x00\x09\x00\x0a\x00\x24\x00\xff\xff\x04\x00\xff\xff\x1f\x00\xff\xff\x08\x00\x09\x00\x0a\x00\xff\xff\x2e\x00\xff\xff\x17\x00\x28\x00\x19\x00\x01\x00\xff\xff\x03\x00\x04\x00\x05\x00\x1f\x00\x17\x00\x08\x00\x09\x00\x0a\x00\x24\x00\xff\xff\x04\x00\xff\xff\x1f\x00\xff\xff\x08\x00\x09\x00\x0a\x00\xff\xff\x2e\x00\xff\xff\x17\x00\x28\x00\x19\x00\x01\x00\xff\xff\x03\x00\x04\x00\x05\x00\x1f\x00\x17\x00\x08\x00\x09\x00\x0a\x00\x24\x00\xff\xff\x1a\x00\xff\xff\x1f\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x2e\x00\x38\x00\x17\x00\x28\x00\x19\x00\x01\x00\xff\xff\x03\x00\x04\x00\x05\x00\x1f\x00\xff\xff\x08\x00\x09\x00\x0a\x00\x24\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\xff\xff\xff\xff\x2e\x00\xff\xff\x17\x00\xff\xff\x19\x00\x01\x00\xff\xff\x03\x00\x04\x00\x05\x00\x1f\x00\xff\xff\x08\x00\x09\x00\x0a\x00\x24\x00\xff\xff\x04\x00\x26\x00\x27\x00\x28\x00\x08\x00\x09\x00\x0a\x00\xff\xff\x2e\x00\xff\xff\x17\x00\xff\xff\x19\x00\x01\x00\xff\xff\x03\x00\x04\x00\x05\x00\x1f\x00\x17\x00\x08\x00\x09\x00\x0a\x00\x24\x00\xff\xff\x04\x00\xff\xff\x1f\x00\xff\xff\x08\x00\x09\x00\x0a\x00\xff\xff\x2e\x00\xff\xff\x17\x00\xff\xff\x19\x00\x01\x00\xff\xff\x03\x00\x04\x00\x05\x00\x1f\x00\x17\x00\x08\x00\x09\x00\x0a\x00\x24\x00\xff\xff\x04\x00\x05\x00\x1f\x00\xff\xff\x08\x00\x09\x00\x0a\x00\xff\xff\x2e\x00\xff\xff\x17\x00\xff\xff\x19\x00\x01\x00\xff\xff\x03\x00\x04\x00\x05\x00\x1f\x00\x17\x00\x08\x00\x09\x00\x0a\x00\x24\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x26\x00\x27\x00\x28\x00\x2e\x00\xff\xff\x17\x00\xff\xff\x19\x00\x01\x00\xff\xff\x03\x00\x04\x00\x05\x00\x1f\x00\xff\xff\x08\x00\x09\x00\x0a\x00\x24\x00\x4c\x00\x4d\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\xff\xff\xff\xff\x2e\x00\xff\xff\x17\x00\xff\xff\x19\x00\x01\x00\xff\xff\x03\x00\x04\x00\x05\x00\x1f\x00\xff\xff\x08\x00\x09\x00\x0a\x00\x24\x00\xff\xff\x4c\x00\x4d\x00\x36\x00\x37\x00\x38\x00\x39\x00\xff\xff\xff\xff\x2e\x00\xff\xff\x17\x00\x04\x00\x19\x00\xff\xff\xff\xff\x08\x00\x09\x00\x0a\x00\x1f\x00\x0c\x00\x0d\x00\x0e\x00\x0f\x00\x24\x00\x4c\x00\x4d\x00\x36\x00\x37\x00\x38\x00\x39\x00\x17\x00\x04\x00\x19\x00\x2e\x00\xff\xff\x08\x00\x09\x00\x0a\x00\x1f\x00\x0c\x00\x0d\x00\x0e\x00\x0f\x00\x24\x00\x26\x00\x27\x00\x28\x00\x29\x00\x4c\x00\x4d\x00\x17\x00\xff\xff\x19\x00\x2e\x00\xff\xff\x30\x00\xff\xff\xff\xff\x1f\x00\xff\xff\x04\x00\xff\xff\xff\xff\x24\x00\x08\x00\x09\x00\x0a\x00\xff\xff\x0c\x00\x0d\x00\x0e\x00\x0f\x00\xff\xff\x2e\x00\xff\xff\x30\x00\x26\x00\x27\x00\x28\x00\x17\x00\x04\x00\x19\x00\xff\xff\xff\xff\x08\x00\x09\x00\x0a\x00\x1f\x00\x0c\x00\x0d\x00\x0e\x00\x0f\x00\x24\x00\x25\x00\x36\x00\x37\x00\x38\x00\xff\xff\xff\xff\x17\x00\x04\x00\x19\x00\x2e\x00\xff\xff\x08\x00\x09\x00\x0a\x00\x1f\x00\x0c\x00\x0d\x00\x0e\x00\x0f\x00\x24\x00\x25\x00\xff\xff\xff\xff\x4c\x00\x4d\x00\xff\xff\x17\x00\x04\x00\x19\x00\x2e\x00\xff\xff\x08\x00\x09\x00\x0a\x00\x1f\x00\x0c\x00\x0d\x00\x0e\x00\x0f\x00\x24\x00\x26\x00\x27\x00\x28\x00\x29\x00\xff\xff\xff\xff\x17\x00\x04\x00\x19\x00\x2e\x00\xff\xff\x08\x00\x09\x00\x0a\x00\x1f\x00\x0c\x00\x0d\x00\x0e\x00\x0f\x00\x24\x00\x26\x00\x27\x00\x28\x00\x29\x00\xff\xff\xff\xff\x17\x00\x04\x00\x19\x00\x2e\x00\xff\xff\x08\x00\x09\x00\x0a\x00\x1f\x00\xff\xff\xff\xff\x04\x00\xff\xff\x24\x00\xff\xff\x08\x00\x09\x00\x0a\x00\xff\xff\xff\xff\x17\x00\x04\x00\x19\x00\x2e\x00\xff\xff\x08\x00\x09\x00\x0a\x00\x1f\x00\x46\x00\x17\x00\xff\xff\xff\xff\x24\x00\xff\xff\x4c\x00\x4d\x00\x28\x00\x4f\x00\xff\xff\x17\x00\x04\x00\x19\x00\x2e\x00\x25\x00\x08\x00\x09\x00\x0a\x00\x1f\x00\x25\x00\x26\x00\x27\x00\x28\x00\x24\x00\x26\x00\x27\x00\x28\x00\x28\x00\xff\xff\xff\xff\x17\x00\x04\x00\x19\x00\x2e\x00\xff\xff\x08\x00\x09\x00\x0a\x00\x1f\x00\x20\x00\x44\x00\x45\x00\x46\x00\x24\x00\x48\x00\x49\x00\xff\xff\xff\xff\x4c\x00\x4d\x00\x17\x00\x4f\x00\x19\x00\x2e\x00\x52\x00\x53\x00\x12\x00\xff\xff\x1f\x00\x15\x00\x16\x00\xff\xff\xff\xff\x24\x00\x1a\x00\x1b\x00\x1c\x00\x1d\x00\x1e\x00\xff\xff\x20\x00\x21\x00\x22\x00\x2e\x00\xff\xff\x25\x00\x01\x00\x02\x00\x03\x00\x04\x00\x05\x00\x2b\x00\x2c\x00\x08\x00\x09\x00\x0a\x00\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\xff\xff\xff\xff\x3b\x00\x17\x00\xff\xff\x19\x00\x26\x00\x27\x00\x28\x00\x04\x00\xff\xff\x1f\x00\xff\xff\x08\x00\x09\x00\x0a\x00\x24\x00\xff\xff\x26\x00\xff\xff\xff\xff\x29\x00\x36\x00\x37\x00\x38\x00\x39\x00\x01\x00\xff\xff\x17\x00\x04\x00\x05\x00\xff\xff\x04\x00\x08\x00\x09\x00\x0a\x00\x08\x00\x09\x00\x0a\x00\x26\x00\x27\x00\x28\x00\x25\x00\xff\xff\x4c\x00\x4d\x00\xff\xff\xff\xff\x17\x00\xff\xff\xff\xff\x17\x00\xff\xff\x22\x00\xff\xff\xff\xff\x1f\x00\x25\x00\x26\x00\x27\x00\x28\x00\x24\x00\x2b\x00\x2c\x00\x20\x00\x25\x00\xff\xff\x30\x00\x31\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x20\x00\x21\x00\x3b\x00\xff\xff\x40\x00\x41\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x21\x00\x4a\x00\x4b\x00\x4c\x00\x25\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x3c\x00\x3d\x00\x3e\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x44\x00\x45\x00\x46\x00\xff\xff\x48\x00\x3c\x00\x3d\x00\x3e\x00\x4c\x00\x4d\x00\xff\xff\x4f\x00\xff\xff\x44\x00\x45\x00\x46\x00\xff\xff\x48\x00\x3c\x00\x3d\x00\x3e\x00\x4c\x00\x4d\x00\xff\xff\x4f\x00\xff\xff\x44\x00\x45\x00\x46\x00\xff\xff\x48\x00\x3c\x00\x3d\x00\x3e\x00\x4c\x00\x4d\x00\xff\xff\x4f\x00\xff\xff\x44\x00\x45\x00\x46\x00\xff\xff\x48\x00\xff\xff\xff\xff\xff\xff\x4c\x00\x4d\x00\xff\xff\x4f\x00\x04\x00\x05\x00\xff\xff\x04\x00\x08\x00\x09\x00\x0a\x00\x08\x00\x09\x00\x0a\x00\xff\xff\x3f\x00\xff\xff\xff\xff\xff\xff\xff\xff\x44\x00\x45\x00\x46\x00\x17\x00\x48\x00\x28\x00\x17\x00\xff\xff\x4c\x00\x4d\x00\xff\xff\x4f\x00\xff\xff\xff\xff\x2a\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x39\x00\x2c\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x44\x00\x45\x00\x46\x00\xff\xff\x48\x00\x49\x00\xff\xff\xff\xff\x4c\x00\x4d\x00\xff\xff\x4f\x00\x44\x00\x45\x00\x46\x00\xff\xff\x48\x00\xff\xff\xff\xff\xff\xff\x4c\x00\x4d\x00\xff\xff\x4f\x00\x44\x00\x45\x00\x46\x00\xff\xff\x48\x00\xff\xff\xff\xff\xff\xff\x4c\x00\x4d\x00\xff\xff\x4f\x00\x44\x00\x45\x00\x46\x00\xff\xff\x48\x00\xff\xff\xff\xff\xff\xff\x4c\x00\x4d\x00\xff\xff\x4f\x00\x44\x00\x45\x00\x46\x00\xff\xff\x48\x00\xff\xff\xff\xff\xff\xff\x4c\x00\x4d\x00\xff\xff\x4f\x00\x44\x00\x45\x00\x46\x00\xff\xff\x48\x00\xff\xff\xff\xff\xff\xff\x4c\x00\x4d\x00\xff\xff\x4f\x00\x44\x00\x45\x00\x46\x00\xff\xff\x48\x00\xff\xff\xff\xff\xff\xff\x4c\x00\x4d\x00\xff\xff\x4f\x00\x44\x00\x45\x00\x46\x00\xff\xff\x48\x00\xff\xff\xff\xff\xff\xff\x4c\x00\x4d\x00\xff\xff\x4f\x00\x44\x00\x45\x00\x46\x00\xff\xff\x48\x00\xff\xff\xff\xff\xff\xff\x4c\x00\x4d\x00\xff\xff\x4f\x00\x44\x00\x45\x00\x46\x00\xff\xff\x48\x00\xff\xff\xff\xff\xff\xff\x4c\x00\x4d\x00\xff\xff\x4f\x00\x44\x00\x45\x00\x46\x00\xff\xff\x48\x00\xff\xff\xff\xff\xff\xff\x4c\x00\x4d\x00\xff\xff\x4f\x00\x44\x00\x45\x00\x46\x00\xff\xff\x48\x00\xff\xff\xff\xff\xff\xff\x4c\x00\x4d\x00\xff\xff\x4f\x00\x44\x00\x45\x00\x46\x00\xff\xff\x48\x00\xff\xff\xff\xff\xff\xff\x4c\x00\x4d\x00\xff\xff\x4f\x00\x44\x00\x45\x00\x46\x00\xff\xff\x48\x00\xff\xff\xff\xff\xff\xff\x4c\x00\x4d\x00\xff\xff\x4f\x00\x44\x00\x45\x00\x46\x00\xff\xff\x48\x00\xff\xff\xff\xff\xff\xff\x4c\x00\x4d\x00\xff\xff\x4f\x00\x44\x00\x45\x00\x46\x00\xff\xff\x48\x00\xff\xff\xff\xff\xff\xff\x4c\x00\x4d\x00\xff\xff\x4f\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\x00\x39\x00\x32\x00\x33\x00\x34\x00\x35\x00\x36\x00\x37\x00\x38\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"#++happyTable :: HappyAddr+happyTable = HappyA# "\x00\x00\xc2\x01\x92\x01\x6f\x00\x70\x00\x81\x00\x50\x00\x19\x01\xf4\x00\x5c\x01\x51\x00\x52\x00\x71\x00\x72\x00\x5a\x01\x73\x00\x74\x00\x75\x00\x76\x00\x77\x00\x6e\x00\x6f\x00\x70\x00\x51\x00\x52\x00\x0e\x00\x9c\x01\x83\x00\x85\x01\xcb\x01\x71\x00\x72\x00\x9d\x01\x73\x00\x74\x00\x75\x00\x76\x00\x77\x00\xf5\x00\x49\x01\x86\x01\x51\x00\x52\x00\x54\x00\x55\x00\x75\x01\xff\xff\x4a\x01\x72\x00\xc2\x00\x73\x00\x74\x00\x75\x00\x76\x00\x77\x00\x6e\x00\x54\x00\x55\x00\x51\x00\x52\x00\x12\x00\x1a\x01\xad\x01\x99\x00\x12\x00\x56\x00\xac\x00\x9c\x00\xac\x00\x39\x01\x0c\x01\xc3\x01\x2c\x01\xb0\x00\x54\x00\x55\x00\x9d\x00\x12\x00\x56\x00\x2d\x01\xf3\x00\x0d\x01\x12\x00\x13\x00\x3b\x01\x3f\x00\x3d\x00\x3e\x00\xad\x00\x4b\x01\xad\x00\x54\x00\x55\x00\xc5\x01\x9a\x00\x12\x00\x56\x00\x4c\x01\x72\x00\xfa\x00\x73\x00\x74\x00\x75\x00\x76\x00\x77\x00\x31\x01\xae\x00\xfb\x00\x51\x00\x52\x00\x81\x00\x82\x00\x12\x00\x56\x00\x12\x00\x8a\x00\xb3\x01\x63\x00\x97\x00\x64\x00\x12\x00\x13\x00\x65\x00\x3f\x00\x66\x00\x67\x00\x68\x00\x69\x00\x83\x00\x12\x00\x4f\x01\x51\x00\x52\x00\xb1\x01\x72\x00\x63\x01\x73\x00\x74\x00\x75\x00\x76\x00\x77\x00\x54\x00\x55\x00\xad\x01\x51\x00\x52\x00\x53\x01\x72\x00\x37\x01\x73\x00\x74\x00\x75\x00\x76\x00\x77\x00\xa1\x00\xf7\x00\x99\x00\x51\x00\x52\x00\x38\x01\x3d\x00\x3e\x00\x12\x00\x56\x00\x54\x00\x55\x00\xba\x01\x8b\x01\xe5\xff\x7e\x00\x72\x00\x8c\x01\x73\x00\x74\x00\x75\x00\x76\x00\x77\x00\x54\x00\x55\x00\x51\x01\x51\x00\x52\x00\xe5\xff\xe5\xff\x88\x01\x12\x00\x56\x00\x9a\x00\xae\x00\xaf\x00\x54\x00\x55\x00\x94\x00\x11\x00\x12\x00\x13\x00\x64\x01\x3f\x00\x12\x00\x56\x00\x7d\x00\x73\x01\x66\x00\x67\x00\x68\x00\x69\x00\x28\x01\x12\x00\x8a\x00\x51\x00\x52\x00\x12\x00\x56\x00\x54\x00\x55\x00\x56\x01\xb0\x00\x73\x00\x74\x00\x75\x00\x76\x00\x77\x00\x12\x00\x3c\x01\xf9\x00\x51\x00\x52\x00\x57\x01\x40\x01\x73\x00\x74\x00\x75\x00\x76\x00\x77\x00\x12\x00\x56\x00\x4d\x00\x51\x00\x52\x00\x97\x00\x9e\x00\x4e\x00\x54\x00\x55\x00\x51\x00\x52\x00\x61\x00\xf7\x00\x9e\x00\x58\x01\x17\x00\x36\x00\x51\x00\x52\x00\x19\x00\x1a\x00\x1b\x00\x9f\x00\x54\x00\x55\x00\x6c\x00\x37\x00\x38\x00\x12\x00\x56\x00\x39\x00\x3a\x00\x3b\x00\x3c\x00\x1c\x00\x54\x00\x55\x00\xef\x00\x81\x00\x3d\x00\x3e\x00\xc9\x01\x54\x00\x55\x00\x12\x00\x56\x00\x1f\x01\x88\x00\x97\x00\x1c\x01\x54\x00\x55\x00\x51\x00\x52\x00\x50\x00\x97\x01\x12\x00\x56\x00\x51\x00\x52\x00\x39\x01\x6a\x01\x53\x00\x12\x00\x56\x00\x51\x00\x52\x00\x12\x00\x8a\x00\x12\x00\x8a\x00\x12\x00\x56\x00\x12\x00\x13\x00\x3b\x01\x3f\x00\x6b\x01\x81\x00\x44\x01\x47\x01\x51\x00\x52\x00\x51\x00\x52\x00\x54\x00\x55\x00\xbf\x00\x88\x00\x97\x00\x39\x01\x54\x00\x55\x00\x51\x00\x52\x00\x48\x01\x5f\x00\x81\x00\x54\x00\x55\x00\x51\x00\x52\x00\xc1\x01\x96\x00\xb3\x01\x3b\x01\x12\x00\x56\x00\x12\x00\xc0\x00\x06\x01\x99\x00\x12\x00\x56\x00\x54\x00\x55\x00\x54\x00\x55\x00\x97\x00\x12\x00\x56\x00\x41\x00\x42\x00\x43\x00\x17\x00\x18\x00\x54\x00\x55\x00\x19\x00\x1a\x00\x1b\x00\x26\x01\xaf\x01\x54\x00\x55\x00\x12\x00\x56\x00\x12\x00\x56\x00\x42\x01\x45\x00\x28\x01\x9a\x00\x1c\x00\x43\x01\x46\x00\x21\x01\x12\x00\x56\x00\x44\x01\xaf\xff\x47\x00\xb6\x00\xaf\xff\x12\x00\x56\x00\x48\x00\x7c\x00\x49\x00\x98\x00\x99\x00\x4a\x00\x12\x00\x8a\x00\x6f\x01\x4b\x00\x12\x00\x8a\x00\x70\x01\xb8\x01\x1e\x00\x1f\x00\x20\x00\xb7\x00\xb8\x00\x23\x00\x24\x00\x25\x00\x17\x00\xb5\x01\x6b\x00\xeb\x00\x19\x00\x1a\x00\x1b\x00\x72\x01\x58\x00\x59\x00\x5a\x00\x5b\x00\xb9\x01\x9a\x00\xbd\x01\x7d\x01\x87\x00\x88\x00\xba\x01\x1c\x00\x17\x00\x5c\x00\x6b\x00\x81\x00\x19\x00\x1a\x00\x1b\x00\x5d\x00\x58\x00\x59\x00\x5a\x00\x5b\x00\x5e\x00\x12\x00\x8a\x00\x12\x00\x90\x00\x12\x00\x8a\x00\x1c\x00\x17\x00\x5c\x00\x5f\x00\x16\x01\x19\x00\x1a\x00\x1b\x00\x5d\x00\x58\x00\x59\x00\x5a\x00\x5b\x00\x5e\x00\x81\x00\x6c\x00\xdf\xff\xfc\x00\xa6\x01\x18\x01\x1c\x00\x17\x00\x5c\x00\x5f\x00\x79\x00\x19\x00\x1a\x00\x7a\x00\x5d\x00\x58\x00\x59\x00\x5a\x00\x5b\x00\x5e\x00\xef\x00\x6c\x00\xde\xff\x25\x00\xf0\x00\xa9\x01\x1c\x00\x17\x00\x5c\x00\x5f\x00\x79\x00\x19\x00\x1a\x00\x7a\x00\x5d\x00\x58\x00\x59\x00\x5a\x00\x5b\x00\x5e\x00\x26\x01\x27\x01\xff\xff\xf1\x00\xa9\x00\xaa\x00\x1c\x00\xf2\x00\x5c\x00\x5f\x00\x28\x01\xed\xff\x81\x00\x2e\x01\x5d\x00\x71\x01\x5d\x01\x87\x00\x88\x00\x5e\x00\x2f\x01\x6c\x00\xff\x00\x00\x01\x01\x01\xc0\x01\x17\x00\x02\x01\x81\x00\x5f\x00\x19\x00\x1a\x00\x7a\x00\x81\x00\x58\x00\x59\x00\x5a\x00\x5b\x00\x12\x00\x8a\x00\x09\x01\x6c\x00\x05\x01\x06\x01\x0a\x01\x1c\x00\x17\x00\x5c\x00\x39\x01\x81\x00\x19\x00\x1a\x00\x7a\x00\x5d\x00\x58\x00\x59\x00\x5a\x00\x5b\x00\x5e\x00\x94\x01\x16\x01\x81\x00\xa9\x01\x3b\x01\x87\x01\x1c\x00\xe7\x00\x5c\x00\x5f\x00\x97\x01\x80\x00\x99\x01\x9a\x01\x5d\x00\x17\x01\x18\x01\x12\x00\x13\x00\x5e\x00\xa4\x00\x6c\x00\xa5\x00\x31\x00\x35\x01\x32\x00\x17\x00\x18\x00\x36\x01\x5f\x00\x19\x00\x1a\x00\x1b\x00\x96\x01\x39\x01\x41\x00\x42\x00\x43\x00\x17\x00\x18\x00\x98\x01\x6c\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x81\x00\x33\x00\x3a\x01\x3b\x01\xca\x01\xcb\x01\xb0\xff\x34\x00\x45\x00\xb0\xff\x9f\x01\x1c\x00\xcf\x00\x46\x00\xbc\x00\xa3\x00\x99\x00\x12\x00\x13\x00\x47\x00\x4e\x01\xaa\x01\x36\x00\xab\x01\x48\x00\x81\x00\x49\x00\x8b\x01\x25\x00\x4a\x00\x3f\x01\x8c\x01\x25\x00\x4b\x00\xdd\x00\xa3\x01\x41\x00\x42\x00\x43\x00\x17\x00\x18\x00\x4c\x00\x4d\x00\x19\x00\x1a\x00\x1b\x00\x17\x00\x9a\x00\x4e\x01\xa8\x01\x19\x00\x1a\x00\x1b\x00\x51\x01\x44\x00\x45\x00\x53\x01\x25\x00\x1c\x00\x26\x00\x46\x00\x0e\x00\x0f\x00\x10\x00\x11\x00\x1c\x00\x47\x00\x12\x00\x8a\x00\x90\x01\x56\x01\x48\x00\x5f\x01\x49\x00\x67\x01\x81\x00\x4a\x00\xea\x00\xeb\x00\xc8\x01\x4b\x00\x03\x01\xfe\x00\x41\x00\x42\x00\x43\x00\x17\x00\x18\x00\x4c\x00\x4d\x00\x19\x00\x1a\x00\x1b\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x24\x00\x12\x00\x13\x00\x45\x00\x14\x00\x15\x00\x1c\x00\x68\x01\x46\x00\x41\x00\x42\x00\x43\x00\x17\x00\x18\x00\x47\x00\x97\x00\x19\x00\x1a\x00\x1b\x00\x48\x00\x71\x01\x49\x00\xe1\x00\x2d\x00\x4a\x00\x2e\x00\x30\x01\x2d\x01\x4b\x00\x12\x00\x13\x00\x1c\x00\x2f\x00\x46\x00\xd0\x00\xd1\x00\x4c\x00\x4d\x00\x75\x01\x47\x00\x12\x00\x13\x00\x78\x01\xd2\x00\x48\x00\x85\x01\x49\x00\x17\x00\x18\x00\x4a\x00\x17\x00\x19\x00\x1a\x00\x1b\x00\x19\x00\x1a\x00\x1b\x00\x32\x01\x2f\x01\x17\x00\x8f\x01\x4c\x00\x4d\x00\x19\x00\x1a\x00\x1b\x00\x1c\x00\x92\x01\xdf\x00\x1c\x00\xe0\x00\x5c\x00\x90\x00\xee\x00\x1d\x00\xc2\x00\x04\x01\x8c\x00\x1c\x00\xfd\x00\x5c\x00\xfe\x00\x5e\x00\x1f\x01\x17\x00\x28\x00\x8c\x00\x8d\x00\x19\x00\x1a\x00\x1b\x00\x5e\x00\x5f\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x24\x00\x25\x00\x5f\x00\x15\x01\x1c\x00\x0b\x01\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x24\x00\xb2\x00\x1e\x01\x34\x01\x39\x00\x3a\x00\x3b\x00\x3c\x00\xb3\x00\x0f\x00\x10\x00\x11\x00\x33\x01\x3d\x00\x3e\x00\x3c\x01\xb8\x00\xda\x00\xb4\x00\x39\x00\x3a\x00\x3b\x00\x3c\x00\xdb\x00\x2c\x00\x2d\x00\x3f\x01\x2e\x00\x3d\x00\x3e\x00\x49\x01\x12\x00\x13\x00\xb9\x00\x2f\x00\xff\xff\xba\x00\x7b\x00\x7c\x00\xbc\x00\xbd\x00\xbe\x00\x39\x00\x3a\x00\x3b\x00\x3c\x00\x7d\x00\x12\x00\x13\x00\xff\xff\x3f\x00\x3d\x00\x3e\x00\x92\x00\xbc\x00\x93\x00\x81\x01\x39\x00\x3a\x00\x3b\x00\x3c\x00\x94\x00\x12\x00\x13\x00\x9e\x00\x3f\x00\x3d\x00\x3e\x00\xc4\x01\xe5\x00\xff\xff\x39\x00\x3a\x00\x3b\x00\x3c\x00\x12\x00\x13\x00\xc2\x00\xd2\x00\x81\x00\x3d\x00\x3e\x00\xc7\x00\xc6\x01\xe7\x00\x12\x00\x13\x00\xa2\x00\x3f\x00\xc7\x00\xc8\x00\xe7\x00\xb6\x01\x3d\x00\x3e\x00\x39\x00\x3a\x00\x3b\x00\x3c\x00\xff\xff\x12\x00\x13\x00\xd7\x00\x3f\x00\x3d\x00\x3e\x00\xbb\x01\xff\xff\x0e\x00\x39\x00\x3a\x00\x3b\x00\x3c\x00\x44\x00\x12\x00\x13\x00\x50\x00\x3f\x00\x3d\x00\x3e\x00\xbe\x01\x63\x00\x00\x00\x39\x00\x3a\x00\x3b\x00\x3c\x00\x12\x00\x13\x00\x00\x00\x3f\x00\x94\x01\x3d\x00\x3e\x00\x39\x00\x3a\x00\x3b\x00\x3c\x00\x12\x00\x13\x00\x00\x00\x3f\x00\x00\x00\x3d\x00\x3e\x00\x9a\x01\x00\x00\x00\x00\x39\x00\x3a\x00\x3b\x00\x3c\x00\x12\x00\x13\x00\x00\x00\x3f\x00\x00\x00\x3d\x00\x3e\x00\x9f\x01\x00\x00\x00\x00\x39\x00\x3a\x00\x3b\x00\x3c\x00\x12\x00\x13\x00\x00\x00\x3f\x00\xa3\x01\x3d\x00\x3e\x00\x39\x00\x3a\x00\x3b\x00\x3c\x00\x12\x00\x13\x00\x00\x00\x3f\x00\x00\x00\x3d\x00\x3e\x00\x68\x01\x00\x00\x00\x00\x39\x00\x3a\x00\x3b\x00\x3c\x00\x12\x00\x13\x00\x00\x00\x3f\x00\x00\x00\x3d\x00\x3e\x00\x76\x01\x00\x00\x00\x00\x39\x00\x3a\x00\x3b\x00\x3c\x00\x12\x00\x13\x00\x00\x00\x3f\x00\x78\x01\x3d\x00\x3e\x00\x39\x00\x3a\x00\x3b\x00\x3c\x00\x12\x00\x13\x00\x00\x00\x3f\x00\x00\x00\x3d\x00\x3e\x00\x79\x01\x00\x00\x00\x00\x39\x00\x3a\x00\x3b\x00\x3c\x00\x12\x00\x13\x00\x00\x00\x3f\x00\x00\x00\x3d\x00\x3e\x00\x7e\x01\x00\x00\x00\x00\x39\x00\x3a\x00\x3b\x00\x3c\x00\x12\x00\x13\x00\x00\x00\x3f\x00\x7f\x01\x3d\x00\x3e\x00\x39\x00\x3a\x00\x3b\x00\x3c\x00\x12\x00\x13\x00\x00\x00\x3f\x00\x00\x00\x3d\x00\x3e\x00\x80\x01\x00\x00\x00\x00\x39\x00\x3a\x00\x3b\x00\x3c\x00\x12\x00\x13\x00\x00\x00\x3f\x00\x00\x00\x3d\x00\x3e\x00\x83\x01\x00\x00\x00\x00\x39\x00\x3a\x00\x3b\x00\x3c\x00\x12\x00\x13\x00\x00\x00\x3f\x00\x20\x01\x3d\x00\x3e\x00\x39\x00\x3a\x00\x3b\x00\x3c\x00\x12\x00\x13\x00\x00\x00\x3f\x00\x00\x00\x3d\x00\x3e\x00\x60\x00\x00\x00\x00\x00\x39\x00\x3a\x00\x3b\x00\x3c\x00\x12\x00\x13\x00\x00\x00\x3f\x00\x00\x00\x3d\x00\x3e\x00\x00\x00\x00\x00\x6c\x01\x3a\x00\x3b\x00\x3c\x00\x00\x00\x12\x00\x13\x00\x00\x00\x3f\x00\x3d\x00\x3e\x00\x82\x01\x3a\x00\x3b\x00\x3c\x00\x00\x00\x12\x00\x13\x00\x17\x00\x3f\x00\x3d\x00\x3e\x00\x19\x00\x1a\x00\x1b\x00\x60\x01\x87\x00\x88\x00\xa1\x00\x00\x00\x12\x00\x13\x00\xa2\x00\x3f\x00\x3d\x00\x3e\x00\x00\x00\x1c\x00\x3d\x00\x3e\x00\xd7\x00\x10\x00\x11\x00\x12\x00\x13\x00\x00\x00\x3f\x00\x12\x00\x8a\x00\x00\x00\x00\x00\xe9\x00\x00\x00\x00\x00\x12\x00\x13\x00\x31\x00\x3f\x00\x32\x00\x17\x00\x18\x00\x00\x00\x00\x00\x19\x00\x1a\x00\x1b\x00\x00\x00\x00\x00\x12\x00\x13\x00\x91\x01\x3f\x00\x12\x00\x13\x00\x00\x00\x3f\x00\x00\x00\x00\x00\x1c\x00\x00\x00\x33\x00\x31\x00\x00\x00\x32\x00\x17\x00\x18\x00\x34\x00\x00\x00\x19\x00\x1a\x00\x1b\x00\xcf\x00\x13\x01\x00\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x24\x00\x36\x00\x00\x00\x1c\x00\x00\x00\x33\x00\x31\x00\x00\x00\x32\x00\x17\x00\x18\x00\x34\x00\xce\x00\x19\x00\x1a\x00\x1b\x00\xcf\x00\x00\x00\x17\x00\xa0\x01\x10\x00\x11\x00\x19\x00\x1a\x00\x1b\x00\x00\x00\x36\x00\x00\x00\x1c\x00\x00\x00\x33\x00\x31\x00\x00\x00\x32\x00\x17\x00\x18\x00\x34\x00\x1c\x00\x19\x00\x1a\x00\x1b\x00\x35\x00\x00\x00\x17\x00\x00\x00\x2a\x01\x00\x00\x19\x00\x1a\x00\x1b\x00\x00\x00\x36\x00\x00\x00\x1c\x00\xb6\x01\x33\x00\x31\x00\x00\x00\x32\x00\x17\x00\x18\x00\x34\x00\x1c\x00\x19\x00\x1a\x00\x1b\x00\xcf\x00\x00\x00\x17\x00\x00\x00\x2a\x01\x00\x00\x19\x00\x1a\x00\x1b\x00\x00\x00\x36\x00\x00\x00\x1c\x00\xb1\x01\x33\x00\x31\x00\x00\x00\x32\x00\x17\x00\x18\x00\x34\x00\x1c\x00\x19\x00\x1a\x00\x1b\x00\x35\x00\x00\x00\x17\x00\x00\x00\x2a\x01\x00\x00\x19\x00\x1a\x00\x1b\x00\x00\x00\x36\x00\x00\x00\x1c\x00\x66\x01\x33\x00\x31\x00\x00\x00\x32\x00\x17\x00\x18\x00\x34\x00\x1c\x00\x19\x00\x1a\x00\x1b\x00\xcf\x00\x00\x00\xe7\x00\x00\x00\x2a\x01\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x36\x00\x24\x00\x1c\x00\x2b\x01\xd4\x00\x31\x00\x00\x00\x32\x00\x17\x00\x18\x00\x34\x00\x00\x00\x19\x00\x1a\x00\x1b\x00\xcf\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x24\x00\x00\x00\x00\x00\x36\x00\x00\x00\x1c\x00\x00\x00\x33\x00\x31\x00\x00\x00\x32\x00\x17\x00\x18\x00\x34\x00\x00\x00\x19\x00\x1a\x00\x1b\x00\xcf\x00\x00\x00\x17\x00\xd7\x00\x10\x00\x11\x00\x19\x00\x1a\x00\x1b\x00\x00\x00\x36\x00\x00\x00\x1c\x00\x00\x00\x33\x00\x31\x00\x00\x00\x32\x00\x17\x00\x18\x00\x34\x00\x1c\x00\x19\x00\x1a\x00\x1b\x00\x35\x00\x00\x00\x17\x00\x00\x00\x1c\x01\x00\x00\x19\x00\x1a\x00\x1b\x00\x00\x00\x36\x00\x00\x00\x1c\x00\x00\x00\x33\x00\x31\x00\x00\x00\x32\x00\x17\x00\x18\x00\x34\x00\x1c\x00\x19\x00\x1a\x00\x1b\x00\xcf\x00\x00\x00\x17\x00\x18\x00\x3e\x01\x00\x00\x19\x00\x1a\x00\x1b\x00\x00\x00\x36\x00\x00\x00\x1c\x00\x00\x00\xd4\x00\x31\x00\x00\x00\x32\x00\x17\x00\x18\x00\x34\x00\x1c\x00\x19\x00\x1a\x00\x1b\x00\xcf\x00\x7a\x01\x7b\x01\x7c\x01\x7d\x01\x87\x00\x88\x00\x54\x01\x10\x00\x11\x00\x36\x00\x00\x00\x1c\x00\x00\x00\xd6\x00\x31\x00\x00\x00\x32\x00\x17\x00\x18\x00\x34\x00\x00\x00\x19\x00\x1a\x00\x1b\x00\xcf\x00\x12\x00\x8a\x00\xbc\x01\x7c\x01\x7d\x01\x87\x00\x88\x00\x00\x00\x00\x00\x36\x00\x00\x00\x1c\x00\x00\x00\x33\x00\x31\x00\x00\x00\x32\x00\x17\x00\x18\x00\x34\x00\x00\x00\x19\x00\x1a\x00\x1b\x00\xcf\x00\x00\x00\x12\x00\x8a\x00\x86\x00\x87\x00\x88\x00\x89\x00\x00\x00\x00\x00\x36\x00\x00\x00\x1c\x00\x17\x00\x33\x00\x00\x00\x00\x00\x19\x00\x1a\x00\x1b\x00\x34\x00\x58\x00\x59\x00\x5a\x00\x5b\x00\x35\x00\x12\x00\x8a\x00\x8d\x00\x87\x00\x88\x00\x8e\x00\x1c\x00\x17\x00\x5c\x00\x36\x00\x00\x00\x19\x00\x1a\x00\x1b\x00\x5d\x00\x58\x00\x59\x00\x5a\x00\x5b\x00\x5e\x00\x22\x01\x10\x00\x11\x00\x23\x01\x12\x00\x8a\x00\x1c\x00\x00\x00\x5c\x00\x5f\x00\x00\x00\x5a\x01\x00\x00\x00\x00\x5d\x00\x00\x00\x17\x00\x00\x00\x00\x00\x5e\x00\x19\x00\x1a\x00\x1b\x00\x00\x00\x58\x00\x59\x00\x5a\x00\x5b\x00\x00\x00\x5f\x00\x00\x00\xa1\x00\x69\x01\x10\x00\x11\x00\x1c\x00\x17\x00\x5c\x00\x00\x00\x00\x00\x19\x00\x1a\x00\x1b\x00\x5d\x00\x58\x00\x59\x00\x5a\x00\x5b\x00\x5e\x00\xa5\x01\x61\x01\x87\x00\x88\x00\x00\x00\x00\x00\x1c\x00\x17\x00\x5c\x00\x5f\x00\x00\x00\x19\x00\x1a\x00\x1b\x00\x5d\x00\x58\x00\x59\x00\x5a\x00\x5b\x00\x5e\x00\x5c\x01\x00\x00\x00\x00\x12\x00\x8a\x00\x00\x00\x1c\x00\x17\x00\x5c\x00\x5f\x00\x00\x00\x19\x00\x1a\x00\x46\x01\x5d\x00\x58\x00\x59\x00\x5a\x00\x5b\x00\x5e\x00\x22\x01\x10\x00\x11\x00\x24\x01\x00\x00\x00\x00\x1c\x00\x17\x00\x5c\x00\x5f\x00\x00\x00\x19\x00\x1a\x00\x1b\x00\x5d\x00\x58\x00\x59\x00\x5a\x00\x5b\x00\x5e\x00\x22\x01\x10\x00\x11\x00\x25\x01\x00\x00\x00\x00\x1c\x00\x17\x00\x5c\x00\x5f\x00\x00\x00\x19\x00\x1a\x00\x1b\x00\x5d\x00\x00\x00\x00\x00\x17\x00\x00\x00\x5e\x00\x00\x00\x19\x00\x1a\x00\x1b\x00\x00\x00\x00\x00\x1c\x00\x17\x00\x5c\x00\x5f\x00\x00\x00\x19\x00\x1a\x00\x1b\x00\x8c\x00\xd4\x00\x1c\x00\x00\x00\x00\x00\x5e\x00\x00\x00\x12\x00\x13\x00\xaf\x01\xd2\x00\x00\x00\x1c\x00\x17\x00\x5c\x00\x5f\x00\x85\x00\x19\x00\x1a\x00\x1b\x00\x8c\x00\xc3\x00\x0f\x00\x10\x00\x11\x00\x5e\x00\xd7\x00\x10\x00\x11\x00\x08\x01\x00\x00\x00\x00\x1c\x00\x17\x00\x5c\x00\x5f\x00\x00\x00\x19\x00\x1a\x00\x1b\x00\x8c\x00\x8d\x00\x0d\x01\x2c\x00\x2d\x00\x5e\x00\x2e\x00\x0e\x01\x00\x00\x00\x00\x0f\x01\x13\x00\x1c\x00\x2f\x00\x5c\x00\x5f\x00\x10\x01\x11\x01\x2a\xff\x00\x00\x8c\x00\x2a\xff\x2a\xff\x00\x00\x00\x00\x5e\x00\x2a\xff\x2a\xff\x2a\xff\x2a\xff\x2a\xff\x00\x00\x2a\xff\x2a\xff\x2a\xff\x5f\x00\x00\x00\x2a\xff\x41\x00\x42\x00\x43\x00\x17\x00\x18\x00\x2a\xff\x2a\xff\x19\x00\x1a\x00\x1b\x00\x2a\xff\x2a\xff\x2a\xff\x2a\xff\x2a\xff\x2a\xff\x2a\xff\x2a\xff\x2a\xff\x00\x00\x00\x00\x2a\xff\x1c\x00\x00\x00\x46\x00\x85\x00\x10\x00\x11\x00\x17\x00\x00\x00\x47\x00\x00\x00\x19\x00\x1a\x00\x1b\x00\x48\x00\x00\x00\x49\x00\x00\x00\x00\x00\x4a\x00\x86\x00\x87\x00\x88\x00\x89\x00\xa7\x00\x00\x00\x1c\x00\x17\x00\x18\x00\x00\x00\x17\x00\x19\x00\x1a\x00\x1b\x00\x19\x00\x1a\x00\x1b\x00\xd7\x00\x10\x00\x11\x00\xb2\x00\x00\x00\x12\x00\x8a\x00\x00\x00\x00\x00\x1c\x00\x00\x00\x00\x00\x1c\x00\x00\x00\x26\xff\x00\x00\x00\x00\xa8\x00\xdc\x00\x0f\x00\x10\x00\x11\x00\xa9\x00\x26\xff\x26\xff\x6e\x01\xcb\x00\x00\x00\x26\xff\x26\xff\x26\xff\x26\xff\x26\xff\x26\xff\x26\xff\x26\xff\x26\xff\xec\x00\xed\x00\x26\xff\x00\x00\xc5\x00\xc6\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x24\x00\xed\x00\xc7\x00\xc8\x00\xc9\x00\x73\x01\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x24\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x24\x00\xc1\x01\x29\x00\x2a\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x2b\x00\x2c\x00\x2d\x00\x00\x00\x2e\x00\xa6\x01\x29\x00\x2a\x00\x12\x00\x13\x00\x00\x00\x2f\x00\x00\x00\x2b\x00\x2c\x00\x2d\x00\x00\x00\x2e\x00\x18\x01\x29\x00\x2a\x00\x12\x00\x13\x00\x00\x00\x2f\x00\x00\x00\x2b\x00\x2c\x00\x2d\x00\x00\x00\x2e\x00\x28\x00\x29\x00\x2a\x00\x12\x00\x13\x00\x00\x00\x2f\x00\x00\x00\x2b\x00\x2c\x00\x2d\x00\x00\x00\x2e\x00\x00\x00\x00\x00\x00\x00\x12\x00\x13\x00\x00\x00\x2f\x00\x17\x00\x28\x00\x00\x00\x17\x00\x19\x00\x1a\x00\x1b\x00\x19\x00\x1a\x00\x1b\x00\x00\x00\x88\x01\x00\x00\x00\x00\x00\x00\x00\x00\x89\x01\x2c\x00\x2d\x00\x1c\x00\x2e\x00\x53\xff\x1c\x00\x00\x00\x12\x00\x13\x00\x00\x00\x2f\x00\x00\x00\x00\x00\xc5\x00\x53\xff\x53\xff\x53\xff\x53\xff\x53\xff\x53\xff\x53\xff\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x24\x00\x25\x00\xd9\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x24\x00\xcb\x00\x2c\x00\x2d\x00\x00\x00\x2e\x00\xcc\x00\x00\x00\x00\x00\x12\x00\x13\x00\x00\x00\x2f\x00\x89\x01\x2c\x00\x2d\x00\x00\x00\x2e\x00\x00\x00\x00\x00\x00\x00\x12\x00\x13\x00\x00\x00\x2f\x00\x9b\x01\x2c\x00\x2d\x00\x00\x00\x2e\x00\x00\x00\x00\x00\x00\x00\x12\x00\x13\x00\x00\x00\x2f\x00\xa1\x01\x2c\x00\x2d\x00\x00\x00\x2e\x00\x00\x00\x00\x00\x00\x00\x12\x00\x13\x00\x00\x00\x2f\x00\x5f\x01\x2c\x00\x2d\x00\x00\x00\x2e\x00\x00\x00\x00\x00\x00\x00\x12\x00\x13\x00\x00\x00\x2f\x00\x62\x01\x2c\x00\x2d\x00\x00\x00\x2e\x00\x00\x00\x00\x00\x00\x00\x12\x00\x13\x00\x00\x00\x2f\x00\x8c\x01\x2c\x00\x2d\x00\x00\x00\x2e\x00\x00\x00\x00\x00\x00\x00\x12\x00\x13\x00\x00\x00\x2f\x00\x8d\x01\x2c\x00\x2d\x00\x00\x00\x2e\x00\x00\x00\x00\x00\x00\x00\x12\x00\x13\x00\x00\x00\x2f\x00\xe0\x00\x2c\x00\x2d\x00\x00\x00\x2e\x00\x00\x00\x00\x00\x00\x00\x12\x00\x13\x00\x00\x00\x2f\x00\xe2\x00\x2c\x00\x2d\x00\x00\x00\x2e\x00\x00\x00\x00\x00\x00\x00\x12\x00\x13\x00\x00\x00\x2f\x00\xe3\x00\x2c\x00\x2d\x00\x00\x00\x2e\x00\x00\x00\x00\x00\x00\x00\x12\x00\x13\x00\x00\x00\x2f\x00\xe4\x00\x2c\x00\x2d\x00\x00\x00\x2e\x00\x00\x00\x00\x00\x00\x00\x12\x00\x13\x00\x00\x00\x2f\x00\xf2\x00\x2c\x00\x2d\x00\x00\x00\x2e\x00\x00\x00\x00\x00\x00\x00\x12\x00\x13\x00\x00\x00\x2f\x00\x13\x01\x2c\x00\x2d\x00\x00\x00\x2e\x00\x00\x00\x00\x00\x00\x00\x12\x00\x13\x00\x00\x00\x2f\x00\xcf\x00\x2c\x00\x2d\x00\x00\x00\x2e\x00\x00\x00\x00\x00\x00\x00\x12\x00\x13\x00\x00\x00\x2f\x00\xd9\x00\x2c\x00\x2d\x00\x00\x00\x2e\x00\x00\x00\x00\x00\x00\x00\x12\x00\x13\x00\x00\x00\x2f\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x24\x00\x25\x00\x1e\x00\x1f\x00\x20\x00\x21\x00\x22\x00\x23\x00\x24\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\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 = Happy_Data_Array.array (12, 251) [+	(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),+	(229 , happyReduce_229),+	(230 , happyReduce_230),+	(231 , happyReduce_231),+	(232 , happyReduce_232),+	(233 , happyReduce_233),+	(234 , happyReduce_234),+	(235 , happyReduce_235),+	(236 , happyReduce_236),+	(237 , happyReduce_237),+	(238 , happyReduce_238),+	(239 , happyReduce_239),+	(240 , happyReduce_240),+	(241 , happyReduce_241),+	(242 , happyReduce_242),+	(243 , happyReduce_243),+	(244 , happyReduce_244),+	(245 , happyReduce_245),+	(246 , happyReduce_246),+	(247 , happyReduce_247),+	(248 , happyReduce_248),+	(249 , happyReduce_249),+	(250 , happyReduce_250),+	(251 , happyReduce_251)+	]++happy_n_terms = 60 :: Int+happy_n_nonterms = 84 :: Int++happyReduce_12 = happyReduce 6# 0# 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 happyOut93 happy_x_2 of { happy_var_2 -> +	case happyOut16 happy_x_5 of { happy_var_5 -> +	happyIn15+		 (let (is,ts) = happy_var_5 in Module happy_var_2 is ts+	) `HappyStk` happyRest}}++happyReduce_13 = happySpecReduce_3  0# happyReduction_13+happyReduction_13 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOut16 happy_x_2 of { happy_var_2 -> +	happyIn15+		 (let { (is,ts) = happy_var_2+            -- XXX make a location from is and ts+          ; modName = Located { srcRange = emptyRange+                              , thing    = mkModName ["Main"]+                              }+          } in Module modName is ts+	)}++happyReduce_14 = happySpecReduce_3  1# happyReduction_14+happyReduction_14 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOut17 happy_x_1 of { happy_var_1 -> +	case happyOut26 happy_x_3 of { happy_var_3 -> +	happyIn16+		 ((reverse happy_var_1, reverse happy_var_3)+	)}}++happyReduce_15 = happySpecReduce_3  1# happyReduction_15+happyReduction_15 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOut17 happy_x_1 of { happy_var_1 -> +	case happyOut26 happy_x_3 of { happy_var_3 -> +	happyIn16+		 ((reverse happy_var_1, reverse happy_var_3)+	)}}++happyReduce_16 = happySpecReduce_1  1# happyReduction_16+happyReduction_16 happy_x_1+	 =  case happyOut17 happy_x_1 of { happy_var_1 -> +	happyIn16+		 ((reverse happy_var_1, [])+	)}++happyReduce_17 = happySpecReduce_1  1# happyReduction_17+happyReduction_17 happy_x_1+	 =  case happyOut26 happy_x_1 of { happy_var_1 -> +	happyIn16+		 (([], reverse happy_var_1)+	)}++happyReduce_18 = happySpecReduce_0  1# happyReduction_18+happyReduction_18  =  happyIn16+		 (([], [])+	)++happyReduce_19 = happySpecReduce_3  2# happyReduction_19+happyReduction_19 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOut17 happy_x_1 of { happy_var_1 -> +	case happyOut18 happy_x_3 of { happy_var_3 -> +	happyIn17+		 (happy_var_3 : happy_var_1+	)}}++happyReduce_20 = happySpecReduce_3  2# happyReduction_20+happyReduction_20 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOut17 happy_x_1 of { happy_var_1 -> +	case happyOut18 happy_x_3 of { happy_var_3 -> +	happyIn17+		 (happy_var_3 : happy_var_1+	)}}++happyReduce_21 = happySpecReduce_1  2# happyReduction_21+happyReduction_21 happy_x_1+	 =  case happyOut18 happy_x_1 of { happy_var_1 -> +	happyIn17+		 ([happy_var_1]+	)}++happyReduce_22 = happyReduce 4# 3# happyReduction_22+happyReduction_22 (happy_x_4 `HappyStk`+	happy_x_3 `HappyStk`+	happy_x_2 `HappyStk`+	happy_x_1 `HappyStk`+	happyRest)+	 = case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (KW KW_import)    _)) -> +	case happyOut93 happy_x_2 of { happy_var_2 -> +	case happyOut19 happy_x_3 of { happy_var_3 -> +	case happyOut20 happy_x_4 of { happy_var_4 -> +	happyIn18+		 (Located { srcRange = rComb happy_var_1+                                                   $ fromMaybe (srcRange happy_var_2)+                                                   $ msum [ fmap srcRange happy_var_4+                                                          , fmap srcRange happy_var_3+                                                          ]+                                        , thing    = Import+                                          { iModule    = thing happy_var_2+                                          , iAs        = fmap thing happy_var_3+                                          , iSpec      = fmap thing happy_var_4+                                          }+                                        }+	) `HappyStk` happyRest}}}}++happyReduce_23 = happySpecReduce_2  4# happyReduction_23+happyReduction_23 happy_x_2+	happy_x_1+	 =  case happyOut93 happy_x_2 of { happy_var_2 -> +	happyIn19+		 (Just happy_var_2+	)}++happyReduce_24 = happySpecReduce_0  4# happyReduction_24+happyReduction_24  =  happyIn19+		 (Nothing+	)++happyReduce_25 = happyReduce 4# 5# happyReduction_25+happyReduction_25 (happy_x_4 `HappyStk`+	happy_x_3 `HappyStk`+	happy_x_2 `HappyStk`+	happy_x_1 `HappyStk`+	happyRest)+	 = case happyOut22 happy_x_1 of { happy_var_1 -> +	case happyOut21 happy_x_3 of { happy_var_3 -> +	happyIn20+		 (Just Located+                                  { srcRange = case happy_var_3 of+                                      { [] -> emptyRange+                                      ; xs -> rCombs (map srcRange xs) }+                                  , thing    = happy_var_1 (reverse (map thing happy_var_3))+                                  }+	) `HappyStk` happyRest}}++happyReduce_26 = happySpecReduce_0  5# happyReduction_26+happyReduction_26  =  happyIn20+		 (Nothing+	)++happyReduce_27 = happySpecReduce_3  6# happyReduction_27+happyReduction_27 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOut21 happy_x_1 of { happy_var_1 -> +	case happyOut91 happy_x_3 of { happy_var_3 -> +	happyIn21+		 (happy_var_3 : happy_var_1+	)}}++happyReduce_28 = happySpecReduce_1  6# happyReduction_28+happyReduction_28 happy_x_1+	 =  case happyOut91 happy_x_1 of { happy_var_1 -> +	happyIn21+		 ([happy_var_1]+	)}++happyReduce_29 = happySpecReduce_0  6# happyReduction_29+happyReduction_29  =  happyIn21+		 ([]+	)++happyReduce_30 = happySpecReduce_1  7# happyReduction_30+happyReduction_30 happy_x_1+	 =  happyIn22+		 (Hiding+	)++happyReduce_31 = happySpecReduce_0  7# happyReduction_31+happyReduction_31  =  happyIn22+		 (Only+	)++happyReduce_32 = happySpecReduce_1  8# happyReduction_32+happyReduction_32 happy_x_1+	 =  case happyOut25 happy_x_1 of { happy_var_1 -> +	happyIn23+		 (Program (reverse happy_var_1)+	)}++happyReduce_33 = happySpecReduce_0  8# happyReduction_33+happyReduction_33  =  happyIn23+		 (Program []+	)++happyReduce_34 = happySpecReduce_3  9# happyReduction_34+happyReduction_34 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOut26 happy_x_2 of { happy_var_2 -> +	happyIn24+		 (Program (reverse happy_var_2)+	)}++happyReduce_35 = happySpecReduce_2  9# happyReduction_35+happyReduction_35 happy_x_2+	happy_x_1+	 =  happyIn24+		 (Program []+	)++happyReduce_36 = happySpecReduce_2  10# happyReduction_36+happyReduction_36 happy_x_2+	happy_x_1+	 =  case happyOut28 happy_x_1 of { happy_var_1 -> +	happyIn25+		 (happy_var_1+	)}++happyReduce_37 = happySpecReduce_3  10# happyReduction_37+happyReduction_37 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOut25 happy_x_1 of { happy_var_1 -> +	case happyOut28 happy_x_2 of { happy_var_2 -> +	happyIn25+		 (happy_var_2 ++ happy_var_1+	)}}++happyReduce_38 = happySpecReduce_1  11# happyReduction_38+happyReduction_38 happy_x_1+	 =  case happyOut27 happy_x_1 of { happy_var_1 -> +	happyIn26+		 (happy_var_1+	)}++happyReduce_39 = happySpecReduce_3  11# happyReduction_39+happyReduction_39 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOut26 happy_x_1 of { happy_var_1 -> +	case happyOut27 happy_x_3 of { happy_var_3 -> +	happyIn26+		 (happy_var_3 ++ happy_var_1+	)}}++happyReduce_40 = happySpecReduce_3  11# happyReduction_40+happyReduction_40 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOut26 happy_x_1 of { happy_var_1 -> +	case happyOut27 happy_x_3 of { happy_var_3 -> +	happyIn26+		 (happy_var_3 ++ happy_var_1+	)}}++happyReduce_41 = happySpecReduce_1  12# happyReduction_41+happyReduction_41 happy_x_1+	 =  case happyOut33 happy_x_1 of { happy_var_1 -> +	happyIn27+		 ([exportDecl Nothing   Public happy_var_1]+	)}++happyReduce_42 = happySpecReduce_2  12# happyReduction_42+happyReduction_42 happy_x_2+	happy_x_1+	 =  case happyOut31 happy_x_1 of { happy_var_1 -> +	case happyOut33 happy_x_2 of { happy_var_2 -> +	happyIn27+		 ([exportDecl (Just happy_var_1) Public happy_var_2]+	)}}++happyReduce_43 = happyMonadReduce 3# 12# happyReduction_43+happyReduction_43 (happy_x_3 `HappyStk`+	happy_x_2 `HappyStk`+	happy_x_1 `HappyStk`+	happyRest) tk+	 = happyThen (case happyOutTok happy_x_3 of { (happy_var_3@(Located _ (Token (StrLit {}) _))) -> +	( (return . Include) `fmap` fromStrLit happy_var_3)}+	) (\r -> happyReturn (happyIn27 r))++happyReduce_44 = happyReduce 6# 12# happyReduction_44+happyReduction_44 (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 happyOut32 happy_x_1 of { happy_var_1 -> +	case happyOut92 happy_x_3 of { happy_var_3 -> +	case happyOut39 happy_x_4 of { happy_var_4 -> +	case happyOut45 happy_x_6 of { happy_var_6 -> +	happyIn27+		 ([exportDecl happy_var_1 Public (mkProperty happy_var_3 happy_var_4 happy_var_6)]+	) `HappyStk` happyRest}}}}++happyReduce_45 = happyReduce 5# 12# 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 happyOut32 happy_x_1 of { happy_var_1 -> +	case happyOut92 happy_x_3 of { happy_var_3 -> +	case happyOut45 happy_x_5 of { happy_var_5 -> +	happyIn27+		 ([exportDecl happy_var_1 Public (mkProperty happy_var_3 [] happy_var_5)]+	) `HappyStk` happyRest}}}++happyReduce_46 = happySpecReduce_2  12# happyReduction_46+happyReduction_46 happy_x_2+	happy_x_1+	 =  case happyOut35 happy_x_2 of { happy_var_2 -> +	happyIn27+		 ([exportNewtype Public happy_var_2]+	)}++happyReduce_47 = happySpecReduce_1  12# happyReduction_47+happyReduction_47 happy_x_1+	 =  case happyOut30 happy_x_1 of { happy_var_1 -> +	happyIn27+		 (happy_var_1+	)}++happyReduce_48 = happySpecReduce_1  12# happyReduction_48+happyReduction_48 happy_x_1+	 =  case happyOut29 happy_x_1 of { happy_var_1 -> +	happyIn27+		 (happy_var_1+	)}++happyReduce_49 = happySpecReduce_1  13# happyReduction_49+happyReduction_49 happy_x_1+	 =  case happyOut33 happy_x_1 of { happy_var_1 -> +	happyIn28+		 ([Decl (TopLevel {tlExport = Public, tlValue = happy_var_1 })]+	)}++happyReduce_50 = happyMonadReduce 2# 13# happyReduction_50+happyReduction_50 (happy_x_2 `HappyStk`+	happy_x_1 `HappyStk`+	happyRest) tk+	 = happyThen (case happyOutTok happy_x_2 of { (happy_var_2@(Located _ (Token (StrLit {}) _))) -> +	( (return . Include) `fmap` fromStrLit happy_var_2)}+	) (\r -> happyReturn (happyIn28 r))++happyReduce_51 = happySpecReduce_1  13# happyReduction_51+happyReduction_51 happy_x_1+	 =  case happyOut30 happy_x_1 of { happy_var_1 -> +	happyIn28+		 (happy_var_1+	)}++happyReduce_52 = happyReduce 4# 14# happyReduction_52+happyReduction_52 (happy_x_4 `HappyStk`+	happy_x_3 `HappyStk`+	happy_x_2 `HappyStk`+	happy_x_1 `HappyStk`+	happyRest)+	 = case happyOut26 happy_x_3 of { happy_var_3 -> +	happyIn29+		 (changeExport Private (reverse happy_var_3)+	) `HappyStk` happyRest}++happyReduce_53 = happyReduce 5# 14# happyReduction_53+happyReduction_53 (happy_x_5 `HappyStk`+	happy_x_4 `HappyStk`+	happy_x_3 `HappyStk`+	happy_x_2 `HappyStk`+	happy_x_1 `HappyStk`+	happyRest)+	 = case happyOut26 happy_x_4 of { happy_var_4 -> +	happyIn29+		 (changeExport Private (reverse happy_var_4)+	) `HappyStk` happyRest}++happyReduce_54 = happyReduce 5# 15# happyReduction_54+happyReduction_54 (happy_x_5 `HappyStk`+	happy_x_4 `HappyStk`+	happy_x_3 `HappyStk`+	happy_x_2 `HappyStk`+	happy_x_1 `HappyStk`+	happyRest)+	 = case happyOut32 happy_x_1 of { happy_var_1 -> +	case happyOut92 happy_x_3 of { happy_var_3 -> +	case happyOut75 happy_x_5 of { happy_var_5 -> +	happyIn30+		 (mkPrimDecl happy_var_1 happy_var_3 happy_var_5+	) `HappyStk` happyRest}}}++happyReduce_55 = happyReduce 7# 15# happyReduction_55+happyReduction_55 (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 happyOut32 happy_x_1 of { happy_var_1 -> +	case happyOut53 happy_x_4 of { happy_var_4 -> +	case happyOut75 happy_x_7 of { happy_var_7 -> +	happyIn30+		 (mkPrimDecl happy_var_1 happy_var_4 happy_var_7+	) `HappyStk` happyRest}}}++happyReduce_56 = happySpecReduce_1  16# happyReduction_56+happyReduction_56 happy_x_1+	 =  case happyOutTok happy_x_1 of { (happy_var_1@(Located _ (Token (White DocStr) _))) -> +	happyIn31+		 (mkDoc (fmap tokenText happy_var_1)+	)}++happyReduce_57 = happySpecReduce_1  17# happyReduction_57+happyReduction_57 happy_x_1+	 =  case happyOut31 happy_x_1 of { happy_var_1 -> +	happyIn32+		 (Just happy_var_1+	)}++happyReduce_58 = happySpecReduce_0  17# happyReduction_58+happyReduction_58  =  happyIn32+		 (Nothing+	)++happyReduce_59 = happySpecReduce_3  18# happyReduction_59+happyReduction_59 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOut37 happy_x_1 of { happy_var_1 -> +	case happyOut75 happy_x_3 of { happy_var_3 -> +	happyIn33+		 (at (head happy_var_1,happy_var_3) $ DSignature (reverse happy_var_1) happy_var_3+	)}}++happyReduce_60 = happySpecReduce_3  18# happyReduction_60+happyReduction_60 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOut70 happy_x_1 of { happy_var_1 -> +	case happyOut45 happy_x_3 of { happy_var_3 -> +	happyIn33+		 (at (happy_var_1,happy_var_3) $ DPatBind happy_var_1 happy_var_3+	)}}++happyReduce_61 = happyReduce 5# 18# 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 happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym ParenL  ) _)) -> +	case happyOut53 happy_x_2 of { happy_var_2 -> +	case happyOut45 happy_x_5 of { happy_var_5 -> +	happyIn33+		 (at (happy_var_1,happy_var_5) $ DPatBind (PVar happy_var_2) happy_var_5+	) `HappyStk` happyRest}}}++happyReduce_62 = happyReduce 4# 18# happyReduction_62+happyReduction_62 (happy_x_4 `HappyStk`+	happy_x_3 `HappyStk`+	happy_x_2 `HappyStk`+	happy_x_1 `HappyStk`+	happyRest)+	 = case happyOut38 happy_x_1 of { happy_var_1 -> +	case happyOut39 happy_x_2 of { happy_var_2 -> +	case happyOut45 happy_x_4 of { happy_var_4 -> +	happyIn33+		 (at (happy_var_1,happy_var_4) $+                             DBind $ Bind { bName      = happy_var_1+                                          , bParams    = reverse happy_var_2+                                          , bDef       = at happy_var_4 (Located emptyRange (DExpr happy_var_4))+                                          , bSignature = Nothing+                                          , bPragmas   = []+                                          , bMono      = False+                                          , bInfix     = False+                                          , bFixity    = Nothing+                                          , bDoc       = Nothing+                                          }+	) `HappyStk` happyRest}}}++happyReduce_63 = happyReduce 5# 18# happyReduction_63+happyReduction_63 (happy_x_5 `HappyStk`+	happy_x_4 `HappyStk`+	happy_x_3 `HappyStk`+	happy_x_2 `HappyStk`+	happy_x_1 `HappyStk`+	happyRest)+	 = case happyOut71 happy_x_1 of { happy_var_1 -> +	case happyOut54 happy_x_2 of { happy_var_2 -> +	case happyOut71 happy_x_3 of { happy_var_3 -> +	case happyOut45 happy_x_5 of { happy_var_5 -> +	happyIn33+		 (at (happy_var_1,happy_var_5) $+                             DBind $ Bind { bName      = happy_var_2+                                          , bParams    = [happy_var_1,happy_var_3]+                                          , bDef       = at happy_var_5 (Located emptyRange (DExpr happy_var_5))+                                          , bSignature = Nothing+                                          , bPragmas   = []+                                          , bMono      = False+                                          , bInfix     = True+                                          , bFixity    = Nothing+                                          , bDoc       = Nothing+                                          }+	) `HappyStk` happyRest}}}}++happyReduce_64 = happyMonadReduce 4# 18# happyReduction_64+happyReduction_64 (happy_x_4 `HappyStk`+	happy_x_3 `HappyStk`+	happy_x_2 `HappyStk`+	happy_x_1 `HappyStk`+	happyRest) tk+	 = happyThen (case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (KW KW_type   ) _)) -> +	case happyOut92 happy_x_2 of { happy_var_2 -> +	case happyOut83 happy_x_4 of { happy_var_4 -> +	( at (happy_var_1,happy_var_4) `fmap` mkTySyn happy_var_2 [] happy_var_4)}}}+	) (\r -> happyReturn (happyIn33 r))++happyReduce_65 = happyMonadReduce 5# 18# 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) tk+	 = happyThen (case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (KW KW_type   ) _)) -> +	case happyOut92 happy_x_2 of { happy_var_2 -> +	case happyOut82 happy_x_3 of { happy_var_3 -> +	case happyOut83 happy_x_5 of { happy_var_5 -> +	( at (happy_var_1,happy_var_5) `fmap` mkTySyn happy_var_2 (reverse happy_var_3) happy_var_5)}}}}+	) (\r -> happyReturn (happyIn33 r))++happyReduce_66 = happyMonadReduce 3# 18# happyReduction_66+happyReduction_66 (happy_x_3 `HappyStk`+	happy_x_2 `HappyStk`+	happy_x_1 `HappyStk`+	happyRest) tk+	 = happyThen (case happyOutTok happy_x_2 of { (happy_var_2@(Located _ (Token (Num   {}) _))) -> +	case happyOut56 happy_x_3 of { happy_var_3 -> +	( mkFixity LeftAssoc  happy_var_2 (reverse happy_var_3))}}+	) (\r -> happyReturn (happyIn33 r))++happyReduce_67 = happyMonadReduce 3# 18# happyReduction_67+happyReduction_67 (happy_x_3 `HappyStk`+	happy_x_2 `HappyStk`+	happy_x_1 `HappyStk`+	happyRest) tk+	 = happyThen (case happyOutTok happy_x_2 of { (happy_var_2@(Located _ (Token (Num   {}) _))) -> +	case happyOut56 happy_x_3 of { happy_var_3 -> +	( mkFixity RightAssoc happy_var_2 (reverse happy_var_3))}}+	) (\r -> happyReturn (happyIn33 r))++happyReduce_68 = happyMonadReduce 3# 18# happyReduction_68+happyReduction_68 (happy_x_3 `HappyStk`+	happy_x_2 `HappyStk`+	happy_x_1 `HappyStk`+	happyRest) tk+	 = happyThen (case happyOutTok happy_x_2 of { (happy_var_2@(Located _ (Token (Num   {}) _))) -> +	case happyOut56 happy_x_3 of { happy_var_3 -> +	( mkFixity NonAssoc   happy_var_2 (reverse happy_var_3))}}+	) (\r -> happyReturn (happyIn33 r))++happyReduce_69 = happyReduce 4# 19# happyReduction_69+happyReduction_69 (happy_x_4 `HappyStk`+	happy_x_3 `HappyStk`+	happy_x_2 `HappyStk`+	happy_x_1 `HappyStk`+	happyRest)+	 = case happyOut70 happy_x_2 of { happy_var_2 -> +	case happyOut45 happy_x_4 of { happy_var_4 -> +	happyIn34+		 (at (happy_var_2,happy_var_4) $ DPatBind happy_var_2 happy_var_4+	) `HappyStk` happyRest}}++happyReduce_70 = happyReduce 5# 19# happyReduction_70+happyReduction_70 (happy_x_5 `HappyStk`+	happy_x_4 `HappyStk`+	happy_x_3 `HappyStk`+	happy_x_2 `HappyStk`+	happy_x_1 `HappyStk`+	happyRest)+	 = case happyOut92 happy_x_2 of { happy_var_2 -> +	case happyOut39 happy_x_3 of { happy_var_3 -> +	case happyOut45 happy_x_5 of { happy_var_5 -> +	happyIn34+		 (at (happy_var_2,happy_var_5) $+                                   DBind $ Bind { bName      = happy_var_2+                                                , bParams    = reverse happy_var_3+                                                , bDef       = at happy_var_5 (Located emptyRange (DExpr happy_var_5))+                                                , bSignature = Nothing+                                                , bPragmas   = []+                                                , bMono      = False+                                                , bInfix     = False+                                                , bFixity    = Nothing+                                                , bDoc       = Nothing+                                                }+	) `HappyStk` happyRest}}}++happyReduce_71 = happyReduce 4# 20# happyReduction_71+happyReduction_71 (happy_x_4 `HappyStk`+	happy_x_3 `HappyStk`+	happy_x_2 `HappyStk`+	happy_x_1 `HappyStk`+	happyRest)+	 = case happyOut94 happy_x_2 of { happy_var_2 -> +	case happyOut36 happy_x_4 of { happy_var_4 -> +	happyIn35+		 (Newtype { nName = happy_var_2, nParams = [], nBody = happy_var_4 }+	) `HappyStk` happyRest}}++happyReduce_72 = happyReduce 5# 20# 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 happyOut94 happy_x_2 of { happy_var_2 -> +	case happyOut82 happy_x_3 of { happy_var_3 -> +	case happyOut36 happy_x_5 of { happy_var_5 -> +	happyIn35+		 (Newtype { nName = happy_var_2, nParams = happy_var_3, nBody = happy_var_5 }+	) `HappyStk` happyRest}}}++happyReduce_73 = happySpecReduce_2  21# happyReduction_73+happyReduction_73 happy_x_2+	happy_x_1+	 =  happyIn36+		 ([]+	)++happyReduce_74 = happySpecReduce_3  21# happyReduction_74+happyReduction_74 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOut90 happy_x_2 of { happy_var_2 -> +	happyIn36+		 (happy_var_2+	)}++happyReduce_75 = happySpecReduce_1  22# happyReduction_75+happyReduction_75 happy_x_1+	 =  case happyOut38 happy_x_1 of { happy_var_1 -> +	happyIn37+		 ([ happy_var_1]+	)}++happyReduce_76 = happySpecReduce_3  22# happyReduction_76+happyReduction_76 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOut37 happy_x_1 of { happy_var_1 -> +	case happyOut38 happy_x_3 of { happy_var_3 -> +	happyIn37+		 (happy_var_3 : happy_var_1+	)}}++happyReduce_77 = happySpecReduce_1  23# happyReduction_77+happyReduction_77 happy_x_1+	 =  case happyOut92 happy_x_1 of { happy_var_1 -> +	happyIn38+		 (happy_var_1+	)}++happyReduce_78 = happySpecReduce_3  23# happyReduction_78+happyReduction_78 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOut53 happy_x_2 of { happy_var_2 -> +	happyIn38+		 (happy_var_2+	)}++happyReduce_79 = happySpecReduce_1  24# happyReduction_79+happyReduction_79 happy_x_1+	 =  case happyOut71 happy_x_1 of { happy_var_1 -> +	happyIn39+		 ([happy_var_1]+	)}++happyReduce_80 = happySpecReduce_2  24# happyReduction_80+happyReduction_80 happy_x_2+	happy_x_1+	 =  case happyOut40 happy_x_1 of { happy_var_1 -> +	case happyOut71 happy_x_2 of { happy_var_2 -> +	happyIn39+		 (happy_var_2 : happy_var_1+	)}}++happyReduce_81 = happySpecReduce_1  25# happyReduction_81+happyReduction_81 happy_x_1+	 =  case happyOut71 happy_x_1 of { happy_var_1 -> +	happyIn40+		 ([happy_var_1]+	)}++happyReduce_82 = happySpecReduce_2  25# happyReduction_82+happyReduction_82 happy_x_2+	happy_x_1+	 =  case happyOut40 happy_x_1 of { happy_var_1 -> +	case happyOut71 happy_x_2 of { happy_var_2 -> +	happyIn40+		 (happy_var_2 : happy_var_1+	)}}++happyReduce_83 = happySpecReduce_2  26# happyReduction_83+happyReduction_83 happy_x_2+	happy_x_1+	 =  case happyOut33 happy_x_1 of { happy_var_1 -> +	happyIn41+		 ([happy_var_1]+	)}++happyReduce_84 = happySpecReduce_3  26# happyReduction_84+happyReduction_84 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOut41 happy_x_1 of { happy_var_1 -> +	case happyOut33 happy_x_2 of { happy_var_2 -> +	happyIn41+		 (happy_var_2 : happy_var_1+	)}}++happyReduce_85 = happySpecReduce_1  27# happyReduction_85+happyReduction_85 happy_x_1+	 =  case happyOut33 happy_x_1 of { happy_var_1 -> +	happyIn42+		 ([happy_var_1]+	)}++happyReduce_86 = happySpecReduce_3  27# happyReduction_86+happyReduction_86 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOut42 happy_x_1 of { happy_var_1 -> +	case happyOut33 happy_x_3 of { happy_var_3 -> +	happyIn42+		 (happy_var_3 : happy_var_1+	)}}++happyReduce_87 = happySpecReduce_3  27# happyReduction_87+happyReduction_87 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOut42 happy_x_1 of { happy_var_1 -> +	case happyOut33 happy_x_3 of { happy_var_3 -> +	happyIn42+		 (happy_var_3 : happy_var_1+	)}}++happyReduce_88 = happySpecReduce_3  28# happyReduction_88+happyReduction_88 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOut42 happy_x_2 of { happy_var_2 -> +	happyIn43+		 (happy_var_2+	)}++happyReduce_89 = happySpecReduce_2  28# happyReduction_89+happyReduction_89 happy_x_2+	happy_x_1+	 =  happyIn43+		 ([]+	)++happyReduce_90 = happySpecReduce_1  29# happyReduction_90+happyReduction_90 happy_x_1+	 =  case happyOut45 happy_x_1 of { happy_var_1 -> +	happyIn44+		 (ExprInput happy_var_1+	)}++happyReduce_91 = happySpecReduce_1  29# happyReduction_91+happyReduction_91 happy_x_1+	 =  case happyOut34 happy_x_1 of { happy_var_1 -> +	happyIn44+		 (LetInput happy_var_1+	)}++happyReduce_92 = happySpecReduce_1  30# happyReduction_92+happyReduction_92 happy_x_1+	 =  case happyOut48 happy_x_1 of { happy_var_1 -> +	happyIn45+		 (happy_var_1+	)}++happyReduce_93 = happyReduce 4# 30# happyReduction_93+happyReduction_93 (happy_x_4 `HappyStk`+	happy_x_3 `HappyStk`+	happy_x_2 `HappyStk`+	happy_x_1 `HappyStk`+	happyRest)+	 = case happyOut45 happy_x_1 of { happy_var_1 -> +	case happyOutTok happy_x_4 of { (Located happy_var_4 (Token (Sym CurlyR  ) _)) -> +	happyIn45+		 (at (happy_var_1,happy_var_4) $ EWhere happy_var_1 []+	) `HappyStk` happyRest}}++happyReduce_94 = happyReduce 5# 30# happyReduction_94+happyReduction_94 (happy_x_5 `HappyStk`+	happy_x_4 `HappyStk`+	happy_x_3 `HappyStk`+	happy_x_2 `HappyStk`+	happy_x_1 `HappyStk`+	happyRest)+	 = case happyOut45 happy_x_1 of { happy_var_1 -> +	case happyOut41 happy_x_4 of { happy_var_4 -> +	case happyOutTok happy_x_5 of { (Located happy_var_5 (Token (Sym CurlyR  ) _)) -> +	happyIn45+		 (at (happy_var_1,happy_var_5) $ EWhere happy_var_1 (reverse happy_var_4)+	) `HappyStk` happyRest}}}++happyReduce_95 = happyReduce 4# 30# happyReduction_95+happyReduction_95 (happy_x_4 `HappyStk`+	happy_x_3 `HappyStk`+	happy_x_2 `HappyStk`+	happy_x_1 `HappyStk`+	happyRest)+	 = case happyOut45 happy_x_1 of { happy_var_1 -> +	case happyOutTok happy_x_2 of { (Located happy_var_2 (Token (KW KW_where  ) _)) -> +	happyIn45+		 (at (happy_var_1,happy_var_2) $ EWhere happy_var_1 []+	) `HappyStk` happyRest}}++happyReduce_96 = happyReduce 5# 30# happyReduction_96+happyReduction_96 (happy_x_5 `HappyStk`+	happy_x_4 `HappyStk`+	happy_x_3 `HappyStk`+	happy_x_2 `HappyStk`+	happy_x_1 `HappyStk`+	happyRest)+	 = case happyOut45 happy_x_1 of { happy_var_1 -> +	case happyOut42 happy_x_4 of { happy_var_4 -> +	happyIn45+		 (at (happy_var_1,happy_var_4) $ EWhere happy_var_1 (reverse happy_var_4)+	) `HappyStk` happyRest}}++happyReduce_97 = happySpecReduce_1  31# happyReduction_97+happyReduction_97 happy_x_1+	 =  case happyOut47 happy_x_1 of { happy_var_1 -> +	happyIn46+		 ([happy_var_1]+	)}++happyReduce_98 = happySpecReduce_3  31# happyReduction_98+happyReduction_98 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 -> +	happyIn46+		 (happy_var_3 : happy_var_1+	)}}++happyReduce_99 = happySpecReduce_3  32# happyReduction_99+happyReduction_99 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOut45 happy_x_1 of { happy_var_1 -> +	case happyOut45 happy_x_3 of { happy_var_3 -> +	happyIn47+		 ((happy_var_1, happy_var_3)+	)}}++happyReduce_100 = happySpecReduce_1  33# happyReduction_100+happyReduction_100 happy_x_1+	 =  case happyOut49 happy_x_1 of { happy_var_1 -> +	happyIn48+		 (happy_var_1+	)}++happyReduce_101 = happyReduce 4# 33# happyReduction_101+happyReduction_101 (happy_x_4 `HappyStk`+	happy_x_3 `HappyStk`+	happy_x_2 `HappyStk`+	happy_x_1 `HappyStk`+	happyRest)+	 = case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (KW KW_if     ) _)) -> +	case happyOut46 happy_x_2 of { happy_var_2 -> +	case happyOut48 happy_x_4 of { happy_var_4 -> +	happyIn48+		 (at (happy_var_1,happy_var_4) $ mkIf (reverse happy_var_2) happy_var_4+	) `HappyStk` happyRest}}}++happyReduce_102 = happyReduce 4# 33# happyReduction_102+happyReduction_102 (happy_x_4 `HappyStk`+	happy_x_3 `HappyStk`+	happy_x_2 `HappyStk`+	happy_x_1 `HappyStk`+	happyRest)+	 = case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym Lambda  ) _)) -> +	case happyOut39 happy_x_2 of { happy_var_2 -> +	case happyOut48 happy_x_4 of { happy_var_4 -> +	happyIn48+		 (at (happy_var_1,happy_var_4) $ EFun (reverse happy_var_2) happy_var_4+	) `HappyStk` happyRest}}}++happyReduce_103 = happySpecReduce_1  34# happyReduction_103+happyReduction_103 happy_x_1+	 =  case happyOut50 happy_x_1 of { happy_var_1 -> +	happyIn49+		 (happy_var_1+	)}++happyReduce_104 = happySpecReduce_3  34# happyReduction_104+happyReduction_104 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOut50 happy_x_1 of { happy_var_1 -> +	case happyOut83 happy_x_3 of { happy_var_3 -> +	happyIn49+		 (at (happy_var_1,happy_var_3) $ ETyped happy_var_1 happy_var_3+	)}}++happyReduce_105 = happySpecReduce_1  35# happyReduction_105+happyReduction_105 happy_x_1+	 =  case happyOut51 happy_x_1 of { happy_var_1 -> +	happyIn50+		 (happy_var_1+	)}++happyReduce_106 = happySpecReduce_3  35# happyReduction_106+happyReduction_106 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOut50 happy_x_1 of { happy_var_1 -> +	case happyOut52 happy_x_2 of { happy_var_2 -> +	case happyOut51 happy_x_3 of { happy_var_3 -> +	happyIn50+		 (binOp happy_var_1 happy_var_2 happy_var_3+	)}}}++happyReduce_107 = happySpecReduce_1  36# happyReduction_107+happyReduction_107 happy_x_1+	 =  case happyOut57 happy_x_1 of { happy_var_1 -> +	happyIn51+		 (mkEApp happy_var_1+	)}++happyReduce_108 = happySpecReduce_2  36# happyReduction_108+happyReduction_108 happy_x_2+	happy_x_1+	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Op Minus) _)) -> +	case happyOut51 happy_x_2 of { happy_var_2 -> +	happyIn51+		 (at (happy_var_1,happy_var_2) $ EApp (at happy_var_1 (EVar (mkUnqual "negate"))) happy_var_2+	)}}++happyReduce_109 = happySpecReduce_2  36# happyReduction_109+happyReduction_109 happy_x_2+	happy_x_1+	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Op Complement) _)) -> +	case happyOut51 happy_x_2 of { happy_var_2 -> +	happyIn51+		 (at (happy_var_1,happy_var_2) $ EApp (at happy_var_1 (EVar (mkUnqual "complement"))) happy_var_2+	)}}++happyReduce_110 = happySpecReduce_1  37# happyReduction_110+happyReduction_110 happy_x_1+	 =  case happyOut53 happy_x_1 of { happy_var_1 -> +	happyIn52+		 (happy_var_1+	)}++happyReduce_111 = happySpecReduce_1  37# happyReduction_111+happyReduction_111 happy_x_1+	 =  case happyOutTok happy_x_1 of { (happy_var_1@(Located _ (Token (Op  Other{}   )  _))) -> +	happyIn52+		 (let Token (Op (Other ns i)) _ = thing happy_var_1+                                       in mkQual (mkModName ns) (mkInfix (T.toStrict i)) A.<$ happy_var_1+	)}++happyReduce_112 = happySpecReduce_1  38# happyReduction_112+happyReduction_112 happy_x_1+	 =  case happyOut54 happy_x_1 of { happy_var_1 -> +	happyIn53+		 (happy_var_1+	)}++happyReduce_113 = happySpecReduce_1  38# happyReduction_113+happyReduction_113 happy_x_1+	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Op Hash) _)) -> +	happyIn53+		 (Located happy_var_1 $ mkUnqual $ mkInfix "#"+	)}++happyReduce_114 = happySpecReduce_1  39# happyReduction_114+happyReduction_114 happy_x_1+	 =  case happyOut55 happy_x_1 of { happy_var_1 -> +	happyIn54+		 (happy_var_1+	)}++happyReduce_115 = happySpecReduce_1  39# happyReduction_115+happyReduction_115 happy_x_1+	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Op Mul)   _)) -> +	happyIn54+		 (Located happy_var_1 $ mkUnqual $ mkInfix "*"+	)}++happyReduce_116 = happySpecReduce_1  39# happyReduction_116+happyReduction_116 happy_x_1+	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Op Plus)  _)) -> +	happyIn54+		 (Located happy_var_1 $ mkUnqual $ mkInfix "+"+	)}++happyReduce_117 = happySpecReduce_1  39# happyReduction_117+happyReduction_117 happy_x_1+	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Op Minus) _)) -> +	happyIn54+		 (Located happy_var_1 $ mkUnqual $ mkInfix "-"+	)}++happyReduce_118 = happySpecReduce_1  39# happyReduction_118+happyReduction_118 happy_x_1+	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Op Complement) _)) -> +	happyIn54+		 (Located happy_var_1 $ mkUnqual $ mkInfix "~"+	)}++happyReduce_119 = happySpecReduce_1  39# happyReduction_119+happyReduction_119 happy_x_1+	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Op Exp)   _)) -> +	happyIn54+		 (Located happy_var_1 $ mkUnqual $ mkInfix "^^"+	)}++happyReduce_120 = happySpecReduce_1  40# happyReduction_120+happyReduction_120 happy_x_1+	 =  case happyOutTok happy_x_1 of { (happy_var_1@(Located _ (Token (Op (Other [] _)) _))) -> +	happyIn55+		 (let Token (Op (Other [] str)) _ = thing happy_var_1+                                       in mkUnqual (mkInfix (T.toStrict str)) A.<$ happy_var_1+	)}++happyReduce_121 = happySpecReduce_1  41# happyReduction_121+happyReduction_121 happy_x_1+	 =  case happyOut53 happy_x_1 of { happy_var_1 -> +	happyIn56+		 ([happy_var_1]+	)}++happyReduce_122 = happySpecReduce_3  41# happyReduction_122+happyReduction_122 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOut56 happy_x_1 of { happy_var_1 -> +	case happyOut53 happy_x_3 of { happy_var_3 -> +	happyIn56+		 (happy_var_3 : happy_var_1+	)}}++happyReduce_123 = happySpecReduce_1  42# happyReduction_123+happyReduction_123 happy_x_1+	 =  case happyOut58 happy_x_1 of { happy_var_1 -> +	happyIn57+		 ([happy_var_1]+	)}++happyReduce_124 = happySpecReduce_2  42# happyReduction_124+happyReduction_124 happy_x_2+	happy_x_1+	 =  case happyOut57 happy_x_1 of { happy_var_1 -> +	case happyOut58 happy_x_2 of { happy_var_2 -> +	happyIn57+		 (happy_var_2 : happy_var_1+	)}}++happyReduce_125 = happySpecReduce_1  43# happyReduction_125+happyReduction_125 happy_x_1+	 =  case happyOut94 happy_x_1 of { happy_var_1 -> +	happyIn58+		 (at happy_var_1 $ EVar (thing happy_var_1)+	)}++happyReduce_126 = happySpecReduce_1  43# happyReduction_126+happyReduction_126 happy_x_1+	 =  case happyOutTok happy_x_1 of { (happy_var_1@(Located _ (Token (Num   {}) _))) -> +	happyIn58+		 (at happy_var_1 $ numLit (tokenType (thing happy_var_1))+	)}++happyReduce_127 = happySpecReduce_1  43# happyReduction_127+happyReduction_127 happy_x_1+	 =  case happyOutTok happy_x_1 of { (happy_var_1@(Located _ (Token (StrLit {}) _))) -> +	happyIn58+		 (at happy_var_1 $ ELit $ ECString $ getStr happy_var_1+	)}++happyReduce_128 = happySpecReduce_1  43# happyReduction_128+happyReduction_128 happy_x_1+	 =  case happyOutTok happy_x_1 of { (happy_var_1@(Located _ (Token (ChrLit {}) _))) -> +	happyIn58+		 (at happy_var_1 $ ELit $ ECNum (getNum happy_var_1) CharLit+	)}++happyReduce_129 = happySpecReduce_3  43# happyReduction_129+happyReduction_129 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym ParenL  ) _)) -> +	case happyOut45 happy_x_2 of { happy_var_2 -> +	case happyOutTok happy_x_3 of { (Located happy_var_3 (Token (Sym ParenR  ) _)) -> +	happyIn58+		 (at (happy_var_1,happy_var_3) $ EParens happy_var_2+	)}}}++happyReduce_130 = happySpecReduce_3  43# happyReduction_130+happyReduction_130 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym ParenL  ) _)) -> +	case happyOut62 happy_x_2 of { happy_var_2 -> +	case happyOutTok happy_x_3 of { (Located happy_var_3 (Token (Sym ParenR  ) _)) -> +	happyIn58+		 (at (happy_var_1,happy_var_3) $ ETuple (reverse happy_var_2)+	)}}}++happyReduce_131 = happySpecReduce_2  43# happyReduction_131+happyReduction_131 happy_x_2+	happy_x_1+	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym ParenL  ) _)) -> +	case happyOutTok happy_x_2 of { (Located happy_var_2 (Token (Sym ParenR  ) _)) -> +	happyIn58+		 (at (happy_var_1,happy_var_2) $ ETuple []+	)}}++happyReduce_132 = happySpecReduce_2  43# happyReduction_132+happyReduction_132 happy_x_2+	happy_x_1+	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym CurlyL  ) _)) -> +	case happyOutTok happy_x_2 of { (Located happy_var_2 (Token (Sym CurlyR  ) _)) -> +	happyIn58+		 (at (happy_var_1,happy_var_2) $ ERecord []+	)}}++happyReduce_133 = happySpecReduce_3  43# happyReduction_133+happyReduction_133 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym CurlyL  ) _)) -> +	case happyOut64 happy_x_2 of { happy_var_2 -> +	case happyOutTok happy_x_3 of { (Located happy_var_3 (Token (Sym CurlyR  ) _)) -> +	happyIn58+		 (at (happy_var_1,happy_var_3) $ ERecord (reverse happy_var_2)+	)}}}++happyReduce_134 = happySpecReduce_2  43# happyReduction_134+happyReduction_134 happy_x_2+	happy_x_1+	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym BracketL) _)) -> +	case happyOutTok happy_x_2 of { (Located happy_var_2 (Token (Sym BracketR) _)) -> +	happyIn58+		 (at (happy_var_1,happy_var_2) $ EList []+	)}}++happyReduce_135 = happySpecReduce_3  43# happyReduction_135+happyReduction_135 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym BracketL) _)) -> +	case happyOut65 happy_x_2 of { happy_var_2 -> +	case happyOutTok happy_x_3 of { (Located happy_var_3 (Token (Sym BracketR) _)) -> +	happyIn58+		 (at (happy_var_1,happy_var_3) happy_var_2+	)}}}++happyReduce_136 = happySpecReduce_2  43# happyReduction_136+happyReduction_136 happy_x_2+	happy_x_1+	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym BackTick) _)) -> +	case happyOut96 happy_x_2 of { happy_var_2 -> +	happyIn58+		 (at (happy_var_1,happy_var_2) $ ETypeVal happy_var_2+	)}}++happyReduce_137 = happySpecReduce_3  43# happyReduction_137+happyReduction_137 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOut58 happy_x_1 of { happy_var_1 -> +	case happyOut61 happy_x_3 of { happy_var_3 -> +	happyIn58+		 (at (happy_var_1,happy_var_3) $ ESel happy_var_1 (thing happy_var_3)+	)}}++happyReduce_138 = happySpecReduce_3  43# happyReduction_138+happyReduction_138 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym ParenL  ) _)) -> +	case happyOut52 happy_x_2 of { happy_var_2 -> +	case happyOutTok happy_x_3 of { (Located happy_var_3 (Token (Sym ParenR  ) _)) -> +	happyIn58+		 (at (happy_var_1,happy_var_3) $ EVar $ thing happy_var_2+	)}}}++happyReduce_139 = happyMonadReduce 2# 43# happyReduction_139+happyReduction_139 (happy_x_2 `HappyStk`+	happy_x_1 `HappyStk`+	happyRest) tk+	 = happyThen (case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym TriL    ) _)) -> +	case happyOutTok happy_x_2 of { (Located happy_var_2 (Token (Sym TriR    ) _)) -> +	( mkPoly (rComb happy_var_1 happy_var_2) [])}}+	) (\r -> happyReturn (happyIn58 r))++happyReduce_140 = happyMonadReduce 3# 43# happyReduction_140+happyReduction_140 (happy_x_3 `HappyStk`+	happy_x_2 `HappyStk`+	happy_x_1 `HappyStk`+	happyRest) tk+	 = happyThen (case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym TriL    ) _)) -> +	case happyOut59 happy_x_2 of { happy_var_2 -> +	case happyOutTok happy_x_3 of { (Located happy_var_3 (Token (Sym TriR    ) _)) -> +	( mkPoly (rComb happy_var_1 happy_var_3) happy_var_2)}}}+	) (\r -> happyReturn (happyIn58 r))++happyReduce_141 = happySpecReduce_1  44# happyReduction_141+happyReduction_141 happy_x_1+	 =  case happyOut60 happy_x_1 of { happy_var_1 -> +	happyIn59+		 ([happy_var_1]+	)}++happyReduce_142 = happySpecReduce_3  44# happyReduction_142+happyReduction_142 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOut59 happy_x_1 of { happy_var_1 -> +	case happyOut60 happy_x_3 of { happy_var_3 -> +	happyIn59+		 (happy_var_3 : happy_var_1+	)}}++happyReduce_143 = happyMonadReduce 1# 45# happyReduction_143+happyReduction_143 (happy_x_1 `HappyStk`+	happyRest) tk+	 = happyThen (case happyOutTok happy_x_1 of { (happy_var_1@(Located _ (Token (Num   {}) _))) -> +	( polyTerm (srcRange happy_var_1) (getNum happy_var_1) 0)}+	) (\r -> happyReturn (happyIn60 r))++happyReduce_144 = happyMonadReduce 1# 45# happyReduction_144+happyReduction_144 (happy_x_1 `HappyStk`+	happyRest) tk+	 = happyThen (case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (KW KW_x)       _)) -> +	( polyTerm happy_var_1 1 1)}+	) (\r -> happyReturn (happyIn60 r))++happyReduce_145 = happyMonadReduce 3# 45# happyReduction_145+happyReduction_145 (happy_x_3 `HappyStk`+	happy_x_2 `HappyStk`+	happy_x_1 `HappyStk`+	happyRest) tk+	 = happyThen (case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (KW KW_x)       _)) -> +	case happyOutTok happy_x_3 of { (happy_var_3@(Located _ (Token (Num   {}) _))) -> +	( polyTerm (rComb happy_var_1 (srcRange happy_var_3))+                                                            1 (getNum happy_var_3))}}+	) (\r -> happyReturn (happyIn60 r))++happyReduce_146 = happySpecReduce_1  46# happyReduction_146+happyReduction_146 happy_x_1+	 =  case happyOut91 happy_x_1 of { happy_var_1 -> +	happyIn61+		 (fmap (`RecordSel` Nothing) happy_var_1+	)}++happyReduce_147 = happyMonadReduce 1# 46# happyReduction_147+happyReduction_147 (happy_x_1 `HappyStk`+	happyRest) tk+	 = happyThen (case happyOutTok happy_x_1 of { (happy_var_1@(Located _ (Token (Num   {}) _))) -> +	( mkTupleSel (srcRange happy_var_1) (getNum happy_var_1))}+	) (\r -> happyReturn (happyIn61 r))++happyReduce_148 = happySpecReduce_3  47# happyReduction_148+happyReduction_148 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOut45 happy_x_1 of { happy_var_1 -> +	case happyOut45 happy_x_3 of { happy_var_3 -> +	happyIn62+		 ([ happy_var_3, happy_var_1]+	)}}++happyReduce_149 = happySpecReduce_3  47# happyReduction_149+happyReduction_149 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOut62 happy_x_1 of { happy_var_1 -> +	case happyOut45 happy_x_3 of { happy_var_3 -> +	happyIn62+		 (happy_var_3 : happy_var_1+	)}}++happyReduce_150 = happySpecReduce_3  48# happyReduction_150+happyReduction_150 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOut91 happy_x_1 of { happy_var_1 -> +	case happyOut45 happy_x_3 of { happy_var_3 -> +	happyIn63+		 (Named { name = happy_var_1, value = happy_var_3 }+	)}}++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 happyOut91 happy_x_1 of { happy_var_1 -> +	case happyOut39 happy_x_2 of { happy_var_2 -> +	case happyOut45 happy_x_4 of { happy_var_4 -> +	happyIn63+		 (Named { name = happy_var_1, value = EFun (reverse happy_var_2) happy_var_4 }+	) `HappyStk` happyRest}}}++happyReduce_152 = happySpecReduce_1  49# happyReduction_152+happyReduction_152 happy_x_1+	 =  case happyOut63 happy_x_1 of { happy_var_1 -> +	happyIn64+		 ([happy_var_1]+	)}++happyReduce_153 = happySpecReduce_3  49# happyReduction_153+happyReduction_153 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOut64 happy_x_1 of { happy_var_1 -> +	case happyOut63 happy_x_3 of { happy_var_3 -> +	happyIn64+		 (happy_var_3 : happy_var_1+	)}}++happyReduce_154 = happySpecReduce_3  50# happyReduction_154+happyReduction_154 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOut45 happy_x_1 of { happy_var_1 -> +	case happyOut66 happy_x_3 of { happy_var_3 -> +	happyIn65+		 (EComp happy_var_1 (reverse happy_var_3)+	)}}++happyReduce_155 = happySpecReduce_1  50# happyReduction_155+happyReduction_155 happy_x_1+	 =  case happyOut45 happy_x_1 of { happy_var_1 -> +	happyIn65+		 (EList [happy_var_1]+	)}++happyReduce_156 = happySpecReduce_1  50# happyReduction_156+happyReduction_156 happy_x_1+	 =  case happyOut62 happy_x_1 of { happy_var_1 -> +	happyIn65+		 (EList (reverse happy_var_1)+	)}++happyReduce_157 = happyMonadReduce 2# 50# happyReduction_157+happyReduction_157 (happy_x_2 `HappyStk`+	happy_x_1 `HappyStk`+	happyRest) tk+	 = happyThen (case happyOut45 happy_x_1 of { happy_var_1 -> +	case happyOutTok happy_x_2 of { (Located happy_var_2 (Token (Sym DotDot  ) _)) -> +	( eFromTo happy_var_2 happy_var_1 Nothing   Nothing)}}+	) (\r -> happyReturn (happyIn65 r))++happyReduce_158 = happyMonadReduce 3# 50# happyReduction_158+happyReduction_158 (happy_x_3 `HappyStk`+	happy_x_2 `HappyStk`+	happy_x_1 `HappyStk`+	happyRest) tk+	 = happyThen (case happyOut45 happy_x_1 of { happy_var_1 -> +	case happyOutTok happy_x_2 of { (Located happy_var_2 (Token (Sym DotDot  ) _)) -> +	case happyOut45 happy_x_3 of { happy_var_3 -> +	( eFromTo happy_var_2 happy_var_1 Nothing   (Just happy_var_3))}}}+	) (\r -> happyReturn (happyIn65 r))++happyReduce_159 = happyMonadReduce 4# 50# happyReduction_159+happyReduction_159 (happy_x_4 `HappyStk`+	happy_x_3 `HappyStk`+	happy_x_2 `HappyStk`+	happy_x_1 `HappyStk`+	happyRest) tk+	 = happyThen (case happyOut45 happy_x_1 of { happy_var_1 -> +	case happyOut45 happy_x_3 of { happy_var_3 -> +	case happyOutTok happy_x_4 of { (Located happy_var_4 (Token (Sym DotDot  ) _)) -> +	( eFromTo happy_var_4 happy_var_1 (Just happy_var_3) Nothing)}}}+	) (\r -> happyReturn (happyIn65 r))++happyReduce_160 = happyMonadReduce 5# 50# happyReduction_160+happyReduction_160 (happy_x_5 `HappyStk`+	happy_x_4 `HappyStk`+	happy_x_3 `HappyStk`+	happy_x_2 `HappyStk`+	happy_x_1 `HappyStk`+	happyRest) tk+	 = happyThen (case happyOut45 happy_x_1 of { happy_var_1 -> +	case happyOut45 happy_x_3 of { happy_var_3 -> +	case happyOutTok happy_x_4 of { (Located happy_var_4 (Token (Sym DotDot  ) _)) -> +	case happyOut45 happy_x_5 of { happy_var_5 -> +	( eFromTo happy_var_4 happy_var_1 (Just happy_var_3) (Just happy_var_5))}}}}+	) (\r -> happyReturn (happyIn65 r))++happyReduce_161 = happySpecReduce_2  50# happyReduction_161+happyReduction_161 happy_x_2+	happy_x_1+	 =  case happyOut45 happy_x_1 of { happy_var_1 -> +	happyIn65+		 (EInfFrom happy_var_1 Nothing+	)}++happyReduce_162 = happyReduce 4# 50# happyReduction_162+happyReduction_162 (happy_x_4 `HappyStk`+	happy_x_3 `HappyStk`+	happy_x_2 `HappyStk`+	happy_x_1 `HappyStk`+	happyRest)+	 = case happyOut45 happy_x_1 of { happy_var_1 -> +	case happyOut45 happy_x_3 of { happy_var_3 -> +	happyIn65+		 (EInfFrom happy_var_1 (Just happy_var_3)+	) `HappyStk` happyRest}}++happyReduce_163 = happySpecReduce_1  51# happyReduction_163+happyReduction_163 happy_x_1+	 =  case happyOut67 happy_x_1 of { happy_var_1 -> +	happyIn66+		 ([ reverse happy_var_1 ]+	)}++happyReduce_164 = happySpecReduce_3  51# happyReduction_164+happyReduction_164 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOut66 happy_x_1 of { happy_var_1 -> +	case happyOut67 happy_x_3 of { happy_var_3 -> +	happyIn66+		 (reverse happy_var_3 : happy_var_1+	)}}++happyReduce_165 = happySpecReduce_1  52# happyReduction_165+happyReduction_165 happy_x_1+	 =  case happyOut68 happy_x_1 of { happy_var_1 -> +	happyIn67+		 ([happy_var_1]+	)}++happyReduce_166 = happySpecReduce_3  52# happyReduction_166+happyReduction_166 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 -> +	happyIn67+		 (happy_var_3 : happy_var_1+	)}}++happyReduce_167 = happySpecReduce_3  53# happyReduction_167+happyReduction_167 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOut69 happy_x_1 of { happy_var_1 -> +	case happyOut45 happy_x_3 of { happy_var_3 -> +	happyIn68+		 (Match happy_var_1 happy_var_3+	)}}++happyReduce_168 = happySpecReduce_3  54# happyReduction_168+happyReduction_168 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOut70 happy_x_1 of { happy_var_1 -> +	case happyOut83 happy_x_3 of { happy_var_3 -> +	happyIn69+		 (at (happy_var_1,happy_var_3) $ PTyped happy_var_1 happy_var_3+	)}}++happyReduce_169 = happySpecReduce_1  54# happyReduction_169+happyReduction_169 happy_x_1+	 =  case happyOut70 happy_x_1 of { happy_var_1 -> +	happyIn69+		 (happy_var_1+	)}++happyReduce_170 = happySpecReduce_3  55# happyReduction_170+happyReduction_170 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOut70 happy_x_1 of { happy_var_1 -> +	case happyOut70 happy_x_3 of { happy_var_3 -> +	happyIn70+		 (at (happy_var_1,happy_var_3) $ PSplit happy_var_1 happy_var_3+	)}}++happyReduce_171 = happySpecReduce_1  55# happyReduction_171+happyReduction_171 happy_x_1+	 =  case happyOut71 happy_x_1 of { happy_var_1 -> +	happyIn70+		 (happy_var_1+	)}++happyReduce_172 = happySpecReduce_1  56# happyReduction_172+happyReduction_172 happy_x_1+	 =  case happyOut92 happy_x_1 of { happy_var_1 -> +	happyIn71+		 (PVar happy_var_1+	)}++happyReduce_173 = happySpecReduce_1  56# happyReduction_173+happyReduction_173 happy_x_1+	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym Underscore ) _)) -> +	happyIn71+		 (at happy_var_1       $ PWild+	)}++happyReduce_174 = happySpecReduce_2  56# happyReduction_174+happyReduction_174 happy_x_2+	happy_x_1+	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym ParenL  ) _)) -> +	case happyOutTok happy_x_2 of { (Located happy_var_2 (Token (Sym ParenR  ) _)) -> +	happyIn71+		 (at (happy_var_1,happy_var_2) $ PTuple []+	)}}++happyReduce_175 = happySpecReduce_3  56# happyReduction_175+happyReduction_175 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym ParenL  ) _)) -> +	case happyOut69 happy_x_2 of { happy_var_2 -> +	case happyOutTok happy_x_3 of { (Located happy_var_3 (Token (Sym ParenR  ) _)) -> +	happyIn71+		 (at (happy_var_1,happy_var_3)   happy_var_2+	)}}}++happyReduce_176 = happySpecReduce_3  56# happyReduction_176+happyReduction_176 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym ParenL  ) _)) -> +	case happyOut72 happy_x_2 of { happy_var_2 -> +	case happyOutTok happy_x_3 of { (Located happy_var_3 (Token (Sym ParenR  ) _)) -> +	happyIn71+		 (at (happy_var_1,happy_var_3) $ PTuple (reverse happy_var_2)+	)}}}++happyReduce_177 = happySpecReduce_2  56# happyReduction_177+happyReduction_177 happy_x_2+	happy_x_1+	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym BracketL) _)) -> +	case happyOutTok happy_x_2 of { (Located happy_var_2 (Token (Sym BracketR) _)) -> +	happyIn71+		 (at (happy_var_1,happy_var_2) $ PList []+	)}}++happyReduce_178 = happySpecReduce_3  56# happyReduction_178+happyReduction_178 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym BracketL) _)) -> +	case happyOut69 happy_x_2 of { happy_var_2 -> +	case happyOutTok happy_x_3 of { (Located happy_var_3 (Token (Sym BracketR) _)) -> +	happyIn71+		 (at (happy_var_1,happy_var_3) $ PList [happy_var_2]+	)}}}++happyReduce_179 = happySpecReduce_3  56# happyReduction_179+happyReduction_179 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym BracketL) _)) -> +	case happyOut72 happy_x_2 of { happy_var_2 -> +	case happyOutTok happy_x_3 of { (Located happy_var_3 (Token (Sym BracketR) _)) -> +	happyIn71+		 (at (happy_var_1,happy_var_3) $ PList (reverse happy_var_2)+	)}}}++happyReduce_180 = happySpecReduce_2  56# happyReduction_180+happyReduction_180 happy_x_2+	happy_x_1+	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym CurlyL  ) _)) -> +	case happyOutTok happy_x_2 of { (Located happy_var_2 (Token (Sym CurlyR  ) _)) -> +	happyIn71+		 (at (happy_var_1,happy_var_2) $ PRecord []+	)}}++happyReduce_181 = happySpecReduce_3  56# happyReduction_181+happyReduction_181 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym CurlyL  ) _)) -> +	case happyOut74 happy_x_2 of { happy_var_2 -> +	case happyOutTok happy_x_3 of { (Located happy_var_3 (Token (Sym CurlyR  ) _)) -> +	happyIn71+		 (at (happy_var_1,happy_var_3) $ PRecord (reverse happy_var_2)+	)}}}++happyReduce_182 = happySpecReduce_3  57# happyReduction_182+happyReduction_182 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOut69 happy_x_1 of { happy_var_1 -> +	case happyOut69 happy_x_3 of { happy_var_3 -> +	happyIn72+		 ([happy_var_3, happy_var_1]+	)}}++happyReduce_183 = happySpecReduce_3  57# happyReduction_183+happyReduction_183 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOut72 happy_x_1 of { happy_var_1 -> +	case happyOut69 happy_x_3 of { happy_var_3 -> +	happyIn72+		 (happy_var_3 : happy_var_1+	)}}++happyReduce_184 = happySpecReduce_3  58# happyReduction_184+happyReduction_184 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOut91 happy_x_1 of { happy_var_1 -> +	case happyOut69 happy_x_3 of { happy_var_3 -> +	happyIn73+		 (Named { name = happy_var_1, value = happy_var_3 }+	)}}++happyReduce_185 = happySpecReduce_1  59# happyReduction_185+happyReduction_185 happy_x_1+	 =  case happyOut73 happy_x_1 of { happy_var_1 -> +	happyIn74+		 ([happy_var_1]+	)}++happyReduce_186 = happySpecReduce_3  59# happyReduction_186+happyReduction_186 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOut74 happy_x_1 of { happy_var_1 -> +	case happyOut73 happy_x_3 of { happy_var_3 -> +	happyIn74+		 (happy_var_3 : happy_var_1+	)}}++happyReduce_187 = happySpecReduce_1  60# happyReduction_187+happyReduction_187 happy_x_1+	 =  case happyOut83 happy_x_1 of { happy_var_1 -> +	happyIn75+		 (at happy_var_1 $ mkSchema [] [] happy_var_1+	)}++happyReduce_188 = happySpecReduce_2  60# happyReduction_188+happyReduction_188 happy_x_2+	happy_x_1+	 =  case happyOut76 happy_x_1 of { happy_var_1 -> +	case happyOut83 happy_x_2 of { happy_var_2 -> +	happyIn75+		 (at (happy_var_1,happy_var_2) $ mkSchema (thing happy_var_1) [] happy_var_2+	)}}++happyReduce_189 = happySpecReduce_2  60# happyReduction_189+happyReduction_189 happy_x_2+	happy_x_1+	 =  case happyOut77 happy_x_1 of { happy_var_1 -> +	case happyOut83 happy_x_2 of { happy_var_2 -> +	happyIn75+		 (at (happy_var_1,happy_var_2) $ mkSchema [] (thing happy_var_1) happy_var_2+	)}}++happyReduce_190 = happySpecReduce_3  60# happyReduction_190+happyReduction_190 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOut76 happy_x_1 of { happy_var_1 -> +	case happyOut77 happy_x_2 of { happy_var_2 -> +	case happyOut83 happy_x_3 of { happy_var_3 -> +	happyIn75+		 (at (happy_var_1,happy_var_3) $ mkSchema (thing happy_var_1)+                                                          (thing happy_var_2) happy_var_3+	)}}}++happyReduce_191 = happySpecReduce_2  61# happyReduction_191+happyReduction_191 happy_x_2+	happy_x_1+	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym CurlyL  ) _)) -> +	case happyOutTok happy_x_2 of { (Located happy_var_2 (Token (Sym CurlyR  ) _)) -> +	happyIn76+		 (Located (rComb happy_var_1 happy_var_2) []+	)}}++happyReduce_192 = happySpecReduce_3  61# happyReduction_192+happyReduction_192 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym CurlyL  ) _)) -> +	case happyOut80 happy_x_2 of { happy_var_2 -> +	case happyOutTok happy_x_3 of { (Located happy_var_3 (Token (Sym CurlyR  ) _)) -> +	happyIn76+		 (Located (rComb happy_var_1 happy_var_3) (reverse happy_var_2)+	)}}}++happyReduce_193 = happyMonadReduce 2# 62# happyReduction_193+happyReduction_193 (happy_x_2 `HappyStk`+	happy_x_1 `HappyStk`+	happyRest) tk+	 = happyThen (case happyOut83 happy_x_1 of { happy_var_1 -> +	case happyOutTok happy_x_2 of { (Located happy_var_2 (Token (Sym FatArrR ) _)) -> +	( fmap (\x -> at (x,happy_var_2) x) (mkProp happy_var_1))}}+	) (\r -> happyReturn (happyIn77 r))++happyReduce_194 = happySpecReduce_1  63# happyReduction_194+happyReduction_194 happy_x_1+	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Op Hash) _)) -> +	happyIn78+		 (Located happy_var_1 KNum+	)}++happyReduce_195 = happySpecReduce_1  63# happyReduction_195+happyReduction_195 happy_x_1+	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Op Mul)   _)) -> +	happyIn78+		 (Located happy_var_1 KType+	)}++happyReduce_196 = happyMonadReduce 1# 64# happyReduction_196+happyReduction_196 (happy_x_1 `HappyStk`+	happyRest) tk+	 = happyThen (case happyOut91 happy_x_1 of { happy_var_1 -> +	( mkTParam happy_var_1 Nothing)}+	) (\r -> happyReturn (happyIn79 r))++happyReduce_197 = happyMonadReduce 3# 64# happyReduction_197+happyReduction_197 (happy_x_3 `HappyStk`+	happy_x_2 `HappyStk`+	happy_x_1 `HappyStk`+	happyRest) tk+	 = happyThen (case happyOut91 happy_x_1 of { happy_var_1 -> +	case happyOut78 happy_x_3 of { happy_var_3 -> +	( mkTParam (at (happy_var_1,happy_var_3) happy_var_1) (Just (thing happy_var_3)))}}+	) (\r -> happyReturn (happyIn79 r))++happyReduce_198 = happySpecReduce_1  65# happyReduction_198+happyReduction_198 happy_x_1+	 =  case happyOut79 happy_x_1 of { happy_var_1 -> +	happyIn80+		 ([happy_var_1]+	)}++happyReduce_199 = happySpecReduce_3  65# happyReduction_199+happyReduction_199 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOut80 happy_x_1 of { happy_var_1 -> +	case happyOut79 happy_x_3 of { happy_var_3 -> +	happyIn80+		 (happy_var_3 : happy_var_1+	)}}++happyReduce_200 = happyMonadReduce 1# 66# happyReduction_200+happyReduction_200 (happy_x_1 `HappyStk`+	happyRest) tk+	 = happyThen (case happyOut91 happy_x_1 of { happy_var_1 -> +	( mkTParam happy_var_1 Nothing)}+	) (\r -> happyReturn (happyIn81 r))++happyReduce_201 = happyMonadReduce 5# 66# happyReduction_201+happyReduction_201 (happy_x_5 `HappyStk`+	happy_x_4 `HappyStk`+	happy_x_3 `HappyStk`+	happy_x_2 `HappyStk`+	happy_x_1 `HappyStk`+	happyRest) tk+	 = happyThen (case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym ParenL  ) _)) -> +	case happyOut91 happy_x_2 of { happy_var_2 -> +	case happyOut78 happy_x_4 of { happy_var_4 -> +	case happyOutTok happy_x_5 of { (Located happy_var_5 (Token (Sym ParenR  ) _)) -> +	( mkTParam (at (happy_var_1,happy_var_5) happy_var_2) (Just (thing happy_var_4)))}}}}+	) (\r -> happyReturn (happyIn81 r))++happyReduce_202 = happySpecReduce_1  67# happyReduction_202+happyReduction_202 happy_x_1+	 =  case happyOut81 happy_x_1 of { happy_var_1 -> +	happyIn82+		 ([happy_var_1]+	)}++happyReduce_203 = happySpecReduce_2  67# happyReduction_203+happyReduction_203 happy_x_2+	happy_x_1+	 =  case happyOut82 happy_x_1 of { happy_var_1 -> +	case happyOut81 happy_x_2 of { happy_var_2 -> +	happyIn82+		 (happy_var_2 : happy_var_1+	)}}++happyReduce_204 = happySpecReduce_3  68# happyReduction_204+happyReduction_204 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOut84 happy_x_1 of { happy_var_1 -> +	case happyOut83 happy_x_3 of { happy_var_3 -> +	happyIn83+		 (at (happy_var_1,happy_var_3) $ TFun happy_var_1 happy_var_3+	)}}++happyReduce_205 = happySpecReduce_3  68# happyReduction_205+happyReduction_205 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOut83 happy_x_1 of { happy_var_1 -> +	case happyOut53 happy_x_2 of { happy_var_2 -> +	case happyOut84 happy_x_3 of { happy_var_3 -> +	happyIn83+		 (at (happy_var_1,happy_var_3) $ TInfix happy_var_1 happy_var_2 defaultFixity happy_var_3+	)}}}++happyReduce_206 = happySpecReduce_1  68# happyReduction_206+happyReduction_206 happy_x_1+	 =  case happyOut84 happy_x_1 of { happy_var_1 -> +	happyIn83+		 (happy_var_1+	)}++happyReduce_207 = happySpecReduce_2  69# happyReduction_207+happyReduction_207 happy_x_2+	happy_x_1+	 =  case happyOut87 happy_x_1 of { happy_var_1 -> +	case happyOut85 happy_x_2 of { happy_var_2 -> +	happyIn84+		 (at (happy_var_1,happy_var_2) $ foldr TSeq happy_var_2 (reverse (thing happy_var_1))+	)}}++happyReduce_208 = happySpecReduce_2  69# happyReduction_208+happyReduction_208 happy_x_2+	happy_x_1+	 =  case happyOut94 happy_x_1 of { happy_var_1 -> +	case happyOut86 happy_x_2 of { happy_var_2 -> +	happyIn84+		 (at (happy_var_1,head happy_var_2)+                                     $ TUser (thing happy_var_1) (reverse happy_var_2)+	)}}++happyReduce_209 = happySpecReduce_1  69# happyReduction_209+happyReduction_209 happy_x_1+	 =  case happyOut85 happy_x_1 of { happy_var_1 -> +	happyIn84+		 (happy_var_1+	)}++happyReduce_210 = happySpecReduce_1  70# happyReduction_210+happyReduction_210 happy_x_1+	 =  case happyOut94 happy_x_1 of { happy_var_1 -> +	happyIn85+		 (at happy_var_1 $ TUser (thing happy_var_1) []+	)}++happyReduce_211 = happySpecReduce_1  70# happyReduction_211+happyReduction_211 happy_x_1+	 =  case happyOutTok happy_x_1 of { (happy_var_1@(Located _ (Token (Num   {}) _))) -> +	happyIn85+		 (at happy_var_1 $ TNum  (getNum happy_var_1)+	)}++happyReduce_212 = happySpecReduce_1  70# happyReduction_212+happyReduction_212 happy_x_1+	 =  case happyOutTok happy_x_1 of { (happy_var_1@(Located _ (Token (ChrLit {}) _))) -> +	happyIn85+		 (at happy_var_1 $ TChar (toEnum $ fromInteger+                                                          $ getNum happy_var_1)+	)}++happyReduce_213 = happySpecReduce_3  70# happyReduction_213+happyReduction_213 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym BracketL) _)) -> +	case happyOut83 happy_x_2 of { happy_var_2 -> +	case happyOutTok happy_x_3 of { (Located happy_var_3 (Token (Sym BracketR) _)) -> +	happyIn85+		 (at (happy_var_1,happy_var_3) $ TSeq happy_var_2 TBit+	)}}}++happyReduce_214 = happySpecReduce_3  70# happyReduction_214+happyReduction_214 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym ParenL  ) _)) -> +	case happyOut83 happy_x_2 of { happy_var_2 -> +	case happyOutTok happy_x_3 of { (Located happy_var_3 (Token (Sym ParenR  ) _)) -> +	happyIn85+		 (at (happy_var_1,happy_var_3) $ TParens happy_var_2+	)}}}++happyReduce_215 = happySpecReduce_2  70# happyReduction_215+happyReduction_215 happy_x_2+	happy_x_1+	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym ParenL  ) _)) -> +	case happyOutTok happy_x_2 of { (Located happy_var_2 (Token (Sym ParenR  ) _)) -> +	happyIn85+		 (at (happy_var_1,happy_var_2) $ TTuple []+	)}}++happyReduce_216 = happySpecReduce_3  70# happyReduction_216+happyReduction_216 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym ParenL  ) _)) -> +	case happyOut88 happy_x_2 of { happy_var_2 -> +	case happyOutTok happy_x_3 of { (Located happy_var_3 (Token (Sym ParenR  ) _)) -> +	happyIn85+		 (at (happy_var_1,happy_var_3) $ TTuple  (reverse happy_var_2)+	)}}}++happyReduce_217 = happySpecReduce_2  70# happyReduction_217+happyReduction_217 happy_x_2+	happy_x_1+	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym CurlyL  ) _)) -> +	case happyOutTok happy_x_2 of { (Located happy_var_2 (Token (Sym CurlyR  ) _)) -> +	happyIn85+		 (at (happy_var_1,happy_var_2) $ TRecord []+	)}}++happyReduce_218 = happySpecReduce_3  70# happyReduction_218+happyReduction_218 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym CurlyL  ) _)) -> +	case happyOut90 happy_x_2 of { happy_var_2 -> +	case happyOutTok happy_x_3 of { (Located happy_var_3 (Token (Sym CurlyR  ) _)) -> +	happyIn85+		 (at (happy_var_1,happy_var_3) $ TRecord (reverse happy_var_2)+	)}}}++happyReduce_219 = happySpecReduce_1  70# happyReduction_219+happyReduction_219 happy_x_1+	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym Underscore ) _)) -> +	happyIn85+		 (at happy_var_1 TWild+	)}++happyReduce_220 = happySpecReduce_1  71# happyReduction_220+happyReduction_220 happy_x_1+	 =  case happyOut85 happy_x_1 of { happy_var_1 -> +	happyIn86+		 ([ happy_var_1 ]+	)}++happyReduce_221 = happySpecReduce_2  71# happyReduction_221+happyReduction_221 happy_x_2+	happy_x_1+	 =  case happyOut86 happy_x_1 of { happy_var_1 -> +	case happyOut85 happy_x_2 of { happy_var_2 -> +	happyIn86+		 (happy_var_2 : happy_var_1+	)}}++happyReduce_222 = happySpecReduce_3  72# happyReduction_222+happyReduction_222 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym BracketL) _)) -> +	case happyOut83 happy_x_2 of { happy_var_2 -> +	case happyOutTok happy_x_3 of { (Located happy_var_3 (Token (Sym BracketR) _)) -> +	happyIn87+		 (Located (rComb happy_var_1 happy_var_3) [ happy_var_2 ]+	)}}}++happyReduce_223 = happyReduce 4# 72# happyReduction_223+happyReduction_223 (happy_x_4 `HappyStk`+	happy_x_3 `HappyStk`+	happy_x_2 `HappyStk`+	happy_x_1 `HappyStk`+	happyRest)+	 = case happyOut87 happy_x_1 of { happy_var_1 -> +	case happyOut83 happy_x_3 of { happy_var_3 -> +	case happyOutTok happy_x_4 of { (Located happy_var_4 (Token (Sym BracketR) _)) -> +	happyIn87+		 (at (happy_var_1,happy_var_4) (fmap (happy_var_3 :) happy_var_1)+	) `HappyStk` happyRest}}}++happyReduce_224 = happySpecReduce_3  73# happyReduction_224+happyReduction_224 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOut83 happy_x_1 of { happy_var_1 -> +	case happyOut83 happy_x_3 of { happy_var_3 -> +	happyIn88+		 ([ happy_var_3, happy_var_1]+	)}}++happyReduce_225 = happySpecReduce_3  73# happyReduction_225+happyReduction_225 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOut88 happy_x_1 of { happy_var_1 -> +	case happyOut83 happy_x_3 of { happy_var_3 -> +	happyIn88+		 (happy_var_3 : happy_var_1+	)}}++happyReduce_226 = happySpecReduce_3  74# happyReduction_226+happyReduction_226 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOut91 happy_x_1 of { happy_var_1 -> +	case happyOut83 happy_x_3 of { happy_var_3 -> +	happyIn89+		 (Named { name = happy_var_1, value = happy_var_3 }+	)}}++happyReduce_227 = happySpecReduce_1  75# happyReduction_227+happyReduction_227 happy_x_1+	 =  case happyOut89 happy_x_1 of { happy_var_1 -> +	happyIn90+		 ([happy_var_1]+	)}++happyReduce_228 = happySpecReduce_3  75# happyReduction_228+happyReduction_228 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOut90 happy_x_1 of { happy_var_1 -> +	case happyOut89 happy_x_3 of { happy_var_3 -> +	happyIn90+		 (happy_var_3 : happy_var_1+	)}}++happyReduce_229 = happySpecReduce_1  76# happyReduction_229+happyReduction_229 happy_x_1+	 =  case happyOutTok happy_x_1 of { (happy_var_1@(Located _ (Token (Ident [] _) _))) -> +	happyIn91+		 (let Token (Ident _ str) _ = thing happy_var_1+                         in happy_var_1 { thing = mkIdent (T.toStrict str) }+	)}++happyReduce_230 = happySpecReduce_1  76# happyReduction_230+happyReduction_230 happy_x_1+	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (KW KW_x)       _)) -> +	happyIn91+		 (Located { srcRange = happy_var_1, thing = mkIdent "x" }+	)}++happyReduce_231 = happySpecReduce_1  76# happyReduction_231+happyReduction_231 happy_x_1+	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (KW KW_private)   _)) -> +	happyIn91+		 (Located { srcRange = happy_var_1, thing = mkIdent "private" }+	)}++happyReduce_232 = happySpecReduce_1  76# happyReduction_232+happyReduction_232 happy_x_1+	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (KW KW_as)        _)) -> +	happyIn91+		 (Located { srcRange = happy_var_1, thing = mkIdent "as" }+	)}++happyReduce_233 = happySpecReduce_1  76# happyReduction_233+happyReduction_233 happy_x_1+	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (KW KW_hiding)    _)) -> +	happyIn91+		 (Located { srcRange = happy_var_1, thing = mkIdent "hiding" }+	)}++happyReduce_234 = happySpecReduce_1  77# happyReduction_234+happyReduction_234 happy_x_1+	 =  case happyOut91 happy_x_1 of { happy_var_1 -> +	happyIn92+		 (fmap mkUnqual happy_var_1+	)}++happyReduce_235 = happySpecReduce_1  78# happyReduction_235+happyReduction_235 happy_x_1+	 =  case happyOut91 happy_x_1 of { happy_var_1 -> +	happyIn93+		 (fmap identText happy_var_1+	)}++happyReduce_236 = happySpecReduce_1  78# happyReduction_236+happyReduction_236 happy_x_1+	 =  case happyOutTok happy_x_1 of { (happy_var_1@(Located _ (Token  Ident{}     _))) -> +	happyIn93+		 (let Token (Ident ns i) _ = thing happy_var_1+                                     in mkModName (ns ++ [i]) A.<$ happy_var_1+	)}++happyReduce_237 = happySpecReduce_1  79# happyReduction_237+happyReduction_237 happy_x_1+	 =  case happyOut92 happy_x_1 of { happy_var_1 -> +	happyIn94+		 (happy_var_1+	)}++happyReduce_238 = happySpecReduce_1  79# happyReduction_238+happyReduction_238 happy_x_1+	 =  case happyOutTok happy_x_1 of { (happy_var_1@(Located _ (Token  Ident{}     _))) -> +	happyIn94+		 (let Token (Ident ns i) _ = thing happy_var_1+                                     in mkQual (mkModName ns) (mkIdent (T.toStrict i)) A.<$ happy_var_1+	)}++happyReduce_239 = happySpecReduce_1  80# happyReduction_239+happyReduction_239 happy_x_1+	 =  case happyOut94 happy_x_1 of { happy_var_1 -> +	happyIn95+		 (happy_var_1+	)}++happyReduce_240 = happySpecReduce_1  80# happyReduction_240+happyReduction_240 happy_x_1+	 =  case happyOut52 happy_x_1 of { happy_var_1 -> +	happyIn95+		 (happy_var_1+	)}++happyReduce_241 = happySpecReduce_3  80# happyReduction_241+happyReduction_241 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOut52 happy_x_2 of { happy_var_2 -> +	happyIn95+		 (happy_var_2+	)}++happyReduce_242 = happySpecReduce_1  81# happyReduction_242+happyReduction_242 happy_x_1+	 =  case happyOut94 happy_x_1 of { happy_var_1 -> +	happyIn96+		 (at happy_var_1 $ TUser (thing happy_var_1) []+	)}++happyReduce_243 = happySpecReduce_1  81# happyReduction_243+happyReduction_243 happy_x_1+	 =  case happyOutTok happy_x_1 of { (happy_var_1@(Located _ (Token (Num   {}) _))) -> +	happyIn96+		 (at happy_var_1 $ TNum  (getNum happy_var_1)+	)}++happyReduce_244 = happyMonadReduce 3# 81# happyReduction_244+happyReduction_244 (happy_x_3 `HappyStk`+	happy_x_2 `HappyStk`+	happy_x_1 `HappyStk`+	happyRest) tk+	 = happyThen (case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym ParenL  ) _)) -> +	case happyOut83 happy_x_2 of { happy_var_2 -> +	case happyOutTok happy_x_3 of { (Located happy_var_3 (Token (Sym ParenR  ) _)) -> +	( validDemotedType (rComb happy_var_1 happy_var_3) happy_var_2)}}}+	) (\r -> happyReturn (happyIn96 r))++happyReduce_245 = happySpecReduce_2  81# happyReduction_245+happyReduction_245 happy_x_2+	happy_x_1+	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym CurlyL  ) _)) -> +	case happyOutTok happy_x_2 of { (Located happy_var_2 (Token (Sym CurlyR  ) _)) -> +	happyIn96+		 (at (happy_var_1,happy_var_2) (TRecord [])+	)}}++happyReduce_246 = happySpecReduce_3  81# happyReduction_246+happyReduction_246 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym CurlyL  ) _)) -> +	case happyOut98 happy_x_2 of { happy_var_2 -> +	case happyOutTok happy_x_3 of { (Located happy_var_3 (Token (Sym CurlyR  ) _)) -> +	happyIn96+		 (at (happy_var_1,happy_var_3) (TRecord (reverse happy_var_2))+	)}}}++happyReduce_247 = happySpecReduce_3  81# happyReduction_247+happyReduction_247 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym CurlyL  ) _)) -> +	case happyOut83 happy_x_2 of { happy_var_2 -> +	case happyOutTok happy_x_3 of { (Located happy_var_3 (Token (Sym CurlyR  ) _)) -> +	happyIn96+		 (anonRecord (getLoc (happy_var_1,happy_var_3)) [happy_var_2]+	)}}}++happyReduce_248 = happySpecReduce_3  81# happyReduction_248+happyReduction_248 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOutTok happy_x_1 of { (Located happy_var_1 (Token (Sym CurlyL  ) _)) -> +	case happyOut88 happy_x_2 of { happy_var_2 -> +	case happyOutTok happy_x_3 of { (Located happy_var_3 (Token (Sym CurlyR  ) _)) -> +	happyIn96+		 (anonRecord (getLoc (happy_var_1,happy_var_3)) (reverse happy_var_2)+	)}}}++happyReduce_249 = happySpecReduce_3  82# happyReduction_249+happyReduction_249 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOut91 happy_x_1 of { happy_var_1 -> +	case happyOut83 happy_x_3 of { happy_var_3 -> +	happyIn97+		 (Named { name = happy_var_1, value = happy_var_3 }+	)}}++happyReduce_250 = happySpecReduce_1  83# happyReduction_250+happyReduction_250 happy_x_1+	 =  case happyOut97 happy_x_1 of { happy_var_1 -> +	happyIn98+		 ([happy_var_1]+	)}++happyReduce_251 = happySpecReduce_3  83# happyReduction_251+happyReduction_251 happy_x_3+	happy_x_2+	happy_x_1+	 =  case happyOut98 happy_x_1 of { happy_var_1 -> +	case happyOut97 happy_x_3 of { happy_var_3 -> +	happyIn98+		 (happy_var_3 : happy_var_1+	)}}++happyNewToken action sts stk+	= lexerP(\tk -> +	let cont i = happyDoAction i tk action sts stk in+	case tk of {+	Located _ (Token EOF _) -> happyDoAction 59# tk action sts stk;+	happy_dollar_dollar@(Located _ (Token (Num   {}) _)) -> cont 1#;+	happy_dollar_dollar@(Located _ (Token (StrLit {}) _)) -> cont 2#;+	happy_dollar_dollar@(Located _ (Token (ChrLit {}) _)) -> cont 3#;+	happy_dollar_dollar@(Located _ (Token (Ident [] _) _)) -> cont 4#;+	happy_dollar_dollar@(Located _ (Token  Ident{}     _)) -> cont 5#;+	Located happy_dollar_dollar (Token (KW KW_include)   _) -> cont 6#;+	Located happy_dollar_dollar (Token (KW KW_import)    _) -> cont 7#;+	Located happy_dollar_dollar (Token (KW KW_as)        _) -> cont 8#;+	Located happy_dollar_dollar (Token (KW KW_hiding)    _) -> cont 9#;+	Located happy_dollar_dollar (Token (KW KW_private)   _) -> cont 10#;+	Located happy_dollar_dollar (Token (KW KW_property)  _) -> cont 11#;+	Located happy_dollar_dollar (Token (KW KW_infix)     _) -> cont 12#;+	Located happy_dollar_dollar (Token (KW KW_infixl)    _) -> cont 13#;+	Located happy_dollar_dollar (Token (KW KW_infixr)    _) -> cont 14#;+	Located happy_dollar_dollar (Token (KW KW_type   ) _) -> cont 15#;+	Located happy_dollar_dollar (Token (KW KW_newtype) _) -> cont 16#;+	Located happy_dollar_dollar (Token (KW KW_module ) _) -> cont 17#;+	Located happy_dollar_dollar (Token (KW KW_where  ) _) -> cont 18#;+	Located happy_dollar_dollar (Token (KW KW_let    ) _) -> cont 19#;+	Located happy_dollar_dollar (Token (KW KW_if     ) _) -> cont 20#;+	Located happy_dollar_dollar (Token (KW KW_then   ) _) -> cont 21#;+	Located happy_dollar_dollar (Token (KW KW_else   ) _) -> cont 22#;+	Located happy_dollar_dollar (Token (KW KW_x)       _) -> cont 23#;+	Located happy_dollar_dollar (Token (KW KW_primitive) _) -> cont 24#;+	Located happy_dollar_dollar (Token (Sym BracketL) _) -> cont 25#;+	Located happy_dollar_dollar (Token (Sym BracketR) _) -> cont 26#;+	Located happy_dollar_dollar (Token (Sym ArrL    ) _) -> cont 27#;+	Located happy_dollar_dollar (Token (Sym DotDot  ) _) -> cont 28#;+	Located happy_dollar_dollar (Token (Sym DotDotDot) _) -> cont 29#;+	Located happy_dollar_dollar (Token (Sym Bar     ) _) -> cont 30#;+	Located happy_dollar_dollar (Token (Sym ParenL  ) _) -> cont 31#;+	Located happy_dollar_dollar (Token (Sym ParenR  ) _) -> cont 32#;+	Located happy_dollar_dollar (Token (Sym Comma   ) _) -> cont 33#;+	Located happy_dollar_dollar (Token (Sym Semi    ) _) -> cont 34#;+	Located happy_dollar_dollar (Token (Sym Dot     ) _) -> cont 35#;+	Located happy_dollar_dollar (Token (Sym CurlyL  ) _) -> cont 36#;+	Located happy_dollar_dollar (Token (Sym CurlyR  ) _) -> cont 37#;+	Located happy_dollar_dollar (Token (Sym TriL    ) _) -> cont 38#;+	Located happy_dollar_dollar (Token (Sym TriR    ) _) -> cont 39#;+	Located happy_dollar_dollar (Token (Sym EqDef   ) _) -> cont 40#;+	Located happy_dollar_dollar (Token (Sym BackTick) _) -> cont 41#;+	Located happy_dollar_dollar (Token (Sym Colon   ) _) -> cont 42#;+	Located happy_dollar_dollar (Token (Sym ArrR    ) _) -> cont 43#;+	Located happy_dollar_dollar (Token (Sym FatArrR ) _) -> cont 44#;+	Located happy_dollar_dollar (Token (Sym Lambda  ) _) -> cont 45#;+	Located happy_dollar_dollar (Token (Sym Underscore ) _) -> cont 46#;+	Located happy_dollar_dollar (Token (Virt VCurlyL)  _) -> cont 47#;+	Located happy_dollar_dollar (Token (Virt VCurlyR)  _) -> cont 48#;+	Located happy_dollar_dollar (Token (Virt VSemi)    _) -> cont 49#;+	Located happy_dollar_dollar (Token (Op Plus)  _) -> cont 50#;+	Located happy_dollar_dollar (Token (Op Mul)   _) -> cont 51#;+	Located happy_dollar_dollar (Token (Op Exp)   _) -> cont 52#;+	Located happy_dollar_dollar (Token (Op Minus) _) -> cont 53#;+	Located happy_dollar_dollar (Token (Op Complement) _) -> cont 54#;+	Located happy_dollar_dollar (Token (Op Hash) _) -> cont 55#;+	happy_dollar_dollar@(Located _ (Token (Op (Other [] _)) _)) -> cont 56#;+	happy_dollar_dollar@(Located _ (Token (Op  Other{}   )  _)) -> cont 57#;+	happy_dollar_dollar@(Located _ (Token (White DocStr) _)) -> cont 58#;+	_ -> happyError' tk+	})++happyError_ 59# tk = happyError' tk+happyError_ _ tk = happyError' tk++happyThen :: () => ParseM a -> (a -> ParseM b) -> ParseM b+happyThen = (>>=)+happyReturn :: () => a -> ParseM a+happyReturn = (return)+happyThen1 = happyThen+happyReturn1 :: () => a -> ParseM a+happyReturn1 = happyReturn+happyError' :: () => (Located Token) -> ParseM a+happyError' tk = (\token -> happyError) tk++vmodule = happySomeParser where+  happySomeParser = happyThen (happyParse 0#) (\x -> happyReturn (happyOut15 x))++program = happySomeParser where+  happySomeParser = happyThen (happyParse 1#) (\x -> happyReturn (happyOut23 x))++programLayout = happySomeParser where+  happySomeParser = happyThen (happyParse 2#) (\x -> happyReturn (happyOut24 x))++expr = happySomeParser where+  happySomeParser = happyThen (happyParse 3#) (\x -> happyReturn (happyOut45 x))++decl = happySomeParser where+  happySomeParser = happyThen (happyParse 4#) (\x -> happyReturn (happyOut33 x))++decls = happySomeParser where+  happySomeParser = happyThen (happyParse 5#) (\x -> happyReturn (happyOut41 x))++declsLayout = happySomeParser where+  happySomeParser = happyThen (happyParse 6#) (\x -> happyReturn (happyOut43 x))++letDecl = happySomeParser where+  happySomeParser = happyThen (happyParse 7#) (\x -> happyReturn (happyOut34 x))++repl = happySomeParser where+  happySomeParser = happyThen (happyParse 8#) (\x -> happyReturn (happyOut44 x))++schema = happySomeParser where+  happySomeParser = happyThen (happyParse 9#) (\x -> happyReturn (happyOut75 x))++modName = happySomeParser where+  happySomeParser = happyThen (happyParse 10#) (\x -> happyReturn (happyOut93 x))++helpName = happySomeParser where+  happySomeParser = happyThen (happyParse 11#) (\x -> happyReturn (happyOut95 x))++happySeq = happyDontSeq+++parseModName :: String -> Maybe ModName+parseModName txt =+  case parseString defaultConfig { cfgModuleScope = False } modName txt of+    Right a -> Just (thing a)+    Left _  -> Nothing++parseHelpName :: String -> Maybe PName+parseHelpName txt =+  case parseString defaultConfig { cfgModuleScope = False } helpName txt of+    Right a -> Just (thing a)+    Left _  -> Nothing++addImplicitIncludes :: Config -> Program PName -> Program PName+addImplicitIncludes cfg (Program ds) =+  Program $ map path (cfgAutoInclude cfg) ++ ds+  where path p = Include Located { srcRange = rng, thing = p }+        rng    = Range { source = cfgSource cfg, from = start, to = start }+++parseProgramWith :: Config -> Text -> Either ParseError (Program PName)+parseProgramWith cfg s = case res s of+                          Left err -> Left err+                          Right a  -> Right (addImplicitIncludes cfg a)+  where+  res = parse cfg $ case cfgLayout cfg of+                      Layout   -> programLayout+                      NoLayout -> program++parseModule :: Config -> Text -> Either ParseError (Module PName)+parseModule cfg = parse cfg { cfgModuleScope = True } vmodule++parseProgram :: Layout -> Text -> Either ParseError (Program PName)+parseProgram l = parseProgramWith defaultConfig { cfgLayout = l }++parseExprWith :: Config -> Text -> Either ParseError (Expr PName)+parseExprWith cfg = parse cfg { cfgModuleScope = False } expr++parseExpr :: Text -> Either ParseError (Expr PName)+parseExpr = parseExprWith defaultConfig++parseDeclWith :: Config -> Text -> Either ParseError (Decl PName)+parseDeclWith cfg = parse cfg { cfgModuleScope = False } decl++parseDecl :: Text -> Either ParseError (Decl PName)+parseDecl = parseDeclWith defaultConfig++parseDeclsWith :: Config -> Text -> Either ParseError [Decl PName]+parseDeclsWith cfg = parse cfg { cfgModuleScope = ms } decls'+  where (ms, decls') = case cfgLayout cfg of+                         Layout   -> (True, declsLayout)+                         NoLayout -> (False, decls)++parseDecls :: Text -> Either ParseError [Decl PName]+parseDecls = parseDeclsWith defaultConfig++parseLetDeclWith :: Config -> Text -> Either ParseError (Decl PName)+parseLetDeclWith cfg = parse cfg { cfgModuleScope = False } letDecl++parseLetDecl :: Text -> Either ParseError (Decl PName)+parseLetDecl = parseLetDeclWith defaultConfig++parseReplWith :: Config -> Text -> Either ParseError (ReplInput PName)+parseReplWith cfg = parse cfg { cfgModuleScope = False } repl++parseRepl :: Text -> Either ParseError (ReplInput PName)+parseRepl = parseReplWith defaultConfig++parseSchemaWith :: Config -> Text -> Either ParseError (Schema PName)+parseSchemaWith cfg = parse cfg { cfgModuleScope = False } schema++parseSchema :: Text -> Either ParseError (Schema PName)+parseSchema = parseSchemaWith defaultConfig++-- vim: ft=haskell+{-# LINE 1 "templates/GenericTemplate.hs" #-}+{-# LINE 1 "templates/GenericTemplate.hs" #-}+{-# LINE 1 "<built-in>" #-}+{-# LINE 19 "<built-in>" #-}+{-# LINE 1 "/usr/local/Cellar/ghc/8.0.2/lib/ghc-8.0.2/include/ghcversion.h" #-}+++++++++++++++++++{-# LINE 20 "<built-in>" #-}+{-# LINE 1 "/var/folders/n8/s7z9ns8d4k39v2y_2sn__12m0000gp/T/ghc5977_0/ghc_2.h" #-}++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++{-# LINE 21 "<built-in>" #-} {-# LINE 1 "templates/GenericTemplate.hs" #-} -- Id: GenericTemplate.hs,v 1.26 2005/01/14 14:47:22 simonmar Exp